Чт июн 17, 2021 12:33:30
Чт июн 17, 2021 12:38:11
Чт июн 17, 2021 12:44:13
Чт июн 17, 2021 22:27:32
Чт июн 17, 2021 23:28:44
Пт июн 18, 2021 01:54:36
Do
If Getadc(3) <= 300 And Getadc(2) <= 300 Then
Portb.2 = 1
Else
Portb.2 = 0
End If
If Portb.2 = 1 Then
Portb.1 = 1
Waitms 500
Portb.1 = 0
While Getadc(3) < 400 And Getadc(2) < 400 Do
Waitms 100
Loop
End If
Loop
While Getadc(3) < 400 Or Getadc(2) < 400 Do
Waitms 100
Loop
Пт июн 18, 2021 09:31:35
Пт июн 18, 2021 10:39:04
While Getadc(3) < 400 And Getadc(2) < 400
Waitms 100
Wend
Пт июн 18, 2021 15:52:58
Пн июн 21, 2021 12:44:11