Başlangıç > Kodlar > VB6 ile Cafe programı

VB6 ile Cafe programı


Cafe programı

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Command10_Click()
Timer4.Enabled = True
End Sub

Private Sub Command11_Click()
Timer4.Enabled = False
End Sub

Private Sub Command12_Click()
Text13 = 0
Text14 = 0
Text15 = 0

End Sub

Private Sub Command13_Click()
Timer5.Enabled = True
End Sub

Private Sub Command14_Click()
Timer5.Enabled = False
End Sub

Private Sub Command15_Click()
Text17 = 0
Text18 = 0
Text19 = 0
End Sub

Private Sub Command16_Click()
Timer6.Enabled = True
End Sub

Private Sub Command17_Click()
Timer6.Enabled = False
End Sub

Private Sub Command18_Click()
Text21 = 0
Text22 = 0
Text23 = 0
End Sub

Private Sub Command19_Click()
Timer7.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Command20_Click()
Timer7.Enabled = False
End Sub

Private Sub Command21_Click()
Text25 = 0
Text26 = 0
Text27 = 0
End Sub

Private Sub Command22_Click()
Timer9.Enabled = True
End Sub

Private Sub Command23_Click()
Timer9.Enabled = False
End Sub

Private Sub Command24_Click()
Text29 = 0
Text30 = 0
Text31 = 0
End Sub

Private Sub Command25_Click()
Timer8.Enabled = True
End Sub

Private Sub Command26_Click()
Timer8.Enabled = False
End Sub

Private Sub Command27_Click()
Text33 = 0
Text34 = 0
Text35 = 0
End Sub

Private Sub Command3_Click()
Text1 = 0
Text2 = 0
Text3 = 0
End Sub

Private Sub Command4_Click()
Timer2.Enabled = True
End Sub

Private Sub Command5_Click()
Timer2.Enabled = False
End Sub

Private Sub Command6_Click()
Text5 = 0
Text6 = 0
Text7 = 0

End Sub

Private Sub Command7_Click()
Timer3.Enabled = True
End Sub

Private Sub Command8_Click()
Timer3.Enabled = False
End Sub

Private Sub Command9_Click()
Text9 = 0
Text10 = 0
Text11 = 0

End Sub

Private Sub Timer1_Timer()
If Text3 = 30 Or Text3 = 59 Then
Text4 = Text4 + 500
End If
Text3 = Text3 + 1
If Text3 = 60 Then
Text2 = Text2 + 1
Text3 = 0
End If
If Text2 = 60 Then
Text1 = Text1 + 1
Text2 = 0
End If
End Sub

Private Sub Timer2_Timer()
If Text7 = 30 Or Text7 = 59 Then
Text8 = Text8 + 500
End If
Text7 = Text7 + 1
If Text7 = 60 Then
Text6 = Text6 + 1
Text7 = 0
End If
If Text6 = 60 Then
Text5 = Text5 + 1
Text6 = 0
End If
End Sub

Private Sub Timer3_Timer()
If Text11 = 30 Or Text11 = 59 Then
Text12 = Text12 + 500
End If
Text11 = Text11 + 1
If Text11 = 60 Then
Text10 = Text10 + 1
Text11 = 0
End If
If Text10 = 60 Then
Text9 = Text9 + 1
Text10 = 0
End If

End Sub

Private Sub Timer4_Timer()
If Text15 = 30 Or Text15 = 59 Then
Text16 = Text16 + 500
End If
Text15 = Text15 + 1
If Text15 = 60 Then
Text14 = Text14 + 1
Text15 = 0
End If
If Text14 = 60 Then
Text13 = Text13 + 1
Text14 = 0
End If

End Sub

Private Sub Timer5_Timer()
If Text19 = 30 Or Text19 = 59 Then
Text20 = Text20 + 500
End If
Text19 = Text19 + 1
If Text19 = 60 Then
Text18 = Text18 + 1
Text19 = 0
End If
If Text18 = 60 Then
Text17 = Text17 + 1
Text18 = 0
End If

End Sub

Private Sub Timer6_Timer()
If Text23 = 30 Or Text23 = 59 Then
Text24 = Text24 + 500
End If
Text23 = Text23 + 1
If Text23 = 60 Then
Text22 = Text22 + 1
Text23 = 0
End If
If Text22 = 60 Then
Text21 = Text21 + 1
Text22 = 0
End If
End Sub

Private Sub Timer7_Timer()
If Text27 = 30 Or Text27 = 59 Then
Text28 = Text28 + 500
End If
Text27 = Text27 + 1
If Text27 = 60 Then
Text26 = Text26 + 1
Text27 = 0
End If
If Text26 = 60 Then
Text25 = Text25 + 1
Text26 = 0
End If

End Sub

Private Sub Timer8_Timer()
If Text35 = 30 Or Text35 = 59 Then
Text36 = Text36 + 500
End If
Text35 = Text35 + 1
If Text35 = 60 Then
Text34 = Text34 + 1
Text35 = 0
End If
If Text34 = 60 Then
Text33 = Text33 + 1
Text34 = 0
End If

End Sub

Private Sub Timer9_Timer()
If Text31 = 30 Or Text31 = 59 Then
Text32 = Text32 + 500
End If
Text31 = Text31 + 1
If Text31 = 60 Then
Text30 = Text30 + 1
Text31 = 0
End If
If Text30 = 60 Then
Text29 = Text29 + 1
Text30 = 0
End If

End Sub

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: