I read some DS18S20 from the OW-Bus and display it on the GLCD with the KS0108 controller.
When I call the following code (We assume that oldDisplay = 1):
Code: Select all
Private Sub DisplayATemp()
RomID = TempSensorA
DS18S20.Convert
Font.Style = 1
Select oldDisplay
Case 1
TextAlign = taCenter
GLCD.WriteStr(64,45, GetTempAsStr + "C")
Case 2
GLCD.WriteAt(60,25,GetTempAsStr, $BA, "C")
End Select
End Sub
Therefor I wrote a little loop to clear the area before write the new temperature.
Code: Select all
Private Sub ClearArea()
Dim y As Integer
GLCD.Pen.Color = 0
For y = 44 To 64
GLCD.Line(1,y,128,y)
Next
End Sub
Is there a better way, that I haven't found? I only found the GLCD.Cls command.
Please help again.
Thanks
CS
P.S.: An interessting thing is that I'm not able to display the little circle after the temperature outside the Serial Communicator!? Wich Fonttype are you using in the Serial Communicator? The "$BA" doesn't work.