Код
$regfile = "attiny13.dat"
$crystal = 9600000
Config Timer0 = Pwm , Compare A Pwm = Clear Up , Compare B Pwm = Clear Up , Prescale = 8
Config Portb.0 = Output
Config Portb.1 = Output
Config Pinb.3 = Input
Config Pinb.4 = Input
Config Pinb.2 = Input
Dim A As Byte
Config Debounce = 50
Stop Timer0
A = 0
Do
Debounce Pinb.3 , 0 , Minuti , Sub
If A = 2 Then Start Timer0
If A = 1 Then Stop Timer0
If Pinb.4 = 0 Then
Do
Decr Pwm0a : If Pwm0a > 253 Then Pwm0a = 253
Waitms 10
Loop Until Pinb.4 = 1
End If
If Pinb.2 = 0 Then
Do
Incr Pwm0a : If Pwm0a < 2 Then Pwm0a = 2
Waitms 10
Loop Until Pinb.2 = 1
End If
Loop
End
Minuti:
Incr A
If A = 3 Then A = 1
Return
В железе криво работает, а в протеусе нормально