📄 frmmain.frm
字号:
Top = 1335
Width = 615
End
Begin VB.Label Label4
Caption = "长度"
Height = 255
Left = 405
TabIndex = 37
Top = 885
Width = 495
End
Begin VB.Label Label20
Caption = "(<1000H)"
Height = 285
Left = 3015
TabIndex = 36
Top = 885
Width = 855
End
End
Begin VB.Frame Frame2
Caption = "读写地址，API=EppReadAddr和EppWriteAddr"
Height = 2865
Left = -74400
TabIndex = 21
Top = 3660
Width = 6120
Begin VB.TextBox eppData1
Height = 1025
Left = 1035
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 25
Top = 1305
Width = 4695
End
Begin VB.TextBox eppLen1
BeginProperty DataFormat
Type = 0
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
Height = 375
Left = 1035
TabIndex = 24
Top = 855
Width = 2415
End
Begin VB.CommandButton eppRead1
Caption = "Read"
Height = 375
Left = 3660
TabIndex = 23
Top = 2400
Width = 975
End
Begin VB.CommandButton eppWrite1
Caption = "Write"
Height = 375
Left = 4755
TabIndex = 22
Top = 2400
Width = 975
End
Begin VB.Label Label5
Caption = "EPP方式读地址: WR#=1, DS#=1, AS#=0, D0-D7=input"
Height = 180
Left = 345
TabIndex = 30
Top = 285
Width = 4455
End
Begin VB.Label Label6
Caption = "EPP方式写地址: WR#=0, DS#=1, AS#=0, D0-D7=output"
Height = 180
Left = 345
TabIndex = 29
Top = 570
Width = 4455
End
Begin VB.Label Label7
Caption = "数据"
Height = 255
Left = 375
TabIndex = 28
Top = 1320
Width = 615
End
Begin VB.Label Label8
Caption = "长度"
Height = 255
Left = 345
TabIndex = 27
Top = 900
Width = 495
End
Begin VB.Label Label21
Caption = "(<1000H)"
Height = 285
Left = 3510
TabIndex = 26
Top = 930
Width = 855
End
End
Begin VB.Frame Frame3
Caption = "读写地址0，API=MemReadAddr0和MemWriteAddr0"
Height = 2865
Left = 585
TabIndex = 11
Top = 540
Width = 6120
Begin VB.TextBox memData0
Height = 1025
Left = 1140
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 15
Top = 1275
Width = 4695
End
Begin VB.TextBox memLen0
BeginProperty DataFormat
Type = 0
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
Height = 375
Left = 1140
TabIndex = 14
Top = 825
Width = 2415
End
Begin VB.CommandButton memRead0
Caption = "Read"
Height = 375
Left = 3720
TabIndex = 13
Top = 2370
Width = 975
End
Begin VB.CommandButton memWrite0
Caption = "Write"
Height = 375
Left = 4875
TabIndex = 12
Top = 2370
Width = 975
End
Begin VB.Label Label10
Caption = "数据"
Height = 255
Left = 300
TabIndex = 20
Top = 1275
Width = 615
End
Begin VB.Label Label11
Caption = "MEM方式写地址0: WR#=0, DS#/RD#=1,AS#/ADDR=0,D0-D7=output"
Height = 255
Left = 300
TabIndex = 19
Top = 540
Width = 5295
End
Begin VB.Label Label12
Caption = "MEM方式读地址0: WR#=1, DS#/RD#=0,AS#/ADDR=0,D0-D7=input"
Height = 180
Left = 300
TabIndex = 18
Top = 255
Width = 5415
End
Begin VB.Label Label9
Caption = "长度"
Height = 255
Left = 300
TabIndex = 17
Top = 885
Width = 495
End
Begin VB.Label Label22
Caption = "(<1000H)"
Height = 285
Left = 3585
TabIndex = 16
Top = 870
Width = 855
End
End
Begin VB.Frame Frame4
Caption = "读写地址1，API=MemReadAddr1和MemWriteAddr1"
Height = 2865
Left = 630
TabIndex = 1
Top = 3720
Width = 6120
Begin VB.TextBox memLen1
BeginProperty DataFormat
Type = 0
Format = "0"
HaveTrueFalseNull= 0
FirstDayOfWeek = 0
FirstWeekOfYear = 0
LCID = 2052
SubFormatType = 0
EndProperty
Height = 375
Left = 1050
TabIndex = 5
Top = 840
Width = 2415
End
Begin VB.TextBox memData1
Height = 1025
Left = 1050
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 4
Top = 1290
Width = 4695
End
Begin VB.CommandButton memRead1
Caption = "Read"
Height = 375
Left = 3645
TabIndex = 3
Top = 2385
Width = 975
End
Begin VB.CommandButton memWrite1
Caption = "Write"
Height = 375
Left = 4710
TabIndex = 2
Top = 2385
Width = 975
End
Begin VB.Label Label13
Caption = "长度"
Height = 255
Left = 330
TabIndex = 10
Top = 900
Width = 495
End
Begin VB.Label Label14
Caption = "数据"
Height = 255
Left = 330
TabIndex = 9
Top = 1290
Width = 615
End
Begin VB.Label Label15
Caption = "MEM方式写地址1: WR#=0, DS#/RD#=1, AS#/ADDR=1, D0-D7=output"
Height = 180
Left = 375
TabIndex = 8
Top = 600
Width = 5655
End
Begin VB.Label Label16
Caption = "MEM方式读地址1: WR#=1, DS#/RD#=0, AS#/ADDR=1, D0-D7=input"
Height = 180
Left = 375
TabIndex = 7
Top = 315
Width = 5535
End
Begin VB.Label Label23
Caption = "(<1000H)"
Height = 285
Left = 3555
TabIndex = 6
Top = 855
Width = 855
End
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim hopen As Long
Private Sub eepromRdDate_Click()
Dim mDataAddr As Long
Dim mLen As Long
Dim buffer As arrRBuffer
Dim bu() As Byte
mLen = HexToBcd(RdDataLen)
If (RdDataAddr.Text = "") Then
MsgBox "请输入数据单元起始地址！", vbExclamation, "CH341"
Exit Sub
End If
If (mLen <= 0) Then
MsgBox "请输入读取长度！", vbExclamation, "CH341"
Exit Sub
End If
mDataAddr = HexToBcd(RdDataAddr)
If (mOpen = True) Then
If (CH341ReadEEPROM(mIndex, eepromid, mDataAddr, mLen, buffer)) Then
Dim buff As String
Dim i As Long
For i = 0 To mLen - 1
buff = buff & Hex2bit(buffer.buf(i)) & " "
Next i
RdDataBuf.Text = buff
Else
MsgBox "读E2PROM数据失败！", vbExclamation, "CH341"
End If
RdDataLen.Text = Hex(mLen)
Else
MsgBox "设备未打开！", vbExclamation, "CH341"
End If
End Sub
Private Sub eepromWrDate_Click()
Dim mData As Byte
Dim mDataAddr As Long
Dim mLen As Long
Dim buffer As arrRBuffer
mLen = HexToBcd(WrDataLen.Text)
If (WrDataAddr.Text = "") Then
MsgBox "请输入数据单元起始地址！", vbExclamation, "CH341"
Exit Sub
End If
If (mLen <= 0 Or WrDataBuf.Text = "") Then
MsgBox "请输入要写入的数据,长度！", vbExclamation, "CH341"
Exit Sub
End If
If (mLen > (Len(WrDataBuf) \ 2)) Then '在输入长度和数据长度中取小值
mLen = Len(WrDataBuf) \ 2
End If
mDataAddr = HexToBcd(WrDataAddr.Text)
Call mStrtoVal(WrDataBuf.Text, buffer, mLen) '将输入的十六进制格式字符数据转成数值数据
If (mOpen = True) Then
If (CH341WriteEEPROM(mIndex, eepromid, mDataAddr, mLen, buffer) = False) Then
MsgBox "读E2PROM数据失败！", vbExclamation, "CH341"
End If
WrDataLen.Text = Hex(mLen)
Else
MsgBox "设备未打开！", vbExclamation, "CH341"
End If
End Sub
Private Sub eppRead0_Click()
Dim mLen As Long
Dim buffer As arrRBuffer
mLen = HexToBcd(eppLen0.Text)
If (mLen <= 0) Then
MsgBox "请输入读取长度", vbExclamation, "CH341"
Exit Sub
End If
If (mOpen = True) Then
If (CH341EppReadData(mIndex, buffer, mLen)) Then
Dim buff As String
Dim i As Long
buff = ""
For i = 0 To mLen - 1 Step 1
buff = buff & Hex2bit(buffer.buf(i)) & " "
Next
eppData0.Text = buff
Else
MsgBox "EPP方式读数据失败！ ", vbExclamation, "CH341"
End If
eppLen0.Text = Hex(mLen)
Else
MsgBox "设备未打开！", vbExclamation, "CH341"
End If
End Sub
Private Sub eppRead1_Click()
Dim mLen As Long
Dim buffer As arrRBuffer
mLen = HexToBcd(eppLen1.Text)
If (mLen <= 0) Then
MsgBox "请输入读取数据的长度", vbExclamation, "CH341"
Exit Sub
End If
If (mOpen = True) Then
If (CH341EppReadAddr(mIndex, buffer, mLen)) Then
Dim buff As String
Dim i, j As Long
j = 0
For i = 0 To mLen - 1
buff = buff & Hex2bit(buffer.buf(i)) + " "
Next
eppData1.Text = buff
Else
MsgBox "EPP读数据块1失败！ ", vbExclamation, "CH341"
End If
eppLen1.Text = Hex(mLen)
Else
MsgBox "设备未打开！", vbExclamation, "CH341"
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -