[FSX] Script LUA, Saitek et FSUIPC

Oliver77 · [↑]

Bonjour Bo,

Sois rassuré, je ne tienspas à lâcher le morceau ! Du moins, tant que Patrick et Philippe ont la patience de me donner les billes nécessaires !

Amitiés.

Pat_59 · [↑]

Bobonhom a écrit :

Oliver77 a écrit :
Patrick,
Je te ferai un petit topo sur le DME (que je n'ai pas encore utilisé) et le XPDR.
Quant à la logique de Saïtek, peut-être est-ce en vue de cockpits bien "garnis" avec de nombreux modules radio, ce qui permet d'en dédier un aux COM, un aux NAV, etc... ?
Amtiés.
C'est d'ailleurs ce qu je fais avec mes trois modules radio.... Lâchez pas!

-Comm 1 et Nav 1 pour le premier
-Comm 2 et Nav 2 pour le deuxième
-ADF et Transpondeur pour le dernier...

Bonsoir (chez nous) Bo,

Trois modules!! Je sais que quand on aime on ne compte pas mais quand même...

Mais ne t'inquiètes pas, on ne lâche rien. Si Olivier en a la volonté (et je suis sûr qu'il l'a), on va rentabiliser ces doublons...

Bobonhom · [↑]

Comme dans un vrai Je voulais pas jouer du sélecteur...

Olivier à une volonté de fer, je trouve

Oliver77 · [↑]

@ Bo : Je vais déjà essayer de maîtriser un module radio ... C'est sûr que plusieurs modules c'est pratique en plus de faire un bel effet ... ... Mais je reste humble, et dans mes limites techniques pour l'instant !

@ Patrick : Je tiens à arriver au bout ... Mais ça va être plus long que prévu ! Hier soir, au lieu de coder, j'ai essayé de réfléchir à l'arborescence de ce que je voulais mettre en place, histoire de ne pas écrire des tas de lignes pour rien ...

Donc en gros :

1- Lorsque le Module radio est initialisé, je dois mémoriser la position des deux sélecteurs. (pour moi, par défaut, COM1 et NAV1)
2- Lorsque je mets l'avionique en service, je dois synchroniser COM1 et NAV1 les deux sélecteurs précédemment mémorisés de FSX vers le module radio.
3- Lorsque je change un sélecteur de position, je dois mémoriser sa nouvelle position et synchroniser l'affichage en fonction (en tenant compte du second sélecteur, et de l'affichage associé)

Vu que moi je n'ai qu'un seul module ( dédicace à Bo ), je garde mon sélecteur du haut en COM1, puis je jongle avec le second sélecteur pour les autres fonctions. Je pense me focaliser sur ce fonctionnement dans un premier temps, histoire d'essayer d'arriver à un résultat.

Si c'est ok, je n'aurai plus qu'à adapter le code dans l'autre sens ...

Voilà... il n'y a plus qu'à ça a l'air tout facile, dit comme ça !

J'entre en mode codeur (mais modeste,hein !) Je crois que je vais pondre un truc qui va pas fonctionner, et Patrick va devoir s'arracher les cheveux pour m'aider ...

Dernière modification par Oliver77 (20-11-2014 07:27:57)

Pat_59 · [↑]

Bonjour Olivier,

Dis-moi, quand tu allumes ton panel radio (ton appareil en cold and dark, pas de batterie, pas d'avionique) qu'est ce qu'il affiche?

Je te laisse préparer ton code mais donne-le moi au complet. Si tu fais "communiquer" deux LUA, donne-moi les deux s'il te plait. Merci.

Oliver77 · [↑]

Bonjour Patrick,

En cold and dark, le radio panel n'affiche rien.
Je fais mes essais de code, et je poste dès que j'ai quelque chose de satisfaisant.

Amitiés.

Oliver77 · [↑]

Bonsoir Patrick,

Je reviens avec le sourire ! Je suis arrivé à faire ce que je voulais. Bien sûr c'est loin d'être terminé, mais ça fonctionne.

Pour cela j'ai modifié deux scripts.

- le SwitchPanel.lua :

- J'ai rajouté une section au début du fichier pour initialiser des variables et ainsi connaître l'état des deux sélecteurs.

- Sur l'event qui gère Avionique "ON", je lance la fonction Get_Val, avec en paramètres les valeurs liées à l'état du sélecteur du haut. Par exemple, si il est sur COM1, j'envoie com1 et com1stb. La foulée fait le nécessaire pour afficher ces deux infos sur le module, puis fait la même chose en fonction de l'état du second sélecteur. Pour l'instant j'ai fait mes tests avec NAV1 et NAV2 sur le sélecteur du bas et ça fonctionne bien.

-Sur l'event qui gère Avionique "OFF", je gère l'extinction du module.

- le RadioPanel.lua :

C'est grosso-modo le même principe. J'initialise deux variables, une pour chaque sélecteur. (TopSel et BotSel). Ensuite la bascule du sélecteur top entraine le lancement de la fonction Get_ToP_Val avec deux paramètres concernant la position du sélecteur et afficher les valeurs sur le module. Ensuite la fonction affiche les valeurs du bas selon la position du sélecteur concerné.

J'ai testé, et ça fonctionne.

Tout ça est incomplet, et imparfait, et comporte deux petites failles, dont une volontaire pour commencer :

1 - l'initialisation de SwitchPanel ne fonctionne pas s je coupe l'avionique. Si je la remets en route avec le sélecteur du bas, ce sont toujours les premières valeurs qui s’afficheront. En revanche, si je relance le switchpanel.lua, c'est ok.

2- comme je garde COM1 sur le sélecteur du haut, et que je jongle avec le sélecteur du bas, je ne tiens compte que du sélecteur du haut pour commencer.

je pense que ce code est à améliorer, sûrement à simplifier. Mais je suis vraiment content ! il fonctionne ... Auto satisfaction primaire, et j'ai même pas honte !

Amitiés

Dernière modification par Oliver77 (20-11-2014 22:25:50)

Oliver77 · [↑]

Le script SwitchPanel.lua

[Spoiler]

------------------------
-- Init Cold and Dark --
------------------------

ipc.writeLvar('Magnetos1Pct', 0)
ipc.writeLvar('Battery1Switch', 0)
ipc.writeLvar('Eng1_GeneratorSwitch', 0)
ipc.control(66701,0)
ipc.control(66237,0)
ipc.control(66031,0)
ipc.control(65858,0)
ipc.control(66162,0)
ipc.control(66058,0)
ipc.control(66239,0)
ipc.control(66379,0)
ipc.control(66054,0)
ipc.control(66054,0)
ipc.control(66240,0)
ipc.control(66061,0)
ipc.control(66080,0)
percent = 0

-------------------------------------------------------
-- Détection de l'état des sélecteur du module Radio --
-------------------------------------------------------

-- Lecture des offsets
com1 = ipc.readUW(0x034E) -- com1
com1stb = ipc.readUW(0x311A) -- com1 stand by
com2 = ipc.readUW(0x3118) -- com2
com2stb = ipc.readUW(0x311C) -- com2 stand by
nav1 = ipc.readUW(0x0350) -- nav1
nav1stb = ipc.readUW(0x311E) -- nav1stb
nav2 = ipc.readUW(0x0352) -- nav2
nav2stb = ipc.readUW(0x3120) -- nav2stb

TopSel = " "
BotSel = " "
VleftTop = " "
VrightTop = " "
VleftBottom = " "
VrightBottom = " "

RadioTest = ipc.readUD(0x3358)
if logic.And(RadioTest,1) ~= 0 then
TopSel = 'ACOM1'
VleftTop = com1
VrightTop = com1stb
ipc.log("VleftTop : "..com1)
ipc.log("VrightTop : "..com1stb)
end

if logic.And(RadioTest,2) ~= 0 then
TopSel = 'ACOM2'
end

if logic.And(RadioTest,4) ~= 0 then
ipc.set(TopSel,'ANAV1')
end

if logic.And(RadioTest,8) ~= 0 then
TopSel = 'ANAV2'
end

if logic.And(RadioTest,16) ~= 0 then
TopSel = 'AADF'
end

if logic.And(RadioTest,32) ~= 0 then
TopSel = 'ADME'
end

if logic.And(RadioTest,192) ~= 0 then
TopSel = 'AXPDR'
end

if logic.And(RadioTest,128) ~= 0 then
BotSel = 'BCOM1'
end

if logic.And(RadioTest,256) ~= 0 then
BotSel = 'BCOM2'
end

if logic.And(RadioTest,512) ~= 0 then
BotSel = 'BNAV1'
VleftBottom = nav1
VrightBottom = nav1stb
ipc.log("VleftBottom : "..nav1)
ipc.log("VrightBottom : "..nav1stb)
end

if logic.And(RadioTest,1024) ~= 0 then
BotSel = 'BNAV2'
VleftBottom = nav2
VrightBottom = nav2stb
ipc.log("VleftBottom : "..nav2)
ipc.log("VrightBottom : "..nav2stb)
end

if logic.And(RadioTest,2048) ~= 0 then
BotSel = 'BADF'
end

if logic.And(RadioTest,4096) ~= 0 then
BotSel = 'BDME'
end

if logic.And(RadioTest,8192) ~= 0 then
BotSel = 'BXPDR'
end

ipc.log("TopSel : "..TopSel)
ipc.log("BotSel : "..BotSel)

-------------------------
-- Gestion du Magneto ---
-------------------------

function Magneto_OFF()
-- Magneto Selector OFF
-- 8192 : 2^13
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,8192) ~= 0 then
ipc.writeLvar('Magnetos1Pct', 0)
ipc.control(66400,0)
end
end

function Magneto_LEFT()
-- Magneto Selector LEFT
-- 16384 : 2^14
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,16384) ~= 0 then
ipc.writeLvar('Magnetos1Pct', 16)
ipc.control(66400,1)
end
end

function Magneto_RIGHT()
-- Magneto Selector RIGHT
-- 32768 : 2^15
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,32768) ~= 0 then
ipc.writeLvar('Magnetos1Pct', 38)
ipc.control(66400,2)
end
end

function Magneto_BOTH()
-- Magneto Selector BOTH
-- 65536 : 2^16
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,65536) ~= 0 then
ipc.writeLvar('Magnetos1Pct', 64)
ipc.control(66400,3)
end
end

function Magneto_START()
-- Magneto Selector START
-- 131072 : 2^17
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,131072) ~= 0 then
ipc.writeLvar('Magnetos1Pct', 100)
ipc.control(66400,4)
end
end

-- Gestion des Switchs

function Master_BAT()
-- Master Battery Bit : 2^0 = 1
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,1) ~= 0 then
ipc.writeLvar('Battery1Switch', 1)
else
ipc.writeLvar('Battery1Switch', 0)
end
end

function Master_ALT()
-- Master Alternator Bit : 2^1 = 2
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,2) ~= 0 then
ipc.writeLvar('Eng1_GeneratorSwitch', 1)
else
ipc.writeLvar('Eng1_GeneratorSwitch', 0)
end
end

function Avionics()
-- Avionics Bit : 2^2 = 4
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,4) ~= 0 then
ipc.control(66701,1)
ipc.sleep(2800)
Get_Val(VleftTop,VrightTop)
else
ipc.control(66701,0)
-- Lecture des variables initialisées dans HidRadio.lua
devradio = ipc.get("devradio")
wrfradio = ipc.get("wrfradio")
-- Définition de la variable s : 250 = blank
s=string.char(0,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,0,0)
-- Envoi des valeurs dans le module Saïtek
com.writefeature (devradio, s, wrfradio)
end
end

function Fuel_PUMP()
-- Fuel Pump Bit : 2^3 = 8
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,8) ~= 0 then
ipc.control(66237,1)
else
ipc.control(66237,0)
end
end

function De_ICE()
-- De-Ice Bit : 2^4 = 16
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,16) ~= 0 then
ipc.control(66031,1)
else
ipc.control(66031,0)
end
end

function Pitot_HEAT()
-- Pitot Heat Bit : 2^5= 32
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,32) ~= 0 then
ipc.control(65858,1)
else
ipc.control(65858,0)
end
end

function Cowl_FLAPS()
-- Cowl Bit : 2^6= 64
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,64) ~= 0 then
ipc.control(66162,1)
else
ipc.control(66162,0)
end
end

function Panel_LIGHT()
-- Panel LIGHTs Bit : 2^7= 128
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,128) ~= 0 then
ipc.control(66058,1)
else
ipc.control(66058,0)
end
end

