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

[Marten]

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

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

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

Да, все работает.

Правда пришлось заремить строчку

Run("Windowsexplorer.exe", "")

ведь експлорер у нас и так грузиться ещё при включении навика

[niber]

Тут' date=' боюсь, ничего не поможет. Отстает определение скорости от реального значения. У меня например больше сотни уже на спидометре, а он только реагирует на 60. Это зависит как быстро у вас машина скорость набирает А вот попробуйте мееееедленно скорость набирать и погрешность не привысит 2 км.[/quote'] Да понятно, что запаздывает, но не буду мееееедленно скорость набирать. Темп набора скорости у меня примерно одинаков (если, конечно, особых помех нет), движок до 6 тыс. не кручу, нормально разгоняюсь. Так что подрихтовать параметр таки можно, попробую поставить поменьше.

[Chrome]

Да понятно' date=' что запаздывает, но не буду мееееедленно скорость набирать. Темп набора скорости у меня примерно одинаков (если, конечно, особых помех нет), движок до 6 тыс. не кручу, нормально разгоняюсь. Так что подрихтовать параметр таки можно, попробую поставить поменьше. [/quote']

А дальше? Или после разгона сразу конец маршрута? ;)

[klop]

На мой вкус, оба способа имеют право на жизнь. В городе (а точнее, в условиях условно-постоянного ограничения) скрипт от vlego вполне нормально (господа, если вы так легко разгоняетесь до сотни в городе, то нафига вам какие-то дурацкие предупреждения о 60??? Они нужны тем, кто собирался ехать 60-таки. Если он случайно успеет поехать 70, пока СГ предупредить не успел, то его еще не прихватят). А при езде "на расстояние" фоновый iGo мне больше нравится. И на превышение реагирует моментально.

[niber]

А дальше? Или после разгона сразу конец маршрута?

Ну почему же, дальше - крейсерская скорость

[PsevDANIm]

vlego - не за что извиняться.

Быстро тут плодятся сообщения... Даже не всегда успеваю успевать за мыслью авторов. )

Накопившиеся вопросы по порядку:

1. Про WinMoble благополучно забыли?

2. Судя по тому что

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

нам (выньмобильникам) часть строчек в последней части можно потереть?

3. vlego, хотелось бы попросить выложить такой же подробный скриптик с пояснениями каждой строчки

4. Нам тоже нужно автоматическое "ок" с 10 секундами!

5. И проверку запущена ли программа - тоже нужна! )

Ждем!

Заранее спасибо!

[PsevDANIm]

P.P.S.

Вот так щас выглядит мой скрипт:

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

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

# "СityGuideCE.ini" для WinMobile. V0.1                         #

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

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

#SetVolume( 250 )

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

cgPath = "флеш-дискProgram filesCity Guide 3"

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

cgName = "CityGuide"

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

SpeedLimit[1]="47"

SpeedLimit[2]="67"

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

SpeedLimit[3]="100"

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

SpeedName[1]="ограничение скорости 40км/ч. (" & SpeedLimit[1] & ")"

SpeedName[2]="ограничение скорости 60км/ч. (" & SpeedLimit[2] & ")"

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

SpeedName[3]="ограничение скорости 90км/ч. (" & SpeedLimit[3] & ")"

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

ActiveSpeedLimit = RegRead( "HKCU", "SoftwareMITCity GuideSettings", "Speedlimit" )

ForEach ix, idx in array ( SpeedLimit )

     if ( idx = ActiveSpeedLimit )

          ActiveSpeedName = SpeedName[ix]

          ActiveSpeedix = ix

     EndIf

EndForEach

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

While( chCase <> 1 )

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

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

     if ( idx > 0 )

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

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

               Case( 1 )

                    chCase = 1

          EndSwitch

     EndIf

EndWhile

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

RegWriteDWord( "HKCU", "SoftwareMITCity GuideSettings", "Speedlimit", SpeedLimit[idx] )

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

ShowWaitCursor

Sleep(1000)

Kill("YFLoader6.exe")

ShowWaitCursor

Sleep(1000)

Kill("YFLoadRD.exe")

ShowWaitCursor

Sleep(1000)

Kill("ScrollShell.exe")

ShowWaitCursor

Sleep(1000)

HideWaitCursor

RunWait(cgPath & cgName & ".exe")

ShowWaitCursor

Run("WindowsYFLoader6.exe")

HideWaitCursor

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

P.P.P.S.

Гы-ы-ы... У нас нет СityGuideCE.ini

[vlego]

Скрипт для WM.

(Большие буквы в окне выбора и таймер)

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

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

#                    для WinMobile. V_0.11                      #

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

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

#SetVolume( 250 )

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

cgPath = "флеш-дискProgram filesCity Guide 3"

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

cgName = "CityGuide"

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

