''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' GPS SPEEDOMETER (PICOMITE)
' Paul Cahill----Jan 2022
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'OPTION SDCARD GP22
'OPTION SYSTEM SPI GP10,GP11,GP12
'OPTION LCDPANEL ST7789_320, LANDSCAPE,GP8,GP15,GP9,GP13
'OPTION TOUCH GP16,GP17
'GUI CALIBRATE 0, 408, 3901, 900, -646

CLS RGB(175,255,240)
COL = RGB(Yellow)

SetPin 1,2, COM1
SETPIN 15, INTL, AlSet
SetPin GP18,PWM1a

Open "COM1:9600" As gps,10                     ' open the GPS serial interface

Do
 Text 155,100, "Searching For", CM, 1, 2, RGB(black)
 Text 160,130, "Satellites", CM, 1, 2, RGB(black))
 
Loop While GPS(Valid) = 0
CLS (Black)

Do
 PWM 1, OFF
 COL = RGB(Yellow)
 am$="am"
 Date$ = GPS(Date)
 SPD = Cint(GPS(Speed)*1.852)
 SPEED$ = Str$(SPD,4)
 
 IF SPD > (SpSet + 2) and SPD < (SpSet + 6) Then
 COL = RGB(Red)
 Alarm
 Endif
 Time$ = GPS(Time)
 Hour$ = Left$(Time$,2)
 
 Minute$ = Mid$(Time$,4,2)
 If Val(Hour$) >12 Then
   Hour$ = Str$(Val(Hour$) - 12)             '12 Hour Mode
   am$ = "pm"
   HR = Val(HOUR$)
     Hour$ = Str$(HR)                         'Remove the leading zero
   EndIf
   Ti_me$ = Hour$+":"+Minute$
 EndIf
 ALTITUDE$ = Str$(Cint(GPS(Altitude)))
 
 
 ' display the date and time for this second
 Text 50,12,"SET "+Sp_Set$,CM,1,2,RGB(Yellow),RGB(Black)
 Text 235,12,Ti_me$+" "+am$,CM,1,2,RGB(Yellow),RGB(Black)
 Text 90,120,SPEED$,CM,8,1,COL,RGB(Black)
 Text 260,160,"kph",CM,1,2,COL,RGB(Black)
 Text 70,220,"Alt "+Altitude$+"m.",CM,1,2,RGB(Yellow),RGB(Black)
Loop

sub AlSet
If Touch(Y) < 100 Then SpSet = 60
If Touch(Y) >100 and Touch(Y) < 200 Then SpSet = 80
If Touch(Y) > 200 Then SpSet = 100
Sp_Set$ = Str$(SpSet)
End Sub

SUB Alarm
PWM 1,1000,50
End sub