Programalama > VISUAL BASIC

Etiketler: asnsör, programı

Ort. 0
Puan ver:
BUNUN İÇİN GEREKLİ GÖRSELLER
6 COMMAND BUTTON  COMMNAD1 ASANSÖR OLSUN
2 TANE TEXT KAÇINCI KATA ÇIKTIĞINI GÖSTERİYOR B.TANESİ DE YANIP SÖNÜYOR
8 TANE TİMER//////// 5 TANESİ FALSE ////////3 TANESİ TRUE


Private Sub Command10_Click()
Text2 = "3.KAT"
If Command1.Top > 2160 Then
Timer4.Enabled = True
End If
If Command1.Top < 2160 Then
Timer8.Enabled = True
End If
Command11.Enabled = False
Command10.Enabled = False
Command9.Enabled = False
Command4.Enabled = False
Command3.Enabled = False
End Sub

Private Sub Command11_Click()
Text2 = "4.KAT"
If Command1.Top > 360 Then
Timer5.Enabled = True
End If
Command11.Enabled = False
Command10.Enabled = False
Command9.Enabled = False
Command4.Enabled = False
Command3.Enabled = False
End Sub

Private Sub Command2_Click()
Command11.Enabled = True
Command10.Enabled = True
Command9.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
End Sub

Private Sub Command3_Click()
Text2 = "1.KAT"
If Command1.Top > 5760 Then
Timer2.Enabled = True
End If
If Command1.Top < 5760 Then
Timer6.Enabled = True
End If
Command11.Enabled = False
Command10.Enabled = False
Command9.Enabled = False
Command4.Enabled = False
Command3.Enabled = False
End Sub

Private Sub Command4_Click()
Text2 = "ZEMİN KAT"
If Command1.Top < 7560 Then
Timer1.Enabled = True
End If
Command11.Enabled = False
Command10.Enabled = False
Command9.Enabled = False
Command3.Enabled = False
Command4.Enabled = True
Command4.Enabled = False
End Sub

Private Sub Command9_Click()
Text2 = "2.KAT"
If Command1.Top > 3960 Then
Timer3.Enabled = True
End If
If Command1.Top < 3960 Then
Timer7.Enabled = True
End If
Command11.Enabled = False
Command10.Enabled = False
Command9.Enabled = False
Command4.Enabled = False
Command3.Enabled = False
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer2.Enabled = False
Timer3.Enabled = False
Timer4.Enabled = False
Timer5.Enabled = False
Timer6.Enabled = False
Timer7.Enabled = False
Timer8.Enabled = False

Command11.Enabled = True
Command10.Enabled = True
Command9.Enabled = True
Command4.Enabled = True
Command4.Enabled = False
Command3.Enabled = True
Text2 = "ZEMİN KAT"
End Sub



Private Sub Timer1_Timer()
Dim d
d = Text1.BackColor
Text1.BackColor = Text1.ForeColor
Text1.ForeColor = d
Command1.Top = Command1.Top + 10
If Command1.Top = 7560 Then
Timer1.Enabled = False
Command11.Enabled = True
Command10.Enabled = True
Command9.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command4.Enabled = False
End If
End Sub


Private Sub Timer2_Timer()
Dim d
d = Text1.BackColor
Text1.BackColor = Text1.ForeColor
Text1.ForeColor = d
Command1.Top = Command1.Top - 10
If Command1.Top = 5760 Then
Timer2.Enabled = False
Command11.Enabled = True
Command10.Enabled = True
Command9.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command3.Enabled = False
End If
End Sub

Private Sub Timer3_Timer()
Dim d
d = Text1.BackColor
Text1.BackColor = Text1.ForeColor
Text1.ForeColor = d
Command1.Top = Command1.Top - 10
If Command1.Top = 3960 Then
Timer3.Enabled = False
Command11.Enabled = True
Command10.Enabled = True
Command9.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command9.Enabled = False
End If
End Sub

Private Sub Timer4_Timer()
Dim d
d = Text1.BackColor
Text1.BackColor = Text1.ForeColor
Text1.ForeColor = d
Command1.Top = Command1.Top - 10
If Command1.Top = 2160 Then
Timer4.Enabled = False
Command11.Enabled = True
Command10.Enabled = True
Command9.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command10.Enabled = False
End If
End Sub

Private Sub Timer5_Timer()
Dim d
d = Text1.BackColor
Text1.BackColor = Text1.ForeColor
Text1.ForeColor = d
Command1.Top = Command1.Top - 10
If Command1.Top = 360 Then
Timer5.Enabled = False
Command11.Enabled = True
Command10.Enabled = True
Command9.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command11.Enabled = False
End If
End Sub

Private Sub Timer6_Timer()
Dim d
d = Text1.BackColor
Text1.BackColor = Text1.ForeColor
Text1.ForeColor = d
Command1.Top = Command1.Top + 10
If Command1.Top = 5760 Then
Timer6.Enabled = False
Command11.Enabled = True
Command10.Enabled = True
Command9.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command3.Enabled = False
End If
End Sub

Private Sub Timer7_Timer()
Dim d
d = Text1.BackColor
Text1.BackColor = Text1.ForeColor
Text1.ForeColor = d
Command1.Top = Command1.Top + 10
If Command1.Top = 3960 Then
Timer7.Enabled = False
Command11.Enabled = True
Command10.Enabled = True
Command9.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
Command9.Enabled = False
Command10.Enabled = True
End If
End Sub

Private Sub Timer8_Timer()
Dim d
d = Text1.BackColor
Text1.BackColor = Text1.ForeColor
Text1.ForeColor = d
Command1.Top = Command1.Top + 10
If Command1.Top = 2160 Then
Timer8.Enabled = False
Command11.Enabled = True
Command10.Enabled = True
Command9.Enabled = True
Command4.Enabled = True
Command3.Enabled = True
End If
End Sub


mehmet rıfat dedeoğlu
giresun  espiye


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 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.