VERSION 5.00
Begin VB.Form CalElements 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Calibration"
   ClientHeight    =   3915
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   3900
   Icon            =   "CalElements.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   3915
   ScaleWidth      =   3900
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Cancel 
      Caption         =   "&Cancel"
      Height          =   375
      Left            =   120
      TabIndex        =   22
      Top             =   3400
      Width           =   3660
   End
   Begin VB.CommandButton ApplyAndClose 
      Caption         =   "&OK"
      Height          =   375
      Left            =   1960
      TabIndex        =   21
      Top             =   3000
      Width           =   1815
   End
   Begin VB.CommandButton ApplySettings 
      Caption         =   "&Apply"
      Height          =   375
      Left            =   120
      TabIndex        =   20
      Top             =   3000
      Width           =   1815
   End
   Begin VB.Frame Frame1 
      Caption         =   "Analog CH2 (0 - 25) VDC"
      Height          =   735
      Index           =   3
      Left            =   120
      TabIndex        =   15
      Top             =   2160
      Width           =   3660
      Begin VB.TextBox ShowAN2Offset 
         Alignment       =   2  'Center
         BackColor       =   &H000000FF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   300
         Left            =   1440
         Locked          =   -1  'True
         MaxLength       =   5
         TabIndex        =   18
         Text            =   "0"
         Top             =   275
         Width           =   800
      End
      Begin VB.CommandButton IncrementAN2Cal 
         Caption         =   "+"
         Height          =   350
         Left            =   2520
         TabIndex        =   17
         Top             =   240
         Width           =   495
      End
      Begin VB.CommandButton DecrementAN2Cal 
         Caption         =   "-"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   350
         Left            =   3020
         TabIndex        =   16
         Top             =   240
         Width           =   495
      End
      Begin VB.Shape Shape2 
         BackColor       =   &H00FFFFFF&
         BackStyle       =   1  'Opaque
         Height          =   275
         Index           =   3
         Left            =   2240
         Top             =   275
         Width           =   120
      End
      Begin VB.Label Label1 
         BackColor       =   &H00800000&
         Caption         =   "  Offset Value"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FFFF&
         Height          =   285
         Index           =   3
         Left            =   150
         TabIndex        =   19
         Top             =   270
         Width           =   1280
      End
      Begin VB.Shape Shape1 
         Height          =   350
         Index           =   3
         Left            =   120
         Top             =   240
         Width           =   2260
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Analog CH1 (0 - 5)  VDC"
      Height          =   735
      Index           =   2
      Left            =   120
      TabIndex        =   10
      Top             =   1440
      Width           =   3660
      Begin VB.TextBox ShowAN1Offset 
         Alignment       =   2  'Center
         BackColor       =   &H000000FF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   300
         Left            =   1440
         Locked          =   -1  'True
         MaxLength       =   5
         TabIndex        =   13
         Text            =   "0"
         Top             =   275
         Width           =   800
      End
      Begin VB.CommandButton IncrementAN1Cal 
         Caption         =   "+"
         Height          =   350
         Left            =   2520
         TabIndex        =   12
         Top             =   240
         Width           =   495
      End
      Begin VB.CommandButton DecrementAN1Cal 
         Caption         =   "-"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   350
         Left            =   3020
         TabIndex        =   11
         Top             =   240
         Width           =   495
      End
      Begin VB.Shape Shape2 
         BackColor       =   &H00FFFFFF&
         BackStyle       =   1  'Opaque
         Height          =   275
         Index           =   2
         Left            =   2240
         Top             =   275
         Width           =   120
      End
      Begin VB.Label Label1 
         BackColor       =   &H00800000&
         Caption         =   "  Offset Value"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FFFF&
         Height          =   285
         Index           =   2
         Left            =   150
         TabIndex        =   14
         Top             =   270
         Width           =   1280
      End
      Begin VB.Shape Shape1 
         Height          =   350
         Index           =   2
         Left            =   120
         Top             =   240
         Width           =   2260
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "LDR Resistance"
      Height          =   735
      Index           =   1
      Left            =   120
      TabIndex        =   5
      Top             =   720
      Width           =   3660
      Begin VB.TextBox ShowLDROffset 
         Alignment       =   2  'Center
         BackColor       =   &H000000FF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   300
         Left            =   1440
         Locked          =   -1  'True
         MaxLength       =   5
         TabIndex        =   8
         Text            =   "0"
         Top             =   275
         Width           =   800
      End
      Begin VB.CommandButton IncrementLDRCal 
         Caption         =   "+"
         Height          =   350
         Left            =   2520
         TabIndex        =   7
         Top             =   240
         Width           =   495
      End
      Begin VB.CommandButton DecrementLDRCal 
         Caption         =   "-"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   350
         Left            =   3020
         TabIndex        =   6
         Top             =   240
         Width           =   495
      End
      Begin VB.Shape Shape2 
         BackColor       =   &H00FFFFFF&
         BackStyle       =   1  'Opaque
         Height          =   275
         Index           =   1
         Left            =   2240
         Top             =   275
         Width           =   120
      End
      Begin VB.Label Label1 
         BackColor       =   &H00800000&
         Caption         =   "  Offset Value"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FFFF&
         Height          =   285
         Index           =   1
         Left            =   150
         TabIndex        =   9
         Top             =   270
         Width           =   1280
      End
      Begin VB.Shape Shape1 
         Height          =   350
         Index           =   1
         Left            =   120
         Top             =   240
         Width           =   2260
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "Temperature"
      Height          =   735
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   3660
      Begin VB.CommandButton DecrementTempCal 
         Caption         =   "-"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   350
         Left            =   3020
         TabIndex        =   4
         Top             =   240
         Width           =   495
      End
      Begin VB.CommandButton IncrementTempCal 
         Caption         =   "+"
         Height          =   350
         Left            =   2520
         TabIndex        =   3
         Top             =   240
         Width           =   495
      End
      Begin VB.TextBox ShowTempOffset 
         Alignment       =   2  'Center
         BackColor       =   &H000000FF&
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   300
         Left            =   1440
         Locked          =   -1  'True
         MaxLength       =   5
         TabIndex        =   1
         Text            =   "0"
         Top             =   275
         Width           =   800
      End
      Begin VB.Shape Shape2 
         BackColor       =   &H00FFFFFF&
         BackStyle       =   1  'Opaque
         Height          =   275
         Index           =   0
         Left            =   2240
         Top             =   275
         Width           =   120
      End
      Begin VB.Shape Shape1 
         Height          =   350
         Index           =   0
         Left            =   120
         Top             =   240
         Width           =   2260
      End
      Begin VB.Label Label1 
         BackColor       =   &H00800000&
         Caption         =   "  Offset Value"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   9.75
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H0000FFFF&
         Height          =   285
         Index           =   0
         Left            =   150
         TabIndex        =   2
         Top             =   270
         Width           =   1280
      End
   End
