Witam
Mam problem ze zliczaniem impulsów z zewnątrz za pomocą timer0. Czy mógłby ktoś sprawdzić czy poniższy kod jest ok. Sygnał podaję na pinb.0, port jest podciągnięty za pośrednictwem rezystora 10k do 5V
$regfile = "M16def.DAT"
$crystal = 8000000
$baud = 57600
Dim Czestotliwosc As Byte
Config Timer0 = Counter , Edge = Rising
Enable Interrupts
Enable Timer0
Do
Start Timer0
Wait 1
Stop Timer0
Czestotliwosc = Counter0
Print "Freq: " ; Czestotliwosc
Loop
Mam problem ze zliczaniem impulsów z zewnątrz za pomocą timer0. Czy mógłby ktoś sprawdzić czy poniższy kod jest ok. Sygnał podaję na pinb.0, port jest podciągnięty za pośrednictwem rezystora 10k do 5V
$regfile = "M16def.DAT"
$crystal = 8000000
$baud = 57600
Dim Czestotliwosc As Byte
Config Timer0 = Counter , Edge = Rising
Enable Interrupts
Enable Timer0
Do
Start Timer0
Wait 1
Stop Timer0
Czestotliwosc = Counter0
Print "Freq: " ; Czestotliwosc
Loop