www.pudn.com > GPS ToolKit Pro.rar > GTKTestPanel.frm
VERSION 5.00
Object = "{6E439071-A37F-4B58-A503-6BDA19E7F585}#1.0#0"; "GPSToolKitMod.dll"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form MainFrm
Caption = "GPS ToolKit Test Panel"
ClientHeight = 9360
ClientLeft = 1635
ClientTop = 1230
ClientWidth = 12285
LinkTopic = "Form1"
ScaleHeight = 9360
ScaleWidth = 12285
Begin VB.Frame FrameNavigation
Caption = "Navigation"
Height = 9135
Left = 8880
TabIndex = 93
Top = 120
Width = 3375
Begin VB.TextBox txtArrived
BackColor = &H8000000F&
Height = 285
Left = 1080
Locked = -1 'True
TabIndex = 121
Top = 960
Width = 1935
End
Begin VB.Frame FrameRoute
Caption = "Route"
Height = 3375
Left = 120
TabIndex = 116
Top = 5640
Width = 3135
Begin MSComctlLib.ListView ListViewRoute
Height = 2655
Left = 120
TabIndex = 119
Top = 600
Width = 2895
_ExtentX = 5106
_ExtentY = 4683
View = 3
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 3
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "Wpt"
Object.Width = 1164
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "Lat"
Object.Width = 1870
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "Lon"
Object.Width = 1870
EndProperty
End
Begin VB.TextBox txtRouteName
BackColor = &H8000000F&
Height = 285
Left = 720
Locked = -1 'True
TabIndex = 118
Top = 240
Width = 2295
End
Begin VB.Label Label29
Caption = "Name:"
Height = 255
Left = 135
TabIndex = 117
Top = 255
Width = 495
End
End
Begin VB.TextBox txtDestLongitude
BackColor = &H8000000F&
Height = 345
Left = 1800
Locked = -1 'True
TabIndex = 113
Top = 1740
Width = 1455
End
Begin VB.TextBox txtDestLatitude
BackColor = &H8000000F&
Height = 345
Left = 120
Locked = -1 'True
TabIndex = 112
Top = 1740
Width = 1455
End
Begin VB.TextBox txtDestWpt
BackColor = &H8000000F&
Height = 285
Left = 1080
Locked = -1 'True
TabIndex = 111
Top = 600
Width = 1935
End
Begin VB.TextBox txtOriginWpt
BackColor = &H8000000F&
Height = 285
Left = 1080
Locked = -1 'True
TabIndex = 110
Top = 240
Width = 1935
End
Begin VB.Frame FrameCurPosToDest
Caption = "From Current Position to Dest"
Height = 1935
Left = 120
TabIndex = 103
Top = 2280
Width = 3135
Begin VB.TextBox txtCrossTrackError
BackColor = &H8000000F&
Height = 285
Left = 1200
Locked = -1 'True
TabIndex = 115
Top = 1440
Width = 1695
End
Begin VB.TextBox txtRangeToDest
BackColor = &H8000000F&
Height = 285
Left = 1200
Locked = -1 'True
TabIndex = 109
Top = 360
Width = 1695
End
Begin VB.TextBox txtClosingVelocity
BackColor = &H8000000F&
Height = 285
Left = 1200
Locked = -1 'True
TabIndex = 107
Top = 1080
Width = 1695
End
Begin VB.TextBox txtTrueBearingToDest
BackColor = &H8000000F&
Height = 285
Left = 1200
Locked = -1 'True
TabIndex = 106
Top = 720
Width = 1695
End
Begin VB.Label Label31
Caption = "X-Track Error:"
Height = 255
Left = 120
TabIndex = 114
Top = 1455
Width = 985
End
Begin VB.Label Label37
Alignment = 1 'Right Justify
Caption = "Range:"
Height = 255
Left = 120
TabIndex = 108
Top = 375
Width = 975
End
Begin VB.Label Label30
Alignment = 1 'Right Justify
Caption = "Closing Vel:"
Height = 255
Left = 120
TabIndex = 105
Top = 1095
Width = 975
End
Begin VB.Label trueBearinglbl
Alignment = 1 'Right Justify
Caption = "True Bearing:"
Height = 255
Left = 120
TabIndex = 104
Top = 735
Width = 975
End
End
Begin VB.Frame FrameOrigToDest
Caption = "From Origin to Destination"
Height = 1215
Left = 120
TabIndex = 98
Top = 4320
Width = 3135
Begin VB.TextBox txtMagBearingFromOrigToDest
BackColor = &H8000000F&
Height = 285
Left = 1200
Locked = -1 'True
TabIndex = 102
Top = 720
Width = 1695
End
Begin VB.TextBox txtTrueBearingFromOrigToDest
BackColor = &H8000000F&
Height = 285
Left = 1200
Locked = -1 'True
TabIndex = 101
Top = 360
Width = 1695
End
Begin VB.Label Label35
Alignment = 1 'Right Justify
Caption = "Mag Bearing:"
Height = 255
Left = 120
TabIndex = 100
Top = 735
Width = 1005
End
Begin VB.Label Label34
Alignment = 1 'Right Justify
Caption = "True Bearing:"
Height = 255
Left = 120
TabIndex = 99
Top = 375
Width = 1005
End
End
Begin VB.Label Label32
Alignment = 1 'Right Justify
Caption = "Arrived:"
Height = 255
Left = 120
TabIndex = 120
Top = 975
Width = 855
End
Begin VB.Label Label28
Caption = "Dest Wpt Longitude"
Height = 255
Left = 1800
TabIndex = 97
Top = 1500
Width = 1455
End
Begin VB.Label Label27
Caption = "Dest Wpt Latitude"
Height = 255
Left = 120
TabIndex = 96
Top = 1500
Width = 1455
End
Begin VB.Label Label26
Alignment = 1 'Right Justify
Caption = "Dest Wpt:"
Height = 255
Left = 120
TabIndex = 95
Top = 615
Width = 855
End
Begin VB.Label Label4
Alignment = 1 'Right Justify
Caption = "Origin Wpt:"
Height = 255
Left = 120
TabIndex = 94
Top = 255
Width = 855
End
End
Begin VB.Frame FrameDGPS
Caption = "DGPS"
Height = 975
Left = 120
TabIndex = 77
Top = 3960
Width = 5175
Begin VB.TextBox txtTimeSinceDGPSUpdate
BackColor = &H8000000F&
Height = 345
Left = 1800
Locked = -1 'True
TabIndex = 81
Top = 480
Width = 1455
End
Begin VB.TextBox txtDGPSRefID
BackColor = &H8000000F&
Height = 345
Left = 120
Locked = -1 'True
TabIndex = 80
Top = 480
Width = 1455
End
Begin VB.Label Label24
Caption = "seconds"
Height = 255
Left = 3360
TabIndex = 82
Top = 525
Width = 615
End
Begin VB.Label Label23
Caption = "Time Since Last Update"
Height = 255
Left = 1800
TabIndex = 79
Top = 240
Width = 1815
End
Begin VB.Label Label22
Caption = "Ref Station ID"
Height = 255
Left = 120
TabIndex = 78
Top = 240
Width = 1215
End
End
Begin VB.Frame FrameSatellite
Caption = "Satellite Info"
Height = 2655
Left = 120
TabIndex = 39
Top = 5040
Width = 8655
Begin VB.TextBox txtVDOP
BackColor = &H8000000F&
Height = 345
Left = 7920
Locked = -1 'True
TabIndex = 76
Top = 2235
Width = 615
End
Begin VB.TextBox txtPDOP
BackColor = &H8000000F&
Height = 345
Left = 6480
Locked = -1 'True
TabIndex = 74
Top = 2235
Width = 615
End
Begin VB.TextBox txtHDOP
BackColor = &H8000000F&
Height = 345
Left = 5040
Locked = -1 'True
TabIndex = 72
Top = 2235
Width = 615
End
Begin VB.TextBox txtOperationMode
BackColor = &H8000000F&
Height = 345
Left = 3000
Locked = -1 'True
TabIndex = 70
Top = 2235
Width = 1215
End
Begin MSComctlLib.ProgressBar SNRBar
Height = 1620
Index = 11
Left = 8160
TabIndex = 66
Top = 240
Width = 375
_ExtentX = 661
_ExtentY = 2858
_Version = 393216
Appearance = 1
Orientation = 1
Scrolling = 1
End
Begin MSComctlLib.ProgressBar SNRBar
Height = 1625
Index = 10
Left = 7680
TabIndex = 65
Top = 240
Width = 375
_ExtentX = 661
_ExtentY = 2858
_Version = 393216
Appearance = 1
Orientation = 1
Scrolling = 1
End
Begin MSComctlLib.ProgressBar SNRBar
Height = 1625
Index = 9
Left = 7200
TabIndex = 54
Top = 240
Width = 375
_ExtentX = 661
_ExtentY = 2858
_Version = 393216
Appearance = 1
Max = 99
Orientation = 1
Scrolling = 1
End
Begin MSComctlLib.ProgressBar SNRBar
Height = 1625
Index = 8
Left = 6720
TabIndex = 53
Top = 240
Width = 375
_ExtentX = 661
_ExtentY = 2858
_Version = 393216
Appearance = 1
Max = 99
Orientation = 1
Scrolling = 1
End
Begin MSComctlLib.ProgressBar SNRBar
Height = 1625
Index = 7
Left = 6240
TabIndex = 52
Top = 240
Width = 375
_ExtentX = 661
_ExtentY = 2858
_Version = 393216
Appearance = 1
Max = 99
Orientation = 1
Scrolling = 1
End
Begin MSComctlLib.ProgressBar SNRBar
Height = 1625
Index = 6
Left = 5760
TabIndex = 51
Top = 240
Width = 375
_ExtentX = 661
_ExtentY = 2858
_Version = 393216
Appearance = 1
Max = 99
Orientation = 1
Scrolling = 1
End
Begin MSComctlLib.ProgressBar SNRBar
Height = 1625
Index = 5
Left = 5280
TabIndex = 50
Top = 240
Width = 375
_ExtentX = 661
_ExtentY = 2858
_Version = 393216
Appearance = 1
Max = 99
Orientation = 1
Scrolling = 1
End
Begin MSComctlLib.ProgressBar SNRBar
Height = 1625
Index = 4
Left = 4800
TabIndex = 49
Top = 240
Width = 375
_ExtentX = 661
_ExtentY = 2858
_Version = 393216
Appearance = 1
Max = 99
Orientation = 1
Scrolling = 1
End
Begin MSComctlLib.ProgressBar SNRBar
Height = 1625
Index = 3
Left = 4320
TabIndex = 48
Top = 240
Width = 375
_ExtentX = 661
_ExtentY = 2858
_Version = 393216
Appearance = 1
Max = 99
Orientation = 1
Scrolling = 1
End
Begin MSComctlLib.ProgressBar SNRBar
Height = 1625
Index = 2
Left = 3840
TabIndex = 47
Top = 240
Width = 375
_ExtentX = 661
_ExtentY = 2858
_Version = 393216
Appearance = 1
Max = 99
Orientation = 1
Scrolling = 1
End
Begin MSComctlLib.ProgressBar SNRBar
Height = 1625
Index = 0
Left = 2880
TabIndex = 41
Top = 240
Width = 375
_ExtentX = 661
_ExtentY = 2858
_Version = 393216
Appearance = 1
Max = 99
Orientation = 1
Scrolling = 1
End
Begin VB.PictureBox SatPicture
Height = 1935
Left = 120
ScaleHeight = 125
ScaleMode = 3 'Pixel
ScaleWidth = 125
TabIndex = 40
Top = 240
Width = 1935
End
Begin MSComctlLib.ProgressBar SNRBar
Height = 1625
Index = 1
Left = 3360
TabIndex = 63
Top = 240
Width = 375
_ExtentX = 661
_ExtentY = 2858
_Version = 393216
Appearance = 1
Max = 99
Orientation = 1
Scrolling = 1
End
Begin VB.Label Label21
Caption = "VDOP:"
Height = 255
Left = 7320
TabIndex = 75
Top = 2280
Width = 495
End
Begin VB.Label Label20
Caption = "PDOP:"
Height = 255
Left = 5880
TabIndex = 73
Top = 2280
Width = 615
End
Begin VB.Label Label19
Caption = "HDOP: "
Height = 255
Left = 4440
TabIndex = 71
Top = 2280
Width = 615
End
Begin VB.Label Label18
Caption = "Operation Mode:"
Height = 255
Left = 1680
TabIndex = 69
Top = 2280
Width = 1215
End
Begin VB.Label SNRBarPRN
ForeColor = &H00FFFFFF&
Height = 210
Index = 11
Left = 8240
TabIndex = 68
Top = 1950
Width = 210
End
Begin VB.Label SNRBarPRN
ForeColor = &H00FFFFFF&
Height = 210
Index = 10
Left = 7760
TabIndex = 67
Top = 1950
Width = 210
End
Begin VB.Label SNRBarPRN
ForeColor = &H00FFFFFF&
Height = 210
Index = 1
Left = 3440
TabIndex = 64
Top = 1950
Width = 210
End
Begin VB.Label SNRBarPRN
ForeColor = &H00FFFFFF&
Height = 210
Index = 9
Left = 7280
TabIndex = 62
Top = 1950
Width = 210
End
Begin VB.Label SNRBarPRN
ForeColor = &H00FFFFFF&
Height = 210
Index = 8
Left = 6800
TabIndex = 61
Top = 1950
Width = 210
End
Begin VB.Label SNRBarPRN
ForeColor = &H00FFFFFF&
Height = 210
Index = 7
Left = 6320
TabIndex = 60
Top = 1950
Width = 210
End
Begin VB.Label SNRBarPRN
ForeColor = &H00FFFFFF&
Height = 210
Index = 6
Left = 5840
TabIndex = 59
Top = 1950
Width = 210
End
Begin VB.Label SNRBarPRN
ForeColor = &H00FFFFFF&
Height = 210
Index = 5
Left = 5360
TabIndex = 58
Top = 1950
Width = 210
End
Begin VB.Label SNRBarPRN
ForeColor = &H00FFFFFF&
Height = 210
Index = 4
Left = 4880
TabIndex = 57
Top = 1950
Width = 210
End
Begin VB.Label SNRBarPRN
ForeColor = &H00FFFFFF&
Height = 210
Index = 3
Left = 4400
TabIndex = 56
Top = 1950
Width = 210
End
Begin VB.Label SNRBarPRN
ForeColor = &H00FFFFFF&
Height = 210
Index = 2
Left = 3920
TabIndex = 55
Top = 1950
Width = 210
End
Begin VB.Label SNRBarPRN
ForeColor = &H00FFFFFF&
Height = 210
Index = 0
Left = 2960
TabIndex = 46
Top = 1950
Width = 210
End
Begin VB.Label LabelSNRValues
Alignment = 1 'Right Justify
Caption = "99 dB -"
Height = 255
Index = 2
Left = 2160
TabIndex = 45
Top = 220
Width = 615
End
Begin VB.Label LabelSNRValues
Alignment = 1 'Right Justify
Caption = "50 dB -"
Height = 255
Index = 1
Left = 2160
TabIndex = 44
Top = 960
Width = 615
End
Begin VB.Label LabelSNRValues
Alignment = 1 'Right Justify
Caption = "0 dB -"
Height = 255
Index = 0
Left = 2160
TabIndex = 43
Top = 1665
Width = 615
End
Begin VB.Label Label16
Caption = "PRN:"
Height = 255
Left = 2350
TabIndex = 42
Top = 1950
Width = 375
End
End
Begin VB.Frame FrameFixInfo
Caption = "Fix Info"
Height = 2175
Left = 5520
TabIndex = 26
Top = 2760
Width = 3255
Begin VB.TextBox txtGeoidHeight
BackColor = &H8000000F&
Height = 285
Left = 1680
Locked = -1 'True
TabIndex = 36
Top = 1725
Width = 1455
End
Begin VB.TextBox txtNumSatellites
BackColor = &H8000000F&
Height = 285
Left = 1320
Locked = -1 'True
TabIndex = 35
Top = 1305
Width = 1815
End
Begin VB.TextBox txtFixQuality
BackColor = &H8000000F&
Height = 285
Left = 1320
Locked = -1 'True
TabIndex = 34
Top = 945
Width = 1815
End
Begin VB.TextBox txtFixStatus
BackColor = &H8000000F&
Height = 285
Left = 1320
Locked = -1 'True
TabIndex = 33
Top = 585
Width = 1815
End
Begin VB.TextBox txtFixTime
BackColor = &H8000000F&
BeginProperty DataFormat
Type = 0
Format = "m/d/yy h:nn AM/PM"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 0
EndProperty
Height = 285
Left = 1320
Locked = -1 'True
TabIndex = 32
Top = 225
Width = 1815
End
Begin VB.Label Label13
Alignment = 1 'Right Justify
Caption = "Geoid Height Above WGS84 ellipsoid:"
Height = 390
Left = 120
TabIndex = 31
Top = 1680
Width = 1455
End
Begin VB.Label Label12
Alignment = 1 'Right Justify
Caption = "Num Satellites:"
Height = 255
Left = 120
TabIndex = 30
Top = 1320
Width = 1095
End
Begin VB.Label Label11
Alignment = 1 'Right Justify
Caption = "Quality:"
Height = 255
Left = 120
TabIndex = 29
Top = 960
Width = 1095
End
Begin VB.Label Label10
Alignment = 1 'Right Justify
Caption = "Status:"
Height = 255
Left = 120
TabIndex = 28
Top = 600
Width = 1095
End
Begin VB.Label Label9
Alignment = 1 'Right Justify
Caption = "Last Update:"
Height = 255
Left = 120
TabIndex = 27
Top = 240
Width = 1095
End
End
Begin VB.Frame FrameUnits
Caption = "Units and Format"
Height = 2535
Left = 5520
TabIndex = 21
Top = 120
Width = 3255
Begin VB.TextBox txtSecLabel
Height = 285
Left = 2280
TabIndex = 92
Top = 2040
Width = 615
End
Begin VB.TextBox txtMinLabel
Height = 285
Left = 1320
TabIndex = 90
Top = 2040
Width = 615
End
Begin VB.TextBox txtDegLabel
Height = 285
Left = 360
TabIndex = 88
Top = 2040
Width = 615
End
Begin VB.ComboBox ComboLatLonFormat
Height = 315
ItemData = "GTKTestPanel.frx":0000
Left = 1440
List = "GTKTestPanel.frx":000D
Style = 2 'Dropdown List
TabIndex = 86
Top = 1320
Width = 1575
End
Begin VB.ComboBox ComboDistUnits
Height = 315
ItemData = "GTKTestPanel.frx":0038
Left = 1440
List = "GTKTestPanel.frx":0048
Style = 2 'Dropdown List
TabIndex = 84
Top = 600
Width = 1575
End
Begin VB.ComboBox ComboSpeedUnits
Height = 315
ItemData = "GTKTestPanel.frx":0071
Left = 1440
List = "GTKTestPanel.frx":007E
Style = 2 'Dropdown List
TabIndex = 25
Top = 960
Width = 1575
End
Begin VB.ComboBox ComboAltUnits
Height = 315
ItemData = "GTKTestPanel.frx":0093
Left = 1440
List = "GTKTestPanel.frx":009D
Style = 2 'Dropdown List
TabIndex = 23
Top = 240
Width = 1575
End
Begin VB.Label Label3
Caption = "Seconds"
Height = 255
Left = 2280
TabIndex = 91
Top = 1800
Width = 735
End
Begin VB.Label Label2
Caption = "Minutes"
Height = 255
Left = 1320
TabIndex = 89
Top = 1800
Width = 735
End
Begin VB.Label Label25
Caption = "Degrees"
Height = 255
Left = 360
TabIndex = 87
Top = 1800
Width = 735
End
Begin VB.Label Label15
Alignment = 1 'Right Justify
Caption = "Lat/Lon Format:"
Height = 255
Left = 120
TabIndex = 85
Top = 1350
Width = 1215
End
Begin VB.Label Label14
Alignment = 1 'Right Justify
Caption = "Distance:"
Height = 255
Left = 120
TabIndex = 83
Top = 630
Width = 1215
End
Begin VB.Label Label8
Alignment = 1 'Right Justify
Caption = "Speed:"
Height = 255
Left = 120
TabIndex = 24
Top = 990
Width = 1215
End
Begin VB.Label Label7
Alignment = 1 'Right Justify
Caption = "Altitude:"
Height = 255
Left = 120
TabIndex = 22
Top = 270
Width = 1215
End
End
Begin VB.Frame FrameVelocity
Caption = "Velocity"
Height = 975
Left = 120
TabIndex = 13
Top = 2880
Width = 5175
Begin VB.TextBox txtMagVar
BackColor = &H8000000F&
Height = 345
Left = 3480
Locked = -1 'True
TabIndex = 38
Top = 480
Width = 1455
End
Begin VB.TextBox txtTrueCourse
BackColor = &H8000000F&
Height = 345
Left = 1800
Locked = -1 'True
TabIndex = 20
Top = 480
Width = 1455
End
Begin VB.TextBox txtSpeed
BackColor = &H8000000F&
Height = 345
Left = 120
Locked = -1 'True
TabIndex = 19
Top = 480
Width = 1455
End
Begin VB.Label Label17
Caption = "Mag. Variation (deg)"
Height = 255
Left = 3480
TabIndex = 37
Top = 240
Width = 1455
End
Begin VB.Label Label6
Caption = "True Course (deg)"
Height = 255
Left = 1800
TabIndex = 15
Top = 240
Width = 1335
End
Begin VB.Label Label1
Caption = "Speed"
Height = 255
Left = 120
TabIndex = 14
Top = 240
Width = 615
End
End
Begin VB.ListBox ListRawData
Height = 1230
Left = 120
TabIndex = 12
Top = 8040
Width = 8655
End
Begin VB.Frame FrameLocation
Caption = "Location"
Height = 975
Left = 120
TabIndex = 8
Top = 1800
Width = 5175
Begin VB.TextBox txtAlt
BackColor = &H8000000F&
Height = 345
Left = 3720
Locked = -1 'True
TabIndex = 18
Top = 480
Width = 1215
End
Begin VB.TextBox txtLon
BackColor = &H8000000F&
Height = 345
Left = 1920
Locked = -1 'True
TabIndex = 17
Top = 480
Width = 1575
End
Begin VB.TextBox txtLat
BackColor = &H8000000F&
Height = 345
Left = 120
Locked = -1 'True
TabIndex = 16
Top = 480
Width = 1575
End
Begin VB.Label LabelLatitude
Caption = "Latitude"
Height = 255
Left = 120
TabIndex = 11
Top = 240
Width = 735
End
Begin VB.Label LabelLongitude
Caption = "Longitude"
Height = 255
Left = 1920
TabIndex = 10
Top = 240
Width = 855
End
Begin VB.Label LabelAltitude
Caption = "Altitude"
Height = 255
Left = 3720
TabIndex = 9
Top = 240
Width = 1095
End
End
Begin VB.Frame FramePort
Caption = "Input"
Height = 1575
Left = 120
TabIndex = 0
Top = 120
Width = 5175
Begin VB.TextBox txtTimeScale
BeginProperty DataFormat
Type = 1
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 1033
SubFormatType = 1
EndProperty
Height = 345
Left = 3000
TabIndex = 125
Text = "1"
Top = 1080
Width = 735
End
Begin VB.TextBox txtFileName
Height = 345
Left = 120
TabIndex = 123
Top = 1080
Width = 2775
End
Begin VB.CommandButton cmdOpenFile
Caption = "Open File"
Height = 375
Left = 3840
TabIndex = 122
Top = 1070
Width = 1215
End
Begin VB.ComboBox ComboBaud
Height = 315
ItemData = "GTKTestPanel.frx":00AF
Left = 1320
List = "GTKTestPanel.frx":00B9
Style = 2 'Dropdown List
TabIndex = 6
Top = 465
Width = 975
End
Begin VB.ComboBox ComboPort
Height = 315
ItemData = "GTKTestPanel.frx":00CA
Left = 120
List = "GTKTestPanel.frx":00DA
Style = 2 'Dropdown List
TabIndex = 5
Top = 465
Width = 975
End
Begin VB.CommandButton cmdClose
Caption = "Close Port"
Height = 375
Left = 3840
TabIndex = 2
Top = 420
Width = 1215
End
Begin VB.CommandButton cmdOpen
Caption = "Open Port"
Height = 375
Left = 2520
TabIndex = 1
Top = 420
Width = 1215
End
Begin VB.Label Label36
Caption = "Time Scale"
Height = 255
Left = 3000
TabIndex = 126
Top = 840
Width = 855
End
Begin VB.Label Label33
Caption = "Filename"
Height = 255
Left = 120
TabIndex = 124
Top = 840
Width = 735
End
Begin VB.Label LabelBaudRate
Caption = "Baud Rate"
Height = 255
Left = 1320
TabIndex = 4
Top = 220
Width = 855
End
Begin VB.Label labelPort
Caption = "Port"
Height = 255
Left = 120
TabIndex = 3
Top = 220
Width = 495
End
End
Begin GPSTOOLKITMODLibCtl.GPSToolKit myGPSToolKit
Left = 5040
OleObjectBlob = "GTKTestPanel.frx":00F6
Top = 2160
End
Begin VB.Label Label5
Caption = "Raw Data"
Height = 255
Left = 120
TabIndex = 7
Top = 7800
Width = 1215
End
End
Attribute VB_Name = "MainFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Const Pi As Double = 3.14159265358979
Const CIRCLECOLOR As Long = &H888888
Const FIXSATCOLOR As Long = &HC000&
Const SATINVIEWCOLOR As Long = &HAAAAAA
Const SATTEXTCOLOR As Long = &HFFFFFF
Dim gAltUnitsLabel As String
Dim gSpeedUnitsLabel As String
Dim gDistUnitsLabel As String
Private Sub cmdClose_Click()
myGPSToolKit.Close
' Enable controls
ComboPort.Enabled = True
txtFileName.Enabled = True
txtTimeScale.Enabled = True
cmdOpenFile.Enabled = True
cmdOpen.Enabled = True
End Sub
Private Sub cmdOpen_Click()
On Error GoTo Err_Open
myGPSToolKit.Open ComboPort.Text
'Disable controls
ComboPort.Enabled = False
txtFileName.Enabled = False
txtTimeScale.Enabled = False
cmdOpenFile.Enabled = False
cmdOpen.Enabled = False
Exit Sub
Err_Open:
MsgBox Err.Description
End Sub
Private Sub cmdOpenFile_Click()
On Error GoTo Err_FileOpen
If cmdOpenFile.Caption = "Open File" Then
If IsEmpty(txtTimeScale) Then
txtTimeScale = 0
End If
myGPSToolKit.OpenFile txtFileName, txtTimeScale
'Disable controls
ComboPort.Enabled = False
ComboBaud.Enabled = False
txtFileName.Enabled = False
txtTimeScale.Enabled = False
cmdOpen.Enabled = False
cmdClose.Enabled = False
cmdOpenFile.Caption = "Cancel"
Else
myGPSToolKit.Close
'Enable controls
ComboPort.Enabled = True
ComboBaud.Enabled = True
txtFileName.Enabled = True
txtTimeScale.Enabled = True
cmdOpen.Enabled = True
cmdClose.Enabled = True
cmdOpenFile.Caption = "Open File"
End If
Exit Sub
Err_FileOpen:
MsgBox Err.Description
End Sub
Private Sub comboBaud_Click()
On Error GoTo Err_Baud
myGPSToolKit.BaudRate = ComboBaud.Text
Exit Sub
Err_Baud:
MsgBox "Error changing baud rate"
ComboBaud.Text = myGPSToolKit.BaudRate
End Sub
Private Sub ComboAltUnits_Click()
If ComboAltUnits.ListIndex = 0 Then
gAltUnitsLabel = "m"
ElseIf ComboAltUnits.ListIndex = 1 Then
gAltUnitsLabel = "ft"
End If
myGPSToolKit.AltitudeUnits = ComboAltUnits.ListIndex
End Sub
Private Sub ComboDistUnits_Click()
If ComboDistUnits.ListIndex = 0 Then
gDistUnitsLabel = "m"
ElseIf ComboDistUnits.ListIndex = 1 Then
gDistUnitsLabel = "ft"
ElseIf ComboDistUnits.ListIndex = 2 Then
gDistUnitsLabel = "miles"
ElseIf ComboDistUnits.ListIndex = 3 Then
gDistUnitsLabel = "nm"
End If
myGPSToolKit.DistUnits = ComboDistUnits.ListIndex
End Sub
Private Sub ComboLatLonFormat_Click()
myGPSToolKit.LatLonFormat = ComboLatLonFormat.ListIndex
End Sub
Private Sub ComboSpeedUnits_Click()
If ComboSpeedUnits.ListIndex = 0 Then
gSpeedUnitsLabel = "mph"
ElseIf ComboSpeedUnits.ListIndex = 1 Then
gSpeedUnitsLabel = "kph"
ElseIf ComboSpeedUnits.ListIndex = 2 Then
gSpeedUnitsLabel = "knots"
End If
myGPSToolKit.SpeedUnits = ComboSpeedUnits.ListIndex
End Sub
Private Sub Form_Load()
Dim i As Integer
'Set control defaults
ComboPort.ListIndex = 0 'Port name combo box to "COM1"
ComboBaud.ListIndex = 0 'Baud Rate combo box to 4800
txtDegLabel = myGPSToolKit.DegLabel
txtMinLabel = myGPSToolKit.MinLabel
txtSecLabel = myGPSToolKit.SecLabel
ComboAltUnits.ListIndex = myGPSToolKit.AltitudeUnits
ComboSpeedUnits.ListIndex = myGPSToolKit.SpeedUnits
ComboDistUnits.ListIndex = myGPSToolKit.DistUnits
ComboLatLonFormat.ListIndex = myGPSToolKit.LatLonFormat
ComboAltUnits_Click
ComboSpeedUnits_Click
ComboDistUnits_Click
ComboLatLonFormat_Click
End Sub
Private Sub myGPSToolKit_FileComplete()
'Enable controls
ComboPort.Enabled = True
ComboBaud.Enabled = True
txtFileName.Enabled = True
txtTimeScale.Enabled = True
cmdOpen.Enabled = True
cmdClose.Enabled = True
cmdOpenFile.Caption = "Open File"
End Sub
Private Sub myGPSToolKit_FixUpdate(ByVal FixGood As Variant, ByVal FixDateTime As Variant, ByVal Latitude As Variant, ByVal Longitude As Variant, ByVal Altitude As Variant, ByVal Speed As Variant, ByVal TrueCourse As Variant)
Dim geoidHeight As Variant
Dim tmp As Variant
' Lat/Lon
txtLat = Latitude
txtLon = Longitude
' Altitude
txtAlt = IIf(IsEmpty(Altitude), "", Round(Altitude, 1) & " " & gAltUnitsLabel)
' Speed
txtSpeed = IIf(IsEmpty(Speed), "", Round(Speed, 1) & " " & gSpeedUnitsLabel)
' True course
txtTrueCourse = TrueCourse
' Mag variation
txtMagVar = myGPSToolKit.MagVariation
' Fix date and time
txtFixTime = FixDateTime
txtFixStatus = IIf(FixGood = True, "Valid", "Invalid")
' Fix quality
If myGPSToolKit.FixQuality = 0 Then
txtFixQuality = "Invalid"
ElseIf myGPSToolKit.FixQuality = 1 Then
txtFixQuality = "GPS Fix"
ElseIf myGPSToolKit.FixQuality = 2 Then
txtFixQuality = "DGPS Fix"
Else
txtFixQuality = "Other (" & myGPSToolKit.FixQuality & ")"
End If
' Num Satellites
txtNumSatellites = myGPSToolKit.NumSatellitesInFix
' Geoid Height
geoidHeight = myGPSToolKit.GeoidHeightAboveWGS84Ellipsoid
txtGeoidHeight = IIf(IsEmpty(geoidHeight), "", _
Round(geoidHeight, 1) & " " & gAltUnitsLabel)
txtDGPSRefID = myGPSToolKit.DGPSRefStationID
txtTimeSinceDGPSUpdate = myGPSToolKit.TimeSinceLastDGPSUpdate
End Sub
Private Sub myGPSToolKit_NavUpdate(ByVal OriginWptID As Variant, ByVal DestWptID As Variant, ByVal DestWptLatitude As Variant, ByVal DestWptLongitude As Variant, ByVal TrueBearingToDest As Variant, ByVal RangeToDest As Variant, ByVal CrossTrackError As Variant, ByVal DestClosingVelocity As Variant, ByVal DestArrivalAlarm As Variant, ByVal RouteName As Variant, ByVal WptsInRoute As Variant)
Dim wptItem As ListItem
Dim wptName As String
Dim wptLat, wptLon
Dim i As Long
' Wpt Names
txtOriginWpt = OriginWptID
txtDestWpt = DestWptID
' Arrival Alarm
txtArrived = DestArrivalAlarm
' Dest Position
txtDestLatitude = DestWptLatitude
txtDestLongitude = DestWptLongitude
' Range, Bearing, Clsoign Velocity, and Cross Track Error
txtTrueBearingToDest = TrueBearingToDest
txtRangeToDest = IIf(IsEmpty(RangeToDest), "", Round(RangeToDest, 2) & " " & gDistUnitsLabel)
txtCrossTrackError = CrossTrackError
txtClosingVelocity = IIf(IsEmpty(DestClosingVelocity), "", Round(DestClosingVelocity, 1) & " " & gSpeedUnitsLabel)
' Origin to Destination
txtTrueBearingFromOrigToDest = myGPSToolKit.OrigToDestTrueBearing
txtMagBearingFromOrigToDest = myGPSToolKit.OrigToDestMagBearing
' Route
txtRouteName = RouteName
' Route Box
For i = 0 To UBound(WptsInRoute)
wptName = WptsInRoute(i)
If i < ListViewRoute.ListItems.Count Then
Set wptItem = ListViewRoute.ListItems(i + 1)
Else
Set wptItem = ListViewRoute.ListItems.Add()
End If
wptItem = wptName
myGPSToolKit.GetWptLocation wptName, wptLat, wptLon
wptItem.SubItems(1) = wptLat
wptItem.SubItems(2) = wptLon
Next
While ListViewRoute.ListItems.Count > UBound(WptsInRoute) + 1
ListViewRoute.ListItems.Remove ListViewRoute.ListItems.Count
Wend
End Sub
Private Sub myGPSToolKit_RawDataReceived(ByVal RawData As Variant, ByVal NumBytesRead As Variant)
ListRawData.AddItem RawData
ListRawData.ListIndex = ListRawData.ListCount - 1
End Sub
Private Sub myGPSToolKit_SatelliteUpdate(ByVal AutomaticOperation As Variant, ByVal OperationMode As Variant, ByVal NumSatellitesInView As Variant, ByVal HDOP As Variant, ByVal PDOP As Variant, ByVal VDOP As Variant, ByVal FixSatellitePRNs As Variant, ByVal SatelliteInViewPRNs As Variant)
Dim AutoOp As String, OpMode As String, seperator As String
DrawSatellites FixSatellitePRNs, SatelliteInViewPRNs
If IsEmpty(AutomaticOperation) Then
AutoOp = ""
Else
AutoOp = IIf(AutomaticOperation = True, "Auto", "Manual")
End If
If OperationMode = 1 Then
OpMode = "Fix NA"
ElseIf OperationMode = 2 Then
OpMode = "2D"
ElseIf OperationMode = 3 Then
OpMode = "3D"
Else
OpMode = ""
End If
If AutoOp = "" And OpMode = "" Then
seperator = ""
Else
seperator = " / "
End If
txtOperationMode = AutoOp & " / " & OpMode
txtHDOP = HDOP
txtPDOP = PDOP
txtVDOP = VDOP
End Sub
Private Sub SatPicture_Paint()
Dim x As Variant
Dim y As Variant
SatPicture.AutoRedraw = True
SatPicture.ForeColor = CIRCLECOLOR
SatPicture.Circle (SatPicture.ScaleWidth / 2, SatPicture.ScaleHeight / 2), SatPicture.ScaleHeight / 2 - 4
SatPicture.Circle (SatPicture.ScaleWidth / 2, SatPicture.ScaleHeight / 2), SatPicture.ScaleHeight / 4 - 2
SatPicture.Circle (SatPicture.ScaleWidth / 2, SatPicture.ScaleHeight / 2), SatPicture.ScaleHeight / 100
' N
x = SatPicture.ScaleWidth / 2 - 3
y = 0
SatPicture.ForeColor = SatPicture.BackColor
SatPicture.Line (x - 2, y)-(x + 8, y + 10), , BF
SatPicture.ForeColor = CIRCLECOLOR
SatPicture.CurrentX = x
SatPicture.CurrentY = y - 1
SatPicture.Print "N"
' E
x = SatPicture.ScaleWidth - 8
y = SatPicture.ScaleHeight / 2 - 6
SatPicture.ForeColor = SatPicture.BackColor
SatPicture.Line (x, y)-(x + 10, y + 12), , BF
SatPicture.ForeColor = CIRCLECOLOR
SatPicture.CurrentX = x
SatPicture.CurrentY = y
SatPicture.Print "E"
' S
x = SatPicture.ScaleWidth / 2 - 3
y = SatPicture.ScaleHeight - 7
SatPicture.ForeColor = SatPicture.BackColor
SatPicture.Line (x - 2, y - 6)-(x + 8, y + 4), , BF
SatPicture.ForeColor = CIRCLECOLOR
SatPicture.CurrentX = x
SatPicture.CurrentY = y - 4
SatPicture.Print "S"
' W
x = 1
y = SatPicture.ScaleHeight / 2 - 6
SatPicture.ForeColor = SatPicture.BackColor
SatPicture.Line (x, y)-(x + 10, y + 12), , BF
SatPicture.ForeColor = CIRCLECOLOR
SatPicture.CurrentX = x
SatPicture.CurrentY = y
SatPicture.Print "W"
'Comment out the following line if running under Win98/Me
DrawSatellites myGPSToolKit.FixSatellitePRNs, myGPSToolKit.SatelliteInViewPRNs
End Sub
Private Sub DrawSatellites(ByVal FixSatellitePRNs, ByVal SatelliteInViewPRNs)
Dim i As Long, j As Long
Dim r, x, y, az, el, snr, satprn, circleRadius
SatPicture.AutoRedraw = False
SatPicture.Cls
For i = 0 To UBound(SatelliteInViewPRNs)
If i > SNRBar.UBound Then Exit For
myGPSToolKit.GetSatelliteInfo SatelliteInViewPRNs(i), az, el, snr
'Set color for fix satellite or color for sat in view
SatPicture.ForeColor = SATINVIEWCOLOR
SNRBarPRN(i).BackColor = SATINVIEWCOLOR
For j = 0 To UBound(FixSatellitePRNs)
If FixSatellitePRNs(j) = SatelliteInViewPRNs(i) Then
SatPicture.ForeColor = FIXSATCOLOR
SNRBarPRN(i).BackColor = FIXSATCOLOR
Exit For
End If
Next
'Calculate box coordinates
circleRadius = SatPicture.ScaleHeight / 2 - 4
r = ((90 - el) / 90) * circleRadius
x = (Sin(az * Pi / 180) * r) + SatPicture.ScaleWidth / 2
y = -(Cos(az * Pi / 180) * r) + SatPicture.ScaleHeight / 2
SatPicture.Line (x - 6, y - 6)-(x + 6, y + 6), , BF
SatPicture.CurrentX = x - 6
SatPicture.CurrentY = y - 6
SatPicture.ForeColor = SATTEXTCOLOR
satprn = SatelliteInViewPRNs(i)
If satprn < 10 Then
satprn = "0" & satprn
End If
SatPicture.Print CStr(satprn)
SNRBar(i).Value = snr
SNRBarPRN(i).Caption = satprn
Next
For i = UBound(SatelliteInViewPRNs) + 1 To SNRBar.UBound
If i > 0 Then
SNRBar(i).Value = 0
SNRBarPRN(i).Caption = ""
SNRBarPRN(i).BackColor = MainFrm.BackColor
End If
Next
End Sub
Private Sub txtDegLabel_Change()
myGPSToolKit.DegLabel = txtDegLabel
End Sub
Private Sub txtMinLabel_Change()
myGPSToolKit.MinLabel = txtMinLabel
End Sub
Private Sub txtSecLabel_Change()
myGPSToolKit.SecLabel = txtSecLabel
End Sub