Здравствуйте. Помогите, пожалуйста осуществить такой вариант: нажимаю кнопку - зажигаем светодиод на 40 сек, нажимаю повторно - принудительно выключаю, и так по кругу. Если использую wait - следующее нажатие возможно только по истечении задержки, пробовал прерывания - светодиод потухает, но следующее включение возможно опять после задержки
$regfile = "attiny13.dat"
$crystal = 9600000
$hwstack = 16
$swstack = 16
$framesize = 16
$noramclear
Dim Level As Byte
Config PINb.2 = Input
Config Portb.3 = Output
Button Alias PINb.2
Led Alias Portb.3
Do
If Button = 0 Then
If Level = 2 Then
Level = 0
Else
Incr Level
End If
Select Case Level
Case 0
Do :
loop until Button=1
waitms 20
Led = 1
Case 1 :
Do
loop until Button=1
waitms 20
Led = 0
End Select
End If
Loop
End
Отредактировано vyko (2017-10-17 09:44:19)