✔ Ein Würfelproblem

[|hologram|]

Public Function W6(anzahl, addition, variableW6)
While anzahl > 0
zufallswert = Int(Rnd * 6) + 1
If zufallswert > 6 Then
zufallswert = 6
End If
zufallssumme = zufallssumme + zufallswert
anzahl = anzahl - 1
Wend
variableW6 = zufallssumme + addition
zufallssumme = 0
End Function

Public Function W20(variableW20)
wuerfel = Int(Rnd * 20) + 1
If wuerfel > 20 Then
wuerfel = 20
End If
variableW20 = variableW20 + wuerfel
End Function

Public Sub Command1_Click()
Call W20(attack)
Call W20(defense)
If attack > 1 & attack < 20 Then
If attack < txtAT1 Then
If defense < txtPA2 Then
schaden = 0
GoTo ENDE1
End If
Call W6(txtW61, txtW6plus1, schaden)
End If
LE2 = LE2 - Int(schaden)
End If
ENDE1:
End Sub

Hi, also:
Wie kann ich der variable LE2 den Inputtext des textfeldes txtLE2 nur ganz am anfang zuweisen? :

formular geladen, dann LE2 = txtLE2
aber nur ein einziges mal

hab schon fast alles ausprobiert.
Bitte um Hilfe

 

[Dunsti]

Hi,

vielleicht wäre es sinnvoll, wenn Du uns noch sagst, in welcher Sprache Du programmierst.

sieht fast nach VB (bzw. VBA) aus. Dann müsste Dein Problem so zu lösen sein:

LE2 = txtLE2.text

Gruß
Dunsti

 

[|hologram|]

entschuldigung, mein fehler: VB
Ich hatte bloß vergessen die Variable, die ich in einer anderen Funktion bestimmt hatte, auch programmweit zu deklarieren. thx anyway