Zur Übersicht - INFO - Neueste 50 Beiträge - Neuer Beitrag - Suchen - Zum C-Control-I-Forum - Zum C-Control-II-Forum

433 MHz Empfang Kategorie: Sonstige Hardware (von a6000000 - 8.09.2008 12:15)


hallo
fuer UNIT M 2.0 gibt es ein beispiel fuer 433 MHz empfangsmodul in basic

wie nutze ich das mit pro Mega 32

LINKs::   http://a6000000.wik.is/CCONTROL

habe auch ccontrol MICRO und die  LED reagiert auch an port 2 ,
dann habe ich wegen der LCD pro mega 32 gekauft und musste feststellen ,
finde nicht wie ich mit der BASIC++ IDE  das program auf pro mega 32 laufen lasse
und die IDE von der pro mega 32 will das .bas programm nicht uebersetzen

muss ich jetzt doch noch eine UNIT M 2.0 kaufen ?

[QUOTE]

'IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
'III      BASIC++  DEMO ZUM BASIC-COMPUTER UNIT M 1.2/2.0       IIIII
'IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
'--------------------------------------------------------------------
' Beispiel zum BASIC-COMPUTER    mit dem Programmer/Application-Board
'--------------------------------------------------------------------
' LIBRARY: RF_VERIFY_ADR(returns COMMAND)               (ab OS V2.03)  
'          CHECKS FOR 4 RECEIVED FRAMES BELONGING TO   REFADDR
'          EXIT WITH COMMAN OR FF ON ERROR
'          MODIFIES TIMER  
'--------------------------------------------------------------------
FUNCTION RF_VERIFY_ADR()
define ADDR       as byte  'Empfangspuffer ADDR
define CMD        as byte  'Empfangspuffer CMD
define FCOUNTER   as byte  'zählt die Frames
define REFADDR    as byte 'REFERENZ ADRESSE

REFADDR=00111110b
RF.INIT
'-----------------------------------------------------
'---------- RF MODULE AUF 1.FRAME ABFRAGEN -----------
'-----------------------------------------------------
#FRAME1
RF.GET ADDR,CMD
if (ADDR=FFh) and (CMD=FFh) then goto ERROR_EXIT
'------------------ DATEN PRĂ?FEN ----------------------
if ADDR <> REFADDR then goto ERROR_EXIT
TIMER=0                         'TIMEOUT FĂ?R ALLE 4 FRAMES
'-----------------------------------------------------
'---------- RF MODULE AUF 2.FRAME ABFRAGEN -----------
'-----------------------------------------------------
#FRAME2
if TIMER>6 then goto ERROR_EXIT   'TIMEOUT ->
RF.GET ADDR,CMD
if (ADDR=FFh) and (CMD=FFh) then goto FRAME2
'------------------ DATEN PRĂ?FEN ----------------------
if ADDR <> REFADDR then goto ERROR_EXIT

'-----------------------------------------------------
'---------- RF MODULE AUF 3.FRAME ABFRAGEN -----------
'-----------------------------------------------------
#FRAME3
if TIMER>6 then goto ERROR_EXIT    'TIMEOUT ->
RF.GET ADDR,CMD
if (ADDR=FFh) and (CMD=FFh) then goto FRAME3
'------------------ DATEN PRĂ?FEN ----------------------
if ADDR <> REFADDR then goto ERROR_EXIT

'IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
'IIII    3 RAHMEN RICHTIG EMPFANGEN               IIIII
'IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII
RF.OFF
CMD=CMD and 0Fh
goto EX
#ERROR_EXIT
CMD=FFh
#EX
RETURN CMD
END FUNCTION


[/QUOTE]


    Antwort schreiben


Antworten: