senden:
Code:
Sub Senden(was As String * 21)
While Z1 <> "A" 'warteschleife bis A (ACK) kommt
Print Was ; Chr(13): 'solange das ganze bis dei schleife geschlossen ist
Waitms 10
Z1 = Inkey()
Wend 'ende der schleife
Z1 = Inkey() 'das C verschlucken
Z1 = Inkey() 'das K verschlucken
Z1 = Inkey() 'das {013} verschlucken
Z1 = ""
End Sub
empfangen:
Code:
Sub Empfangen()
While Isit <> 255 'warten bis synchronbyte kam
Isit = Waitkey()
Wend 'ende des wartens
For I = 1 To 9 '9 Bytes einlesen (auf TC abgestimmt, bei bedarf ändern)
Isit = Waitkey()
Ar(i) = Isit
Next 'ende der schleife
End Sub
initialisierung:
Code:
Print Chr(13):
Call Senden( "NF 30")
Call Senden( "RM 1" )
While Z1 <> "A"
Was = "CR 18 32 19 32"
Print Was ; Chr(13):
Waitms 10
Z1 = Inkey()
Wend
Z1 = ""
Call Senden( "DM 60")
While Z1 <> "A"
Was = "TW" '"TC 90 140 220 240 0 30"
Print Was ; Chr(13):
Waitms 10
Z1 = Inkey()
Wend
Z1 = ""
und das hauptprogramm:
Code:
Do
Call Empfangen()
Waitms 50
Loop
dann musste noch nen ausgabebefehl einfügen der AR(2-9) ausgibt
Lesezeichen