Перейти к содержанию
GPS навигатор СитиГИД

Предупреждение о превышении скорости


Рекомендуемые сообщения

ни у кого нет случайно телефона Лауры?

надиктовала бы нам фразочку... за розочку :)

Ссылка на сообщение
Поделиться на другие сайты
  • Ответов 99
  • Дата создания
  • Последний ответ

Лучшие авторы в теме

Лучшие авторы в теме

Популярные посты

Для того, чтобы в Вашем навигаторе при превышении, установленного Вами порога скорости, звучало предупреждение о превышении скорости необходимо взять любой WAV файл, переименовать его в OverSpeed.ru.w

Чтобы каждый раз вручную не править значение скорости в конфиге, набросал скриптик для WinCE, который сначала предлагает выбрать порог ограничения скорости, а потом запускает СГ. Пути размещения прогр

Скрипты для запуска CityGuide. v01 v02 WinCe 20100510_185341_StartCE.RAR WM 20100510_185400_StartWM.RAR Скрипты для WM проверить было не на чем. Поэто

ни у кого нет случайно телефона Лауры?
надиктовала бы нам фразочку... за розочку :)

Лучше пусть г-н Кирьянов надиктует LOL
Ссылка на сообщение
Поделиться на другие сайты

Чтобы каждый раз вручную не править значение скорости в конфиге, набросал скриптик для WinCE, который сначала предлагает выбрать порог ограничения скорости, а потом запускает СГ. Пути размещения программы необходимо поправить для своего девайса.

Может кому пригодится.   smiley9.gif

20100508_005546_WarnSpeen.rar

  • Upvote 1
Ссылка на сообщение
Поделиться на другие сайты

Скрипты для запуска CityGuide.

v01

20100510_183408_v1_1.jpg

20100510_183520_v1_2.jpg

v02

20100510_183632_v2.jpg

WinCe 20100510_185341_StartCE.RAR

WM 20100510_185400_StartWM.RAR

Скрипты для WM проверить было не на чем. Поэтому может что то работать не будет.

Файлы перед запуском переименовать в Start.mscr

В начале скрипта добавил строчку для установки громкости "SetVolume( 250 )". Значения могут быть от 0 до 255. Строка закомментирована, кому надо раскомментируйте. Часто приходится выгружать пограмму, для изменения громкости, особенно в версии 3.5 и ниже. Если выставить необходимое значение, то программа будет всегда загружаться с этим значением громкости.

  • Upvote 1
Ссылка на сообщение
Поделиться на другие сайты

Скрипты для запуска CityGuide.

v01
20100510_183408_v1_1.jpg 

 

Ух-ты! От меня благодарность! Clap

И сразу вопрос, можно эти три строчки растянуть на весь экран по высоте, а то боюсь будет сложно попадать?

 
Ссылка на сообщение
Поделиться на другие сайты

WM - сразу нужно поменять путь программы (у всех он разный)

У меня например Флеш-дискProgram filesCity Guide 3

# пуь установки программы


cgPath = "SDMMCCityGuide_3.7.0.336"





Автору: вот наименование файла, для WinMoblie, можно сразу поменять - CityGuide 



# наименование файла программы СитиГид


cgName = "CityGuideCE" 


И для тех, кто видит всё это почти первый раз - например для меня:

1. Что бы что-то там вообще заработало - выберете один из двух предложенных автором вариантов (по картинкам)

2. Найдите файлик с циферкой нужной Вам версии с расширением .mscr

3. Откройте его блокнотом, внесите необходимые изменения, закройте сохранив.

4. Переименуйте его в "start.mscr"

5. Запускать нужно файлик Start.exe

Ссылка на сообщение
Поделиться на другие сайты

скажите кто уже имел возможность опробовать: можно ли как-то изменять порог без выхода из самой программы? Или СГ надо закрывать каждый раз, когда нужно изменить в реестре порог скорости?

Ссылка на сообщение
Поделиться на другие сайты

скажите кто уже имел возможность опробовать: можно ли как-то изменять порог без выхода из самой программы? Или СГ надо закрывать каждый раз' date=' когда нужно изменить в реестре порог скорости?

