24/09/2009, 17:02
Sayfalar: 1 2
24/09/2009, 18:03
Merhaba.
Bu konudaki kodları inceleyiniz.
Bu konudaki kodları inceleyiniz.
25/09/2009, 09:54
ilginiz için teşekkürler
bana Access uygulaması lazım
bana Access uygulaması lazım
25/09/2009, 09:57
(24/09/2009, 18:03)maytas yazdı: [ -> ]Merhaba.
Bu konudaki kodları inceleyiniz.
linkteki kodları nasıl inceleyeceğiz? programı kurdum ama Access yerine exe var.
25/09/2009, 12:50
kodları nasıl görebiliriz
25/09/2009, 13:44
Basit bişey düşündüm belki işinize yarar.
Kod:
Dim saat, dakika, saniye, salise
Private Sub Form_Load()
saat = "23"
dakika = "59"
saniye = "59"
salise = "99"
End Sub
Private Sub Form_Timer()
salise = salise - 1
If salise = "0" Then
salise = 99
saniye = saniye - 1
If saniye = "0" Then
saniye = 59
dakika = dakika - 1
If dakika = "0" Then
dakika = 59
saat = saat - 1
If saat = 24 Then
saat = 23
End If
End If
End If
End If
Me.Metin0.Value = saat
Me.Metin2.Value = dakika
Me.Metin4.Value = saniye
Me.Metin8.Value = salise
End Sub
Private Sub Komut6_Click()
Me.TimerInterval = 0
End Sub
Private Sub Komut7_Click()
Me.TimerInterval = 10
End SubSayfalar: 1 2