function Beacon_LIGHT()
-- Beacon LIGHTs Bit : 2^8= 256
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,256) ~= 0 then
ipc.control(66239,1)
else
ipc.control(66239,0)
end
end

function Nav_LIGHT()
-- Nav LIGHTs Bit : 2^9= 512
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,512) ~= 0 then
ipc.control(66379,1)
else
ipc.control(66379,0)
end
end

function Strobe_LIGHT()
-- Strobe LIGHTs Bit : 2^10= 1024
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,1024) ~= 0 then
ipc.control(66054,1)
else
ipc.control(66054,0)
end
end

function Taxi_LIGHT()
-- Taxi LIGHTs Bit : 2^11= 2048
if logic.And(testVar,2048) ~= 0 then
ipc.control(66240,1)
else
ipc.control(66240,0)
end
end

function Landing_LIGHT()
-- Landing LIGHTs Bit : 2^12= 4096
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,4096) ~= 0 then
ipc.control(66061,1)
else
ipc.control(66061,0)
end
end

-- Gestion du Train ---

function Gear_UP()
-- Landing Gear Up Bit : 2^12= 262144
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,66079) ~= 0 then
ipc.control(66079,1)
end
end

function Gear_DOWN()
-- Landing Gear Down Bit : 2^12= 524288
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,66080) ~= 0 then
ipc.control(66080,0)
end
end

-------------------------------------------
-- Fonctions --
-------------------------------------------

function Get_Val(VleftTop,VrightTop)
ipc.log("Get_Val")

ipc.log("Conversion VleftTop : "..VleftTop)
ipc.log("Conversion VrightTop : "..VrightTop)

-- Conversion en HEX de VleftTop
setval = DEC_HEX(VleftTop)
-- Extraction du 1er chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 1, 1))
v1= 240 + tonumber(string.sub(setval, 1, 1))
-- Extraction du 2eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 2, 2))
v2 = 208 + tonumber(string.sub(setval, 2, 2))
-- Extraction du 3eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 3, 3))
v3 = 240 + tonumber(string.sub(setval, 3, 3))
-- Extraction du 4eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 4, 4))
v4 = 240 + tonumber(string.sub(setval, 4, 4))
--ipc.log(v1..v2..v3..v4)

-- Conversion en HEX de VrightTop
setval = DEC_HEX(VrightTop)
-- Extraction du 1er chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 1, 1))
v5 = 240 + tonumber(string.sub(setval, 1, 1))
-- Extraction du 2eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 2, 2))
v6 = 208 + tonumber(string.sub(setval, 2, 2))
-- Extraction du 3eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 3, 3))
v7= 240 + tonumber(string.sub(setval, 3, 3))
-- Extraction du 4eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 4, 4))
v8 = 240 + tonumber(string.sub(setval, 4, 4))
--ipc.log(v5..v6..v7..v8)

-- Lecture de la position du sélecteur du bas
ipc.log("test BotSel")
ipc.log(BotSel)

if BotSel == 'BCOM1' or 'BCOM2' or 'BNAV1' or 'BNAV2' then
ipc.log("traitement de botsel")
-- Conversion en HEX de VleftBottom
setval = DEC_HEX(VleftBottom)
-- Extraction du 1er chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 1, 1))
v9= 240 + tonumber(string.sub(setval, 1, 1))
-- Extraction du 2eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 2, 2))
v10= 208 + tonumber(string.sub(setval, 2, 2))
-- Extraction du 3eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 3, 3))
v11 = 240 + tonumber(string.sub(setval, 3, 3))
-- Extraction du 4eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 4, 4))
v12 = 240 + tonumber(string.sub(setval, 4, 4))
ipc.log(v9..v10..v11..v12)

-- Conversion en HEX de VrightBottom
setval = DEC_HEX(VrightBottom)
-- Extraction du 1er chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 1, 1))
v13 = 240 + tonumber(string.sub(setval, 1, 1))
-- Extraction du 2eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 2, 2))
v14 = 208 + tonumber(string.sub(setval, 2, 2))
-- Extraction du 3eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 3, 3))
v15 = 240 + tonumber(string.sub(setval, 3, 3))
-- Extraction du 4eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 4, 4))
v16 = 240 + tonumber(string.sub(setval, 4, 4))
ipc.log(v13..v14..v15..v16)

elseif BotSel == 'BADF' then
ipc.log("Bottom Selector : ADF")
ADF1A = ipc.readUW(0x0356) -- ADF1 1000 + décimale
ADF1B = ipc.readUW(0x034C) -- ADF1 Centaines dizaines unités
ipc.log("ADF1A : "..ADF1A)
ipc.log("ADF1B : "..ADF1B)
A = DEC_HEX(ADF1A)
B = DEC_HEX(ADF1B)
ipc.log("A : "..A)
ipc.log("B : "..B)
elseif BotSel == 'BXPDR' then
ipc.log("Bottom Selector : ADF")
elseif BotSel == 'BDME' then
ipc.log("Bottom Selector : ADF")
end

-- Définition de la variable s : Valeurs à écrire dans le module Saïtek
s=string.char(0,241,v1,v2,v3,v4,241,v5,v6,v7,v8,241,v9,v10,v11,v12,241,v13,v14,v15,v16,0,0)
--s=string.char(0,241,241,241,241,241,242,242,242,242,242,243,243,243,243,243,244,244,244,244,244,0,0)
-- Envoi des valeurs dans le module Saïtek
com.writefeature (devradio, s, wrfradio)

end

function DEC_HEX(IN)
local B,K,OUT,I,D=16,"0123456789ABCDEF","",0
while IN>0 do
I=I+1
IN,D=math.floor(IN/B),math.mod(IN,B)+1
OUT=string.sub(K,D,D)..OUT
end
return OUT
end
-----------------------------------------------

-- Events Magneto --

event.offsetmask(0x66C0, 8192,'UD', 'Magneto_OFF')
event.offsetmask(0x66C0, 16384,'UD', 'Magneto_LEFT')
event.offsetmask(0x66C0, 32768,'UD', 'Magneto_RIGHT')
event.offsetmask(0x66C0, 65536,'UD', 'Magneto_BOTH')
event.offsetmask(0x66C0, 131072,'UD', 'Magneto_START')

-- Events Switchs --

event.offsetmask(0x66C0, 1,'UD', 'Master_BAT')
event.offsetmask(0x66C0, 2,'UD', 'Master_ALT')
event.offsetmask(0x66C0, 4,'UD', 'Avionics')
event.offsetmask(0x66C0, 8,'UD', 'Fuel_PUMP')
event.offsetmask(0x66C0, 16,'UD', 'De_ICE')
event.offsetmask(0x66C0, 32,'UD', 'Pitot_HEAT')
event.offsetmask(0x66C0, 64,'UD', 'Cowl_FLAPS')
event.offsetmask(0x66C0, 128,'UD', 'Panel_LIGHT')
event.offsetmask(0x66C0, 256,'UD', 'Beacon_LIGHT')
event.offsetmask(0x66C0, 512,'UD', 'Nav_LIGHT')
event.offsetmask(0x66C0, 1024,'UD', 'Strobe_LIGHT')
event.offsetmask(0x66C0, 2048,'UD', 'Taxi_LIGHT')
event.offsetmask(0x66C0, 4096,'UD', 'Landing_LIGHT')

-- Events Gear ---

event.offsetmask(0x66C0, 262144,'UD', 'Gear_UP')
event.offsetmask(0x66C0, 524288,'UD', 'Gear_DOWN')

[/Spoiler]

Edit : un bug détecté : Au premier lancement, il faut manipuler le sélecteur du haut, puis relancer le script. Et là ça fonctionne. Sinon, Erreur nil ...

Penser à ajouter une temporisation lors de la mise sous tension de l'avionique, pour coïncider avec le délai d'affichage de la radio du cessna A2A C'est fait, ligne 198

Dernière modification par Oliver77 (20-11-2014 23:18:24)

Oliver77 · [↑]

Le script RadioPanel.lua

[Spoiler]

-- Init Cold and Dark ---
--ipc.control(65707, 0x12210)
TopSel = ""
BotSel = ""
------------------------
------ TOP Items -------
------------------------

-- Top Left Mode Selector ---

function TLS_COM1()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,1) ~= 0 then
TopSel = 'ACOM1'
ipc.log(TopSel)
com1 = ipc.readUW(0x034E) -- com1
com1stb = ipc.readUW(0x311A) -- com1 stand by
Vleft = com1
Vright = com1stb
Get_Val_TOP(Vleft,Vright)
end
end

function TLS_COM2()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,2) ~= 0 then
TopSel = 'ACOM2'
ipc.log(TopSel)
com2 = ipc.readUW(0x3118) -- com2
com2stb = ipc.readUW(0x311C) -- com2 stand by
Vleft = com2
Vright = com2stb
Get_Val_TOP(Vleft,Vright)
end
end

function TLS_NAV1()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,4) ~= 0 then
ipc.set(TopSel,'ANAV1')
ipc.display('nav1_haut',10)
ipc.log('nav1_haut')
end
end

function TLS_NAV2()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,8) ~= 0 then
TopSel = 'ANAV2'
ipc.display('nav2_haut',10)
ipc.log('nav2_haut')
end
end

function TLS_ADF()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,16) ~= 0 then
TopSel = 'AADF'
ipc.display('adf_haut',10)
ipc.log('adf_haut')
end
end

function TLS_DME()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,32) ~= 0 then
TopSel = 'ADME'
ipc.display('dme_haut',10)
ipc.log('dme_haut')
end
end

function TLS_XPDR()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,192) ~= 0 then
TopSel = 'AXPDR'
ipc.display('xpdr_haut',10)
ipc.log('xpdr_haut')
end
end

-- Top Right items ---

function TRI_ACTSTB()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,16384) ~= 0 then

ipc.display('stand-by_haut',10)
ipc.log('stand-by_haut')
devradio = ipc.get("devradio")
wrfradio = ipc.get("wrfradio")
s=string.char(0,241,242,210,242,245,241,242,210,240,245,240,240,208,240,240,240,240,208,240,240,0,0)
com.writefeature (devradio, s, wrfradio)
end
end

function TRI_OUT_KNOB_CW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,262144) ~= 0 then
ipc.display('gros horaire_haut',10)
ipc.log('gros horaire_haut')
end
end

function TRI_OUT_KNOB_ACW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,524288) ~= 0 then
ipc.display('gros anti-horaire_haut',10)
ipc.log('gros anti-horaire_haut')
end
end

function TRI_IN_KNOB_CW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,65536) ~= 0 then
ipc.display('petit horaire_haut',10)
ipc.log('petit horaire_haut')
end
end

function TRI_IN_KNOB_ACW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,131072) ~= 0 then
ipc.display('petit anti horaire_haut',10)
ipc.log('petit anti horaire_haut')
end
end

---------------------------
------ BOTTOM Items -------
---------------------------

-- Bottom Left Mode Selector ---

function BLS_COM1()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,128) ~= 0 then
BotSel = 'BCOM1'
ipc.display('com1_bas',10)
ipc.log('com1_bas')
end
end

function BLS_COM2()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,256) ~= 0 then
BotSel = 'BCOM2'
ipc.display('com2_bas',10)
ipc.log('com2_bas')
end
end

function BLS_NAV1()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,512) ~= 0 then
BotSel = 'nav1'
ipc.display('nav1_bas',10)
ipc.log('nav1_bas')
ipc.log(BotSel)
end
end

function BLS_NAV2()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,1024) ~= 0 then
BotSel = 'BNAV2'
ipc.display('nav2_bas',10)
ipc.log('nav2_bas')
end
end

function BLS_ADF()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,2048) ~= 0 then
BotSel = 'BADF'
ipc.display('adf_bas',10)
ipc.log('adf_bas')
end
end

function BLS_DME()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,4096) ~= 0 then
BotSel = 'BDME'
ipc.display('dme_bas',10)
ipc.log('dme_bas')
end
end

function BLS_XPDR()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,8192) ~= 0 then
BotSel = 'BXPDR'
ipc.display('xpdr_bas',10)
ipc.log('xpdr_bas')
end
end

-- Bottom Right items ---

function BRI_ACTSTB()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,32768) ~= 0 then
ipc.display('stand-by_bas',10)
ipc.log('stand-by_bas')
end
end

function BRI_OUT_KNOB_CW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,4194304) ~= 0 then
ipc.display('gros horaire_bas',10)
ipc.log('gros horaire_bas')
end
end

