picbasic code voor FSK RFM02 en RFM01 - Forum

ricardo12345

donderdag 12 mei 2011 21:26:45

Hallo Allemaal,
ik heb de volgend vraag ben al een tijdje bezig om dit daaiende te krijgen

wil dezen pic laten zenden en de andere pic ondvangen met de FSK RFM01 en RFM02
heb dezen code gevonden na 3 dagen zoeken en hier en daar wat ge probeert maar lukt me niet ,, dezen code zent bits en wort op de andere kant tekst op een display geset.

wat me bedoeling is.
Bits aan bieden op een pin,? van de pic dezen bits worden verzonden met de RFM02 en ondvanger met RFM01 en de pic zet de bits weer op een pin.? naar buiten, wie kan me een stukje op weg helpen wat er aan gepast moet worden ?? is er mescien iemand die hier wel een werkende zet heeft draaien

pic basic code:
'=====RFM01=====
'PIC.........RFM01 Ondvager
'RB0 (CS) - nSEL
'RB4 (SDI) - SDO
'RB5 (SDO) - SDI
'RB3 (SCL) - SCK
'RB2 (nFFS)- NFFS
'RB1 (FFIT)- FFIT
Device 16F873
Config CP_OFF, DEBUG_OFF, WRT_ENABLE_ON, CPD_OFF, LVP_OFF, BODEN_OFF, PWRTE_OFF, WDT_OFF, HS_OSC
Xtal 10
All_Digital true
Hserial_Baud = 9600 ' Set baud rate to 9600
Hserial_RCSTA = %10010000 ' Enable serial port and continuous receive
Hserial_TXSTA = %00100000 ' Enable transmit and asynchronous mode
Hserial_Clear = On ' Optionally clear the buffer before receiving
Dim Daten As Word
Dim Daten2 As Byte
Dim i As Byte
Symbol CS = PORTB.0
Symbol SDI = PORTB.4
Symbol SDO = PORTB.5
Symbol SCL = PORTB.3
Symbol nFFS = PORTB.2
Symbol FFIT = PORTB.1
TRISB = %00010010
DelayMS 500
HSerOut["RFM02",13,10]
Daten = $893b : GoSub configs
Daten = $a680 : GoSub configs
Daten = $c0c3 : GoSub configs
Daten = $cc0e : GoSub configs
Daten = $c6f7 : GoSub configs
Daten = $c4ec : GoSub configs
Daten = $c823 : GoSub configs
Daten = $ce88 : GoSub configs
Daten = $ce8b : GoSub configs
Start:
If FFIT = 1 Then Auslesen
GoTo Start
Auslesen:
Low CS
Low nFFS
'Low SDO
SHIn SDI, SCL, msbpre, [Daten2\8]
High CS
High nFFS
DelayUS 1
Daten = $ce88 : GoSub configs
Daten = $ce8b : GoSub configs
HSerOut[":",Daten2]
Inc i
''If i = 50 Then Stop
'Print At 1,1, BIN8 Daten.HighByte
'Print At 2,1, BIN8 Daten.LowByte
GoTo Start
configs:
Low CS
SHOut SDO, SCL, msbfirst, [Daten\16]
High CS
DelayUS 10
Return

pic basic code:
'=====RFM02=====
'PIC.........RFM02 Zender
'RB2 (CS) - nSEL
'RB4 (FSK) - FSK
'RB5 (SDO) - SDI
'RB3 (SCL) - SCK
'RB1 (nIRQ)- nIRQ
'
'RB0 - Led - GND
Device 16F873
Config CP_OFF, DEBUG_OFF, WRT_ENABLE_ON, CPD_OFF, LVP_OFF, BODEN_OFF, PWRTE_OFF, WDT_OFF, HS_OSC
Xtal 10
All_Digital true
Dim Daten As Byte
Dim Daten2 As Word
Symbol CS = PORTB.2
Symbol FSK = PORTB.4
Symbol SDO = PORTB.5
Symbol SCL = PORTB.3
Symbol nIRQ = PORTB.1
Symbol Led = PORTB.0
TRISB = %00000010
FSK = 0
Led = 1
DelayMS 500
Led = 0
DelayMS 500
Led = 1
Dim i As Byte
Dim Temp As Byte
Daten2 = $8880 : GoSub configs
Daten2 = $a680 : GoSub configs
Daten2 = $c823 : GoSub configs
Daten2 = $c220 : GoSub configs
Daten2 = $c039 : GoSub configs
Start:
Toggle Led
If nIRQ = 0 Then
Daten = $aa : GoSub Senden : GoSub Senden : GoSub Senden
Daten = $2d : GoSub Senden
Daten = $d4 : GoSub Senden
Daten = "A" : GoSub Senden
Daten = $2d : GoSub Senden
Daten = $d4 : GoSub Senden
Daten = "B" : GoSub Senden
Daten = $2d : GoSub Senden
Daten = $d4 : GoSub Senden
Daten = "C" : GoSub Senden
Daten = $2d : GoSub Senden
Daten = $d4 : GoSub Senden
Daten = "B" : GoSub Senden
EndIf
DelayMS 500
GoTo Start
Senden:
For i = 7 To 0 Step -1
FSK = GetBit Daten, i
Repeat
Until nIRQ = 1
Repeat
Until nIRQ = 0
Next i
FSK = 0
Return
configs:
Low CS
SHOut SDO, SCL, msbfirst, [Daten2\16]
High CS
DelayUS 50
Return