ngerutinnya itu gan... kodenya gimana... ane bingung sumpah...
pake for - next bisa gak ya ??
maap br sempet OL,,,
kira2 seperti ini, tp dcoba dl y soale blm sempet tak simulasiin
Code:
$regfile = "m16def.dat"
$crystal = 11059200
Config Timer1 = Timer , Prescale = 1024
Config Portb = Output
Dim Detik As Integer
Enable Interrupts
Enable Timer1
Do
Detik = 0
Do
Portb = 255
Timer1 = &HD5D0
Start Timer1
Do
Loop Until Tifr.2 = 1
Stop Timer1
Incr Detik
Loop Until Detik = 60
Detik = 0
Do
Portb = 0
Timer1 = &HD5D0
Start Timer1
Do
Loop Until Tifr.2 = 1
Stop Timer1
Incr Detik
Loop Until Detik = 60
Loop