function BRI_OUT_KNOB_ACW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,8388608) ~= 0 then
ipc.display('gros anti-horaire_bas',10)
ipc.log('gros anti-horaire_bas')
end
end

function BRI_IN_KNOB_CW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,1048576) ~= 0 then
ipc.display('petit horaire_bas',10)
ipc.log('petit horaire_bas')
end
end

function BRI_IN_KNOB_ACW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,2097152) ~= 0 then
ipc.display('petit anti horaire_bas',10)
ipc.log('petit anti horaire_bas')
end
end

------------------------------------------
function Get_Val_TOP(Vleft,Vright)

devradio = ipc.get("devradio")
wrfradio = ipc.get("wrfradio")

-- Lecture des offsets

com1 = ipc.readUW(0x034E) -- com1
com1stb = ipc.readUW(0x311A) -- com1 stand by
com2 = ipc.readUW(0x3118) -- com2
com2stb = ipc.readUW(0x311C) -- com2 stand by
nav1 = ipc.readUW(0x0350) -- nav1
nav1stb = ipc.readUW(0x311E) -- nav1stb
nav2 = ipc.readUW(0x0352) -- nav2
nav2stb = ipc.readUW(0x3120) -- nav2stb
-- Vleft=com1
-- Vright=com1stb
ipc.log(Vleft)
ipc.log(Vright)
-- Conversion en HEX de Vleft
setval = DEC_HEX(Vleft)
-- Extraction du 1er chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 1, 1))
v1= 240 + tonumber(string.sub(setval, 1, 1))
-- Extraction du 2eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 2, 2))
v2 = 208 + tonumber(string.sub(setval, 2, 2))
-- Extraction du 3eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 3, 3))
v3 = 240 + tonumber(string.sub(setval, 3, 3))
-- Extraction du 4eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 4, 4))
v4 = 240 + tonumber(string.sub(setval, 4, 4))
--ipc.log(v1..v2..v3..v4)

-- Conversion en HEX de Vleft
setval = DEC_HEX(Vright)
-- Extraction du 1er chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 1, 1))
v5 = 240 + tonumber(string.sub(setval, 1, 1))
-- Extraction du 2eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 2, 2))
v6 = 208 + tonumber(string.sub(setval, 2, 2))
-- Extraction du 3eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 3, 3))
v7= 240 + tonumber(string.sub(setval, 3, 3))
-- Extraction du 4eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 4, 4))
v8 = 240 + tonumber(string.sub(setval, 4, 4))
--ipc.log(v5..v6..v7..v8)

-- Lecture de la position du sélecteur du bas
ipc.log("test BotSel")

ipc.log(BotSel)

if BotSel == 'BCOM1' or 'BCOM2' or 'BNAV1' or 'BNAV2' then
ipc.log("traitement de botsel")
-- Conversion en HEX de BotSel
-- Vleft = nav1
setval = DEC_HEX(Vleft)
-- Extraction du 1er chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 1, 1))
v9= 240 + tonumber(string.sub(setval, 1, 1))
-- Extraction du 2eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 2, 2))
v10= 208 + tonumber(string.sub(setval, 2, 2))
-- Extraction du 3eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 3, 3))
v11 = 240 + tonumber(string.sub(setval, 3, 3))
-- Extraction du 4eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 4, 4))
v12 = 240 + tonumber(string.sub(setval, 4, 4))
ipc.log(v9..v10..v11..v12)

-- Conversion en HEX de Vright
-- Vright = nav1stb
setval = DEC_HEX(Vright)
-- Extraction du 1er chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 1, 1))
v13 = 240 + tonumber(string.sub(setval, 1, 1))
-- Extraction du 2eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 2, 2))
v14 = 208 + tonumber(string.sub(setval, 2, 2))
-- Extraction du 3eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 3, 3))
v15 = 240 + tonumber(string.sub(setval, 3, 3))
-- Extraction du 4eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 4, 4))
v16 = 240 + tonumber(string.sub(setval, 4, 4))
ipc.log(v13..v14..v15..v16)

elseif BotSel == 'BADF' then
ipc.log("Bottom Selector : ADF")
ADF1A = ipc.readUW(0x0356) -- ADF1 1000 + décimale
ADF1B = ipc.readUW(0x034C) -- ADF1 Centaines dizaines unités
ipc.log("ADF1A : "..ADF1A)
ipc.log("ADF1B : "..ADF1B)
A = DEC_HEX(ADF1A)
B = DEC_HEX(ADF1B)
ipc.log("A : "..A)
ipc.log("B : "..B)
elseif BotSel == 'BXPDR' then
ipc.log("Bottom Selector : ADF")
elseif BotSel == 'BDME' then
ipc.log("Bottom Selector : ADF")
end

-- Définition de la variable s : Valeurs à écrire dans le module Saïtek
s=string.char(0,241,v1,v2,v3,v4,241,v5,v6,v7,v8,241,v9,v10,v11,v12,241,v13,v14,v15,v16,0,0)
--s=string.char(0,241,241,241,241,241,242,242,242,242,242,243,243,243,243,243,244,244,244,244,244,0,0)
-- Envoi des valeurs dans le module Saïtek
com.writefeature (devradio, s, wrfradio)
end

function DEC_HEX(IN)
local B,K,OUT,I,D=16,"0123456789ABCDEF","",0
while IN>0 do
I=I+1
IN,D=math.floor(IN/B),math.mod(IN,B)+1
OUT=string.sub(K,D,D)..OUT
end
return OUT
end
-----------------------------------------------

-- Events Top Items --

event.offsetmask(0x3358, 1,'UD', 'TLS_COM1')
event.offsetmask(0x3358, 2,'UD', 'TLS_COM2')
event.offsetmask(0x3358, 4,'UD', 'TLS_NAV1')
event.offsetmask(0x3358, 8,'UD', 'TLS_NAV2')
event.offsetmask(0x3358, 16,'UD', 'TLS_ADF')
event.offsetmask(0x3358, 32,'UD', 'TLS_DME')
event.offsetmask(0x3358, 64,'UD', 'TLS_XPDR')
event.offsetmask(0x3358, 16384,'UD', 'TRI_ACTSTB') --
event.offsetmask(0x3358, 524288,'UD', 'TRI_OUT_KNOB_CW')
event.offsetmask(0x3358, 262144,'UD', 'TRI_OUT_KNOB_ACW')
event.offsetmask(0x3358, 65536,'UD', 'TRI_IN_KNOB_CW')
event.offsetmask(0x3358, 131072,'UD', 'TRI_IN_KNOB_ACW')

-- Events Bottom Items --

event.offsetmask(0x3358, 128,'UD', 'BLS_COM1')
event.offsetmask(0x3358, 256,'UD', 'BLS_COM2')
event.offsetmask(0x3358, 512,'UD', 'BLS_NAV1')
event.offsetmask(0x3358, 1024,'UD', 'BLS_NAV2')
event.offsetmask(0x3358, 2048,'UD', 'BLS_ADF')
event.offsetmask(0x3358, 4096,'UD', 'BLS_DME')
event.offsetmask(0x3358, 8192,'UD', 'BLS_XPDR')
event.offsetmask(0x3358, 32768,'UD', 'BRI_ACTSTB')
event.offsetmask(0x3358, 4194304,'UD', 'BRI_OUT_KNOB_CW')
event.offsetmask(0x3358, 8388608,'UD', 'BRI_OUT_KNOB_ACW')
event.offsetmask(0x3358, 2097152,'UD', 'BRI_IN_KNOB_ACW')
event.offsetmask(0x3358, 1048576,'UD', 'BRI_IN_KNOB_ACW')
[/Spoiler]

Edit : BUG : Si je modifie le sélecteur du haut, le script fonctionne et la console et le log affiche les bonnes valeurs. Mais l'affichage n'est pas mis à jour. Corrigé partiellement. Affichage OK mais valeurs incorrectes répétées sur la ligne du bas.

Dernière modification par Oliver77 (21-11-2014 07:32:07)

Pat_59 · [↑]

Bonjour Olivier,

J'ai modifié un peu ton script.

Tout d'abord, pour qu'il fonctionne au démarrage sans devoir bouger un bouton, il faut créer une "initialisation" qui lira la position des switchs au départ (idem pour le switch panel). Cette initialisation se trouve tout en bas du script pour que toutes les fonctions soient lues avant celle-ci (évite l'erreur got nil).

J'ai séparé l'acquisition des valeurs d'affichage haut et bas (fonction Get_Val_TOP et Get_Val_BOT) et dédié une fonction spécifique pour l'écriture ("Write_Panel"). Ainsi, seule la partie de la chaîne concernée change. Inutile de relire toutes les variables.

Je suppose que tu lances ce script de façon automatique, j'avais imaginé le lancer depuis le switchpanel.lua en fonction de la position des interrupteurs batterie et avionique. Qu'en penses-tu?

[Spoiler]

-- Init Cold and Dark ---
--ipc.control(65707, 0x12210)

------------------------
------ TOP Items -------
------------------------

-- Top Left Mode Selector ---

function TLS_COM1()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,1) ~= 0 then
TopSel = 'ACOM1'
ipc.log(TopSel)
Vleft = ipc.readUW(0x034E) -- com1
Vright = ipc.readUW(0x311A) -- com1 stand by
Get_Val_TOP(Vleft,Vright)
end
end

function TLS_COM2()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,2) ~= 0 then
TopSel = 'ACOM2'
ipc.log(TopSel)
Vleft = ipc.readUW(0x3118) -- com2
Vright = ipc.readUW(0x311C) -- com2 stand by
Get_Val_TOP(Vleft,Vright)
end
end

function TLS_NAV1()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,4) ~= 0 then
ipc.set(TopSel,'ANAV1')
ipc.display('nav1_haut',10)
ipc.log('nav1_haut')
end
end

function TLS_NAV2()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,8) ~= 0 then
TopSel = 'ANAV2'
ipc.display('nav2_haut',10)
ipc.log('nav2_haut')
end
end

function TLS_ADF()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,16) ~= 0 then
TopSel = 'AADF'
ipc.display('adf_haut',10)
ipc.log('adf_haut')
end
end

function TLS_DME()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,32) ~= 0 then
TopSel = 'ADME'
ipc.display('dme_haut',10)
ipc.log('dme_haut')
end
end

function TLS_XPDR()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,192) ~= 0 then
TopSel = 'AXPDR'
ipc.display('xpdr_haut',10)
ipc.log('xpdr_haut')
end
end

-- Top Right items ---

function TRI_ACTSTB()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,16384) ~= 0 then
ipc.display('stand-by_haut',10)
ipc.log('stand-by_haut')
devradio = ipc.get("devradio")
wrfradio = ipc.get("wrfradio")
s=string.char(0,241,242,210,242,245,241,242,210,240,245,240,240,208,240,240,240,240,208,240,240,0,0)
com.writefeature (devradio, s, wrfradio)
end
end

function TRI_OUT_KNOB_CW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,262144) ~= 0 then
ipc.display('gros horaire_haut',10)
ipc.log('gros horaire_haut')
end
end

function TRI_OUT_KNOB_ACW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,524288) ~= 0 then
ipc.display('gros anti-horaire_haut',10)
ipc.log('gros anti-horaire_haut')
end
end

function TRI_IN_KNOB_CW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,65536) ~= 0 then
ipc.display('petit horaire_haut',10)
ipc.log('petit horaire_haut')
end
end

function TRI_IN_KNOB_ACW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,131072) ~= 0 then
ipc.display('petit anti horaire_haut',10)
ipc.log('petit anti horaire_haut')
end
end

---------------------------
------ BOTTOM Items -------
---------------------------

-- Bottom Left Mode Selector ---

function BLS_COM1()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,128) ~= 0 then
BotSel = 'BCOM1'
ipc.log(BotSel)
Vleft = ipc.readUW(0x034E) -- com1
Vright = ipc.readUW(0x311A) -- com1 stand by
Get_Val_BOT(Vleft,Vright)
end
end

function BLS_COM2()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,256) ~= 0 then
BotSel = 'BCOM2'
ipc.log(BotSel)
Vleft = ipc.readUW(0x3118) -- com2
Vright = ipc.readUW(0x311C) -- com2 stand by
Get_Val_BOT(Vleft,Vright)
end
end

function BLS_NAV1()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,512) ~= 0 then
BotSel = 'nav1'
ipc.display('nav1_bas',10)
ipc.log('nav1_bas')
ipc.log(BotSel)
end
end

