Здравствуйте! Управляю устройствами через COM порт:
Код:
$Regfile="attiny2313a.dat"
$crystal = 8000000
$hwstack=40
$swstack=16
$framesize=32
$baud = 9600
Dim A As String * 4
Dim I As byte
dim E as String * 4
dim D as String * 1
dim x as String * 4
dim B as byte
const on = 1
const off = 0
Declare Sub progg()
Declare Sub Del_buffer()
Ddrb = &HFF
reset PORTB
DO
Input A
progg
if E = "on" and B >= 0 and B <=7 then
Portb.B = on' : Print "port B"; B ; " on"
elseif E = "off" and B >= 0 and B <=7 then
Portb.B = off' : Print "port B"; B ; " off"
end if
if A = "res" then
PORTB = off' : Print "All port off"
end if
Del_buffer
loop
End
Sub progg()
D = "" : X = "" : E = ""
for I = 0 to len(A)
x = MID(A , I , 1)
if asc(x) >= 48 and asc(x) <= 57 Then
D = D + x
elseif asc(x) < 48 or asc(x) > 57 Then
E = E + x
end if
Next I
B = val(D)
End sub
Sub Del_buffer()
Do
B = Inkey()
Loop Until B = 0
End Sub
управляю через CMD, по средствам команд
Код:
echo onX>comX и echo offX>comX
Хотелось бы исключить из цепочки физический USB-COM адаптер и реализовать его программно. Может кто направит / подскажет? Справку читал: USB Add On и это Ссылка2 Ничего толком не написано, исходников нет. "virtcom-162.bas" - в папках нет.
Почему хочу отказаться от физического адаптера: CarPC(без физического com-порта) -> с помощью МК будет включаться переферия в авто, по этому нужна минимальная цепочка устройств.
Отредактировано NewUserBascom (2018-06-05 14:59:06)
