Sub Timer1_Tick
' Handle tick events
Dim txbuffer As String
timeinterval = timeinterval + 1
Timesec.Text = timeinterval
lblFire.Color = Colors.White
If CheckGPS.Checked = False Then
GPS1.Stop
Return
Else
GPS1.Start(0, 0) 'Listen to GPS with no filters.
End If
'test se latitudine/longitudine disponibili altrimenti attendi ad inviare
If lblLat.Text = "" Then Return
If lblLon.Text = "" Then Return
If timeinterval >= general.GSMInterval Then ' check se Tempo Scaduto per invio
lblFire.Color = Colors.red ' segnalazione visiva invio SMS
timeinterval = 0 ' resetta contatore tempo
DateTime.DateFormat = "dd/MM/yyyy"
txbuffer = "(C) MAgo - GPS Comunicator v1.0" & CRLF & CRLF & _
"Data: " & DateTime.date(DateTime.Now) & CRLF & _
"Ora: " & DateTime.time(DateTime.Now) & CRLF & _
"ID Telefono: "& Telefono.GetDeviceId & CRLF & _
"ID SIM: "& Telefono.GetSimSerialNumber & CRLF & _
"SubScrib: "& Telefono.GetSubscriberId & CRLF & _
"Posizione Attuale: " & CRLF & _
"http://maps.google.com/maps?q=" & _
lblLat.Text.Trim & "," & lblLon.Text.Trim & "&ll=" & _
lblLat.Text.Trim & "," & lblLon.Text.Trim & "&z=14"
If general.enableSMS <> 0 Then
ToastMessageShow("Invio SMS: " & txbuffer, True)
MyPhone.Send(general.GSMCell1, txbuffer)
End If
If general.enableMail <> 0 Then
ToastMessageShow("Invio e-mail a " & general.GSMMail1, True)
invia_mail(general.GSMMail1, txbuffer)
End If
End If
End Sub