End
Attribute VB_Name = "CalElements"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub ApplyAndClose_Click()
   TempCal = TempOffset
   LDRCal = LDROffset
   AN1Cal = AN1Offset
   An2Cal = An2Offset
   Me.Hide
End Sub

Private Sub Cancel_Click()
   ShowTempOffset.Text = Str(TempCal)
   ShowLDROffset.Text = Str(LDRCal)
   ShowAN1Offset.Text = Str(AN1Cal)
   ShowAN2Offset.Text = Str(An2Cal)
   Me.Hide
End Sub

Private Sub ApplySettings_Click()
   TempCal = TempOffset
   LDRCal = LDROffset
   AN1Cal = AN1Offset
   An2Cal = An2Offset
End Sub

Private Sub IncrementTempCal_Click()
   TempOffset = TempOffset + (TempOffset < 100) * -1
   ShowTempOffset.Text = Str(TempOffset)
End Sub

Private Sub DecrementTempCal_Click()
   TempOffset = TempOffset + (TempOffset > -100) * 1
   ShowTempOffset.Text = Str(TempOffset)
End Sub

Private Sub IncrementLDRCal_Click()
   LDROffset = LDROffset + (LDROffset < 100) * -1
   ShowLDROffset.Text = Str(LDROffset)

End Sub

Private Sub DecrementLDRCal_Click()
   LDROffset = LDROffset + (LDROffset > -100) * 1
   ShowLDROffset.Text = Str(LDROffset)
End Sub

Private Sub IncrementAN1Cal_Click()
   AN1Offset = AN1Offset + (AN1Offset < 100) * -1
   ShowAN1Offset.Text = Str(AN1Offset)
End Sub

Private Sub DecrementAN1Cal_Click()
   AN1Offset = AN1Offset + (AN1Offset > -100) * 1
   ShowAN1Offset.Text = Str(AN1Offset)
End Sub

Private Sub IncrementAN2Cal_Click()
   An2Offset = An2Offset + (An2Offset < 100) * -1
   ShowAN2Offset.Text = Str(An2Offset)
End Sub

Private Sub DecrementAN2Cal_Click()
   An2Offset = An2Offset + (An2Offset > -100) * 1
   ShowAN2Offset.Text = Str(An2Offset)
End Sub

Private Sub Form_Unload(Cancel As Integer)
   Me.Hide
   Cancel = True
End Sub


