Progamming help with FSBus dll

[John_B]

Hi 388TH_A

Sorry to hear about having to start over...oh the tedium of it all....

But welcome "back"

John

[388TH_A]

LOL I found a working copy on my computer that I was given back in 2010 from RVDB737NG Copyright(c)2009, Rob van Dijk - www.rvdijk.nl Now im just trying to change it up and make it my own.

[John_B]

Phew!

I also have just about all of Robs original files..let me know if you cant find anything ...What cockpit are you working on?

John

[388TH_A]

for now im doing my radios and autopilot then might try and make it around a 737-800

[John_B]

Ah same here (737-800) although as I am building mine Its going in bubble wrap as we aim to move house in a few months.

John

[388TH_A]

So a couple of things

1( Working on the Pedestal the freqs will only count up when ever I turn the Rotary Knobs

/*---------------------- COM1 Events ----------------------*/

		case FS_COM1FREQUENCY:
				Com1Fr = ((10000 + BCD2Int(val)) * 10 + 5) / 25 * 25; // rounded, units: 0.001
				FsbusWrite(C_DCOM1, Com1Fr / 10); // to cockpit
            break;
		case FS_COM1STANDBY:
				Com1FrStb = ((10000 + BCD2Int(val)) * 10 + 5) / 25 * 25;
				FsbusWrite(C_DCOM1STB, Com1FrStb / 10);	// to cockpit
            break;		
        case C_RCOM1DEC:
				x = Com1FrStb %1000;
				x = x + 25 * val; // in steps of 0.025
            if (x > 975) // upper limit: 0.975
                x = 0;
            else if (x < 0)
                x = 975;
				Com1FrStb = Com1FrStb / 1000 * 1000 + x; // units: 0.001
				FsbusWrite(C_DCOM1STB, Com1FrStb / 10);	// truncated to 0.01
				x = Int2BCD((Com1FrStb % 100000) / 10);	// stripped and truncated to 0.01
				FsWrite(FS_COM1STANDBY, x);	// to FS
            break;
        case C_RCOM1FRA:
				x = Com1FrStb / 1000; // ahead of dec point
				x = x + val; // in steps of 1.000
            if (x > 136)
                x = 118;
            else if (x < 118)
                x = 136;
				Com1FrStb = x * 1000 + (Com1FrStb % 1000);
				FsbusWrite(C_DCOM1STB, Com1FrStb / 10);
				x = Int2BCD((Com1FrStb % 100000) / 10);
				FsWrite(FS_COM1STANDBY, x);
            break;
		case C_SCOM1SWAP:
			if(val==0)
				FsWrite (FS_RADIOUSESTBYTOGGLE,0x08); // toggle bit 3 (COM1)
		    break;
		case C_SCOM1TEST:
            break;

2) for the 737NGX Transponder there are Five positions for the Knob but cant seem to find the offset for them

		case C_SXPNDRIDENT:            break;
        case C_SXPNDRCTRL1:
            break;
        case C_SXPNDRCTRL2:
            break;
        case C_SXPNDRCTRL3:
            break;
        case C_SXPNDRCTRL4:
            break;
        case C_SXPNDRCTRL5:
            break;

3) The ADF1STBY Freq doesnt seem to show the correct Freq. And the Value I do get is 0x0000

MkFsObject(FS_EXTENDEDADF1,        "OID", EventHandler, 0x0356, 2, TP_UI16, FS_NORMAL);

case FS_ADF1FREQUENCY:
				ADF1 = (ADF1 / 10000) * 10000 + BCD2Int(val) * 10 + ADF1 % 10;
				FsbusWrite(C_DADF1, ADF1);
            if (bSynchronised == false) 
            {
                ADF1Stb = ADF1;
                FsbusWrite(C_DADF1STB, ADF1Stb);
            }
            break;
		case FS_EXTENDEDADF1:
				ADF1 = BCD2Int(val >> 8) * 10000 + ((ADF1/10)%1000)*10 + BCD2Int(val & 0x00FF);
				FsbusWrite(C_DADF1, ADF1);
            if (bSynchronised == false) 
            {
				ADF1Stb = ADF1;
				FsbusWrite(C_DADF1STB, ADF1Stb);
            }
            break;
		case C_RADF_100:
				x = ADF1Stb / 1000;	// hundreds
				x = x + val; // update 100s
            if (x > 17)
                x = 1; // wrap
            else if (x < 1)
                x = 17;	// wrap
				ADF1Stb = x * 1000 + ADF1Stb % 1000; // new 100s
				FsbusWrite(C_DADF1STB, ADF1Stb);
			break;
        case C_RADF_10:
				x = (ADF1Stb % 1000) / 10; // tens + units
				x = x + val; // update 10s
            if (x > 99)
                x = 0; // wrap
            else if (x < 0)
                x = 99;	// wrap
				ADF1Stb = (ADF1Stb / 1000) * 1000 + x * 10  + ADF1Stb % 10; // new 10s
				FsbusWrite(C_DADF1STB, ADF1Stb);
			break;
        case C_RADF_1:
				x = ADF1Stb % 10; // .1 units
				x = x + val; // update 10s
            if (x > 9)
                x = 0; // wrap
            else if (x < 0)
                x = 9; // wrap
				ADF1Stb = (ADF1Stb / 10) * 10 + x;        
				FsbusWrite(C_DADF1STB, ADF1Stb);
			break;
        case C_SADFSWAP:
            if (val == 0)
            {
                x = ADF1Stb; // save
                ADF1Stb = ADF1;	// swap
                ADF1 = x; // swap
                x = Int2BCD(ADF1); // convert to bcd
                FsWrite(FS_EXTENDEDADF1, ((x & 0x0F0000) >> 8) | (x & 0x00000F));
                FsWrite(FS_ADF1FREQUENCY, (x & 0x00FFF0) >> 4);
                FsbusWrite(C_DADF1STB, ADF1Stb);
            }
			break;		
		case FS_ADF1MORSE:
            break;

