mille merci j'envoie tout ça à mon ami qui me dira si cela lui convient
je remercie tout le monde ce newsgroup est genial
"vede" a écrit dans le message de news: snipped-for-privacy@n21g2000vba.googlegroups.com... >
re ps : c'est basé sur 2 timers.... le timer2 attend le 1er appui puis le timer1 chronométre... et compte les appuis...
le code vb: Private Sub Form_Load() i = OPENCOM("COM1,1200,N,8,1") If i = 0 Then MsgBox ("COM Interface Error") DTR 1 sec = 0 mse = 0 min = 0 Counter1 = 1 DSRold = DSR() Timer1.Enabled = False Timer2.Interval = 10 Timer2.Enabled = True End Sub
Private Sub Form_Unload(Cancel As Integer) CLOSECOM End Sub
Private Sub Timer1_Timer() DSRNew = DSR() If DSRNew > DSRold Then Counter1 = Counter1 + 1 co(0).Caption = Str$(Counter1) End If DSRold = DSRNew mse = mse + 1 If mse = 10 Then sec = sec + 1 mse = 0 If sec = 60 Then sec = 0 min = min + 1 mi(0).Caption = Str$(min) End If se(1).Caption = Str$(sec) End If If Counter1 = 100 Then ms(0).Caption = Str$(mse) Timer2.Enabled = False Timer1.Enabled = False End If End Sub
Private Sub Timer2_Timer() DSRNew = DSR() If DSRNew > DSRold Then co(0).Caption = Str$(Counter1) Timer2.Enabled = False Timer1.Interval = 100 Timer1.Enabled = True DSRold = DSRNew End If End Sub