Имхо, лучше потратить дЭнги на навигацию, а возможно она уже и есть.
И вкатать скриптик при запуске которго, при привышении установленной скорости будет проигрыватся установленный файл (укуренная корова что на телефонах, одно время тусовалась на звонках).
Очень помагает.
название скрипта "gps_speed.mscr"
Цитата
folder = SystemPath("ScriptPath")
com="COM7:" // установите свой порт
SetComInfo(com,2000,38400,"none",8,1,"None") // установите сою скорость порта
int = Question( "YES-> Город...NO-> Трасса...Cancel-> Автобан","Скоростной режим","YesNoCancel" )
If( int = 2 )
While ( 1 = 1 )
sleep (2000)
nmea=Readfile(com,300)
start=Find(nmea,"$GPRMC")
gprmc=SubStr(nmea,start,start+82)
spl=Split(gprmc,",")
X=(SubStr(spl[8],-5))
B = X*1.852
if ( B > 110 ) // скороть при превышении которой на режиме Автобан напомнит
PlaySound("\MyFlashDisk\Mu.wav")
EndIf
EndWhile
EndIf
If( int = 1 )
While ( 1 = 1 )
sleep (2000)
nmea=Readfile(com,300)
start=Find(nmea,"$GPRMC")
gprmc=SubStr(nmea,start,start+82)
spl=Split(gprmc,",")
X=(SubStr(spl[8],-5))
B = X*1.852
if ( B > 65 ) // скороть при превышении которой на режиме Город напомнит
PlaySound("\MyFlashDisk\Mu.wav")
EndIf
EndWhile
EndIf
If( int = 0 )
While ( 1 = 1 )
sleep (2000)
nmea=Readfile(com,300)
start=Find(nmea,"$GPRMC")
gprmc=SubStr(nmea,start,start+82)
spl=Split(gprmc,",")
X=(SubStr(spl[8],-5))
if ( B > 95 ) // скороть при превышении которой на режиме Трасса напомнит
PlaySound("\MyFlashDisk\Mu.wav")
EndIf
EndWhile
EndIf
Файл звука Mu.wav должен лежать тамже где и сам скрипт.
Если файл не проигрывается системой (оцифруйте его с разрешением звука, которое поддерживает ваша система!!)
чтобы была оперативная возможность, изменть или отключать скоростной режим, используем второй скрипт
Название его должно быть "Run_gps_sped.mscr"
Цитата
folder = SystemPath("ScriptPath")
If (ScriptProcExists( "gps_speed.mscr" ) )
int = Question( "Отключить? нажмите ДА, Изменить нажмите Нет","Контроль скорости уже запущен!","YESNo" )
If( int = 1 )
KillScript( "gps_speed.mscr" )
EndIf
If( int = 0 )
KillScript( "gps_speed.mscr" )
Run("\\MyFlashDisk\gps_speed.exe")
EndIf
Else
Run("\MyFlashDisk\gps_speed.exe")
EndIf
Все запуски и настройки выполяем через него.
Тоесть можно и нужно втомже WOLFNCU повесить на удобную для вас кнопку,
запуск "Run_gps_sped.mscr"
Все пути в скриптах к скриптам и файлам пишем свои!!!
Моя так сказать разработка, советую
Особенно когда подзабываеш, что она включена.