function BLS_NAV2()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,1024) ~= 0 then
BotSel = 'BNAV2'
ipc.display('nav2_bas',10)
ipc.log('nav2_bas')
end
end

function BLS_ADF()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,2048) ~= 0 then
BotSel = 'BADF'
ipc.display('adf_bas',10)
ipc.log('adf_bas')
end
end

function BLS_DME()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,4096) ~= 0 then
BotSel = 'BDME'
ipc.display('dme_bas',10)
ipc.log('dme_bas')
end
end

function BLS_XPDR()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,8192) ~= 0 then
BotSel = 'BXPDR'
ipc.display('xpdr_bas',10)
ipc.log('xpdr_bas')
end
end

-- Bottom Right items ---

function BRI_ACTSTB()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,32768) ~= 0 then
ipc.display('stand-by_bas',10)
ipc.log('stand-by_bas')
end
end

function BRI_OUT_KNOB_CW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,4194304) ~= 0 then
ipc.display('gros horaire_bas',10)
ipc.log('gros horaire_bas')
end
end

function BRI_OUT_KNOB_ACW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,8388608) ~= 0 then
ipc.display('gros anti-horaire_bas',10)
ipc.log('gros anti-horaire_bas')
end
end

function BRI_IN_KNOB_CW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,1048576) ~= 0 then
ipc.display('petit horaire_bas',10)
ipc.log('petit horaire_bas')
end
end

function BRI_IN_KNOB_ACW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,2097152) ~= 0 then
ipc.display('petit anti horaire_bas',10)
ipc.log('petit anti horaire_bas')
end
end

------------------------------------------
function Get_Val_TOP(Vleft,Vright)
-- Lecture des offsets

com1 = ipc.readUW(0x034E) -- com1
com1stb = ipc.readUW(0x311A) -- com1 stand by
com2 = ipc.readUW(0x3118) -- com2
com2stb = ipc.readUW(0x311C) -- com2 stand by
nav1 = ipc.readUW(0x0350) -- nav1
nav1stb = ipc.readUW(0x311E) -- nav1stb
nav2 = ipc.readUW(0x0352) -- nav2
nav2stb = ipc.readUW(0x3120) -- nav2stb
-- Vleft=com1
-- Vright=com1stb
ipc.log(Vleft)
ipc.log(Vright)
-- Conversion en HEX de Vleft
setval = DEC_HEX(Vleft)
-- Extraction du 1er chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 1, 1))
v1= 240 + tonumber(string.sub(setval, 1, 1))
-- Extraction du 2eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 2, 2))
v2 = 208 + tonumber(string.sub(setval, 2, 2))
-- Extraction du 3eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 3, 3))
v3 = 240 + tonumber(string.sub(setval, 3, 3))
-- Extraction du 4eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 4, 4))
v4 = 240 + tonumber(string.sub(setval, 4, 4))
--ipc.log(v1..v2..v3..v4)

-- Conversion en HEX de Vright
setval = DEC_HEX(Vright)
-- Extraction du 1er chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 1, 1))
v5 = 240 + tonumber(string.sub(setval, 1, 1))
-- Extraction du 2eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 2, 2))
v6 = 208 + tonumber(string.sub(setval, 2, 2))
-- Extraction du 3eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 3, 3))
v7= 240 + tonumber(string.sub(setval, 3, 3))
-- Extraction du 4eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 4, 4))
v8 = 240 + tonumber(string.sub(setval, 4, 4))
--ipc.log(v5..v6..v7..v8)
gvt = 1
Write_Panel ()
end

-- Lecture de la position du sélecteur du bas

function Get_Val_BOT(Vleft,Vright)
ipc.log("test BotSel")
ipc.log(BotSel)

if BotSel == 'BCOM1' or 'BCOM2' or 'BNAV1' or 'BNAV2' then
ipc.log("traitement de botsel")
-- Conversion en HEX de BotSel
-- Vleft = nav1
setval = DEC_HEX(Vleft)
-- Extraction du 1er chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 1, 1))
v9= 240 + tonumber(string.sub(setval, 1, 1))
-- Extraction du 2eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 2, 2))
v10= 208 + tonumber(string.sub(setval, 2, 2))
-- Extraction du 3eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 3, 3))
v11 = 240 + tonumber(string.sub(setval, 3, 3))
-- Extraction du 4eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 4, 4))
v12 = 240 + tonumber(string.sub(setval, 4, 4))
ipc.log(v9..v10..v11..v12)

-- Conversion en HEX de Vright
-- Vright = nav1stb
setval = DEC_HEX(Vright)
-- Extraction du 1er chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 1, 1))
v13 = 240 + tonumber(string.sub(setval, 1, 1))
-- Extraction du 2eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 2, 2))
v14 = 208 + tonumber(string.sub(setval, 2, 2))
-- Extraction du 3eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 3, 3))
v15 = 240 + tonumber(string.sub(setval, 3, 3))
-- Extraction du 4eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 4, 4))
v16 = 240 + tonumber(string.sub(setval, 4, 4))
ipc.log(v13..v14..v15..v16)

elseif BotSel == 'BADF' then
ipc.log("Bottom Selector : ADF")
ADF1A = ipc.readUW(0x0356) -- ADF1 1000 + décimale
ADF1B = ipc.readUW(0x034C) -- ADF1 Centaines dizaines unités
ipc.log("ADF1A : "..ADF1A)
ipc.log("ADF1B : "..ADF1B)
A = DEC_HEX(ADF1A)
B = DEC_HEX(ADF1B)
ipc.log("A : "..A)
ipc.log("B : "..B)
elseif BotSel == 'BXPDR' then
ipc.log("Bottom Selector : ADF")
elseif BotSel == 'BDME' then
ipc.log("Bottom Selector : ADF")
end
gvb = 1
Write_Panel ()
end

function Write_Panel ()
if gvt ~= nil and gvb ~= nil then
devradio = ipc.get("devradio")
wrfradio = ipc.get("wrfradio")
-- Définition de la variable s : Valeurs à écrire dans le module Saïtek
s=string.char(0,241,v1,v2,v3,v4,241,v5,v6,v7,v8,241,v9,v10,v11,v12,241,v13,v14,v15,v16,0,0)
--s=string.char(0,241,241,241,241,241,242,242,242,242,242,243,243,243,243,243,244,244,244,244,244,0,0)
-- Envoi des valeurs dans le module Saïtek
com.writefeature (devradio, s, wrfradio)
end
end

function DEC_HEX(IN)
local B,K,OUT,I,D=16,"0123456789ABCDEF","",0
while IN>0 do
I=I+1
IN,D=math.floor(IN/B),math.mod(IN,B)+1
OUT=string.sub(K,D,D)..OUT
end
return OUT
end
-----------------------------------------------
----- INITIALISATION Lecture position des switchs------

testVar = ipc.readUD(0x3358)
--- Bouton haut --
if logic.And(testVar,1) ~= 0 then TLS_COM1()
elseif logic.And(testVar,2) ~= 0 then TLS_COM2()
elseif logic.And(testVar,4) ~= 0 then TLS_NAV1()
elseif logic.And(testVar,8) ~= 0 then TLS_NAV2()
elseif logic.And(testVar,16) ~= 0 then TLS_ADF()
elseif logic.And(testVar,32) ~= 0 then TLS_DME()
elseif logic.And(testVar,64) ~= 0 then TLS_XPDR()
end
--- Bouton bas --
if logic.And(testVar,128) ~= 0 then BLS_COM1()
elseif logic.And(testVar,256) ~= 0 then BLS_COM2()
elseif logic.And(testVar,512) ~= 0 then BLS_NAV1()
elseif logic.And(testVar,1024) ~= 0 then BLS_NAV2()
elseif logic.And(testVar,2048) ~= 0 then BLS_ADF()
elseif logic.And(testVar,4096) ~= 0 then BLS_DME()
elseif logic.And(testVar,8192) ~= 0 then BLS_XPDR()
end

-- Events Top Items --

event.offsetmask(0x3358, 1,'UD', 'TLS_COM1')
event.offsetmask(0x3358, 2,'UD', 'TLS_COM2')
event.offsetmask(0x3358, 4,'UD', 'TLS_NAV1')
event.offsetmask(0x3358, 8,'UD', 'TLS_NAV2')
event.offsetmask(0x3358, 16,'UD', 'TLS_ADF')
event.offsetmask(0x3358, 32,'UD', 'TLS_DME')
event.offsetmask(0x3358, 64,'UD', 'TLS_XPDR')
event.offsetmask(0x3358, 16384,'UD', 'TRI_ACTSTB') --
event.offsetmask(0x3358, 524288,'UD', 'TRI_OUT_KNOB_CW')
event.offsetmask(0x3358, 262144,'UD', 'TRI_OUT_KNOB_ACW')
event.offsetmask(0x3358, 65536,'UD', 'TRI_IN_KNOB_CW')
event.offsetmask(0x3358, 131072,'UD', 'TRI_IN_KNOB_ACW')

-- Events Bottom Items --

event.offsetmask(0x3358, 128,'UD', 'BLS_COM1')
event.offsetmask(0x3358, 256,'UD', 'BLS_COM2')
event.offsetmask(0x3358, 512,'UD', 'BLS_NAV1')
event.offsetmask(0x3358, 1024,'UD', 'BLS_NAV2')
event.offsetmask(0x3358, 2048,'UD', 'BLS_ADF')
event.offsetmask(0x3358, 4096,'UD', 'BLS_DME')
event.offsetmask(0x3358, 8192,'UD', 'BLS_XPDR')
event.offsetmask(0x3358, 32768,'UD', 'BRI_ACTSTB')
event.offsetmask(0x3358, 4194304,'UD', 'BRI_OUT_KNOB_CW')
event.offsetmask(0x3358, 8388608,'UD', 'BRI_OUT_KNOB_ACW')
event.offsetmask(0x3358, 2097152,'UD', 'BRI_IN_KNOB_ACW')
event.offsetmask(0x3358, 1048576,'UD', 'BRI_IN_KNOB_ACW')
[/Spoiler]

Dernière modification par Pat_59 (21-11-2014 09:49:37)

Pat_59 · [↑]

Je viens de regarder ton script SwitchPanel, je m'aperçois que tu utilises beaucoup de fonctions issues du RadioPanel.

Je l'ai aussi modifié (surtout allégé) pour lancer le Radio_Panel depuis celui-ci. Conditions : le Master Bat et Avionic sur ON.

Dans l'autre script Radio_Panel, j'ai rajouté deux event.offsetmask qui surveille l'état des deux boutons Master Bat et Avionic du Switch Panel. Si l'un des deux repasse à 0, appel d'une fonction Radio_Off qui envoie une chaîne "Blank" au bout de 2s puis qui ferme le script. Il sera relancé quand les deux boutons seront sur la bonne position.

Evidemment, ce ne sont que des suggestions. Tu restes le seul maître à bord.

Le SwitchPanel.lua et les mofifs du RadioPanel à la fin. Il semble que l'on ne puisse pas mettre deux balises"Spoiler".

[Spoiler]

------------------------
-- Init Cold and Dark --
------------------------

ipc.writeLvar('Magnetos1Pct', 0)
ipc.writeLvar('Battery1Switch', 0)
ipc.writeLvar('Eng1_GeneratorSwitch', 0)
ipc.control(66701,0)
ipc.control(66237,0)
ipc.control(66031,0)
ipc.control(65858,0)
ipc.control(66162,0)
ipc.control(66058,0)
ipc.control(66239,0)
ipc.control(66379,0)
ipc.control(66054,0)
ipc.control(66054,0)
ipc.control(66240,0)
ipc.control(66061,0)
ipc.control(66080,0)
percent = 0
radio = 0

-------------------------
-- Gestion du Magneto ---
-------------------------

function Magneto_OFF()
-- Magneto Selector OFF
-- 8192 : 2^13
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,8192) ~= 0 then
ipc.writeLvar('Magnetos1Pct', 0)
ipc.control(66400,0)
end
end

function Magneto_LEFT()
-- Magneto Selector LEFT
-- 16384 : 2^14
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,16384) ~= 0 then
ipc.writeLvar('Magnetos1Pct', 16)
ipc.control(66400,1)
end
end

function Magneto_RIGHT()
-- Magneto Selector RIGHT
-- 32768 : 2^15
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,32768) ~= 0 then
ipc.writeLvar('Magnetos1Pct', 38)
ipc.control(66400,2)
end
end

function Magneto_BOTH()
-- Magneto Selector BOTH
-- 65536 : 2^16
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,65536) ~= 0 then
ipc.writeLvar('Magnetos1Pct', 64)
ipc.control(66400,3)
end
end

function Magneto_START()
-- Magneto Selector START
-- 131072 : 2^17
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,131072) ~= 0 then
ipc.writeLvar('Magnetos1Pct', 100)
ipc.control(66400,4)
end
end

-- Gestion des Switchs

function Master_BAT()
-- Master Battery Bit : 2^0 = 1
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,1) ~= 0 then
ipc.writeLvar('Battery1Switch', 1)
radio = radio + 1
if radio == 2 then
ipc.sleep(2800)
ipc.runLua("RadioPanel")
end
else
ipc.writeLvar('Battery1Switch', 0)
radio = radio - 1
end
end

function Master_ALT()
-- Master Alternator Bit : 2^1 = 2
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,2) ~= 0 then
ipc.writeLvar('Eng1_GeneratorSwitch', 1)
else
ipc.writeLvar('Eng1_GeneratorSwitch', 0)
end
end

function Avionics()
-- Avionics Bit : 2^2 = 4
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,4) ~= 0 then
ipc.control(66701,1)
radio = radio + 1
if radio == 2 then
ipc.sleep(2800)
ipc.runLua("RadioPanel")
end
else
ipc.control(66701,0)
radio = radio - 1
end
end

function Fuel_PUMP()
-- Fuel Pump Bit : 2^3 = 8
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,8) ~= 0 then
ipc.control(66237,1)
else
ipc.control(66237,0)
end
end

function De_ICE()
-- De-Ice Bit : 2^4 = 16
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,16) ~= 0 then
ipc.control(66031,1)
else
ipc.control(66031,0)
end
end

function Pitot_HEAT()
-- Pitot Heat Bit : 2^5= 32
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,32) ~= 0 then
ipc.control(65858,1)
else
ipc.control(65858,0)
end
end

function Cowl_FLAPS()
-- Cowl Bit : 2^6= 64
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,64) ~= 0 then
ipc.control(66162,1)
else
ipc.control(66162,0)
end
end

function Panel_LIGHT()
-- Panel LIGHTs Bit : 2^7= 128
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,128) ~= 0 then
ipc.control(66058,1)
else
ipc.control(66058,0)
end
end

function Beacon_LIGHT()
-- Beacon LIGHTs Bit : 2^8= 256
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,256) ~= 0 then
ipc.control(66239,1)
else
ipc.control(66239,0)
end
end

function Nav_LIGHT()
-- Nav LIGHTs Bit : 2^9= 512
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,512) ~= 0 then
ipc.control(66379,1)
else
ipc.control(66379,0)
end
end

function Strobe_LIGHT()
-- Strobe LIGHTs Bit : 2^10= 1024
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,1024) ~= 0 then
ipc.control(66054,1)
else
ipc.control(66054,0)
end
end

function Taxi_LIGHT()
-- Taxi LIGHTs Bit : 2^11= 2048
if logic.And(testVar,2048) ~= 0 then
ipc.control(66240,1)
else
ipc.control(66240,0)
end
end

function Landing_LIGHT()
-- Landing LIGHTs Bit : 2^12= 4096
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,4096) ~= 0 then
ipc.control(66061,1)
else
ipc.control(66061,0)
end
end

-- Gestion du Train ---

function Gear_UP()
-- Landing Gear Up Bit : 2^12= 262144
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,262144) ~= 0 then
ipc.control(66079,1)
end
end

function Gear_DOWN()
-- Landing Gear Down Bit : 2^12= 524288
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,524288) ~= 0 then
ipc.control(66080,0)
end
end

----- INITIALISATION Lecture position des switchs------

testVar = ipc.readUD(0x66C0)

if logic.And(testVar,1) ~= 0 then Master_BAT() end
if logic.And(testVar,2) ~= 0 then Master_ALT() end
if logic.And(testVar,4) ~= 0 then Avionics() end
if logic.And(testVar,8) ~= 0 then Fuel_PUMP() end
if logic.And(testVar,16) ~= 0 then De_ICE() end
if logic.And(testVar,32) ~= 0 then Pitot_HEAT() end
if logic.And(testVar,64) ~= 0 then Cowl_FLAPS() end
if logic.And(testVar,128) ~= 0 then Panel_LIGHT() end
if logic.And(testVar,256) ~= 0 then Beacon_LIGHT() end
if logic.And(testVar,512) ~= 0 then Nav_LIGHT() end
if logic.And(testVar,1024) ~= 0 then Strobe_LIGHT() end
if logic.And(testVar,2048) ~= 0 then Taxi_LIGHT() end
if logic.And(testVar,4096) ~= 0 then Landing_LIGHT() end
if logic.And(testVar,8192) ~= 0 then Magneto_OFF() end
if logic.And(testVar,16384) ~= 0 then Magneto_LEFT() end
if logic.And(testVar,32768) ~= 0 then Magneto_RIGHT() end
if logic.And(testVar,65536) ~= 0 then Magneto_BOTH() end
if logic.And(testVar,131072) ~= 0 then Magneto_START() end
if logic.And(testVar,262144) ~= 0 then Gear_UP() end
if logic.And(testVar,524288) ~= 0 then Gear_DOWN() end

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

-- Events Magneto --

event.offsetmask(0x66C0, 8192,'UD', 'Magneto_OFF')
event.offsetmask(0x66C0, 16384,'UD', 'Magneto_LEFT')
event.offsetmask(0x66C0, 32768,'UD', 'Magneto_RIGHT')
event.offsetmask(0x66C0, 65536,'UD', 'Magneto_BOTH')
event.offsetmask(0x66C0, 131072,'UD', 'Magneto_START')

-- Events Switchs --

event.offsetmask(0x66C0, 1,'UD', 'Master_BAT')
event.offsetmask(0x66C0, 2,'UD', 'Master_ALT')
event.offsetmask(0x66C0, 4,'UD', 'Avionics')
event.offsetmask(0x66C0, 8,'UD', 'Fuel_PUMP')
event.offsetmask(0x66C0, 16,'UD', 'De_ICE')
event.offsetmask(0x66C0, 32,'UD', 'Pitot_HEAT')
event.offsetmask(0x66C0, 64,'UD', 'Cowl_FLAPS')
event.offsetmask(0x66C0, 128,'UD', 'Panel_LIGHT')
event.offsetmask(0x66C0, 256,'UD', 'Beacon_LIGHT')
event.offsetmask(0x66C0, 512,'UD', 'Nav_LIGHT')
event.offsetmask(0x66C0, 1024,'UD', 'Strobe_LIGHT')
event.offsetmask(0x66C0, 2048,'UD', 'Taxi_LIGHT')
event.offsetmask(0x66C0, 4096,'UD', 'Landing_LIGHT')

-- Events Gear ---

event.offsetmask(0x66C0, 262144,'UD', 'Gear_UP')
event.offsetmask(0x66C0, 524288,'UD', 'Gear_DOWN')
[/Spoiler]

Les modifs sur le RadioPanel.lua :

[Spoiler]
function Radio_Off () --- A placer à la fin des fonctions et avant l'initialisation---
if logic.And(0x66C0,1) == 0 or logic.And(0x66C0,4) == 0 then
devradio = ipc.get("devradio")
wrfradio = ipc.get("wrfradio")
   s=string.char(0,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,0,0)
   ipc.sleep(2000)
   com.writefeature (devradio, s, wrfradio)
   ipc.exit()
   end
end

--- Event Switch Panel Batterie et Avionique---
event.offsetmask(0x66C0, 1,'UD', 'Radio_Off')
event.offsetmask(0x66C0, 4,'UD', 'Radio_Off')
[/Spoiler]

Dernière modification par Pat_59 (21-11-2014 11:26:29)

Pat_59 · [↑]

Et pendant que j'y suis, à tester cette fonction pour le bouton Act/Stby du bas (fonctionne uniquement pour COM1 et COM2 pour le moment).

function BRI_ACTSTB()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,32768) ~= 0 then
ipc.display('stand-by_bas',10)
ipc.log('stand-by_bas')
if BotSel == "BCOM1" then
Vleft = ipc.readUW(0x034E) -- com1
Vright = ipc.readUW(0x311A)-- com1 stdby
ipc.writeUW(0x034E,Vright)
ipc.writeUW(0x0311A,Vleft) -- on permute gauche et droite
Vleft = ipc.readUW(0x034E) -- com1
Vright = ipc.readUW(0x311A)-- com1 stdby
Get_Val_BOT(Vleft,Vright)
elseif BotSel == "BCOM2" then
Vleft = ipc.readUW(0x03118) -- com2
Vright = ipc.readUW(0x311C)-- com2 stdby
ipc.writeUW(0x03118,Vright)
ipc.writeUW(0x0311C,Vleft) -- on permute gauche et droite
Vleft = ipc.readUW(0x03118) -- com2
Vright = ipc.readUW(0x311C)-- com2 stdby
Get_Val_BOT(Vleft,Vright)
end
end
end

Dernière modification par Pat_59 (21-11-2014 12:11:59)

Oliver77 · [↑]

Bonjour Patrick,

Je viens de voir tes propositions de modification, et c'est vraiment très intéressant. Cela éclaircit le code et simplifie certains appels.

En lisant ton code j'ai capté de suite mon erreur avec l'init du switch panel. Ma méthode fonctionnait, mais une seule fois, au lancement du lua ...

J'espère pourvoir tester tes modifications ce soir, ou ce week-end au plus tard.

Evidemment, ce ne sont que des suggestions. Tu restes le seul maître à bord.

Je vois plutôt ça comme un travail collaboratif, qui s'enrichit par l'expérience de tous ... Mes idées étaient bien là, mais incomplètes et imparfaites ... Tu m'aides à combler ces lacunes, ou tu m'orientes sur des pistes ... Je suis preneur, avec grand plaisir !

Et puis qui sait ? peut-être que les scripts terminés (le sont-ils vraiment un jour ?) pourront peut-être intéresser ou aider d'autres utilisateurs ...

Edit : je viens de voir ton dernier post à l'instant. Je testerai également. Merci !

Dernière modification par Oliver77 (21-11-2014 12:51:52)

Pat_59 · [↑]

Je suis content que tu considères cela comme du travail "collaboratif", je n'aurais pas eu l'outrecuidance de passer outre tes intentions premières.

Je te laisse faire pour corriger certains "aspects" du script par la suite. Je pense que c'est la meilleure façon pour que tu apprennes; si je te donne les solutions immédiatement, tu ne te creuseras pas la "cervelle" et, tu ne feras que reprendre (peut-être sans comprendre) la solution apportée. On n'apprend jamais tant que de ses erreurs.

Maintenant, puisque tu le proposes, je pense m'attaquer aux rotatifs qui permettent la modification des fréquences stand-by.
Pour les COM et les NAV, pas de probleme je connais la façon dont elles sont représentées. Comptes-tu l'utiliser également pour les ADF ( la modification de fréquence est-elle faite depuis la fréquence active ou existe-t-il également une fréquence en stand-by, sinon de quel côté s'affiche la fréquence et que modifie le inner et outer switch permettant les réglages) , pour le XPDR (idem, quel côté correspond à l'affichage et que modifie le inner et le outer au niveau de l'affichage)?

N'ayant pas le matériel, j'aimerais connaître ce qui est affiché lorsque le switch est sur DME. Sans doute, la distance de la balise (si elle est disponible) sur la fenêtre de gauche mais laquelle, NAV1 ou NAV2? Dans ce cas, il serait possible d'afficher sur la fenêtre de droite la vitesse de rapprochement de cette balise par exemple.

Je suis content de participer à l'élaboration de ton script et, même sans posséder le matériel, l'aspect "programmation" me réjouit.

Je ne suis pas sûr que ce script soit fini un jour (tous les jours, tu auras une nouvelle idée pour l'améliorer) mais, l'avantage qu'il présente, c'est qu'il est modifiable pour correspondre à n'importe quel add-on ce que ne fait pas le driver original.

Oliver77 · [↑]

Patrick,

Il faudrait être un kéké de base (pour être poli et compatible avec la charte du forum) pour demander de l'aide et des avis, puis s'offusquer des suggestions ou pire encore, se vexer suite à des modifications de son propre script ... Je sais bien que de nos jours tout cela n'est pas évident, mais quand même ... Et je ne sais pas faire autrement que respecter le temps que tu m'accordes, tout comme le partage de tes connaissances ! c'est le B.A.BA ...

Comme tu as pu le voir, je n'attends pas de script tout cuit à copier/coller "bêtement". l'intérêt est de comprendre la chose, et le fonctionnement un peu plus en profondeur de FSX ... Dont j'avais, jusque là, sous-estimé l'étendue !!!

Je vais tester tes scripts, essayer de collecter avec précisions les infos demandées. Ce que je te propose, si le script fonctionne en l'état, pour COM1/COM2 et NAV1/NAV2, c'est effectivement de passer en parallèle sur les rotatifs, ce qui je crois va être un gros morceau ...

Bobonhom · [↑]

Une petite question sous le couverte

Tu as le CatalinaX Pat?... Ou Oliver?

J'ai ouvert ma console Lua avec FSUIPC, et je suis étonné du résultat...

Certains Lvars ne sont pas lu???? Mais bon, si tu as, j'ouvrirai peut-être un topic pour le CAT et ses Lvars

J'ai aussi sans cesse des offset qui tourne en boucle dans la liste des Lvars (MIXTURE axis machin), je comprend pas...

Oliver77 · [↑]

Bonsoir Bo,

Non, je n'ai pas le CatalinaX, désolé ... En revanche, les avions A2A font aussi défiler des offsets; c'est pour les fonctionnalités accusim ...

Pat_59 · [↑]

Bonsoir Bo,

Hélas non, je n'ai pas le Catalina X (je serai plutôt PMDG en ce moment) mais cela n'a pas grande importance.

En ce qui concerne les Lvar "axis" (je me demande si c'est réellement une Lvar, un offset plus sûrement), c'est normal que cela tourne en boucle. Ça surveille la valeur de ton axe "mixture" ou cela provient de ton axe qui n'est pas stable (valeur changeante sans mouvement de l'axe, c'est l'hypothèse que je privilégie).

Quand tu dis "certaines Lvar ne sont pas lues", le log FSUIPC ne fais voir que les valeurs qui sont modifiées, pas l'intégralité des Lvar.

Tu peux très bien continuer ici si Olivier n'y voit pas d'inconvénient et j'essaierai de te répondre dans la mesure de mes connaissances. Si tu ouvres un autre post, je m'y abonnerai également.

Dernière modification par Pat_59 (21-11-2014 21:31:18)

Oliver77 · [↑]

Bonsoir Patrick,

Pas de succès ce soir avec tes modifications. Qu'il s'agisse du SwitchPanel, du RadioPanel ou du test Act/stby ...

Du coup de continue sur ma lancée, en essayant d'adapter mes scripts avec tes suggestions.

Je poste dès que j'ai du neuf.

Très bonne soirée et bon week-end.

Pat_59 · [↑]

Bonjour Olivier,

Tu avais raison, il y avait quelques erreurs. Finalement, j'ai décidé de les tester en envoyant les valeurs dans les offset comme si j'avais le matériel.

Maintenant tout fonctionne (du moins chez moi), si tu pouvais également tester. Merci.

Le script SwitchPanel :

[Spoiler]

------------------------
-- Init Cold and Dark --
------------------------

ipc.writeLvar('Magnetos1Pct', 0)
ipc.writeLvar('Battery1Switch', 0)
ipc.writeLvar('Eng1_GeneratorSwitch', 0)
ipc.control(66701,0)
ipc.control(66237,0)
ipc.control(66031,0)
ipc.control(65858,0)
ipc.control(66162,0)
ipc.control(66058,0)
ipc.control(66239,0)
ipc.control(66379,0)
ipc.control(66054,0)
ipc.control(66054,0)
ipc.control(66240,0)
ipc.control(66061,0)
ipc.control(66080,0)
percent = 0
radio = 2

-------------------------
-- Gestion du Magneto ---
-------------------------

function Magneto_OFF()
-- Magneto Selector OFF
-- 8192 : 2^13
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,8192) ~= 0 then
ipc.writeLvar('Magnetos1Pct', 0)
ipc.control(66400,0)
ipc.log("Magneto Off")
end
end

function Magneto_LEFT()
-- Magneto Selector LEFT
-- 16384 : 2^14
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,16384) ~= 0 then
ipc.writeLvar('Magnetos1Pct', 16)
ipc.control(66400,1)
ipc.log("Magneto Left")
end
end

function Magneto_RIGHT()
-- Magneto Selector RIGHT
-- 32768 : 2^15
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,32768) ~= 0 then
ipc.writeLvar('Magnetos1Pct', 38)
ipc.control(66400,2)
ipc.log("Magneto Right")
end
end

function Magneto_BOTH()
-- Magneto Selector BOTH
-- 65536 : 2^16
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,65536) ~= 0 then
ipc.writeLvar('Magnetos1Pct', 64)
ipc.control(66400,3)
ipc.log("Magneto Both")
end
end

function Magneto_START()
-- Magneto Selector START
-- 131072 : 2^17
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,131072) ~= 0 then
ipc.writeLvar('Magnetos1Pct', 100)
ipc.control(66400,4)
ipc.log("Magneto Start")
end
end

-- Gestion des Switchs

function Master_BAT()
-- Master Battery Bit : 2^0 = 1
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,1) ~= 0 then
ipc.writeLvar('Battery1Switch', 1)
radio = radio + 1
ipc.log("Batterie On "..radio)
if radio == 2 then
ipc.sleep(2800)
ipc.log("Lancement du script RadioPanel")
ipc.runLua("RadioPanel")
end
else
ipc.writeLvar('Battery1Switch', 0)
radio = radio - 1
ipc.log("Batterie Off "..radio)
end
end

function Master_ALT()
-- Master Alternator Bit : 2^1 = 2
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,2) ~= 0 then
ipc.writeLvar('Eng1_GeneratorSwitch', 1)
else
ipc.writeLvar('Eng1_GeneratorSwitch', 0)
end
end

function Avionics()
-- Avionics Bit : 2^2 = 4
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,4) ~= 0 then
ipc.control(66701,1)
radio = radio + 1
ipc.log("Avionic On "..radio)
if radio == 2 then
ipc.sleep(2800)
ipc.log("Lancement du script RadioPanel")
ipc.runLua("RadioPanel")
end
else
ipc.control(66701,0)
radio = radio - 1
ipc.log("Avionic Off "..radio)
end
end

function Fuel_PUMP()
-- Fuel Pump Bit : 2^3 = 8
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,8) ~= 0 then
ipc.control(66237,1)
else
ipc.control(66237,0)
end
end

function De_ICE()
-- De-Ice Bit : 2^4 = 16
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,16) ~= 0 then
ipc.control(66031,1)
else
ipc.control(66031,0)
end
end

function Pitot_HEAT()
-- Pitot Heat Bit : 2^5= 32
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,32) ~= 0 then
ipc.control(65858,1)
else
ipc.control(65858,0)
end
end

function Cowl_FLAPS()
-- Cowl Bit : 2^6= 64
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,64) ~= 0 then
ipc.control(66162,1)
else
ipc.control(66162,0)
end
end

function Panel_LIGHT()
-- Panel LIGHTs Bit : 2^7= 128
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,128) ~= 0 then
ipc.control(66058,1)
else
ipc.control(66058,0)
end
end

function Beacon_LIGHT()
-- Beacon LIGHTs Bit : 2^8= 256
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,256) ~= 0 then
ipc.control(66239,1)
else
ipc.control(66239,0)
end
end

function Nav_LIGHT()
-- Nav LIGHTs Bit : 2^9= 512
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,512) ~= 0 then
ipc.control(66379,1)
else
ipc.control(66379,0)
end
end

function Strobe_LIGHT()
-- Strobe LIGHTs Bit : 2^10= 1024
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,1024) ~= 0 then
ipc.control(66054,1)
else
ipc.control(66054,0)
end
end

function Taxi_LIGHT()
-- Taxi LIGHTs Bit : 2^11= 2048
if logic.And(testVar,2048) ~= 0 then
ipc.control(66240,1)
else
ipc.control(66240,0)
end
end

function Landing_LIGHT()
-- Landing LIGHTs Bit : 2^12= 4096
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,4096) ~= 0 then
ipc.control(66061,1)
else
ipc.control(66061,0)
end
end

-- Gestion du Train ---

function Gear_UP()
-- Landing Gear Up Bit : 2^12= 262144
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,262144) ~= 0 then
ipc.control(66079,1)
end
end

function Gear_DOWN()
-- Landing Gear Down Bit : 2^12= 524288
testVar = ipc.readUD(0x66C0)
if logic.And(testVar,524288) ~= 0 then
ipc.control(66080,0)
ipc.log("Gear Down")
end
end

----- INITIALISATION Lecture position des switchs------

testVar = ipc.readUD(0x66C0)
ipc.log("Initialisation switchpanel testVar= "..testVar)

if logic.And(testVar,1) ~= 0 then Master_BAT() end
if logic.And(testVar,2) ~= 0 then Master_ALT() end
if logic.And(testVar,4) ~= 0 then Avionics() end
if logic.And(testVar,8) ~= 0 then Fuel_PUMP() end
if logic.And(testVar,16) ~= 0 then De_ICE() end
if logic.And(testVar,32) ~= 0 then Pitot_HEAT() end
if logic.And(testVar,64) ~= 0 then Cowl_FLAPS() end
if logic.And(testVar,128) ~= 0 then Panel_LIGHT() end
if logic.And(testVar,256) ~= 0 then Beacon_LIGHT() end
if logic.And(testVar,512) ~= 0 then Nav_LIGHT() end
if logic.And(testVar,1024) ~= 0 then Strobe_LIGHT() end
if logic.And(testVar,2048) ~= 0 then Taxi_LIGHT() end
if logic.And(testVar,4096) ~= 0 then Landing_LIGHT() end
if logic.And(testVar,8192) ~= 0 then Magneto_OFF() end
if logic.And(testVar,16384) ~= 0 then Magneto_LEFT() end
if logic.And(testVar,32768) ~= 0 then Magneto_RIGHT() end
if logic.And(testVar,65536) ~= 0 then Magneto_BOTH() end
if logic.And(testVar,131072) ~= 0 then Magneto_START() end
if logic.And(testVar,262144) ~= 0 then Gear_UP() end
if logic.And(testVar,524288) ~= 0 then Gear_DOWN() end

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

-- Events Magneto --

event.offsetmask(0x66C0, 8192,'UD', 'Magneto_OFF')
event.offsetmask(0x66C0, 16384,'UD', 'Magneto_LEFT')
event.offsetmask(0x66C0, 32768,'UD', 'Magneto_RIGHT')
event.offsetmask(0x66C0, 65536,'UD', 'Magneto_BOTH')
event.offsetmask(0x66C0, 131072,'UD', 'Magneto_START')

-- Events Switchs --

event.offsetmask(0x66C0, 1,'UD', 'Master_BAT')
event.offsetmask(0x66C0, 2,'UD', 'Master_ALT')
event.offsetmask(0x66C0, 4,'UD', 'Avionics')
event.offsetmask(0x66C0, 8,'UD', 'Fuel_PUMP')
event.offsetmask(0x66C0, 16,'UD', 'De_ICE')
event.offsetmask(0x66C0, 32,'UD', 'Pitot_HEAT')
event.offsetmask(0x66C0, 64,'UD', 'Cowl_FLAPS')
event.offsetmask(0x66C0, 128,'UD', 'Panel_LIGHT')
event.offsetmask(0x66C0, 256,'UD', 'Beacon_LIGHT')
event.offsetmask(0x66C0, 512,'UD', 'Nav_LIGHT')
event.offsetmask(0x66C0, 1024,'UD', 'Strobe_LIGHT')
event.offsetmask(0x66C0, 2048,'UD', 'Taxi_LIGHT')
event.offsetmask(0x66C0, 4096,'UD', 'Landing_LIGHT')

-- Events Gear ---

event.offsetmask(0x66C0, 262144,'UD', 'Gear_UP')
event.offsetmask(0x66C0, 524288,'UD', 'Gear_DOWN')

[/Spoiler]

Pat_59 · [↑]

Le RadioPanel :

[Spoiler]

-- Init Cold and Dark ---
--ipc.control(65707, 0x12210)

------------------------
------ TOP Items -------
------------------------

-- Top Left Mode Selector ---

function TLS_COM1()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,1) ~= 0 then
TopSel = 'ACOM1'
ipc.log(TopSel)
Vleft = ipc.readUW(0x034E) -- com1
Vright = ipc.readUW(0x311A) -- com1 stand by
Get_Val_TOP(Vleft,Vright)
end
end

