Programalama > VISUAL BASIC

VISUAL BASIC / Asnsör Programı

Çok Güzel Baya Bir Uğraştım

Etiketler: asnsör, programı

Ort. 0

Puan ver:

hazirkod 03 July 19:34 0

0 kişiden 0 puan aldı

5344

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