Programalama > VISUAL BASIC

Etiketler: jandinais, 1.5, oyunu

Ort. 0
Puan ver:
Bu Program SeKo Yazılım Aş ve ltş tarafından yazılmıştır
Program için gerekli araçlar
4 Tane Command Butonu,1Tane Shape (Yuvarlak),3Tane Label,1Tane Timer nesnesi yeterli olacaktır.İsterseniz Oyunu Kendi Zevkinize Göre Geliştirebilirsiniz izin verdim 

---------------------------------------------------------------------------
Option Explicit
Dim b, c As Integer

Private Sub Command3_Click()
Dim cık
cık = MsgBox("Oyundan Sıkıldın mı çıkmak mı istiyon...", 4 + 16 + 256, "Jandinais 1.5 Demo Versiyonu")
If cık = 6 Then End
End Sub

Private Sub Command4_Click()
Form2.Visible = True
Form1.Visible = False
End Sub

Private Sub Form_Load()
Command3.Visible = False
Command4.Visible = False
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X < Command1.Left Then Command1.Left = X
If X > Command1.Left Then Command1.Left = X
End Sub

Private Sub Timer1_Timer()
Shape1.Top = Shape1.Top + b
Shape1.Left = Shape1.Left + c

If Shape1.Top < 0 Then b = 100
'If Shape1.Top > Form1.Height - Shape1.Height Then b = -100
If Shape1.Top > 5700 Then
If (Shape1.Left > Command1.Left And Shape1.Left < Command1.Left + 1000) Then
b = -100
Command1.Width = Val(Command1) + 2000
Text2.Text = Val(Text2) + 10
End If
End If
If Shape1.Left < 0 Then c = 100
If Shape1.Left > Form1.Width - Shape1.Width Then c = -100
If Shape1.Top > 7000 Then Timer1.Enabled = False
If Shape1.Top > 7000 Then Text1.Text = "Yandınız tekrar oynamak istersen BAŞLA butonunu tıkla..."

'If Text2.Text = 10 Then Command1.Width = Command1.Width + 10
If Timer1.Enabled = True Then
Text1.Visible = False
Command2.Visible = False
End If
If Timer1.Enabled = False Then
Text1.Visible = True
Command2.Visible = True
Command3.Visible = True
Command4.Visible = True
End If
End Sub

Private Sub Command2_Click()
Timer1.Enabled = True
Command1.SetFocus
Text1.Text = " "
Shape1.Top = 5700
Command1.SetFocus
Timer1.Enabled = True
Timer1.Interval = 40
b = -100
c = -100
Command3.Visible = False
Command4.Visible = False
End Sub

Selim Koca
slmkc_67@hotmail.com

selim koca
slmkc_67@hotmail.com


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.