nehmen wir mal an wir haben ein Spiel mit 6 Buttons und 1er davon soll der richtige sein und die anderen 5 falsch und man will das der richtige Button ,der letzendlich den Sieg bringt, immer woanders liegt.
Was muss ich als Code eingeben um den Faktor Zufall zu erhalten?
RND
Generates a random integer larger or equal to the minimum value and smaller than the maximum value.
Syntax: Rnd (Minimum Value, Maximum Value)
Example:
i = Rnd (30, 60)
Hier mal ein kleiner Codeschnippsel (ich kenne mich mit B4PPC nicht aus):
B4X:
Sub Globals
Dim Zufall As Integer
End Sub
Sub App_Start
Form1.Show
Zufall = Rnd(1, 6)
For i = 1 To 6
AddButton("Form1", "Btn" & i, 100 ,25 * i,50,20,i)
AddEvent("Btn" & i,Click, "Btn_Click")
Next
End Sub
Sub Btn_Click
If Sender.text = Zufall Then
Msgbox("Ja")
Else
Msgbox("Nein")
End If
End Sub