Форум РадиоКот

Код: Выделить всё

Dim Wtime As Byte

Do

Debounce Pinb.4 , 0 , Knopka , Sub

Loop

Knopka:
Waitms 50
Incr Wtime                                               'увеличиваем счетчик с каждым нажатием
Waitms 50
If Wtime = 2 And Pinb.4 = 0 Then               'если счетчик = 2 и нажата кнопка
Goto Sub2                                                'идем туда
Wtime = 0                                                'обнуляем счетчик
Goto Ext2
End If

'если было одно нажатие, ЖДЕМ ВТОРОГО НАЖАТИЯ в теч. 2 секунд, если нажатие не произошло, обнуляем счетчик Wtime
Waitms 50
PORTB.0 = 0                                          'ничего не включаем
Waitms 50
Ext2:
Return

'включаем
Sub2:
Waitms 50
PORTB.0 = 1                                          'включили ЛЕД
Wait 2                                                    'подождали 2 сек. 
PORTB.0 = 0                                           'и выключили
Waitms 50
Wtime = 0                                               'обнулили счетчик
Return 'вышли отсюда

Код: Выделить всё

Knopka:
Waitms 50
Incr Click				'увеличиваем счетчик нажатий
Waitms 50
If Click = 1 Then			'если нажали один раз
Count = Count + 1			'увеличиваем счетчик задержки
End If

Waitms 50
If Click = 1 And Count > 25Then 	'если нажали один раз и счетчик натикал БОЛЬШЕ 25
Portb.0 = 0			'выключаем ЛЕД
Waitms 50
Click = 0				'обнуляем счетчик нажатий
Count = 0 		 		'обнуляем счетчик задержки
End If

If Click = 1 And Count < 25Then 	'если нажали один раз и счетчик натикал МЕНЬШЕ 25
Goto Led_on			'переходим по метке
End If
Waitms 50
Return

'ВКЛЮЧАЕМ
Led_on:
Waitms 50
Portb.0 = 1 			'включаем
Wait 2				'ждем 2 сек.
Portb.0 = 0 			'выключаем
Waitms 50
Click = 0				'обнуляем счетчик нажатий
Count = 0				'обнуляем счетчик задержки
Return				'уходим

Код: Выделить всё

$regfile = "attiny13.dat"
$crystal = 9600000
Config Portb.0 = Output
Config Portb.1 = Output
Config Pinb.5 = Input
Config Pinb.4 = Input
Config Pinb.3 = Input
Config Adc = Free , Prescaler = Auto , Reference = Avcc
Dim A As Word
Dim B As Word
Start Adc
Do
A = Getadc(2)
B = Getadc(3)
If A < B Then
Pinb.0 = 0
Pinb.1 = 1
Else
End If
If A > B Then
Pinb.0 = 1
Pinb.1 = 0
Else
End If
If A = B Then
Pinb.0 = 0
Pinb.1 = 0
End If
Loop
End