Başlangıç > Kodlar > Visual Basic 6 ile Top oyunu (Yön tuşlarıyla)

Visual Basic 6 ile Top oyunu (Yön tuşlarıyla)


Eklenecek nesneler; label1(X), label2(Y), label3, label4
shape1- shape özelliğinden circle seçiyoruz,
Image1(yukarı ok), Image2(aşağı ok), Image3(sola ok), Image4(sağa ok)
--> Module Açıyoruz En son Bölümü Modüle Yazıyoruz
(Modül Açmak İçin; Project-> Add Module Seçiyoruz)

Private Sub Form_Load()
Label3.Caption = Shape1.Left
Label4.Caption = Shape1.Top
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
gez 0, -50
If Label4.Caption = 10 Then
MsgBox ("En Üst Sınırdasınız")
Shape1.Top = 60
End If
End Sub
Private Sub Image2_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
gez 0, 50
If Label4.Caption = 5660 Then
MsgBox ("En Alt Sınırdasınız")
Shape1.Top = 5610
End If
End Sub

Private Sub Image3_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
gez -50, 0
If Label3.Caption = 0 Then
MsgBox ("En Sol Sınırdasınız")
Shape1.Left = 50
End If
End Sub

Private Sub Image4_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
gez 50, 0
If Label3.Caption = 8400 Then
MsgBox ("En Sağ Sınırdasınız")
Shape1.Left = 8350
End If

End Sub

' --------------- MODÜL İÇİN----------------
Public Sub gez(x As Integer, y As Integer)
Form1.Shape1.Left = Form1.Shape1.Left + x
Form1.Label3.Caption = Form1.Shape1.Left
Form1.Shape1.Top = Form1.Shape1.Top + y
Form1.Label4.Caption = Form1.Shape1.Top
End Sub
' ------------------------------------------------


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Çıkış  Yap / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: