Ein Würfelproblem

  • Themenstarter Themenstarter |hologram|
  • Beginndatum Beginndatum
H

|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
 
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
 
entschuldigung, mein fehler: VB
Ich hatte bloß vergessen die Variable, die ich in einer anderen Funktion bestimmt hatte, auch programmweit zu deklarieren. thx anyway
 
Zurück