VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   10485
   ClientLeft      =   705
   ClientTop       =   930
   ClientWidth     =   15465
   LinkTopic       =   "Form1"
   ScaleHeight     =   10485
   ScaleWidth      =   15465
   Begin VB.Timer cleanUpTimer 
      Interval        =   500
      Left            =   11040
      Top             =   120
   End
   Begin VB.PictureBox PaintBox 
      FillStyle       =   0  'Solid
      Height          =   1935
      Index           =   7
      Left            =   12120
      ScaleHeight     =   125
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   125
      TabIndex        =   135
      Top             =   7560
      Width           =   1935
   End
   Begin VB.PictureBox PaintBox 
      FillStyle       =   0  'Solid
      Height          =   1935
      Index           =   6
      Left            =   12120
      ScaleHeight     =   125
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   125
      TabIndex        =   130
      Top             =   5400
      Width           =   1935
   End
   Begin VB.PictureBox PaintBox 
      FillStyle       =   0  'Solid
      Height          =   1935
      Index           =   5
      Left            =   12120
      ScaleHeight     =   125
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   125
      TabIndex        =   125
      Top             =   3240
      Width           =   1935
   End
   Begin VB.PictureBox PaintBox 
      FillStyle       =   0  'Solid
      Height          =   1935
      Index           =   4
      Left            =   12120
      ScaleHeight     =   125
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   125
      TabIndex        =   120
      Top             =   1080
      Width           =   1935
   End
   Begin VB.PictureBox PaintBox 
      FillStyle       =   0  'Solid
      Height          =   1935
      Index           =   3
      Left            =   4440
      ScaleHeight     =   125
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   125
      TabIndex        =   115
      Top             =   7560
      Width           =   1935
   End
   Begin VB.PictureBox PaintBox 
      FillStyle       =   0  'Solid
      Height          =   1935
      Index           =   2
      Left            =   4440
      ScaleHeight     =   125
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   125
      TabIndex        =   110
      Top             =   5400
      Width           =   1935
   End
   Begin VB.PictureBox PaintBox 
      FillStyle       =   0  'Solid
      Height          =   1935
      Index           =   1
      Left            =   4440
      ScaleHeight     =   125
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   125
      TabIndex        =   105
      Top             =   3240
      Width           =   1935
   End
   Begin MSComctlLib.ProgressBar RPMBar 
      Height          =   1935
      Index           =   0
      Left            =   6600
      TabIndex        =   101
      Top             =   1080
      Width           =   375
      _ExtentX        =   661
      _ExtentY        =   3413
      _Version        =   393216
      Appearance      =   1
      Max             =   20
      Orientation     =   1
      Scrolling       =   1
   End
   Begin VB.PictureBox PaintBox 
      FillStyle       =   0  'Solid
      Height          =   1935
      Index           =   0
      Left            =   4440
      ScaleHeight     =   125
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   125
      TabIndex        =   100
      Top             =   1080
      Width           =   1935
   End
   Begin VB.Frame frame 
      Caption         =   "Channel 0"
      Enabled         =   0   'False
      Height          =   2055
      Index           =   7
      Left            =   7800
      TabIndex        =   88
      Top             =   7440
      Width           =   4215
      Begin VB.TextBox CurrentReading 
         Height          =   285
         Index           =   7
         Left            =   1440
         TabIndex        =   93
         Text            =   "0"
         Top             =   1080
         Width           =   735
      End
      Begin VB.CommandButton ResetBtn 
         Caption         =   "Reset"
         Height          =   255
         Index           =   7
         Left            =   2280
         TabIndex        =   92
         Top             =   1080
         Width           =   735
      End
      Begin VB.TextBox resolution 
         Height          =   285
         Index           =   7
         Left            =   1680
         TabIndex        =   91
         Text            =   "1000"
         Top             =   1560
         Width           =   735
      End
      Begin VB.CommandButton SetBtn 
         Caption         =   "Set"
         Height          =   255
         Index           =   7
         Left            =   2520
         TabIndex        =   90
         Top             =   1560
         Width           =   615
      End
      Begin VB.ComboBox multbox 
         Height          =   315
         Index           =   7
         ItemData        =   "Form1.frx":0000
         Left            =   3120
         List            =   "Form1.frx":000D
         TabIndex        =   89
         Text            =   "1"
         Top             =   1080
         Width           =   735
      End
      Begin MSComctlLib.Slider maxRpmSlider 
         Height          =   375
         Index           =   7
         Left            =   1080
         TabIndex        =   94
         Top             =   240
         Width           =   2895
         _ExtentX        =   5106
         _ExtentY        =   661
         _Version        =   393216
         Min             =   5
         Max             =   200
         SelStart        =   5
         Value           =   5
      End
      Begin VB.Label Label2 
         Caption         =   "MAX RPM:"
         Height          =   255
         Index           =   7
         Left            =   120
         TabIndex        =   99
         Top             =   360
         Width           =   855
      End
      Begin VB.Label Label3 
         Caption         =   "Current Reading"
         Height          =   255
         Index           =   7
         Left            =   120
         TabIndex        =   98
         Top             =   1080
         Width           =   1215
      End
      Begin VB.Label Label4 
         Caption         =   "Counter Resolution:"
         Height          =   255
         Index           =   7
         Left            =   120
         TabIndex        =   97
         Top             =   1560
         Width           =   1455
      End
      Begin VB.Label Label5 
         Caption         =   "Multiplier:"
         Height          =   255
         Index           =   7
         Left            =   3120
         TabIndex        =   96
         Top             =   840
         Width           =   855
      End
      Begin VB.Label maxRPMsliderLbl 
         Caption         =   "20"
         Height          =   255
         Index           =   7
         Left            =   1800
         TabIndex        =   95
         Top             =   720
         Width           =   615
      End
   End
   Begin VB.Frame frame 
      Caption         =   "Channel 0"
      Enabled         =   0   'False
      Height          =   2055
      Index           =   6
      Left            =   7800
      TabIndex        =   76
      Top             =   5280
      Width           =   4215
      Begin VB.TextBox CurrentReading 
         Height          =   285
         Index           =   6
         Left            =   1440
         TabIndex        =   81
         Text            =   "0"
         Top             =   1080
         Width           =   735
      End
      Begin VB.CommandButton ResetBtn 
         Caption         =   "Reset"
         Height          =   255
         Index           =   6
         Left            =   2280
         TabIndex        =   80
         Top             =   1080
         Width           =   735
      End
      Begin VB.TextBox resolution 
         Height          =   285
         Index           =   6
         Left            =   1680
         TabIndex        =   79
         Text            =   "1000"
         Top             =   1560
         Width           =   735
      End
      Begin VB.CommandButton SetBtn 
         Caption         =   "Set"
         Height          =   255
         Index           =   6
         Left            =   2520
         TabIndex        =   78
         Top             =   1560
         Width           =   615
      End
      Begin VB.ComboBox multbox 
         Height          =   315
         Index           =   6
         ItemData        =   "Form1.frx":001A
         Left            =   3120
         List            =   "Form1.frx":0027
         TabIndex        =   77
         Text            =   "1"
         Top             =   1080
         Width           =   735
      End
      Begin MSComctlLib.Slider maxRpmSlider 
         Height          =   375
         Index           =   6
         Left            =   1080
         TabIndex        =   82
         Top             =   240
         Width           =   2895
         _ExtentX        =   5106
         _ExtentY        =   661
         _Version        =   393216
         Min             =   5
         Max             =   200
         SelStart        =   5
         Value           =   5
      End
      Begin VB.Label Label2 
         Caption         =   "MAX RPM:"
         Height          =   255
         Index           =   6
         Left            =   120
         TabIndex        =   87
         Top             =   360
         Width           =   855
      End
      Begin VB.Label Label3 
         Caption         =   "Current Reading"
         Height          =   255
         Index           =   6
         Left            =   120
         TabIndex        =   86
         Top             =   1080
         Width           =   1215
      End
      Begin VB.Label Label4 
         Caption         =   "Counter Resolution:"
         Height          =   255
         Index           =   6
         Left            =   120
         TabIndex        =   85
         Top             =   1560
         Width           =   1455
      End
      Begin VB.Label Label5 
         Caption         =   "Multiplier:"
         Height          =   255
         Index           =   6
         Left            =   3120
         TabIndex        =   84
         Top             =   840
         Width           =   855
      End
      Begin VB.Label maxRPMsliderLbl 
         Caption         =   "20"
         Height          =   255
         Index           =   6
         Left            =   1800
         TabIndex        =   83
         Top             =   720
         Width           =   615
      End
   End
   Begin VB.Frame frame 
      Caption         =   "Channel 0"
      Enabled         =   0   'False
      Height          =   2055
      Index           =   5
      Left            =   7800
      TabIndex        =   64
      Top             =   3120
      Width           =   4215
      Begin VB.TextBox CurrentReading 
         Height          =   285
         Index           =   5
         Left            =   1440
         TabIndex        =   69
         Text            =   "0"
         Top             =   1080
         Width           =   735
      End
      Begin VB.CommandButton ResetBtn 
         Caption         =   "Reset"
         Height          =   255
         Index           =   5
         Left            =   2280
         TabIndex        =   68
         Top             =   1080
         Width           =   735
      End
      Begin VB.TextBox resolution 
         Height          =   285
         Index           =   5
         Left            =   1680
         TabIndex        =   67
         Text            =   "1000"
         Top             =   1560
         Width           =   735
      End
      Begin VB.CommandButton SetBtn 
         Caption         =   "Set"
         Height          =   255
         Index           =   5
         Left            =   2520
         TabIndex        =   66
         Top             =   1560
         Width           =   615
      End
      Begin VB.ComboBox multbox 
         Height          =   315
         Index           =   5
         ItemData        =   "Form1.frx":0034
         Left            =   3120
         List            =   "Form1.frx":0041
         TabIndex        =   65
         Text            =   "1"
         Top             =   1080
         Width           =   735
      End
      Begin MSComctlLib.Slider maxRpmSlider 
         Height          =   375
         Index           =   5
         Left            =   1080
         TabIndex        =   70
         Top             =   240
         Width           =   2895
         _ExtentX        =   5106
         _ExtentY        =   661
         _Version        =   393216
         Min             =   5
         Max             =   200
         SelStart        =   5
         Value           =   5
      End
      Begin VB.Label Label2 
         Caption         =   "MAX RPM:"
         Height          =   255
         Index           =   5
         Left            =   120
         TabIndex        =   75
         Top             =   360
         Width           =   855
      End
      Begin VB.Label Label3 
         Caption         =   "Current Reading"
         Height          =   255
         Index           =   5
         Left            =   120
         TabIndex        =   74
         Top             =   1080
         Width           =   1215
      End
      Begin VB.Label Label4 
         Caption         =   "Counter Resolution:"
         Height          =   255
         Index           =   5
         Left            =   120
         TabIndex        =   73
         Top             =   1560
         Width           =   1455
      End
      Begin VB.Label Label5 
         Caption         =   "Multiplier:"
         Height          =   255
         Index           =   5
         Left            =   3120
         TabIndex        =   72
         Top             =   840
         Width           =   855
      End
      Begin VB.Label maxRPMsliderLbl 
         Caption         =   "20"
         Height          =   255
         Index           =   5
         Left            =   1800
         TabIndex        =   71
         Top             =   720
         Width           =   615
      End
   End
   Begin VB.Frame frame 
      Caption         =   "Channel 0"
      Enabled         =   0   'False
      Height          =   2055
      Index           =   4
      Left            =   7800
      TabIndex        =   52
      Top             =   960
      Width           =   4215
      Begin VB.TextBox CurrentReading 
         Height          =   285
         Index           =   4
         Left            =   1440
         TabIndex        =   57
         Text            =   "0"
         Top             =   1080
         Width           =   735
      End
      Begin VB.CommandButton ResetBtn 
         Caption         =   "Reset"
         Height          =   255
         Index           =   4
         Left            =   2280
         TabIndex        =   56
         Top             =   1080
         Width           =   735
      End
      Begin VB.TextBox resolution 
         Height          =   285
         Index           =   4
         Left            =   1680
         TabIndex        =   55
         Text            =   "1000"
         Top             =   1560
         Width           =   735
      End
      Begin VB.CommandButton SetBtn 
         Caption         =   "Set"
         Height          =   255
         Index           =   4
         Left            =   2520
         TabIndex        =   54
         Top             =   1560
         Width           =   615
      End
      Begin VB.ComboBox multbox 
         Height          =   315
         Index           =   4
         ItemData        =   "Form1.frx":004E
         Left            =   3120
         List            =   "Form1.frx":005B
         TabIndex        =   53
         Text            =   "1"
         Top             =   1080
         Width           =   735
      End
      Begin MSComctlLib.Slider maxRpmSlider 
         Height          =   375
         Index           =   4
         Left            =   1080
         TabIndex        =   58
         Top             =   240
         Width           =   2895
         _ExtentX        =   5106
         _ExtentY        =   661
         _Version        =   393216
         Min             =   5
         Max             =   200
         SelStart        =   5
         Value           =   5
      End
      Begin VB.Label Label2 
         Caption         =   "MAX RPM:"
         Height          =   255
         Index           =   4
         Left            =   120
         TabIndex        =   63
         Top             =   360
         Width           =   855
      End
      Begin VB.Label Label3 
         Caption         =   "Current Reading"
         Height          =   255
         Index           =   4
         Left            =   120
         TabIndex        =   62
         Top             =   1080
         Width           =   1215
      End
      Begin VB.Label Label4 
         Caption         =   "Counter Resolution:"
         Height          =   255
         Index           =   4
         Left            =   120
         TabIndex        =   61
         Top             =   1560
         Width           =   1455
      End
      Begin VB.Label Label5 
         Caption         =   "Multiplier:"
         Height          =   255
         Index           =   4
         Left            =   3120
         TabIndex        =   60
         Top             =   840
         Width           =   855
      End
      Begin VB.Label maxRPMsliderLbl 
         Caption         =   "20"
         Height          =   255
         Index           =   4
         Left            =   1800
         TabIndex        =   59
         Top             =   720
         Width           =   615
      End
   End
   Begin VB.Frame frame 
      Caption         =   "Channel 3"
      Enabled         =   0   'False
      Height          =   2055
      Index           =   3
      Left            =   120
      TabIndex        =   40
      Top             =   7440
      Width           =   4215
      Begin VB.TextBox CurrentReading 
         Height          =   285
         Index           =   3
         Left            =   1440
         TabIndex        =   45
         Text            =   "0"
         Top             =   1080
         Width           =   735
      End
      Begin VB.CommandButton ResetBtn 
         Caption         =   "Reset"
         Height          =   255
         Index           =   3
         Left            =   2280
         TabIndex        =   44
         Top             =   1080
         Width           =   735
      End
      Begin VB.TextBox resolution 
         Height          =   285
         Index           =   3
         Left            =   1680
         TabIndex        =   43
         Text            =   "1000"
         Top             =   1560
         Width           =   735
      End
      Begin VB.CommandButton SetBtn 
         Caption         =   "Set"
         Height          =   255
         Index           =   3
         Left            =   2520
         TabIndex        =   42
         Top             =   1560
         Width           =   615
      End
      Begin VB.ComboBox multbox 
         Height          =   315
         Index           =   3
         ItemData        =   "Form1.frx":0068
         Left            =   3120
         List            =   "Form1.frx":0075
         TabIndex        =   41
         Text            =   "1"
         Top             =   1080
         Width           =   735
      End
      Begin MSComctlLib.Slider maxRpmSlider 
         Height          =   375
         Index           =   3
         Left            =   1080
         TabIndex        =   46
         Top             =   240
         Width           =   2895
         _ExtentX        =   5106
         _ExtentY        =   661
         _Version        =   393216
         Min             =   5
         Max             =   200
         SelStart        =   5
         Value           =   5
      End
      Begin VB.Label Label2 
         Caption         =   "MAX RPM:"
         Height          =   255
         Index           =   3
         Left            =   120
         TabIndex        =   51
         Top             =   360
         Width           =   855
      End
      Begin VB.Label Label3 
         Caption         =   "Current Reading"
         Height          =   255
         Index           =   3
         Left            =   120
         TabIndex        =   50
         Top             =   1080
         Width           =   1215
      End
      Begin VB.Label Label4 
         Caption         =   "Counter Resolution:"
         Height          =   255
         Index           =   3
         Left            =   120
         TabIndex        =   49
         Top             =   1560
         Width           =   1455
      End
      Begin VB.Label Label5 
         Caption         =   "Multiplier:"
         Height          =   255
         Index           =   3
         Left            =   3120
         TabIndex        =   48
         Top             =   840
         Width           =   855
      End
      Begin VB.Label maxRPMsliderLbl 
         Caption         =   "20"
         Height          =   255
         Index           =   3
         Left            =   1800
         TabIndex        =   47
         Top             =   720
         Width           =   615
      End
   End
   Begin VB.Frame frame 
      Caption         =   "Channel 2"
      Enabled         =   0   'False
      Height          =   2055
      Index           =   2
      Left            =   120
      TabIndex        =   28
      Top             =   5280
      Width           =   4215
      Begin VB.TextBox CurrentReading 
         Height          =   285
         Index           =   2
         Left            =   1440
         TabIndex        =   33
         Text            =   "0"
         Top             =   1080
         Width           =   735
      End
      Begin VB.CommandButton ResetBtn 
         Caption         =   "Reset"
         Height          =   255
         Index           =   2
         Left            =   2280
         TabIndex        =   32
         Top             =   1080
         Width           =   735
      End
      Begin VB.TextBox resolution 
         Height          =   285
         Index           =   2
         Left            =   1680
         TabIndex        =   31
         Text            =   "1000"
         Top             =   1560
         Width           =   735
      End
      Begin VB.CommandButton SetBtn 
         Caption         =   "Set"
         Height          =   255
         Index           =   2
         Left            =   2520
         TabIndex        =   30
         Top             =   1560
         Width           =   615
      End
      Begin VB.ComboBox multbox 
         Height          =   315
         Index           =   2
         ItemData        =   "Form1.frx":0082
         Left            =   3120
         List            =   "Form1.frx":008F
         TabIndex        =   29
         Text            =   "1"
         Top             =   1080
         Width           =   735
      End
      Begin MSComctlLib.Slider maxRpmSlider 
         Height          =   375
         Index           =   2
         Left            =   1080
         TabIndex        =   34
         Top             =   240
         Width           =   2895
         _ExtentX        =   5106
         _ExtentY        =   661
         _Version        =   393216
         Min             =   5
         Max             =   200
         SelStart        =   5
         Value           =   5
      End
      Begin VB.Label Label2 
         Caption         =   "MAX RPM:"
         Height          =   255
         Index           =   2
         Left            =   120
         TabIndex        =   39
         Top             =   360
         Width           =   855
      End
      Begin VB.Label Label3 
         Caption         =   "Current Reading"
         Height          =   255
         Index           =   2
         Left            =   120
         TabIndex        =   38
         Top             =   1080
         Width           =   1215
      End
      Begin VB.Label Label4 
         Caption         =   "Counter Resolution:"
         Height          =   255
         Index           =   2
         Left            =   120
         TabIndex        =   37
         Top             =   1560
         Width           =   1455
      End
      Begin VB.Label Label5 
         Caption         =   "Multiplier:"
         Height          =   255
         Index           =   2
         Left            =   3120
         TabIndex        =   36
         Top             =   840
         Width           =   855
      End
      Begin VB.Label maxRPMsliderLbl 
         Caption         =   "20"
         Height          =   255
         Index           =   2
         Left            =   1800
         TabIndex        =   35
         Top             =   720
         Width           =   615
      End
   End
   Begin VB.Frame frame 
      Caption         =   "Channel 1"
      Enabled         =   0   'False
      Height          =   2055
      Index           =   1
      Left            =   120
      TabIndex        =   16
      Top             =   3120
      Width           =   4215
      Begin VB.TextBox CurrentReading 
         Height          =   285
         Index           =   1
         Left            =   1440
         TabIndex        =   21
         Text            =   "0"
         Top             =   1080
         Width           =   735
      End
      Begin VB.CommandButton ResetBtn 
         Caption         =   "Reset"
         Height          =   255
         Index           =   1
         Left            =   2280
         TabIndex        =   20
         Top             =   1080
         Width           =   735
      End
      Begin VB.TextBox resolution 
         Height          =   285
         Index           =   1
         Left            =   1680
         TabIndex        =   19
         Text            =   "1000"
         Top             =   1560
         Width           =   735
      End
      Begin VB.CommandButton SetBtn 
         Caption         =   "Set"
         Height          =   255
         Index           =   1
         Left            =   2520
         TabIndex        =   18
         Top             =   1560
         Width           =   615
      End
      Begin VB.ComboBox multbox 
         Height          =   315
         Index           =   1
         ItemData        =   "Form1.frx":009C
         Left            =   3120
         List            =   "Form1.frx":00A9
         TabIndex        =   17
         Text            =   "1"
         Top             =   1080
         Width           =   735
      End
      Begin MSComctlLib.Slider maxRpmSlider 
         Height          =   375
         Index           =   1
         Left            =   1080
         TabIndex        =   22
         Top             =   240
         Width           =   2895
         _ExtentX        =   5106
         _ExtentY        =   661
         _Version        =   393216
         Min             =   5
         Max             =   200
         SelStart        =   5
         Value           =   5
      End
      Begin VB.Label Label2 
         Caption         =   "MAX RPM:"
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   27
         Top             =   360
         Width           =   855
      End
      Begin VB.Label Label3 
         Caption         =   "Current Reading"
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   26
         Top             =   1080
         Width           =   1215
      End
      Begin VB.Label Label4 
         Caption         =   "Counter Resolution:"
         Height          =   255
         Index           =   1
         Left            =   120
         TabIndex        =   25
         Top             =   1560
         Width           =   1455
      End
      Begin VB.Label Label5 
         Caption         =   "Multiplier:"
         Height          =   255
         Index           =   1
         Left            =   3120
         TabIndex        =   24
         Top             =   840
         Width           =   855
      End
      Begin VB.Label maxRPMsliderLbl 
         Caption         =   "20"
         Height          =   255
         Index           =   1
         Left            =   1800
         TabIndex        =   23
         Top             =   720
         Width           =   615
      End
   End
   Begin VB.Frame frame 
      Caption         =   "Channel 0"
      Enabled         =   0   'False
      Height          =   2055
      Index           =   0
      Left            =   120
      TabIndex        =   4
      Top             =   960
      Width           =   4215
      Begin VB.ComboBox multbox 
         Height          =   315
         Index           =   0
         ItemData        =   "Form1.frx":00B6
         Left            =   3120
         List            =   "Form1.frx":00C3
         TabIndex        =   14
         Text            =   "1"
         Top             =   1080
         Width           =   735
      End
      Begin VB.CommandButton SetBtn 
         Caption         =   "Set"
         Height          =   255
         Index           =   0
         Left            =   2520
         TabIndex        =   12
         Top             =   1560
         Width           =   615
      End
      Begin VB.TextBox resolution 
         Height          =   285
         Index           =   0
         Left            =   1680
         TabIndex        =   11
         Text            =   "1000"
         Top             =   1560
         Width           =   735
      End
      Begin VB.CommandButton ResetBtn 
         Caption         =   "Reset"
         Height          =   255
         Index           =   0
         Left            =   2280
         TabIndex        =   9
         Top             =   1080
         Width           =   735
      End
      Begin VB.TextBox CurrentReading 
         Height          =   285
         Index           =   0
         Left            =   1440
         TabIndex        =   8
         Text            =   "0"
         Top             =   1080
         Width           =   735
      End
      Begin MSComctlLib.Slider maxRpmSlider 
         Height          =   375
         Index           =   0
         Left            =   1080
         TabIndex        =   5
         Top             =   240
         Width           =   2895
         _ExtentX        =   5106
         _ExtentY        =   661
         _Version        =   393216
         Min             =   5
         Max             =   200
         SelStart        =   20
         Value           =   20
      End
      Begin VB.Label maxRPMsliderLbl 
         Caption         =   "20"
         Height          =   255
         Index           =   0
         Left            =   1800
         TabIndex        =   15
         Top             =   720
         Width           =   615
      End
      Begin VB.Label Label5 
         Caption         =   "Multiplier:"
         Height          =   255
         Index           =   0
         Left            =   3120
         TabIndex        =   13
         Top             =   840
         Width           =   855
      End
      Begin VB.Label Label4 
         Caption         =   "Counter Resolution:"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   10
         Top             =   1560
         Width           =   1455
      End
      Begin VB.Label Label3 
         Caption         =   "Current Reading"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   7
         Top             =   1080
         Width           =   1215
      End
      Begin VB.Label Label2 
         Caption         =   "MAX RPM:"
         Height          =   255
         Index           =   0
         Left            =   120
         TabIndex        =   6
         Top             =   360
         Width           =   855
      End
   End
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   100
      Left            =   11640
      Top             =   120
   End
   Begin VB.CommandButton GoBtn 
      Caption         =   "Go"
      Enabled         =   0   'False
      Height          =   255
      Left            =   2520
      TabIndex        =   3
      Top             =   600
      Width           =   855
   End
   Begin VB.CommandButton InitBtn 
      Caption         =   "Init"
      Height          =   255
      Left            =   2520
      TabIndex        =   2
      Top             =   240
      Width           =   855
   End
   Begin VB.TextBox addrText 
      Height          =   285
      Left            =   1440
      TabIndex        =   1
      Text            =   "300"
      Top             =   240
      Width           =   855
   End
   Begin MSComctlLib.ProgressBar RPMBar 
      Height          =   1935
      Index           =   1
      Left            =   6600
      TabIndex        =   106
      Top             =   3240
      Width           =   375
      _ExtentX        =   661
      _ExtentY        =   3413
      _Version        =   393216
      Appearance      =   1
      Max             =   20
      Orientation     =   1
      Scrolling       =   1
   End
   Begin MSComctlLib.ProgressBar RPMBar 
      Height          =   1935
      Index           =   2
      Left            =   6600
      TabIndex        =   111
      Top             =   5400
      Width           =   375
      _ExtentX        =   661
      _ExtentY        =   3413
      _Version        =   393216
      Appearance      =   1
      Max             =   20
      Orientation     =   1
      Scrolling       =   1
   End
   Begin MSComctlLib.ProgressBar RPMBar 
      Height          =   1935
      Index           =   3
      Left            =   6600
      TabIndex        =   116
      Top             =   7560
      Width           =   375
      _ExtentX        =   661
      _ExtentY        =   3413
      _Version        =   393216
      Appearance      =   1
      Max             =   20
      Orientation     =   1
      Scrolling       =   1
   End
   Begin MSComctlLib.ProgressBar RPMBar 
      Height          =   1935
      Index           =   4
      Left            =   14280
      TabIndex        =   121
      Top             =   1080
      Width           =   375
      _ExtentX        =   661
      _ExtentY        =   3413
      _Version        =   393216
      Appearance      =   1
      Max             =   20
      Orientation     =   1
      Scrolling       =   1
   End
   Begin MSComctlLib.ProgressBar RPMBar 
      Height          =   1935
      Index           =   5
      Left            =   14280
      TabIndex        =   126
      Top             =   3240
      Width           =   375
      _ExtentX        =   661
      _ExtentY        =   3413
      _Version        =   393216
      Appearance      =   1
      Max             =   20
      Orientation     =   1
      Scrolling       =   1
   End
   Begin MSComctlLib.ProgressBar RPMBar 
      Height          =   1935
      Index           =   6
      Left            =   14280
      TabIndex        =   131
      Top             =   5400
      Width           =   375
      _ExtentX        =   661
      _ExtentY        =   3413
      _Version        =   393216
      Appearance      =   1
      Max             =   20
      Orientation     =   1
      Scrolling       =   1
   End
   Begin MSComctlLib.ProgressBar RPMBar 
      Height          =   1935
      Index           =   7
      Left            =   14280
      TabIndex        =   136
      Top             =   7560
      Width           =   375
      _ExtentX        =   661
      _ExtentY        =   3413
      _Version        =   393216
      Appearance      =   1
      Max             =   20
      Orientation     =   1
      Scrolling       =   1
   End
   Begin VB.Label currentRPMlbl 
      Caption         =   "-"
      Height          =   255
      Index           =   7
      Left            =   14760
      TabIndex        =   139
      Top             =   8400
      Width           =   375
   End
   Begin VB.Label maxRPMbarLbl 
      Caption         =   "20"
      Height          =   255
      Index           =   7
      Left            =   14760
      TabIndex        =   138
      Top             =   7560
      Width           =   495
   End
   Begin VB.Label Label6 
      Caption         =   "0"
      Height          =   255
      Index           =   7
      Left            =   14760
      TabIndex        =   137
      Top             =   9240
      Width           =   255
   End
   Begin VB.Label currentRPMlbl 
      Caption         =   "-"
      Height          =   255
      Index           =   6
      Left            =   14760
      TabIndex        =   134
      Top             =   6240
      Width           =   375
   End
   Begin VB.Label maxRPMbarLbl 
      Caption         =   "20"
      Height          =   255
      Index           =   6
      Left            =   14760
      TabIndex        =   133
      Top             =   5400
      Width           =   495
   End
   Begin VB.Label Label6 
      Caption         =   "0"
      Height          =   255
      Index           =   6
      Left            =   14760
      TabIndex        =   132
      Top             =   7080
      Width           =   255
   End
   Begin VB.Label currentRPMlbl 
      Caption         =   "-"
      Height          =   255
      Index           =   5
      Left            =   14760
      TabIndex        =   129
      Top             =   4080
      Width           =   375
   End
   Begin VB.Label maxRPMbarLbl 
      Caption         =   "20"
      Height          =   255
      Index           =   5
      Left            =   14760
      TabIndex        =   128
      Top             =   3240
      Width           =   495
   End
   Begin VB.Label Label6 
      Caption         =   "0"
      Height          =   255
      Index           =   5
      Left            =   14760
      TabIndex        =   127
      Top             =   4920
      Width           =   255
   End
   Begin VB.Label currentRPMlbl 
      Caption         =   "-"
      Height          =   255
      Index           =   4
      Left            =   14760
      TabIndex        =   124
      Top             =   1920
      Width           =   375
   End
   Begin VB.Label maxRPMbarLbl 
      Caption         =   "20"
      Height          =   255
      Index           =   4
      Left            =   14760
      TabIndex        =   123
      Top             =   1080
      Width           =   495
   End
   Begin VB.Label Label6 
      Caption         =   "0"
      Height          =   255
      Index           =   4
      Left            =   14760
      TabIndex        =   122
      Top             =   2760
      Width           =   255
   End
   Begin VB.Label currentRPMlbl 
      Caption         =   "-"
      Height          =   255
      Index           =   3
      Left            =   7080
      TabIndex        =   119
      Top             =   8400
      Width           =   375
   End
   Begin VB.Label maxRPMbarLbl 
      Caption         =   "20"
      Height          =   255
      Index           =   3
      Left            =   7080
      TabIndex        =   118
      Top             =   7560
      Width           =   495
   End
   Begin VB.Label Label6 
      Caption         =   "0"
      Height          =   255
      Index           =   3
      Left            =   7080
      TabIndex        =   117
      Top             =   9240
      Width           =   255
   End
   Begin VB.Label currentRPMlbl 
      Caption         =   "-"
      Height          =   255
      Index           =   2
      Left            =   7080
      TabIndex        =   114
      Top             =   6240
      Width           =   375
   End
   Begin VB.Label maxRPMbarLbl 
      Caption         =   "20"
      Height          =   255
      Index           =   2
      Left            =   7080
      TabIndex        =   113
      Top             =   5400
      Width           =   495
   End
   Begin VB.Label Label6 
      Caption         =   "0"
      Height          =   255
      Index           =   2
      Left            =   7080
      TabIndex        =   112
      Top             =   7080
      Width           =   255
   End
   Begin VB.Label currentRPMlbl 
      Caption         =   "-"
      Height          =   255
      Index           =   1
      Left            =   7080
      TabIndex        =   109
      Top             =   4080
      Width           =   375
   End
   Begin VB.Label maxRPMbarLbl 
      Caption         =   "20"
      Height          =   255
      Index           =   1
      Left            =   7080
      TabIndex        =   108
      Top             =   3240
      Width           =   495
   End
   Begin VB.Label Label6 
      Caption         =   "0"
      Height          =   255
      Index           =   1
      Left            =   7080
      TabIndex        =   107
      Top             =   4920
      Width           =   255
   End
   Begin VB.Label currentRPMlbl 
      Caption         =   "-"
      Height          =   255
      Index           =   0
      Left            =   7080
      TabIndex        =   104
      Top             =   1920
      Width           =   375
   End
   Begin VB.Label maxRPMbarLbl 
      Caption         =   "20"
      Height          =   255
      Index           =   0
      Left            =   7080
      TabIndex        =   103
      Top             =   1080
      Width           =   495
   End
   Begin VB.Label Label6 
      Caption         =   "0"
      Height          =   255
      Index           =   0
      Left            =   7080
      TabIndex        =   102
      Top             =   2760
      Width           =   255
   End
   Begin VB.Label Label1 
      Caption         =   "Base Address:"
      Height          =   255
      Left            =   360
      TabIndex        =   0
      Top             =   240
      Width           =   1095
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim basAddr As Long
Dim previousReadings(8) As Integer
Dim currentReadings(8) As Integer
Dim currentRes(8) As Integer



