[LUA] Télécommander son avion

[Lynx]

@ Tarochi, quand tu écris un script dans le export.lua, où le places tu ? Au début, ou à la fin ? Peux-tu m'envoyer une copie du tiens s'il te plait ? Je vais ainsi pouvoir comparer...
Pourrais-tu poser la question au concepteur de GaugeComposer (qui est je crois espagnol ???), pourquoi le soft ne démarre pas chez Lecréole ?
Merci beaucoup.

[Tarochi]

Aucune probleme:

C'est le memme qui du Lecreole, mais j'ai change quelques choses

Moi utilisse la function:function LuaExportActivityNextEvent(t)

et encore n'est pas fini.

Et quelques choses ont in espagneul.

le archive log est active pour la comprobation seulment. quand le script etait fini, on peuve desactiver.

Referent au Gauge Composer, je croix qui c'est un probleme du configuration ou qu'il oublie quelque parametre.





----------------------------------------------------------------------------------
-- Liaisons des variables SIOC et commande Lockon --
----------------------------------------------------------------------------------
t={} -- t[1]=variable/OFFSET 0001 ds SIOC, t[2]=variable 0002/OFFSET ds SIOC,t[n]=variable n ds SIOC,...
t[1] = {LastState=146, Input_On=145, Input_Off=146, Output_Ok=401, Output_Nook=402} -- Cmd des Volets
t[2] = {LastState=431, Input_On=431, Input_Off=430, Output_Ok=0, Output_Nook=0} -- Cmd des Trains
t[3] = {LastState=74, Input_On=74, Input_Off=75, Output_Ok=405} -- Cmd des Freins Roues
t[4] = {LastState=148, Input_On=147, Input_Off=148, Output_Ok=406} -- Cmd des aérofreins
t[5] = {LastState=0, Input_On=71, Input_Off=71, Output_Ok=402} -- Cmd de la verriére

function LuaExportStart()
------------------------------------------------------------------
-- Création du fichier LOG --
------------------------------------------------------------------

dofile "lua.lua"

local file = io.open("./Temp/Log.txt","w");

if file then

io.output(file)
end

------------------------------------------------------------------
-- Création du Serveur-client --
------------------------------------------------------------------

-- Client - Port d'envoi

socket = require("socket")

host = "127.0.0.1"

port = 8091

client = socket.try(socket.connect(host, port))

client:setoption("tcp-nodelay",true)

if client then

log("Connection client réussi sur "..host..":"..port)
end

-- Serveur - Port d'écoute

socket = require("socket")

host = "127.0.0.1"

port = 8092

log("Demande de socket au " ..host.. ":" ..port)

s = socket.try(socket.bind(host, port))

i, p = socket.try(s:getsockname())

log("Attente de connection pendant 5 secondes au " ..i.. ":" ..p)

socket.try(s:settimeout(5))

serveur = socket.try(s:accept())

if serveur ~= nil then

socket.try(serveur:settimeout(0))

log("Connection Serveur réussi sur "..i..":"..p)

end

end

function log(event)

io.write(os.date("%d/%m/%y-%H:%M:%S").." "..event.."\n")

end


function LuaExportBeforeNextFrame()

if serveur then

l, e = serveur:receive()

if l then

log("Reçoit:"..l)

TraitementData(l)

end
end


end


function LuaExportAfterNextFrame()


end




function LuaExportStop()

serveur:close()

client:close()

log("Connection fermer")

io.close()

end


function LuaExportActivityNextEvent(t)

local tNext = t

-- Put your event code here and increase tNext for the next event
-- so this function will be called automatically at your custom
-- model times.
-- If tNext == t then the activity will be terminated.
-- For example:

local ErrorGenrl = LoGetMCPState() -- (args - 0, results - 1 (table of key(string).value(boolean))
local Alertas = ""
table.foreach(ErrorGenrl,function(k,v)
if (v) then Alertas=Alertas.."1"
else Alertas=Alertas.."0"
end
end)

local FPlanoDcha = string.byte(Alertas,1)
local FEOS = string.byte(Alertas,2)
local FECM = string.byte(Alertas,3)
local FAleronDcho = string.byte(Alertas,4)
local MasterWarning = string.byte(Alertas,5)
local FMotorDcho = string.byte(Alertas,6)
local FCanon = string.byte(Alertas,7)
local FMLWS = string.byte(Alertas,8)
local FACS = string.byte(Alertas,9)
local FRadar = string.byte(Alertas,10)
local FVisorCasco = string.byte(Alertas,11)
local FHUD = string.byte(Alertas,12)
local FBombaPrincIzq = string.byte(Alertas,13)
local FBombaAlaDcha = string.byte(Alertas,14)
local FBombaAlaIzd = string.byte(Alertas,15)
local FMFD = string.byte(Alertas,16)
local FRWS = string.byte(Alertas,17)
local FTren = string.byte(Alertas,18)
local FHidraulico = string.byte(Alertas,19)
local FPilotoAuto = string.byte(Alertas,20)
local FTanqueComb = string.byte(Alertas,21)
local FAleronIzd = string.byte(Alertas,22)
local CabinaAbierta = string.byte(Alertas,23)
local FBombaPrincDcha = string.byte(Alertas,24)
local AtascoTurbina = string.byte(Alertas,25)
local FMotorIzq = string.byte(Alertas,26)
local PilotoAutoOn = string.byte(Alertas,27)
local FPlanoIzq = string.byte(Alertas,28)
local t = LoGetModelTime()
local name = LoGetPilotName()
local altBar = LoGetAltitudeAboveSeaLevel()
local altRad = LoGetAltitudeAboveGroundLevel()
local pitch, bank, yaw = LoGetADIPitchBankYaw()
local engine = LoGetEngineInfo()
local HSI = LoGetControlPanel_HSI()
local IAS = LoGetIndicatedAirSpeed()
local TAS = LoGetTrueAirSpeed()
local AOA = LoGetAngleOfAttack()
socket.try(client:send(string.format("Arn.Resp:100=%d:101=%d:102=%d:103=%d:104=%d:105=%d:\n",FPlanoDcha,FEOS,FECM,FAleronDcho,MasterWarning,FMotorDcho)))
socket.try(client:send(string.format("Arn.Resp:106=%d:107=%d:108=%d:109=%d:110=%d:\n",FCanon,FMLWS,FACS,FRadar,FVisorCasco)))
socket.try(client:send(string.format("Arn.Resp:111=%d:112=%d:113=%d:114=%d:115=%d:\n",FHUD,FBombaPrincIzq,FBombaAlaDcha,FBombaAlaIzd,FMFD)))
socket.try(client:send(string.format("Arn.Resp:116=%d:117=%d:118=%d:119=%d:120=%d:\n",FRWS,FTren,FHidraulico,FPilotoAuto,FTanqueComb)))
socket.try(client:send(string.format("Arn.Resp:121=%d:122=%d:123=%d:124=%d:125=%d:126=%d:127=%d:\n",FAleronIzd,CabinaAbierta,FBombaPrincDcha,AtascoTurbina,
FMotorIzq,PilotoAutoOn,FPlanoIzq)))

socket.try(client:send(string.format("Arn.Resp:16=%d:17=%d:18=%d:19=%d:20=%d:21=%d:22=%d:23=%d:\n",engine.RPM.left,engine.RPM.right,engine.Temperature.left,engine.Temperature.right,engine.HydraulicPressure.left,engine.HydraulicPressure.right,engine.fuel_internal,engine.fuel_external)))
io.write(string.format("Arn.Resp:16=%d:17=%d:18=%d:19=%d:20=%d:21=%d:22=%d:23=%d:\n",engine.RPM.left,engine.RPM.right,engine.Temperature.left,engine.Temperature.right,engine.HydraulicPressure.left,engine.HydraulicPressure.right,engine.fuel_internal,engine.fuel_external))
io.write(string.format("%s\n",Alertas))
tNext = tNext + 1.0


return tNext
end



function TraitementData(_data)

local cmd -- Commande

local val -- Valeur

local r = ""

for v in string.gfind(_data,"%w+=%w+") do

local i = 0

for d in string.gfind(v,"%w+") do

if i==0 then cmd = tonumber(d) else val=tonumber(d) end

i = i+1

end

if t[cmd].Input_Off==t[cmd].Input_On then

rval=val
rcmd=t[cmd].Input_On

else

if val==0 then rval=t[cmd].Input_Off else rval=t[cmd].Input_On end
rcmd=rval

end

socket.try(client:send(string.format("Val=%s rval=%s state=%s\n",val,rval,t[cmd].LastState)))

if t[cmd].LastState == rval then

-- Actualise l'état

if t[cmd].Output_Ok then r = r..":"..t[cmd].Output_Ok.."="..val end

if t[cmd].Output_NooK then r = r..":"..t[cmd].Output_Nook.."=0" end

--socket.try(client:send(r.."\n"))

else

if EstPossible(cmd,rval) then

socket.try(client:send("Possible\n"))

LoSetCommand(tonumber(rcmd))

if t[cmd].Output_Ok then r = r..":"..t[cmd].Output_Ok.."="..val end

if t[cmd].Output_NooK then r = r..":"..t[cmd].Output_Nook.."=0" end

--if t[cmd].Output_OK then r = r..":"..t[cmd].Output_Ok.."="..val end

--if t[cmd].Output_NooK then r = r..":"..t[cmd].Output_Nook.."=0" end

t[cmd].LastState = rval

else

socket.try(client:send("Impossible\n"))

if t[cmd].Output_OK then r = r..":"..t[cmd].Output_Ok.."=0" end

if t[cmd].Output_NooK then r = r..":"..t[cmd].Output_Nook.."=1" end

end
end

end

if r ~= "" then

socket.try(client:send("Arn.Resp:"..r.."\n"))
end
end

function EstPossible(c,v)

return true

end

Ce message a été modifié par Tarochi - 26 Jan 2007, 14:37.

[Maraudeur]

AAArrrrrrgggghhhhhllllll!!!!

Tarochi, tu as lu la Documentation complête du LUA pour faire ça?

[Tarochi]

http://lua-users.org/wiki/TutorialDirectory

[Tarochi]

Je vais peu a peu

Aucune sait les dimensions reels de les gauges?



Ce message a été modifié par Tarochi - 29 Jan 2007, 00:17.

[Maraudeur]

Superbe, je te donne les dimensions ASAP!

En attendant, une nouvelle version du SIOC 3.4 vient de sortir...

ATTENTION: il est plus performant mais le SIOC.INI est différent

[Lynx]

Bon, alors moi, j'ai finalisé le panel que je veux installer il ne me reste plus qu'à configurer, les aiguilles et les scripts.
Merci à Tarochi pour le Tachymètre et ses aiguilles, et à John pour le vieil écran de sa chérie... Et Hammerli & Maraudeur pour les dessins primaires des instruments, j'ai beaucoup utilisé Paint, the Gimp, et joué sur les transparences dans Gauge-Composer.

ICI :

En plus grosse :


La silhouette de l'avion de l'ADI est mobile ainsi que la rose des vents Intérieure du Compas.

Ce message a été modifié par Lynx - 29 Jan 2007, 22:08.

Fichier(s) joint(s)
 Instruments.zip ( 271,91 Ko ) Nombre de téléchargements: 198

[Tarochi]

Tres Bien¡¡¡¡¡¡¡.

Si je te peuve aider avex les scripts, tu sais.......

Moi je vais suivre avec mes gauges, parce que j'ai une autre concepte:

Je veule les representer a scale reel en deux ecrans TFT et toute ça desous le tablier de mon future cockpit, c'est pour ça que je demande les dimensions reels des gauges, et si on peuve etre les dimensions du tablier du SU-27.

L'idee c'est:

[Lynx]

Je veux faire la même chose que toi, mais peut-être en plus simple...
Pour les scripts dis moi si j'ai tout bien compris:
- on modifie le config.lua pour exporter les données vers 127.0.0.1
- on modifie export.lua pour choisir les valeurs et le moyen de les exporter (le socket, la valeur, export after ou before:next frame...)
- dans Gauge Composer, on établit les scripts pour chaque fichier .bmp, avec les calculs pour les aiguilles, le tout dans les sockets qui sont sélectionnés avant.

Si je n'ai pas tout bon, n'hésites pas à me corriger, et merci...

[Specnaz]

Tres Bien¡¡¡¡¡¡¡.

Si je te peuve aider avex les scripts, tu sais.......

Moi je vais suivre avec mes gauges, parce que j'ai une autre concepte:

Je veule les representer a scale reel en deux ecrans TFT et toute ça desous le tablier de mon future cockpit, c'est pour ça que je demande les dimensions reels des gauges, et si on peuve etre les dimensions du tablier du SU-27.

L'idee c'est:

Alors là TAROCHI ! Chapeau bas , trés beau boulot !!! Vivement que je m'y plonge aussi...