ds2770k.frm

利用VB开发的针对Maxim-Dallas DS2770电量检测芯片

            Left            =   3720
            TabIndex        =   66
            ToolTipText     =   "Double Click to Edit"
            Top             =   1560
            Visible         =   0   'False
            Width           =   1995
         End
         Begin VB.Label lblRegister 
            BackStyle       =   0  'Transparent
            Caption         =   "Acc. Current MSB"
            Height          =   255
            Index           =   4
            Left            =   3720
            TabIndex        =   65
            ToolTipText     =   "Double Click to Edit"
            Top             =   1320
            Visible         =   0   'False
            Width           =   1995
         End
         Begin VB.Label lblRegister 
            BackStyle       =   0  'Transparent
            Caption         =   "Current LSB"
            Height          =   255
            Index           =   3
            Left            =   3720
            TabIndex        =   64
            ToolTipText     =   "Double Click to Edit"
            Top             =   1080
            Visible         =   0   'False
            Width           =   1995
         End
         Begin VB.Label lblRegister 
            BackStyle       =   0  'Transparent
            Caption         =   "Current MSB"
            Height          =   255
            Index           =   2
            Left            =   3720
            TabIndex        =   63
            ToolTipText     =   "Double Click to Edit"
            Top             =   840
            Visible         =   0   'False
            Width           =   1995
         End
         Begin VB.Label lblRegister 
            BackStyle       =   0  'Transparent
            Caption         =   "Voltage LSB"
            Height          =   255
            Index           =   1
            Left            =   3720
            TabIndex        =   62
            ToolTipText     =   "Double Click to Edit"
            Top             =   600
            Visible         =   0   'False
            Width           =   1995
         End
         Begin VB.Label lblRegister 
            BackStyle       =   0  'Transparent
            Caption         =   "Voltage MSB"
            Height          =   255
            Index           =   0
            Left            =   3720
            TabIndex        =   61
            ToolTipText     =   "Double Click to Edit"
            Top             =   360
            Visible         =   0   'False
            Width           =   1995
         End
      End
      Begin VB.CommandButton cmdRead 
         Caption         =   "Read"
         Height          =   375
         Left            =   -72600
         TabIndex        =   200
         TabStop         =   0   'False
         Top             =   3480
         Width           =   1695
      End
      Begin VB.CommandButton cmdWrite 
         Caption         =   "Write"
         Height          =   375
         Left            =   -70800
         TabIndex        =   199
         TabStop         =   0   'False
         Top             =   3480
         Width           =   1695
      End
      Begin VB.CommandButton cmdRecall 
         Caption         =   "Recall"
         Height          =   375
         Left            =   -72600
         TabIndex        =   198
         TabStop         =   0   'False
         Top             =   3960
         Width           =   1695
      End
      Begin VB.CommandButton cmdCopy 
         Caption         =   "Copy"
         Height          =   375
         Left            =   -70800
         TabIndex        =   197
         TabStop         =   0   'False
         Top             =   3960
         Width           =   1695
      End
      Begin VB.CommandButton cmdLock 
         Caption         =   "Permanently Lock Block "
         Height          =   375
         Left            =   -72600
         TabIndex        =   196
         TabStop         =   0   'False
         Top             =   4440
         Width           =   3495
      End
      Begin VB.CommandButton cmdLearn 
         Caption         =   "Learn"
         Enabled         =   0   'False
         Height          =   495
         Left            =   -71520
         TabIndex        =   195
         Top             =   3960
         Width           =   1575
      End
      Begin VB.CommandButton cmdWriteTable 
         Caption         =   "Write DS2770"
         Height          =   375
         Left            =   -68760
         TabIndex        =   176
         TabStop         =   0   'False
         Top             =   4200
         Width           =   1815
      End
      Begin VB.CommandButton cmdReadTable 
         Caption         =   "Read DS2770"
         Height          =   375
         Left            =   -68760
         TabIndex        =   175
         TabStop         =   0   'False
         Top             =   4680
         Width           =   1815
      End
      Begin VB.CommandButton cmdSaveSetup 
         Caption         =   "Save Pack Info"
         Height          =   375
         Left            =   -72600
         TabIndex        =   174
         TabStop         =   0   'False
         Top             =   4680
         Width           =   1815
      End
      Begin VB.CommandButton cmdLoadSetup 
         Caption         =   "Load Saved Pack Info"
         Height          =   375
         Left            =   -74760
         TabIndex        =   173
         TabStop         =   0   'False
         Top             =   4680
         Width           =   2055
      End
      Begin VB.CommandButton cmdLoadDefaults 
         Caption         =   "Load Default Pack Info"
         Height          =   375
         Left            =   -74760
         TabIndex        =   172
         TabStop         =   0   'False
         Top             =   4200
         Width           =   2055
      End
      Begin VB.CommandButton cmdEmpty 
         Caption         =   "Empty"
         Enabled         =   0   'False
         Height          =   495
         Left            =   -74880
         TabIndex        =   171
         TabStop         =   0   'False
         ToolTipText     =   "Click when cell is fully discharged"
         Top             =   3960
         Width           =   1575
      End
      Begin VB.CommandButton cmdFull 
         Caption         =   "Full"
         Enabled         =   0   'False
         Height          =   495
         Left            =   -73200
         TabIndex        =   170
         TabStop         =   0   'False
         ToolTipText     =   "Click when cell is fully charged"
         Top             =   3960
         Width           =   1575
      End
      Begin VB.Frame Frame6 
         BorderStyle     =   0  'None
         Height          =   3495
         Left            =   -74760
         TabIndex        =   159
         Top             =   600
         Width           =   2895
         Begin VB.Label Label15 
            BackStyle       =   0  'Transparent
            Caption         =   "F"
            Height          =   255
            Left            =   2400
            TabIndex        =   163
            Top             =   1440
            Width           =   495
         End
         Begin VB.Label Label14 
            Alignment       =   2  'Center
            BackStyle       =   0  'Transparent
            Caption         =   "1/2"
            Height          =   255
            Left            =   1200
            TabIndex        =   162
            Top             =   480
            Width           =   495
         End
         Begin VB.Label Label4 
            Alignment       =   1  'Right Justify
            BackStyle       =   0  'Transparent
            Caption         =   "E"
            Height          =   255
            Left            =   0
            TabIndex        =   161
            Top             =   1440
            Width           =   495
         End
         Begin VB.Label Label3 
            Alignment       =   2  'Center
            BackStyle       =   0  'Transparent
            Caption         =   "Percent Remaining"
            BeginProperty Font 
               Name            =   "MS Sans Serif"
               Size            =   9.75
               Charset         =   0
               Weight          =   400
               Underline       =   0   'False
               Italic          =   0   'False
               Strikethrough   =   0   'False
            EndProperty
            Height          =   495
            Left            =   840
            TabIndex        =   160
            Top             =   1680
            Width           =   1215
         End
         Begin VB.Line FuelGaugeNeedle 
            BorderWidth     =   2
            X1              =   525
            X2              =   1440
            Y1              =   1560
            Y2              =   1560
         End
         Begin VB.Image Image1 
            Height          =   2880
            Left            =   0
            Picture         =   "DS2770K.frx":0396
            Stretch         =   -1  'True
            Top             =   120
            Width           =   2895
         End
      End
      Begin VB.Frame Frame15 
         BorderStyle     =   0  'None
         Caption         =   "Frame15"
         Height          =   4800
         Left            =   60
         TabIndex        =   127
         Top             =   360
         Width           =   8175
         Begin VB.Frame Frame8 
            Height          =   1290
            Left            =   4200
            TabIndex        =   230
            Top             =   3520
            Width           =   3975
            Begin VB.CommandButton cmdClearCSTAT 
               Caption         =   "Clear CSTAT"
               Height          =   495
               Left            =   120
               TabIndex        =   240
               Top             =   240
               Width           =   855
            End
            Begin VB.CommandButton cmdStartCharge 
               Caption         =   "Start Charge"
               Height          =   375
               Left            =   2040
               TabIndex        =   232
               Top             =   840
               Width           =   1695
            End
            Begin VB.CommandButton cmdStopCharge 
               Caption         =   "Stop Charge"
               Height          =   375
               Left            =   120
               TabIndex        =   231
               Top             =   840
               Width           =   1695
            End
            Begin VB.Label lblChargeType 
               Alignment       =   2  'Center
               BackStyle       =   0  'Transparent
               Caption         =   "Charge Type"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   9.75
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False
                  Italic          =   0   'False
                  Strikethrough   =   0   'False
               EndProperty
               Height          =   255
               Left            =   120
               TabIndex        =   234
               Top             =   500
               Width           =   3615
            End
            Begin VB.Label lblChargeStatus 
               Alignment       =   2  'Center
               BackStyle       =   0  'Transparent
               Caption         =   "Charge Status"
               BeginProperty Font 
                  Name            =   "MS Sans Serif"
                  Size            =   9.75
                  Charset         =   0
                  Weight          =   400
                  Underline       =   0   'False