thuonghcm
03-06-2008, 11:39
chào các bạn, game P bình thường mình làm duoc roi,
Còn cái Biến thể mà mình muốn hỏi là:
VD: nút 1 là số 1 --> giờ mình đổi lại là "A1"...."A2"......
Mình dựa trên ý tưởng cũ: (RND*16) nhưng không lấy số mà lấy Số thứ tự của
mảng MM đã gài sẵn. Ngẫm nghĩ thấy cũng hợp lý mà sao làm hoài nó hỏng chạy các bạn ơi...hic hic hic
Mảng hằng MM cài đặt trong VB6 thì phải làm sao?
{
'MODUL 1
Public Mang(16) As String
Public Sub aTA()
Mang(0) = "A1"
Mang(1) = "A2"
Mang(2) = "A3"
Mang(3) = "Y4"
Mang(4) = "E5"
Mang(5) = "N6"
Mang(6) = "A7"
Mang(7) = "O8"
Mang(8) = "N9"
Mang(9) = "G10"
Mang(10) = "N11"
Mang(11) = "U12"
Mang(12) = "A13"
Mang(13) = "T14"
Mang(14) = "K15"
Mang(15) = ""
End Sub
code bài:
Dim LanCan(16, 4)
Dim SoGiay As Integer
Private Sub Button_Click(Index As Integer)
For i = 0 To 3
If LanCan(Index, i) <> "" Then
If Button(LanCan(Index, i)).Caption = "" Then
Button(LanCan(Index, i)).Caption = Button(Index).Caption
Button(Index).Caption = ""
End If
End If
Next
Call KIEMtra
End Sub
Sub KIEMtra()
dung = 1
aTA
For i = 0 To 14
If Button(i).Caption <> Mang(i) Then
dung = 0
End If
Next
If Button(15).Caption <> "" Then
dung = 0
End If
If dung = 1 Then
thoigian = "Bac Sy Nhat da su dung: " & SoGiay \ 60 & " phut, " & SoGiay Mod 60 & " giay"
MsgBox "BS NGUYEN DONG NHAT da chien thang. " + thoigian
End If
End Sub
Private Sub CMDsaoSo_Click()
aTA
For i = 0 To 15
Button(i).Caption = ""
Next
For i = 0 To 15
Mso = Mang(Int(Rnd * 16))
j = 0
Do While j <= 15
If Mso = Button(j).Caption Then
Mso = Mang(Int(Rnd * 16))
j = 0
Else
j = j + 1
End If
Loop
Button(i).Caption = Mso
Next
For i = 0 To 15
If Button(i).Caption = 0 Then
Button(i).Caption = ""
End If
Next
SoGiay = 0
End Sub
Private Sub CMDTHoaT_Click()
End
End Sub
Private Sub Form_Load()
Call aTA
SoGiay = 0
LanCan(0, 0) = 1
LanCan(0, 1) = 4
LanCan(0, 2) = ""
LanCan(0, 3) = ""
LanCan(1, 0) = 0
LanCan(1, 1) = 2
LanCan(1, 2) = 5
LanCan(1, 3) = ""
LanCan(2, 0) = 1
LanCan(2, 1) = 3
LanCan(2, 2) = 6
LanCan(2, 3) = ""
LanCan(3, 0) = 2
LanCan(3, 1) = 7
LanCan(3, 2) = ""
LanCan(3, 3) = ""
LanCan(4, 0) = 0
LanCan(4, 1) = 5
LanCan(4, 2) = 8
LanCan(4, 3) = ""
LanCan(5, 0) = 1
LanCan(5, 1) = 4
LanCan(5, 2) = 6
LanCan(5, 3) = 9
LanCan(6, 0) = 2
LanCan(6, 1) = 5
LanCan(6, 2) = 7
LanCan(6, 3) = 10
LanCan(7, 0) = 3
LanCan(7, 1) = 6
LanCan(7, 2) = 11
LanCan(7, 3) = ""
LanCan(8, 0) = 4
LanCan(8, 1) = 9
LanCan(8, 2) = 12
LanCan(8, 3) = ""
LanCan(9, 0) = 5
LanCan(9, 1) = 8
LanCan(9, 2) = 10
LanCan(9, 3) = 13
LanCan(10, 0) = 6
LanCan(10, 1) = 9
LanCan(10, 2) = 11
LanCan(10, 3) = 14
LanCan(11, 0) = 7
LanCan(11, 1) = 10
LanCan(11, 2) = 15
LanCan(11, 3) = ""
LanCan(12, 0) = 8
LanCan(12, 1) = 13
LanCan(12, 2) = ""
LanCan(12, 3) = ""
LanCan(13, 0) = 9
LanCan(13, 1) = 12
LanCan(13, 2) = 14
LanCan(13, 3) = ""
LanCan(14, 0) = 10
LanCan(14, 1) = 13
LanCan(14, 2) = 15
LanCan(14, 3) = ""
LanCan(15, 0) = 11
LanCan(15, 1) = 14
LanCan(15, 2) = ""
LanCan(15, 3) = ""
Randomize
For i = 0 To 15
Button(i).Caption = ""
Next
For i = 0 To 15
Mso = Mang(Int(Rnd * 16))
j = 0
Do While j <= 15
If Mso = Button(j).Caption Then
Mso = Mang(Int(Rnd * 16))
j = 0
Else
j = j + 1
End If
Loop
Button(i).Caption = Mso
Next
For i = 0 To 15
If Button(i).Caption = 0 Then
Button(i).Caption = ""
End If
Next
End Sub
Private Sub Timer1_Timer()
SoGiay = SoGiay + 1
End Sub
}
xin cám ơn các bạn
Còn cái Biến thể mà mình muốn hỏi là:
VD: nút 1 là số 1 --> giờ mình đổi lại là "A1"...."A2"......
Mình dựa trên ý tưởng cũ: (RND*16) nhưng không lấy số mà lấy Số thứ tự của
mảng MM đã gài sẵn. Ngẫm nghĩ thấy cũng hợp lý mà sao làm hoài nó hỏng chạy các bạn ơi...hic hic hic
Mảng hằng MM cài đặt trong VB6 thì phải làm sao?
{
'MODUL 1
Public Mang(16) As String
Public Sub aTA()
Mang(0) = "A1"
Mang(1) = "A2"
Mang(2) = "A3"
Mang(3) = "Y4"
Mang(4) = "E5"
Mang(5) = "N6"
Mang(6) = "A7"
Mang(7) = "O8"
Mang(8) = "N9"
Mang(9) = "G10"
Mang(10) = "N11"
Mang(11) = "U12"
Mang(12) = "A13"
Mang(13) = "T14"
Mang(14) = "K15"
Mang(15) = ""
End Sub
code bài:
Dim LanCan(16, 4)
Dim SoGiay As Integer
Private Sub Button_Click(Index As Integer)
For i = 0 To 3
If LanCan(Index, i) <> "" Then
If Button(LanCan(Index, i)).Caption = "" Then
Button(LanCan(Index, i)).Caption = Button(Index).Caption
Button(Index).Caption = ""
End If
End If
Next
Call KIEMtra
End Sub
Sub KIEMtra()
dung = 1
aTA
For i = 0 To 14
If Button(i).Caption <> Mang(i) Then
dung = 0
End If
Next
If Button(15).Caption <> "" Then
dung = 0
End If
If dung = 1 Then
thoigian = "Bac Sy Nhat da su dung: " & SoGiay \ 60 & " phut, " & SoGiay Mod 60 & " giay"
MsgBox "BS NGUYEN DONG NHAT da chien thang. " + thoigian
End If
End Sub
Private Sub CMDsaoSo_Click()
aTA
For i = 0 To 15
Button(i).Caption = ""
Next
For i = 0 To 15
Mso = Mang(Int(Rnd * 16))
j = 0
Do While j <= 15
If Mso = Button(j).Caption Then
Mso = Mang(Int(Rnd * 16))
j = 0
Else
j = j + 1
End If
Loop
Button(i).Caption = Mso
Next
For i = 0 To 15
If Button(i).Caption = 0 Then
Button(i).Caption = ""
End If
Next
SoGiay = 0
End Sub
Private Sub CMDTHoaT_Click()
End
End Sub
Private Sub Form_Load()
Call aTA
SoGiay = 0
LanCan(0, 0) = 1
LanCan(0, 1) = 4
LanCan(0, 2) = ""
LanCan(0, 3) = ""
LanCan(1, 0) = 0
LanCan(1, 1) = 2
LanCan(1, 2) = 5
LanCan(1, 3) = ""
LanCan(2, 0) = 1
LanCan(2, 1) = 3
LanCan(2, 2) = 6
LanCan(2, 3) = ""
LanCan(3, 0) = 2
LanCan(3, 1) = 7
LanCan(3, 2) = ""
LanCan(3, 3) = ""
LanCan(4, 0) = 0
LanCan(4, 1) = 5
LanCan(4, 2) = 8
LanCan(4, 3) = ""
LanCan(5, 0) = 1
LanCan(5, 1) = 4
LanCan(5, 2) = 6
LanCan(5, 3) = 9
LanCan(6, 0) = 2
LanCan(6, 1) = 5
LanCan(6, 2) = 7
LanCan(6, 3) = 10
LanCan(7, 0) = 3
LanCan(7, 1) = 6
LanCan(7, 2) = 11
LanCan(7, 3) = ""
LanCan(8, 0) = 4
LanCan(8, 1) = 9
LanCan(8, 2) = 12
LanCan(8, 3) = ""
LanCan(9, 0) = 5
LanCan(9, 1) = 8
LanCan(9, 2) = 10
LanCan(9, 3) = 13
LanCan(10, 0) = 6
LanCan(10, 1) = 9
LanCan(10, 2) = 11
LanCan(10, 3) = 14
LanCan(11, 0) = 7
LanCan(11, 1) = 10
LanCan(11, 2) = 15
LanCan(11, 3) = ""
LanCan(12, 0) = 8
LanCan(12, 1) = 13
LanCan(12, 2) = ""
LanCan(12, 3) = ""
LanCan(13, 0) = 9
LanCan(13, 1) = 12
LanCan(13, 2) = 14
LanCan(13, 3) = ""
LanCan(14, 0) = 10
LanCan(14, 1) = 13
LanCan(14, 2) = 15
LanCan(14, 3) = ""
LanCan(15, 0) = 11
LanCan(15, 1) = 14
LanCan(15, 2) = ""
LanCan(15, 3) = ""
Randomize
For i = 0 To 15
Button(i).Caption = ""
Next
For i = 0 To 15
Mso = Mang(Int(Rnd * 16))
j = 0
Do While j <= 15
If Mso = Button(j).Caption Then
Mso = Mang(Int(Rnd * 16))
j = 0
Else
j = j + 1
End If
Loop
Button(i).Caption = Mso
Next
For i = 0 To 15
If Button(i).Caption = 0 Then
Button(i).Caption = ""
End If
Next
End Sub
Private Sub Timer1_Timer()
SoGiay = SoGiay + 1
End Sub
}
xin cám ơn các bạn