Моя первая программа на Bascom. Нужен ультразвуковой датчик который при наличии препятствия в 20см от него через 2минуты включал нагрузку, и после исчезновения препятствия еще 2 минуты оставался включенным. Для начала решил подключить датчик и вместо нагрузки светодиод. Получился вот такой код(ниже) Как и какие ставить фьюзы не знаю.
Код
$regfile = "attiny13.dat"
$crystal = 960000
$hwstack = 32
$swstack = 8
$framesize = 16
Config Portb.1 = Output
Trigger Alias Portb.1
Trigger = 0
Config Portb.0 = Input ' Echo
Config Portb.4 = Output
Led Alias Portb.4
Led = 0
Dim A As Word
Dim S As Single
Const K = 0.1725
Waitms 50
Do
Trigger = 1
Waitus 15
Trigger = 0
Waitus 10
Pulsein A , Pinb , 0 , 1
S = A * K
If S < 20 Then
Led = 1
End If
Waitms 100
Loop
End