function TLS_COM2()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,2) ~= 0 then
TopSel = 'ACOM2'
ipc.log(TopSel)
Vleft = ipc.readUW(0x3118) -- com2
Vright = ipc.readUW(0x311C) -- com2 stand by
Get_Val_TOP(Vleft,Vright)
end
end

function TLS_NAV1()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,4) ~= 0 then
ipc.set(TopSel,'ANAV1')
ipc.display('nav1_haut',10)
ipc.log('nav1_haut')
end
end

function TLS_NAV2()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,8) ~= 0 then
TopSel = 'ANAV2'
ipc.display('nav2_haut',10)
ipc.log('nav2_haut')
end
end

function TLS_ADF()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,16) ~= 0 then
TopSel = 'AADF'
ipc.display('adf_haut',10)
ipc.log('adf_haut')
end
end

function TLS_DME()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,32) ~= 0 then
TopSel = 'ADME'
ipc.display('dme_haut',10)
ipc.log('dme_haut')
end
end

function TLS_XPDR()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,64) ~= 0 then
TopSel = 'AXPDR'
ipc.display('xpdr_haut',10)
ipc.log('xpdr_haut')
end
end

-- Top Right items ---

function TRI_ACTSTB()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,16384) ~= 0 then
ipc.display('stand-by_haut',10)
ipc.log('stand-by_haut')
if TopSel == "ACOM1" then
Vleft = ipc.readUW(0x034E) -- com1
Vright = ipc.readUW(0x311A)-- com1 stdby
ipc.writeUW(0x034E,Vright)
ipc.writeUW(0x0311A,Vleft) -- on permute gauche et droite
Vleft = ipc.readUW(0x034E) -- com1
Vright = ipc.readUW(0x311A)-- com1 stdby
Get_Val_TOP(Vleft,Vright)
elseif TopSel == "ACOM2" then
Vleft = ipc.readUW(0x03118) -- com2
Vright = ipc.readUW(0x311C)-- com2 stdby
ipc.writeUW(0x03118,Vright)
ipc.writeUW(0x0311C,Vleft) -- on permute gauche et droite
Vleft = ipc.readUW(0x03118) -- com2
Vright = ipc.readUW(0x311C)-- com2 stdby
Get_Val_TOP(Vleft,Vright)
end
end
end

function TRI_OUT_KNOB_CW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,262144) ~= 0 then
ipc.display('gros horaire_haut',10)
ipc.log('gros horaire_haut')
end
end

function TRI_OUT_KNOB_ACW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,524288) ~= 0 then
ipc.display('gros anti-horaire_haut',10)
ipc.log('gros anti-horaire_haut')
end
end

function TRI_IN_KNOB_CW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,65536) ~= 0 then
ipc.display('petit horaire_haut',10)
ipc.log('petit horaire_haut')
end
end

function TRI_IN_KNOB_ACW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,131072) ~= 0 then
ipc.display('petit anti horaire_haut',10)
ipc.log('petit anti horaire_haut')
end
end

---------------------------
------ BOTTOM Items -------
---------------------------

-- Bottom Left Mode Selector ---

function BLS_COM1()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,128) ~= 0 then
BotSel = 'BCOM1'
ipc.log(BotSel)
Vleft = ipc.readUW(0x034E) -- com1
Vright = ipc.readUW(0x311A) -- com1 stand by
Get_Val_BOT(Vleft,Vright)
end
end

function BLS_COM2()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,256) ~= 0 then
BotSel = 'BCOM2'
ipc.log(BotSel)
Vleft = ipc.readUW(0x3118) -- com2
Vright = ipc.readUW(0x311C) -- com2 stand by
Get_Val_BOT(Vleft,Vright)
end
end

function BLS_NAV1()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,512) ~= 0 then
BotSel = 'nav1'
ipc.display('nav1_bas',10)
ipc.log('nav1_bas')
ipc.log(BotSel)
end
end

function BLS_NAV2()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,1024) ~= 0 then
BotSel = 'BNAV2'
ipc.display('nav2_bas',10)
ipc.log('nav2_bas')
end
end

function BLS_ADF()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,2048) ~= 0 then
BotSel = 'BADF'
ipc.display('adf_bas',10)
ipc.log('adf_bas')
end
end

function BLS_DME()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,4096) ~= 0 then
BotSel = 'BDME'
ipc.display('dme_bas',10)
ipc.log('dme_bas')
end
end

function BLS_XPDR()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,8192) ~= 0 then
BotSel = 'BXPDR'
ipc.display('xpdr_bas',10)
ipc.log('xpdr_bas')
end
end

-- Bottom Right items ---

function BRI_ACTSTB()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,32768) ~= 0 then
ipc.display('stand-by_bas',10)
ipc.log('stand-by_bas')
if BotSel == "BCOM1" then
Vleft = ipc.readUW(0x034E) -- com1
Vright = ipc.readUW(0x311A)-- com1 stdby
ipc.writeUW(0x034E,Vright)
ipc.writeUW(0x0311A,Vleft) -- on permute gauche et droite
Vleft = ipc.readUW(0x034E) -- com1
Vright = ipc.readUW(0x311A)-- com1 stdby
Get_Val_BOT(Vleft,Vright)
elseif BotSel == "BCOM2" then
Vleft = ipc.readUW(0x03118) -- com2
Vright = ipc.readUW(0x311C)-- com2 stdby
ipc.writeUW(0x03118,Vright)
ipc.writeUW(0x0311C,Vleft) -- on permute gauche et droite
Vleft = ipc.readUW(0x03118) -- com2
Vright = ipc.readUW(0x311C)-- com2 stdby
Get_Val_BOT(Vleft,Vright)
end
end
end

function BRI_OUT_KNOB_CW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,4194304) ~= 0 then
ipc.display('gros horaire_bas',10)
ipc.log('gros horaire_bas')
end
end

function BRI_OUT_KNOB_ACW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,8388608) ~= 0 then
ipc.display('gros anti-horaire_bas',10)
ipc.log('gros anti-horaire_bas')
end
end

function BRI_IN_KNOB_CW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,1048576) ~= 0 then
ipc.display('petit horaire_bas',10)
ipc.log('petit horaire_bas')
end
end

function BRI_IN_KNOB_ACW()
testVar = ipc.readUD(0x3358)
if logic.And(testVar,2097152) ~= 0 then
ipc.display('petit anti horaire_bas',10)
ipc.log('petit anti horaire_bas')
end
end

------------------------------------------
function Get_Val_TOP(Vleft,Vright)
-- Lecture des offsets
ipc.log("Fonction Get_Val_TOP")
--com1 = ipc.readUW(0x034E) -- com1
--com1stb = ipc.readUW(0x311A) -- com1 stand by
--com2 = ipc.readUW(0x3118) -- com2
--com2stb = ipc.readUW(0x311C) -- com2 stand by
--nav1 = ipc.readUW(0x0350) -- nav1
--nav1stb = ipc.readUW(0x311E) -- nav1stb
--nav2 = ipc.readUW(0x0352) -- nav2
--nav2stb = ipc.readUW(0x3120) -- nav2stb
-- Vleft=com1
-- Vright=com1stb
ipc.log("Vleft = "..Vleft)
ipc.log("Vright = "..Vright)
-- Conversion en HEX de Vleft
setval = DEC_HEX(Vleft)
ipc.log("Frq gauche apres conversion dec hex : 1 "..setval)
-- Extraction du 1er chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 1, 1))
v1= 240 + tonumber(string.sub(setval, 1, 1))
-- Extraction du 2eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 2, 2))
v2 = 208 + tonumber(string.sub(setval, 2, 2))
-- Extraction du 3eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 3, 3))
v3 = 240 + tonumber(string.sub(setval, 3, 3))
-- Extraction du 4eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 4, 4))
v4 = 240 + tonumber(string.sub(setval, 4, 4))
ipc.log("v1="..v1.." v2="..v2.." v3="..v3.." v4="..v4)

-- Conversion en HEX de Vright
setval = DEC_HEX(Vright)
ipc.log("Frq droite apres conversion dec hex : 1 "..setval)
-- Extraction du 1er chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 1, 1))
v5 = 240 + tonumber(string.sub(setval, 1, 1))
-- Extraction du 2eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 2, 2))
v6 = 208 + tonumber(string.sub(setval, 2, 2))
-- Extraction du 3eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 3, 3))
v7= 240 + tonumber(string.sub(setval, 3, 3))
-- Extraction du 4eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 4, 4))
v8 = 240 + tonumber(string.sub(setval, 4, 4))
ipc.log("v5="..v5.." v6="..v6.." v7="..v7.." v8="..v8)
gvt = 1
Write_Panel ()
end

-- Lecture de la position du sélecteur du bas

function Get_Val_BOT(Vleft,Vright)
ipc.log("Fonction Get_Val_BOT")
ipc.log("Botsel= "..BotSel)
ipc.log("Vleft = "..Vleft)
ipc.log("Vright = "..Vright)
if BotSel == 'BCOM1' or 'BCOM2' or 'BNAV1' or 'BNAV2' then
ipc.log("traitement de botsel")
-- Conversion en HEX de BotSel
-- Vleft = nav1
setval = DEC_HEX(Vleft)
ipc.log("Frq gauche apres conversion dec hex : 1 "..setval)
-- Extraction du 1er chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 1, 1))
v9= 240 + tonumber(string.sub(setval, 1, 1))
-- Extraction du 2eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 2, 2))
v10= 208 + tonumber(string.sub(setval, 2, 2))
-- Extraction du 3eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 3, 3))
v11 = 240 + tonumber(string.sub(setval, 3, 3))
-- Extraction du 4eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 4, 4))
v12 = 240 + tonumber(string.sub(setval, 4, 4))
ipc.log("v9="..v9.." v10="..v10.." v11="..v11.." v12="..v12)

-- Conversion en HEX de Vright
-- Vright = nav1stb
setval = DEC_HEX(Vright)
ipc.log("Frq droite apres conversion dec hex : 1 "..setval)
-- Extraction du 1er chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 1, 1))
v13 = 240 + tonumber(string.sub(setval, 1, 1))
-- Extraction du 2eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 2, 2))
v14 = 208 + tonumber(string.sub(setval, 2, 2))
-- Extraction du 3eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 3, 3))
v15 = 240 + tonumber(string.sub(setval, 3, 3))
-- Extraction du 4eme chiffre et conversion "saïtek"
ipc.log(string.sub(setval, 4, 4))
v16 = 240 + tonumber(string.sub(setval, 4, 4))
ipc.log("v13="..v13.." v14="..v14.." v15="..v15.." v16="..v16)

elseif BotSel == 'BADF' then
ipc.log("Bottom Selector : ADF")
ADF1A = ipc.readUW(0x0356) -- ADF1 1000 + décimale
ADF1B = ipc.readUW(0x034C) -- ADF1 Centaines dizaines unités
ipc.log("ADF1A : "..ADF1A)
ipc.log("ADF1B : "..ADF1B)
A = DEC_HEX(ADF1A)
B = DEC_HEX(ADF1B)
ipc.log("A : "..A)
ipc.log("B : "..B)
elseif BotSel == 'BXPDR' then
ipc.log("Bottom Selector : ADF")
elseif BotSel == 'BDME' then
ipc.log("Bottom Selector : ADF")
end
gvb = 1
Write_Panel ()
end

function Write_Panel ()
ipc.log("fonction Write_Panel")
if gvt ~= nil and gvb ~= nil then
devradio = ipc.get("devradio")
wrfradio = ipc.get("wrfradio")
-- Définition de la variable s : Valeurs à écrire dans le module Saïtek
s=string.char(0,241,v1,v2,v3,v4,241,v5,v6,v7,v8,241,v9,v10,v11,v12,241,v13,v14,v15,v16,0,0)
ipc.log("s="..s)
--s=string.char(0,241,241,241,241,241,242,242,242,242,242,243,243,243,243,243,244,244,244,244,244,0,0)
-- Envoi des valeurs dans le module Saïtek
com.writefeature (devradio, s, wrfradio)
end
end

function DEC_HEX(IN)
local B,K,OUT,I,D=16,"0123456789ABCDEF","",0
while IN>0 do
I=I+1
IN,D=math.floor(IN/B),math.mod(IN,B)+1
OUT=string.sub(K,D,D)..OUT
end
return OUT
end

