menuds2770.bas

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

Attribute VB_Name = "MenuDS2770"


Sub OpenLast()
    BatteryCapacity = Val(GetSetting("DS2770", "Settings", "RatedCapacity", "520"))
    StandardPower = Val(GetSetting("DS2770", "Settings", "StandardPower", "1.8"))
End Sub

Sub SaveLast()
    SaveSetting "DS2770", "Settings", "RatedCapacity", BatteryCapacity
    SaveSetting "DS2770", "Settings", "StandardPower", StandardPower
End Sub

Sub LoadSetup()
Dim FileName As String
Dim Output(50) As String
Dim i As Integer
Dim j As Integer
    frmEvalKit.CommonDialog1.Filter = "Text Files (*.txt)|*.txt"
    frmEvalKit.CommonDialog1.ShowOpen
    
    FileName = frmEvalKit.CommonDialog1.FileName
    
    If Not FileName = "" Then
        Open FileName For Input As #1
        On Error GoTo CheckError
        Do While Not EOF(1)
              Input #1, Output(0), Output(1), Output(2), Output(3), Output(4), _
               Output(5), Output(6), Output(7), Output(8), Output(9), _
               Output(10), Output(11), Output(12), Output(13), Output(14), _
               Output(15), Output(16), Output(17), Output(18), Output(19), _
               Output(20), Output(21), Output(22), Output(23), Output(24), Output(25), _
               Output(26), Output(27), Output(28), Output(29), Output(30), Output(31), _
               Output(32), Output(33), Output(34), Output(35)
        Loop
        Close #1
        
        frmEvalKit.cmbPMOD.Text = Output(0)
        frmEvalKit.cmbRNAOP.Text = Output(1)
        frmEvalKit.cmbCINI.Text = Output(2)
        frmEvalKit.cmbCTYPE.Text = Output(3)
        frmEvalKit.cmbManufacturer.Text = Output(4)
        frmEvalKit.cmbChemistry.Text = Output(5)
        frmEvalKit.txtSenseResistor.Text = Output(6)
        frmEvalKit.txtMonth.Text = Output(7)
        frmEvalKit.txtDay.Text = Output(8)
        frmEvalKit.txtYear.Text = Output(9)
        frmEvalKit.txtRatedCapacity.Text = Output(10)
        frmEvalKit.txtLastDischarge.Text = Output(11)
        frmEvalKit.txtAccumulatedDischarge.Text = Output(12)
        frmEvalKit.txtCC(0).Text = Output(13)
        frmEvalKit.txtD1(0).Text = Output(14)
        frmEvalKit.txtD2(0).Text = Output(15)
        frmEvalKit.txtCC(1).Text = Output(16)
        frmEvalKit.txtD1(1).Text = Output(17)
        frmEvalKit.txtD2(1).Text = Output(18)
        frmEvalKit.txtCC(2).Text = Output(19)
        frmEvalKit.txtD1(2).Text = Output(20)
        frmEvalKit.txtD2(2).Text = Output(21)
        frmEvalKit.txtCC(3).Text = Output(22)
        frmEvalKit.txtD1(3).Text = Output(23)
        frmEvalKit.txtD2(3).Text = Output(24)
        frmEvalKit.txtCC(4).Text = Output(25)
        frmEvalKit.txtD1(4).Text = Output(26)
        frmEvalKit.txtD2(4).Text = Output(27)
        frmEvalKit.txtCBT(0).Text = Output(28)
        frmEvalKit.txtCBT(1).Text = Output(29)
        frmEvalKit.txtCBT(2).Text = Output(30)
        frmEvalKit.txtCET(0).Text = Output(31)
        frmEvalKit.txtCET(1).Text = Output(32)
        frmEvalKit.txtCET(2).Text = Output(33)
        frmEvalKit.txtCB.Text = Output(34)
        frmEvalKit.hxAssemblyID.Text = Output(35)
    End If
    
    Exit Sub
CheckError:
    If Err.Number = 62 Then
        MsgBox ("The Selected File is not of the correct format.")
        Err.Clear
        Close #1
    End If
    
End Sub

Sub SaveSetup()
Dim FileName As String
Dim i As Integer

    frmEvalKit.CommonDialog1.Filter = "Text Files (*.txt)|*.txt"
    frmEvalKit.CommonDialog1.ShowSave
    FileName = frmEvalKit.CommonDialog1.FileName
    
    If FileName = "" Then
    Else
        Open FileName For Output As #1
        Write #1, frmEvalKit.cmbPMOD.Text, frmEvalKit.cmbRNAOP.Text, _
            frmEvalKit.cmbCINI.Text, frmEvalKit.cmbCTYPE.Text, _
            frmEvalKit.cmbManufacturer.Text, frmEvalKit.cmbChemistry.Text, _
            frmEvalKit.txtSenseResistor.Text, frmEvalKit.txtMonth.Text, _
            frmEvalKit.txtDay.Text, frmEvalKit.txtYear.Text, _
            frmEvalKit.txtRatedCapacity.Text, frmEvalKit.txtLastDischarge.Text, _
            frmEvalKit.txtAccumulatedDischarge.Text, frmEvalKit.txtCC(0).Text, _
            frmEvalKit.txtD1(0).Text, frmEvalKit.txtD2(0).Text, frmEvalKit.txtCC(1).Text, _
            frmEvalKit.txtD1(1).Text, frmEvalKit.txtD2(1).Text, frmEvalKit.txtCC(2).Text, _
            frmEvalKit.txtD1(2).Text, frmEvalKit.txtD2(2).Text, frmEvalKit.txtCC(3).Text, _
            frmEvalKit.txtD1(3).Text, frmEvalKit.txtD2(3).Text, frmEvalKit.txtCC(4).Text, _
            frmEvalKit.txtD1(4).Text, frmEvalKit.txtD2(4).Text, frmEvalKit.txtCBT(0).Text, _
            frmEvalKit.txtCBT(1).Text, frmEvalKit.txtCBT(2).Text, frmEvalKit.txtCET(0).Text, _
            frmEvalKit.txtCET(1).Text, frmEvalKit.txtCET(2).Text, frmEvalKit.txtCB.Text, _
            frmEvalKit.hxAssemblyID.Text

    Close #1
    End If
End Sub