SpeedLimit[1]="67"

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

SpeedLimit[2]="100"

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

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

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

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

# если программа загружена, то запускаем сам ехешник

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

     Run(cgPath & cgName & ".exe")

# если программа не загружена, то запускаем скрипт

else

     # чтение значения параметра из реестра

     ActiveSpeedLimit = RegRead( "HKCU", "SoftwareMITCity GuideSettings", "Speedlimit" )

     # определяем наименование текущего значения

     ForEach ix, idx in array ( SpeedLimit )

          if ( idx = ActiveSpeedLimit )

               ActiveSpeedName = SpeedName[ix]

               ActiveSpeedix = ix

          EndIf

     EndForEach

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

     SetChoiceEntryFormat(156/MaxIndex(SpeedLimit),24)

     

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

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

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

     

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

     if ( idx <> 0 )

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

          RegWriteDWord( "HKCU", "SoftwareMITCity GuideSettings", "Speedlimit", SpeedLimit[idx] )

             

          # если нужно, запускаем explorer

          # Run("Windowsexplorer.exe", "")

             # Sleep(1000)

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

               Run(cgPath & cgName & ".exe")

     EndIf

EndIf

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

Пробуйте. По результатам отпишитесь.

[Ruskol]

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

Ну никто и ничего?

[vlego]

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

Ну никто и ничего?

Нужны исходные данные, где и как пишется конфиг, где лежит СГ? Где находится "SpeedLimit="?

[uNANim]

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

Ну никто и ничего?

Так что, никто не пробовал?

[PsevDANIm]

ВОПРОС:

Так что' date=' никто не пробовал?[/quote']

ОТВЕТ:

[Marten]

Вопрос к vlego

На одном из навигаторов (TN-705) русский шрифт в надписях выбора порога предупреждения (60км/ч, 90км/ч) пишет кракозябликами. Причем рядом лежит ещё один такой же 705-ый, там по-русски. Нет шрифта?

Проблему конечно решили перезаписью в скрипте этих же строчек по англицки, но просто интересна причина.

[vlego]

Вопрос к vlegoНа одном из навигаторов (TN-705) русский шрифт в надписях выбора порога предупреждения (60км/ч' date=' 90км/ч) пишет кракозябликами. Причем рядом лежит ещё один такой же 705-ый, там по-русски. Нет шрифта?Проблему конечно решили перезаписью в скрипте этих же строчек по англицки, но просто интересна причина.

[/quote']

Текстовый файл должен быть сохранен в кодировке UTF-8.

На обоих навигаторах один и тотже файл или для каждого создавали свой? Проверьте кодировку.

[Marten]

На обоих навигаторах один и тотже файл или для каждого создавали свой? Проверьте кодировку.

Один и тот же файл. Даже больше скажу - файл в процессе не открывался и не сохранялся, просто был тупо переписан с одного навика на другой.

[vlego]

Обновил скрипты.

Т.к. в версии 3.7.0.336 значение уровня громкости присутствует в конфиге, то скрипт меняет это значение на установленное. В верси ниже 3.7.0.336 по прежнему меняется системная громкость.

Сейчас автоматически оределяется версия программы и выбирается соответствующее значение громкости.

Включил проверку запущенного explorera, если не запущен, то запускается.

WinCE - 20100519_133914_StartCE_v013.zip

WM - 20100518_213809_StartWM_v013.zip

[Marten]

Обновил скрипты.

Путь наверное все-таки поправить надо?

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

cgPath = "SDMMCCityGuide_3.7.0.336"

[vlego]

Путь наверное все-таки поправить надо?# путь установки программыcgPath = "SDMMCCityGuide_3.7.0.336"

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

[Marten]

Может добавить третью кнопку, кроме 60 и 90 ?

Или до бесконечности или 110

У нас например на объездной 110 разрешено и мы там частенько ездим

[vlego]

Может добавить третью кнопку' date=' кроме 60 и 90 ?Или до бесконечности или 110У нас например на объездной 110 разрешено и мы там частенько ездим

[/quote']

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

Добавьте строчки:

     SpeedLimit[3]="110" (или свое значение)

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

[Marten]

Добавьте строчки:

     SpeedLimit[3]="110" (или свое значение)

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

ок, добавил, работает.

[Cruiser]

Работает.

Вопрос:

как в WM изменить значок ярлыка start.exe на значок CityGuide

[Zukovserge]

А можно сделать установку в WM всего этого каким нибудь простым методом типа ***.cab чтобы просто запустить этот файл и все само настроилось и установилось куда нужно.

[demo4]

Как оказалось - эта фича работает и на carPC 3.4 !

Тока как эту функцию в carPC 3.4 запустить?

[PsevDANIm]

Так же как и на всём остальном.

Можно вопрос раскрыть, в чём сложность-то?..