Visual Basic de Oyun Takip Programi

[ömer18]

Attribute VB_Name = "bilardo"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim saat, dakika, saniye

Private Sub Command1_Click()
Label10 = Label1
Label11 = Label2
End Sub

Private Sub Command10_Click()
Text2 = ""
Label6 = ""
Label7 = ""
Label9 = ""
Label16 = ""
Label21 = ""


End Sub

Private Sub Command11_Click()
End

End Sub

Private Sub Command2_Click()

Label13 = Label1
Label14 = Label2

a = (Val(Label10) * 60) + Val(Label11)
b = (Val(Label13) * 60) + Val(Label14)
e = Val(b) - Val(a)

If e = 0 Then Label19 = "0"
If e = 1 Then Label19 = "0,25"
If e = 2 Then Label19 = "0,25"
If e = 3 Then Label19 = "0,25"
If e = 4 Then Label19 = "0,25"
If e = 5 Then Label19 = "0,25"
If e = 6 Then Label19 = "0,25"
If e = 7 Then Label19 = "0,25"
If e = 8 Then Label19 = "0,25"
If e = 9 Then Label19 = "0,25"
If e = 10 Then Label19 = "0,25"
If e = 11 Then Label19 = "0,25"
If e = 12 Then Label19 = "0,25"
If e = 13 Then Label19 = "0,25"
If e = 14 Then Label19 = "0,25"
If e = 15 Then Label19 = "0,25"
If e = 16 Then Label19 = "0,25"
If e = 17 Then Label19 = "0,25"
If e = 18 Then Label19 = "0,25"
If e = 19 Then Label19 = "0,25"
If e = 20 Then Label19 = "0,25"
If e = 21 Then Label19 = "0,25"
If e = 22 Then Label19 = "0,25"
If e = 23 Then Label19 = "0,25"
If e = 24 Then Label19 = "0,25"
If e = 25 Then Label19 = "0,25"
If e = 26 Then Label19 = "0,25"
If e = 27 Then Label19 = "0,25"
If e = 28 Then Label19 = "0,25"
If e = 29 Then Label19 = "0,25"
If e = 30 Then Label19 = "0,50"
If e = 31 Then Label19 = "0,50"
If e = 32 Then Label19 = "0,50"
If e = 33 Then Label19 = "0,50"
If e = 34 Then Label19 = "0,50"
If e = 35 Then Label19 = "0,50"
If e = 36 Then Label19 = "0,50"
If e = 37 Then Label19 = "0,50"
If e = 38 Then Label19 = "0,50"
If e = 39 Then Label19 = "0,50"
If e = 40 Then Label19 = "0,50"
If e = 41 Then Label19 = "0,50"
If e = 42 Then Label19 = "0,50"
If e = 43 Then Label19 = "0,50"
If e = 44 Then Label19 = "0,50"
If e = 45 Then Label19 = "0,50"
If e = 46 Then Label19 = "0,50"
If e = 47 Then Label19 = "0,50"
If e = 48 Then Label19 = "0,50"
If e = 49 Then Label19 = "0,50"
If e = 50 Then Label19 = "0,50"
If e = 51 Then Label19 = "0,50"
If e = 52 Then Label19 = "0,50"
If e = 53 Then Label19 = "0,50"
If e = 54 Then Label19 = "0,50"
If e = 55 Then Label19 = "0,50"
If e = 56 Then Label19 = "0,50"
If e = 57 Then Label19 = "0,50"
If e = 58 Then Label19 = "0,50"
If e = 59 Then Label19 = "0,50"
If e = 60 Then Label19 = "1,00"
If e = 61 Then Label19 = "1,00"
If e = 62 Then Label19 = "1,00"
If e = 63 Then Label19 = "1,00"
If e = 64 Then Label19 = "1,00"
If e = 65 Then Label19 = "1,00"
If e = 66 Then Label19 = "1,00"
If e = 67 Then Label19 = "1,00"
If e = 68 Then Label19 = "1,00"
If e = 69 Then Label19 = "1,00"
If e = 70 Then Label19 = "1,00"
If e = 71 Then Label19 = "1,00"
If e = 72 Then Label19 = "1,00"
If e = 73 Then Label19 = "1,00"
If e = 74 Then Label19 = "1,00"
If e = 75 Then Label19 = "1,00"
If e = 76 Then Label19 = "1,00"
If e = 77 Then Label19 = "1,00"
If e = 78 Then Label19 = "1,00"
If e = 79 Then Label19 = "1,00"
If e = 80 Then Label19 = "1,00"
If e = 81 Then Label19 = "1,00"
If e = 82 Then Label19 = "1,00"
If e = 83 Then Label19 = "1,00"
If e = 84 Then Label19 = "1,00"
If e = 85 Then Label19 = "1,00"
If e = 86 Then Label19 = "1,00"
If e = 87 Then Label19 = "1,00"
If e = 88 Then Label19 = "1,00"
If e = 89 Then Label19 = "1,00"
If e = 90 Then Label19 = "1,50"
If e = 91 Then Label19 = "1,50"
If e = 92 Then Label19 = "1,50"
If e = 93 Then Label19 = "1,50"
If e = 94 Then Label19 = "1,50"
If e = 95 Then Label19 = "1,50"
End Sub


