VERSION 5.00 Object = "{A32A88B3-817C-11D1-A762-00AA0044064C}#1.0#0"; "mscecomdlg.dll" Object = "{481BA4A3-56F2-11D1-A1AB-00C04FA87A04}#1.0#0"; "MSCECOMM.DLL" Object = "{25C953A7-5464-11D1-A714-00AA0044064C}#1.0#0"; "MSCEFILE.DLL" Object = "{F7DEA2C9-BA8F-446E-A292-B4840F3BD661}#1.0#0"; "mscemenubar.dll" Begin VB.Form frmConfig Appearance = 0 'Flat BackColor = &H80000005& Caption = "DPP Configuration" ClientHeight = 3510 ClientLeft = 20025 ClientTop = 1710 ClientWidth = 3525 ForeColor = &H80000008& LockControls = -1 'True ScaleHeight = 14850 ScaleWidth = 19080 ShowOK = -1 'True Begin VBCE.Frame fraMCA Height = 3495 Left = 3600 TabIndex = 0 Top = 0 Width = 3495 _cx = 6174 _cy = 6174 BackColor = -2147483643 BorderStyle = 1 Caption = "MCA" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.Frame fraBufferSelect Height = 975 Left = 120 TabIndex = 7 Top = 1080 Width = 1455 _cx = 2000 _cy = 2000 BackColor = -2147483643 BorderStyle = 1 Caption = "Buffer Select" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.OptionButton btnBufferSelA Height = 195 Left = 120 TabIndex = 10 Top = 240 Width = 975 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "Buffer A" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End Begin VBCE.OptionButton btnBufferSelB Height = 195 Left = 120 TabIndex = 9 Top = 480 Width = 1095 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "Buffer B" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End Begin VBCE.OptionButton btnBufferSelHardware Height = 195 Left = 120 TabIndex = 8 Top = 720 Width = 1215 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "HW Select" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End End Begin VBCE.Frame fraMCAChannels Height = 735 Left = 120 TabIndex = 11 Top = 240 Width = 3255 _cx = 5741 _cy = 1296 BackColor = -2147483643 BorderStyle = 1 Caption = "MCA" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.OptionButton btnMCA8192 Height = 195 Left = 240 TabIndex = 17 Top = 240 Width = 975 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "8192 Ch" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End Begin VBCE.OptionButton btnMCA256 Height = 195 Left = 2160 TabIndex = 16 Top = 480 Width = 975 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "256 Ch" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End Begin VBCE.OptionButton btnMCA512 Height = 195 Left = 2160 TabIndex = 15 Top = 240 Width = 975 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "512 Ch" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End Begin VBCE.OptionButton btnMCA1024 Height = 195 Left = 1200 TabIndex = 14 Top = 480 Width = 975 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "1024 Ch" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End Begin VBCE.OptionButton btnMCA2048 Height = 195 Left = 1200 TabIndex = 13 Top = 240 Width = 975 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "2048 Ch" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End Begin VBCE.OptionButton btnMCA4096 Height = 195 Left = 240 TabIndex = 12 Top = 480 Width = 975 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "4096 Ch" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End End Begin VBCE.Frame fraGateInput Height = 975 Left = 1920 TabIndex = 89 Top = 1080 Width = 1455 _cx = 2000 _cy = 2000 BackColor = -2147483643 BorderStyle = 1 Caption = "Gate Input" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.OptionButton btnGateOff Height = 195 Left = 120 TabIndex = 92 Top = 240 Width = 1095 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "Off" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End Begin VBCE.OptionButton btnGateHigh Height = 195 Left = 120 TabIndex = 91 Top = 480 Width = 1215 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "Active High" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End Begin VBCE.OptionButton btnGateLow Height = 195 Left = 120 TabIndex = 90 Top = 720 Width = 1095 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "Active Low" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End End Begin VBCE.CommandButton cmdMCABack Height = 255 Left = 1920 TabIndex = 97 Top = 3120 Width = 735 _cx = 1296 _cy = 450 BackColor = 12632256 Caption = "< Back" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Style = 0 End Begin VBCE.CommandButton cmdMCANext Height = 255 Left = 2640 TabIndex = 96 Top = 3120 Width = 735 _cx = 1296 _cy = 450 BackColor = 12632256 Caption = "Next >" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Style = 0 End Begin VBCE.Label lblPresetTime Height = 255 Left = 240 TabIndex = 30 Top = 2880 Width = 1455 _cx = 2566 _cy = 450 AutoSize = 0 'False BackColor = -2147483643 BackStyle = 0 BorderStyle = 0 Caption = "Preset Time" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 UseMnemonic = -1 'True WordWrap = 0 'False End Begin VBCE.ComboBox cmbPresetTime Height = 300 Left = 240 TabIndex = 29 Top = 3120 Width = 1455 List = "frmConfig.frx":0000 ItemData = "frmConfig.frx":0028 _cx = 2566 _cy = 529 BackColor = -2147483643 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Text = "cmbPresetTime" IntegralHeight = -1 'True Locked = 0 'False Sorted = 0 'False Style = 0 End Begin VBCE.Label Label2 Height = 255 Left = 240 TabIndex = 23 Top = 2160 Width = 1455 _cx = 2500 _cy = 500 AutoSize = 0 'False BackColor = -2147483643 BackStyle = 0 BorderStyle = 0 Caption = "Slow Threshold" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 UseMnemonic = -1 'True WordWrap = 0 'False End Begin VBCE.Label lblSThreshold Height = 255 Left = 480 TabIndex = 22 Top = 2520 Width = 855 _cx = 2500 _cy = 500 AutoSize = 0 'False BackColor = -2147483643 BackStyle = 0 BorderStyle = 0 Caption = "lblThreshold" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 UseMnemonic = -1 'True WordWrap = 0 'False End Begin VBCE.Label Label3 Height = 255 Left = 1920 TabIndex = 21 Top = 2160 Width = 1335 _cx = 2500 _cy = 500 AutoSize = 0 'False BackColor = -2147483643 BackStyle = 0 BorderStyle = 0 Caption = "Fast Threshold" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 UseMnemonic = -1 'True WordWrap = 0 'False End Begin VBCE.Label lblFThreshold Height = 255 Left = 2160 TabIndex = 20 Top = 2520 Width = 735 _cx = 2500 _cy = 500 AutoSize = 0 'False BackColor = -2147483643 BackStyle = 0 BorderStyle = 0 Caption = "lblFThreshold" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 UseMnemonic = -1 'True WordWrap = 0 'False End Begin VBCE.VScrollBar udFThreshold Height = 495 Left = 3000 TabIndex = 19 Top = 2400 Width = 240 _cx = 344 _cy = 1746 Enabled = -1 'True LargeChange = 1 Max = 250 Min = 0 SmallChange = 1 Value = 0 End Begin VBCE.VScrollBar udSThreshold Height = 495 Left = 1320 TabIndex = 18 Top = 2400 Width = 240 _cx = 344 _cy = 1746 Enabled = -1 'True LargeChange = 1 Max = 250 Min = 0 SmallChange = 1 Value = 0 End End Begin VBCE.Frame fraHiddenItems Height = 3495 Left = 10800 TabIndex = 1 Top = 3600 Visible = 0 'False Width = 3495 _cx = 6174 _cy = 6174 BackColor = -2147483643 BorderStyle = 1 Caption = "Hidden Items" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin MenuBarLib.MenuBar ceMenuBar Left = 720 Top = 2160 _cx = 2143 _cy = 873 Enabled = -1 'True NewButton = -1 'True End Begin CECOMMCtl.Comm MSComm1 Left = 2520 Top = 2760 _cx = 1400 _cy = 1000 CommPort = 1 Settings = "57600,N,8,1" InputLen = 256 InputMode = 0 NullDiscard = 0 'False ParityReplace = "?" RThreshold = 256 SThreshold = 0 Handshaking = 0 DTREnable = 0 'False RTSEnable = 0 'False End Begin CEComDlgCtl.CommonDialog CommonDialog1 Left = 1320 Top = 2880 _cx = 847 _cy = 847 CancelError = 0 'False Color = 0 DefaultExt = "" DialogTitle = "" FileName = "" Filter = "" FilterIndex = 0 Flags = 0 HelpCommand = 0 HelpContext = "" HelpFile = "" InitDir = "\Program Files\Amptek" MaxFileSize = 256 FontBold = 0 'False FontItalic = 0 'False FontName = "" FontSize = 10 FontUnderline = 0 'False Max = 0 Min = 0 FontStrikethru = 0 'False End Begin FILECTLCtl.FileSystem FileSystem1 Left = 2160 Top = 1920 _cx = 2200 _cy = 1400 End Begin FILECTLCtl.File File1 Left = 720 Top = 2880 _cx = 1000 _cy = 1000 End Begin VBCE.Label lblFormSize Height = 255 Left = 840 TabIndex = 116 Top = 360 Width = 1935 _cx = 3413 _cy = 450 AutoSize = 0 'False BackColor = -2147483643 BackStyle = 1 BorderStyle = 0 Caption = "This form is 3600x4020" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 UseMnemonic = -1 'True WordWrap = 0 'False End Begin VBCE.Timer Timer1 Left = 1920 Top = 2880 _cx = 847 _cy = 847 Enabled = 0 'False Interval = 20000 End End Begin VBCE.Frame fraMisc Height = 3495 Left = 3600 TabIndex = 2 Top = 3600 Width = 3495 _cx = 6174 _cy = 6174 BackColor = -2147483643 BorderStyle = 1 Caption = "Misc" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.Frame fraAux Height = 615 Left = 720 TabIndex = 77 Top = 2280 Width = 2175 _cx = 3836 _cy = 1085 BackColor = -2147483643 BorderStyle = 1 Caption = "Aux" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.VScrollBar udAuxOut Height = 495 Left = 1800 TabIndex = 79 Top = 120 Width = 255 _cx = 344 _cy = 1746 Enabled = -1 'True LargeChange = 1 Max = 7 Min = 0 SmallChange = 1 Value = 0 End Begin VBCE.TextBox txtAux Height = 285 Left = 120 TabIndex = 78 Top = 240 Width = 1695 _cx = 2990 _cy = 503 BackColor = -2147483643 BorderStyle = 1 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Text = "Text3" Alignment = 0 HideSelection = -1 'True Locked = -1 'True MaxLength = 0 MultiLine = 0 'False PasswordChar = "" ScrollBars = 0 End End Begin VBCE.Frame fraOutputOffset Height = 735 Left = 600 TabIndex = 80 Top = 1440 Width = 2415 _cx = 4260 _cy = 1296 BackColor = -2147483643 BorderStyle = 1 Caption = "Output Offset" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.VScrollBar udOutputOffset Height = 495 Left = 1320 TabIndex = 82 Top = 180 Width = 240 _cx = 344 _cy = 1746 Enabled = -1 'True LargeChange = 1 Max = 125 Min = 0 SmallChange = 1 Value = 0 End Begin VBCE.Label lblOutputOffset Height = 255 Left = 600 TabIndex = 81 Top = 300 Width = 735 _cx = 2500 _cy = 500 AutoSize = 0 'False BackColor = -2147483643 BackStyle = 1 BorderStyle = 0 Caption = "lblOffset" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 UseMnemonic = -1 'True WordWrap = 0 'False End End Begin VBCE.Frame fraDAC Height = 1095 Left = 600 TabIndex = 83 Top = 240 Width = 2415 _cx = 2000 _cy = 2000 BackColor = -2147483643 BorderStyle = 1 Caption = "DAC" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.OptionButton btnDAC5 Height = 255 Left = 120 TabIndex = 88 Top = 720 Width = 855 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "Off" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End Begin VBCE.OptionButton btnDAC4 Height = 255 Left = 1080 TabIndex = 87 Top = 480 Width = 1215 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "Test Pulser" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End Begin VBCE.OptionButton btnDAC3 Height = 255 Left = 1080 TabIndex = 86 Top = 240 Width = 1095 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "Decimated" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End Begin VBCE.OptionButton btnDAC2 Height = 255 Left = 120 TabIndex = 85 Top = 480 Width = 855 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "Shaped" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End Begin VBCE.OptionButton btnDAC1 Height = 255 Left = 120 TabIndex = 84 Top = 240 Width = 855 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "Fast Ch" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End End Begin VBCE.CommandButton cmdMiscBack Height = 255 Left = 1920 TabIndex = 105 Top = 3120 Width = 735 _cx = 1296 _cy = 450 BackColor = 12632256 Caption = "< Back" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Style = 0 End Begin VBCE.CommandButton cmdMiscNext Height = 255 Left = 2640 TabIndex = 104 Top = 3120 Width = 735 _cx = 1296 _cy = 450 BackColor = 12632256 Caption = "Next >" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Style = 0 End End Begin VBCE.Frame fraGainPZ Height = 3495 Left = 10800 TabIndex = 3 Top = 0 Width = 3495 _cx = 6174 _cy = 6174 BackColor = -2147483643 BorderStyle = 1 Caption = "Gain && Pole Zero" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.Frame fraReset Height = 855 Left = 1920 TabIndex = 50 Top = 2040 Width = 1455 _cx = 2566 _cy = 1508 BackColor = -2147483643 BorderStyle = 1 Caption = "Reset" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.Label lblReset Height = 255 Left = 120 TabIndex = 52 Top = 360 Width = 615 _cx = 2500 _cy = 500 AutoSize = 0 'False BackColor = -2147483643 BackStyle = 1 BorderStyle = 0 Caption = "lblReset" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 UseMnemonic = -1 'True WordWrap = 0 'False End Begin VBCE.VScrollBar udReset Height = 735 Left = 1080 TabIndex = 51 Top = 120 Width = 240 _cx = 344 _cy = 1746 Enabled = -1 'True LargeChange = 1 Max = 8 Min = 0 SmallChange = 1 Value = 0 End End Begin VBCE.Frame fraInputOffset Height = 735 Left = 1920 TabIndex = 54 Top = 1200 Width = 1455 _cx = 2566 _cy = 1296 BackColor = -2147483643 BorderStyle = 1 Caption = "Input Offset" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.VScrollBar udInputOffset Height = 495 Left = 1080 TabIndex = 56 Top = 180 Width = 255 _cx = 344 _cy = 1746 Enabled = -1 'True LargeChange = 1 Max = 4000 Min = 0 SmallChange = 1 Value = 0 End Begin VBCE.TextBox txtInputOffset Height = 285 Left = 120 TabIndex = 55 Top = 300 Width = 975 _cx = 2500 _cy = 500 BackColor = -2147483643 BorderStyle = 1 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Text = "Text2" Alignment = 0 HideSelection = -1 'True Locked = 0 'False MaxLength = 0 MultiLine = 0 'False PasswordChar = "" ScrollBars = 0 End End Begin VBCE.Frame fraPZ Height = 735 Left = 120 TabIndex = 57 Top = 1200 Width = 1695 _cx = 2990 _cy = 1296 BackColor = -2147483643 BorderStyle = 1 Caption = "Pole-Zero" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.VScrollBar udPZ Height = 495 Left = 1320 TabIndex = 59 Top = 180 Width = 255 _cx = 450 _cy = 873 Enabled = -1 'True LargeChange = 1 Max = 250 Min = 0 SmallChange = 1 Value = 0 End Begin VBCE.TextBox txtPZ Height = 285 Left = 480 TabIndex = 58 Top = 300 Width = 855 _cx = 1508 _cy = 503 BackColor = -2147483643 BorderStyle = 1 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Text = "Text2" Alignment = 0 HideSelection = -1 'True Locked = 0 'False MaxLength = 0 MultiLine = 0 'False PasswordChar = "" ScrollBars = 0 End End Begin VBCE.Frame fraGainCtrls Height = 855 Left = 120 TabIndex = 60 Top = 240 Width = 3255 _cx = 5741 _cy = 1508 BackColor = -2147483643 BorderStyle = 1 Caption = "Gain" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.VScrollBar udCoarseGain Height = 495 Left = 1320 TabIndex = 64 Top = 240 Width = 255 _cx = 344 _cy = 1746 Enabled = -1 'True LargeChange = 1 Max = 27 Min = 0 SmallChange = 1 Value = 0 End Begin VBCE.VScrollBar udFineGain Height = 495 Left = 2880 TabIndex = 63 Top = 240 Width = 255 _cx = 450 _cy = 873 Enabled = -1 'True LargeChange = 1 Max = 10240 Min = 6144 SmallChange = 1 Value = 8192 End Begin VBCE.TextBox txtFineGain Height = 285 Left = 1920 TabIndex = 62 Top = 330 Width = 975 _cx = 1720 _cy = 503 BackColor = -2147483643 BorderStyle = 1 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Text = "Text1" Alignment = 0 HideSelection = -1 'True Locked = 0 'False MaxLength = 0 MultiLine = 0 'False PasswordChar = "" ScrollBars = 0 End Begin VBCE.TextBox txtCoarseGain Height = 285 Left = 480 TabIndex = 61 Top = 330 Width = 855 _cx = 2500 _cy = 500 BackColor = -2147483643 BorderStyle = 1 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Text = "Text1" Alignment = 0 HideSelection = -1 'True Locked = -1 'True MaxLength = 0 MultiLine = 0 'False PasswordChar = "" ScrollBars = 0 End End Begin VBCE.CommandButton cmdGainPZBack Height = 255 Left = 1920 TabIndex = 101 Top = 3120 Width = 735 _cx = 1296 _cy = 450 BackColor = 12632256 Caption = "< Back" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Style = 0 End Begin VBCE.CommandButton cmdGainPZNext Height = 255 Left = 2640 TabIndex = 100 Top = 3120 Width = 735 _cx = 1296 _cy = 450 BackColor = 12632256 Caption = "Next >" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Style = 0 End Begin VBCE.CheckBox chkInversion Height = 315 Left = 120 TabIndex = 53 Top = 2400 Width = 1815 _cx = 3201 _cy = 556 BackColor = -2147483643 Caption = "Invert Input Polarity" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 End End Begin VBCE.Frame fraPower Height = 3495 Left = 0 TabIndex = 4 Top = 3600 Width = 3495 _cx = 6174 _cy = 6174 BackColor = -2147483643 BorderStyle = 1 Caption = "Power" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.Frame fraPwrControl Height = 1935 Left = 840 TabIndex = 65 Top = 960 Width = 1815 _cx = 3201 _cy = 3413 BackColor = -2147483643 BorderStyle = 1 Caption = "Power Control" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.VScrollBar udTEC Height = 495 Left = 720 TabIndex = 73 Top = 1440 Width = 255 _cx = 344 _cy = 1746 Enabled = -1 'True LargeChange = 1 Max = 4095 Min = 0 SmallChange = 1 Value = 3000 End Begin VBCE.VScrollBar udHV Height = 495 Left = 1560 TabIndex = 72 Top = 1440 Width = 255 _cx = 344 _cy = 1746 Enabled = -1 'True LargeChange = 1 Max = 4000 Min = 0 SmallChange = 1 Value = 0 End Begin VBCE.CheckBox chkXR100 Height = 315 Left = 120 TabIndex = 71 Top = 360 Width = 855 _cx = 1508 _cy = 556 BackColor = -2147483643 Caption = "XR100" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 1 End Begin VBCE.CheckBox chkTEC Height = 315 Left = 1080 TabIndex = 70 Top = 360 Width = 615 _cx = 1085 _cy = 556 BackColor = -2147483643 Caption = "TEC" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 1 End Begin VBCE.TextBox txtHV Height = 285 Left = 960 TabIndex = 69 Top = 1560 Width = 615 _cx = 2500 _cy = 500 BackColor = -2147483643 BorderStyle = 1 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 6.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Text = "Text3" Alignment = 0 HideSelection = -1 'True Locked = 0 'False MaxLength = 0 MultiLine = 0 'False PasswordChar = "" ScrollBars = 0 End Begin VBCE.TextBox txtTEC Height = 285 Left = 120 TabIndex = 68 Top = 1560 Width = 615 _cx = 2500 _cy = 500 BackColor = -2147483643 BorderStyle = 1 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 6.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Text = "Text2" Alignment = 0 HideSelection = -1 'True Locked = 0 'False MaxLength = 0 MultiLine = 0 'False PasswordChar = "" ScrollBars = 0 End Begin VBCE.CheckBox chk8_5SEL Height = 315 Left = 120 TabIndex = 67 Top = 1080 Width = 1335 _cx = 2355 _cy = 556 BackColor = -2147483643 Caption = "8.5/5V SEL" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 End Begin VBCE.CheckBox chk9V Height = 315 Left = 1080 TabIndex = 66 Top = 720 Width = 495 _cx = 873 _cy = 556 BackColor = -2147483643 Caption = "9V" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 End End Begin VBCE.Frame fraLEDBuzz Height = 615 Left = 840 TabIndex = 74 Top = 240 Width = 1815 _cx = 2000 _cy = 2000 BackColor = -2147483643 BorderStyle = 1 Caption = "Misc" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.CheckBox chkBuzzer Height = 315 Left = 840 TabIndex = 76 Top = 240 Width = 855 _cx = 1508 _cy = 556 BackColor = -2147483643 Caption = "Buzzer" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 End Begin VBCE.CheckBox chkLED Height = 315 Left = 120 TabIndex = 75 Top = 240 Width = 615 _cx = 1085 _cy = 556 BackColor = -2147483643 Caption = "LED" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 End End Begin VBCE.CommandButton cmdPowerBack Height = 255 Left = 1920 TabIndex = 103 Top = 3120 Width = 735 _cx = 1296 _cy = 450 BackColor = 12632256 Caption = "< Back" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Style = 0 End Begin VBCE.CommandButton cmdPowerNext Height = 255 Left = 2640 TabIndex = 102 Top = 3120 Width = 735 _cx = 1296 _cy = 450 BackColor = 12632256 Caption = "Next >" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Style = 0 End End Begin VBCE.Frame fraConfigurationFile Height = 3495 Left = 0 TabIndex = 5 Top = 0 Width = 3495 _cx = 6174 _cy = 6174 BackColor = -2147483643 BorderStyle = 1 Caption = "Configuration File" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.Frame fraCfgFunction Height = 975 Left = 120 TabIndex = 108 Top = 960 Visible = 0 'False Width = 3255 _cx = 5741 _cy = 1720 BackColor = -2147483643 BorderStyle = 1 Caption = "2. Select Configuration Function" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.CommandButton cmdCreateNewCfg Height = 255 Left = 120 TabIndex = 112 Top = 600 Width = 3015 _cx = 5318 _cy = 450 BackColor = 12632256 Caption = "Create New Configuration" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Style = 0 End Begin VBCE.CommandButton btnRecallConfig Height = 255 Left = 120 TabIndex = 109 Top = 240 Width = 3015 _cx = 5318 _cy = 450 BackColor = 12632256 Caption = "Modify Existing Configuration" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Style = 0 End End Begin VBCE.Frame fraDppType Height = 495 Left = 120 TabIndex = 24 Top = 240 Width = 1575 _cx = 2000 _cy = 2000 BackColor = -2147483643 BorderStyle = 1 Caption = "1. Select Dpp Type" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.OptionButton btnDP4 Height = 195 Left = 840 TabIndex = 26 Top = 240 Width = 615 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "DP4" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End Begin VBCE.OptionButton btnPX4 Height = 195 Left = 120 TabIndex = 25 Top = 240 Width = 615 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "PX4" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End End Begin VBCE.Frame fraPort Height = 615 Left = 120 TabIndex = 27 Top = 2040 Width = 1215 _cx = 2000 _cy = 2000 BackColor = -2147483643 BorderStyle = 1 Caption = "Port" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.Label lblPort Height = 255 Left = 120 TabIndex = 118 Top = 240 Width = 735 _cx = 1296 _cy = 450 AutoSize = 0 'False BackColor = -2147483643 BackStyle = 0 BorderStyle = 0 Caption = "COM1" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 2 UseMnemonic = -1 'True WordWrap = 0 'False End Begin VBCE.VScrollBar udPort Height = 375 Left = 900 TabIndex = 28 Top = 180 Width = 255 _cx = 344 _cy = 1746 Enabled = -1 'True LargeChange = 1 Max = 8 Min = 1 SmallChange = 1 Value = 1 End End Begin VBCE.Label lblUserNote Height = 855 Left = 1440 TabIndex = 117 Top = 2160 Width = 1935 _cx = 3413 _cy = 1508 AutoSize = 0 'False BackColor = -2147483643 BackStyle = 1 BorderStyle = 0 Caption = "All ""UpDown"" Controls DOWN=INCREASE UP=DECREASE" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 9.75 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = 8421504 Alignment = 2 UseMnemonic = -1 'True WordWrap = 0 'False End Begin VBCE.Label lblNoteDppType2 Height = 495 Left = 1800 TabIndex = 111 Top = 480 Width = 1575 _cx = 2778 _cy = 873 AutoSize = 0 'False BackColor = -2147483643 BackStyle = 1 BorderStyle = 0 Caption = "Select DP4-For ALL OTHER DEVICES" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = 12583104 Alignment = 0 UseMnemonic = -1 'True WordWrap = 0 'False End Begin VBCE.Label lblNoteDppType1 Height = 255 Left = 1800 TabIndex = 110 Top = 240 Width = 1575 _cx = 2778 _cy = 450 AutoSize = 0 'False BackColor = -2147483643 BackStyle = 1 BorderStyle = 0 Caption = "Select PX4-PX4 ONLY" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = 16711680 Alignment = 0 UseMnemonic = -1 'True WordWrap = 0 'False End Begin VBCE.CommandButton cmdCfgFileFraNext Height = 255 Left = 2640 TabIndex = 95 Top = 3120 Visible = 0 'False Width = 735 _cx = 1296 _cy = 450 BackColor = 12632256 Caption = "Next >" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Style = 0 End End Begin VBCE.Frame fraShaping Height = 3495 Left = 7200 TabIndex = 6 Top = 0 Width = 3495 _cx = 6174 _cy = 6174 BackColor = -2147483643 BorderStyle = 1 Caption = "Shaping" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.Frame fraAutoBaseline Height = 855 Left = 120 TabIndex = 31 Top = 2160 Width = 1095 _cx = 2000 _cy = 2000 BackColor = -2147483643 BorderStyle = 1 Caption = "AutoBaseline" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.OptionButton btnBaselineOff Height = 195 Left = 120 TabIndex = 33 Top = 480 Width = 735 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "Off" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End Begin VBCE.OptionButton btnBaselineOn Height = 195 Left = 120 TabIndex = 32 Top = 240 Width = 855 _cx = 1508 _cy = 344 BackColor = -2147483643 Caption = "Slow" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End End Begin VBCE.Frame RTDFrame Height = 855 Left = 120 TabIndex = 36 Top = 840 Width = 3255 _cx = 2000 _cy = 2000 BackColor = -2147483643 BorderStyle = 1 Caption = "Rise Time Discrimination" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.Label lblRTDFast Height = 255 Left = 960 TabIndex = 42 Top = 480 Width = 1935 _cx = 2500 _cy = 500 AutoSize = 0 'False BackColor = -2147483643 BackStyle = 0 BorderStyle = 0 Caption = "Label6" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 UseMnemonic = -1 'True WordWrap = 0 'False End Begin VBCE.Label lblRTDSlow Height = 255 Left = 960 TabIndex = 41 Top = 240 Width = 1935 _cx = 2500 _cy = 500 AutoSize = 0 'False BackColor = -2147483643 BackStyle = 0 BorderStyle = 0 Caption = "Label1" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 UseMnemonic = -1 'True WordWrap = 0 'False End Begin VBCE.VScrollBar udRTDSlow Height = 375 Left = 3000 TabIndex = 40 Top = 120 Width = 240 _cx = 344 _cy = 1746 Enabled = -1 'True LargeChange = 1 Max = 250 Min = 0 SmallChange = 1 Value = 0 End Begin VBCE.VScrollBar udRTDFast Height = 375 Left = 3000 TabIndex = 39 Top = 480 Width = 240 _cx = 344 _cy = 1746 Enabled = -1 'True LargeChange = 1 Max = 19 Min = 4 SmallChange = 1 Value = 4 End Begin VBCE.OptionButton btnRTDOff Height = 195 Left = 240 TabIndex = 38 Top = 480 Width = 735 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "Off" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End Begin VBCE.OptionButton btnRTDOn Height = 195 Left = 240 TabIndex = 37 Top = 240 Width = 735 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "On" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End End Begin VBCE.Frame fraPUR Height = 855 Left = 1320 TabIndex = 43 Top = 2160 Width = 855 _cx = 2000 _cy = 2000 BackColor = -2147483643 BorderStyle = 1 Caption = "PUR" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.OptionButton btnPURoff Height = 255 Left = 120 TabIndex = 45 Top = 480 Width = 615 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "Off" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End Begin VBCE.OptionButton btnPURon Height = 255 Left = 120 TabIndex = 44 Top = 240 Width = 615 _cx = 2143 _cy = 873 BackColor = -2147483643 Caption = "On" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 Value = 0 'False End End Begin VBCE.CommandButton cmdShapingBack Height = 255 Left = 1920 TabIndex = 99 Top = 3120 Width = 735 _cx = 1296 _cy = 450 BackColor = 12632256 Caption = "< Back" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Style = 0 End Begin VBCE.CommandButton cmdShapingNext Height = 255 Left = 2640 TabIndex = 98 Top = 3120 Width = 735 _cx = 1296 _cy = 450 BackColor = 12632256 Caption = "Next >" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Style = 0 End Begin VBCE.Label Label8 Height = 255 Left = 1920 TabIndex = 49 Top = 240 Width = 1455 _cx = 2500 _cy = 500 AutoSize = 0 'False BackColor = -2147483643 BackStyle = 0 BorderStyle = 0 Caption = "Top Width" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 UseMnemonic = -1 'True WordWrap = 0 'False End Begin VBCE.Label Label7 Height = 255 Left = 120 TabIndex = 48 Top = 240 Width = 1455 _cx = 2500 _cy = 500 AutoSize = 0 'False BackColor = -2147483643 BackStyle = 0 BorderStyle = 0 Caption = "Time to Peak" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 UseMnemonic = -1 'True WordWrap = 0 'False End Begin VBCE.ComboBox cmbTop Height = 300 Left = 1920 TabIndex = 47 Top = 480 Width = 1455 List = "frmConfig.frx":0050 ItemData = "frmConfig.frx":0078 _cx = 2566 _cy = 529 BackColor = -2147483643 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Text = "" IntegralHeight = -1 'True Locked = 0 'False Sorted = 0 'False Style = 2 End Begin VBCE.ComboBox cmbRise Height = 300 Left = 120 TabIndex = 46 Top = 480 Width = 1455 List = "frmConfig.frx":00A0 ItemData = "frmConfig.frx":00C8 _cx = 2566 _cy = 529 BackColor = -2147483643 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Text = "" IntegralHeight = -1 'True Locked = 0 'False Sorted = 0 'False Style = 2 End Begin VBCE.Label lblBLR Height = 255 Left = 480 TabIndex = 35 Top = 1920 Width = 2415 _cx = 4260 _cy = 450 AutoSize = 0 'False BackColor = 16777215 BackStyle = 0 BorderStyle = 0 Caption = "BLR SETTINGS" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Alignment = 0 UseMnemonic = -1 'True WordWrap = 0 'False End Begin VBCE.VScrollBar udBLR Height = 495 Left = 2880 TabIndex = 34 Top = 1800 Width = 240 _cx = 423 _cy = 873 Enabled = -1 'True LargeChange = 1 Max = 124 Min = 63 SmallChange = 1 Value = 63 End End Begin VBCE.Frame fraReviewConfig Height = 3495 Left = 7200 TabIndex = 93 Top = 3600 Width = 3495 _cx = 6174 _cy = 6174 BackColor = -2147483643 BorderStyle = 1 Caption = "Review Configuration" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 ClipControls = -1 'True Begin VBCE.CommandButton cmdClearCfgDisplay Height = 255 Left = 1920 TabIndex = 119 Top = 240 Width = 1455 _cx = 2566 _cy = 450 BackColor = 12632256 Caption = "Clear Cfg Display" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Style = 0 End Begin VBCE.CommandButton cmdShowCfg Height = 255 Left = 120 TabIndex = 115 Top = 240 Width = 1695 _cx = 2990 _cy = 450 BackColor = 12632256 Caption = "Show Configuration" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Style = 0 End Begin VBCE.TextBox txtDeviceConfiguration Height = 2055 Left = 120 TabIndex = 114 Top = 600 Width = 3255 _cx = 5741 _cy = 3625 BackColor = -2147483643 BorderStyle = 1 Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = -2147483640 Text = "Device Configuration" Alignment = 0 HideSelection = -1 'True Locked = 0 'False MaxLength = 0 MultiLine = -1 'True PasswordChar = "" ScrollBars = 2 End Begin VBCE.CommandButton Command2 Height = 255 Left = 1800 TabIndex = 113 Top = 2760 Width = 1575 _cx = 2778 _cy = 450 BackColor = 12632256 Caption = "Quit Without Saving" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Style = 0 End Begin VBCE.CommandButton cmdReviewCfgBack Height = 255 Left = 1920 TabIndex = 107 Top = 3120 Width = 735 _cx = 1296 _cy = 450 BackColor = 12632256 Caption = "< Back" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Style = 0 End Begin VBCE.CommandButton cmdReviewCfgFinish Height = 255 Left = 2640 TabIndex = 106 Top = 3120 Width = 735 _cx = 1296 _cy = 450 BackColor = 12632256 Caption = "Finish" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Style = 0 End Begin VBCE.CommandButton btnSaveConfig Height = 255 Left = 120 TabIndex = 94 Top = 2760 Width = 1575 _cx = 2778 _cy = 450 BackColor = 12632256 Caption = "Save Configuration" Enabled = -1 'True BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Style = 0 End End End Attribute VB_Name = "frmConfig" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private isPX4 As Boolean Private isLoaded As Boolean Private Sub btnMCA256_Click() MCA = 4 MCAEnable = True End Sub Private Sub btnMCA512_Click() MCA = 3 MCAEnable = True End Sub Private Sub btnMCA1024_Click() MCA = 2 MCAEnable = True End Sub Private Sub btnMCA2048_Click() MCA = 1 MCAEnable = True End Sub Private Sub btnMCA4096_Click() MCA = 0 MCAEnable = True End Sub Private Sub btnMCA8192_Click() MCA = 5 MCAEnable = True End Sub Private Sub btnBaselineOff_Click() BaselineOn = False End Sub Private Sub btnBaselineOn_Click() BaselineOn = True End Sub Private Sub btnBufferSelA_Click() BufferSelect = BufferSelectA End Sub Private Sub btnBufferSelB_Click() BufferSelect = BufferSelectB End Sub Private Sub btnBufferSelHardware_Click() BufferSelect = BufferSelectHW End Sub Private Sub btnDAC1_Click() DAC = 0 DAC_Off = False End Sub Private Sub btnDAC2_Click() DAC = 1 DAC_Off = False End Sub Private Sub btnDAC3_Click() DAC = 2 DAC_Off = False End Sub Private Sub btnDAC4_Click() DAC = 3 DAC_Off = False End Sub Private Sub btnDAC5_Click() If ((DAC > 3) Or (DAC < 0)) Then DAC = 1 DAC_Off = True End Sub Private Sub btnRecallConfig_Click() Dim varCfg As Variant Dim strFilename As String 'strFilename = "\My Documents\Amptek\DPP.cfg" ' CommonDialog1.FileName = "\My Documents\Amptek\DPP.cfg" ' strFilename = GetFileNameCFG(CommonDialog1, True) strFilename = OpenFileDlg("*.cfg", "*.cfg", False) If (Len(strFilename) > 0) Then varCfg = GetCfgFile(File1, strFilename) RecallConfig varCfg RecallConfigSetControls cmdCfgFileFraNext.Visible = True Else MsgBox "No file selected.", vbCritical, "Select Cfg" End If End Sub Private Sub btnSaveConfig_Click() Dim varCfg As Variant Dim strFilename As String 'strFilename = "\My Documents\Amptek\DPP.cfg" ' CommonDialog1.InitDir = "/Program Files/Amptek" ' CommonDialog1.FileName = "DPP.cfg" ' strFilename = GetFileNameCFG(CommonDialog1, False) strFilename = OpenFileDlg("*.cfg", "*.cfg", True) If (Len(strFilename) > 0) Then varCfg = SaveConfigToString() WriteFile strFilename, varCfg, File1 cmdReviewCfgFinish.Visible = True Else MsgBox "No file saved.", vbCritical, "Save Cfg" End If End Sub Private Sub cmdCfgFileFraNext_Click() SelectFrame 2 End Sub Private Sub cmdClearCfgDisplay_Click() txtDeviceConfiguration = "" End Sub Private Sub cmdCreateNewCfg_Click() RecallConfigSetControls cmdCfgFileFraNext.Visible = True End Sub Private Sub StartNewCfg() isLoaded = False SelectFrame 1 fraCfgFunction.Visible = False cmdCfgFileFraNext.Visible = False cmdReviewCfgFinish.Visible = False End Sub Private Sub cmdGainPZNext_Click() SelectFrame 5 End Sub Private Sub cmdGainPZBack_Click() SelectFrame 3 End Sub Private Sub cmdMCABack_Click() SelectFrame 1 End Sub Private Sub cmdMCANext_Click() SelectFrame 3 End Sub Private Sub cmdMiscBack_Click() SelectFrame 5 End Sub Private Sub cmdMiscNext_Click() SelectFrame 7 End Sub Private Sub cmdPowerBack_Click() SelectFrame 4 End Sub Private Sub cmdPowerNext_Click() SelectFrame 6 End Sub Private Sub cmdReviewCfgBack_Click() SelectFrame 6 End Sub Private Sub cmdReviewCfgFinish_Click() cmdClearCfgDisplay_Click StartNewCfg End Sub Private Sub cmdShapingBack_Click() SelectFrame 2 End Sub Private Sub cmdShapingNext_Click() SelectFrame 4 End Sub Private Sub cmdShowCfg_Click() txtDeviceConfiguration = ShowConfigSettingStrings() End Sub Private Sub Command2_Click() cmdReviewCfgFinish.Visible = True End Sub Private Sub Form_Load() Dim idxAve As Long Dim idxX As Long isLoaded = False InitFrames CreateMenus ClearConfig btnPURon.Value = True udReset.Value = 2 ' default to reset lockout=3.28mS lblReset.Caption = "3.28mS" udSThreshold.Value = 4 ' default threhold=4 udFThreshold.Value = 100 ' default fast threshold=100 FineGain = 8192 InputOffset = 2000 cmbRise.Clear For idxX = 1 To 8 cmbRise.AddItem CStr(idxX * 0.8) & "uS" Next idxX For idxAve = 1 To 4 For idxX = 5 To 8 cmbRise.AddItem CStr(idxX * 0.8 * (2# ^ CSng(idxAve))) & "uS" Next idxX Next idxAve cmbRise.ListIndex = 0 cmbRise_Click Call btnRTDOff_Click ' default RTD off btnRTDOff.Enabled = False btnRTDOn.Enabled = False Call udRTDSlow_Change ' update label udRTDFast.Value = 10 ' default RTD fast HWHM=10 Call udRTDFast_Change udRTDSlow.Enabled = False udRTDFast.Enabled = False btnGateOff.Value = True cmbPresetTime.Clear cmbPresetTime.AddItem ("None") cmbPresetTime.AddItem ("1 sec") cmbPresetTime.AddItem ("2 sec") cmbPresetTime.AddItem ("5 sec") cmbPresetTime.AddItem ("10 sec") cmbPresetTime.AddItem ("30 sec") cmbPresetTime.AddItem ("1 min") cmbPresetTime.AddItem ("2 min") cmbPresetTime.AddItem ("5 min") cmbPresetTime.AddItem ("10 min") cmbPresetTime.AddItem ("30 min") cmbPresetTime.AddItem ("1 hr") cmbPresetTime.AddItem ("2 hr") cmbPresetTime.AddItem ("5 hr") cmbPresetTime.AddItem ("10 hr") cmbPresetTime.AddItem ("24 hr") cmbPresetTime.ListIndex = 0 Call udHV_Change Call udTEC_Change Call udInputOffset_Change Call udPZ_Change Call udAuxOut_Change StartNewCfg End Sub Private Sub btnPX4_Click() If isLoaded Then fraCfgFunction.Visible = True Else isLoaded = True End If udCoarseGain.Max = 27 udTEC.Enabled = True txtTEC.Enabled = True udHV.Enabled = True txtHV.Enabled = True chk8_5SEL.Enabled = True chk9V.Enabled = True chkInversion.Enabled = True udInputOffset.Enabled = True txtInputOffset.Enabled = True udPZ.Enabled = True txtPZ.Enabled = True fraPwrControl.Visible = True fraPZ.Visible = True fraInputOffset.Visible = True fraLEDBuzz.Visible = True chkInversion.Visible = True fraAux.Caption = "Aux" isPX4 = True DppDevice = DPPPX4 End Sub Private Sub btnDP4_Click() If isLoaded Then fraCfgFunction.Visible = True Else isLoaded = True End If udCoarseGain.Max = 3 udTEC.Enabled = False txtTEC.Enabled = False udHV.Enabled = False txtHV.Enabled = False chkTEC.Enabled = False chk8_5SEL.Enabled = False chk9V.Enabled = False chkInversion.Enabled = False udInputOffset.Enabled = False txtInputOffset.Enabled = False udPZ.Enabled = False txtPZ.Enabled = False fraPwrControl.Visible = False fraPZ.Visible = False fraInputOffset.Visible = False fraLEDBuzz.Visible = False chkInversion.Visible = False fraAux.Caption = "Testpoint .5" isPX4 = False DppDevice = DPPDP4 End Sub Private Sub Form_OKClick() App.End End Sub Private Sub txtCoarseGain_Change() End Sub Private Sub txtCoarseGain_Click() End Sub Private Sub udOutputOffset_Change() Dim idxDAC4 As Integer idxDAC4 = Abs(DAC = 3) 'test if is dac4 OutputOffset = udOutputOffset.Value Select Case idxDAC4 Case 0 lblOutputOffset = CStr(Int(((udOutputOffset.Value * 2 + ((udOutputOffset.Value * 2) > 127) * 256) * 1000 * 16 / 4096))) + "mV" Case 1 lblOutputOffset = FormatNumber(((udOutputOffset.Value * 2) * 125 * 16 / 4096), 1) & "mV" End Select End Sub Private Sub cmbRise_Click() Dim idxX As Long Dim strRise As String strRise = CStr(cmbRise.Text) SetRiseAndAvgFromString strRise cmbTop.Clear For idxX = 1 To 16 cmbTop.AddItem CStr(idxX * 0.1 * (2 ^ Avg)) + "uS" Next idxX cmbTop.ListIndex = 0 End Sub Private Sub cmbTop_click() FlatTop = CInt(Val(cmbTop.Text) / 0.1 / (2 ^ Avg) - 1) End Sub Private Sub btnPURoff_Click() PUREnable = False End Sub Private Sub btnPURon_Click() PUREnable = True End Sub Private Sub udReset_Change() Select Case udReset.Value Case 0 lblReset.Caption = "13.1mS" btnBaselineOn.Caption = "Slow" strBaselineOn = "Slow" Case 1 lblReset.Caption = "6.55mS" btnBaselineOn.Caption = "Slow" strBaselineOn = "Slow" Case 2 lblReset.Caption = "3.28mS" btnBaselineOn.Caption = "Slow" strBaselineOn = "Slow" Case 3 lblReset.Caption = "1.64mS" btnBaselineOn.Caption = "Slow" strBaselineOn = "Slow" Case 4 lblReset.Caption = "819uS" btnBaselineOn.Caption = "Fast" strBaselineOn = "Fast" Case 5 lblReset.Caption = "410uS" btnBaselineOn.Caption = "Fast" strBaselineOn = "Fast" Case 6 lblReset.Caption = "205uS" btnBaselineOn.Caption = "Fast" strBaselineOn = "Fast" Case 7 lblReset.Caption = "102uS" btnBaselineOn.Caption = "Fast" strBaselineOn = "Fast" Case 8 lblReset.Caption = "OFF" End Select End Sub Private Sub udSThreshold_Change() SlowChThreshold = udSThreshold.Value lblSThreshold = CStr(Int(udSThreshold.Value * 100 * 4 / 4096 * 100) / 100) + "% FS" End Sub Private Sub udPort_Change() Port = udPort.Value lblPort = "Com" & Port End Sub Private Sub udRTDFast_Change() RTDFast = udRTDFast.Value lblRTDFast.Caption = "RTD Fast HWHM=" + CStr(udRTDFast.Value) End Sub Private Sub udRTDSlow_Change() RTDSlow = udRTDSlow.Value lblRTDSlow.Caption = "RTD threshold=" + CStr(CInt(udRTDSlow.Value * 100 / 512 * 100) / 100) + "% FS" End Sub Private Sub btnRTDOff_Click() RTDOn = False End Sub Private Sub btnRTDOn_Click() RTDOn = True End Sub Private Sub udCoarseGain_Change() If btnPX4.Value = True Then txtCoarseGain.Text = FormatNumber(4 * (1.2 ^ udCoarseGain.Value), 1) & "x" Else Select Case udCoarseGain.Value Case 0 txtCoarseGain.Text = "11x" Case 1 txtCoarseGain.Text = "21x" Case 2 txtCoarseGain.Text = "55x" Case 3 txtCoarseGain.Text = "106x" End Select End If End Sub Private Sub txtFineGain_Click() Dim Temp As Long Temp = CInt(Val(txtFineGain.Text) * 8192) If Temp > udFineGain.Max Then udFineGain.Value = udFineGain.Max ElseIf Temp < udFineGain.Min Then udFineGain.Value = udFineGain.Min Else udFineGain.Value = Temp End If Call udFineGain_Change End Sub Private Sub txtFineGain_LostFocus() Call txtFineGain_Click End Sub Private Sub udFineGain_Change() Dim Temp As Long FineGain = udFineGain.Value Temp = CSng(udFineGain.Value) / CSng(8192) txtFineGain.Text = FormatNumber(Temp, 4) End Sub Private Sub udFThreshold_Change() lblFThreshold = udFThreshold.Value End Sub Private Sub udBLR_Change() If udBLR.Value = 63 Then lblBLR.Caption = "BLR:OFF" Else lblBLR.Caption = "BLR:ON " Select Case (udBLR.Value And 48) Case 0 lblBLR.Caption = lblBLR.Caption + "DN:1 " Case 16 lblBLR.Caption = lblBLR.Caption + "DN:4 " Case 32 lblBLR.Caption = lblBLR.Caption + "DN:16 " Case 48 lblBLR.Caption = lblBLR.Caption + "DN:64 " End Select Select Case (udBLR.Value And 12) Case 0 lblBLR.Caption = lblBLR.Caption + "UP:1 " Case 4 lblBLR.Caption = lblBLR.Caption + "UP:4 " Case 8 lblBLR.Caption = lblBLR.Caption + "UP:16 " Case 12 lblBLR.Caption = lblBLR.Caption + "UP:64 " End Select Select Case (udBLR.Value And 3) Case 0 lblBLR.Caption = lblBLR.Caption + "TH:32" Case 1 lblBLR.Caption = lblBLR.Caption + "TH:256" Case 2 lblBLR.Caption = lblBLR.Caption + "TH:2K" Case 3 lblBLR.Caption = lblBLR.Caption + "TH:16K" End Select End If BLR = udBLR.Value End Sub Private Sub btnGateHigh_Click() Gate = GateHigh End Sub Private Sub btnGateLow_Click() Gate = GateLow End Sub Private Sub btnGateOff_Click() Gate = GateOff End Sub Private Sub chkTEC_Click() If chkTEC.Value = 1 Then chk9V.Value = 1 End If End Sub Private Sub chkXR100_Click() If chkXR100.Value = 1 Then chk9V.Value = 1 End If End Sub Private Sub txtHV_Click() Dim Temp As Integer Temp = CInt(Val(txtHV.Text) * 4096 / 1500) If Temp > udHV.Max Then udHV.Value = udHV.Max ElseIf Temp < udHV.Min Then udHV.Value = udHV.Min Else udHV.Value = Temp End If Call udHV_Change End Sub Private Sub txtHV_LostFocus() Call txtHV_Click End Sub Private Sub txtTEC_Click() Dim Temp As Integer Temp = CInt((Val(txtTEC.Text) + 273) * 4096 / 300) If Temp > udTEC.Max Then udTEC.Value = udTEC.Max ElseIf Temp < udTEC.Min Then udTEC.Value = udTEC.Min Else udTEC.Value = Temp End If Call udTEC_Change End Sub Private Sub txtTEC_LostFocus() Call txtTEC_Click End Sub Private Sub udHV_Change() txtHV.Text = FormatNumber(CStr(udHV.Value * 3 / 4096 * 500), 1) & "V" End Sub Private Sub udTEC_Change() txtTEC.Text = FormatNumber((udTEC.Value * 3 / 4096 * 100) - 273, 1) & "ºC" End Sub Private Sub cmbPresetTime_Change() SetPresetTimeFromStr cmbPresetTime.Text End Sub Private Sub cmbPresetTime_DropDown() SetPresetTimeFromStr cmbPresetTime.Text End Sub Private Sub txtInputOffset_Click() Dim Temp As Integer Temp = CInt(Val(txtInputOffset.Text) * 1000) + 2048 If Temp > udInputOffset.Max Then udInputOffset.Value = udInputOffset.Max ElseIf Temp < udInputOffset.Min Then udInputOffset.Value = udInputOffset.Min Else udInputOffset.Value = Temp End If Call udInputOffset_Change End Sub Private Sub txtInputOffset_LostFocus() txtInputOffset_Click End Sub Private Sub udInputOffset_Change() txtInputOffset.Text = CStr((udInputOffset.Value - 2048) / 1000) & "V" End Sub Private Sub udPZ_Change() Select Case udPZ.Value Case 0 txtPZ.Text = "OFF" Case Else txtPZ.Text = CStr(udPZ.Value) End Select End Sub Private Sub udAuxOut_Change() Select Case udAuxOut.Value Case 0 txtAux.Text = "ICR" txtAux.ToolTipText = "Input Count Rate, i.e. Fast Channel fired" Case 1 txtAux.Text = "PILEUP" txtAux.ToolTipText = "Piled-up event detected" Case 2 txtAux.Text = "MCS Timebase" txtAux.ToolTipText = "Output toggles at the start of each MCS interval" Case 3 txtAux.Text = "ONESHOT" txtAux.ToolTipText = "Period during which a 2nd event would be considered piled-up" Case 4 txtAux.Text = "DET_RES_" txtAux.ToolTipText = "Active-Low Detector Reset Lockout" Case 5 txtAux.Text = "MCA_EN" txtAux.ToolTipText = "High=MCA Enabled, Low=MCA Disabled" Case 6 txtAux.Text = "TRIGGER" txtAux.ToolTipText = "Peak Detect Fired" Case 7 txtAux.Text = "SCA8" txtAux.ToolTipText = "Single Channel Analyzer output #8 (Also available on JP9)" End Select End Sub Private Function SaveConfigToString() As String Dim strCfg As String strCfg = "" strCfg = strCfg & GetRiseIndex(Rise, Avg) & vbNewLine strCfg = strCfg & FlatTop & vbNewLine strCfg = strCfg & SlowChThreshold & vbNewLine strCfg = strCfg & FastChThreshold & vbNewLine strCfg = strCfg & Trim(CStr(OutputOffset)) & vbNewLine If (PUREnable) Then strCfg = strCfg & "PUROn" & vbNewLine Else strCfg = strCfg & "PUROff" & vbNewLine End If strCfg = strCfg & DetReset & vbNewLine If DAC_Off Then strCfg = strCfg & "DAC5" & vbNewLine ElseIf (DAC = 0) Then strCfg = strCfg & "DAC1" & vbNewLine ElseIf (DAC = 1) Then strCfg = strCfg & "DAC2" & vbNewLine ElseIf (DAC = 2) Then strCfg = strCfg & "DAC3" & vbNewLine ElseIf (DAC = 3) Then strCfg = strCfg & "DAC4" & vbNewLine Else strCfg = strCfg & "DAC5" & vbNewLine End If If (MCA = 4) Then strCfg = strCfg & "MCA256" & vbNewLine ElseIf (MCA = 3) Then strCfg = strCfg & "MCA512" & vbNewLine ElseIf (MCA = 2) Then strCfg = strCfg & "MCA1024" & vbNewLine ElseIf (MCA = 1) Then strCfg = strCfg & "MCA2048" & vbNewLine ElseIf (MCA = 0) Then strCfg = strCfg & "MCA4096" & vbNewLine ElseIf (MCA = 5) Then strCfg = strCfg & "MCADisable" & vbNewLine Else strCfg = strCfg & "MCA not selected" & vbNewLine End If If ((Port > 0) And (Port < 10)) Then strCfg = strCfg & "COM" & CStr(Port) & vbNewLine Else strCfg = strCfg & "COM1" & vbNewLine End If If (RTDOn) Then strCfg = strCfg & "RTDOn" & vbNewLine Else strCfg = strCfg & "RTDOff" & vbNewLine End If strCfg = strCfg & RTDSlow & vbNewLine strCfg = strCfg & RTDFast & vbNewLine strCfg = strCfg & CoarseGain & vbNewLine ' modified in v3.6 for PX4/DP4 gain ' the following were added in v3.4 If BaselineOn Then strCfg = strCfg & "AutoBaselineOn" & vbNewLine Else strCfg = strCfg & "AutoBaselineOff" & vbNewLine End If strCfg = strCfg & BLR & vbNewLine If (BufferSelect = BufferSelectA) Then strCfg = strCfg & "BufferSelectA" & vbNewLine ElseIf (BufferSelect = BufferSelectB) Then strCfg = strCfg & "BufferSelectB" & vbNewLine ElseIf (BufferSelect = BufferSelectHW) Then strCfg = strCfg & "BufferSelectHW" & vbNewLine Else strCfg = strCfg & "BufferSelectA" & vbNewLine End If If (Gate = GateOff) Then strCfg = strCfg & "GateOff" & vbNewLine ElseIf (Gate = GateHigh) Then strCfg = strCfg & "GateHigh" & vbNewLine ElseIf (Gate = GateLow) Then strCfg = strCfg & "GateLow" & vbNewLine Else strCfg = strCfg & "GateOff" & vbNewLine End If strCfg = strCfg & GetPresetTimeStrFromVal(Preset) & vbNewLine ' The following were added in v3.6 strCfg = strCfg & FineGain & vbNewLine strCfg = strCfg & Abs(TEC_On) & vbNewLine strCfg = strCfg & CStr(0) & vbNewLine ' used to be chk5VA.Value strCfg = strCfg & Abs(Pwr8_5SEL_On) & vbNewLine strCfg = strCfg & CStr(0) & vbNewLine ' used to be chkXR100.Value strCfg = strCfg & Abs(Pwr9V_On) & vbNewLine strCfg = strCfg & Abs(InvertCG) & vbNewLine strCfg = strCfg & InputOffset & vbNewLine strCfg = strCfg & PoleZero & vbNewLine strCfg = strCfg & AuxOut & vbNewLine ' The following were added in v3.8 strCfg = strCfg & HV & vbNewLine strCfg = strCfg & TEC & vbNewLine SaveConfigToString = strCfg End Function Private Sub RecallConfigSetControls() cmbRise.ListIndex = GetRiseIndex(Rise, Avg) cmbTop.ListIndex = FlatTop udSThreshold.Value = SlowChThreshold udFThreshold.Value = FastChThreshold udOutputOffset.Value = OutputOffset If (PUREnable) Then btnPURon.Value = True Else btnPURoff.Value = True End If udReset.Value = DetReset Select Case DAC Case 0 btnDAC1.Value = True Case 1 btnDAC2.Value = True Case 2 btnDAC3.Value = True Case 3 btnDAC4.Value = True Case Else btnDAC5.Value = True End Select Select Case MCA Case 4 btnMCA256.Value = True Case 3 btnMCA512.Value = True Case 2 btnMCA1024.Value = True Case 1 btnMCA2048.Value = True Case 0 btnMCA4096.Value = True End Select If ((Port < 1) Or (Port > 8)) Then Port = 1 udPort.Value = Port If (RTDOn) Then btnRTDOn.Value = True Else btnRTDOff.Value = True End If udRTDSlow.Value = RTDSlow udRTDFast.Value = RTDFast udCoarseGain.Value = CoarseGain udCoarseGain_Change If (BaselineOn) Then btnBaselineOn.Value = True Else btnBaselineOff.Value = True End If udBLR.Value = BLR If (BufferSelect = BufferSelectA) Then btnBufferSelA.Value = True ElseIf (BufferSelect = BufferSelectB) Then btnBufferSelB.Value = True ElseIf (BufferSelect = BufferSelectHW) Then btnBufferSelHardware.Value = True End If If (Gate = GateOff) Then btnGateOff.Value = True ElseIf (Gate = GateHigh) Then btnGateHigh.Value = True ElseIf (Gate = GateLow) Then btnGateLow.Value = True End If cmbPresetTime.Text = GetPresetTimeStrFromVal(Preset) If ((FineGain >= 10240) Or (FineGain <= 6144)) Then FineGain = 8192 End If udFineGain.Value = FineGain udFineGain_Change chkTEC.Value = Abs(TEC_On) 'chk5VA.Value = Abs(Pwr5VA_On) chk8_5SEL.Value = Abs(Pwr8_5SEL_On) 'chkXR100.Value = Abs(XR100_On) chk9V.Value = Abs(Pwr9V_On) chkInversion.Value = Abs(InvertCG) udInputOffset.Value = InputOffset udPZ.Value = PoleZero udAuxOut.Value = AuxOut udHV.Value = HV udTEC.Value = TEC End Sub Public Function Inc(ByRef varIdx As Variant) As Variant varIdx = varIdx + 1 Inc = varIdx End Function Private Sub CreateMenus() Dim mnuView As MenuBarLib.MenuBarMenu Set mnuView = ceMenuBar.Controls.AddMenu("View", "mnuView") mnuView.Items.Add 1, "mnuViewCfgFile", "Configuration File" mnuView.Items.Add 2, "mnuViewMCA", "MCA" mnuView.Items.Add 3, "mnuViewShaping", "Shaping" mnuView.Items.Add 4, "mnuViewGainPZ", "Gain && Pole Zero" mnuView.Items.Add 5, "mnuViewPower", "Power" mnuView.Items.Add 6, "mnuViewMisc", "Misc" mnuView.Items.Add 7, "mnuViewReviewConfig", "Review Configuration" End Sub Private Sub ceMenuBar_MenuClick(ByVal Item As MenuBarLib.Item) Select Case Item.Key Case "mnuViewCfgFile" SelectFrame 1 Case "mnuViewMCA" SelectFrame 2 Case "mnuViewShaping" SelectFrame 3 Case "mnuViewGainPZ" SelectFrame 4 Case "mnuViewPower" SelectFrame 5 Case "mnuViewMisc" SelectFrame 6 Case "mnuViewReviewConfig" SelectFrame 7 End Select End Sub Private Sub SelectFrame(iFrame As Integer) fraConfigurationFile.Visible = False fraMCA.Visible = False fraShaping.Visible = False fraGainPZ.Visible = False fraPower.Visible = False fraMisc.Visible = False fraReviewConfig.Visible = False Select Case iFrame Case 1 fraConfigurationFile.Visible = True Case 2 fraMCA.Visible = True Case 3 fraShaping.Visible = True Case 4 fraGainPZ.Visible = True Case 5 fraPower.Visible = True Case 6 fraMisc.Visible = True Case 7 fraReviewConfig.Visible = True End Select End Sub Private Sub InitFrames() fraConfigurationFile.Visible = False fraMCA.Visible = False fraShaping.Visible = False fraGainPZ.Visible = False fraPower.Visible = False fraMisc.Visible = False fraReviewConfig.Visible = False fraHiddenItems.Visible = False fraConfigurationFile.Left = 0 fraMCA.Left = 0 fraShaping.Left = 0 fraGainPZ.Left = 0 fraPower.Left = 0 fraMisc.Left = 0 fraReviewConfig.Left = 0 fraConfigurationFile.Top = 0 fraMCA.Top = 0 fraShaping.Top = 0 fraGainPZ.Top = 0 fraPower.Top = 0 fraMisc.Top = 0 fraReviewConfig.Top = 0 fraConfigurationFile.Visible = True End Sub Private Function OpenFileDlg(strFilter As String, strDefaultExt As String, isSaveAs As Boolean) As String frmOpen.Done = False frmOpen.OpenFilePath = "" frmOpen.SaveFilePath = "" frmOpen.ClearFileFilters frmOpen.SetFileFilter "*.*", "*.*" frmOpen.SetFileFilter strFilter, strDefaultExt frmOpen.SetDialogType isSaveAs frmOpen.Hide frmOpen.Show vbModal Do CEDoEvents Loop Until frmOpen.Done If (isSaveAs) Then OpenFileDlg = frmOpen.SaveFilePath Else OpenFileDlg = frmOpen.OpenFilePath End If End Function '''Private Function TestDppFirmware(dblNewFirmware As Double) As Boolean ''' Dim bFirmwareOK As Boolean ''' bFirmwareOK = False ''' If (DppFirmwareRev >= dblNewFirmware) Then ''' bFirmwareOK = True ''' End If ''' TestDppFirmware = bFirmwareOK '''End Function ''Private Sub EnableDppControls(Optional ForcePX4OnlyOn As Boolean = False) '' Dim bPX4 As Boolean '' Dim bHasMCS As Boolean '' Dim bHasTuneFastThresh As Boolean '' '' bPX4 = CBool(DppDevice) '' If (ForcePX4OnlyOn) Then bPX4 = True '' '' '=== MCA Controls === '' bHasMCS = TestDppFirmware(3.11) ' fw >= v3.11(2nd vers) has mcs '' If Not ForcePX4OnlyOn Then '' cboAcqMode.Enabled = bHasMCS '' lblcboAcqMode.Enabled = bHasMCS '' cboMCSTimebase.Enabled = False 'this is done because the controls are not initialized yet '' lblMCSTimebase.Enabled = False '' Else '' cboAcqMode.Enabled = True '' lblcboAcqMode.Enabled = True '' cboMCSTimebase.Enabled = True 'this is done because the controls are not initialized yet '' lblMCSTimebase.Enabled = True '' End If '' '' '=== Shaping Controls === '' bHasTuneFastThresh = TestDppFirmware(3.11) ' fw >= v3.11 has fast thresh tune '' 'GetDlgItem(IDC_TUNEFASTTHRESHOLD)->EnableWindow(bHasTuneFastThresh) 'no vb control yet '' '' '=== Gain & Pole Zero Controls === '' 'GetDlgItem(IDC_NORMALAUTOINPUTOFFSET)->EnableWindow(bPX4) 'don't test for these (2) yet '' 'GetDlgItem(IDC_FINEAUTOINPUTOFFSET)->EnableWindow(bPX4) '' txtPZ.Enabled = bPX4 '' udPZ.Enabled = bPX4 '' lblPZValue.Enabled = bPX4 '' txtInputOffset.Enabled = bPX4 '' udInputOffset.Enabled = bPX4 '' lblInputOffset.Enabled = bPX4 '' lblInputOffsetFlag.Enabled = bPX4 '' cboInputPolarity.Enabled = bPX4 '' lblcboInvertEnable.Enabled = bPX4 '' '' '=== Power Controls === '' txtHV.Enabled = bPX4 '' udHV.Enabled = bPX4 '' fraHighVoltageBias.Enabled = bPX4 '' lblHVFlag.Enabled = bPX4 '' cboHVSelect.Enabled = bPX4 '' cboPreampVoltage.Enabled = bPX4 '' lblcboPreampVoltage.Enabled = bPX4 '' txtTEC.Enabled = bPX4 '' udTEC.Enabled = bPX4 '' fraTemperature.Enabled = bPX4 '' lblSetPoint.Enabled = bPX4 '' lblTECFlag.Enabled = bPX4 '' '' '=== Miscellaneous Controls === '' cboAux.Enabled = bPX4 '' lblAux.Enabled = bPX4 '' cboAudibleCounterSettings.Enabled = bPX4 '' lblcboAudibleCounterSettings.Enabled = bPX4 '' '' cmdEnablePX4OnlyControls.Visible = Not bPX4 '' cmdEnablePX4OnlyControls.Enabled = Not bPX4 ''End Sub '' ''