Private Sub doPaintBoxes(Index As Integer)

    Dim rpm As Double
    Dim angle As Double
    Dim x, y As Integer

    rpm = currentReadings(Index) - previousReadings(Index)
    rpm = rpm / currentRes(Index)
    rpm = rpm * 60 / (Timer1.Interval * 0.001)
    rpm = Abs(rpm)
    
    currentRPMlbl(Index).Caption = rpm
    
    
    
    If rpm > RPMBar(Index).Max Then
        PaintBox(Index).FillColor = RGB(&HFF, 0, 0)
        RPMBar(Index).Value = RPMBar(Index).Max
    Else
        PaintBox(Index).FillColor = RGB(&HFF, &HFF, &HFF)
        RPMBar(Index).Value = rpm
    End If
           
    PaintBox(Index).Circle (60, 60), 50, RGB(0, 0, 0)
    PaintBox(Index).Line (60, 60)-(60, 110), RGB(0, 0, 0)
    
    
    angle = currentReadings(Index)
    
    angle = angle * 2 * PI
    
    angle = angle / (currentRes(Index) * multbox(Index).Text) - 0.5 * PI
    
    x = 60 - 50 * Cos(angle)
    y = 60 - 50 * Sin(angle)
    
    PaintBox(Index).Line (60, 60)-(x, y), RGB(0, &HFF, 0)
    
    
    
    

