PCCar.ru - Ваш автомобильный компьютер - Полезные утилиты и Твики iCarDS

- iCarDS (http://pccar.ru/forumdisplay.php?f=121)

- - Полезные утилиты и Твики iCarDS (http://pccar.ru/showthread.php?t=24392)

icar_wallpaper_changer

Программка рандомной смены обоев в Икаре.

Работает так видос(в видео работает тестовый скрипт для наглядности)...

Есть настройки...
[settings]
day_time=08:25 --- дневное время
night_time=18:00 --- ночное время
set_wallpaper_on_time=false --- смена режимов, false - рандомная смена обоев, true - смена обоев по дневному и ночному времени.
wallpaper_path=C:\Users\Terro\Desktop\фоны\resize --- путь до папки с обоями
on_time_cycle_interval=5 --- цикл отработки скрипта, для смены обоев по времени(в мин.).
random_cycle_interval=5 --- цикл отработки скрипта, для смены обоев рандомно(в мин.).

Скачать
...

Цитата:

Сообщение от duzzy (Сообщение 395577)

Слава,привет. Смотрю у тебя идей как всегда навалом.
Респект!!!

Цитата:

Net_checker_v2

Работает отлично ..
Попытаюсь сегодня встроить в iCarMainScript ..)

seriousstas

Цитата:

Работает отлично ..

Шикарно ! :)

Проверь личку.
...

Евген_21

Привет ! :)
Да идей не много но есть)))
Время мало для их реализации...))
Сделал себе управление икар\фубар на обычном джойстике без всяких ардиюн, потестирую и если все будет нормуль выложу исходник с программкой.
Можно использовать с любым джойстиком(с осями и без), если руки растут откуда надо можно переделать или сунуть в любой корпус напаять кнопки и т.д.... или так использовать.
Видос как работает в домашних условиях уже выкладывал продублирую)))

duzzy

Цитата:

Проверь личку.

Спасибо , а я уже ранее подсмотрел exe-ху ,а там..)))

Но я так и сделал все нужное сложил в MyUDF.au3 ,
почистил - результат iCarMainScript со встроенным Net_checker_v2
+ прозрачные кнопки в полноэкранных режимах ..

- Заменить по пути :
Documents\iCarDS\skins\Chameleon\Scripts\iCarMainScript.exe
- первый раз запустить Икар с подключенной сетью .

Цитата:

У утилиты есть настройки в ини файле...
[settings]

check_timeout=5000 --- время цикла проверок

check_timeout ставлю 2000
Путь
C:\Users\MY_PC\Documents\iCarDS\skins\Chameleon\Sc ripts\net_checker_v2.ini

Качнуть или тут

Цитата:

Сообщение от duzzy (Сообщение 395650)

Я, себе тоже сделал управление с помощью джойстика. Только связь с iCar через плагин iCarDuino. Задействовал 10 кнопок (кроме крестовины), на одной кнопке 3 режима (нажатие,удержание и двойное нажатие). Так же платку от джойстика установил в руль, благо место позволило. А штатные кнопки руля ,немного переделав подключил к нему. Использовал такой.
Вложение 48727
Исходник скрипта на ahk. С ним ребята с серого форума помогли.

Код:

#UseHook 

  

Joy1:: ;  

    HK := RegExReplace(A_ThisHotkey, "S)[\Q+^!#<>~*$\E]"), i := 0

    KeyWait, %HK%, T0.7

    If !ErrorLevel 

        Loop  {

            KeyWait, %HK%

            KeyWait, %HK%, D T0.3

        } Until !(++i) || ErrorLevel 

    Try Gosub % A_ThisHotkey "_" i 

    Return



Joy1_0:  

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111111||OnD uinoKeyPress")  

    Return

    

Joy1_1:

  Send, ^{vk57 Down}  ;  Ctrl-W.

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111112||OnD uinoKeyPress")  

    Return

    

Joy1_2:  

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111113||OnD uinoKeyPress") 

    Return



Joy2:: ;  

    HK := RegExReplace(A_ThisHotkey, "S)[\Q+^!#<>~*$\E]"), i := 0

    KeyWait, %HK%, T0.7

    If !ErrorLevel 

        Loop  {

            KeyWait, %HK%

            KeyWait, %HK%, D T0.3

        } Until !(++i) || ErrorLevel 

    Try Gosub % A_ThisHotkey "_" i 

    Return



Joy2_0:  

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111114||OnD uinoKeyPress")  

    Return

    

