[Libraries Required]
{PM Gen}Project Magenta General
{FS}Flight Simulator

[Source Code]
DeviceConnection("COM1", "FDT_Hardware")
Dim MyBoardSer001Board001 = NewSerial("Pot", 1, "COM1", "")
MyBoardSer001Board001.Pot[1].Active = 1
MyBoardSer001Board001.Pot[1].HasCenter = 0
MyBoardSer001Board001.Pot[1].Sensitivity = 97
MyBoardSer001Board001.Pot[2].Active = 1
MyBoardSer001Board001.Pot[2].HasCenter = 0
MyBoardSer001Board001.Pot[2].Sensitivity = 97
MyBoardSer001Board001.Pot[3].Active = 1
MyBoardSer001Board001.Pot[3].HasCenter = 0
MyBoardSer001Board001.Pot[3].Sensitivity = 97
MyBoardSer001Board001.Pot[4].Active = 1
MyBoardSer001Board001.Pot[4].HasCenter = 0
MyBoardSer001Board001.Pot[4].Sensitivity = 97
MyBoardSer001Board001.Pot[5].Active = 1
MyBoardSer001Board001.Pot[5].HasCenter = 0
MyBoardSer001Board001.Pot[5].Sensitivity = 97
MyBoardSer001Board001.Pot[6].Active = 1
MyBoardSer001Board001.Pot[6].HasCenter = 0
MyBoardSer001Board001.Pot[6].Sensitivity = 97
MyBoardSer001Board001.Pot[7].Active = 1
MyBoardSer001Board001.Pot[7].Invert = 1
MyBoardSer001Board001.Pot[7].HasCenter = 0
MyBoardSer001Board001.Pot[8].Active = 1
MyBoardSer001Board001.Pot[8].Invert = 1
MyBoardSer001Board001.Pot[8].HasCenter = 0
MyBoardSer001Board001.Pot[9].Active = 1
MyBoardSer001Board001.Pot[9].Center = 481
MyBoardSer001Board001.Pot[9].CalibrationMax = 1022
MyBoardSer001Board001.Pot[10].Active = 1
MyBoardSer001Board001.Pot[10].Invert = 1
MyBoardSer001Board001.Pot[11].Active = 1
SIMBoards.OnLoop = "MyLoop"
SIMBoards.OnFinalize = "MyFinalize"
Include("FS_IMPORTS.txt")
Include("PM_IMPORTS.txt")
Dim fs = new ActiveXObject("SBMSFS.FSUIPC")
MyBoardSer001Board001.Pot[11].OnStateChange = "fs.QueueStateData(0x0BBA, 2, CInt(((This.Element.ValuePC/100)*32767)-16383))"
MyBoardSer001Board001.Pot[10].OnStateChange = "fs.QueueStateData(0x0BBA, 2, CInt(((This.Element.ValuePC/100)*32767)-16383))"
MyBoardSer001Board001.Pot[9].OnStateChange = "fs.QueueStateData(0x0BBA, 2, CInt(((This.Element.ValuePC/100)*32767)-16383))"
MyBoardSer001Board001.Pot[8].OnStateChange = "fs.QueueStateData(0x0BC6, 2, CInt((This.Element.ValuePC/100)*16383))"
MyBoardSer001Board001.Pot[7].OnStateChange = "fs.QueueStateData(0x0BC4, 2, CInt((This.Element.ValuePC/100)*16383))"
MyBoardSer001Board001.Pot[6].OnStateChange = "fs.QueueStateData(0x55F2, 1, This.Element.ValuePC)"
MyBoardSer001Board001.Pot[5].OnStateChange = "fs.QueueStateData(0x55F3, 1, This.Element.ValuePC)"
MyBoardSer001Board001.Pot[4].OnStateChange = "fs.QueueStateData(0x55F4, 1, This.Element.ValuePC)"
MyBoardSer001Board001.Pot[2].OnStateChange = "fs.QueueStateData(0x55F1, 1, This.Element.ValuePC)"
MyBoardSer001Board001.Pot[1].OnStateChange = "fs.QueueStateData(0x55F0, 1, This.Element.ValuePC)"
MyBoardSer001Board001.Pot[3].OnStateChange = "fs.QueueStateData(0x55F5, 1, This.Element.ValuePC)"
fs.Init
SIMBoards.Brightness[0].Level[0].Value = 255
SIMBoards.WaitForConnect
sub MyFinalize
  fs.Finalize
end sub
sub MyLoop
  fs.BeginRequest
  PM_MustReads
  fs.SendRequest
  PM_MustReads_DecodeNow
__Brightnesses
end sub
























sub __Brightnesses
SIMBoards.BrightnessesAnalyse
end sub