sevgili arkadaşlar
forma ayarlanabilir kronometre nasıl yapılır bir örnek yaparmısınız

Sayin ibuzdag;

ORNEGI inceleyebilirsiniz.

sayın arkadaşım
size mesaj da yazdım kronometreye aşağıda yaptığım formda kullanacağım ama beceremedim bana yardımcı olurmusun formda sol üste taslağını yaptım teşekkürler

Sayin ibuzdag;

1. onceki kronometre ile ilgili nesnelerin tumunu silin.
2. KronoMetre isimli etiket olusturun ve baslik(caption) bolumune 00:00 yazin.
3. baslat isimli cift fonksiyonlu buton olusturun ve baslik(caption) bolumune baslat/bitis yazin.
4. Form1 altindaki VB bolumune asagidaki kodlari tasiyin.
Option Compare Database
Option Explicit
Private Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long
Dim ToplamSure, BaslamaZamani As Long
Private Sub baslat_Click()
If Me.TimerInterval = 0 Then
BaslamaZamani = GetTickCount()
Me.TimerInterval = 10
Me!baslat.Caption = "bitir"
Else
ToplamSure = ToplamSure + (GetTickCount() - BaslamaZamani)
Me.TimerInterval = 0
Me!baslat.Caption = "baslat"
End If
End Sub
Private Sub Form_Timer()
Dim Dakika, Saniye As String, Sayac As Long
Sayac = (GetTickCount() - BaslamaZamani) + ToplamSure
Dakika = Format((Sayac \ 60000) Mod 60, "00")
Saniye = Format((Sayac \ 1000) Mod 60, "00")
Me!KronoMetre.Caption = Dakika & ":" & Saniye
End Sub
Private Sub Form_Current()
DoCmd.Restore
End Sub
Private Sub Form_Open(Cancel As Integer)
ReSizeForm Me
End Sub
Private Sub Komut61_Click()
DoCmd.Quit
End Sub

Kolay gelsin......

sayın dsezgin bey
Form1 altindaki VB bolumune asagidaki kodlari tasiyin. demekle vb anlayamadım 2007 sürumündeki anlamımı yazarmisınız

(22-03-2014, 21:51)ibuzdag demiş ki: Form1 altindaki VB bolumune asagidaki kodlari tasiyin. demekle vb anlayamadım 2007 sürumündeki anlamımı yazarmisınız

VB= Visual Basic (Alt + F11) editoru acabilirsin. Projenizde ki formlara ait tus eylemlerini yazdiginiz yer.


  sigorta2.rar (Boyut: 487,7 KB / İndirilme: 115)