End Sub


Private Sub cleanUpTimer_Timer()
    'every once in a while clean up the paint boxes
    Dim count As Integer
    
    For count = 0 To 7
        doPaintBoxes (count)
    Next count
    
    
End Sub

Private Sub Form_Load()
    Dim count As Integer
    
    For count = 0 To 7
        currentRes(count) = 1000
    Next count
End Sub

Private Sub GoBtn_Click()
    Init_7266 basAddr
    Timer1.Enabled = True
End Sub

Private Sub InitBtn_Click()
    Dim count As Integer
    
    basAddr = "&h" + addrText.Text
    
    For count = 0 To 7
        previousReadings(count) = 0
        currentReadings(count) = 0
        doPaintBoxes count
        frame(count).Enabled = True
    Next count
    
    OutPortB basAddr + &H14, 1
    
    GoBtn.Enabled = True
    
End Sub

Private Sub maxRpmSlider_Change(Index As Integer)
    maxRPMsliderLbl(Index).Caption = maxRpmSlider(Index).SelStart
    maxRPMbarLbl(Index).Caption = maxRpmSlider(Index).SelStart
    RPMBar(Index).Max = maxRpmSlider(Index).SelStart
End Sub

Private Sub ResetBtn_Click(Index As Integer)
    OutPortB basAddr + (Index * 2) + 1, &H2
End Sub

Private Sub SetBtn_Click(Index As Integer)
    currentRes(Index) = resolution(Index).Text
End Sub

Private Sub Timer1_Timer()
Dim count As Integer

    For count = 0 To 7
        previousReadings(count) = currentReadings(count)
        currentReadings(count) = Read_7266_ol(basAddr + (2 * count))
        
        If previousReadings(count) <> currentReadings(count) Then
            doPaintBoxes (count)
            CurrentReading(count).Text = currentReadings(count)
            
        End If
    Next count
    

End Sub