Показать сообщение отдельно
Старый 13.10.2016, 20:40   #4
Евген_21
Старший Пользователь
 
Аватар для Евген_21
 
Регистрация: 10.11.2014
Возраст: 48
Город: Усть-Илимск
Регион: 38
Машина: HYUNDAI I30 Рестайлинг
Сообщений: 958
Евген_21 is a glorious beacon of lightЕвген_21 is a glorious beacon of lightЕвген_21 is a glorious beacon of lightЕвген_21 is a glorious beacon of lightЕвген_21 is a glorious beacon of lightЕвген_21 is a glorious beacon of light
По умолчанию

А я чуть сложней пошел.(Кнопки уже имелись) Перерезал дорожки,сделал перемычки.
То есть каждая клавиша, это отдельная кнопка.(уже не резистивные)
Установил, в руль платку от джойстика, соединил все с улиткой.
А дальше на комп. Серый форум помог написать скрипт для управления джойстиком при определенных нажатиях. Тестировал в iCarDS. На одну клавишу устанавливаем 3 действия (нажатие, двойное нажатие и удержание)
Код HTML:
#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


НЕ ПОДКЛЮЧЕНА ТОЛЬКО КРЕСТОВИНА ДЖОЙСТИКА!!!!
__________________
GIGABYTE LGA1150 GA-85N B85,Intel Core i3-4330 3.5GHz 4Mb 2xDDR3-1600,Kingston HyperX 4Gb...USB GPS приемник Locosys LS-23030G.,блок питания M4-ATX
Windows 7-64, iCarDS 1.7.0.60 (лицензия)
Оформления и темы для iCarDS
Евген_21 вне форума   Ответить с цитированием