RF12 module need to convert some C to Basic

[davewanna]

Thanks mackrackit... I just found that out as you posted...

Pity no-one has example code of these modules in picbasic.. would make my learning procedure easier...

[Ioannis]

Have you just tried to send this binary string with shiftout?

I think there is not much needed to make it work. Just send the string. Serout will not work here.

Ioannis

[davewanna]

Ioannis,


I have not used shiftout before... I have just tried..

SCK             var portb.6
SDO             var portb.7
shiftout SDO, SCK, 1, [%1100000011110111]

This did not change the osc... still 1Mhz. Is my syntax ok?

[Ioannis]

If you check it with the manual, I understand that you cannot send a binary string that way. You have to use, as with most of the commands, a variable. Either byte or word size defined on top.

So put the string in two byte variables or a word sized variable and then send it out with shiftout command. Check also if MSB or LSB is needed by the module.

The 1100000011110111 string is exaclty 16bits.

Ioannis

[dhouston]

There is an example on the meLabs website showing how to use the synchronous serial port hardware to read/write from/to an SPI slave (e.g. RF12).

• http://www.melabs.com/resources/samples/pbp/spimast.bas

Also, here is a link to a BasCOM program written for the RF12. While BasCOM is not PBP and an AVR chip is not a PIC, it should still give you a good understanding of what you need to do.

• http://comwebnet.co.funpic.de/RFM12/rf12Tranceiver.bas

[davewanna]

Ioannis,

I realised this not long after I posted.. I tried the following with no difference in results..

dout            var word
dout = $C0F7
shiftout SDO, SCK, 1, [dout]

Tried with the HEX, and the binary values.
I don't think it matters, but also tried [dout\16]

Dhouston,

Thanks for the links, I will study them closely tomorrow.

[iw2fvo]

Thank for the link.
The program is written in German... but it is a great help.
regards,
Ambrogio

[camerart]

Hi,
Is this thread still open?
I would like to ask questions
Camerart

[Art]

Nops in this function are a delay. The function (subroutine as you worked out) sends a single zero value out of the SPI bus.
If you were to set SCK low, and then high again in the very next instruction, the receiving device might miss the signal.
Especially if the external device runs slower than the transmitting device. You can use @nop in PBP.

Since there are several flavours of SPI, it would be better to reproduce this then use PBP SHIFTOUT (unless it’s already working).
They are really only turning two port bits on & off.

writezero:
portb.something = 0’ clear SPI data
portb.something = 0’ clear clock pin, the receiver will look at the value of the SPI data bit now.
delay
portb.something = 1’ set the clock pin, the receiver will look for the next bit on the next rising edge (next time you call this function, or the writeone function).

void Write0( void )
{
  SDI=0;
  SCK=0;
  NOP();
  NOP();
  NOP();
  NOP();
  NOP();
  NOP();
  NOP();
  NOP();
  NOP();
  NOP();
  NOP();
  NOP();
  NOP();
  NOP();
  NOP();
  NOP();
  SCK=1;
  NOP();
}