INFO - FAQ - CC2-Forum - CCPro-Forum |
> Thanks for your answer, > > But I do not understand your sollution, > I think that the program get stuck (if there is no RXD sign.) with the 6 GET order yes, my program was only the first step to indicate the start code. I hope you continue the next steps. > > I have made something new, but is does not work eighter > could you explaine it once more for a good sollution > > BAUD R1200 > #Start > second=0 > > PRINT"#OFF#"; > > #Ontvangen > IF SECOND>2 THEN GOTO GeenOntvangst > IF NOT RXD THEN GOTO Verder > GET Var1 here you write always in Var1 > IF Var1=50 THEN GOTO OntvangXXX 'Start code > #Verder > GOTO Ontvangen > > #OntvangXXX > IF NOT RXD THEN GOTO GeenOntvangst > GET Var1 > IF NOT RXD THEN GOTO GeenOntvangst > GET Var2 > IF NOT RXD THEN GOTO GeenOntvangst > GET Var3 > IF NOT RXD THEN GOTO GeenOntvangst > GET Var4 > IF NOT RXD THEN GOTO GeenOntvangst > GET Var5 > IF NOT RXD THEN GOTO GeenOntvangst > GET Var6 > IF NOT RXD THEN GOTO GeenOntvangst > GET Var7 > IF Var7<>91 THEN GOTO Start 'Laatste Var is stop code Hallo, first steps of a solution now the further steps in your old program > > > > > #Start > > > second=0 > > > PRINT"#OFF#"; Var1 = 255 Var2 = 255 Var... = 255 ' all Var until Var7 > > > > > > #Ontvangen > > > IF SECOND>3 THEN GOTO GeenOntvangst > > > IF NOT RXD THEN GOTO Verder > > IF Var1=50 THEN GOTO OntvangXXX 'Start code received? yes GET Var1 > > > > > #Verder > > > GOTO Ontvangen > > > > > > #OntvangXXX > > 'Óntvangen van de 48 BITS in 6 Byte's if RXD and Var2 = 255 then GET Var2 if RXD and Var3 = 255 then GET Var3 if RXD and Var4 = 255 then GET Var4 ........ if RXD and Var7 = 255 then GET Var7 if Var7 = 255 then goto ??? ' wait of receive Var7 IF Var7 <> 91 THEN GOTO Start 'Laatste Var is stop code ? no, is not stop code ...' yes, Var7 is stop code 91 MfG ManfredW Meine Homepage: http://manfred.wilzeck.de |
Antwort schreiben |