German Random Antworten

Hi,
Ist es möglich wenn ich eine frage in eine textbox schreibe, random antworten zu generieren?

Sprich ich habe 4 antworten festgelegt und bekomme eine von den antworten (random)

Mein code bisher -->

If edittext1.Text.Contains("teste es") Then
Dim k As int
Dim i As Int
Dim answers() As String
answers(0)="Hallöchen halli hallo."
answers(1)="test"
answers(2)="test2"
answers(3)="test3"

For i = 0 To 3
i = i+1

Next

For i = 0 To 3
k = Rnd(i, 4)

answers(i) = answers(k)
Next

label1.Text =answers(k)

Bekomme eine arryindexoutofboundsexception

Kann mir jemand bisschen weiterhelfen?

Hallo mcmanu,

die Exception bekommst Du, weil das StringArray für die Antworten nicht korrekt definiert ist.
Insgesamt reichen folgende Anweisungen:


Gruß
specci48

specci48 said:

Hallo mcmanu,

die Exception bekommst Du, weil das StringArray für die Antworten nicht korrekt definiert ist.

B4X:

Dim answers(4) As String

Insgesamt reichen folgende Anweisungen:

B4X:

Dim answers(4) As String
answers(0)="Hallöchen halli hallo."
answers(1)="test"
answers(2)="test2"
answers(3)="test3"
Label1.Text = answers(Rnd(0, 4))

Gruß
specci48

Click to expand...

Danke specci48
Ja stimmt des hatte ich nicht beachtet
Danke dir für die schnelle antwort, es funktioniert super dachte nicht das es so easy ist xD