VERSION 5.00
Begin VB.Form frmOpt 
   Caption         =   "Options"
   ClientHeight    =   5505
   ClientLeft      =   6855
   ClientTop       =   3015
   ClientWidth     =   7410
   BeginProperty Font 
      Name            =   "Arial"
      Size            =   12
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   ScaleHeight     =   5505
   ScaleWidth      =   7410
   ShowInTaskbar   =   0   'False
   Begin VB.TextBox txt 
      Alignment       =   1  'Right Justify
      Height          =   390
      Index           =   10
      Left            =   5790
      MaxLength       =   5
      TabIndex        =   19
      TabStop         =   0   'False
      Text            =   "0"
      Top             =   4440
      Width           =   765
   End
   Begin VB.CheckBox chkOpt 
      Alignment       =   1  'Right Justify
      Caption         =   "Note Level Protection"
      Height          =   375
      Index           =   6
      Left            =   300
      TabIndex        =   6
      TabStop         =   0   'False
      Top             =   3630
      Width           =   2625
   End
   Begin VB.TextBox txt 
      Alignment       =   1  'Right Justify
      Height          =   390
      Index           =   8
      Left            =   2310
      MaxLength       =   5
      TabIndex        =   7
      TabStop         =   0   'False
      Text            =   "0"
      Top             =   4050
      Width           =   615
   End
   Begin VB.TextBox txt 
      Alignment       =   1  'Right Justify
      Height          =   390
      Index           =   6
      Left            =   5790
      MaxLength       =   5
      TabIndex        =   17
      TabStop         =   0   'False
      Text            =   "0"
      Top             =   3510
      Width           =   765
   End
   Begin VB.CheckBox chkOpt 
      Alignment       =   1  'Right Justify
      Caption         =   "Coin CashBox Detect"
      Height          =   375
      Index           =   2
      Left            =   300
      TabIndex        =   2
      TabStop         =   0   'False
      Top             =   1718
      Width           =   2625
   End
   Begin VB.TextBox txt 
      Alignment       =   1  'Right Justify
      Height          =   390
      Index           =   1
      Left            =   5790
      MaxLength       =   5
      TabIndex        =   12
      TabStop         =   0   'False
      Text            =   "0"
      Top             =   1260
      Width           =   765
   End
   Begin VB.TextBox txt 
      Alignment       =   1  'Right Justify
      Height          =   390
      Index           =   0
      Left            =   5790
      MaxLength       =   5
      TabIndex        =   11
      TabStop         =   0   'False
      Text            =   "0"
      Top             =   780
      Width           =   765
   End
   Begin VB.CheckBox chkOpt 
      Alignment       =   1  'Right Justify
      Caption         =   "Cancel LowLevel"
      Height          =   375
      Index           =   0
      Left            =   300
      TabIndex        =   0
      TabStop         =   0   'False
      Top             =   818
      Width           =   2625
   End
   Begin VB.CheckBox chkOpt 
      Alignment       =   1  'Right Justify
      Caption         =   "Cancel ValueEvents"
      Height          =   375
      Index           =   1
      Left            =   300
      TabIndex        =   1
      TabStop         =   0   'False
      Top             =   1268
      Width           =   2625
   End
   Begin VB.CheckBox chkOpt 
      Alignment       =   1  'Right Justify
      Caption         =   "Disable AutoText"
      Height          =   375
      Index           =   3
      Left            =   300
      TabIndex        =   3
      TabStop         =   0   'False
      Top             =   2138
      Width           =   2625
   End
   Begin VB.CheckBox chkOpt 
      Alignment       =   1  'Right Justify
      Caption         =   "LogDisable"
      Height          =   375
      Index           =   4
      Left            =   300
      TabIndex        =   4
      TabStop         =   0   'False
      Top             =   2588
      Width           =   2625
   End
   Begin VB.CheckBox chkOpt 
      Alignment       =   1  'Right Justify
      Caption         =   "Reject If Closed"
      Height          =   375
      Index           =   5
      Left            =   300
      TabIndex        =   5
      TabStop         =   0   'False
      Top             =   3038
      Width           =   2625
   End
   Begin VB.TextBox txt 
      Alignment       =   1  'Right Justify
      Height          =   315
      Index           =   2
      Left            =   5790
      MaxLength       =   5
      TabIndex        =   13
      TabStop         =   0   'False
      Text            =   "10000"
      Top             =   1740
      Width           =   765
   End
   Begin VB.TextBox txt 
      Alignment       =   1  'Right Justify
      Height          =   390
      Index           =   3
      Left            =   5790
      MaxLength       =   3
      TabIndex        =   14
      TabStop         =   0   'False
      Text            =   "0"
      Top             =   2160
      Width           =   765
   End
   Begin VB.TextBox txt 
      Alignment       =   1  'Right Justify
      Height          =   390
      Index           =   4
      Left            =   5790
      MaxLength       =   3
      TabIndex        =   15
      TabStop         =   0   'False
      Text            =   "0"
      Top             =   2550
      Width           =   765
   End
   Begin VB.TextBox txt 
      Alignment       =   1  'Right Justify
      Height          =   390
      Index           =   5
      Left            =   5790
      MaxLength       =   5
      TabIndex        =   16
      TabStop         =   0   'False
      Text            =   "0"
      Top             =   3030
      Width           =   765
   End
   Begin VB.TextBox txt 
      Alignment       =   1  'Right Justify
      Height          =   390
      Index           =   7
      Left            =   5790
      MaxLength       =   5
      TabIndex        =   18
      TabStop         =   0   'False
      Text            =   "0"
      Top             =   3990
      Width           =   765
   End
   Begin VB.CheckBox chkOpt 
      Alignment       =   1  'Right Justify
      Caption         =   "AutoProtect"
      Height          =   375
      Index           =   7
      Left            =   300
      TabIndex        =   9
      TabStop         =   0   'False
      Top             =   4830
      Width           =   2625
   End
   Begin VB.TextBox txt 
      Alignment       =   1  'Right Justify
      Height          =   390
      Index           =   9
      Left            =   2310
      MaxLength       =   3
      TabIndex        =   8
      TabStop         =   0   'False
      Text            =   "0"
      Top             =   4500
      Width           =   615
   End
   Begin VB.CommandButton cmdGuardar 
      Caption         =   "Save"
      Height          =   435
      Index           =   0
      Left            =   4320
      TabIndex        =   20
      Top             =   4890
      Width           =   2085
   End
   Begin VB.Label lbl 
      BackStyle       =   0  'Transparent
      Caption         =   "BarCode Length"
      Height          =   270
      Index           =   12
      Left            =   3750
      TabIndex        =   33
      Top             =   4470
      Width           =   1815
   End
   Begin VB.Label lbl 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "(min.)"
      Height          =   270
      Index           =   11
      Left            =   6600
      TabIndex        =   32
      Top             =   4020
      Width           =   585
   End
   Begin VB.Label lbl 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "(ms.)"
      Height          =   270
      Index           =   10
      Left            =   6600
      TabIndex        =   31
      Top             =   1770
      Width           =   525
   End
   Begin VB.Label lbl 
      BackStyle       =   0  'Transparent
      Caption         =   "MinFastIn"
      Height          =   270
      Index           =   6
      Left            =   3750
      TabIndex        =   30
      Top             =   3570
      Width           =   1005
   End
   Begin VB.Label lbl 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "BC Min Value"
      Height          =   270
      Index           =   1
      Left            =   3750
      TabIndex        =   29
      Top             =   1320
      Width           =   1440
   End
   Begin VB.Label lbl 
      BackStyle       =   0  'Transparent
      Caption         =   "BC Max Coins"
      Height          =   270
      Index           =   0
      Left            =   3750
      TabIndex        =   28
      Top             =   870
      Width           =   1515
   End
   Begin VB.Label lblConfigID 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Config ID: 0"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   270
      Left            =   240
      TabIndex        =   27
      Top             =   180
      Width           =   5970
   End
   Begin VB.Label lbl 
      BackStyle       =   0  'Transparent
      Caption         =   "LightTime"
      Height          =   270
      Index           =   2
      Left            =   3750
      TabIndex        =   26
      Top             =   1770
      Width           =   1740
   End
   Begin VB.Label lbl 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "LowLevel Value"
      Height          =   270
      Index           =   3
      Left            =   3750
      TabIndex        =   25
      Top             =   2190
      Width           =   1650
   End
   Begin VB.Label lbl 
      BackStyle       =   0  'Transparent
      Caption         =   "Max Coins"
      Height          =   270
      Index           =   4
      Left            =   3750
      TabIndex        =   24
      Top             =   2640
      Width           =   1830
   End
   Begin VB.Label lbl 
      BackStyle       =   0  'Transparent
      Caption         =   "Max Payout"
      Height          =   270
      Index           =   5
      Left            =   3750
      TabIndex        =   23
      Top             =   3090
      Width           =   1215
   End
   Begin VB.Label lbl 
      BackStyle       =   0  'Transparent
      Caption         =   "Payout Interval"
      Height          =   270
      Index           =   7
      Left            =   3750
      TabIndex        =   22
      Top             =   4020
      Width           =   1815
   End
   Begin VB.Label lbl 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Start Value"
      Height          =   285
      Index           =   8
      Left            =   330
      TabIndex        =   10
      Top             =   4110
      Width           =   1410
   End
   Begin VB.Label lbl 
      BackStyle       =   0  'Transparent
      Caption         =   "Percent"
      Height          =   330
      Index           =   9
      Left            =   330
      TabIndex        =   21
      Top             =   4500
      Width           =   1740
   End
   Begin VB.Shape Shape 
      Height          =   1785
      Index           =   1
      Left            =   180
      Top             =   3540
      Width           =   2955
   End
