%SLEEP_TIME% = 200


# Pfad zu sirftech eintragen
run \Programme\sirftech.exe

%COM_PORT% = 8
%OLD_BAUD% = 9600
%NEW_BAUD% = 57600

%althold% = "aa"   
#aa=auto; a=always; d=disable

%altsrc% = "l"    
#l=last computed; u=user input

%alt% = 0
#in meter für user input

%degmod% = "hhhh"    
#hhhh=hold direction, clock; h=hold clock, direction; hh=hold direction; hhh=hold clock; d=disable

%degtout% = 60
#in sec

%deadtout% = 30
#in sec


%GGA%    = 1
%GLL%    = 0
%GSA%    = 1
%GSV%    = 1
%RMC%    = 1
%VTG%    = 0
%MSS%    = 0
%User8%  = 0
%ZDA%    = 0
%User10% = 0

# warte bis sirftech geladen ist
Sleep 1000

#starte verarbeitung
Call ChangeComm
Call CallOk

#check opencom ok


If equals %tst%, "NMEA"

  Call ChangeNMEA
  #kurz warte...
  Sleep 1000
  Call CallOk
  Call ChangeSirf
  Call CallOk

endif

Sleep 1000
Call CallOk

Exit

Sub CallOk
  Sleep %SLEEP_TIME%
  MouseClick 310, 10
  Sleep %SLEEP_TIME%
EndSub 

Sub ChangeSirf
# Menue Sirf
  MouseClick 150, 310
  Sleep %SLEEP_TIME%

# nach rechts scrollen
  Repeat 2
    MouseClick 235, 280
    Sleep %SLEEP_TIME%
  EndRepeat
# tab waehlen
  MouseClick 20, 280
  Sleep %SLEEP_TIME%

#werte setzen
  MouseClick 200, 40
  Call SendKeysUp
  SendKeys %althold%
  SendCR
  Sleep %SLEEP_TIME%
  MouseClick 185, 55
  Call SendKeysUp
  SendKeys %altsrc%
  SendCR
  Sleep %SLEEP_TIME%
  MouseClick 180, 75
  SendHome
  SendEnd ,0,1
  SendKeys %alt%
  SendCR
  Sleep %SLEEP_TIME%
  MouseClick 180, 91
  Call SendKeysUp
  SendKeys %degmod%
  SendCR
  Sleep %SLEEP_TIME%
  MouseClick 180, 110
  SendHome
  SendEnd ,0,1
  SendKeys %degtout%
  SendCR
  Sleep %SLEEP_TIME%
  MouseClick 180, 130
  SendHome
  SendEnd ,0,1
  SendKeys %deadtout%
  SendCR
  Sleep %SLEEP_TIME%
 MouseClick 222, 180
  Sleep %SLEEP_TIME%




# nach rechts scrollen
  Repeat 12
    MouseClick 235, 280
    Sleep %SLEEP_TIME%
  EndRepeat
# tab waehlen
  MouseClick 20, 280
  Sleep %SLEEP_TIME%

# werte setzen
  MouseClick 90, 60
  SendKeys %GGA%
  Sleep %SLEEP_TIME%
  MouseClick 90, 80
  SendKeys %GLL%
  Sleep %SLEEP_TIME%
  MouseClick 90, 100
  SendKeys %GSA%    
  Sleep %SLEEP_TIME%
  MouseClick 90, 115
  SendKeys %GSV%    
  Sleep %SLEEP_TIME%
  MouseClick 90, 135
  SendKeys %RMC%    
  Sleep %SLEEP_TIME%
  MouseClick 90, 155
  SendKeys %VTG%     
  Sleep %SLEEP_TIME%
  MouseClick 90, 170
  SendKeys %MSS%    
  Sleep %SLEEP_TIME%
  MouseClick 90, 190
  SendKeys %User8%  
  Sleep %SLEEP_TIME%
  MouseClick 90, 205
  SendKeys %ZDA%    
  Sleep %SLEEP_TIME%
  MouseClick 90, 225
  SendKeys %User10% 
  Sleep %SLEEP_TIME%

# baudrate einstellen
  MouseClick 220, 110
  Sleep %SLEEP_TIME%
  Call SetNewBaud
  Sleep %SLEEP_TIME%
  MouseClick 220, 110
  Sleep %SLEEP_TIME%
  
# set druecken
  MouseClick 220, 170
  Sleep %SLEEP_TIME%
EndSub

Sub ChangeComm
# menue comm
  MouseClick 90, 310
  Sleep %SLEEP_TIME%
# comport einstellen
  MouseClick 50, 100
  Sleep %SLEEP_TIME%
  Call SendKeysUp
  Repeat %COM_PORT%
    SendKeys C
  EndRepeat
  Sleep %SLEEP_TIME%
  MouseClick 50, 100
  Sleep %SLEEP_TIME%

# baudrate
  MouseClick 100, 130
  Sleep %SLEEP_TIME%	
  Call SendKeysUp
  Call SetOldBaud
  Sleep %SLEEP_TIME%
  MouseClick 100, 130
  Sleep %SLEEP_TIME%

# open druecken
  MouseClick 120, 145
  Sleep %SLEEP_TIME%

#sleep 5000
  getwindowtext 90, 180, tst

EndSub

Sub ChangeNMEA
# Menubutton NMEA
  MouseClick 110, 310
  Sleep %SLEEP_TIME%

# Baudrate aendern
  MouseClick 100, 280
  Sleep %SLEEP_TIME%
  Call SetOldBaud
  MouseClick 100, 280
  Sleep %SLEEP_TIME%

# Set 
  MouseClick 230, 40
  Sleep %SLEEP_TIME%
# Switch to Sirf
  MouseClick 180, 280
  Sleep %SLEEP_TIME%
# Messag
  MouseClick 100, 190
  Sleep %SLEEP_TIME%
EndSub

Sub SendKeysUp
  Repeat 10
    SendUp
  EndRepeat
  Sleep %SLEEP_TIME%
EndSub

Sub SetNewBaud
  Call SendKeysUp
  Switch %NEW_BAUD%
    Case 1200
      SendKeys 1
    Case 2400
      SendKeys 2
    Case 4800
      SendKeys 4
    Case 9600
      SendKeys 9
    Case 19200
      SendKeys 1
      SendKeys 1
    Case 38400
      SendKeys 3
    Case 57600
      SendKeys 5
    Case 115200
      SendKeys 1
      SendKeys 1
      SendKeys 1
  EndSwitch
  Sleep %SLEEP_TIME%
EndSub

Sub SetOldBaud
  Call SendKeysUp
  Switch %Old_BAUD%
    Case 1200
      SendKeys 1
    Case 2400
      SendKeys 2
    Case 4800
      SendKeys 4
    Case 9600
      SendKeys 9
    Case 19200
      SendKeys 1
      SendKeys 1
    Case 38400
      SendKeys 3
    Case 57600
      SendKeys 5
    Case 115200
      SendKeys 1
      SendKeys 1
      SendKeys 1
  EndSwitch
  Sleep %SLEEP_TIME%
EndSub