Kod: Zaznacz cały
$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
Config Pind.5 = Input
Config Timer1 = Counter , Edge = Rising
Enable Interrupts
Enable Timer1
Do
Print "bascom w praktyce"
Wait 1
Timer1 = 0
Print "start"
Start Timer1
Wait 1
Stop Timer1
Print "herce:" ; Timer1
Loop
End
[ Dodano: 2008-05-28, 19:34 ]
Widzę ze nawet mi nikt nie powie czy program dobry