function Radio_Off ()
testvar = ipc.readUD(0x66c0)
ipc.log("fonction Radio_Off "..testvar)
if logic.And(testvar,1) == 0 or logic.And(testvar,4) == 0 then
ipc.log("0x66C0,1 "..logic.And(testvar,1))
ipc.log("0x66C0,4 "..logic.And(testvar,4))
devradio = ipc.get("devradio")
wrfradio = ipc.get("wrfradio")
   s=string.char(0,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,250,0,0)
   ipc.log("s="..s)
   ipc.sleep(2000)
   ipc.log("Sortie du script")
   com.writefeature (devradio, s, wrfradio)
   ipc.exit()
   end
end
-----------------------------------------------
----- INITIALISATION Lecture position des switchs------

testVar = ipc.readUD(0x3358)
ipc.log("Initialisation RadioPanel. testVar = "..testVar)
--- Bouton haut --
if logic.And(testVar,1) ~= 0 then TLS_COM1()
elseif logic.And(testVar,2) ~= 0 then TLS_COM2()
elseif logic.And(testVar,4) ~= 0 then TLS_NAV1()
elseif logic.And(testVar,8) ~= 0 then TLS_NAV2()
elseif logic.And(testVar,16) ~= 0 then TLS_ADF()
elseif logic.And(testVar,32) ~= 0 then TLS_DME()
elseif logic.And(testVar,64) ~= 0 then TLS_XPDR()
end
--- Bouton bas --
if logic.And(testVar,128) ~= 0 then BLS_COM1()
elseif logic.And(testVar,256) ~= 0 then BLS_COM2()
elseif logic.And(testVar,512) ~= 0 then BLS_NAV1()
elseif logic.And(testVar,1024) ~= 0 then BLS_NAV2()
elseif logic.And(testVar,2048) ~= 0 then BLS_ADF()
elseif logic.And(testVar,4096) ~= 0 then BLS_DME()
elseif logic.And(testVar,8192) ~= 0 then BLS_XPDR()
end
ipc.log("Fin initialisation")

-- Events Top Items --

event.offsetmask(0x3358, 1,'UD', 'TLS_COM1')
event.offsetmask(0x3358, 2,'UD', 'TLS_COM2')
event.offsetmask(0x3358, 4,'UD', 'TLS_NAV1')
event.offsetmask(0x3358, 8,'UD', 'TLS_NAV2')
event.offsetmask(0x3358, 16,'UD', 'TLS_ADF')
event.offsetmask(0x3358, 32,'UD', 'TLS_DME')
event.offsetmask(0x3358, 64,'UD', 'TLS_XPDR')
event.offsetmask(0x3358, 16384,'UD', 'TRI_ACTSTB') --
event.offsetmask(0x3358, 524288,'UD', 'TRI_OUT_KNOB_CW')
event.offsetmask(0x3358, 262144,'UD', 'TRI_OUT_KNOB_ACW')
event.offsetmask(0x3358, 65536,'UD', 'TRI_IN_KNOB_CW')
event.offsetmask(0x3358, 131072,'UD', 'TRI_IN_KNOB_ACW')

-- Events Bottom Items --

event.offsetmask(0x3358, 128,'UD', 'BLS_COM1')
event.offsetmask(0x3358, 256,'UD', 'BLS_COM2')
event.offsetmask(0x3358, 512,'UD', 'BLS_NAV1')
event.offsetmask(0x3358, 1024,'UD', 'BLS_NAV2')
event.offsetmask(0x3358, 2048,'UD', 'BLS_ADF')
event.offsetmask(0x3358, 4096,'UD', 'BLS_DME')
event.offsetmask(0x3358, 8192,'UD', 'BLS_XPDR')
event.offsetmask(0x3358, 32768,'UD', 'BRI_ACTSTB')
event.offsetmask(0x3358, 4194304,'UD', 'BRI_OUT_KNOB_CW')
event.offsetmask(0x3358, 8388608,'UD', 'BRI_OUT_KNOB_ACW')
event.offsetmask(0x3358, 2097152,'UD', 'BRI_IN_KNOB_ACW')
event.offsetmask(0x3358, 1048576,'UD', 'BRI_IN_KNOB_ACW')

--- Event Switch Panel Batterie et Avionique
event.offsetmask(0x66C0, 1,'UD', 'Radio_Off')
event.offsetmask(0x66C0, 4,'UD', 'Radio_Off')
[/Spoiler]

Je vais pouvoir continuer sur les rotatifs maintenant que je peux tester.

Bon week-end et excuse-moi pour les erreurs.

A te lire.

Dernière modification par Pat_59 (22-11-2014 10:08:07)

Oliver77 · [↑]

Bonjour Patrick,

Pas de souci, et pas de perte de temps !

Au contraire, car je fais des essais avec nos scripts respectifs ! Et je maintiens ce que j'ai dit hier en lisant tes scripts; ils simplifient le code considérablement et évitent les redondances. Je dois m'absenter mais je te tiens au courant quand je reviens ce soir. J'ai identifié le problème.

Bonne journée, et amitiés.
Olivier.

Oliver77 · [↑]

Bonsoir Patrick,

Alors pour commencer, je réponds à tes questions :

- Mode XPDR :

L'afficheur de droite indique le réglage de l'altimètre ( Outer +, Outer -)
Celui de droite indique le transpondeur. Les millies avec la décimale par défaut. Modification par Inner (+ et -). Une pression sur ACT/STBY (aussi indiqué XPDR Digit) pour basculer sur les centaines, et ainsi de suite ...

- Mode DME :

Je ne l'ai jamais utilisé. Par défaut, machine à l'arrêt, l'afficheur n'affiche que les trois premières décimales à gauche et à droite.

- Mode ADF :

L'afficheur de gauche affiche les trois premières décimales.
Celui de droite voit la décimale modifiée par le Inner (+ et -). Le reste modifié par le outer (+ et -) C'est également une fonction que je n'ai pas vraiment utilisée.

Maintenant, j'en viens à tes scripts. Ils fonctionnent parfaitement !

Dans ta précédente version du switchpanel, il y avait un souci avec le master bat et l'avionique : la valeur n'arrivait jamais à 2. Tu a été plus rapide que moi pour le corriger !

Pour le radioPanel, l'affichage ne s'allumait pas du tout. Là, c'est nickel après quelques petites bidouilles.
Je t'en ferai part demain.

Amitiés,
Olivier.

Pat_59 · [↑]

Bonjour Olivier,

Merci pour les screens, cela va m'aider.
Pour l'ADF et le réglage altimètre, pas de problème. Le mode XPDR sera sans doute un peu plus compliqué à coder du fait qu'il faille utiliser la touche Stand-by pour changer de digit (et je ne parle même pas de la chaîne à construire à chaque fois).
À cœur vaillant, rien d'impossible. On mettra le temps qu'il faudra.

Concernant le SwitchPanel, j'avais oublier que le code est exécuter une fois à l'initialisation donc la variable qui était au départ à 0 se retrouvait à -2 et ne pouvait plus atteindre 2 par la suite pour lancer le RadioPanel. En partant de 2 cela fonctionne beaucoup mieux. Comme quoi il aurait fallu que je teste avant de te le donner. On ne m'y reprendra plus.

En parlant de chaîne à construire, je suis tomber, lors de mes tests, sur un cas un peu particulier.
Pour le cas des fréquences NAV qui comporte un 0 en second chiffre (109.50 par ex), l'offset nous renvoie 950 (le 0 est évidemment omis). De ce fait, lors de la construction de la chaîne (v1 à v4), il te manque nécessairement une valeur ce qui devait entraîner ces erreurs d'affichage.
J'ai modifié le script pour prendre cela en compte. Je demande le nombre de caractère de la variable (string.len(variable)) et si j'obtiens 3 , je concatène avec un 0 en tête ("0"..variable) ainsi l'intégrité des 4 variables v est préservée

À bientôt pour la suite.

PS : J'attends la valeur des bits modifiés par les inner et outer knob mais c'est secondaire, ça ne m'empêche pas de travailler, je fais comme si...

Dernière modification par Pat_59 (23-11-2014 09:27:33)

Oliver77 · [↑]

Patrick,

Voici un récapitulatif des différentes valeurs retournées par les rotatifs selon la position du sélecteur.

Haut -> out+ -> out- > in+ -> in -

com1 262657 524801 66049 131585
com2 262658 524802 66050 131586
nav1 262660 524804 66052 131588
nav2 262664 524808 66056 131592
adf 262672 54816 66064 131600
dme 262688 524832 66080 131616
xpdr 26270 524864 66112 131648

Bas-> out+ -> out- > in+ -> in -

com1 4194433 8388737 1048705 2097281
com2 4194561 8388865 1048833 2097409
na1v 4194817 8389121 1049089 2097665
nav2 4195329 8389633 1049601 2098177
adf 4196353 8390657 1050625 2099201
dme 4198401 8392705 1052673 2101249
xpdr 4202497 8396801 1056769 2105345

Quant à l'ADF, il j'avais compris que lui-ci était stocké sur deux offset:

- 0x0356 pour le chiffre des milliers et la décimale
- 0x034C pour les chiffres des centaines, des dizaines et des unités.

Je pensais extraire ces valeurs et les concaténer avant de pouvoir les traiter. Mais je n'ai pas encore essayé ... Aujourd'hui je vais enfin essayer de positionner correctement mes deux écrans destinés l'affichage des gauges ... Mon install actuelle est inconfortable et fait souffrir mes épaules ...

Du coup, si tu attends les conversions des valeurs attendues, je te les ferai parvenir un peu plus tard ...

#101 [↑][↓] 19-11-2014 16:24:42

Re : [FSX] Script LUA, Saitek et FSUIPC

#102 [↑][↓] 19-11-2014 20:32:01

Re : [FSX] Script LUA, Saitek et FSUIPC

#103 [↑][↓] 20-11-2014 00:05:10

Re : [FSX] Script LUA, Saitek et FSUIPC

#104 [↑][↓] 20-11-2014 07:26:01

Re : [FSX] Script LUA, Saitek et FSUIPC

#105 [↑][↓] 20-11-2014 12:42:12

Re : [FSX] Script LUA, Saitek et FSUIPC

#106 [↑][↓] 20-11-2014 15:35:38

Re : [FSX] Script LUA, Saitek et FSUIPC

#107 [↑][↓] 20-11-2014 22:21:24

Re : [FSX] Script LUA, Saitek et FSUIPC

#108 [↑][↓] 20-11-2014 22:22:28

Re : [FSX] Script LUA, Saitek et FSUIPC

#109 [↑][↓] 20-11-2014 22:25:32

Re : [FSX] Script LUA, Saitek et FSUIPC

#110 [↑][↓] 21-11-2014 09:36:11

Re : [FSX] Script LUA, Saitek et FSUIPC

#111 [↑][↓] 21-11-2014 11:10:48

Re : [FSX] Script LUA, Saitek et FSUIPC

#112 [↑][↓] 21-11-2014 12:09:13

Re : [FSX] Script LUA, Saitek et FSUIPC

#113 [↑][↓] 21-11-2014 12:47:32

Re : [FSX] Script LUA, Saitek et FSUIPC

#114 [↑][↓] 21-11-2014 16:31:48

Re : [FSX] Script LUA, Saitek et FSUIPC

#115 [↑][↓] 21-11-2014 18:19:52

Re : [FSX] Script LUA, Saitek et FSUIPC

#116 [↑][↓] 21-11-2014 18:53:19

Re : [FSX] Script LUA, Saitek et FSUIPC

#117 [↑][↓] 21-11-2014 20:35:59

Re : [FSX] Script LUA, Saitek et FSUIPC

#118 [↑][↓] 21-11-2014 20:52:46

Re : [FSX] Script LUA, Saitek et FSUIPC

#119 [↑][↓] 21-11-2014 21:49:35

Re : [FSX] Script LUA, Saitek et FSUIPC

#120 [↑][↓] 22-11-2014 10:01:53

Re : [FSX] Script LUA, Saitek et FSUIPC

#121 [↑][↓] 22-11-2014 10:06:49

Re : [FSX] Script LUA, Saitek et FSUIPC

#122 [↑][↓] 22-11-2014 10:24:13

Re : [FSX] Script LUA, Saitek et FSUIPC

#123 [↑][↓] 22-11-2014 23:42:43

Re : [FSX] Script LUA, Saitek et FSUIPC

#124 [↑][↓] 23-11-2014 09:16:42

Re : [FSX] Script LUA, Saitek et FSUIPC

#125 [↑][↓] 23-11-2014 11:06:41

Re : [FSX] Script LUA, Saitek et FSUIPC

Pied de page des forums