Private Sub Command3_Click()
Label6 = Label1
Label7 = Label2
End Sub

Private Sub Command4_Click()
Label9 = Label1
Label16 = Label2

x = (Val(Label10) * 60) + Val(Label11)
y = (Val(Label13) * 60) + Val(Label14)
z = Val(x) - Val(y)

If z = 0 Then Label21 = "0"
If z = 1 Then Label21 = "0,25"
If z = 2 Then Label21 = "0,25"
If z = 3 Then Label21 = "0,25"
If z = 4 Then Label21 = "0,25"
If z = 5 Then Label21 = "0,25"
If z = 6 Then Label21 = "0,25"
If z = 7 Then Label21 = "0,25"
If z = 8 Then Label21 = "0,25"
If z = 9 Then Label21 = "0,25"
If z = 10 Then Label21 = "0,25"
If z = 11 Then Label21 = "0,25"
If z = 12 Then Label21 = "0,25"
If z = 13 Then Label21 = "0,25"
If z = 14 Then Label21 = "0,25"
If z = 15 Then Label21 = "0,25"
If z = 16 Then Label21 = "0,25"
If z = 17 Then Label21 = "0,25"
If z = 18 Then Label21 = "0,25"
If z = 19 Then Label21 = "0,25"
If z = 20 Then Label21 = "0,25"
If z = 21 Then Label21 = "0,25"
If z = 22 Then Label21 = "0,25"
If z = 23 Then Label21 = "0,25"
If z = 24 Then Label21 = "0,25"
If z = 25 Then Label21 = "0,25"
If z = 26 Then Label21 = "0,25"
If z = 27 Then Label21 = "0,25"
If z = 28 Then Label21 = "0,25"
If z = 29 Then Label21 = "0,25"
If z = 30 Then Label21 = "0,50"
If z = 31 Then Label21 = "0,50"
If z = 32 Then Label21 = "0,50"
If z = 33 Then Label21 = "0,50"
If z = 34 Then Label21 = "0,50"
If z = 35 Then Label21 = "0,50"
If z = 36 Then Label21 = "0,50"
If z = 37 Then Label21 = "0,50"
If z = 38 Then Label21 = "0,50"
If z = 39 Then Label21 = "0,50"
If z = 40 Then Label21 = "0,50"
If z = 41 Then Label21 = "0,50"
If z = 42 Then Label21 = "0,50"
If z = 43 Then Label21 = "0,50"
If z = 44 Then Label21 = "0,50"
If z = 45 Then Label21 = "0,50"
If z = 46 Then Label21 = "0,50"
If z = 47 Then Label21 = "0,50"
If z = 48 Then Label21 = "0,50"
If z = 49 Then Label21 = "0,50"
If z = 50 Then Label21 = "0,50"
If z = 51 Then Label21 = "0,50"
If z = 52 Then Label21 = "0,50"
If z = 53 Then Label21 = "0,50"
If z = 54 Then Label21 = "0,50"
If z = 55 Then Label21 = "0,50"
If z = 56 Then Label21 = "0,50"
If z = 57 Then Label21 = "0,50"
If z = 58 Then Label21 = "0,50"
If z = 59 Then Label21 = "0,50"
If z = 60 Then Label21 = "1,00"
If z = 61 Then Label21 = "1,00"
If z = 62 Then Label21 = "1,00"
If z = 63 Then Label21 = "1,00"
If z = 64 Then Label21 = "1,00"
If z = 65 Then Label21 = "1,00"
If z = 66 Then Label21 = "1,00"
If z = 67 Then Label21 = "1,00"
If z = 68 Then Label21 = "1,00"
If z = 69 Then Label21 = "1,00"
If z = 70 Then Label21 = "1,00"
If z = 71 Then Label21 = "1,00"
If z = 72 Then Label21 = "1,00"
If z = 73 Then Label21 = "1,00"
If z = 74 Then Label21 = "1,00"
If z = 75 Then Label21 = "1,00"
If z = 76 Then Label21 = "1,00"
If z = 77 Then Label21 = "1,00"
If z = 78 Then Label21 = "1,00"
If z = 79 Then Label21 = "1,00"
If z = 80 Then Label21 = "1,00"
If z = 81 Then Label21 = "1,00"
If z = 82 Then Label21 = "1,00"
If z = 83 Then Label21 = "1,00"
If z = 84 Then Label21 = "1,00"
If z = 85 Then Label21 = "1,00"
If z = 86 Then Label21 = "1,00"
If z = 87 Then Label21 = "1,00"
If z = 88 Then Label21 = "1,00"
If z = 89 Then Label21 = "1,00"
If z = 90 Then Label21 = "1,50"
If z = 91 Then Label21 = "1,50"
If z = 92 Then Label21 = "1,50"
If z = 93 Then Label21 = "1,50"
If z = 94 Then Label21 = "1,50"
If z = 95 Then Label21 = "1,50"










