Czy wolisz polską wersję strony elektroda?
Nie, dziękuję Przekieruj mnie tam
http://www.elportal.pl/pdf/k10/56_06.pdf
Certino napisał:Nie wychodziNiby liczy ale sekunda to to nie jest. Kwarc ma częstotliwość 11,059 Mhz
Config Timer0 = Timer , Gate = Internal , Mode = 1
Dim Licznik As Integer
Dim Czas As Integer
Czas = 0
Licznik = 0
On Timer0 Sec
Enable Interrupts
Enable Timer0
Load Timer0 , 4096
Start Timer0
Do
Loop
End
Sec:
Load Timer0 , 4096
Incr Licznik
If Licznik = 15 Then
Incr Czas
Print Czas
Licznik = 0
End If
Return
Config Timer1 = Timer , Gate = Internal , Mode = 1
dim cnt as byte
Sub Sec
Counts = 0
Counter1 = 4150
Start Timer1
Do
If Cnt = 15 Then
Stop Timer1
Exit Do
End If
Loop
End Sub
Timer1_int:
Counter1 = 4150
Start Timer1
Incr Cnt
Return
