Witam,
Kiedy wysyłam do urządzenia zewnętrznego z atmela '2313 używając bascoma ciąg znaków 2D567F7E2B00 w hexadecymalu wszystko jest ok.
Jednak kiedy muszę wysłać ciąg 2D567FBF1500 to brak reakcji urządzenia. Komenda oczywiście poprawna.
Poniżej prosty programik:
$crystal = 4000000
$baud = 9600
$regfile = "2313def.dat"
Config Kbd = Portb
Dim A As Byte , C As Integer , D As Integer , E As Integer , F As Integer , G As Integer, I As Integer , J As Integer , K As Integer , L As Integer
C = &H2D
D = &H56
E = &H7F
F = &HBF
G = &H2A
I = &H00
J = &H15
K = &H7E
L = &H2B
Do
A = Getkbd()
Select Case A
Case 0 : Print Chr(c);
Print Chr(d);
Print Chr(e);
Print Chr(e);
Print Chr(g);
Print Chr(i);
Case 1 : Print Chr(c);
Print Chr(d);
Print Chr(e);
Print Chr(f);
Print Chr(j);
Print Chr(i);
Case 2 : Print Chr(c);
Print Chr(d);
Print Chr(e);
Print Chr(k);
Print Chr(l);
Print Chr(i);
End Select
Loop
End
Zauważyłem, że nie działa tylko pod guzikiem 2 - czyli tylko przy zmiennej "f" gdzie jest wartość hex BF.
Czy należało by ustawić zmienną f jako long? czy jeszcze rozbić?
Pomóżcie proszę.
Dzięi i pozdrawiam
Przemo
Przeniesiono z Programowanie Ogólne. - arnoldziq
Kiedy wysyłam do urządzenia zewnętrznego z atmela '2313 używając bascoma ciąg znaków 2D567F7E2B00 w hexadecymalu wszystko jest ok.
Jednak kiedy muszę wysłać ciąg 2D567FBF1500 to brak reakcji urządzenia. Komenda oczywiście poprawna.
Poniżej prosty programik:
$crystal = 4000000
$baud = 9600
$regfile = "2313def.dat"
Config Kbd = Portb
Dim A As Byte , C As Integer , D As Integer , E As Integer , F As Integer , G As Integer, I As Integer , J As Integer , K As Integer , L As Integer
C = &H2D
D = &H56
E = &H7F
F = &HBF
G = &H2A
I = &H00
J = &H15
K = &H7E
L = &H2B
Do
A = Getkbd()
Select Case A
Case 0 : Print Chr(c);
Print Chr(d);
Print Chr(e);
Print Chr(e);
Print Chr(g);
Print Chr(i);
Case 1 : Print Chr(c);
Print Chr(d);
Print Chr(e);
Print Chr(f);
Print Chr(j);
Print Chr(i);
Case 2 : Print Chr(c);
Print Chr(d);
Print Chr(e);
Print Chr(k);
Print Chr(l);
Print Chr(i);
End Select
Loop
End
Zauważyłem, że nie działa tylko pod guzikiem 2 - czyli tylko przy zmiennej "f" gdzie jest wartość hex BF.
Czy należało by ustawić zmienną f jako long? czy jeszcze rozbić?
Pomóżcie proszę.
Dzięi i pozdrawiam
Przemo
Przeniesiono z Programowanie Ogólne. - arnoldziq