Dim A1 As Byte , C(2) As Byte
Dim B2 As Word , B3 As Word , B4 As Word , B44 As Word
Dim Cs As Bit
Config Lcdpin = Pin , Db4 = P1.0 , Db5 = P1.1 , Db6 = P1.2 , Db7 = P1.3 , E = P1.4 , Rs = P1.5
Config Spi = Soft , Din = P3.2 , Dout = P3.3 , Cs = P3.4 , Clk = P3.5 , Data Order = Msb , Nocs =
Spiinit
Config Lcd = 20 * 4
Cursor Off Noblink
Cls
A1 = &B00011000
Set Cs
Do
Reset Cs
Spiout A1 , 1
Spiin C(1) , 2
Set Cs
Waitms 50
B2 = C(1)
Shift B2 , Left , 2
Shift C(2) , Right , 6
B3 = C(2)
B4 = B2 + B3
If B4 <> B44 Then
Cls
Locate 1 , 1 : Lcd ; "B4 " ; B4
B4 = B44
End If
Loop
Return |