Übersicht - Suchen - Neueste 50 Beiträge - Neuer Beitrag - Login - Registrieren INFO - FAQ - CC2-Forum - CCPro-Forum

Re: This peace of progr. works for +/-70% Kategorie: Programmierung Basic (von Hans - 14.06.2007 19:44)

Als Antwort auf Re: This peace of progr. works for +/-70% von ManfredW - 13.06.2007 18:34

Hans nutzt:  CC1-M-Unit V1.2/2.0

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 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 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 > > > > This peace of progr. works for +/-70% > > if there is no RXD signal, it does not go always to GeenOntvangst > > is there a better solution for this problem > > > > the program should run if there is no RXD signal > > > > #Start > > second=0 > > PRINT"#OFF#"; > > > > #Ontvangen > > IF SECOND>3 THEN GOTO GeenOntvangst > > IF NOT RXD THEN GOTO Verder > > GET Var1 > > IF Var1=50 THEN GOTO OntvangXXX    'Start code > > #Verder > > GOTO Ontvangen > > > > #OntvangXXX > > GET Var1       'Óntvangen van de 48 BITS in 6 Byte's > > GET Var2 > > GET Var3 > > GET Var4 > > etc   ..  etc. > > Hallo, > first steps of a solution > > > #Start > > second=0 > > PRINT"#OFF#"; > Var1 = 255 > Var2 = 255 > > > > #Ontvangen > > IF SECOND>3 THEN GOTO GeenOntvangst > > IF NOT RXD THEN GOTO Verder > > > IF Var1=50 THEN GOTO OntvangXXX    'Start code >    GET Var1 > > > #Verder > > GOTO Ontvangen > > > > #OntvangXXX >                     'Óntvangen van de 48 BITS in 6 Byte's >  if Var2 = 255 then GET Var2 > > MfG ManfredW

Antwort schreiben

Bisherige Antworten:

Re: This peace of progr. works for +/-70% (von ManfredW - 14.06.2007 23:00)
    Re: This peace of progr. works for +/-70% (von Hans - 16.06.2007 15:45)
        Re: This peace of progr. works for +/-70% (von ManfredW - 16.06.2007 19:56)
            Re: This peace of progr. works for +/-70% (von Hans - 17.06.2007 16:53)