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

Re: PLRS abfragen Kategorie: Programmierung Basic (von Volker - 12.05.2004 22:50)

Als Antwort auf PLRS abfragen von Hans - 12.05.2004 19:53

>  auch mit dem Originaldemoprogramm (PRLS_Demo2.bas) > funktioniert es leider nicht. Hallo! Hatte das gleich Problem. habe darauhin bei Conrad angefragt und anscheinend gibt (gab) es da bei C-Control Basic Probleme. Habe folgende Routinen von Conrad bekommen und diese arbeiten einwandfrei. Natürlich kann man das Grundgerüst noch beliebig ausbauen. Abfrage, ob eine Antwort angekommen ist oder nicht, Anzahl der Sendeversuche usw.. '---- COM BUFFER --------- define B1 byte[8]          'ID define B2 byte[9]          'RX ADR define B3 byte[10]         'TX ADR define B4 byte[11]         'CRC define B5 byte[12]         'D0 / SUBCMD define B6 byte[13]         'D1 / HI-BYTE define B7 byte[14]         'D2 / LO-BYTE define B8 byte[15]         'CRC '----PLRS Anfrage senden--------------------------------------------------------- gosub request B1=7:B2=21:B3=0:B4=0:B5=0:B6=0:B7=0 gosub send_command '--auswerten--- If (B7  and &H80)=0 then ... '------Sub-Kommandos für Kommunikation mit dem PLRS------------ #request        '--Kommunikationsanfrage an das Modem senden put B1 get B1:get B2:get B3:get B4:get B5:get B6:get B7:get B8 return #send_command   '--Kommando an PLRS senden put B1:put B2:put B3:put B4:put B5:put B6:put B7:put B8 B1=0:B2=0:B3=0 pause 1: if  RXD then goto ANSWER_RECEIVED      '20 pause 1: if  RXD then goto ANSWER_RECEIVED      '40 pause 1: if  RXD then goto ANSWER_RECEIVED      '60 pause 1: if  RXD then goto ANSWER_RECEIVED      '80 pause 1: if  RXD then goto ANSWER_RECEIVED      '100 pause 2: if  RXD then goto ANSWER_RECEIVED      '140 pause 2: if  RXD then goto ANSWER_RECEIVED      '180 pause 10: if  RXD then goto ANSWER_RECEIVED     '380 pause 10: if  RXD then goto ANSWER_RECEIVED     '580 pause 20: if  RXD then goto ANSWER_RECEIVED     '1000 #RX_TIMEOUT BEEP 368,50,1:return #ANSWER_RECEIVED  '--Antwort des PLRS auswerten get B1:get B2:get B3:get B4:get B5:get B6:get B7:get B8 if B1=0 then beep 368,50,1 return #Onmail  'Daten empfangen und in Mailslot eintragen danach auswerten return MFG Volker

Antwort schreiben

Bisherige Antworten:

Re: PLRS abfragen (von Hans - 12.05.2004 23:36)