diff --git a/src/About.frm b/src/About.frm index 24853db..a8f3892 100644 --- a/src/About.frm +++ b/src/About.frm @@ -246,12 +246,12 @@ Private Sub Form_Load() lblAddress.Caption = address(0) & address(1) & address(2) & address(3) lblTelephone.Caption = "Telephone: 781-555-0000" - lblTelephone.Caption = "E-mail: jpiso@aol.com" + lblTelephone.Caption = "E-mail: john.piso@sensatus.us" lblWarning.Caption = warning(0) & warning(1) & warning(2) & warning(3) '"Warning! This computer program is protected by copyright law and international treaties. Unauthorized reproduction or distribution of this program is illegal and may result in criminal and civil penalties." End Sub Private Sub lblEmail_Click() - OpenEmail "jpiso@aol.com" + OpenEmail "john.piso@sensatus.us" End Sub diff --git a/src/BarChart.frm b/src/BarChart.frm index b47b89d..3e1cd82 100644 --- a/src/BarChart.frm +++ b/src/BarChart.frm @@ -117,14 +117,14 @@ Private Sub Form_Load() PlotData.Hide - SensorColors(1) = vbBlue - SensorColors(2) = vbRed - SensorColors(3) = vbYellow - SensorColors(4) = vbGreen - SensorColors(5) = vbCyan - SensorColors(6) = vbMagenta - SensorColors(7) = 33023 ' 33023 = orange - SensorColors(8) = 8421440 ' 8421440 = darker green + SensorColors(1) = RGB(0, 0, 255) ' Blue + SensorColors(2) = RGB(204, 0, 0) ' Red + SensorColors(3) = RGB(204, 255, 0) ' Yellow + SensorColors(4) = RGB(0, 102, 0) ' Green + SensorColors(5) = RGB(0, 255, 204) ' Cyan + SensorColors(6) = RGB(204, 0, 153) ' Magenta + SensorColors(7) = RGB(204, 102, 0) ' Orange + SensorColors(8) = RGB(0, 51, 0) ' Darker Green lColorMatrix(0) = SensorColors(1) 'vbBlue lColorMatrix(1) = SensorColors(2) 'vbGreen diff --git a/src/FTComm.cls b/src/FTComm.cls index 58aadb4..6d21f41 100644 --- a/src/FTComm.cls +++ b/src/FTComm.cls @@ -91,10 +91,7 @@ ErrHan: log "Error " & Err.Number & ": " & Err.Description MsgBox "Error opening communications channel. Please try another COM Port or check your device configuration.", vbCritical Or vbOKOnly, "FiberTrack FTComm" Else - MsgBox "Unexpected error occurred while opening communications channel." & vbCrLf & _ - "Please try another COM Port or check your device configuration." & vbCrLf & _ - "Error " & Err.Number & ": " & Err.Description, _ - vbCritical Or vbOKOnly, "FiberTrack FTComm" + MsgBox "Unexpected error occurred while opening communications channel." & vbCrLf & "Please try another COM Port or check your device configuration." & vbCrLf & "Error " & Err.Number & ": " & Err.Description, vbCritical Or vbOKOnly, "FiberTrack FTComm" End If End Function diff --git a/src/FTDataFile.cls b/src/FTDataFile.cls index 378ad56..023a8ed 100644 --- a/src/FTDataFile.cls +++ b/src/FTDataFile.cls @@ -321,15 +321,22 @@ Private Sub WriteHeaderText() Debug.Assert mDataFileFormatEnum = Text Dim index As Integer WriteLine ms_Title - WriteLine " --------------------------------------------------------------" + WriteLine " ----------------------------------------------------" WriteLine "" WriteLine ms_Info WriteLine "" - WriteLine "" + ' WriteLine "" WriteComma "" + Dim line As String + Dim blank As String + blank = " " For index = LBound(mb_SensorOnline) To UBound(mb_SensorOnline) If mb_SensorOnline(index) Then - WriteComma GetIniSetting("Application", "NameOfThreadLine") & " " & SensorInfos(index).Package ' CHANGED + line = CStr(GetIniSetting("Application", "NameOfThreadLine") & " " & RTrim(SensorInfos(index).Package)) ' CHANGED + If CBool(GetIniSetting("Application", "IncludeCvColumn")) Then + line = line & blank + End If + WriteComma Replace(line, vbNewLine, "") End If Next index WriteLine "" @@ -343,7 +350,7 @@ Private Sub WriteHeaderText() End If Next index WriteLine "" - WriteLine "--------------------------------------------------------------------------------------------------------------------------------------------------------------" + WriteLine "-------------------------------------------------------------------------------" End Sub Private Sub WriteHeaderCSV() @@ -352,7 +359,7 @@ Private Sub WriteHeaderCSV() line = HEADER_TIME For index = LBound(mb_SensorOnline) To UBound(mb_SensorOnline) If mb_SensorOnline(index) Then - line = line & ", " & HEADER_SENSOR & CStr(index) & " " & GetIniSetting("Application", "NameOfThreadLine") & " " & SensorInfos(index).Package ' CHANGED + line = line & ", " & HEADER_SENSOR & CStr(index) & " " & GetIniSetting("Application", "NameOfThreadLine") & " " & Replace(SensorInfos(index).Package, vbNewLine, "") ' CHANGED If CBool(GetIniSetting("Application", "IncludeCvColumn")) Then line = line & ", " & HEADER_CV & CStr(index) End If @@ -371,7 +378,7 @@ Public Sub WriteFooter() WriteComma HEADER_TIME For index = LBound(mb_SensorOnline) To UBound(mb_SensorOnline) If mb_SensorOnline(index) Then - WriteComma HEADER_SENSOR & index & " " & GetIniSetting("Application", "NameOfThreadLine") & " " & SensorInfos(index).Package ' CHANGED + WriteComma HEADER_SENSOR & index & " " & GetIniSetting("Application", "NameOfThreadLine") & " " & Replace(SensorInfos(index).Package, vbNewLine, "") ' CHANGED If CBool(GetIniSetting("Application", "IncludeCvColumn")) Then WriteComma HEADER_CV & index End If diff --git a/src/FTExcelController.cls b/src/FTExcelController.cls index 0b9729b..db0c8d2 100644 --- a/src/FTExcelController.cls +++ b/src/FTExcelController.cls @@ -178,7 +178,7 @@ Private Function ConvertCSVToExcel(cvsFileName As String, excelFileName As Strin End If Set workBook = mo_ExcelObject.Workbooks.Open(cvsFileName, Editable:=True, AddToMRU:=False) #If USE_GENERIC_OBJECTS Then - workBook.SaveAs excelFileName, FileFormat:=43, CreateBackup:=True, AddToMRU:=True + workBook.SaveAs excelFileName, FileFormat:=56, CreateBackup:=True, AddToMRU:=True #Else workBook.SaveAs excelFileName, FileFormat:=xlExcel9795, CreateBackup:=True, AddToMRU:=True #End If diff --git a/src/FiberTrack.PDM b/src/FiberTrack.PDM index 970ba0e..e9bc389 100644 --- a/src/FiberTrack.PDM +++ b/src/FiberTrack.PDM @@ -412,7 +412,7 @@ C:\WINDOWS\system32\comdlg32.ocx= C:\WINDOWS\system32\scrrun.dll= [Package|FiberTrack Denier 2.5.0|Files Added] -C:\Documents and Settings\Compaq_Owner\Desktop\WORKS\Denier2.5.0\SourceCode\settings.ini= +c:\documents and settings\compaq_owner\desktop\works\denier2.5.0\sourcecode\settings.ini= [Package|FiberTrack Denier 2.5.0|Files Removed] @@ -421,7 +421,6 @@ C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\Redist\COMCAT.DLL C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP.EXE=Yes C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\SETUP1.EXE=Yes C:\Program Files\Microsoft Visual Studio\VB98\Wizards\PDWizard\ST6UNST.EXE=Yes -C:\Documents and Settings\Compaq_Owner\Desktop\WORKS\Denier2.5.0\SourceCode\FiberTrack.exe=Yes C:\WINDOWS\system32\msvbvm60.dll=Yes C:\WINDOWS\system32\oleaut32.dll=Yes C:\WINDOWS\system32\olepro32.dll=Yes @@ -439,6 +438,7 @@ C:\WINDOWS\system32\COMCT232.OCX=Yes C:\WINDOWS\system32\VB6STKIT.DLL=Yes C:\WINDOWS\system32\SQLPARSE.DLL=Yes C:\Documents and Settings\Compaq_Owner\Desktop\WORKS\Denier2.5.0\SourceCode\settings.ini=Yes +C:\Github2\FiberTracker\src\FiberTrack.exe=Yes [Package|FiberTrack Denier 2.5.0|Configure Registry Files] Applicable=No @@ -490,6 +490,7 @@ C:\WINDOWS\system32\COMCT232.OCX=$(WinSysPath) C:\WINDOWS\system32\VB6STKIT.DLL=$(WinSysPathSysFile) C:\WINDOWS\system32\SQLPARSE.DLL=$(WinSysPath) C:\Documents and Settings\Compaq_Owner\Desktop\WORKS\Denier2.5.0\SourceCode\settings.ini=$(AppPath) +C:\Github2\FiberTracker\src\FiberTrack.exe=$(AppPath) [Package|FiberTrack Denier 2.5.0|Configure Shared Files] Applicable=Yes @@ -498,22 +499,13 @@ C:\sti\bin\FiberTrack231\Denier\setup.svd=No F:\Denier2.5.0\SourceCode\FiberTrack.exe=No C:\Documents and Settings\Compaq_Owner\Desktop\WORKS\Denier2.5.0\SourceCode\FiberTrack.exe=Yes C:\Documents and Settings\Compaq_Owner\Desktop\WORKS\Denier2.5.0\SourceCode\settings.ini=No +C:\Github2\FiberTracker\src\FiberTrack.exe=No [Package|FiberTrack Denier 2.5.0|Distribution] Type=single Size=1.44 MB Title=FiberTrack - Denier 2.5.0 -[Package|FiberTrack Denier 2.5.0|Package] -PackageFolder=C:\FiberTrackerDenier250 -ProjectFolder=C:\Documents and Settings\Compaq_Owner\Desktop\WORKS\Denier2.5.0\SourceCode -ServerSideCab= -File1=C:\FiberTrackerDenier250\setup.exe -File2=C:\FiberTrackerDenier250\Setup.Lst -File3=C:\FiberTrackerDenier250\FiberTrack.CAB -Handler1=PDWizard.FolderDplySubWiz -Handler2=PDWizard.WebPostDplySubWiz - [Package|FiberTrack Denier 2.5.0|IconGroups] Group0=FiberTrack 2.5.0 Denier PrivateGroup0=False @@ -524,3 +516,13 @@ Icon1=FiberTrack.exe Title1=FiberTrack 2.5.0 Denier StartIn1=$(AppPath) Key1=Icon1 + +[Package|FiberTrack Denier 2.5.0|Package] +PackageFolder=C:\FiberTrackerDenier250 +ProjectFolder=C:\Github2\FiberTracker\src +ServerSideCab= +File1=C:\FiberTrackerDenier250\setup.exe +File2=C:\FiberTrackerDenier250\Setup.Lst +File3=C:\FiberTrackerDenier250\FiberTrack.CAB +Handler1=PDWizard.FolderDplySubWiz +Handler2=PDWizard.WebPostDplySubWiz diff --git a/src/FiberTrack.exe b/src/FiberTrack.exe new file mode 100644 index 0000000..e943620 Binary files /dev/null and b/src/FiberTrack.exe differ diff --git a/src/FiberTrack.frm b/src/FiberTrack.frm index c18a45c..d6aae20 100644 --- a/src/FiberTrack.frm +++ b/src/FiberTrack.frm @@ -111,8 +111,8 @@ Begin VB.Form FiberTrack Width = 1200 End End - Begin VB.Frame fraComPort - Caption = "Com Port" + Begin VB.Frame fraDefDet + Caption = "Defect Detection" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 @@ -122,53 +122,87 @@ Begin VB.Form FiberTrack Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 1455 + Height = 2415 Left = 3720 - TabIndex = 57 - Top = 240 - Width = 2055 - Begin VB.OptionButton optCom2 - BackColor = &H80000013& - Caption = "Com &2" - Height = 255 - Left = 240 - TabIndex = 61 + TabIndex = 88 + Top = 1440 + Width = 3375 + Begin VB.TextBox txtCurValueDD + Alignment = 2 'Center + Height = 285 + Index = 0 + Left = 2280 + MultiLine = -1 'True + TabIndex = 94 + Text = "FiberTrack.frx":08CA Top = 600 - Width = 855 + Width = 735 End - Begin VB.OptionButton optCom1 - BackColor = &H80000013& - Caption = "Com &1" + Begin VB.CommandButton cmdParDD + BackColor = &H00C0C0C0& + Caption = "Level 1 Defect %" Height = 255 + Index = 0 Left = 240 - TabIndex = 60 - Top = 360 - Width = 855 + TabIndex = 93 + Top = 600 + Width = 1455 End - Begin VB.CommandButton cmdCanCom - BackColor = &H80000013& + Begin VB.CommandButton cmdCanDD Caption = "Cancel" Height = 375 - Left = 1080 - Style = 1 'Graphical - TabIndex = 59 - Top = 960 + Left = 1920 + TabIndex = 92 + Top = 1920 Width = 855 End - Begin VB.CommandButton cmdOKCom - BackColor = &H80000013& + Begin VB.CommandButton cmdOkDD Caption = "OK" Height = 375 - Left = 120 - Style = 1 'Graphical - TabIndex = 58 - Top = 960 + Left = 480 + TabIndex = 91 + Top = 1920 + Width = 855 + End + Begin VB.Label lblCurValDD + Alignment = 2 'Center + Caption = "Current Value" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = -1 'True + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Left = 2160 + TabIndex = 90 + Top = 240 + Width = 975 + End + Begin VB.Label lblParDD + Alignment = 2 'Center + Caption = "Parameter" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = -1 'True + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Left = 600 + TabIndex = 89 + Top = 240 Width = 855 End End - Begin VB.Frame fraDenRange - BackColor = &H80000013& - Caption = "Orientation Range" + Begin VB.Frame fraAppPar + Caption = "Application Parameters" BeginProperty Font Name = "MS Sans Serif" Size = 8.25 @@ -178,44 +212,98 @@ Begin VB.Form FiberTrack Italic = 0 'False Strikethrough = 0 'False EndProperty - Height = 1575 + Height = 2175 Left = 3720 - TabIndex = 70 - Top = 1560 + TabIndex = 80 + Top = 960 Width = 3855 - Begin VB.CommandButton cmdCanDR - BackColor = &H80000013& + Begin VB.TextBox txtCurValueAp + Alignment = 2 'Center + Height = 285 + Index = 0 + Left = 2520 + MultiLine = -1 'True + TabIndex = 86 + Text = "FiberTrack.frx":08D3 + Top = 720 + Width = 495 + End + Begin VB.CommandButton cmdCanAP Caption = "Cancel" Height = 375 - Left = 3000 - Style = 1 'Graphical - TabIndex = 73 - Top = 960 - Width = 735 + Left = 2280 + TabIndex = 85 + Top = 1680 + Width = 855 End - Begin VB.CommandButton cmdOkDR - BackColor = &H80000013& + Begin VB.CommandButton cmdOkAP Caption = "OK" Height = 375 - Left = 3000 - Style = 1 'Graphical - TabIndex = 72 - Top = 360 - Width = 735 + Left = 720 + TabIndex = 84 + Top = 1680 + Width = 855 End - Begin VB.OptionButton optDenRange - BackColor = &H80000013& - Caption = "200 to 2000 Denier" + Begin VB.CommandButton cmdLineSpeed + BackColor = &H00C0C0C0& + Caption = "Line &Speed" Height = 255 Index = 0 Left = 240 - TabIndex = 71 + TabIndex = 83 + Top = 720 + Width = 975 + End + Begin VB.Label lblLineSpeed + Appearance = 0 'Flat + BackColor = &H80000004& + Caption = "m/min" + ForeColor = &H80000008& + Height = 255 + Index = 0 + Left = 3120 + TabIndex = 87 + Top = 720 + Width = 495 + End + Begin VB.Label lblCurValueAP + Alignment = 2 'Center + Caption = "Current Value" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = -1 'True + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Left = 2520 + TabIndex = 82 Top = 360 - Width = 2775 + Width = 1095 + End + Begin VB.Label lblParAP + Alignment = 2 'Center + Caption = "Parameter" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = -1 'True + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 255 + Left = 600 + TabIndex = 81 + Top = 360 + Width = 975 End End Begin VB.Frame fraDenierPar - BackColor = &H80000013& Caption = "Orientation Parameters" BeginProperty Font Name = "MS Sans Serif" @@ -232,7 +320,6 @@ Begin VB.Form FiberTrack Top = 480 Width = 3135 Begin VB.CommandButton cmdDoneDP - BackColor = &H80000013& Caption = "Done" Height = 375 Left = 960 @@ -242,7 +329,6 @@ Begin VB.Form FiberTrack Width = 855 End Begin VB.CommandButton cmdCanDP - BackColor = &H80000013& Caption = "Cancel" Height = 375 Left = 1680 @@ -252,7 +338,6 @@ Begin VB.Form FiberTrack Width = 855 End Begin VB.CommandButton cmdOkDP - BackColor = &H80000013& Caption = "OK" Height = 375 Left = 360 @@ -266,12 +351,12 @@ Begin VB.Form FiberTrack Index = 0 Left = 1920 TabIndex = 66 - Text = $"FiberTrack.frx":08CA + Text = $"FiberTrack.frx":08D8 Top = 600 Width = 975 End Begin VB.CommandButton cmdDenPar - BackColor = &H80000013& + BackColor = &H00C0C0C0& Caption = "Orientation &Range" Height = 255 Index = 0 @@ -283,7 +368,6 @@ Begin VB.Form FiberTrack End Begin VB.Label lblParValue Alignment = 2 'Center - BackColor = &H80000013& Caption = "Current Value" BeginProperty Font Name = "MS Sans Serif" @@ -302,7 +386,6 @@ Begin VB.Form FiberTrack End Begin VB.Label lblPara Alignment = 2 'Center - BackColor = &H80000013& Caption = "Parameter" BeginProperty Font Name = "MS Sans Serif" @@ -320,6 +403,153 @@ Begin VB.Form FiberTrack Width = 975 End End + Begin VB.Frame fraPlotChan + Caption = "Plot Channels" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = -1 'True + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 3135 + Left = 3720 + TabIndex = 75 + Top = 720 + Width = 2175 + Begin VB.Frame Frame2 + Caption = "Frame2" + Height = 15 + Left = 0 + TabIndex = 79 + Top = 0 + Width = 135 + End + Begin VB.CommandButton cmdCanPC + Caption = "Cancel" + Height = 375 + Left = 1200 + Style = 1 'Graphical + TabIndex = 78 + Top = 2640 + Width = 855 + End + Begin VB.CommandButton cmdOkPC + Caption = "OK" + Height = 375 + Left = 120 + Style = 1 'Graphical + TabIndex = 77 + Top = 2640 + Width = 855 + End + Begin VB.CheckBox chkPlotChan + Caption = "Channel &1" + Height = 255 + Index = 0 + Left = 600 + TabIndex = 76 + Top = 360 + Width = 1215 + End + End + Begin VB.Frame fraComPort + Caption = "Com Port" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = -1 'True + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 1455 + Left = 3720 + TabIndex = 57 + Top = 240 + Width = 2055 + Begin VB.OptionButton optCom2 + Caption = "Com &2" + Height = 255 + Left = 240 + TabIndex = 61 + Top = 600 + Width = 855 + End + Begin VB.OptionButton optCom1 + Caption = "Com &1" + Height = 255 + Left = 240 + TabIndex = 60 + Top = 360 + Width = 855 + End + Begin VB.CommandButton cmdCanCom + Caption = "Cancel" + Height = 375 + Left = 1080 + Style = 1 'Graphical + TabIndex = 59 + Top = 960 + Width = 855 + End + Begin VB.CommandButton cmdOKCom + Caption = "OK" + Height = 375 + Left = 120 + Style = 1 'Graphical + TabIndex = 58 + Top = 960 + Width = 855 + End + End + Begin VB.Frame fraDenRange + Caption = "Orientation Range" + BeginProperty Font + Name = "MS Sans Serif" + Size = 8.25 + Charset = 0 + Weight = 400 + Underline = -1 'True + Italic = 0 'False + Strikethrough = 0 'False + EndProperty + Height = 1575 + Left = 6840 + TabIndex = 70 + Top = 960 + Width = 3855 + Begin VB.CommandButton cmdCanDR + Caption = "Cancel" + Height = 375 + Left = 3000 + Style = 1 'Graphical + TabIndex = 73 + Top = 960 + Width = 735 + End + Begin VB.CommandButton cmdOkDR + Caption = "OK" + Height = 375 + Left = 3000 + Style = 1 'Graphical + TabIndex = 72 + Top = 360 + Width = 735 + End + Begin VB.OptionButton optDenRange + Caption = "200 to 2000 Denier" + Height = 255 + Index = 0 + Left = 240 + TabIndex = 71 + Top = 360 + Width = 2775 + End + End Begin VB.Frame fraSetup Caption = "Setup" BeginProperty Font @@ -337,7 +567,6 @@ Begin VB.Form FiberTrack Top = 0 Width = 2775 Begin VB.CommandButton cmdDone - BackColor = &H80000013& Cancel = -1 'True Caption = "Done" Height = 375 @@ -359,95 +588,6 @@ Begin VB.Form FiberTrack Width = 2535 End End - Begin VB.Frame fraDefDet - Caption = "Defect Detection" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 400 - Underline = -1 'True - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 2415 - Left = 3720 - TabIndex = 88 - Top = 1440 - Width = 3375 - Begin VB.TextBox txtCurValueDD - Alignment = 2 'Center - Height = 285 - Index = 0 - Left = 2280 - MultiLine = -1 'True - TabIndex = 94 - Text = "FiberTrack.frx":08DB - Top = 600 - Width = 735 - End - Begin VB.CommandButton cmdParDD - Caption = "Level 1 Defect %" - Height = 255 - Index = 0 - Left = 240 - TabIndex = 93 - Top = 600 - Width = 1455 - End - Begin VB.CommandButton cmdCanDD - Caption = "Cancel" - Height = 375 - Left = 1920 - TabIndex = 92 - Top = 1920 - Width = 855 - End - Begin VB.CommandButton cmdOkDD - Caption = "OK" - Height = 375 - Left = 480 - TabIndex = 91 - Top = 1920 - Width = 855 - End - Begin VB.Label lblCurValDD - Alignment = 2 'Center - Caption = "Current Value" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 400 - Underline = -1 'True - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 255 - Left = 2160 - TabIndex = 90 - Top = 240 - Width = 975 - End - Begin VB.Label lblParDD - Alignment = 2 'Center - Caption = "Parameter" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 400 - Underline = -1 'True - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 255 - Left = 600 - TabIndex = 89 - Top = 240 - Width = 855 - End - End Begin VB.Frame fraAbout Caption = "About FiberTrack" BeginProperty Font @@ -507,163 +647,6 @@ Begin VB.Form FiberTrack Width = 2175 End End - Begin VB.Frame fraAppPar - Caption = "Application Parameters" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 400 - Underline = -1 'True - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 2175 - Left = 3720 - TabIndex = 80 - Top = 960 - Width = 3855 - Begin VB.TextBox txtCurValueAp - Alignment = 2 'Center - Height = 285 - Index = 0 - Left = 2520 - MultiLine = -1 'True - TabIndex = 86 - Text = "FiberTrack.frx":08E4 - Top = 720 - Width = 495 - End - Begin VB.CommandButton cmdCanAP - Caption = "Cancel" - Height = 375 - Left = 2280 - TabIndex = 85 - Top = 1680 - Width = 855 - End - Begin VB.CommandButton cmdOkAP - Caption = "OK" - Height = 375 - Left = 720 - TabIndex = 84 - Top = 1680 - Width = 855 - End - Begin VB.CommandButton cmdLineSpeed - Caption = "Line &Speed" - Height = 255 - Index = 0 - Left = 240 - TabIndex = 83 - Top = 720 - Width = 975 - End - Begin VB.Label lblLineSpeed - Appearance = 0 'Flat - BackColor = &H80000004& - Caption = "m/min" - ForeColor = &H80000008& - Height = 255 - Index = 0 - Left = 3120 - TabIndex = 87 - Top = 720 - Width = 495 - End - Begin VB.Label lblCurValueAP - Alignment = 2 'Center - Caption = "Current Value" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 400 - Underline = -1 'True - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 255 - Left = 2520 - TabIndex = 82 - Top = 360 - Width = 1095 - End - Begin VB.Label lblParAP - Alignment = 2 'Center - Caption = "Parameter" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 400 - Underline = -1 'True - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 255 - Left = 600 - TabIndex = 81 - Top = 360 - Width = 975 - End - End - Begin VB.Frame fraPlotChan - BackColor = &H80000013& - Caption = "Plot Channels" - BeginProperty Font - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 400 - Underline = -1 'True - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - Height = 3135 - Left = 3720 - TabIndex = 75 - Top = 720 - Width = 2175 - Begin VB.Frame Frame2 - Caption = "Frame2" - Height = 15 - Left = 0 - TabIndex = 79 - Top = 0 - Width = 135 - End - Begin VB.CommandButton cmdCanPC - BackColor = &H80000013& - Caption = "Cancel" - Height = 375 - Left = 1200 - Style = 1 'Graphical - TabIndex = 78 - Top = 2640 - Width = 855 - End - Begin VB.CommandButton cmdOkPC - BackColor = &H80000013& - Caption = "OK" - Height = 375 - Left = 120 - Style = 1 'Graphical - TabIndex = 77 - Top = 2640 - Width = 855 - End - Begin VB.CheckBox chkPlotChan - BackColor = &H80000013& - Caption = "Channel &1" - Height = 255 - Index = 0 - Left = 600 - TabIndex = 76 - Top = 360 - Width = 1215 - End - End Begin MSComDlg.CommonDialog comDialog3 Left = 8400 Top = 5160 @@ -1115,7 +1098,7 @@ Begin VB.Form FiberTrack TabIndex = 0 Top = 3360 Width = 9495 - _Version = 524288 + _Version = 196608 _ExtentX = 16748 _ExtentY = 5106 _StockProps = 71 @@ -1130,56 +1113,64 @@ Begin VB.Form FiberTrack Strikethrough = 0 'False EndProperty Reset_0 = 0 'False - CompatibleVers_0= 524288 + CompatibleVers_0= 196608 Graph_0 = 1 ClassName_1 = "CCWGraphFrame" opts_1 = 30 + Bindings_1 = 2 + ClassName_2 = "CCWBindingHolderArray" + Editor_2 = 3 + ClassName_3 = "CCWBindingHolderArrayEditor" + Owner_3 = 1 C[0]_1 = 12632256 C[1]_1 = 8421504 C[2]_1 = 8421376 - Event_1 = 2 - ClassName_2 = "CCWGFPlotEvent" - Owner_2 = 1 - Plots_1 = 3 - ClassName_3 = "CCWDataPlots" - Array_3 = 1 - Editor_3 = 4 - ClassName_4 = "CCWGFPlotArrayEditor" + Event_1 = 4 + ClassName_4 = "CCWGFPlotEvent" Owner_4 = 1 - Array[0]_3 = 5 - ClassName_5 = "CCWDataPlot" - opts_5 = 4194335 - Name_5 = "Plot-1" - C[0]_5 = 8388608 - C[1]_5 = 255 - C[2]_5 = 16711680 - C[3]_5 = 16776960 - Event_5 = 2 - X_5 = 6 - ClassName_6 = "CCWAxis" - opts_6 = 543 - Name_6 = "Time" - Orientation_6 = 2946 - format_6 = 7 - ClassName_7 = "CCWFormat" - Format_7 = "." - Scale_6 = 8 - ClassName_8 = "CCWScale" - opts_8 = 24576 - rMin_8 = 49 - rMax_8 = 621 - dMax_8 = 20 - discInterval_8 = 0.0017 - Radial_6 = 0 - Enum_6 = 9 - ClassName_9 = "CCWEnum" - Editor_9 = 10 - ClassName_10 = "CCWEnumArrayEditor" - Owner_10 = 6 - Font_6 = 11 - ClassName_11 = "CCWFont" - bFont_11 = -1 'True - BeginProperty Font_11 {0BE35203-8F91-11CE-9DE3-00AA004BB851} + Plots_1 = 5 + ClassName_5 = "CCWDataPlots" + Array_5 = 1 + Editor_5 = 6 + ClassName_6 = "CCWGFPlotArrayEditor" + Owner_6 = 1 + Array[0]_5 = 7 + ClassName_7 = "CCWDataPlot" + opts_7 = 4194335 + Name_7 = "Plot-1" + Bindings_7 = 0 + C[0]_7 = 8388608 + C[1]_7 = 255 + C[2]_7 = 16711680 + C[3]_7 = 16776960 + Event_7 = 4 + X_7 = 8 + ClassName_8 = "CCWAxis" + opts_8 = 543 + Name_8 = "Time" + Bindings_8 = 0 + Orientation_8 = 2946 + format_8 = 9 + ClassName_9 = "CCWFormat" + Format_9 = "." + Scale_8 = 10 + ClassName_10 = "CCWScale" + opts_10 = 24576 + Bindings_10 = 0 + rMin_10 = 49 + rMax_10 = 621 + dMax_10 = 20 + discInterval_10 = 0.0017 + Radial_8 = 0 + Enum_8 = 11 + ClassName_11 = "CCWEnum" + Editor_11 = 12 + ClassName_12 = "CCWEnumArrayEditor" + Owner_12 = 8 + Font_8 = 13 + ClassName_13 = "CCWFont" + bFont_13 = -1 'True + BeginProperty Font_13 {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9 Charset = 0 @@ -1188,43 +1179,47 @@ Begin VB.Form FiberTrack Italic = 0 'False Strikethrough = 0 'False EndProperty - tickopts_6 = 1679 - major_6 = 10 - minor_6 = 10 - Caption_6 = 12 - ClassName_12 = "CCWDrawObj" - opts_12 = 30 - C[0]_12 = -2147483640 - Image_12 = 13 - ClassName_13 = "CCWTextImage" - szText_13 = "Elapsed Time Window(Minutes)" - font_13 = 0 - Animator_12 = 0 - Blinker_12 = 0 - Y_5 = 14 - ClassName_14 = "CCWAxis" - opts_14 = 543 - Name_14 = "Denier" - Orientation_14 = 2323 - format_14 = 15 - ClassName_15 = "CCWFormat" - Scale_14 = 16 - ClassName_16 = "CCWScale" - opts_16 = 57344 - rMin_16 = 29 - rMax_16 = 149 - dMax_16 = 200 - discInterval_16 = 1 - Radial_14 = 0 - Enum_14 = 17 - ClassName_17 = "CCWEnum" - Editor_17 = 18 - ClassName_18 = "CCWEnumArrayEditor" - Owner_18 = 14 - Font_14 = 19 - ClassName_19 = "CCWFont" - bFont_19 = -1 'True - BeginProperty Font_19 {0BE35203-8F91-11CE-9DE3-00AA004BB851} + tickopts_8 = 1679 + major_8 = 10 + minor_8 = 10 + Caption_8 = 14 + ClassName_14 = "CCWDrawObj" + opts_14 = 30 + Bindings_14 = 0 + C[0]_14 = -2147483640 + Image_14 = 15 + ClassName_15 = "CCWTextImage" + Bindings_15 = 0 + szText_15 = "Elapsed Time Window(Minutes)" + font_15 = 0 + Animator_14 = 0 + Blinker_14 = 0 + Y_7 = 16 + ClassName_16 = "CCWAxis" + opts_16 = 543 + Name_16 = "Denier" + Bindings_16 = 0 + Orientation_16 = 2323 + format_16 = 17 + ClassName_17 = "CCWFormat" + Scale_16 = 18 + ClassName_18 = "CCWScale" + opts_18 = 57344 + Bindings_18 = 0 + rMin_18 = 29 + rMax_18 = 149 + dMax_18 = 200 + discInterval_18 = 1 + Radial_16 = 0 + Enum_16 = 19 + ClassName_19 = "CCWEnum" + Editor_19 = 20 + ClassName_20 = "CCWEnumArrayEditor" + Owner_20 = 16 + Font_16 = 21 + ClassName_21 = "CCWFont" + bFont_21 = -1 'True + BeginProperty Font_21 {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Arial" Size = 9 Charset = 0 @@ -1233,212 +1228,155 @@ Begin VB.Form FiberTrack Italic = 0 'False Strikethrough = 0 'False EndProperty - tickopts_14 = 1679 - major_14 = 10 - minor_14 = 5 - Caption_14 = 20 - ClassName_20 = "CCWDrawObj" - opts_20 = 30 - C[0]_20 = -2147483640 - Image_20 = 21 - ClassName_21 = "CCWTextImage" - szText_21 = "Denier" - style_21 = 1 - font_21 = 0 - Animator_20 = 0 - Blinker_20 = 0 - LineStyle_5 = 1 - LineWidth_5 = 1 - BasePlot_5 = 0 - DefaultXInc_5 = 1 - DefaultPlotPerRow_5= -1 'True - Axes_1 = 22 - ClassName_22 = "CCWAxes" - Array_22 = 2 - Editor_22 = 23 - ClassName_23 = "CCWGFAxisArrayEditor" - Owner_23 = 1 - Array[0]_22 = 6 - Array[1]_22 = 14 - DefaultPlot_1 = 24 - ClassName_24 = "CCWDataPlot" - opts_24 = 4194335 - Name_24 = "[Template]" - C[0]_24 = 8421376 - C[1]_24 = 255 - C[2]_24 = 16711680 - C[3]_24 = 16776960 - Event_24 = 2 - X_24 = 6 - Y_24 = 14 - LineStyle_24 = 4 - LineWidth_24 = 1 - BasePlot_24 = 0 - DefaultXInc_24 = 1 - DefaultPlotPerRow_24= -1 'True - Cursors_1 = 25 - ClassName_25 = "CCWCursors" - Array_25 = 3 - Editor_25 = 26 - ClassName_26 = "CCWGFCursorArrayEditor" - Owner_26 = 1 - Array[0]_25 = 27 - ClassName_27 = "CCWCursor" - opts_27 = 31 - Name_27 = "Target_Denier" - C[0]_27 = 65280 - Event_27 = 2 - X_27 = 6 - Y_27 = 14 - XPos_27 = 1 - YPos_27 = 100 - PointIndex_27 = -1 - ChrosshairStyle_27= 6 - LockPlot_27 = 0 - Array[1]_25 = 28 - ClassName_28 = "CCWCursor" - opts_28 = 31 - Name_28 = "Plus_Tol" - C[0]_28 = 255 - Event_28 = 2 - X_28 = 6 - Y_28 = 14 - XPos_28 = 24.8 - YPos_28 = 50 - PointIndex_28 = -1 - ChrosshairStyle_28= 6 - LockPlot_28 = 0 - Array[2]_25 = 29 + tickopts_16 = 1679 + major_16 = 10 + minor_16 = 5 + Caption_16 = 22 + ClassName_22 = "CCWDrawObj" + opts_22 = 30 + Bindings_22 = 0 + C[0]_22 = -2147483640 + Image_22 = 23 + ClassName_23 = "CCWTextImage" + Bindings_23 = 0 + szText_23 = "Denier" + style_23 = 1 + font_23 = 0 + Animator_22 = 0 + Blinker_22 = 0 + LineStyle_7 = 1 + LineWidth_7 = 1 + BasePlot_7 = 0 + DefaultXInc_7 = 1 + DefaultPlotPerRow_7= -1 'True + Axes_1 = 24 + ClassName_24 = "CCWAxes" + Array_24 = 2 + Editor_24 = 25 + ClassName_25 = "CCWGFAxisArrayEditor" + Owner_25 = 1 + Array[0]_24 = 8 + Array[1]_24 = 16 + DefaultPlot_1 = 26 + ClassName_26 = "CCWDataPlot" + opts_26 = 4194335 + Name_26 = "[Template]" + Bindings_26 = 0 + C[0]_26 = 8421376 + C[1]_26 = 255 + C[2]_26 = 16711680 + C[3]_26 = 16776960 + Event_26 = 4 + X_26 = 8 + Y_26 = 16 + LineStyle_26 = 4 + LineWidth_26 = 1 + BasePlot_26 = 0 + DefaultXInc_26 = 1 + DefaultPlotPerRow_26= -1 'True + Cursors_1 = 27 + ClassName_27 = "CCWCursors" + Array_27 = 3 + Editor_27 = 28 + ClassName_28 = "CCWGFCursorArrayEditor" + Owner_28 = 1 + Array[0]_27 = 29 ClassName_29 = "CCWCursor" opts_29 = 31 - Name_29 = "Minus_Tol" - C[0]_29 = 255 - Event_29 = 2 - X_29 = 6 - Y_29 = 14 - XPos_29 = 36.7 - YPos_29 = 150 + Name_29 = "Target_Denier" + Bindings_29 = 0 + C[0]_29 = 65280 + Event_29 = 4 + X_29 = 8 + Y_29 = 16 + XPos_29 = 1 + YPos_29 = 100 PointIndex_29 = -1 ChrosshairStyle_29= 6 LockPlot_29 = 0 + Array[1]_27 = 30 + ClassName_30 = "CCWCursor" + opts_30 = 31 + Name_30 = "Plus_Tol" + Bindings_30 = 0 + C[0]_30 = 255 + Event_30 = 4 + X_30 = 8 + Y_30 = 16 + XPos_30 = 24.8 + YPos_30 = 50 + PointIndex_30 = -1 + ChrosshairStyle_30= 6 + LockPlot_30 = 0 + Array[2]_27 = 31 + ClassName_31 = "CCWCursor" + opts_31 = 31 + Name_31 = "Minus_Tol" + Bindings_31 = 0 + C[0]_31 = 255 + Event_31 = 4 + X_31 = 8 + Y_31 = 16 + XPos_31 = 36.7 + YPos_31 = 150 + PointIndex_31 = -1 + ChrosshairStyle_31= 6 + LockPlot_31 = 0 TrackMode_1 = 2 GraphBackground_1= 0 - GraphFrame_1 = 30 - ClassName_30 = "CCWDrawObj" - opts_30 = 30 - C[0]_30 = 8421504 - C[1]_30 = 8421504 - Image_30 = 31 - ClassName_31 = "CCWPictImage" - opts_31 = 1280 - Rows_31 = 1 - Cols_31 = 1 - F_31 = 8421504 - B_31 = 8421504 - ColorReplaceWith_31= 8421504 - ColorReplace_31 = 8421504 - Tolerance_31 = 2 - Animator_30 = 0 - Blinker_30 = 0 - PlotFrame_1 = 32 + GraphFrame_1 = 32 ClassName_32 = "CCWDrawObj" opts_32 = 30 + Bindings_32 = 0 C[0]_32 = 8421504 - C[1]_32 = 12632256 + C[1]_32 = 8421504 Image_32 = 33 ClassName_33 = "CCWPictImage" opts_33 = 1280 + Bindings_33 = 0 Rows_33 = 1 Cols_33 = 1 - Pict_33 = 1 F_33 = 8421504 - B_33 = 12632256 + B_33 = 8421504 ColorReplaceWith_33= 8421504 ColorReplace_33 = 8421504 Tolerance_33 = 2 Animator_32 = 0 Blinker_32 = 0 - Caption_1 = 34 + PlotFrame_1 = 34 ClassName_34 = "CCWDrawObj" opts_34 = 30 - C[0]_34 = -2147483640 + Bindings_34 = 0 + C[0]_34 = 8421504 + C[1]_34 = 12632256 Image_34 = 35 - ClassName_35 = "CCWTextImage" - szText_35 = "Online plot of average Orientation" - font_35 = 0 + ClassName_35 = "CCWPictImage" + opts_35 = 1280 + Bindings_35 = 0 + Rows_35 = 1 + Cols_35 = 1 + Pict_35 = 1 + F_35 = 8421504 + B_35 = 12632256 + ColorReplaceWith_35= 8421504 + ColorReplace_35 = 8421504 + Tolerance_35 = 2 Animator_34 = 0 Blinker_34 = 0 + Caption_1 = 36 + ClassName_36 = "CCWDrawObj" + opts_36 = 30 + Bindings_36 = 0 + C[0]_36 = -2147483640 + Image_36 = 37 + ClassName_37 = "CCWTextImage" + Bindings_37 = 0 + szText_37 = "Online plot of average Orientation" + font_37 = 0 + Animator_36 = 0 + Blinker_36 = 0 DefaultXInc_1 = 1 DefaultPlotPerRow_1= -1 'True - Bindings_1 = 36 - ClassName_36 = "CCWBindingHolderArray" - Editor_36 = 37 - ClassName_37 = "CCWBindingHolderArrayEditor" - Owner_37 = 1 - Annotations_1 = 38 - ClassName_38 = "CCWAnnotations" - Editor_38 = 39 - ClassName_39 = "CCWAnnotationArrayEditor" - Owner_39 = 1 - AnnotationTemplate_1= 40 - ClassName_40 = "CCWAnnotation" - opts_40 = 63 - Name_40 = "[Template]" - Plot_40 = 24 - Text_40 = "[Template]" - TextXPoint_40 = 13.4 - TextYPoint_40 = 13.4 - TextColor_40 = 16777215 - TextFont_40 = 41 - ClassName_41 = "CCWFont" - bFont_41 = -1 'True - BeginProperty Font_41 {0BE35203-8F91-11CE-9DE3-00AA004BB851} - Name = "Courier New" - Size = 9.75 - Charset = 0 - Weight = 400 - Underline = 0 'False - Italic = -1 'True - Strikethrough = 0 'False - EndProperty - ShapeXPoints_40 = 42 - ClassName_42 = "CDataBuffer" - Type_42 = 5 - m_cDims;_42 = 1 - m_cElts_42 = 1 - Element[0]_42 = 6.6 - ShapeYPoints_40 = 43 - ClassName_43 = "CDataBuffer" - Type_43 = 5 - m_cDims;_43 = 1 - m_cElts_43 = 1 - Element[0]_43 = 6.6 - ShapeFillColor_40= 16777215 - ShapeLineColor_40= 16777215 - ShapeLineWidth_40= 1 - ShapeLineStyle_40= 1 - ShapePointStyle_40= 10 - ShapeImage_40 = 44 - ClassName_44 = "CCWDrawObj" - opts_44 = 62 - Image_44 = 45 - ClassName_45 = "CCWPictImage" - opts_45 = 1280 - Rows_45 = 1 - Cols_45 = 1 - Pict_45 = 7 - F_45 = -2147483633 - B_45 = -2147483633 - ColorReplaceWith_45= 8421504 - ColorReplace_45 = 8421504 - Tolerance_45 = 2 - Animator_44 = 0 - Blinker_44 = 0 - ArrowVisible_40 = -1 'True - ArrowColor_40 = 16777215 - ArrowWidth_40 = 1 - ArrowLineStyle_40= 1 - ArrowHeadStyle_40= 1 End Begin VB.PictureBox picSetup BackColor = &H8000000C& @@ -1650,6 +1588,10 @@ Begin VB.Form FiberTrack Begin VB.Menu mnuFileSep3 Caption = "-" End + Begin VB.Menu Restart + Caption = "&Restart" + Shortcut = ^R + End Begin VB.Menu mnuExit Caption = "E&xit" End @@ -1997,7 +1939,7 @@ On Error GoTo cmdComPort_err_hdr End Select Exit Sub cmdComPort_err_hdr: - MsgBox "Error Number = " & Str(Err.Number) & ", " & Err.Description & ", " & Err.Source, vbExclamation, "Save Settings File Error, cmdComPort" + MsgBox "Error Number = " & str(Err.Number) & ", " & Err.Description & ", " & Err.Source, vbExclamation, "Save Settings File Error, cmdComPort" fraSetup.Enabled = True cmdDone.Enabled = True End Sub @@ -2014,10 +1956,7 @@ On Error GoTo Current_Err_Hdr comDialog3.DialogTitle = "Save Current Report" comDialog3.Filter = "Text File (*.txt)| *.txt" comDialog3.FilterIndex = 1 - comDialog3.Flags = cdlOFNExplorer Or _ - cdlOFNExtensionDifferent Or _ - cdlOFNNoChangeDir Or _ - cdlOFNHideReadOnly + comDialog3.Flags = cdlOFNExplorer Or cdlOFNExtensionDifferent Or cdlOFNNoChangeDir Or cdlOFNHideReadOnly comDialog3.ShowOpen Open comDialog2.FileName For Output As #localFileNamesNumber @@ -2326,7 +2265,7 @@ On Error GoTo cmdOkPC_err_hdr cmdDone.Enabled = True Exit Sub cmdOkPC_err_hdr: - MsgBox "Error Number = " & Str(Err.Number) & ", " & Err.Description & ", " & Err.Source, vbExclamation, "Error, cmdOkPC FiberTrack" + MsgBox "Error Number = " & str(Err.Number) & ", " & Err.Description & ", " & Err.Source, vbExclamation, "Error, cmdOkPC FiberTrack" End Sub Private Sub cmdParDD_Click(index As Integer) @@ -2736,14 +2675,14 @@ On Error GoTo fibertrack_err_rtn cmdPrint.ToolTipText = "Click here to print the current screen image." cmdCurrent.ToolTipText = "Click here to print the current run results." - SensorColors(1) = vbBlue - SensorColors(2) = vbRed - SensorColors(3) = vbYellow - SensorColors(4) = vbGreen - SensorColors(5) = vbCyan - SensorColors(6) = vbMagenta - SensorColors(7) = 33023 ' 33023 = orange - SensorColors(8) = 8421440 ' 8421440 = darker green + SensorColors(1) = RGB(0, 0, 255) ' Blue + SensorColors(2) = RGB(204, 0, 0) ' Red + SensorColors(3) = RGB(204, 255, 0) ' Yellow + SensorColors(4) = RGB(0, 102, 0) ' Green + SensorColors(5) = RGB(0, 255, 204) ' Cyan + SensorColors(6) = RGB(204, 0, 153) ' Magenta + SensorColors(7) = RGB(204, 102, 0) ' Orange + SensorColors(8) = RGB(0, 51, 0) ' Darker Green For iY = 1 To 8 lblThreadLine(iY).BackColor = SensorColors(iY) lblThreadLine(iY).Caption = GetIniSetting("Application", "NameOfThreadLine") ' CHANGED @@ -2960,7 +2899,7 @@ fibertrack_err_rtn: If Err.Number = 53 Then Exit Sub '53 = file not found End If - MsgBox "Error Number = " & Str(Err.Number) & ", " & Err.Description & ", " & Err.Source, vbExclamation, "Open File Error, Form_Load" + MsgBox "Error Number = " & str(Err.Number) & ", " & Err.Description & ", " & Err.Source, vbExclamation, "Open File Error, Form_Load" End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) @@ -3069,9 +3008,7 @@ On Error GoTo form_unload_err_hdr Exit Sub form_unload_err_hdr: - MsgBox "Error Number = " & Str(Err.Number) & ", " _ - & Err.Description & ", " & Err.Source, vbExclamation, _ - "Form_Unload DataFile Error, FiberTrack" + MsgBox "Error Number = " & str(Err.Number) & ", " & Err.Description & ", " & Err.Source, vbExclamation, "Form_Unload DataFile Error, FiberTrack" End Exit Sub End Sub @@ -3242,7 +3179,7 @@ On Error GoTo init_err_rtn Call ProcessSensorInit(index) 'Process packet Else Text1(index).Text = "No Response" - Command(index).BackColor = &H8080FF + Command(index).BackColor = RGB(255, 75, 75) ' Red SensorInfos(index).Highest = Calibration_Denier SensorInfos(index).Lowest = Calibration_Denier SensorInfos(index).Enabled = False @@ -3267,7 +3204,7 @@ On Error GoTo init_err_rtn Exit Sub '*******************Sensors initialized******************** init_err_rtn: - MsgBox "Error Number = " & Str(Err.Number) & ", " & Err.Description & ", " & Err.Source, vbExclamation, "Initialization Error, Initialization FiberTrack" + MsgBox "Error Number = " & str(Err.Number) & ", " & Err.Description & ", " & Err.Source, vbExclamation, "Initialization Error, Initialization FiberTrack" Exit Sub End Sub @@ -3295,11 +3232,7 @@ On Error GoTo lblThreadLine_err_hdr lblThreadLine_err_hdr: 'cdlCancel = Cancel button clicked If Err.Number = cdlCancel Then Exit Sub - - MsgBox "Error Number = " & Str(Err.Number) & ", " _ - & Err.Description & ", " & Err.Source, vbExclamation, _ - "FiberTrack, lblThreadLine_Click" - + MsgBox "Error Number = " & str(Err.Number) & ", " & Err.Description & ", " & Err.Source, vbExclamation, "FiberTrack, lblThreadLine_Click" End Sub Private Sub mnuAbout_Click() @@ -3332,6 +3265,11 @@ Private Sub mnuExcel_Click() Unload PlotData End Sub +Private Sub Restart_Click() + Call Shell(App.Path & "\" & App.EXEName & ".exe", vbNormalFocus) + Unload Me +End Sub + Private Sub mnuExit_Click() Unload Me End Sub @@ -3411,12 +3349,7 @@ On Error GoTo mnuOpen_err_hdr comDialog2.DialogTitle = "Open Settings" comDialog2.Filter = "FiberTrack Setup File (*.sup)|*.sup|FiberTrack Default Settings (" & SETUP_FILENAME & ")|" & SETUP_FILENAME & "|All Files (*.*)|*.*" comDialog2.FilterIndex = 1 - - comDialog2.Flags = cdlOFNExplorer Or _ - cdlOFNExtensionDifferent Or _ - cdlOFNNoChangeDir Or _ - cdlOFNHideReadOnly - + comDialog2.Flags = cdlOFNExplorer Or cdlOFNExtensionDifferent Or cdlOFNNoChangeDir Or cdlOFNHideReadOnly comDialog2.ShowOpen @@ -3511,10 +3444,7 @@ mnuOpen_err_hdr: If Err.Number = cdlCancel Then Exit Sub End If - - MsgBox "Error Number = " & Str(Err.Number) & ", " _ - & Err.Description & ", " & Err.Source, vbExclamation, _ - "Open Setup File Error, mnuOpen FiberTrack" + MsgBox "Error Number = " & str(Err.Number) & ", " & Err.Description & ", " & Err.Source, vbExclamation, "Open Setup File Error, mnuOpen FiberTrack" End Sub Private Sub mnuOpenDataFile_Click() @@ -3565,7 +3495,7 @@ mnuPrint_err_hdr: Exit Sub End If - MsgBox "Error Number = " & Str(Err.Number) & ", " & Err.Description & ", " & Err.Source, vbExclamation, "Print error, mnuPrint" + MsgBox "Error Number = " & str(Err.Number) & ", " & Err.Description & ", " & Err.Source, vbExclamation, "Print error, mnuPrint" End Sub @@ -3605,7 +3535,7 @@ On Error GoTo mnuSave_err_hdr mnuSave_err_hdr: If Err.Number = cdlCancel Then Exit Sub 'Cancel button in Common Dialog - MsgBox "Error Number = " & Str(Err.Number) & ", " & Err.Description & ", " & Err.Source, vbExclamation, "Save Setup File Error, mnuSave" + MsgBox "Error Number = " & str(Err.Number) & ", " & Err.Description & ", " & Err.Source, vbExclamation, "Save Setup File Error, mnuSave" End Sub @@ -4276,10 +4206,10 @@ On Error GoTo mnuText_err_hdr Exit Sub mnuText_err_hdr: If Err.Number = 75 Then - MsgBox "Please Open Setup File. Error Number = " & Str(Err.Number) & ", " & Err.Description & ", " & Err.Source, vbExclamation, "Open Setup File Error, PrintSetupFile" + MsgBox "Please Open Setup File. Error Number = " & str(Err.Number) & ", " & Err.Description & ", " & Err.Source, vbExclamation, "Open Setup File Error, PrintSetupFile" Exit Sub End If - MsgBox "Error Number = " & Str(Err.Number) & ", " & Err.Description & ", " & Err.Source, vbExclamation, "Open Setup File Error, PrintSetupFile" + MsgBox "Error Number = " & str(Err.Number) & ", " & Err.Description & ", " & Err.Source, vbExclamation, "Open Setup File Error, PrintSetupFile" End Sub 'Copy comm buffer contents to sensor data array and verify the Sensor data packet. @@ -4404,9 +4334,11 @@ On Error Resume Next 'Check limits V1.7 If (localAverage <= Target_Denier + Target_Denier * (Target_denier_tol / 100)) And (localAverage >= Target_Denier - Target_Denier * (Target_denier_tol / 100)) Then - Text1(sensorIndex).BackColor = &HC0C0C0 + Text1(sensorIndex).BackColor = RGB(216, 216, 216) ' RGB_SILVER + Text1(sensorIndex).ForeColor = RGB(12, 12, 12) ' Black Else - Text1(sensorIndex).BackColor = &H8080FF + Text1(sensorIndex).BackColor = RGB(255, 75, 75) ' Red + Text1(sensorIndex).BackColor = RGB(242, 242, 242) ' light gray End If Else Text1(sensorIndex).Text = "Comm Err" @@ -4437,10 +4369,13 @@ Private Sub ProcessSensorInit(sensorIndex As Integer) Next index SensorInfos(sensorIndex).Online = True Text1(sensorIndex).Text = "Online" 'Update display button + Text1(sensorIndex).BackColor = RGB(216, 216, 216) ' RGB_SILVER + Text1(sensorIndex).ForeColor = RGB(12, 12, 12) ' Black Else SensorInfos(sensorIndex).Online = False Text1(sensorIndex).Text = "No Comm" - Command(sensorIndex).BackColor = &H8080FF + Command(sensorIndex).BackColor = RGB(255, 75, 75) ' Red + Text1(sensorIndex).ForeColor = RGB(242, 242, 242) ' light gray End If End Sub @@ -4567,7 +4502,7 @@ Current_Err_Hdr: If Err.Number = cdlCancel Then Exit Sub End If - MsgBox "Error Number = " & Str(Err.Number) & ", " & Err.Description & ", " & Err.Source & ". Filename = " & comDialog2.FileName, vbExclamation, "File Error FiberTrack mnuCurrentReport" + MsgBox "Error Number = " & str(Err.Number) & ", " & Err.Description & ", " & Err.Source & ". Filename = " & comDialog2.FileName, vbExclamation, "File Error FiberTrack mnuCurrentReport" Exit Sub End Sub diff --git a/src/FiberTrack.frx b/src/FiberTrack.frx index 16cd8a3..a12616e 100644 Binary files a/src/FiberTrack.frx and b/src/FiberTrack.frx differ diff --git a/src/FiberTrack.vbp b/src/FiberTrack.vbp index 5ceaa31..9939b6d 100644 --- a/src/FiberTrack.vbp +++ b/src/FiberTrack.vbp @@ -1,8 +1,8 @@ Type=Exe -Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\..\..\..\WINDOWS\system32\stdole2.tlb#OLE Automation -Reference=*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#..\..\..\..\..\..\WINDOWS\system32\scrrun.dll#Microsoft Scripting Runtime -Reference=*\G{3F4DACA7-160D-11D2-A8E9-00104B365C9F}#5.5#0#..\..\..\..\..\..\WINDOWS\system32\vbscript.dll\3#Microsoft VBScript Regular Expressions 5.5 -Reference=*\G{8F6C7660-E8A1-11D0-B9B3-2A92D0000000}#1.0#0#..\..\..\..\..\..\WINDOWS\system32\SQLPARSE.DLL#Microsoft SQL Parser Object Library 1.0 +Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\..\..\WINDOWS\system32\stdole2.tlb#OLE Automation +Reference=*\G{420B2830-E718-11CF-893D-00A0C9054228}#1.0#0#..\..\..\WINDOWS\system32\scrrun.dll#Microsoft Scripting Runtime +Reference=*\G{3F4DACA7-160D-11D2-A8E9-00104B365C9F}#5.5#0#..\..\..\WINDOWS\system32\vbscript.dll\3#Microsoft VBScript Regular Expressions 5.5 +Reference=*\G{8F6C7660-E8A1-11D0-B9B3-2A92D0000000}#1.0#0#..\..\..\WINDOWS\system32\SQLPARSE.DLL#Microsoft SQL Parser Object Library 1.0 Object={D940E4E4-6079-11CE-88CB-0020AF6845F6}#1.6#0; cwui.ocx Object={648A5603-2C6E-101B-82B6-000000000014}#1.1#0; MSCOMM32.OCX Object={F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0; comdlg32.ocx diff --git a/src/FiberTrack.vbw b/src/FiberTrack.vbw index f71e946..6ef2f00 100644 --- a/src/FiberTrack.vbw +++ b/src/FiberTrack.vbw @@ -1,23 +1,23 @@ modGlobals = 66, 66, 441, 367, C -PlotData = 44, 44, 443, 410, C, 22, 22, 492, 323, C +PlotData = 44, 44, 1545, 881, , 22, 22, 492, 323, C FTComm = 154, 154, 553, 520, C modServices = 110, 110, 509, 476, C modComm = 66, 66, 465, 432, C -FTSendPacket = 88, 88, 463, 389, C -FTDataFile = 132, 132, 507, 433, C +FTSendPacket = 88, 88, 463, 389, +FTDataFile = 132, 0, 1105, 854, FTSetup = 22, 22, 421, 388, C modUnitTest = 44, 44, 419, 345, C modFileSystem = 88, 88, 487, 454, C FTDataLine = 0, 0, 399, 366, C BarChart = 198, 198, 1266, 648, C, 44, 44, 514, 345, C -frmAbout = 110, 110, 1178, 560, C, 22, 22, 492, 323, C +frmAbout = 110, 110, 1178, 560, C, 22, 22, 1227, 710, C modResource = 22, 22, 397, 323, C modUI = 132, 132, 531, 498, C -FTExcelController = 110, 110, 485, 411, C +FTExcelController = 131, 8, 1472, 755, FiberTrack = 44, 44, 778, 857, C, 66, 66, 721, 697, C modIni = 132, 132, 1200, 556, C modFunctions = 198, 198, 1266, 622, C EscapeSequence = 22, 22, 1090, 472, C SensorReportData = 110, 110, 1178, 560, C CWord = 66, 66, 1134, 490, C -CWords = 88, 88, 1156, 512, C +CWords = 88, 88, 1156, 512, diff --git a/src/PlotData.frm b/src/PlotData.frm index a664ea2..1f80954 100644 --- a/src/PlotData.frm +++ b/src/PlotData.frm @@ -5,26 +5,27 @@ Begin VB.Form PlotData BackColor = &H00808000& BorderStyle = 0 'None Caption = "Plot Data" - ClientHeight = 6405 - ClientLeft = 45 - ClientTop = 1575 - ClientWidth = 9480 + ClientHeight = 8340 + ClientLeft = 150 + ClientTop = 720 + ClientWidth = 11250 Icon = "PlotData.frx":0000 LinkTopic = "Form1" NegotiateMenus = 0 'False - ScaleHeight = 6405 - ScaleWidth = 9480 - StartUpPosition = 2 'CenterScreen + ScaleHeight = 8340 + ScaleWidth = 11250 + StartUpPosition = 3 'Windows Default + WindowState = 2 'Maximized Begin VB.Frame fraSensorCheck Appearance = 0 'Flat BackColor = &H80000005& Caption = "Please check " ForeColor = &H80000008& Height = 4215 - Left = 8160 + Left = 9840 TabIndex = 36 ToolTipText = "Please check the sensors to plot." - Top = 840 + Top = 960 Width = 1335 Begin VB.CommandButton cmdCancel Caption = "C&ancel" @@ -116,14 +117,14 @@ Begin VB.Form PlotData End End Begin CWUIControlsLib.CWGraph cwgLineChart - Height = 2295 + Height = 3375 Left = 840 TabIndex = 30 Top = 960 - Width = 8415 - _Version = 524288 - _ExtentX = 14843 - _ExtentY = 4048 + Width = 8895 + _Version = 196608 + _ExtentX = 15690 + _ExtentY = 5953 _StockProps = 71 BackColor = -2147483633 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} @@ -136,331 +137,288 @@ Begin VB.Form PlotData Strikethrough = 0 'False EndProperty Reset_0 = 0 'False - CompatibleVers_0= 524288 + CompatibleVers_0= 196608 Graph_0 = 1 ClassName_1 = "CCWGraphFrame" opts_1 = 30 + Bindings_1 = 2 + ClassName_2 = "CCWBindingHolderArray" + Editor_2 = 3 + ClassName_3 = "CCWBindingHolderArrayEditor" + Owner_3 = 1 C[0]_1 = 16777215 - Event_1 = 2 - ClassName_2 = "CCWGFPlotEvent" - Owner_2 = 1 - Plots_1 = 3 - ClassName_3 = "CCWDataPlots" - Array_3 = 4 - Editor_3 = 4 - ClassName_4 = "CCWGFPlotArrayEditor" + Event_1 = 4 + ClassName_4 = "CCWGFPlotEvent" Owner_4 = 1 - Array[0]_3 = 5 - ClassName_5 = "CCWDataPlot" - opts_5 = 4194335 - Name_5 = "Plot-1" - C[0]_5 = 255 - C[1]_5 = 65280 - C[2]_5 = 16711680 - C[3]_5 = 16711680 - Event_5 = 2 - X_5 = 6 - ClassName_6 = "CCWAxis" - opts_6 = 543 - Name_6 = "Time - Seconds" - Orientation_6 = 2944 - format_6 = 7 - ClassName_7 = "CCWFormat" - Scale_6 = 8 - ClassName_8 = "CCWScale" - opts_8 = 90112 - rMin_8 = 25 - rMax_8 = 550 - dMax_8 = 20 - discInterval_8 = 1 - Radial_6 = 0 - Enum_6 = 9 - ClassName_9 = "CCWEnum" - Editor_9 = 10 - ClassName_10 = "CCWEnumArrayEditor" - Owner_10 = 6 - Font_6 = 0 - tickopts_6 = 1679 - base_6 = 2 - major_6 = 10 - minor_6 = 5 - Caption_6 = 11 - ClassName_11 = "CCWDrawObj" - opts_11 = 30 - C[0]_11 = -2147483640 - Image_11 = 12 - ClassName_12 = "CCWTextImage" - font_12 = 0 - Animator_11 = 0 - Blinker_11 = 0 - Y_5 = 13 - ClassName_13 = "CCWAxis" - opts_13 = 1567 - Name_13 = "Denier" - Orientation_13 = 2067 - format_13 = 14 - ClassName_14 = "CCWFormat" - Scale_13 = 15 - ClassName_15 = "CCWScale" - opts_15 = 122880 - rMin_15 = 11 - rMax_15 = 126 - dMax_15 = 10 - discInterval_15 = 1 - Radial_13 = 0 - Enum_13 = 16 - ClassName_16 = "CCWEnum" - Editor_16 = 17 - ClassName_17 = "CCWEnumArrayEditor" - Owner_17 = 13 - Font_13 = 0 - tickopts_13 = 1679 - major_13 = 10 - minor_13 = 5 - Caption_13 = 18 - ClassName_18 = "CCWDrawObj" - opts_18 = 30 - C[0]_18 = -2147483640 - Image_18 = 19 - ClassName_19 = "CCWTextImage" - font_19 = 0 - Animator_18 = 0 - Blinker_18 = 0 - LineStyle_5 = 1 - LineWidth_5 = 2 - BasePlot_5 = 0 - DefaultXInc_5 = 1 - DefaultPlotPerRow_5= -1 'True - Array[1]_3 = 20 - ClassName_20 = "CCWDataPlot" - opts_20 = 4194335 - Name_20 = "Plot-2" - C[0]_20 = 16711680 - C[1]_20 = 255 - C[2]_20 = 16711680 - C[3]_20 = 16776960 - Event_20 = 2 - X_20 = 6 - Y_20 = 13 - LineStyle_20 = 1 - LineWidth_20 = 2 - BasePlot_20 = 0 - DefaultXInc_20 = 1 - DefaultPlotPerRow_20= -1 'True - Array[2]_3 = 21 - ClassName_21 = "CCWDataPlot" - opts_21 = 4194335 - Name_21 = "Plot-3" - C[0]_21 = 255 - C[1]_21 = 255 - C[2]_21 = 16711680 - C[3]_21 = 16776960 - Event_21 = 2 - X_21 = 6 - Y_21 = 13 - LineStyle_21 = 1 - LineWidth_21 = 2 - BasePlot_21 = 0 - DefaultXInc_21 = 1 - DefaultPlotPerRow_21= -1 'True - Array[3]_3 = 22 + Plots_1 = 5 + ClassName_5 = "CCWDataPlots" + Array_5 = 4 + Editor_5 = 6 + ClassName_6 = "CCWGFPlotArrayEditor" + Owner_6 = 1 + Array[0]_5 = 7 + ClassName_7 = "CCWDataPlot" + opts_7 = 4194335 + Name_7 = "Plot-1" + Bindings_7 = 0 + C[0]_7 = 255 + C[1]_7 = 65280 + C[2]_7 = 16711680 + C[3]_7 = 16711680 + Event_7 = 4 + X_7 = 8 + ClassName_8 = "CCWAxis" + opts_8 = 543 + Name_8 = "Time - Seconds" + Bindings_8 = 0 + Orientation_8 = 2944 + format_8 = 9 + ClassName_9 = "CCWFormat" + Scale_8 = 10 + ClassName_10 = "CCWScale" + opts_10 = 90112 + Bindings_10 = 0 + rMin_10 = 25 + rMax_10 = 582 + dMax_10 = 20 + discInterval_10 = 1 + Radial_8 = 0 + Enum_8 = 11 + ClassName_11 = "CCWEnum" + Editor_11 = 12 + ClassName_12 = "CCWEnumArrayEditor" + Owner_12 = 8 + Font_8 = 0 + tickopts_8 = 1679 + base_8 = 2 + major_8 = 10 + minor_8 = 5 + Caption_8 = 13 + ClassName_13 = "CCWDrawObj" + opts_13 = 30 + Bindings_13 = 0 + C[0]_13 = -2147483640 + Image_13 = 14 + ClassName_14 = "CCWTextImage" + Bindings_14 = 0 + font_14 = 0 + Animator_13 = 0 + Blinker_13 = 0 + Y_7 = 15 + ClassName_15 = "CCWAxis" + opts_15 = 1567 + Name_15 = "Denier" + Bindings_15 = 0 + Orientation_15 = 2067 + format_15 = 16 + ClassName_16 = "CCWFormat" + Scale_15 = 17 + ClassName_17 = "CCWScale" + opts_17 = 122880 + Bindings_17 = 0 + rMin_17 = 11 + rMax_17 = 198 + dMax_17 = 10 + discInterval_17 = 1 + Radial_15 = 0 + Enum_15 = 18 + ClassName_18 = "CCWEnum" + Editor_18 = 19 + ClassName_19 = "CCWEnumArrayEditor" + Owner_19 = 15 + Font_15 = 0 + tickopts_15 = 1679 + major_15 = 10 + minor_15 = 5 + Caption_15 = 20 + ClassName_20 = "CCWDrawObj" + opts_20 = 30 + Bindings_20 = 0 + C[0]_20 = -2147483640 + Image_20 = 21 + ClassName_21 = "CCWTextImage" + Bindings_21 = 0 + font_21 = 0 + Animator_20 = 0 + Blinker_20 = 0 + LineStyle_7 = 1 + LineWidth_7 = 2 + BasePlot_7 = 0 + DefaultXInc_7 = 1 + DefaultPlotPerRow_7= -1 'True + Array[1]_5 = 22 ClassName_22 = "CCWDataPlot" opts_22 = 4194335 - Name_22 = "Plot-4" - C[0]_22 = 255 - C[1]_22 = 65280 + Name_22 = "Plot-2" + Bindings_22 = 0 + C[0]_22 = 16711680 + C[1]_22 = 255 C[2]_22 = 16711680 - C[3]_22 = 16711680 - Event_22 = 2 - X_22 = 6 - Y_22 = 13 + C[3]_22 = 16776960 + Event_22 = 4 + X_22 = 8 + Y_22 = 15 LineStyle_22 = 1 LineWidth_22 = 2 BasePlot_22 = 0 DefaultXInc_22 = 1 DefaultPlotPerRow_22= -1 'True - Axes_1 = 23 - ClassName_23 = "CCWAxes" - Array_23 = 2 - Editor_23 = 24 - ClassName_24 = "CCWGFAxisArrayEditor" - Owner_24 = 1 - Array[0]_23 = 6 - Array[1]_23 = 13 - DefaultPlot_1 = 25 - ClassName_25 = "CCWDataPlot" - opts_25 = 4194335 - Name_25 = "[Template]" - C[0]_25 = 255 - C[1]_25 = 65280 - C[2]_25 = 16711680 - C[3]_25 = 16711680 - Event_25 = 2 - X_25 = 6 - Y_25 = 13 - LineStyle_25 = 1 - LineWidth_25 = 2 - BasePlot_25 = 0 - DefaultXInc_25 = 1 - DefaultPlotPerRow_25= -1 'True - Cursors_1 = 26 - ClassName_26 = "CCWCursors" - Array_26 = 2 - Editor_26 = 27 - ClassName_27 = "CCWGFCursorArrayEditor" - Owner_27 = 1 - Array[0]_26 = 28 - ClassName_28 = "CCWCursor" - opts_28 = 31 - Name_28 = "Cursor-1" - C[0]_28 = 255 - Event_28 = 2 - X_28 = 6 - Y_28 = 13 - XPos_28 = 2 - YPos_28 = 1 - PointIndex_28 = -1 - ChrosshairStyle_28= 8 - LockPlot_28 = 0 - Array[1]_26 = 29 - ClassName_29 = "CCWCursor" - opts_29 = 31 - Name_29 = "Cursor-2" - C[0]_29 = 16711680 - Event_29 = 2 - X_29 = 6 - Y_29 = 13 - XPos_29 = 4 - YPos_29 = 2 - PointIndex_29 = -1 - ChrosshairStyle_29= 8 - LockPlot_29 = 0 + Array[2]_5 = 23 + ClassName_23 = "CCWDataPlot" + opts_23 = 4194335 + Name_23 = "Plot-3" + Bindings_23 = 0 + C[0]_23 = 255 + C[1]_23 = 255 + C[2]_23 = 16711680 + C[3]_23 = 16776960 + Event_23 = 4 + X_23 = 8 + Y_23 = 15 + LineStyle_23 = 1 + LineWidth_23 = 2 + BasePlot_23 = 0 + DefaultXInc_23 = 1 + DefaultPlotPerRow_23= -1 'True + Array[3]_5 = 24 + ClassName_24 = "CCWDataPlot" + opts_24 = 4194335 + Name_24 = "Plot-4" + Bindings_24 = 0 + C[0]_24 = 255 + C[1]_24 = 65280 + C[2]_24 = 16711680 + C[3]_24 = 16711680 + Event_24 = 4 + X_24 = 8 + Y_24 = 15 + LineStyle_24 = 1 + LineWidth_24 = 2 + BasePlot_24 = 0 + DefaultXInc_24 = 1 + DefaultPlotPerRow_24= -1 'True + Axes_1 = 25 + ClassName_25 = "CCWAxes" + Array_25 = 2 + Editor_25 = 26 + ClassName_26 = "CCWGFAxisArrayEditor" + Owner_26 = 1 + Array[0]_25 = 8 + Array[1]_25 = 15 + DefaultPlot_1 = 27 + ClassName_27 = "CCWDataPlot" + opts_27 = 4194335 + Name_27 = "[Template]" + Bindings_27 = 0 + C[0]_27 = 255 + C[1]_27 = 65280 + C[2]_27 = 16711680 + C[3]_27 = 16711680 + Event_27 = 4 + X_27 = 8 + Y_27 = 15 + LineStyle_27 = 1 + LineWidth_27 = 2 + BasePlot_27 = 0 + DefaultXInc_27 = 1 + DefaultPlotPerRow_27= -1 'True + Cursors_1 = 28 + ClassName_28 = "CCWCursors" + Array_28 = 2 + Editor_28 = 29 + ClassName_29 = "CCWGFCursorArrayEditor" + Owner_29 = 1 + Array[0]_28 = 30 + ClassName_30 = "CCWCursor" + opts_30 = 31 + Name_30 = "Cursor-1" + Bindings_30 = 0 + C[0]_30 = 255 + Event_30 = 4 + X_30 = 8 + Y_30 = 15 + XPos_30 = 2 + YPos_30 = 1 + PointIndex_30 = -1 + ChrosshairStyle_30= 8 + LockPlot_30 = 0 + Array[1]_28 = 31 + ClassName_31 = "CCWCursor" + opts_31 = 31 + Name_31 = "Cursor-2" + Bindings_31 = 0 + C[0]_31 = 16711680 + Event_31 = 4 + X_31 = 8 + Y_31 = 15 + XPos_31 = 4 + YPos_31 = 2 + PointIndex_31 = -1 + ChrosshairStyle_31= 8 + LockPlot_31 = 0 TrackMode_1 = 6 GraphBackground_1= 0 - GraphFrame_1 = 30 - ClassName_30 = "CCWDrawObj" - opts_30 = 30 - Image_30 = 31 - ClassName_31 = "CCWPictImage" - opts_31 = 1280 - Rows_31 = 1 - Cols_31 = 1 - F_31 = -2147483633 - B_31 = -2147483633 - ColorReplaceWith_31= 8421504 - ColorReplace_31 = 8421504 - Tolerance_31 = 2 - Animator_30 = 0 - Blinker_30 = 0 - PlotFrame_1 = 32 + GraphFrame_1 = 32 ClassName_32 = "CCWDrawObj" opts_32 = 30 - C[1]_32 = 16777215 + Bindings_32 = 0 Image_32 = 33 ClassName_33 = "CCWPictImage" opts_33 = 1280 + Bindings_33 = 0 Rows_33 = 1 Cols_33 = 1 - Pict_33 = 1 F_33 = -2147483633 - B_33 = 16777215 + B_33 = -2147483633 ColorReplaceWith_33= 8421504 ColorReplace_33 = 8421504 Tolerance_33 = 2 Animator_32 = 0 Blinker_32 = 0 - Caption_1 = 34 + PlotFrame_1 = 34 ClassName_34 = "CCWDrawObj" opts_34 = 30 - C[0]_34 = -2147483640 + Bindings_34 = 0 + C[1]_34 = 16777215 Image_34 = 35 - ClassName_35 = "CCWTextImage" - font_35 = 0 + ClassName_35 = "CCWPictImage" + opts_35 = 1280 + Bindings_35 = 0 + Rows_35 = 1 + Cols_35 = 1 + Pict_35 = 1 + F_35 = -2147483633 + B_35 = 16777215 + ColorReplaceWith_35= 8421504 + ColorReplace_35 = 8421504 + Tolerance_35 = 2 Animator_34 = 0 Blinker_34 = 0 + Caption_1 = 36 + ClassName_36 = "CCWDrawObj" + opts_36 = 30 + Bindings_36 = 0 + C[0]_36 = -2147483640 + Image_36 = 37 + ClassName_37 = "CCWTextImage" + Bindings_37 = 0 + font_37 = 0 + Animator_36 = 0 + Blinker_36 = 0 DefaultXInc_1 = 1 DefaultPlotPerRow_1= -1 'True - Bindings_1 = 36 - ClassName_36 = "CCWBindingHolderArray" - Editor_36 = 37 - ClassName_37 = "CCWBindingHolderArrayEditor" - Owner_37 = 1 - Annotations_1 = 38 - ClassName_38 = "CCWAnnotations" - Editor_38 = 39 - ClassName_39 = "CCWAnnotationArrayEditor" - Owner_39 = 1 - AnnotationTemplate_1= 40 - ClassName_40 = "CCWAnnotation" - opts_40 = 63 - Name_40 = "[Template]" - Plot_40 = 25 - Text_40 = "[Template]" - TextXPoint_40 = 13.4 - TextYPoint_40 = 13.4 - TextColor_40 = 16777215 - TextFont_40 = 41 - ClassName_41 = "CCWFont" - bFont_41 = -1 'True - BeginProperty Font_41 {0BE35203-8F91-11CE-9DE3-00AA004BB851} - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ShapeXPoints_40 = 42 - ClassName_42 = "CDataBuffer" - Type_42 = 5 - m_cDims;_42 = 1 - m_cElts_42 = 1 - Element[0]_42 = 6.6 - ShapeYPoints_40 = 43 - ClassName_43 = "CDataBuffer" - Type_43 = 5 - m_cDims;_43 = 1 - m_cElts_43 = 1 - Element[0]_43 = 6.6 - ShapeFillColor_40= 16777215 - ShapeLineColor_40= 16777215 - ShapeLineWidth_40= 1 - ShapeLineStyle_40= 1 - ShapePointStyle_40= 10 - ShapeImage_40 = 44 - ClassName_44 = "CCWDrawObj" - opts_44 = 62 - Image_44 = 45 - ClassName_45 = "CCWPictImage" - opts_45 = 1280 - Rows_45 = 1 - Cols_45 = 1 - Pict_45 = 7 - F_45 = -2147483633 - B_45 = -2147483633 - ColorReplaceWith_45= 8421504 - ColorReplace_45 = 8421504 - Tolerance_45 = 2 - Animator_44 = 0 - Blinker_44 = 0 - ArrowVisible_40 = -1 'True - ArrowColor_40 = 16777215 - ArrowWidth_40 = 1 - ArrowLineStyle_40= 1 - ArrowHeadStyle_40= 1 End Begin VB.ComboBox cboomPlotData Height = 315 - Left = 1560 + Left = 1320 Style = 2 'Dropdown List TabIndex = 52 - Top = 5040 + Top = 7560 Width = 735 End Begin MSComDlg.CommonDialog comDialog1 - Left = 600 - Top = 3360 + Left = 1080 + Top = 4440 _ExtentX = 847 _ExtentY = 847 _Version = 393216 @@ -468,17 +426,17 @@ Begin VB.Form PlotData Begin VB.CommandButton cmdPrintForm Caption = "Print S&creen" Height = 495 - Left = 4320 + Left = 4440 TabIndex = 46 - Top = 3960 + Top = 5040 Width = 1095 End Begin VB.CommandButton cmdPlotData Caption = "&Plot Data File" Height = 495 - Left = 1560 + Left = 2040 TabIndex = 2 - Top = 3960 + Top = 5040 Width = 1095 End Begin VB.CommandButton cmdZoomOut @@ -486,15 +444,15 @@ Begin VB.Form PlotData Height = 495 Left = 5640 TabIndex = 31 - Top = 3960 + Top = 5040 Width = 1095 End Begin VB.Frame fraCursorMeas Caption = "Cursor Measurements" Height = 975 - Left = 7080 + Left = 7560 TabIndex = 25 - Top = 3960 + Top = 5040 Width = 1935 Begin VB.TextBox PeriodVal Height = 285 @@ -529,17 +487,17 @@ Begin VB.Form PlotData End Begin VB.TextBox YPosition Height = 285 - Left = 8160 + Left = 8640 TabIndex = 24 - Top = 5760 + Top = 6840 Width = 735 End Begin VB.Frame fraCursorInfo Caption = "Cursor Information" Height = 975 - Left = 7080 + Left = 7560 TabIndex = 20 - Top = 5160 + Top = 6240 Width = 1935 Begin VB.TextBox XPosition Height = 285 @@ -568,9 +526,9 @@ Begin VB.Form PlotData Begin VB.Frame fraGraphOps Caption = "Graph Operations" Height = 1335 - Left = 4440 + Left = 4920 TabIndex = 18 - Top = 4800 + Top = 5880 Width = 2415 Begin VB.OptionButton optCursorCood Caption = "Cursor Coodinates" @@ -602,7 +560,7 @@ Begin VB.Form PlotData TabIndex = 19 Top = 240 Width = 1815 - _Version = 524288 + _Version = 196608 _ExtentX = 3201 _ExtentY = 1720 _StockProps = 68 @@ -616,33 +574,24 @@ Begin VB.Form PlotData Strikethrough = 0 'False EndProperty Reset_0 = 0 'False - CompatibleVers_0= 524288 + CompatibleVers_0= 196608 Slider_0 = 1 ClassName_1 = "CCWSlider" opts_1 = 2078 + Bindings_1 = 2 + ClassName_2 = "CCWBindingHolderArray" + Editor_2 = 3 + ClassName_3 = "CCWBindingHolderArrayEditor" + Owner_3 = 1 C[0]_1 = -2147483643 - BGImg_1 = 2 - ClassName_2 = "CCWDrawObj" - opts_2 = 30 - Image_2 = 3 - ClassName_3 = "CCWPictImage" - opts_3 = 1280 - Rows_3 = 1 - Cols_3 = 1 - Pict_3 = 286 - F_3 = -2147483633 - B_3 = -2147483633 - ColorReplaceWith_3= 8421504 - ColorReplace_3 = 8421504 - Tolerance_3 = 2 - Animator_2 = 0 - Blinker_2 = 0 - BFImg_1 = 4 + BGImg_1 = 4 ClassName_4 = "CCWDrawObj" - opts_4 = 62 + opts_4 = 30 + Bindings_4 = 0 Image_4 = 5 ClassName_5 = "CCWPictImage" opts_5 = 1280 + Bindings_5 = 0 Rows_5 = 1 Cols_5 = 1 Pict_5 = 286 @@ -653,143 +602,162 @@ Begin VB.Form PlotData Tolerance_5 = 2 Animator_4 = 0 Blinker_4 = 0 - Label_1 = 6 + BFImg_1 = 6 ClassName_6 = "CCWDrawObj" - opts_6 = 30 - C[0]_6 = -2147483640 + opts_6 = 62 + Bindings_6 = 0 Image_6 = 7 - ClassName_7 = "CCWTextImage" - style_7 = 15878208 - font_7 = 0 + ClassName_7 = "CCWPictImage" + opts_7 = 1280 + Bindings_7 = 0 + Rows_7 = 1 + Cols_7 = 1 + Pict_7 = 286 + F_7 = -2147483633 + B_7 = -2147483633 + ColorReplaceWith_7= 8421504 + ColorReplace_7 = 8421504 + Tolerance_7 = 2 Animator_6 = 0 Blinker_6 = 0 - Border_1 = 8 + Label_1 = 8 ClassName_8 = "CCWDrawObj" - opts_8 = 28 + opts_8 = 30 + Bindings_8 = 0 + C[0]_8 = -2147483640 Image_8 = 9 - ClassName_9 = "CCWPictImage" - opts_9 = 1280 - Rows_9 = 1 - Cols_9 = 1 - Pict_9 = 25 - F_9 = -2147483633 - B_9 = -2147483633 - ColorReplaceWith_9= 8421504 - ColorReplace_9 = 8421504 - Tolerance_9 = 2 + ClassName_9 = "CCWTextImage" + Bindings_9 = 0 + style_9 = 15878208 + font_9 = 0 Animator_8 = 0 Blinker_8 = 0 - FillBound_1 = 10 - ClassName_10 = "CCWGuiObject" + Border_1 = 10 + ClassName_10 = "CCWDrawObj" opts_10 = 28 - FillTok_1 = 11 - ClassName_11 = "CCWGuiObject" - opts_11 = 30 - Axis_1 = 12 - ClassName_12 = "CCWAxis" - opts_12 = 1055 - Name_12 = "Axis" - Orientation_12 = 133523 - format_12 = 13 - ClassName_13 = "CCWFormat" - Scale_12 = 14 - ClassName_14 = "CCWScale" - opts_14 = 24576 - rMin_14 = 10 - rMax_14 = 54 - dMin_14 = 1 - dMax_14 = 3 - discInterval_14 = 1 - Radial_12 = 0 - Enum_12 = 15 - ClassName_15 = "CCWEnum" - Array_15 = 3 - Editor_15 = 16 - ClassName_16 = "CCWEnumArrayEditor" - Owner_16 = 12 - Array[0]_15 = 17 - ClassName_17 = "CCWEnumElt" - opts_17 = 1 - Name_17 = "Zoom" - DrawList_17 = 0 - varVarType_17 = 2 - Array[1]_15 = 18 - ClassName_18 = "CCWEnumElt" - opts_18 = 1 - Name_18 = "Pan" - DrawList_18 = 0 - varVarType_18 = 2 - var_Val_18 = 1 - Array[2]_15 = 19 + Bindings_10 = 0 + Image_10 = 11 + ClassName_11 = "CCWPictImage" + opts_11 = 1280 + Bindings_11 = 0 + Rows_11 = 1 + Cols_11 = 1 + Pict_11 = 25 + F_11 = -2147483633 + B_11 = -2147483633 + ColorReplaceWith_11= 8421504 + ColorReplace_11 = 8421504 + Tolerance_11 = 2 + Animator_10 = 0 + Blinker_10 = 0 + FillBound_1 = 12 + ClassName_12 = "CCWGuiObject" + opts_12 = 28 + Bindings_12 = 0 + FillTok_1 = 13 + ClassName_13 = "CCWGuiObject" + opts_13 = 30 + Bindings_13 = 0 + Axis_1 = 14 + ClassName_14 = "CCWAxis" + opts_14 = 1055 + Name_14 = "Axis" + Bindings_14 = 0 + Orientation_14 = 133523 + format_14 = 15 + ClassName_15 = "CCWFormat" + Scale_14 = 16 + ClassName_16 = "CCWScale" + opts_16 = 24576 + Bindings_16 = 0 + rMin_16 = 10 + rMax_16 = 54 + dMin_16 = 1 + dMax_16 = 3 + discInterval_16 = 1 + Radial_14 = 0 + Enum_14 = 17 + ClassName_17 = "CCWEnum" + Array_17 = 3 + Editor_17 = 18 + ClassName_18 = "CCWEnumArrayEditor" + Owner_18 = 14 + Array[0]_17 = 19 ClassName_19 = "CCWEnumElt" opts_19 = 1 - Name_19 = "Cursor Coordinates" + Name_19 = "Zoom" + Bindings_19 = 0 DrawList_19 = 0 varVarType_19 = 2 - var_Val_19 = 2 - Font_12 = 0 - tickopts_12 = 2718 - Caption_12 = 20 - ClassName_20 = "CCWDrawObj" - opts_20 = 30 - C[0]_20 = -2147483640 - Image_20 = 21 - ClassName_21 = "CCWTextImage" - font_21 = 0 - Animator_20 = 0 - Blinker_20 = 0 - DrawLst_1 = 22 - ClassName_22 = "CDrawList" - count_22 = 10 - list[10]_22 = 8 - list[9]_22 = 23 - ClassName_23 = "CCWThumb" - opts_23 = 31 - Name_23 = "Pointer-1" - C[0]_23 = 8388608 - C[1]_23 = 8388608 - C[2]_23 = -2147483635 - Image_23 = 24 - ClassName_24 = "CCWPictImage" - opts_24 = 1280 - Rows_24 = 1 - Cols_24 = 1 - Pict_24 = 213 - F_24 = 8388608 - B_24 = 8388608 - ColorReplaceWith_24= 8421504 - ColorReplace_24 = 8421504 - Tolerance_24 = 2 - Animator_23 = 0 - Blinker_23 = 0 - style_23 = 1 - Value_23 = 1 - Fill_23 = 25 - ClassName_25 = "CCWDrawObj" - opts_25 = 62 + Array[1]_17 = 20 + ClassName_20 = "CCWEnumElt" + opts_20 = 1 + Name_20 = "Pan" + Bindings_20 = 0 + DrawList_20 = 0 + varVarType_20 = 2 + var_Val_20 = 1 + Array[2]_17 = 21 + ClassName_21 = "CCWEnumElt" + opts_21 = 1 + Name_21 = "Cursor Coordinates" + Bindings_21 = 0 + DrawList_21 = 0 + varVarType_21 = 2 + var_Val_21 = 2 + Font_14 = 0 + tickopts_14 = 2718 + Caption_14 = 22 + ClassName_22 = "CCWDrawObj" + opts_22 = 30 + Bindings_22 = 0 + C[0]_22 = -2147483640 + Image_22 = 23 + ClassName_23 = "CCWTextImage" + Bindings_23 = 0 + font_23 = 0 + Animator_22 = 0 + Blinker_22 = 0 + DrawLst_1 = 24 + ClassName_24 = "CDrawList" + count_24 = 10 + list[10]_24 = 10 + list[9]_24 = 25 + ClassName_25 = "CCWThumb" + opts_25 = 31 + Name_25 = "Pointer-1" + Bindings_25 = 0 + C[0]_25 = 8388608 + C[1]_25 = 8388608 + C[2]_25 = -2147483635 Image_25 = 26 ClassName_26 = "CCWPictImage" opts_26 = 1280 + Bindings_26 = 0 Rows_26 = 1 Cols_26 = 1 - Pict_26 = 286 - F_26 = -2147483633 - B_26 = -2147483633 + Pict_26 = 213 + F_26 = 8388608 + B_26 = 8388608 ColorReplaceWith_26= 8421504 ColorReplace_26 = 8421504 Tolerance_26 = 2 Animator_25 = 0 Blinker_25 = 0 - list[8]_22 = 12 - list[7]_22 = 6 - list[6]_22 = 11 - list[5]_22 = 4 - list[4]_22 = 27 + style_25 = 1 + Value_25 = 1 + list[8]_24 = 14 + list[7]_24 = 8 + list[6]_24 = 13 + list[5]_24 = 6 + list[4]_24 = 27 ClassName_27 = "CCWDrawObj" opts_27 = 30 + Bindings_27 = 0 Image_27 = 28 ClassName_28 = "CCWPictImage" opts_28 = 1280 + Bindings_28 = 0 Rows_28 = 1 Cols_28 = 1 Pict_28 = 7 @@ -800,12 +768,14 @@ Begin VB.Form PlotData Tolerance_28 = 2 Animator_27 = 0 Blinker_27 = 0 - list[3]_22 = 29 + list[3]_24 = 29 ClassName_29 = "CCWDrawObj" opts_29 = 30 + Bindings_29 = 0 Image_29 = 30 ClassName_30 = "CCWPictImage" opts_30 = 1280 + Bindings_30 = 0 Rows_30 = 1 Cols_30 = 1 Pict_30 = 96 @@ -816,12 +786,14 @@ Begin VB.Form PlotData Tolerance_30 = 2 Animator_29 = 0 Blinker_29 = 0 - list[2]_22 = 31 + list[2]_24 = 31 ClassName_31 = "CCWDrawObj" opts_31 = 30 + Bindings_31 = 0 Image_31 = 32 ClassName_32 = "CCWPictImage" opts_32 = 1280 + Bindings_32 = 0 Rows_32 = 1 Cols_32 = 1 Pict_32 = 95 @@ -832,7 +804,7 @@ Begin VB.Form PlotData Tolerance_32 = 2 Animator_31 = 0 Blinker_31 = 0 - list[1]_22 = 2 + list[1]_24 = 4 IncDec_1 = 0 Ptrs_1 = 33 ClassName_33 = "CCWPointerArray" @@ -840,14 +812,10 @@ Begin VB.Form PlotData Editor_33 = 34 ClassName_34 = "CCWPointerArrayEditor" Owner_34 = 1 - Array[0]_33 = 23 - Bindings_1 = 35 - ClassName_35 = "CCWBindingHolderArray" - Editor_35 = 36 - ClassName_36 = "CCWBindingHolderArrayEditor" - Owner_36 = 1 - Stats_1 = 37 - ClassName_37 = "CCWStats" + Array[0]_33 = 25 + Stats_1 = 35 + ClassName_35 = "CCWStats" + Bindings_35 = 0 doInc_1 = 31 doDec_1 = 29 doFrame_1 = 27 @@ -856,17 +824,17 @@ Begin VB.Form PlotData Begin VB.CommandButton cmdBarChart Caption = "&Bar Chart" Height = 495 - Left = 3000 + Left = 3240 TabIndex = 17 - Top = 5640 + Top = 6480 Width = 1095 End Begin VB.CommandButton cmdLineChart Caption = "&Line Chart" Height = 495 - Left = 120 + Left = 840 TabIndex = 16 - Top = 3960 + Top = 5040 Width = 1095 End Begin CWUIControlsLib.CWGraph cwgBarChart @@ -875,7 +843,7 @@ Begin VB.Form PlotData TabIndex = 15 Top = 840 Width = 6615 - _Version = 524288 + _Version = 196608 _ExtentX = 11668 _ExtentY = 4048 _StockProps = 71 @@ -890,321 +858,275 @@ Begin VB.Form PlotData Strikethrough = 0 'False EndProperty Reset_0 = 0 'False - CompatibleVers_0= 524288 + CompatibleVers_0= 196608 Graph_0 = 1 ClassName_1 = "CCWGraphFrame" opts_1 = 30 + Bindings_1 = 2 + ClassName_2 = "CCWBindingHolderArray" + Editor_2 = 3 + ClassName_3 = "CCWBindingHolderArrayEditor" + Owner_3 = 1 C[0]_1 = 16777215 - Event_1 = 2 - ClassName_2 = "CCWGFPlotEvent" - Owner_2 = 1 - Plots_1 = 3 - ClassName_3 = "CCWDataPlots" - Array_3 = 1 - Editor_3 = 4 - ClassName_4 = "CCWGFPlotArrayEditor" + Event_1 = 4 + ClassName_4 = "CCWGFPlotEvent" Owner_4 = 1 - Array[0]_3 = 5 - ClassName_5 = "CCWDataPlot" - opts_5 = 7340063 - Name_5 = "Plot-1" - C[0]_5 = 16776960 - C[1]_5 = 255 - C[2]_5 = 16711680 - C[3]_5 = 16776960 - Event_5 = 2 - X_5 = 6 - ClassName_6 = "CCWAxis" - opts_6 = 1567 - Name_6 = "Time - Seconds" - Orientation_6 = 2944 - format_6 = 7 - ClassName_7 = "CCWFormat" - Scale_6 = 8 - ClassName_8 = "CCWScale" - opts_8 = 90112 - rMin_8 = 25 - rMax_8 = 430 - dMax_8 = 10 - discInterval_8 = 1 - Radial_6 = 0 - Enum_6 = 9 - ClassName_9 = "CCWEnum" - Editor_9 = 10 - ClassName_10 = "CCWEnumArrayEditor" - Owner_10 = 6 - Font_6 = 0 - tickopts_6 = 1679 - base_6 = 2 - major_6 = 10 - minor_6 = 5 - Caption_6 = 11 - ClassName_11 = "CCWDrawObj" - opts_11 = 30 - C[0]_11 = -2147483640 - Image_11 = 12 - ClassName_12 = "CCWTextImage" - font_12 = 0 - Animator_11 = 0 - Blinker_11 = 0 - Y_5 = 13 - ClassName_13 = "CCWAxis" - opts_13 = 1567 - Name_13 = "Denier" - Orientation_13 = 2067 - format_13 = 14 - ClassName_14 = "CCWFormat" - Scale_13 = 15 - ClassName_15 = "CCWScale" - opts_15 = 122880 - rMin_15 = 11 - rMax_15 = 126 - dMax_15 = 10 - discInterval_15 = 1 - Radial_13 = 0 - Enum_13 = 16 - ClassName_16 = "CCWEnum" - Editor_16 = 17 - ClassName_17 = "CCWEnumArrayEditor" - Owner_17 = 13 - Font_13 = 0 - tickopts_13 = 1679 - major_13 = 10 - minor_13 = 5 - Caption_13 = 18 - ClassName_18 = "CCWDrawObj" - opts_18 = 30 - C[0]_18 = -2147483640 - Image_18 = 19 - ClassName_19 = "CCWTextImage" - style_19 = 1 - font_19 = 0 - Animator_18 = 0 - Blinker_18 = 0 - LineStyle_5 = 2 - LineWidth_5 = 1 - BasePlot_5 = 0 - DefaultXInc_5 = 1 - DefaultPlotPerRow_5= -1 'True - Axes_1 = 20 - ClassName_20 = "CCWAxes" - Array_20 = 2 - Editor_20 = 21 - ClassName_21 = "CCWGFAxisArrayEditor" - Owner_21 = 1 - Array[0]_20 = 6 - Array[1]_20 = 13 - DefaultPlot_1 = 22 - ClassName_22 = "CCWDataPlot" - opts_22 = 7340063 - Name_22 = "[Template]" - C[0]_22 = 16776960 - C[1]_22 = 255 - C[2]_22 = 16711680 - C[3]_22 = 16776960 - Event_22 = 2 - X_22 = 6 - Y_22 = 13 - LineStyle_22 = 2 - LineWidth_22 = 1 - BasePlot_22 = 0 - DefaultXInc_22 = 1 - DefaultPlotPerRow_22= -1 'True - Cursors_1 = 23 - ClassName_23 = "CCWCursors" - Array_23 = 2 - Editor_23 = 24 - ClassName_24 = "CCWGFCursorArrayEditor" - Owner_24 = 1 - Array[0]_23 = 25 - ClassName_25 = "CCWCursor" - opts_25 = 31 - Name_25 = "Cursor-1" - C[0]_25 = 255 - Event_25 = 2 - X_25 = 6 - Y_25 = 13 - XPos_25 = 1 - YPos_25 = 1 - PointIndex_25 = -1 - ChrosshairStyle_25= 8 - LockPlot_25 = 0 - Array[1]_23 = 26 - ClassName_26 = "CCWCursor" - opts_26 = 31 - Name_26 = "Cursor-2" - C[0]_26 = 16711680 - Event_26 = 2 - X_26 = 6 - Y_26 = 13 - XPos_26 = 2 - YPos_26 = 2 - PointIndex_26 = -1 - ChrosshairStyle_26= 8 - LockPlot_26 = 0 + Plots_1 = 5 + ClassName_5 = "CCWDataPlots" + Array_5 = 1 + Editor_5 = 6 + ClassName_6 = "CCWGFPlotArrayEditor" + Owner_6 = 1 + Array[0]_5 = 7 + ClassName_7 = "CCWDataPlot" + opts_7 = 7340063 + Name_7 = "Plot-1" + Bindings_7 = 0 + C[0]_7 = 16776960 + C[1]_7 = 255 + C[2]_7 = 16711680 + C[3]_7 = 16776960 + Event_7 = 4 + X_7 = 8 + ClassName_8 = "CCWAxis" + opts_8 = 1567 + Name_8 = "Time - Seconds" + Bindings_8 = 0 + Orientation_8 = 2944 + format_8 = 9 + ClassName_9 = "CCWFormat" + Scale_8 = 10 + ClassName_10 = "CCWScale" + opts_10 = 90112 + Bindings_10 = 0 + rMin_10 = 25 + rMax_10 = 430 + dMax_10 = 10 + discInterval_10 = 1 + Radial_8 = 0 + Enum_8 = 11 + ClassName_11 = "CCWEnum" + Editor_11 = 12 + ClassName_12 = "CCWEnumArrayEditor" + Owner_12 = 8 + Font_8 = 0 + tickopts_8 = 1679 + base_8 = 2 + major_8 = 10 + minor_8 = 5 + Caption_8 = 13 + ClassName_13 = "CCWDrawObj" + opts_13 = 30 + Bindings_13 = 0 + C[0]_13 = -2147483640 + Image_13 = 14 + ClassName_14 = "CCWTextImage" + Bindings_14 = 0 + font_14 = 0 + Animator_13 = 0 + Blinker_13 = 0 + Y_7 = 15 + ClassName_15 = "CCWAxis" + opts_15 = 1567 + Name_15 = "Denier" + Bindings_15 = 0 + Orientation_15 = 2067 + format_15 = 16 + ClassName_16 = "CCWFormat" + Scale_15 = 17 + ClassName_17 = "CCWScale" + opts_17 = 122880 + Bindings_17 = 0 + rMin_17 = 11 + rMax_17 = 126 + dMax_17 = 10 + discInterval_17 = 1 + Radial_15 = 0 + Enum_15 = 18 + ClassName_18 = "CCWEnum" + Editor_18 = 19 + ClassName_19 = "CCWEnumArrayEditor" + Owner_19 = 15 + Font_15 = 0 + tickopts_15 = 1679 + major_15 = 10 + minor_15 = 5 + Caption_15 = 20 + ClassName_20 = "CCWDrawObj" + opts_20 = 30 + Bindings_20 = 0 + C[0]_20 = -2147483640 + Image_20 = 21 + ClassName_21 = "CCWTextImage" + Bindings_21 = 0 + style_21 = 1 + font_21 = 0 + Animator_20 = 0 + Blinker_20 = 0 + LineStyle_7 = 2 + LineWidth_7 = 1 + BasePlot_7 = 0 + DefaultXInc_7 = 1 + DefaultPlotPerRow_7= -1 'True + Axes_1 = 22 + ClassName_22 = "CCWAxes" + Array_22 = 2 + Editor_22 = 23 + ClassName_23 = "CCWGFAxisArrayEditor" + Owner_23 = 1 + Array[0]_22 = 8 + Array[1]_22 = 15 + DefaultPlot_1 = 24 + ClassName_24 = "CCWDataPlot" + opts_24 = 7340063 + Name_24 = "[Template]" + Bindings_24 = 0 + C[0]_24 = 16776960 + C[1]_24 = 255 + C[2]_24 = 16711680 + C[3]_24 = 16776960 + Event_24 = 4 + X_24 = 8 + Y_24 = 15 + LineStyle_24 = 2 + LineWidth_24 = 1 + BasePlot_24 = 0 + DefaultXInc_24 = 1 + DefaultPlotPerRow_24= -1 'True + Cursors_1 = 25 + ClassName_25 = "CCWCursors" + Array_25 = 2 + Editor_25 = 26 + ClassName_26 = "CCWGFCursorArrayEditor" + Owner_26 = 1 + Array[0]_25 = 27 + ClassName_27 = "CCWCursor" + opts_27 = 31 + Name_27 = "Cursor-1" + Bindings_27 = 0 + C[0]_27 = 255 + Event_27 = 4 + X_27 = 8 + Y_27 = 15 + XPos_27 = 1 + YPos_27 = 1 + PointIndex_27 = -1 + ChrosshairStyle_27= 8 + LockPlot_27 = 0 + Array[1]_25 = 28 + ClassName_28 = "CCWCursor" + opts_28 = 31 + Name_28 = "Cursor-2" + Bindings_28 = 0 + C[0]_28 = 16711680 + Event_28 = 4 + X_28 = 8 + Y_28 = 15 + XPos_28 = 2 + YPos_28 = 2 + PointIndex_28 = -1 + ChrosshairStyle_28= 8 + LockPlot_28 = 0 TrackMode_1 = 6 GraphBackground_1= 0 - GraphFrame_1 = 27 - ClassName_27 = "CCWDrawObj" - opts_27 = 30 - Image_27 = 28 - ClassName_28 = "CCWPictImage" - opts_28 = 1280 - Rows_28 = 1 - Cols_28 = 1 - F_28 = -2147483633 - B_28 = -2147483633 - ColorReplaceWith_28= 8421504 - ColorReplace_28 = 8421504 - Tolerance_28 = 2 - Animator_27 = 0 - Blinker_27 = 0 - PlotFrame_1 = 29 + GraphFrame_1 = 29 ClassName_29 = "CCWDrawObj" opts_29 = 30 - C[1]_29 = 16777215 + Bindings_29 = 0 Image_29 = 30 ClassName_30 = "CCWPictImage" opts_30 = 1280 + Bindings_30 = 0 Rows_30 = 1 Cols_30 = 1 - Pict_30 = 1 F_30 = -2147483633 - B_30 = 16777215 + B_30 = -2147483633 ColorReplaceWith_30= 8421504 ColorReplace_30 = 8421504 Tolerance_30 = 2 Animator_29 = 0 Blinker_29 = 0 - Caption_1 = 31 + PlotFrame_1 = 31 ClassName_31 = "CCWDrawObj" opts_31 = 30 - C[0]_31 = -2147483640 + Bindings_31 = 0 + C[1]_31 = 16777215 Image_31 = 32 - ClassName_32 = "CCWTextImage" - font_32 = 0 + ClassName_32 = "CCWPictImage" + opts_32 = 1280 + Bindings_32 = 0 + Rows_32 = 1 + Cols_32 = 1 + Pict_32 = 1 + F_32 = -2147483633 + B_32 = 16777215 + ColorReplaceWith_32= 8421504 + ColorReplace_32 = 8421504 + Tolerance_32 = 2 Animator_31 = 0 Blinker_31 = 0 + Caption_1 = 33 + ClassName_33 = "CCWDrawObj" + opts_33 = 30 + Bindings_33 = 0 + C[0]_33 = -2147483640 + Image_33 = 34 + ClassName_34 = "CCWTextImage" + Bindings_34 = 0 + font_34 = 0 + Animator_33 = 0 + Blinker_33 = 0 DefaultXInc_1 = 1 DefaultPlotPerRow_1= -1 'True - Bindings_1 = 33 - ClassName_33 = "CCWBindingHolderArray" - Editor_33 = 34 - ClassName_34 = "CCWBindingHolderArrayEditor" - Owner_34 = 1 - Annotations_1 = 35 - ClassName_35 = "CCWAnnotations" - Editor_35 = 36 - ClassName_36 = "CCWAnnotationArrayEditor" - Owner_36 = 1 - AnnotationTemplate_1= 37 - ClassName_37 = "CCWAnnotation" - opts_37 = 63 - Name_37 = "[Template]" - Plot_37 = 22 - Text_37 = "[Template]" - TextXPoint_37 = 6.7 - TextYPoint_37 = 6.7 - TextColor_37 = 16777215 - TextFont_37 = 38 - ClassName_38 = "CCWFont" - bFont_38 = -1 'True - BeginProperty Font_38 {0BE35203-8F91-11CE-9DE3-00AA004BB851} - Name = "MS Sans Serif" - Size = 8.25 - Charset = 0 - Weight = 400 - Underline = 0 'False - Italic = 0 'False - Strikethrough = 0 'False - EndProperty - ShapeXPoints_37 = 39 - ClassName_39 = "CDataBuffer" - Type_39 = 5 - m_cDims;_39 = 1 - m_cElts_39 = 1 - Element[0]_39 = 3.3 - ShapeYPoints_37 = 40 - ClassName_40 = "CDataBuffer" - Type_40 = 5 - m_cDims;_40 = 1 - m_cElts_40 = 1 - Element[0]_40 = 3.3 - ShapeFillColor_37= 16777215 - ShapeLineColor_37= 16777215 - ShapeLineWidth_37= 1 - ShapeLineStyle_37= 1 - ShapePointStyle_37= 10 - ShapeImage_37 = 41 - ClassName_41 = "CCWDrawObj" - opts_41 = 62 - Image_41 = 42 - ClassName_42 = "CCWPictImage" - opts_42 = 1280 - Rows_42 = 1 - Cols_42 = 1 - Pict_42 = 7 - F_42 = -2147483633 - B_42 = -2147483633 - ColorReplaceWith_42= 8421504 - ColorReplace_42 = 8421504 - Tolerance_42 = 2 - Animator_41 = 0 - Blinker_41 = 0 - ArrowVisible_37 = -1 'True - ArrowColor_37 = 16777215 - ArrowWidth_37 = 1 - ArrowLineStyle_37= 1 - ArrowHeadStyle_37= 1 End Begin VB.CommandButton cmdViewFile Caption = "&View Data File" Height = 495 - Left = 360 + Left = 840 TabIndex = 14 - Top = 4800 + Top = 5880 Width = 1215 End Begin VB.CommandButton cmdReturn Cancel = -1 'True Caption = "&Return" Height = 495 - Left = 3000 + Left = 3240 TabIndex = 13 - Top = 4800 + Top = 5880 Width = 1095 End Begin VB.CommandButton cmdClearGraph Caption = "Clear &Graph" Height = 495 - Left = 3000 + Left = 3240 TabIndex = 5 - Top = 3960 + Top = 5040 Width = 1095 End Begin VB.CommandButton cmdOpen Caption = "&Open Data File" Height = 495 - Left = 120 + Left = 840 TabIndex = 1 - Top = 5640 + Top = 6480 Width = 1215 End Begin VB.TextBox txtDataFile Height = 375 - Left = 1800 + Left = 2160 TabIndex = 0 Text = " " - Top = 4800 + Top = 7560 Width = 2415 End Begin VB.Label lblPlotData Alignment = 2 'Center Caption = "X axis in minutes" Height = 255 - Left = 1320 + Left = 1920 TabIndex = 51 - Top = 5520 + Top = 7080 Width = 1335 End Begin VB.Label lblSensor @@ -1251,10 +1173,10 @@ Begin VB.Form PlotData Alignment = 2 'Center Caption = "TIME - Seconds" Height = 255 - Left = 3120 + Left = 4680 TabIndex = 12 - Top = 3480 - Width = 1215 + Top = 4560 + Width = 1695 End Begin VB.Label lblYAxis Alignment = 2 'Center @@ -1263,7 +1185,7 @@ Begin VB.Form PlotData Index = 5 Left = 480 TabIndex = 11 - Top = 2880 + Top = 3360 Width = 255 End Begin VB.Label lblYAxis @@ -1273,7 +1195,7 @@ Begin VB.Form PlotData Index = 4 Left = 480 TabIndex = 10 - Top = 2520 + Top = 3000 Width = 255 End Begin VB.Label lblYAxis @@ -1283,7 +1205,7 @@ Begin VB.Form PlotData Index = 3 Left = 480 TabIndex = 9 - Top = 2160 + Top = 2640 Width = 255 End Begin VB.Label lblYAxis @@ -1293,7 +1215,7 @@ Begin VB.Form PlotData Index = 2 Left = 480 TabIndex = 8 - Top = 1800 + Top = 2280 Width = 255 End Begin VB.Label lblYAxis @@ -1303,7 +1225,7 @@ Begin VB.Form PlotData Index = 1 Left = 480 TabIndex = 7 - Top = 1440 + Top = 1920 Width = 255 End Begin VB.Label lblYAxis @@ -1313,7 +1235,7 @@ Begin VB.Form PlotData Index = 0 Left = 480 TabIndex = 6 - Top = 1080 + Top = 1560 Width = 255 End Begin VB.Label lblCaption @@ -1323,15 +1245,15 @@ Begin VB.Form PlotData Left = 840 TabIndex = 4 Top = 120 - Width = 8415 + Width = 8895 End Begin VB.Label lblDataFile Alignment = 2 'Center Caption = "Data File Name" Height = 255 - Left = 2400 + Left = 3360 TabIndex = 3 - Top = 5280 + Top = 7080 Width = 1215 End Begin VB.Menu mnuFile @@ -1780,14 +1702,14 @@ Private Sub Form_Load() lblSensor(2).Visible = False lblSensor(3).Visible = False - ml_SensorColors(1) = vbBlue - ml_SensorColors(2) = vbRed - ml_SensorColors(3) = vbYellow - ml_SensorColors(4) = vbGreen - ml_SensorColors(5) = vbCyan - ml_SensorColors(6) = vbMagenta - ml_SensorColors(7) = vbBlack - ml_SensorColors(8) = vbGrayText + ml_SensorColors(1) = RGB(0, 0, 255) ' Blue + ml_SensorColors(2) = RGB(204, 0, 0) ' Red + ml_SensorColors(3) = RGB(204, 255, 0) ' Yellow + ml_SensorColors(4) = RGB(0, 102, 0) ' Green + ml_SensorColors(5) = RGB(0, 255, 204) ' Cyan + ml_SensorColors(6) = RGB(204, 0, 153) ' Magenta + ml_SensorColors(7) = RGB(204, 102, 0) ' Orange + ml_SensorColors(8) = RGB(0, 51, 0) ' Darker Green cwgLineChart.Enabled = True ' cwgLineChart = line chart cwgBarChart.Enabled = True ' cwgBarChart = bar chart