End
Attribute VB_Name = "frmOpt"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub chkOpt_Click(Index As Integer)
    If Index = 6 Then
        If chkOpt(Index).Value = 0 Then
            lbl(8).Enabled = False
            lbl(9).Enabled = False
            chkOpt(7).Enabled = False
            txt(8).Enabled = False
            txt(9).Enabled = False
        Else
            lbl(8).Enabled = True
            lbl(9).Enabled = True
            chkOpt(7).Enabled = True
            txt(8).Enabled = True
            txt(9).Enabled = True
        End If
    End If
End Sub

Private Sub cmdGuardar_Click(Index As Integer)
    CK.CancelLowLevel = chkOpt(0).Value = 1
    CK.CancelValueEvents = chkOpt(1).Value = 1
    CK.CoinCashBoxDetect = chkOpt(2).Value = 1
    CK.DisableAutoText = chkOpt(3).Value = 1
    CK.LogDisable = chkOpt(4).Value = 1
    CK.RejectIfClosed = chkOpt(5).Value = 1
    CK.NoteLevelProtection = chkOpt(6).Value = 1
    CK.NLPAutoProtect = chkOpt(7).Value = 1
    CK.BCMaxCoins = CByte(txt(0).text)
    CK.BCMinValue = CLng(txt(1).text)
    CK.LightTime = CLng(txt(2).text)
    'txt(3).text = CStr(CK.lo)
    CK.MaxCoins = CByte(txt(4).text)
    CK.MaxPayout = CLng(txt(5).text)
    CK.MinFastIn = CByte(txt(6).text)
    CK.PayoutInterval = CLng(txt(7).text)
    CK.NLPStartValue = CLng(txt(8).text)
    CK.NLPPercentValue = CByte(txt(9).text)
    CK.BarCodeLength = CByte(txt(10).text)
    Unload Me
