Over eller under spil

Du laver 3 variabler, thisNum, lastNum og nextHi.
thisNum har den aktuelle værdi.
lastNum har forige værdi.
nextHi er true eller false, alt efter hvad der er blevet gættet på (hvilken knap der er blevet trykket).

Du starter med at generere tilfældighed, med randomize, og trækker et nummer som du bruger som både lastNum og thisNum.

Dette nummer smider du i en label som er imellem to knapper, over og under knapperne.

Ved tryk på over/under sætter du nextHi og kalder en Sub for at trække næste tilfældige nummer og tjekke om det blev som der blev gættet.

Hvis ikke så går du til slut, men jeg har bare taget end ud, du vil nok have en pause elle rnoget anden, men det sætter du bare selv ind.


Her er koden:

Dim thisNum As Integer
Dim lastNum As Integer
Dim nextHi As Boolean

Private Sub CommandOver_Click()
nextHi = True
pullNext
End Sub

Private Sub CommandUnder_Click()
nextHi = False
pullNext
End Sub

Private Sub Form_Load()
Randomize (Timer)
thisNum = (Rnd(Timer) * 100)
lastNum = thisNum
Label1.Caption = thisNum
End Sub

Private Sub pullNext()
thisNum = (Rnd(Timer) * 100)
Label1.Caption = thisNum
If (nextHi = True) Then
  If (thisNum < lastNum) Then
    endGame
  End If
Else
  If (thisNum > lastNum) Then
    endGame
  End If
End If
lastNum = thisNum
End Sub

Private Sub endGame()
Label1.Caption = "Tallet var " & thisNum & ", du tabte"
'End
End Sub

Andre har stadig muligheden for at besvare spørgsmålet. Så vælger jeg den der er nemest forklaret samt jeg bedst kan li.
Tjekker dem i weekenden så skynd jer hvis i vil ha de 200 up.

CYA

DIN DINGO!!!
Hvorfor har du oprettet et nyt forum? Jeg har siddet og svaret på det helt samme spørgsmål i dit andedet forum! ventet.... hvornår mon han svare om det jeg har svaret er godt nok? Og så har du bare oprettet et nyt forum!

Du skal bruge:
en knap; name=cmdOver
en knap; name=cmdUnder
en label; name=lblNumber

Dim number As Integer

Private Sub cmdOver_Click()
    Randomize
    number = Int(12 * Rnd + 1)
    If Int(number) = Int(lblNumber.Caption) Then
        cmdOver_Click
        Exit Sub
    End If
    If Int(number) > Int(lblNumber.Caption) Then
        lblNumber.Caption = number
    Else
        MsgBox "Desværre tallet var: " & number
        End
    End If
End Sub

Private Sub cmdUnder_Click()
    Randomize
    number = Int(12 * Rnd + 1)
    If Int(number) = Int(lblNumber.Caption) Then
        cmdOver_Click
        Exit Sub
    End If
    If Int(number) < Int(lblNumber.Caption) Then
        lblNumber.Caption = number
    Else
        MsgBox "Desværre tallet var: " & number
        End
    End If
End Sub

Private Sub Form_Load()
    Randomize
    number = Int(12 * Rnd + 1)
    lblNumber.Caption = number
End Sub

PS. Jeg har tilføjet en ting der gør at den aldrig vælger det samme tal 2 gange da det kan give problemmer...

PPS. Grunden til at jeg skriver int foran det meste er fordi at lblNumber.Caption giver en String, men number er jo en integer så vi skriver int sådan at den der String også bliver en integer.

PPPS. Randomize funktionen forklarede jeg i det andede program.

HAP har en fejl i sin kode.
Hvis det betyder noget, så kan jeg godt lave det så samme tal ikke kommer lige efter hinanden.
Min kode bruger Randomize, og bruger Timer 8system tid i millisekunder eller noget i den stil) til at initiere med .. og det göres kun i form_load .. andet er unödvendigt syntes jeg.

Hvis du vil have sikring imod at numeret bliver samme som sidst så ændres blocken:

Private Sub pullNext()
thisNum = (Rnd(Timer) * 100)
Label1.Caption = thisNum
If (nextHi = True) Then
  If (thisNum < lastNum) Then
    endGame
  End If
Else
  If (thisNum > lastNum) Then
    endGame
  End If
End If
lastNum = thisNum
End Sub

til

Private Sub pullNext()
thisNum = (Rnd(Timer) * 100)
If (thisNum = lastNum) Then
  pullNext
  Exit Sub
End If
Label1.Caption = thisNum
If (nextHi = True) Then
  If (thisNum < lastNum) Then
    endGame
  End If
Else
  If (thisNum > lastNum) Then
    endGame
  End If
End If
lastNum = thisNum
End Sub

Min kode laver numre fra 0 til 99 .. skal det ændres siger du det bare.
HAP trækker fra 1 til 12.

Nu må du snart vælge