text ausgeben

Dieses Thema text ausgeben im Forum "Windows XP Forum" wurde erstellt von sign, 8. Jan. 2007.

Thema: text ausgeben hallo, hab mal angefangen mir ein kleines spiel zu schreiben. bin absoluter anfäger, arbeite mit...

  1. hallo, hab mal angefangen mir ein kleines spiel zu schreiben. bin absoluter anfäger, arbeite mit vb2005expressEdition und hab da ein problem. der untenstehende code funktioniert soweit. mein problem besteht darin das ich die ausgabe nicht in einer msgbox haben möchte.

    die ausgabe soll unterhalb des btKampf stehen und auf der form1 fest verankert sein. für eure hilfe bin ich wie immer dankbar.   



    Public Class Form1
       -> DEKLARATIONEN:
       -> --------------
       -> Gurndwerte des Kriegers
        Dim Le_Krierger = 40
        Dim attWertKrieger = 16

       -> Grundwerte des Zwergen
        Dim Le_Zwerg = 40
        Dim parWertZwerg = 5

       -> Allgemeine Grundwerte
        Dim runde = 1


        Private Sub Kampf_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kampf.Click
           -> AUSFÜHRUNG:
           -> -----------
           -> Der Krieger Attackiert den Zwergen
            Do
               -> Runden zählen, anzeigen und Kampf beenden
                Dim intCancel = MsgBox(runde & . Runde, MsgBoxStyle.OkCancel)
                If intCancel = vbCancel Then
                    Exit Do
                End If
                runde = runde + 1

               -> der krieger attackiert
                Dim AttackeWurf = Wuerfel(1, 20)
                If Attacke(AttackeWurf, attWertKrieger) = 1 Then
                    MsgBox(AttackeWurf & Attacke Krieger gelungen)
                Else
                    MsgBox(AttackeWurf & Attacke Krieger fehlgeschlagen)
                End If

               -> Attacke abbruch: der Krieger hat einen zu hoch gewürfelt
                If AttackeWurf > attWertKrieger Then
                    MsgBox(Der Zerg ist dran)
                    Exit Do
                End If

               -> der Zwerg pariert
                Dim ParadeWurf = Wuerfel(1, 20)
                If Parade(ParadeWurf, parWertZwerg) = 1 Then
                    MsgBox(ParadeWurf & Parade Zwerg gelungen)
                Else
                    MsgBox(ParadeWurf & Parade Zwerg fehlgeschlagen)
                End If

               -> Vergleich Attacke - Parade
                If Attacke(AttackeWurf, attWertKrieger) = 1 And Parade(ParadeWurf, parWertZwerg) = 1 Then
                    MsgBox(Die Attacke wurde Pariert)
                End If
                If Attacke(AttackeWurf, attWertKrieger) = 1 And Parade(ParadeWurf, parWertZwerg) = 2 Then
                    MsgBox(Treffer)
                End If
            Loop
        End Sub

       -> FUNKTIONEN:
       ->------------
       -> Würfel
        Function Wuerfel(ByVal Untergrenze, ByVal Obergrenze)
            Randomize()
            Wuerfel = Int((Obergrenze - Untergrenze + 1) * Rnd() + Untergrenze)
        End Function

       -> Attacke
        Function Attacke(ByVal attWurf, ByVal attWert)
            If attWurf <= attWert Then
                Attacke = 1
            Else
                Attacke = 2
            End If
        End Function

       -> Parrade
        Function Parade(ByVal parWurf, ByVal parWert)
            If parWurf <= parWert Then
                Parade = 1
            Else
                Parade = 2
            End If
        End Function


        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        End Sub
    End Class


    ' TEMP (hier muss alles grün sein)
    ' -------------------------------
    ', ByVal parWurf, ByVal parWert

    ' Attackepatzer
    '            If AttackeWurf = 20 Then
    '               MsgBox(Schwerer Attackepatzer)
    '          End If

    ' Paradepatzer
    '         If AttackeWurf = 20 Then
    '            MsgBox(Schwerer Paradepatzer)
    '       End If
     
Die Seite wird geladen...

text ausgeben - Ähnliche Themen

Forum Datum
Textdatei auslesen, Zeile je nach Code ausgeben Windows XP Forum 17. Okt. 2005
Welches ist das letzte kaufbare Office und Fehler beim Scrollen in Word: Text verdoppelt sich Microsoft Office Suite 14. Juli 2016
'play to' nicht mehr im Kontextmenü Windows 8 Forum 8. Aug. 2015
Kontextmenue funktioniert nicht mehr Windows 8 Forum 15. Juni 2015
regedit zusammenführen win8.1, text verküpfung entfernen Windows 8 Forum 25. Mai 2015