End Sub

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyEscape Then
        Unload Me
    ElseIf KeyCode = vbKeyReturn Then
        MySendKeys "{TAB}"
    End If
End Sub

Private Sub Form_Load()
    CentraForm Me
    lblConfigID.Caption = "Config ID: " & CStr(CK.ConfigID)
    chkOpt(0).Value = IIf(CK.CancelLowLevel, 1, 0)
    chkOpt(1).Value = IIf(CK.CancelValueEvents, 1, 0)
    chkOpt(2).Value = IIf(CK.CoinCashBoxDetect, 1, 0)
    chkOpt(3).Value = IIf(CK.DisableAutoText, 1, 0)
    chkOpt(4).Value = IIf(CK.LogDisable, 1, 0)
    chkOpt(5).Value = IIf(CK.RejectIfClosed, 1, 0)
    chkOpt(6).Value = IIf(CK.NoteLevelProtection, 1, 0)
    chkOpt(7).Value = IIf(CK.NLPAutoProtect, 1, 0)
    txt(0).text = CStr(CK.BCMaxCoins)
    txt(1).text = CStr(CK.BCMinValue)
    txt(2).text = CStr(CK.LightTime)
    'txt(3).text = CStr(CK.lo)
    txt(4).text = CStr(CK.MaxCoins)
    txt(5).text = CStr(CK.MaxPayout)
    txt(6).text = CStr(CK.MinFastIn)
    txt(7).text = CStr(CK.PayoutInterval)
    txt(8).text = CStr(CK.NLPStartValue)
    txt(9).text = CStr(CK.NLPPercentValue)
    txt(10).text = CStr(CK.BarCodeLength)
    chkOpt_Click 6
End Sub