Joy2_1:

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111115||OnD uinoKeyPress") 

    Return

    

Joy2_2:  

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111116||OnD uinoKeyPress") 

    Return



Joy3:: ;  

    HK := RegExReplace(A_ThisHotkey, "S)[\Q+^!#<>~*$\E]"), i := 0

    KeyWait, %HK%, T0.7

    If !ErrorLevel 

        Loop  {

            KeyWait, %HK%

            KeyWait, %HK%, D T0.3

        } Until !(++i) || ErrorLevel 

    Try Gosub % A_ThisHotkey "_" i 

    Return



Joy3_0:  

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111117||OnD uinoKeyPress")   

    Return

    

Joy3_1:

  Send, ^{vk51 Down}  ;  Ctrl-Q.

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111118||OnD uinoKeyPress") 

    Return

    

Joy3_2:  

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111119||OnD uinoKeyPress") 

    Return



Joy4:: ;  

    HK := RegExReplace(A_ThisHotkey, "S)[\Q+^!#<>~*$\E]"), i := 0

    KeyWait, %HK%, T0.7

    If !ErrorLevel 

        Loop  {

            KeyWait, %HK%

            KeyWait, %HK%, D T0.3

        } Until !(++i) || ErrorLevel 

    Try Gosub % A_ThisHotkey "_" i 

    Return



Joy4_0:  

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111120||OnD uinoKeyPress") и  

    Return

    

Joy4_1:

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111121||OnD uinoKeyPress") 

    Return

    

Joy4_2:  

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111122||OnD uinoKeyPress") 

    Return



Joy5:: ;  

    HK := RegExReplace(A_ThisHotkey, "S)[\Q+^!#<>~*$\E]"), i := 0

    KeyWait, %HK%, T0.7

    If !ErrorLevel 

        Loop  {

            KeyWait, %HK%

            KeyWait, %HK%, D T0.3

        } Until !(++i) || ErrorLevel 

    Try Gosub % A_ThisHotkey "_" i 

    Return



Joy5_0:  

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111123||OnD uinoKeyPress")   

    Return

    

Joy5_1:

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111124||OnD uinoKeyPress")и

    Return

    

Joy5_2:  

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111125||OnD uinoKeyPress")

    Return



Joy6:: ;  

    HK := RegExReplace(A_ThisHotkey, "S)[\Q+^!#<>~*$\E]"), i := 0

    KeyWait, %HK%, T0.7

    If !ErrorLevel 

        Loop  {

            KeyWait, %HK%

            KeyWait, %HK%, D T0.3

        } Until !(++i) || ErrorLevel 

    Try Gosub % A_ThisHotkey "_" i 

    Return



Joy6_0:  

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111126||OnD uinoKeyPress") 

    Return

    

Joy6_1:

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111127||OnD uinoKeyPress")

    Return

    

Joy6_2:  

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111128||OnD uinoKeyPress")

    Return



Joy7:: ;  

    HK := RegExReplace(A_ThisHotkey, "S)[\Q+^!#<>~*$\E]"), i := 0

    KeyWait, %HK%, T0.7

    If !ErrorLevel 

        Loop  {

            KeyWait, %HK%

            KeyWait, %HK%, D T0.3

        } Until !(++i) || ErrorLevel 

    Try Gosub % A_ThisHotkey "_" i 

    Return



Joy7_0:  

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111129||OnD uinoKeyPress")  

    Return

    

Joy7_1:

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111130||OnD uinoKeyPress")

    Return

    

Joy7_2:  

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111131||OnD uinoKeyPress")

    Return



Joy8:: ;  

    HK := RegExReplace(A_ThisHotkey, "S)[\Q+^!#<>~*$\E]"), i := 0

    KeyWait, %HK%, T0.7

    If !ErrorLevel 

        Loop  {

            KeyWait, %HK%

            KeyWait, %HK%, D T0.3

        } Until !(++i) || ErrorLevel 

    Try Gosub % A_ThisHotkey "_" i 

    Return



Joy8_0:  

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111132||OnD uinoKeyPress") 

    Return

    

Joy8_1:

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111133||OnD uinoKeyPress")

    Return

    

Joy8_2:  

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111134||OnD uinoKeyPress")а

    Return



Joy9:: ;  

    HK := RegExReplace(A_ThisHotkey, "S)[\Q+^!#<>~*$\E]"), i := 0

    KeyWait, %HK%, T0.7

    If !ErrorLevel 

        Loop  {

            KeyWait, %HK%

            KeyWait, %HK%, D T0.3

        } Until !(++i) || ErrorLevel 

    Try Gosub % A_ThisHotkey "_" i 

    Return



