[davi96]

Hallo Leute

Ich bin in einer Informatikerlehre als Applikationsentwickler und habe die Aufgabe ein Zahlenratenspiel zu programmieren in VBA.

Sub Zahlenraten()

Dim i As Integer

i = Int((100 - 0 + 1) * Rnd + 0)

Do


a = InputBox("Bitte raten.")
    
    If i > a Then
    MsgBox "Grösser"
    End If
    
    If i < a Then
    MsgBox "Kleiner"
    End If
    
    If i = a Then
    MsgBox "Gewonnen"
    End If
    
Loop
    

End Sub

Es funktioniert auch mehr oder weniger, mein Problem ist, es ist immer die Zahl 71. Der Fehler muss beim generieren der Zufallszahl sein, aber ich finde ihn nicht. Vielleicht kann mir jemand von euch helfen?

Und es muss doch auch gehen ohne so viele If Abfragen? Im Internet habe ich viele Musterlösungen gefunden, aber ich möchte nicht einfach eine kopieren.

Grüsse
David

[Quabla]

wie funktioniert denn der zufalszahlen generator? ich nehmen mal an, das ist hier die methode rnd. allgemein, kann man zufallszahlengeneratoren einen so genannten "seed" übergeben. wenn man ein und den selben zufallsgenerator 2 mal mit dem gleichen seed aufruft, kommt auch die gleiche zahl raus. also guck am besten mal in die dokumentation dieser funktion, da gibt bestimmt was, was die systemzeit oder sowas als seed benutzt.


edit:
wenn du es gar nicht hinbekommst, schreib den zufallsgenerator einfach selber. hier ist mal ein linear kongruenter in c++. die zeilen in denen prev_rnd vorkommt, sorgen hier dafür, dass wenn man den generator ohne übergabeparameter mehrmals hintereinander ausführt, er trotzdem unterschiedliche zufallszahlen liefert. was aber nur dann funktioniert, wenn das programm in der zwischenzeit nicht beendet/ neu gestartet wird. ich tippe mal, dass der zufallsgenerator in vba ähnlich programmiert ist, und er deshalb immer mit einem speziefischem seed, in meinem fall der 0, anfängt, wenn man ihm nichts übergibt.

int rnd(int x = 0){
    static int prev_rnd = x;
    int m = 10000;
    int a = 1601;
    int b = 3456;
    if(x==0) x=prev_rnd;
    x = (a*x+b) % m;
    prev_rnd = x;
    return x;
}

der erzeugt jetzt zufallszahlen zwischen 0 und 10000. du musst also für deine zwecke:

i = Int((100 - 0 + 1) * Rnd()/10000. + 0)

verwenden

[Berlin1992]

Bevor du das erste Mal Rnd verwendest, musst du genau einmal Randomize aufrufen.

[eitch100]

So funzt es (hier mit nem CommandButton)... ohne Randomize ist der erste Zufall immer 71 und ohne 'Exit Sub' wird's ne Endlosschleife...

Private Sub CommandButton1_Click()
Dim i As Integer
Randomize
i = Int((100 - 0 + 1) * Rnd + 0)
[A1] = i 'Nur als Test gedacht, um i zu wissen
Do
a = InputBox("Bitte raten.")

If i > a Then
MsgBox "Grösser"
End If

If i < a Then
MsgBox "Kleiner"
End If

If i = a Then
MsgBox "Gewonnen"
Exit Sub 'Damit es keine Endlosschleife wird
End If

Loop
End Sub

Und hier dasselbe quasi mit Versuchsauswertung...

Private Sub CommandButton1_Click()
Dim i As Integer
Dim n
n = 1
[A:A].ClearContents
Randomize
i = Int((100 - 0 + 1) * Rnd + 0)

Do
a = InputBox("Bitte raten.")

If i > a Then
MsgBox "Grösser"
Cells(n, 1).Value = "Versuch " & n & " war " & a & ", die Lösung ist größer."
End If

If i < a Then
MsgBox "Kleiner"
Cells(n, 1).Value = "Versuch " & n & " war " & a & ", die Lösung ist kleiner."
End If

If i = a Then
MsgBox "Gewonnen"
Cells(n, 1).Value = a & " ist richtig! Das waren " & n & " Versuche."
Exit Sub 'Damit es keine Endlosschleife wird
End If

n = n + 1

Loop
End Sub