OK Robert7x
The SPI code is here
As I declare the sub
Declare Sub R_chip(r_add As Byte)
Here is the sub
Sub R_chip(r_add As Byte)
Reset Ss
Spiout R_add , 1 ' Recieving the address from call and keeping in data array variable
Spiin R_data(1) , 3
Waitms 1
Set Ss
End Sub
I didn't write it to make my post short thinking would not be any problem.
↧