Const h = 7350
Dim i As Integer, j As Integer
Public lev As Integer, f As Boolean
Dim numb As Integer, col As Integer
Dim cresc As Integer
Sub sort(m As Integer)
Dim temp As Integer
For i = 0 To m - 1
For j = i + 1 To m - 1
If v(i) > v(j) Then
temp = v(i)
v(i) = v(j)
v(j) = temp
End If
Next j
Next i
End Sub
Sub number(num As Integer)
For i = 0 To num - 1
f = False
Randomize
numb = Int(Rnd * 13) + 1
col = Int(Rnd * 13) + 1
For j = 0 To i
If numb = v(j) Then
f = True
i = i - 1
End If
Next j
If Not f Then
v(i) = numb
Text1(i).ForeColor = QBColor(col)
Text1(i).Text = v(i)
End If
Next i
For i = 0 To lev - 1
v(i) = Text1(i).Text
vett(i) = v(i)
Next i
Call sort(lev)
Timer1.Enabled = True
End Sub
Sub level(n As Integer)
For i = 0 To n - 1
Text1(i).Visible = True
Next i
Call number(n)
End Sub
Private Sub cmdc_Click()
For i = 0 To lev - 2
If Text1(i).Text = "" Then
Exit Sub
End If
Next i
cmdc.Visible = False
For i = 0 To lev - 2
cresc = CInt(Text1(i).Text)
If cresc <> v(i) Then
lblstart.Caption = "La sequenza non è esatta"
Form2.Show
MsgBox "HAI PERSO", vbInformation, "GAME OVER"
cmdgo.Visible = True
lblstart.Caption = "Memorizza e poi ordina in modo crescente"
Call Form_Load
Exit Sub
End If
Next i
lblstart.Caption = "La sequenza è esatta"
Timer2.Enabled = True
End Sub
Private Sub cmdgo_Click()
Unload Form2
Form1.Height = h
cmdgo.Visible = False
Call level(lev)
If lev < 12 Then
lev = lev + 1
End If
End Sub
Private Sub Form_Load()
f = False
lev = 2
For i = 0 To 12
Text1(i).Text = ""
Text1(i).Visible = False
Next i
End Sub
Private Sub Text1_Change(Index As Integer)
If Not IsNumeric(Text1(Index).Text) Then
Text1(Index).Text = ""
End If
End Sub
Private Sub Timer1_Timer()
For i = 0 To lev - 1
Text1(i).Text = ""
Next i
cmdc.Visible = True
Timer1.Enabled = False
End Sub
Private Sub Timer2_Timer()
Call cmdgo_Click
Timer2.Enabled = False
End Sub