################################################
###                                          ###
#######     GPS-Chip Baudrate ändern     #######
###                                          ###
#######                                  #######
###         (c) 2010 Team Sokobana           ###
####### http://forum.pocketnavigation.de #######
###         http://www.varioskin.de          ###
################################################

############################################################
### Anwendung auf eigene Gefahr und ohne Gewährleistung! ###
###     Dieses Programm unterliegt den Rechten der       ###
###Creative Commons Attribut Non-Commercial Share Alike 3###
###     Lizenz. Genaue Angaben finden Sie beiliegend     ###
###         in der Datei Lizenz_VarioSkin3.txt           ###
############################################################

#########################################
#  Nach einer Idee von Manni 123        #
#########################################

ErrorLevel ("syntax")

# --- Port-Splitter überprüfungen --- sokobana -------------------------

If (RegValueExists ("HKCU", "Software\sokobana", "LastCom"))
	PlaySound ("\Windows\menusel.wav")
	Message ( "Asynchrone ComPort-Einstellungen vorhanden:^NL^Führen Sie einen HARD-RESET aus!")
	Exit
EndIf

CurrentCom = ( RegRead ("HKCU","Software\sokobana", "CurrentCom") )
If ( CurrentCom = 0 )
	PlaySound ("\Windows\menusel.wav")
	Message ( "abgelehnt:^NL^Kein Port-Splitter aktiv!")
	Exit
Endif

# --- Start ------------------------------------------------------------

NMEA = 0
Fehler = 0
FehlerMarker = 0
Wiederholung = 0

#While( ProcExists( "KOORD465.EXE" ) )
#	Kill ( "KOORD465.EXE" )
#	sleep (1000)
#EndWhile

Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 SendKey=\f#StartPNA\m0x0010")	
Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 SendKey=\f#Baudrate\m0x0010")	
	
SetChoiceEntryFormat( 24,20, Arial )
Einstellungen[1] = " 4800 --> Standard für Gopal 3"
Einstellungen[2] = "57600 --> z.B. für Medion E4430 unter Gopal 4"
Einstellungen[3] = "NMEA --> hängenden GPS-Chipsatz reparieren"

Choice ("GPS-Baudrate","GPS-Baudrate ändern^NL^^NL^Cave!", Einstellungen)
Case(1)
	
      	Call Baudfehlerfinden
	
	If ( Baudfehler = 3 )
		PlaySound ("\My Flash Disk\Sokobana\MortScript\Sirfmodus.wav" )
		Call NMEA
		Call Baudfehlerfinden
		If ( Baudfehler = 3 )
			PlaySound ("\My Flash Disk\Sokobana\MortScript\Sirfmodus.wav" )
		Endif
	Endif
	
	PlaySound ("\My Flash Disk\Sokobana\MortScript\success.wav" )
	Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 SendKey=\f#Baudrate\m0x0010")	

Case(2)
	Wiederholung = 2
	Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 KoordServ=1 ClassName=Baudrate| SetSN=57600 GPSPort=com2:,4800| GPSPrio=240|")
	For i = 1 to 2
		SetVolume ( RegRead ("HKCU","Software\sokobana", "VOLDELAY") )
		PlaySound ("\My Flash Disk\Sokobana\MortScript\triple_sonar.wav" )
		SetVolume ( 255 )
		Sleep ( 2000 )
	next
	Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 KoordServ=1 ClassName=Baudrate| wndrefresh=1100 t=3 GPSPort=com5:,4800| GPSPrio=240| ServWnd=sat,340,10,140,16,-1016,0,0,0,-1,-1{Kontrolle Sats: %i} ")
	For i = 1 to 2
		SetVolume ( RegRead ("HKCU","Software\sokobana", "VOLDELAY") )
		PlaySound ("\My Flash Disk\Sokobana\MortScript\triple_sonar.wav" )
		SetVolume ( 255 )
		Sleep ( 2000 )
		If ( ColorAt (163,104) = 16777215 )
			Sleep ( 2000 )
			SendOK ( "Kein" )
			PlaySound ("\My Flash Disk\Sokobana\MortScript\Baudrate_57600_ok.wav" )
			Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 SendKey=\f#Baudrate\m0x0010")	
			i = 2
		Endif
	Next
	PlaySound ("\My Flash Disk\Sokobana\MortScript\success.wav" )
	Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 SendKey=\f#Baudrate\m0x0010")
Case(3)
	Call NMEA
	PlaySound ("\My Flash Disk\Sokobana\MortScript\success.wav" )
	Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 SendKey=\f#Baudrate\m0x0010")
endchoice

# --- Sirftech starten ----------------------------------------------------
	MouseClick ( 10, 220 )
	Sleep ( 4000 )
	MouseClick ( 90, 30 )