Joy9_0:  

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111135||OnD uinoKeyPress")  

    Return

    

Joy9_1:

 Send, ^{vk43 Down}  ;  Ctrl-C.

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111136||OnD uinoKeyPress")

    Return

    

Joy9_2:  

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111137||OnD uinoKeyPress")

    Return



Joy10:: ;  

    HK := RegExReplace(A_ThisHotkey, "S)[\Q+^!#<>~*$\E]"), i := 0

    KeyWait, %HK%, T0.7

    If !ErrorLevel 

        Loop  {

            KeyWait, %HK%

            KeyWait, %HK%, D T0.3

        } Until !(++i) || ErrorLevel 

    Try Gosub % A_ThisHotkey "_" i 

    Return



Joy10_0:  

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111138||OnD uinoKeyPress")  

    Return

    

Joy10_1:

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111139||OnD uinoKeyPress")

    Return

    

Joy10_2:  

icar := ComObjCreate("RideRunner.SDK")

icar.Execute("SetVar;duino_key;duino_11111140||OnD uinoKeyPress")

    Return

Цитата:

Использовал такой.

))
Евген_21
Отличная идея - главное экономно! таким можно и всем HYUNDAI-ем рулить )
...........
Обновил iCarMainScript
Был один хвост лишний вызывавший падение..
а так работает ,как часы - duzzy - респект - наконец поставили точку . ))

seriousstas

Пожалуйста;)
Рад что работает нормально.

Цитата:

подсмотрел exe-ху ,а там..)))

Хитрец))) а я тебе исхи посылаю)))

Цитата:

наконец поставили точку . ))

Да и не говори, меня тоже очень напрягала вафля))... иногда полезно сделать паузу чтоб потом посмотреть на проблему под другим углом))

---------------------------------------------------------------------------------------------------
Евген_21

Цитата:

Я, себе тоже сделал управление с помощью джойстика. Только связь с iCar через плагин iCarDuino.

Ахаха у меня джойстик такой же...
зацени...
http://jpegshare.net/thumbs/0a/64/0a...ca7bd77998.jpg
А у меня задействованы все кнопки. Долго думал как их раскидать)))
Сейчас обдумываю расположение на корпусе. Примерные наброски уже есть))

По скрипту, я сделал проще...
Автоит, прямая связь с Икаром через объект...
$rr = ObjCreate("RideRunner.sdk")
и программку joy2key.
Скрипт автоит выступает в роли перехватчика Хоткеев от программки joy2key и перенаправляет действия в необходимую программу. В моем случае это икар, фубар и пот-плеер.
Т.е. работают две программы, скрипт Автоит и программка joy2key.

В твоем случае я не думаю что нужно все время создавать объект...
icar := ComObjCreate("RideRunner.SDK")
при каждом нажатии, достаточно его однажды инициализировать.

Т.е. например:

в начале скрипта прописываешь...
icar := ComObjCreate("RideRunner.SDK")

затем пошло тело скрипта...
Joy1_0:
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111111||OnD uinoKeyPress")
Return

Joy1_1:
Send, ^{vk57 Down} ; Ctrl-W.
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111112||OnD uinoKeyPress")
Return

Joy1_2:
icar := ComObjCreate("RideRunner.SDK")
icar.Execute("SetVar;duino_key;duino_11111113||OnD uinoKeyPress")
Return

выделенное красным можно удалить, как то так...
Но я не в курсе как работает Автохоткей, но думаю что разницы нет.

А если по чесноку мне просто не нравится Автохоткей)))
Синтаксис у него ужасный, код читать просто нереально. Самый удобоваримый код в стиле JavaScript типа как в Автоит.
В Автоит все удобно читать легко разобрать код, да и писать удобнее))... Но это только мое личное мнение, так как на вкус и цвет все фломастеры разные))

--------------------------------------------------------

Попозжей обновлю icar_wallpaper_changer...
- Добавил одновременную смену обоев на рабочем столе вместе с Икаром(получается прикольно, сворачиваешь икар а у тебя те же обои на рабочем столе:)).
- Добавил возможность отключения записи в ини при смене обоев в икаре(т.е. обои в икаре будут меняться но прописываться в ини икара не будут, по сути будет работать как временная смена обоев).

duzzy
Когда, твой вариант управления можно будет тестануть?