İndir ( Hotfile)
İndir (Uploading)
İndir (Uploaded TO)

Program Sahibi: Bana Aittir.


İnternet Kafe sahiplerinin Kullandıkları
Programdır. Masa acma Vs. Gibi Ozellikleri Sunduk.

Tarama Sonucları :
Virus Total

Kod:
Form1 Kodları : Dim a As Integer Private Sub lblCompany_Click() End Sub Private Sub Form_Load() End Sub Private Sub Image1_Click() End Sub Private Sub Timer1_Timer() a = a + 1 If a = 3 Then Form2.Hide Form1.Show End If End Sub
Form2 Kodları
Kod:
Private Sub Command1_Click() Timer1.Enabled = True StatusBar1.Panels(1).Text = "MASA1" End Sub Private Sub Command10_Click() Label8 = 0 End Sub Private Sub Command11_Click() Timer4.Enabled = False StatusBar1.Panels(4).Text = "KAPALI" End Sub Private Sub Command12_Click() Timer4.Enabled = True StatusBar1.Panels(4).Text = "MASA4" End Sub Private Sub Command13_Click() Timer5.Enabled = True StatusBar1.Panels(5).Text = "MASA5" End Sub Private Sub Command14_Click() Timer5.Enabled = False StatusBar1.Panels(5).Text = "KAPALI" End Sub Private Sub Command15_Click() Label10 = 0 End Sub Private Sub Command19_Click() Timer7.Enabled = True StatusBar1.Panels(6).Text = "MASA6" End Sub Private Sub Command2_Click() Timer1.Enabled = False StatusBar1.Panels(1).Text = "KAPALI" End Sub Private Sub Command20_Click() Timer7.Enabled = False StatusBar1.Panels(6).Text = "KAPALI" End Sub Private Sub Command21_Click() Label12 = 0 End Sub Private Sub Command22_Click() Timer8.Enabled = True StatusBar1.Panels(7).Text = "MASA7" End Sub Private Sub Command23_Click() Timer8.Enabled = False StatusBar1.Panels(7).Text = "KAPALI" End Sub Private Sub Command24_Click() Label14 = 0 End Sub Private Sub Command25_Click() Timer9.Enabled = True StatusBar1.Panels(8).Text = "MASA8" End Sub Private Sub Command26_Click() Timer9.Enabled = False StatusBar1.Panels(8).Text = "" End Sub Private Sub Command27_Click() Label16 = 0 End Sub Private Sub Command28_Click() Unload Form1 Unload Form2 End Sub Private Sub Command3_Click() Label2 = 0 End Sub Private Sub Command4_Click() Label4 = 0 End Sub Private Sub Command5_Click() Timer2.Enabled = False StatusBar1.Panels(2).Text = "KAPALI" End Sub Private Sub Command6_Click() Timer2.Enabled = True StatusBar1.Panels(2).Text = "MASA2" End Sub Private Sub Command7_Click() Label6 = 0 End Sub Private Sub Command8_Click() Timer3.Enabled = False StatusBar1.Panels(3).Text = "KAPALI" End Sub Private Sub Command9_Click() Timer3.Enabled = True StatusBar1.Panels(3).Text = "MASA3" End Sub Private Sub Form_Load() Form1.Hide Form2.Show For a = 1 To 8 StatusBar1.Panels.Add Next a Text1 = ("00") Text2 = ("00") Text3 = ("00") Text4 = ("00") Text5 = ("00") Text6 = ("00") Text7 = ("00") Text8 = ("00") Text9 = ("00") Text10 = ("00") Text11 = ("00") Text12 = ("00") Text13 = ("00") Text14 = ("00") Text15 = ("00") Text16 = ("00") Text17 = ("00") Text18 = ("00") Text19 = ("00") Text20 = ("00") Text21 = ("00") Text22 = ("00") Text23 = ("00") Text25 = ("00") Text26 = ("00") Text27 = ("00") Text28 = ("00") Text29 = ("00") Text30 = ("00") Text31 = ("00") Text32 = ("00") Text33 = ("00") Text24 = ("00") End Sub Private Sub ProgressBar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) End Sub Private Sub Timer1_Timer() 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 If Text2 = 2 Then Label2 = "500" If Text2 = 4 Then Label2 = "1000" If Text2 = 6 Then Label2 = "1500" If Text2 = 8 Then Label2 = "2000" If Text2 = 10 Then Label2 = "2500" If Text2 = 12 Then Label2 = "3000" If Text2 = 14 Then Label2 = "3500" End Sub Private Sub Timer2_Timer() Text4 = Text4 + 1 If Text4 = 60 Then Text5 = Text5 + 1 Text4 = 0 End If If Text5 = 2 Then Label4 = "500" If Text5 = 4 Then Label4 = "1000" If Text5 = 6 Then Label4 = "1500" If Text5 = 8 Then Label4 = "2000" If Text5 = 10 Then Label4 = "2500" If Text5 = 12 Then Label4 = "3000" If Text5 = 14 Then Label4 = "3500" End Sub Private Sub Timer3_Timer() Text10 = Text10 + 1 If Text10 = 60 Then Text11 = Text11 + 1 Text10 = 0 End If If Text5 = 2 Then Label6 = "500" If Text5 = 4 Then Label6 = "1000" If Text5 = 6 Then Label6 = "1500" If Text5 = 8 Then Label6 = "2000" If Text5 = 10 Then Label6 = "2500" If Text5 = 12 Then Label6 = "3000" If Text5 = 14 Then Label6 = "3500" End Sub Private Sub Timer4_Timer() Text9 = Text9 + 1 If Text9 = 60 Then Text8 = Text8 + 1 Text9 = 0 End If If Text2 = 2 Then Label8 = "500" If Text2 = 4 Then Label8 = "1000" If Text2 = 6 Then Label8 = "1500" If Text2 = 8 Then Label8 = "2000" If Text2 = 10 Then Label8 = "2500" If Text2 = 12 Then Label8 = "3000" If Text2 = 14 Then Label8 = "3500" End Sub Private Sub Timer5_Timer() Text13 = Text13 + 1 If Text13 = 60 Then Text14 = Text14 + 1 Text13 = 0 End If If Text2 = 2 Then Label10 = "500" If Text2 = 4 Then Label10 = "1000" If Text2 = 6 Then Label10 = "1500" If Text2 = 8 Then Label10 = "2000" If Text2 = 10 Then Label10 = "2500" If Text2 = 12 Then Label10 = "3000" If Text2 = 14 Then Label10 = "3500" End Sub Private Sub Timer7_Timer() Text19 = Text19 + 1 If Text19 = 60 Then Text20 = Text20 + 1 Text19 = 0 End If If Text2 = 2 Then Label12 = "500" If Text2 = 4 Then Label12 = "1000" If Text2 = 6 Then Label12 = "1500" If Text2 = 8 Then Label12 = "2000" If Text2 = 10 Then Label12 = "2500" If Text2 = 12 Then Label12 = "3000" If Text2 = 14 Then Label12 = "3500" End Sub Private Sub Timer8_Timer() Text22 = Text22 + 1 If Text22 = 60 Then Text23 = Text23 + 1 Text22 = 0 End If If Text2 = 60 Then Text1 = Text1 + 1 Text2 = 0 End If If Text2 = 2 Then Label14 = "500" If Text2 = 4 Then Label14 = "1000" If Text2 = 6 Then Label14 = "1500" If Text2 = 8 Then Label14 = "2000" If Text2 = 10 Then Label14 = "2500" If Text2 = 12 Then Label14 = "3000" If Text2 = 14 Then Label14 = "3500" End Sub Private Sub Timer9_Timer() Text25 = Text25 + 1 If Text25 = 60 Then Text26 = Text26 + 1 Text25 = 0 End If If Text2 = 60 Then Text1 = Text1 + 1 Text2 = 0 End If If Text2 = 2 Then Label16 = "500" If Text2 = 4 Then Label16 = "1000" If Text2 = 6 Then Label16 = "1500" If Text2 = 8 Then Label16 = "2000" If Text2 = 10 Then Label16 = "2500" If Text2 = 12 Then Label16 = "3000" If Text2 = 14 Then Label16 = "3500" End Sub