End Sub

Private Sub Command5_Click()
Open "c:\bilardo.dat" For Append As #1
Write #1, Text1; Label10; Label11; Label13; Label14; Label19; Label26
Close #1
End Sub

Private Sub Command6_Click()
Open "c:\bilardo.dat" For Append As #1
Write #1, Text2; Label6; Label7; Label9; Label16; Label21; Label25
Close #1
End Sub

Private Sub Command7_Click()
CommonDialog1.ShowPrinter

End Sub

Private Sub Command8_Click()
If Combo1.Text = "Masa Tenisi" Then Masatenisi.Show
If Combo1.Text = "Langırt" Then langirt.Show
End Sub

Private Sub Command9_Click()
Text1 = ""
Label10 = ""
Label11 = ""
Label13 = ""
Label14 = ""
Label19 = ""

End Sub

Private Sub Form_Load()
Label1.Caption = Hour(Time)
Label2.Caption = Minute(Time)
Label24.Caption = Second(Time)
saat = Hour(Time)
dakika = Minute(Time)
saniye = Second(Time)
End Sub

Private Sub Label27_Click()

End Sub

Private Sub Timer1_Timer()
saniye = saniye + 1
If saniye = 60 Then
saniye = 0
dakika = dakika + 1
If dakika = 60 Then
dakika = 0
saat = saat + 1
If saat = 24 Then
saat = 0
End If
End If
End If
Label1.Caption = saat
Label2.Caption = dakika
Label24.Caption = saniye
End Sub


____________________________-
SNAKE_AKREPKRAL