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

[demalina]

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

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

[HellSoul]

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

Лучше пусть г-н Кирьянов надиктует

[vlego]

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

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

20100508_005546_WarnSpeen.rar

[PsevDANIm]

А что нибудь подобное для winmobile?..

[vlego]

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

v01

v02

WinCe 20100510_185341_StartCE.RAR

WM 20100510_185400_StartWM.RAR

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

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

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

[Ruskol]

А что нибудь подобное для iPhone?..

[YoGun]

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

v01
 

 

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

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

 

[PsevDANIm]

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

[Ivan77]

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

[vlego]

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

[/quote']

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

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

Для PsevDANIm

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

[vlego]

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

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

 

[/quote']

Можно.

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

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

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

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

[niber]

To vlego:

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

[vlego]

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

[/quote']

Пожалуйста.

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

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

[niber]

Пожалуйста.

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

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

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

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

cgPath = "Program filesCity Guide 3"

#  и

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

cgName = "CityGuide"

[YoGun]

Можно. <...>

 

А! Побежал пробовать!

 

 

<добавлено>

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

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

и

WriteFile( "SDMMCCityGuideCityGuideCE.ini", SetData )

 

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

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

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

 

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

 

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

 

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

 

[vlego]

<... Кнопка 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

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

[YoGun]

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

 

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

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

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

[vlego]

 

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

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

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

[/quote']

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

[YoGun]

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

 

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

 

[vlego]

 

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

 

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

Run ("Windowsexplorer.exe")

Sleep(1000)

Run(cgPath & cgName & ".exe")

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

[YoGun]

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

 

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

 

[niber]

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

[Marten]

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

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

Вот так:

If (ProcExists("CityGuideCE.exe"))

RunProg =

"ResidentFlashCITYGUIDECityGuideCE.exe"

Run(RunProg)

Else

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

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

EndIf

[Marten]

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

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

[vlego]

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

Пока тестировал на своем навике 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

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