Пт янв 05, 2024 13:08:37
Пт янв 05, 2024 20:44:22
Сб янв 06, 2024 19:41:59
Сб янв 06, 2024 20:27:52
Сб янв 06, 2024 21:16:34
Сб янв 06, 2024 21:24:52
Сб янв 06, 2024 21:27:56
Пн янв 08, 2024 11:45:55
Пн янв 08, 2024 12:13:35
Пн янв 08, 2024 15:03:27
Сб мар 09, 2024 12:01:14
Сб мар 09, 2024 17:19:02
Сб мар 09, 2024 23:38:38
Вс мар 10, 2024 10:56:51
Вс мар 10, 2024 12:36:13
$regfile = "attiny13.dat" ' BASCOM 2.0.8.6
$crystal = 9600000
$hwstack = 8
$swstack = 8
$framesize = 8
Out_1 Alias Portb.0 : Config Out_1 = Output
Out_2 Alias Portb.1 : Config Out_2 = Output
Out_3 Alias Portb.4 : Config Out_3 = Output
Config Pinb.3 = Input : Vhod Alias Pinb.3
Config Adc = Single , Prescaler = Auto , Reference = Avcc
Start Adc
Dim U , Ubotton As Word
Dim Utop1 , Utop2 As Word
Dim Index , Cntr As Word
Dim Pauza_tmp2 , Pauza_t As Byte
Const Vr_10sec = 333 ' * 30 ms Задержка 10 сек
Const Vr_40sec = 1333 ' * 30 ms Задержка 40 сек
Pauza_t = 15 ' mS
Pauza_tmp2 = 10 ' Sec
Utop1 = 722 ' 14.4 '1000 квантов = 19,947 подмаргивает/при 19,960 горит
Utop2 = 711 ' 14.2
Ubotton = 591 ' 11.8
Cntr = Vr_40sec
Do
If Vhod = 0 Then ' В зависимости от состояния Входа выполняется разный этап.
For Index = 0 To Vr_10sec
Out_1 = 1
Waitms Pauza_t
If Getadc(1) > Utop2 Or Vhod = 1 Then Exit For
Out_1 = 0
Waitms Pauza_t
Next
Wait 5
For Index = 0 To Vr_10sec
Out_2 = 1
Waitms Pauza_t
If Getadc(1) < Ubotton Or Vhod = 1 Then Exit For
Out_2 = 0
Waitms Pauza_t
Next
Wait 5
Else
For Index = 0 To Cntr
Out_1 = 1
Waitms Pauza_t
If Getadc(1) > Utop1 Or Vhod = 0 Then
If Index < 10 And Utop1 = 737 Then Out_3 = 1
Cntr = Vr_10sec
Index = Vr_10sec
Utop1 = 737
Pauza_tmp2 = 5
End If
Out_1 = 0
Waitms Pauza_t
Next
Wait Pauza_tmp2
End If
Loop
Вс мар 10, 2024 16:19:29
Вс мар 10, 2024 16:28:04
Пн мар 11, 2024 10:18:55
Пн мар 11, 2024 21:12:00