📄 form1.frm
字号:
VERSION 5.00
Begin VB.Form Form1
Appearance = 0 'Flat
BorderStyle = 3 'Fixed Dialog
Caption = "CH37XDBG 2008-12-27"
ClientHeight = 8280
ClientLeft = 45
ClientTop = 435
ClientWidth = 7800
Icon = "Form1.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8280
ScaleWidth = 7800
ShowInTaskbar = 0 'False
StartUpPosition = 3 '窗口缺省
Begin VB.Frame EXTERNCmd
Caption = "扩展命令"
Height = 7155
Left = 240
TabIndex = 0
Top = 840
Width = 7275
Begin VB.TextBox ICmdcode
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 2565
MaxLength = 2
TabIndex = 1
Top = 540
Width = 975
End
Begin VB.TextBox ILeng
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 6060
MaxLength = 2
TabIndex = 2
Top = 540
Width = 975
End
Begin VB.TextBox Para1
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 810
MaxLength = 2
TabIndex = 3
Top = 1140
Width = 975
End
Begin VB.TextBox Para2
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 2565
MaxLength = 2
TabIndex = 4
Top = 1140
Width = 975
End
Begin VB.TextBox Para3
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 4305
MaxLength = 2
TabIndex = 5
Top = 1140
Width = 975
End
Begin VB.TextBox Para4
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Left = 6060
MaxLength = 2
TabIndex = 6
Top = 1140
Width = 975
End
Begin VB.TextBox IBuff
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 4305
Left = 210
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 8
Top = 1800
Width = 6825
End
Begin VB.CommandButton OnButtonSend
Caption = "发送"
Height = 375
Left = 3840
TabIndex = 10
Top = 6390
Width = 1065
End
Begin VB.CommandButton Recieve
Caption = "接收"
Height = 375
Left = 5400
TabIndex = 12
Top = 6390
Width = 1065
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "输入命令码 / 输出状态码"
Height = 180
Index = 64
Left = 210
TabIndex = 15
Top = 600
Width = 2070
End
Begin VB.Label Label12
AutoSize = -1 'True
Caption = "长度(<=38H)"
Height = 180
Left = 4920
TabIndex = 14
Top = 600
Width = 990
End
Begin VB.Label Label11
AutoSize = -1 'True
Caption = "参数1"
Height = 180
Left = 210
TabIndex = 13
Top = 1230
Width = 450
End
Begin VB.Label Label10
AutoSize = -1 'True
Caption = "参数2"
Height = 180
Left = 1950
TabIndex = 11
Top = 1230
Width = 450
End
Begin VB.Label Label9
AutoSize = -1 'True
Caption = "参数3"
Height = 180
Left = 3705
TabIndex = 9
Top = 1230
Width = 450
End
Begin VB.Label Label8
AutoSize = -1 'True
Caption = "参数4"
Height = 180
Left = 5445
TabIndex = 7
Top = 1230
Width = 450
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Public Old As String 'SFR寄存器修改前的数据:判断有无修改
'Public Function mReadIRam() As Boolean
' Dim i, j As Long
' Dim Addr As Long
' Dim val(15) As Byte ''''m
' If (CH375DBG_Opened = True) Then
' For i = 0 To 15
' Addr = i * 16
' If (CH375DBG_ReadIRAM(Addr, val, 16) = True) Then
' For j = 0 To 15
' Text1(i * 16 + j).Text = hex2bit(val(j))
' Next j
' Else
' mReadIRam = False
' Exit Function
' End If
' Next i
' mReadIRam = True
' Else
' mReadIRam = False
' End If
'End Function
Private Sub Form_Initialize()
'For i = 0 To 255
'Form1.Text1(i).Text = ""
'Form1.Text2(i).Text = ""
'Next i
'Text5.Text = ""
End Sub
Private Sub Form_Unload(Cancel As Integer)
CH375DBG_CloseExit
End Sub
'***************************************************** select form
Private Sub Option1_Click(Index As Integer) '窗口选择
'......
'ElseIf Index = 3 Then
' EXTERNCmd.Visible = True
'End If
End Sub
'*****************************
'*****************************SFR
'Private Sub SFRRefresh_Click()
'End Sub
'Private Sub Text1_GotFocus(Index As Integer)
'IRamDisp.Caption = "(" & hex2bit(CByte(Index)) & "H):" & Text1(Index).Text
'End Sub
'********************
'********** IRAM
'Private Sub IRamRefresh_Click()
' If (mReadIRam() = False) Then
' MsgBox "读IRAM错误！", vbOKCancel, "CH37XDBG"
' End If
'End Sub
'**********************iram end
'************************XRAM
'**************************************XRAM end
'*************************************externcmd---外部扩展命令
Private Sub Recieve_Click()
'CXRAMPage m_xram;
Dim Buffer(MAX_DATA_SIZE * 2) As Byte
Dim Leng As Long
Dim Tems As String
If (CH375DBG_Opened = False) Then
MsgBox "设备未打开", vbOKCancel, "CH37XDBG"
Exit Sub
End If
' 写出命令块
Leng = Len(Up)
If (CH375ReadData(CH375DBG_Index, Up, Leng)) Then
' 读取应答块
If (Up.mCommandNot = Down.mCommandNot) Then ' 操作成功
'状态码
m_Comm = hex2bit(Up.mStatus)
'返回码1
Para1.Text = hex2bit(Up.mReserved(0))
'返回码2
Para2.Text = hex2bit(Up.mReserved(1))
'返回码3
Para3.Text = hex2bit(Up.mReserved(2))
'返回码4
Para4.Text = hex2bit(Up.mReserved(3))
'返回长度
ILeng.Text = hex2bit(Up.mLength)
Tems = ""
For i = 0 To Up.mLength - 1
Tems = Tems + hex2bit(Up.mBuffer(i)) + " " ' 返回数据
Next i
IBuff.Text = Tems
Else
MsgBox "返回状态错误！", vbOKCancel, "CH37XDBG"
'Exit Sub
End If
Else
MsgBox "读失败！", vbOKCancel, "CH37XDBG"
End If
End Sub
Private Sub OnButtonSend_Click()
Dim m_Comm As String
Dim m_Len As String
Dim m_Para1 As String
Dim m_Para2 As String
Dim m_Para3 As String
Dim m_Para4 As String
Dim m_Buff As String
Dim Tems As String
Dim Buffer(120) As Byte
Dim Length As Byte
Dim Temh As Byte
Dim Leng As Long
m_Comm = Trim(ICmdcode.Text)
m_Len = Trim(ILeng.Text)
m_Para1 = Trim(Para1.Text)
m_Para2 = Trim(Para2.Text)
m_Para3 = Trim(Para3.Text)
m_Para4 = Trim(Para4.Text)
m_Buff = Trim(IBuff.Text)
If (CH375DBG_Opened = False) Then
MsgBox "设备未打开", vbOKCancel, "CH37XDBG"
Exit Sub
End If
'命令码
If (Len(m_Comm) > 0) Then
Down.mCommand = hextobcd(m_Comm)
Else
Down.mCommand = 0
End If
'反命令码
Down.mCommandNot = Not Down.mCommand
'参数1
If (Len(m_Para1) > 0) Then
Down.mByte(0) = hextobcd(m_Para1)
'Down.mDword = CLng(hextobcd(m_Para1) * (256 ^ 3))
Else
Down.mByte(0) = 0
End If
'参数2
If (Len(m_Para2) > 0) Then
Down.mByte(1) = hextobcd(m_Para2)
Else
Down.mByte(1) = 0
End If
'参数3
If (Len(m_Para3) > 0) Then
Down.mByte(2) = hextobcd(m_Para3)
Else
Down.mByte(2) = 0
End If
'参数4
If (Len(m_Para4) > 0) Then
Down.mByte(3) = hextobcd(m_Para4)
Else
Down.mByte(3) = 0
End If
'长度
If (Len(m_Len) > 0) Then
Down.mLength = hextobcd(m_Len)
Else
Length = 0
End If
If (m_Buff <> "") Then
For i = 0 To Down.mLength - 1
Tems = Trim(Mid(m_Buff, (i * 2 + 1), 2))
If Tems = "" Then
Temh = 0
Else
Temh = hextobcd(Tems)
End If
Down.mBuffer(i) = Temh
Next i
End If
If Down.mCommand >= &HC0 And Down.mCommand <= &HC2 Then
Leng = CONST_CMD_LEN + Down.mLength
Else
Leng = CONST_CMD_LEN
End If
'发送数据
If (CH375Writedata(CH375DBG_Index, Down, Leng) = False) Then
MsgBox "发送失败", vbOKCancel, "CH37XDBG"
Exit Sub
End If
End Sub
Private Sub ibuff_KeyPress(KeyAscii As Integer)
KeyAscii = HexKeyAscii(KeyAscii)
If KeyAscii <> 8 And KeyAscii <> 13 Then
IBuff.SelLength = 1
IBuff.SelText = Chr(KeyAscii) '将输入的字符显示出来
KeyAscii = 0 '屏蔽系统显示前面 para2.SelText = Chr(KeyAscii)已经显示出来
End If
End Sub
'***************************************externcmd end
Private Sub Text5_Change()
End Sub
Private Sub XRDisplay_Click()
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -