COM1 and NAV1 with only singel encoder

[ridnert]

All
Wonder if somebody has succsided to reviced the old script for P3D to work with MSFS.
I am using script Oi4FS-PM B737 v.6.1
COM1 works but can not get the NAV1 to change to turn SF.
Problems also that each turn on the encoders shows a glims of zero numbers.
// COM 1

Var 0496, name ST_COM1Low

Var 0497, name ST_COM1High

Var 0498, name D_AC_COM1, Link IOCARD_DISPLAY, Device 32, Digit 0, Numbers 6 // COM1 active

Var 0499, name O_AC_COM1DP, Link IOCARD_OUT, Device 32, Output 11 // Decimal Point

Var 0500, name D_ST_COM1, Link IOCARD_DISPLAY, Device 32, Digit 6, Numbers 6 // COM1 standby

Var 0501, name O_ST_COM1DP, Link IOCARD_OUT, Device 32, Output 12 // Decimal Point

Var 2801, name bCOM1_TFR, static, Link IOCARD_SW, Device 32, Input 4, Type P // Active/Standby swap button


Var 2802, name C1STtoNGX, static

Var 1800, name AC_COM1, static // read active COM1 display from NGX
{
IF &COM1_Power_ON = 1
{
&D_AC_COM1 = &AC_COM1 // display new frequency
}
}

Var 1801, name ST_COM1, static // read standby COM1 display from NGX
{
IF &COM1_Power_ON = 1
{
&D_ST_COM1 = &ST_COM1 // display new standby frequency
}
}

Var 8600, name COM_SWITCH, Link IOCARD_SW, Device 32, Input 12 Type P // in the shaft

Var 2781, name ROT_COM1_SW, static, Link IOCARD_ENCODER, Device 32, Input 0, Aceleration 1, Type 2
{
L0 = v2781 // * -1 make sure turning right increments
IF v8600 = 0
{
L0 = &ROT_COM1_SW * 1 // change turning direction
&ST_COM1High = ROTATE 18 ,36 ,L0
CALL &Com1ToNGX
}
ELSE
{
L0 = &ROT_COM1_SW * 25 // instead of acceleration that doesn't wor
&ST_COM1Low = ROTATE 0 ,999 ,L0
CALL &Com1ToNGX
}
}

Var 0504, name Com1ToNGX, Link SUBRUTINE
{
IF &COM1_Power_ON > 0
{
L0 = &ST_COM1High * 100
L1 = DIV &ST_COM1Low ,10
&ST_COM1 = L0 + L1
&C1STtoNGX = TOBCD &ST_COM1
}
}

// NAV 1

Var 0518, name ST_NAV1Low

Var 0519, name ST_NAV1High

Var 0520, name D_AC_NAV1, Link IOCARD_DISPLAY, Device 32, Digit 16, Numbers 5 // NAV1 active

Var 0521, name O_AC_NAV1DP, Link IOCARD_OUT, Device 32, Output 35 // Decimal Point

Var 0522, name D_ST_NAV1, Link IOCARD_DISPLAY, Device 32, Digit 21, Numbers 5 // NAV1 standby

Var 0523, name O_ST_NAV1DP, Link IOCARD_OUT, Device 32, Output 36 // Decimal Point

Var 2805, name bNAV1_TFR, static, Link IOCARD_SW, Device 32, Input 11, Type P // Active/Standby swap button

Var 2806, name N1STtoNGX, static

Var 1804, name AC_NAV1, static // read active NAV1 display from NGX
{
IF &NAV1_Power_ON = 1
{
&D_AC_NAV1 = &AC_NAV1 // display new active NAV1 frequency
}
}

Var 1805, name ST_NAV1, static // read standby NAV1 display from NGX
{
IF &NAV1_Power_ON = 1
{
&D_ST_NAV1 = &ST_NAV1 // display new standby NAV1 frequency
}
}

Var 8602, name NAV_SWITCH, Link IOCARD_SW, Device 32, Input 3 Type P // in the shaft

Var 2785, name ROT_NAV1_SW, static, Link IOCARD_ENCODER, Device 32, Input 9, Aceleration 1, Type 2
{
L0 = v2785 // * 1 make sure turning right increments
IF v8602 = 0
{
L0 = &ROT_NAV1_SW * 1 // change turning direction
&ST_NAV1High = ROTATE 8 ,17 ,L0
CALL &Nav1ToNGX
}
ELSE
{
L0 = &ROT_NAV1_SW * 5 // instead of acceleration that doesn't wor
&ST_NAV1Low = ROTATE 0 ,99 ,L0
CALL &Nav1ToNGX
}
}

Var 0526, name Nav1ToNGX, Link SUBRUTINE
{
IF &NAV1_Power_ON > 0
{
L0 = &ST_NAV1High * 100
&ST_NAV1 = L0 + &ST_NAV1Low
&N1STtoNGX = TOBCD &ST_NAV1
}
}

Brgds Thommy

[mvr1918]

Send a request for the Oi4FS-PM B737 v5.0 and 5.1 scripts to roarkrsp@gmail.com

Those scripts can be easier to use for modification. I do not believe it is possible with the 6.1 script.
I haven't looked into this in detail, but you can always try.

[ridnert]

Thanks Roar
I have the 5.1 already modified except for using only singel encoders.
I will see if that script will work .
Brgds Thommy

[ridnert]

Did not work.

[mvr1918]

If it work for you in P3D, you can try the same script in MSFS. Just rename it so the name start with Oi4FS-PM B737...