Code:
Spiin Wart , 1
Dlaczego czytasz tylko jeden bajt danych?
Do you prefer the English version of the page elektroda?
No, thank you Send me over there
Config Pinx.x : Clk alias Portx.x : Clk = 0
Config Pinx.x : Cs alias Portx.x : Cs = 1
Config Pinx.x : Da alias Pinx.x
Dim Tablica(16) As Byte
Dim Wynik As Word
Dim Licznik_1 As Byte
Dim Waga As Word
Do
Cs = 0
Licznik_1=1
Do
Tablica(Licznik_1) = Da
Clk = 1
Waitus 10
Clk = 0
Waitus 10
Incr licznik_1
Loop Until Licznik_1 = 17
Cs = 1
Wynik = 0
Licznik_1 = 5
Waga = 1
Do
If Tablica(Licznik_1) = 1 then Wynik = Wynik + Waga
Waga = Waga * 2
Incr Licznik_1
Loop Until Licznik_1 = 15
Lcd Wynik
Waitms 250
Loop
$regfile = "m8def.dat"
Config Spi = Soft , Din = Pinc.2 , Dout = Portc.3 , Ss = None , Clock = Portc.4
Cursor Off
Config Pinc.4 = Output
Config Pinc.3 = Output
Config Pinc.2 = Input
Sck Alias Portc.4
Cs Alias Portc.3
So Alias Pinc.2
Dim Maxdata As Word
Cs = 1
Sck = 0
Portc.2 = 1
Cls
Lcd "Temp "
Do
Cs = 0
Shiftin So , Sck , Maxdata , 0 , 16
Cs = 1
Shift Maxdata , Right , 3
Maxdata = Maxdata / 4
Locate 1 , 6
lcd Maxdata; " "
Waitms 800
Loop
End