Sub ChangeTo4800
	# --- Baudrate umschalten 57600 --> 4800 --- sokobana ----------------
	
	Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0  KoordServ=1 ClassName=Baudrate| SetSN=4800 GPSPort=com2:,57600| GPSPrio=240|")
	For i = 1 to 3	
		SetVolume ( RegRead ("HKCU","Software\sokobana", "VOLDELAY") )
		PlaySound ("\My Flash Disk\Sokobana\MortScript\triple_sonar.wav" )
		SetVolume ( 255 )
		If ( i = 3 )
			Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 SendKey=\f#Baudrate\m0x0010")
		Endif
		Sleep ( 2000 )
	Next
	# --- Kontroll-Server starten --- sokobana ---------------------------
	Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 KoordServ=1 ClassName=Baudrate| wndrefresh=1100 t=3 GPSPort=com5:,4800| GPSPrio=240| ServWnd=sat,200,10,280,16,-1016,0,0,0,-1,-1{Kontrolle | Baudrate=4800 -->  Sats: %i} ")
	For i = 1 to 3	
		SetVolume ( RegRead ("HKCU","Software\sokobana", "VOLDELAY") )
		PlaySound ("\My Flash Disk\Sokobana\MortScript\triple_sonar.wav" )
		SetVolume ( 255 )
		Sleep ( 2000 )
			
	# --- Fehlermeldung: Baudrate 57600 ? ------------------------------------
		If ( ColorAt (163,104) = 16777215 )
			SendOK ( "Kein" )
			i = 2
			#Baudfehler = 3
		Endif
	Next
EndSub


Sub NMEA
	NMEA = 0
	Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 KoordServ=1 ClassName=Baudrate| SetSN=3 GPSPort=com2:,4800| GPSPrio=240|")
	For i = 1 to 3	
		SetVolume ( RegRead ("HKCU","Software\sokobana", "VOLDELAY") )
		PlaySound ("\My Flash Disk\Sokobana\MortScript\triple_sonar.wav" )
		SetVolume ( 255 )
		If ( ColorAt (163,104) = 16777215 )
			SendOK ( "Kein" )
			i = 3
		Endif
		If ( i = 3 )
			Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 SendKey=\f#Baudrate\m0x0010")
		Endif
		Sleep ( 2000 )
	Next
	Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 KoordServ=1 ClassName=Baudrate| SetSN=3 GPSPort=com2:,57600| GPSPrio=240|")
	For i = 1 to 3	
		SetVolume ( RegRead ("HKCU","Software\sokobana", "VOLDELAY") )
		PlaySound ("\My Flash Disk\Sokobana\MortScript\triple_sonar.wav" )
		SetVolume ( 255 )
		If ( ColorAt (163,104) = 16777215 )
			SendOK ( "Kein" )
			i = 3
		Endif
		If ( i = 3 )
			Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 SendKey=\f#Baudrate\m0x0010")
		Endif
		Sleep ( 2000 )
	Next
EndSub

Sub Baudfehlerfinden
	# --- Prüfung: Baudrate ok (4800)? -------------------------------
	Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 KoordServ=1 ClassName=Baudrate| wndrefresh=1100 t=3 GPSPort=com5:,4800| GPSPrio=240| ServWnd=sat,200,10,280,16,-1016,0,0,0,-1,-1{Kontrolle | Baudrate=4800 -->  Sats: %i} ")
	Baudfehler = 0
	For i = 1 to 2
		SetVolume ( RegRead ("HKCU","Software\sokobana", "VOLDELAY") )
		PlaySound ("\My Flash Disk\Sokobana\MortScript\triple_sonar.wav" )
		SetVolume ( 255 )
		Sleep ( 2000 )
	# --- Fehlermeldung: Baudrate 4800 ? --- sokobana ------------------------------------
		If ( ColorAt (163,104) = 16777215 )
			Baudfehler = 1
			SendOK ( "Kein" )
			Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 SendKey=\f#Baudrate\m0x0010")	
			Sleep ( 2000 )
			SetVolume ( RegRead ("HKCU","Software\sokobana", "VOLDELAY") )
			PlaySound ("\My Flash Disk\Sokobana\MortScript\triple_sonar.wav" )
			SetVolume ( 255 )
	# --- Prüfung: Baudrate ok (57600)?  --- sokobana ---------------------------
			Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 KoordServ=1 ClassName=Baudrate| wndrefresh=1100 t=3 GPSPort=com5:,57600| GPSPrio=240| ServWnd=sat,200,10,280,16,-1016,0,0,0,-1,-1{Kontrolle | Baudrate=4800 -->  Sats: %i} ")
			For i = 1 to 2	
				SetVolume ( RegRead ("HKCU","Software\sokobana", "VOLDELAY") )
				PlaySound ("\My Flash Disk\Sokobana\MortScript\triple_sonar.wav" )
				SetVolume ( 255 )
				Sleep ( 2000 )
			
	# --- Fehlermeldung: Baudrate 57600 ? ------------------------------------
				If ( ColorAt (163,104) = 16777215 )
					Baudfehler = 3
					SendOK ( "Kein" )
					i = 2
				Endif
			Next
		Endif
	Next
	Run ("\My Flash Disk\Sokobana\koord2\koord465.exe", "Window=0 SendKey=\f#Baudrate\m0x0010")
	Sleep ( 2000 )
	If ( Baudfehler = 0 )
		PlaySound ("\My Flash Disk\Sokobana\MortScript\Baudrate_Gopal3_ok.wav" )
	Endif
	If ( Baudfehler = 1 )
		Call ChangeTo4800
		PlaySound ("\My Flash Disk\Sokobana\MortScript\Baudrate_Gopal3_ok.wav" )
	Endif
	
EndSub