نیاز به راهنمایی برای یک بازی ساده!
سلام ، من میخواستم یه بازی بسازم که با label3 به عکس متحرک شلیک کنم و وقتی گلوله به عکس خورد امتیاز بده
یه بازی دیگه ای درآمد اینم کدشه:41::41::41::41:
موارد مورد نیاز:
این کد با دکمه های A,S,D,W کار میکنه.
{ دوتا label ، یک تایمر ، یک عکس }
توروخدا کمکم کنید.:19::19::19:
Dim X As Integer
Dim Y As Integer
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 68 Then
Label1.Left = Label1.Left + 100
End If
If KeyAscii = 65 Then
Label1.Left = Label1.Left - 100
End If
If KeyAscii = 87 Then
Label1.Top = Label1.Top - 100
End If
If KeyAscii = 83 Then
Label1.Top = Label1.Top + 100
End If
X = Label1.Left + ' width =735
Y = Label1.Top + ' height =735
If (X >= Image1.Left) And ((X <= Image1.Left + 810)) And (Y >= Image1.Top) And ((Y <= Image1.Top + 330)) Then
Label2.Caption = Val(Label2.Caption) + 10
End If
End Sub
Private Sub Timer1_Timer()
Image1.Left = Image1.Left + 100
End Sub
