FSBUS - Problem mit DIO Board

[D-AHFL]

eine andere mögichkeit währe so:

*************************************
inhalt der schalter.ini
*************************************

'COCKPIT COMPONENTS - LIGHTS
'-------------------------------------------------------------------------------
'C NAME TYPE CID RID FLAGS P1 P2 P3
'-------------------------------------------------------------------------------
C, CSMixLev, SWITCH, 28, 0, NEGEDGE|TOGGLE



*************************************************
inhalt der mixture.dab
*************************************************

Dim Var_Wert

SUB OnBegin
LoadConfigFile("schalter.ini")
WriteFSDirect(0, 0x0890,I16,1,1)
END SUB

Sub OnCSMixLev
Var_Wert = ReadFSDirect( 0x0890, I16, 1, 1)
if Var_Wert = 16384
then
WriteFSDirect(0, 0x0890,I16,1,1)
else
WriteFSDirect(Var_Wert + 1638.4, 0x0890,I16,1,1)
end if
END SUB