hallo
ein verzweifelter anfänger scheitert im prinzip an drei basiczeilen,die ich nicht in profan zum laufen bekomme.
eine basicsoftware(größtenteils schon nach profan umgeschrieben)
fragt über ein interface ein meldemodul einer modellbahn ab.sie erhält antwortbytes zurück die dann auf dem monitor eine
gleisbesetztmeldung ergibt hier der basicteil:
open "com2:2400,N,8,2" as #1
print#1,chr$(193)
A$=INPUT$(2,#1)
B=ASC(LEFT$(A$,1))
gosub x
.....
x:subroutine zur ausgabe der kontaktzustände
for n=0 to 7
if(B and(2^n)=0 then print "0";else print "1"
next n
return
die monitorausgaben habe ich der übersicht wegen hier nich angegeben.
die schnittstellenöffnung fkt.bereits an anderer stelle,ABER DANN...
wer hilft mir bitte
vielen dank
|