Campo Minato - campo minato.frm

campo minato.frm

Caricato da:
Scarica il programma completo


	Option Explicit Dim cas(0 To 224) As String Public Sub Command1_Click(index As Integer) Dim m, r, p As Integer Dim u As Boolean Dim q As Integer If che.Value = 1 Then Command1(index).Picture = Picture2.Picture Exit Sub End If If che.Value = 0 Then Command1(index).Picture = Nothing End If For q = 0 To 224 cas(q) = "" Next q If Command1(index).Tag = "M" Then For q = 0 To 224 If Command1(q).Tag = "M" Then If Command1(q).Picture = Picture2.Picture Then Command1(q).Picture = Picture3.Picture Else: Command1(q).Picture = Picture1.Picture End If End If Next q MsgBox "Haaaaaaaaaaaiiiii Persoooo!!!!!" Call Form_Load Exit Sub End If m = 0 p = index If Command1(index).Left = 1200 And index <> 224 And index <> 14 Then If Command1(index - 15).Tag = "M" Then m = m + 1 If Command1(index - 16).Tag = "M" Then m = m + 1 If Command1(index - 1).Tag = "M" Then m = m + 1 If Command1(index + 14).Tag = "M" Then m = m + 1 If Command1(index + 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" index = p - 15 Call esAmina(index) index = p - 16 Call esAmina(index) index = p - 1 Call esAmina(index) index = p + 15 Call esAmina(index) index = p + 14 Call esAmina(index) End If ElseIf Command1(index).Left = 7920 And index <> 0 And index <> 210 Then If Command1(index - 15).Tag = "M" Then m = m + 1 If Command1(index - 14).Tag = "M" Then m = m + 1 If Command1(index + 1).Tag = "M" Then m = m + 1 If Command1(index + 16).Tag = "M" Then m = m + 1 If Command1(index + 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" index = p - 15 Call esAmina(index) index = p - 14 Call esAmina(index) index = p + 15 Call esAmina(index) index = p + 16 Call esAmina(index) index = p + 1 Call esAmina(index) End If ElseIf Command1(index).Top = 480 And index <> 0 And index <> 14 Then If Command1(index - 1).Tag = "M" Then m = m + 1 If Command1(index + 1).Tag = "M" Then m = m + 1 If Command1(index + 14).Tag = "M" Then m = m + 1 If Command1(index + 16).Tag = "M" Then m = m + 1 If Command1(index + 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" index = p - 1 Call esAmina(index) index = p + 15 Call esAmina(index) index = p + 14 Call esAmina(index) index = p + 16 Call esAmina(index) index = p + 1 Call esAmina(index) End If ElseIf Command1(index).Top = 7200 And index <> 224 And index <> 210 Then If Command1(index - 1).Tag = "M" Then m = m + 1 If Command1(index + 1).Tag = "M" Then m = m + 1 If Command1(index - 14).Tag = "M" Then m = m + 1 If Command1(index - 16).Tag = "M" Then m = m + 1 If Command1(index - 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" index = p - 15 Call esAmina(index) index = p - 16 Call esAmina(index) index = p - 14 Call esAmina(index) index = p - 1 Call esAmina(index) index = p + 1 Call esAmina(index) End If ElseIf index = 0 Then If Command1(index + 1).Tag = "M" Then m = m + 1 If Command1(index + 16).Tag = "M" Then m = m + 1 If Command1(index + 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" index = p + 15 Call esAmina(index) index = p + 16 Call esAmina(index) index = index + 1 Call esAmina(index) End If ElseIf index = 14 Then If Command1(index - 1).Tag = "M" Then m = m + 1 If Command1(index + 14).Tag = "M" Then m = m + 1 If Command1(index + 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" index = p - 1 Call esAmina(index) index = p + 15 Call esAmina(index) index = p + 14 Call esAmina(index) End If ElseIf index = 210 Then If Command1(index + 1).Tag = "M" Then m = m + 1 If Command1(index - 14).Tag = "M" Then m = m + 1 If Command1(index - 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" index = p - 15 Call esAmina(index) index = p - 14 Call esAmina(index) index = p + 1 Call esAmina(index) End If ElseIf index = 224 Then If Command1(index - 1).Tag = "M" Then m = m + 1 If Command1(index - 16).Tag = "M" Then m = m + 1 If Command1(index - 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" index = p - 15 Call esAmina(index) index = p - 16 Call esAmina(index) index = p - 1 Call esAmina(index) End If Else If Command1(index - 15).Tag = "M" Then m = m + 1 If Command1(index - 16).Tag = "M" Then m = m + 1 If Command1(index - 1).Tag = "M" Then m = m + 1 If Command1(index + 14).Tag = "M" Then m = m + 1 If Command1(index + 15).Tag = "M" Then m = m + 1 If Command1(index - 14).Tag = "M" Then m = m + 1 If Command1(index + 1).Tag = "M" Then m = m + 1 If Command1(index + 16).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" index = p - 15 Call esAmina(index) index = p - 16 Call esAmina(index) index = p - 14 Call esAmina(index) index = p - 1 Call esAmina(index) index = p + 15 Call esAmina(index) index = p + 14 Call esAmina(index) index = p + 16 Call esAmina(index) index = p + 1 Call esAmina(index) End If End If For r = 0 To 224 If cas(r) <> "" Then index = cas(r) Call esaminasecondo(index) End If Next r u = True For q = 1 To 224 If Command1(q).BackColor = &H8000000F Then If Command1(q).Caption = "" Then If Command1(q).Tag <> "M" Then u = False Exit For End If End If End If Next q If u = True Then For q = 0 To 224 If Command1(q).Tag = "M" Then If Command1(q).Picture = Picture2.Picture Then Command1(q).Picture = Picture3.Picture Else: Command1(q).Picture = Picture1.Picture End If End If Next q MsgBox "Cooooooooomplimentiiiii!!!!!!!!!!!" Call Form_Load End If End Sub Private Sub Form_Load() Dim i As Integer For i = 0 To 224 Command1(i).Enabled = False Next i End Sub Private Sub nuovo_Click() Dialog.Show End Sub Public Sub esAmina(index As Integer) Dim m, o As Integer m = 0 If Command1(index).Tag = "0" Then Exit Sub If Command1(index).Left = 1200 And index <> 224 And index <> 14 Then If Command1(index - 15).Tag = "M" Then m = m + 1 If Command1(index - 16).Tag = "M" Then m = m + 1 If Command1(index - 1).Tag = "M" Then m = m + 1 If Command1(index + 14).Tag = "M" Then m = m + 1 If Command1(index + 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" For o = 0 To 224 If cas(o) = "" Then cas(o) = index Exit For End If Next o End If ElseIf Command1(index).Left = 7920 And index <> 0 And index <> 210 Then If Command1(index - 15).Tag = "M" Then m = m + 1 If Command1(index - 14).Tag = "M" Then m = m + 1 If Command1(index + 1).Tag = "M" Then m = m + 1 If Command1(index + 16).Tag = "M" Then m = m + 1 If Command1(index + 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" For o = 1 To 224 If cas(o) = "" Then cas(o) = index Exit For End If Next o End If ElseIf Command1(index).Top = 480 And index <> 0 And index <> 14 Then If Command1(index - 1).Tag = "M" Then m = m + 1 If Command1(index + 1).Tag = "M" Then m = m + 1 If Command1(index + 14).Tag = "M" Then m = m + 1 If Command1(index + 16).Tag = "M" Then m = m + 1 If Command1(index + 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" For o = 1 To 224 If cas(o) = "" Then cas(o) = index Exit For End If Next o End If ElseIf Command1(index).Top = 7200 And index <> 224 And index <> 210 Then If Command1(index - 1).Tag = "M" Then m = m + 1 If Command1(index + 1).Tag = "M" Then m = m + 1 If Command1(index - 14).Tag = "M" Then m = m + 1 If Command1(index - 16).Tag = "M" Then m = m + 1 If Command1(index - 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" For o = 1 To 224 If cas(o) = "" Then cas(o) = index Exit For End If Next o End If ElseIf index = 0 Then If Command1(index + 1).Tag = "M" Then m = m + 1 If Command1(index + 16).Tag = "M" Then m = m + 1 If Command1(index + 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" For o = 1 To 224 If cas(o) = "" Then cas(o) = index Exit For End If Next o End If ElseIf index = 14 Then If Command1(index - 1).Tag = "M" Then m = m + 1 If Command1(index + 14).Tag = "M" Then m = m + 1 If Command1(index + 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" For o = 1 To 224 If cas(o) = "" Then cas(o) = index Exit For End If Next o End If ElseIf index = 210 Then If Command1(index + 1).Tag = "M" Then m = m + 1 If Command1(index - 14).Tag = "M" Then m = m + 1 If Command1(index - 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" For o = 1 To 224 If cas(o) = "" Then cas(o) = index Exit For End If Next o End If ElseIf index = 224 Then If Command1(index - 1).Tag = "M" Then m = m + 1 If Command1(index - 16).Tag = "M" Then m = m + 1 If Command1(index - 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" For o = 1 To 224 If cas(o) = "" Then cas(o) = index Exit For End If Next o End If Else If Command1(index - 15).Tag = "M" Then m = m + 1 If Command1(index - 16).Tag = "M" Then m = m + 1 If Command1(index - 1).Tag = "M" Then m = m + 1 If Command1(index + 14).Tag = "M" Then m = m + 1 If Command1(index + 15).Tag = "M" Then m = m + 1 If Command1(index - 14).Tag = "M" Then m = m + 1 If Command1(index + 1).Tag = "M" Then m = m + 1 If Command1(index + 16).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" For o = 1 To 224 If cas(o) = "" Then cas(o) = index Exit For End If Next o End If End If End Sub Public Sub esaminasecondo(index As Integer) Dim b, m As Integer m = 0 b = index If Command1(index).Left = 1200 And index <> 224 And index <> 14 Then If Command1(index - 15).Tag = "M" Then m = m + 1 If Command1(index - 16).Tag = "M" Then m = m + 1 If Command1(index - 1).Tag = "M" Then m = m + 1 If Command1(index + 14).Tag = "M" Then m = m + 1 If Command1(index + 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" index = b - 15 Call esAmina(index) index = b - 16 Call esAmina(index) index = b - 1 Call esAmina(index) index = b + 15 Call esAmina(index) index = b + 14 Call esAmina(index) End If ElseIf Command1(index).Left = 7920 And index <> 0 And index <> 210 Then If Command1(index - 15).Tag = "M" Then m = m + 1 If Command1(index - 14).Tag = "M" Then m = m + 1 If Command1(index + 1).Tag = "M" Then m = m + 1 If Command1(index + 16).Tag = "M" Then m = m + 1 If Command1(index + 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" index = b - 15 Call esAmina(index) index = b - 14 Call esAmina(index) index = b + 15 Call esAmina(index) index = b + 16 Call esAmina(index) index = b + 1 Call esAmina(index) End If ElseIf Command1(index).Top = 480 And index <> 0 And index <> 14 Then If Command1(index - 1).Tag = "M" Then m = m + 1 If Command1(index + 1).Tag = "M" Then m = m + 1 If Command1(index + 14).Tag = "M" Then m = m + 1 If Command1(index + 16).Tag = "M" Then m = m + 1 If Command1(index + 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" index = b - 1 Call esAmina(index) index = b + 15 Call esAmina(index) index = b + 14 Call esAmina(index) index = b + 16 Call esAmina(index) index = b + 1 Call esAmina(index) End If ElseIf Command1(index).Top = 7200 And index <> 224 And index <> 210 Then If Command1(index - 1).Tag = "M" Then m = m + 1 If Command1(index + 1).Tag = "M" Then m = m + 1 If Command1(index - 14).Tag = "M" Then m = m + 1 If Command1(index - 16).Tag = "M" Then m = m + 1 If Command1(index - 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" index = b - 15 Call esAmina(index) index = b - 16 Call esAmina(index) index = b - 14 Call esAmina(index) index = b - 1 Call esAmina(index) index = b + 1 Call esAmina(index) End If ElseIf index = 0 Then If Command1(index + 1).Tag = "M" Then m = m + 1 If Command1(index + 16).Tag = "M" Then m = m + 1 If Command1(index + 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" index = b + 15 Call esAmina(index) index = b + 16 Call esAmina(index) index = b + 1 Call esAmina(index) End If ElseIf index = 14 Then If Command1(index - 1).Tag = "M" Then m = m + 1 If Command1(index + 14).Tag = "M" Then m = m + 1 If Command1(index + 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" index = b - 1 Call esAmina(index) index = b + 15 Call esAmina(index) index = b + 14 Call esAmina(index) End If ElseIf index = 210 Then If Command1(index + 1).Tag = "M" Then m = m + 1 If Command1(index - 14).Tag = "M" Then m = m + 1 If Command1(index - 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" index = b - 15 Call esAmina(index) index = b - 14 Call esAmina(index) index = b + 1 Call esAmina(index) End If ElseIf index = 224 Then If Command1(index - 1).Tag = "M" Then m = m + 1 If Command1(index - 16).Tag = "M" Then m = m + 1 If Command1(index - 15).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" index = b - 15 Call esAmina(index) index = b - 16 Call esAmina(index) index = b - 1 Call esAmina(index) End If Else If Command1(index - 15).Tag = "M" Then m = m + 1 If Command1(index - 16).Tag = "M" Then m = m + 1 If Command1(index - 1).Tag = "M" Then m = m + 1 If Command1(index + 14).Tag = "M" Then m = m + 1 If Command1(index + 15).Tag = "M" Then m = m + 1 If Command1(index - 14).Tag = "M" Then m = m + 1 If Command1(index + 1).Tag = "M" Then m = m + 1 If Command1(index + 16).Tag = "M" Then m = m + 1 If m <> 0 Then Command1(index).Caption = m If m = 0 Then Command1(index).BackColor = &H80000011 Command1(index).Tag = "0" index = b - 15 Call esAmina(index) index = b - 16 Call esAmina(index) index = b - 14 Call esAmina(index) index = b - 1 Call esAmina(index) index = b + 15 Call esAmina(index) index = b + 14 Call esAmina(index) index = b + 16 Call esAmina(index) index = b + 1 Call esAmina(index) End If End If End Sub