Hi,
It will be great if there is a library for driving Nokia 5110 LCD. It's cheap, readable and small size.
Thanks
It will be great if there is a library for driving Nokia 5110 LCD. It's cheap, readable and small size.
Thanks
Sub PutString(x As Byte, y As Byte, pcbuff() As Byte) As Byte
Dim n=pcbuff.length As Byte
Dim r=0 As Byte
Do While(n>r)
PutChar(x, y, (pcbuff(r)))
r = r + 1
x = x + 6 'adjust space between chars, now we have space ;)
Loop
Return x
End Sub