[/quote']

Даже, если изменить в реестре значение, в программе порог не изменится. Программа считывает весь конфиг в момент загрузки. Для того, что бы менять порог скорости не перегружая программу необходимо это делать в интерфейсе программы, а для этого нужно лесть в код программы.

Надеюсь в скором будующем разработчики доделают эту фичу, тем более, что она уже работает.

Для PsevDANIm

Прошу прощения за минимум информации по установке скрипта. Выложил скрипт, который делал для себя и расписал комментарии с надеждой, что каждый подгонит под своего зверька.

Ссылка на сообщение
Поделиться на другие сайты

Ух-ты! От меня благодарность! Clap

И сразу вопрос' date=' можно эти три строчки растянуть на весь экран по высоте, а то боюсь будет сложно попадать?

 
[/quote']

Можно.

20100511_152312_v11.jpg

Нужно добавить строчку в указанном месте:

################ выбор значения лимита скорости #################

# установка размера шрифта в окне выбора

SetChoiceEntryFormat(156/3,22)

While( chCase <> 1 )

     idx = Choice( "Selection", "Выбор порога превышения скорости.

          ^LF^Текущее " & ActiveSpeedLimit, ActiveSpeedix, 0, SpeedName )

     if ( idx > 0 )

          Switch( Question(" Выбрано " & SpeedName[idx] & ".

          Хотите продолжить?","Внимание!","YesNo") )

               Case( 1 )

                    chCase = 1

          EndSwitch

     EndIf

EndWhile

  • Upvote 1
Ссылка на сообщение
Поделиться на другие сайты

To vlego:

здОрово, спасибо. Поставил на свой ВМ, вроде работает. Бум пробовать на ходу.

Ссылка на сообщение
Поделиться на другие сайты

To vlego:здОрово' date=' спасибо. Поставил на свой ВМ, вроде работает. Бум пробовать на ходу.

[/quote']

Пожалуйста.

Так как под рукой нет девайса с WM хотелось бы посмотреть на рабочий скрипт. Если не сложно киньте.

Для будующих изменений.

Ссылка на сообщение
Поделиться на другие сайты

Пожалуйста.

Так как под рукой нет девайса с WM хотелось бы посмотреть на рабочий скрипт. Если не сложно киньте.

Для будующих изменений.

Да там, собственно, почти ничего не поменялось (пока). Кроме как "по совету друзей" (с)  в лице PsevDANIm'а:

# путь установки программы (у меня в основной памяти)

cgPath = "Program filesCity Guide 3"

#  и

# наименование файла программы СитиГид

cgName = "CityGuide"

Ссылка на сообщение
Поделиться на другие сайты



Можно. <...>

 

А! Побежал пробовать! Big%20smile

 

 

<добавлено>

Вроде заработало после прописания полного пути к ini (у меня MortScript лежит в отдельной папке):

################### чтение файла конфигурации ###################
GetData = ReadFile( "SDMMCCityGuideCityGuideCE.ini" )

и

WriteFile( "SDMMCCityGuideCityGuideCE.ini", SetData )

 

Возникло два вопроса:

1. Кнопка Cancel не отменяет меню, обязательно надо что-то выбрать, после чего грузится СГ. Хотелось бы отмены.

2. Хотелось бы добавить таймер к значению по умолчанию (например, "Город") и без дополнительного вопроса, у которого к тому же мелкие кнопки.

 

(сужу по скрипту который стоял у меня для запуска программы на выбор, для каждодневного использования было очень удобно: если случайно нажал, то можно отменить загрузку, а если специально, то тыком можно начать загружать программу или ничего более не нажимая, грузится первая в списке)

 

P.S. Что такое YFLoader6.exe, зачем его сначала kill, а потом run?

 

P.P.S. Теперь СГ после сворачивания, не достаётся... Cry

 
Ссылка на сообщение
Поделиться на другие сайты

<... Кнопка Cancel не отменяет меню' date=' обязательно надо что-то выбрать, после чего грузится СГ. Хотелось бы отмены.

2. Хотелось бы добавить таймер к значению по умолчанию (например, "Город") и без дополнительного вопроса, у которого к тому же мелкие кнопки.

...>[/quote']

YFLoader6.exe - это родная оболочка TeXeT TN505. Перед загрузкой программы я ее выгружаю, а потом, после выгрузки программы загружаю обратно. Но это только для TN505.

Вот поправленный скрипт, пробуйте. Таймер установлен на 10 сек.

#################################################################

#    Скрипт изменяющий значение параметра "SpeedLimit" в файле #

# "СityGuideCE.ini" для Windows CE. V 0.12                      #

#################################################################

# для версии 3.5 и ниже установка громкости (значения 0-255)

#SetVolume( 250 )

# пуь установки программы

cgPath = "SDMMCCityGuide"

# наименование файла программы СитиГид

cgName = "CityGuideCE"

# значение для города

SpeedLimit[1]="67"

# значение для трассы

SpeedLimit[2]="100"

# наименование для города

SpeedName[1]="ограничение скорости 60км/ч."

# наименование для трассы

SpeedName[2]="ограничение скорости 90км/ч."

################### чтение файла конфигурации ###################

GetData = ReadFile( cgPath & cgName & ".ini" )

ForEach strDat in split ( GetData, "^LF^", TRUE )

     if ( Find( strDat, "SettingsSpeedLimit=" ) )

          ActiveSpeed = strDat

          ActiveSpeedString = Part( strDat, "=", 1 ) & "="

          ForEach ix, idx in array ( SpeedLimit )

               if ( idx = Part( strDat, "=", 2 ) )

                    ActiveSpeedLimit = SpeedName[ix]

                    ActiveSpeedix = ix

               EndIf

          EndForEach

     EndIf

EndForEach

################ выбор значения лимита скорости #################

# установка размера шрифта в окне выбора

SetChoiceEntryFormat(156/MaxIndex(SpeedLimit),24)

# выбор порога превышения скорости

idx = Choice( "Selection", "Выбор порога превышения скорости.

     ^LF^Текущее " & ActiveSpeedLimit, ActiveSpeedix, 10, SpeedName )

# если не Cancel, то продолжаем

if ( idx <> 0 )

     # сохранение значения лимита скорости

     SetData = Replace( GetData, ActiveSpeed, ActiveSpeedString & SpeedLimit[idx] )

     WriteFile( cgPath & cgName & ".ini", SetData )

     # Запуск программы

     Run(cgPath & cgName & ".exe")

EndIf

############################# Конец ############################

Ссылка на сообщение
Поделиться на другие сайты

Вот поправленный скрипт' date=' пробуйте. Таймер установлен на 10 сек.
<...>
[/quote']

 

Ага! Работает.

Осталось придумать как доставать СГ из свёрнутого состояния...Unhappy

Может быть надо сначала запускать дополнительное меню где а)программа, б)задание скорости, т.е. путь к этому скрипту? (я в этом мало понимаю, так что не пинайте, если мысль глупая, но просто с путями к программам сворачивание/разворачивание работало Embarrassed)
Ссылка на сообщение
Поделиться на другие сайты

 

Ага! Работает.

Осталось придумать как доставать СГ из свёрнутого состояния...Unhappy

Может быть надо сначала запускать дополнительное меню где а)программа' date=' б)задание скорости, т.е. путь к этому скрипту? (я в этом мало понимаю, так что не пинайте, если мысль глупая, но просто с путями к программам сворачивание/разворачивание работало Embarrassed)
[/quote']

А какая у вас версия СГ? У меня СГ никогда не сворачивался, чесно говоря, не заморачивался по этому поводу. Может у Вас СГ запускался тоже через МортСкрипт? Сначала грузился Explorer, а потом СГ?

Ссылка на сообщение
Поделиться на другие сайты



А какая у вас версия СГ? У меня СГ никогда не сворачивался, чесно говоря, не заморачивался по этому поводу. Может у Вас СГ запускался тоже через МортСкрипт? Сначала грузился Explorer, а потом СГ?

 

Вот так - http://forum.probki.net/forum_posts.asp?TID=3872&KW=YFAutoRun%2Einf&PID=79222#79222 (как это работает - не представляю Big%20smile)

 
Ссылка на сообщение
Поделиться на другие сайты

 

Вот так - http://forum.probki.net/forum_posts.asp?TID=3872&KW=YFAutoRun%2Einf&PID=79222#79222 (как это работает - не представляю Big%20smile)

 

Попробуйте перед загрузкой СГ, строка Run(cgPath & cgName & ".exe") загрузить explorer

Run ("Windowsexplorer.exe")

Sleep(1000)

Run(cgPath & cgName & ".exe")

Но у меня не работает.

Ссылка на сообщение
Поделиться на другие сайты

Попробуйте перед загрузкой СГ' date=' строка Run(cgPath & cgName & ".exe") загрузить explorer
[/quote']

 

Я так понимаю, что это для сворачивания? Так сворачиваться-то он сворачивается, а вот разворачиваться не хочет - при СГ в фоне не запускается скрипт. Видимо.

 
Ссылка на сообщение
Поделиться на другие сайты

Докладываю: проехался с WarnSpeed по городу с установленным формальным порогом 60 км/ч. Работает. Уведомляет. Но при установленном пороге 67 км/ч (не менял в скрипте), уведомление раздается при почти 80 км/ч. Ну, это скорректируем. Второй нюанс - уровень громкости файла Overspeed заметно ниже остальных звуковых файлов. Придется его подрихтовать. А может, вообще его заменю на какой-нибудь спец-треньк, чтобы у жены, когда едет пассажиром, не прибавилось поводов поштурманить.

Ссылка на сообщение
Поделиться на другие сайты

Ну правильно. Вы пытаетесь как бы запустить весь скрипт по второму разу.

Надо проверку вставить, загружен ли СГ уже, или он только в первый раз грузится.

Вот так:

If (ProcExists("CityGuideCE.exe"))

RunProg =

"ResidentFlashCITYGUIDECityGuideCE.exe"

Run(RunProg)

Else

#=== тут вставить сам

основной скрипт===

EndIf

Ссылка на сообщение
Поделиться на другие сайты

Но при установленном пороге 67 км/ч (не менял в скрипте)' date=' уведомление раздается при почти 80 км/ч. [/quote']

Тут, боюсь, ничего не поможет. Отстает определение скорости от реального значения. У меня например больше сотни уже на спидометре, а он только реагирует на 60. Это зависит как быстро у вас машина скорость набирает Wink А вот попробуйте мееееедленно скорость набирать и погрешность не привысит 2 км.

Ссылка на сообщение
Поделиться на другие сайты

Долго не мог понять, как вы свернутый СГ разворачиваете, дошло (не прошло и года). Нужно было просто еще раз запустить СГ.

Пока тестировал на своем навике Marten опередил.

Вот поправленный скрипт, пробуйте.

#################################################################

#    Скрипт изменяющий значение параметра "SpeedLimit" в файле #

# "СityGuideCE.ini" для Windows CE. V 0.12                      #

#################################################################

# для версии 3.5 и ниже установка громкости (значения 0-255)

#SetVolume( 250 )

# пуь установки программы

cgPath = "SDMMCCityGuide"

# наименование файла программы СитиГид

cgName = "CityGuideCE"

# значение для города

SpeedLimit[1]="67"

# значение для трассы

SpeedLimit[2]="100"

# наименование для города

SpeedName[1]="ограничение скорости 60км/ч."

# наименование для трассы

SpeedName[2]="ограничение скорости 90км/ч."

if ( ProcExists( cgName & ".exe" ) )

     Run(cgPath & cgName & ".exe")

else

     ################### чтение файла конфигурации ###################

     GetData = ReadFile( cgPath & cgName & ".ini" )

     

     ForEach strDat in split ( GetData, "^LF^", TRUE )

          if ( Find( strDat, "SettingsSpeedLimit=" ) )

               ActiveSpeed = strDat

               ActiveSpeedString = Part( strDat, "=", 1 ) & "="

               ForEach ix, idx in array ( SpeedLimit )

                    if ( idx = Part( strDat, "=", 2 ) )

                         ActiveSpeedLimit = SpeedName[ix]

                         ActiveSpeedix = ix

                    EndIf

               EndForEach

          EndIf

     EndForEach

     ################ выбор значения лимита скорости #################

     # установка размера шрифта в окне выбора

     SetChoiceEntryFormat(156/MaxIndex(SpeedLimit),24)

     

     # выбор порога превышения скорости

     idx = Choice( "Selection", "Выбор порога превышения скорости.

          ^LF^Текущее " & ActiveSpeedLimit, ActiveSpeedix, 10, SpeedName )

     

     # если не Cancel, то продолжаем

     if ( idx <> 0 )

          # сохранение значения лимита скорости

          SetData = Replace( GetData, ActiveSpeed, ActiveSpeedString & SpeedLimit[idx] )

          WriteFile( cgPath & cgName & ".ini", SetData )

          # Запуск программы

          Run("Windowsexplorer.exe", "")

          Sleep(1000)

          Run(cgPath & cgName & ".exe")

     EndIf

EndIf

############################# Конец ############################

  • Upvote 1
Ссылка на сообщение
Поделиться на другие сайты
Гость
Эта тема закрыта для публикации ответов.

×
×
  • Создать...