[388TH_A]

bump bump__

[388TH_A]

Just come to the realisation that there are no offsets for the OFF, STBY, ON, ALT or test, so it was a pointless exercise.

I've gone back to basics, I've pulled two of the switches out and converted the holes to fit the rotary encoders, so now I have the same layout as Rob uses ie: 2 rotary encoders, 4 digits and a dummy 5 position switch.

The code compiles so that's a good sign. I just need to wire it all up to test.

When I'm done with the coding, I will be giving the uncompiled project to anyone who wants to build a cessna cockpit using FSBus dll. Hope no one minds (I'm sure no one does).

David

Hi Stefan,

Thanks for your comments.

I think I will have to redesign my transponder. I built this a long time ago from someone elses idea.

I will have to get the old cnc machine out again.

Am I correct:

Rob's code is based on 1 rotary encoder
A 5 position rotary switch (for OFF, STBY, ON, ALT, TEST)
It is a 5 7-segment display (not 4 like mine is)

Regards
David

Hi Stefan,

Back again. Everything is going great.

I have started on the xponder.

My set us uses 4 on-off-on self centering switches for the four digits, one for each digit (push up for up one number and press down for down one number), (hope that makes sense).

I have a 12 position rotary switch which I use for: Off, SBY, ON, ALT, TEST.

What do I need to change in Rob's (it's probably your code) code to achieve this.

Oh, another thing, I have a single LED as an on indicator.

Appreciate your help once again.

David

Here's Rob's code

case FS_TRANSPONDERSETTING:
Expdr = BCD2Int(val);
FsbusWrite (C_DXPNDR, Expdr);
break;
case C_RXPNDRL:
if (val > 0)
{
Expdr += 1000;
if ((Expdr % 10000) > 7777)
Expdr -= 8000;
}
else
{
Expdr += 100;
if ((Expdr % 1000) > 777)
Expdr -= 800;
}
FsbusWrite(C_DXPNDR, Expdr);
x = Int2BCD(Expdr);
FsWrite(FS_TRANSPONDERSETTING, x);
break;
case C_RXPNDRR:
if (val > 0)
{
Expdr += 10;
if ((Expdr % 100) > 77)
Expdr -= 80;
}
else
{
Expdr += 1;
if ((Expdr % 10) > 7)
Expdr -= 8;
}
FsbusWrite(C_DXPNDR, Expdr);
x = Int2BCD(Expdr);
FsWrite(FS_TRANSPONDERSETTING, x);
break;
case C_SXPNDRIDENT://this would be off?
break;
case C_SXPNDRCTRL1://this would be sby?
break;
case C_SXPNDRCTRL2://this would be on?
break;
case C_SXPNDRCTRL3://this would be alt?
break;
case C_SXPNDRCTRL4://this would be test?
break;
case C_SXPNDRCTRL5:
break;

I did find this

65CB 1 BYTE XPDR_XpndrSelector_2; false: 1 true: 265CC 1 BYTE XPDR_AltSourceSel_2 false: 1 true: 2
65CD 1 BYTE XPDR_ModeSel 0: STBY
1: ALT RPTG OFF
...
4: TA/RA
65CE 1 BYTE XPDR_annunFAIL Boolean

http://fsuipc.simflight.com/beta/Off...PMDG737NGX.pdf

[RobiD]

Been away from building for a long... long time. Great to see this thread still going and helping people out. Don't forget to share your work (if you wish to) so that it helps others.

Cheers,
David

[388TH_A]

im still stuck