Over under spil

Lav en Textbox...
Lav en Command Button...

Når man trykker på knappen skal følgende kode blive udført:

if text1.text > number then   
  msgbox "Du gættede for højt!"    
elseif text1.text < number then    
  msgbox "Du gættede for lavt!"
else    
  msgbox "Du gættede tallet!"
end if

Men det er ikke helt nok da vi også skal have fundet et tilfældigt nummer (number). Så når formen loader skal følgende kode blive udført:

Randomize    
number = int(rnd*13+1)

Det var det...
Hele koden som er lige til at sætte ind ser sådan ud og som er kommenteret:

Dim number

Private Sub Command1_Click()

 '// Hvis tallet (text1.text) er højere (>) end nummeret (number)
If Text1.Text > number Then

 '// Skriver en besked ("Du gættede for højt!") i en box (msgbox)
  MsgBox "Du gættede for højt!"

  '// Hvis tallet (text1.text) er lavere (<) end nummeret (number)
ElseIf Text1.Text < number Then

  MsgBox "Du gættede for lavt!"

  '// Hvis det hverken er for højt eller for lavt må det være rigtigt!
Else

  MsgBox "Du gættede tallet!"

End If

End Sub

Private Sub Form_Load()

  '// Gør computeren klar til at vælge et tilfældigt tal hver gang man skriver "rnd"
Randomize

  '// Sætter nummeret (number) til at være et tilfældigt tal (rnd) mellem 1 - 13 ( * 13 + 1) afrundet 
  '// til et helt tal(Int)... Hvis der ikke stod " + 1" ville det være mellem 0 - 12 da man altid i
  '// computersprog tæller fra 0
number = Int(Rnd * 13 + 1)

End Sub

[Redigeret d. 17/04-03 17:37:53 af HAP]

Hvad er et over under spil?

Hvad er et over under spil?

Det er et spil hvor man skal gætte om det næste tal er over eller under det forrige... Spillet skal gå fra tallene 1-13.

Hvis du gerne vil have den til at tælle hvor mange forsøg personen brugte på at gætte tallet skal du bruge denne kode:

Dim try As Integer
Dim number As Integer

Private Sub Command1_Click()
  '// Når man trykker på knappen hæves antal forsøg med 1
  try = try + 1  
  If Text1.Text > number Then
    MsgBox "Du gættede for højt!"
  ElseIf Text1.Text < number Then
    MsgBox "Du gættede for lavt!"
  Else
   '// Skriver det samme som tidligere men skriver også hvor mange forsøg man brugte
    MsgBox "Du gættede tallet på " & try & " forsøg!"
  End If
End Sub

Private Sub Form_Load()
  Randomize
  number = Int(Rnd * 13 + 1)
End Sub

[Redigeret d. 17/04-03 17:42:20 af HAP]

Er det godt nok?
[Redigeret d. 17/04-03 17:42:05 af HAP]

Er det godt nok?
[Redigeret d. 17/04-03 17:42:05 af HAP]

Nej det var ikke sårn spillet skulle være... Der skal være 2 knapper en der hedder over og en der hedder under. Så skal man gætte om det næste tal er over eller under det forrige... Hvis man gætter rigtigt forsætter det. Og hvis man gætter wrong har man bare tabt..
CYA

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.