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

Who can help me to transmite data Kategorie: Programmierung Basic (von Hans - 31.03.2007 20:32)

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

Hallo I want to transmite some data trough a rs485 I tried everything, but it does not work Something is going wrong I use 2x1 Munit Port1 is for Receiver and Senden look at my schema MY SCHEMA this is the software who can help me ‘Sender 'Port DEFINE ZendOntv      PORT[1] DEFINE Led1          PORT[2] DEFINE Led2          PORT[3] 'VAR DEFINE Var           BYTE[2] DEFINE VarByte2      BYTE[3] 'Bytes op een rij 1 t/m 48 bits DEFINE VarByte1      BYTE[4] DEFINE VarByte4      BYTE[5] DEFINE VarByte3      BYTE[6] DEFINE VarByte6      BYTE[7] DEFINE VarByte5      BYTE[8] DEFINE Temp          WORD[5] put 0 Led1=OFF Led2=OFF #Start TOG Led1 VarByte1=10 VarByte2=20 VarByte3=30 VarByte4=140 VarByte5=200 VarByte6=255 ZendOntv=OFF  'Off is ontvangen IF NOT RXD THEN GOTO Verder GET Var IF Var=123 THEN GOTO Zendt 'wacht op Start code #Verder pause 10 GOTO Start #Zendt ZendOntv=ON  'On is Zenden PUT 50   'is the start code PUT VarByte1 PUT VarByte2 PUT VarByte3 PUT VarByte4 PUT VarByte5 PUT VarByte6 PUT 91 ' is Stop code pause 5 GOTO Start ‘RECEIVER DEFINE ZendOntv PORT[1] DEFINE LED1     PORT[2] DEFINE LED2     PORT[3] DEFINE Var1     BYTE[1] DEFINE Var2     BYTE[2] DEFINE Var3     BYTE[3] DEFINE Var4     BYTE[4] DEFINE Var5     BYTE[5] DEFINE Var6     BYTE[6] DEFINE VAR7     BYTE[7] DEFINE I        BYTE[8] DEFINE AanTal   WORD[5] DEFINE Goed     WORD[6] AanTal=0 goed=0 PRINT"#ON_LCD#";"#INIT#";"#CLR#";"#OFF#"; 'Initialize the LCD voor gebruik de IIC bus' PUT 0 #INIT print"#ON_LCD#"; print"#INIT#"; print"#CLR"; print"#L101#"; print "Dit is een test"; print"#OFF#"; Pause 200  'opstart pause #OpStart Minute = 0 ZendOntv=ON  'On is zend PUT 123      'zend de start code #Start IF MINUTE>4 THEN GOTO GeenOntvangst IF NOT RXD THEN GOTO Verder GET Var1 IF Var1=50 THEN GOTO Ontvang 'Start code #Verder GOTO Start #Ontvang TOG Led1 ZendOntv=OFF   'Off is Ontvangen GET Var1       'Óntvangen van de 48 BITS in 6 Byte's GET Var2 GET Var3 GET Var4 GET Var5 GET Var6 GET Var7 AanTal=AanTal+1 IF Var7<>91 THEN GOTO OpStart  'Laatste Var is stop bit IF Var1=10 AND Var2=20 AND Var3=30 AND Var4=140 AND Var5=200 AND Var6=255 THEN Goed=Goed+1 print"#CLR#"; print"#L101#"; PRINT "Getal1=";Var1;" Getal2=";Var2;" Getal3=";Var3;  'Regel 1 Pos.1 print"#L201#"; PRINT "Getal1=";Var1;" Getal2=";Var2;" Getal3=";Var3;  'Regel 2 Pos.1 print"#L121#";                                                                           'Regel 3 Pos.1 PRINT "Ontvangen ";Aantal; print"#L221#";                                                                           'Regel 4,Pos.1 PRINT "Goed ";Goed; GOTO Opstart #GeenOntvangst print"#CLR#"; print"#L101#"; print "* Geen ontvangst *"; print"#OFF#"; GOTO OpStart

Antwort schreiben

Bisherige Antworten:

Re: Who can help me to transmite data (von Hans - 1.04.2007 17:13)