module1.bas

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

Attribute VB_Name = "Module1"
Option Explicit

Public fMainForm As frmEvalKit

Public Const ReadData As Byte = &H69
Public Const WriteData As Byte = &H6C
Public Const CopyData As Byte = &H48
Public Const RecallData As Byte = &HB8
Public Const LockEEPROM As Byte = &H6A
Public Const RefreshCommand As Byte = &H63
Public Const StopCharge As Byte = &HBE
Public Const StartCharge As Byte = &HB5

        
Sub Main()
    frmSplash.lblVersion.Caption = Version
    frmSplash.Show
    frmSplash.Refresh
    Load frmEvalKit
    Unload frmSplash

    frmEvalKit.Show
End Sub