Das Open-Control-Projekt - Die Alternative zur C-Control-I


Das Forum zur C-Control-1
Welche C-Control-Varianten existieren?
Ü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 ManfredW, Homepage - 14.06.2007 23:00)
 Als Antwort auf Re: This peace of progr. works for +/-70% von Hans - 14.06.2007 19:44
> 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

Bisherige Antworten:

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)