German Random Antworten

[mcmanu]

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?

 

[specci48]

Hallo mcmanu,

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

Dim answers(4) As String

Insgesamt reichen folgende Anweisungen:

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

 

[mcmanu]

Hallo mcmanu,

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

Dim answers(4) As String

Insgesamt reichen folgende Anweisungen:

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

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