///////////VB程序///////////
Const READIIC As Byte = &H1
Const WRITEIIC As Byte = &H2
Const RESETIIC As Byte = &H0
Option Explicit
Dim buff(0 To 32) As Byte '缓冲区
Dim filebuff(0 To 255) As Byte '发送文件缓冲区
Dim recebuff(0 To 255) As Byte '接收文件缓冲区
Dim mycount As Integer '计数器
Private Sub Command1_Click()
Me.Enabled = False
mycount = 0
'发送写命令和数据
buff(0) = WRITEIIC
Dim i As Integer
For i = 1 To 32
buff(i) = filebuff(i - 1)
Next i
Mcom.Output = buff
End Sub
Private Sub Command2_Click()
Me.Enabled = False
'发送读命令和数据
mycount = 0
buff(0) = READIIC
Mcom.Output = buff
End Sub
Private Sub Command3_Click()
Dim buff() As Byte
Dim i As Integer
Dim str As String
'打开对话框
CD1.InitDir = "c:\"
CD1.ShowOpen
Text3.Text = CD1.FileName
If Len(Text3.Text) = 0 Then Exit Sub
Command1.Enabled = True
'打开文件
Open Text3.Text For Binary As #1
If LOF(1) = 0 Then End
'--------------------------------
If (LOF(1) > 0) And (LOF(1) < 256) Then
ReDim buff(0 To LOF(1)) As Byte
Get 1, , buff()
For i = 0 To LOF(1) - 1
filebuff(i) = buff(i)
Next i