Witam
Chcę napiszać taki programik:
I jak wysyłam z PC 19 Bajtów (1+1+16+1) by uruchomić jakiś proces to nie działa mi, nawet jak buforuje Serialin
Chcę napiszać taki programik:
Const BajtStart = 10
Const BajtKoniec = 13
Dim A1 as Byte
Dim A2 as Byte
Dim A3 as Byte
Dim Buffor(16) as Byte
Do
...
Inne instrukcje co się wykonują
Zajmują np. 3min
Po czym chcę jak się zakończą to połączyć się z PC i pozmienniać
zmienne programu i tak w pętli
...
Call Czytaj_RS232
Loop
Sub Czytaj_RS232
A1 = Inkey() 'Bajt START
A2 = Inkey() 'Bajt Rozkaz
For i=1 to 16 '16 Bajtów zmiennych do jakiś rozkazów
Buffor(i) = Inkey()
Next I
A3 = Inkey() 'Bajt KONIEC
If A1 = BajtStart and A3 = BajtKoniec then
select case A2
Case 1:
......
Case 2:
.............
end select
end if
end subI jak wysyłam z PC 19 Bajtów (1+1+16+1) by uruchomić jakiś proces to nie działa mi, nawet jak buforuje Serialin
