📄 sci.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "串行口收发测试 苏州大学freescale MCU&DSP研发中心 2005年3月版"
ClientHeight = 8760
ClientLeft = 4575
ClientTop = 3135
ClientWidth = 10110
BeginProperty Font
Name = "黑体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "SCI.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8760
ScaleWidth = 10110
StartUpPosition = 2 'CenterScreen
Begin VB.Frame Frame5
Caption = "十进制显示"
BeginProperty Font
Name = "黑体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1785
Left = 630
TabIndex = 10
Top = 5760
Width = 8505
Begin VB.TextBox TxtRecvOct
BackColor = &H00C0E0FF&
BeginProperty Font
Name = "楷体_GB2312"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1215
Left = 210
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 11
Text = "SCI.frx":0A02
Top = 390
Width = 8145
End
End
Begin MSCommLib.MSComm MSComm1
Left = 4650
Top = 7950
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
DTREnable = -1 'True
InputMode = 1
End
Begin VB.CommandButton CmdCLR
Caption = "清空"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 6000
TabIndex = 4
Top = 7980
Width = 1545
End
Begin VB.CommandButton CmdEXIT
Caption = "退出"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 7770
TabIndex = 3
Top = 7980
Width = 1275
End
Begin VB.Frame Frame2
Caption = "接收窗口"
BeginProperty Font
Name = "黑体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 6105
Left = 390
TabIndex = 1
Top = 1680
Width = 9105
Begin VB.Frame Frame4
Caption = "十六进制显示"
BeginProperty Font
Name = "黑体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1905
Left = 240
TabIndex = 8
Top = 1950
Width = 8505
Begin VB.TextBox TxtRecvHex
BackColor = &H00C0E0FF&
BeginProperty Font
Name = "楷体_GB2312"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1245
Left = 210
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 9
Text = "SCI.frx":0A09
Top = 390
Width = 8145
End
End
Begin VB.Frame Frame3
Caption = "字符显示"
BeginProperty Font
Name = "黑体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 1395
Left = 270
TabIndex = 6
Top = 450
Width = 8505
Begin VB.TextBox TxtRECV
BackColor = &H00C0E0FF&
BeginProperty Font
Name = "楷体_GB2312"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 900
Left = 270
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 7
Text = "SCI.frx":0A10
Top = 330
Width = 8025
End
End
End
Begin VB.Frame Frame1
BackColor = &H8000000A&
Caption = "发送窗口"
BeginProperty Font
Name = "黑体"
Size = 15.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = -1 'True
Strikethrough = 0 'False
EndProperty
Height = 1095
Left = 420
TabIndex = 0
Top = 330
Width = 9075
Begin VB.CommandButton CmdSEND
Caption = "发送"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 7530
TabIndex = 5
Top = 420
Width = 1215
End
Begin VB.TextBox TxtSEND
BackColor = &H00FFFFFF&
BeginProperty Font
Name = "黑体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 480
Left = 270
MaxLength = 30
TabIndex = 2
Text = "12345678"
Top = 390
Width = 6825
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'程序描述：
' （1）把发送窗口中的数据从COM1发送出去
' （2）把接收到的数据显示在接收窗口中
'-------------------------------------------------------
Option Explicit '检查未经声明的变量
Dim SendData() As Byte '发送数据数组
Dim RecvData() As Byte '接收数据数组
Private Sub Form_Load()
'串行口初始化
Call SCIinit(MSComm1, 1, "9600,N,8,1")
'清空有关文本框
TxtSEND.Text = ""
TxtRECV.Text = "": TxtRecvHex.Text = "": TxtRecvOct.Text = ""
'开放串行中断
MSComm1.RThreshold = 1
End Sub
Private Sub CmdSEND_Click() '单击"发送"按钮
Dim i As Integer
If TxtSEND.Text = "" Then
TxtRECV.Text = "": TxtRecvHex.Text = "": TxtRecvOct.Text = ""
GoTo CmdSEND_Click_Exit
End If
ReDim SendData(Len(TxtSEND.Text) - 1)
For i = 0 To Len(TxtSEND.Text) - 1
SendData(i) = Asc(Mid$(TxtSEND.Text, i + 1, 1))
Next i
MSComm1.Output = SendData
CmdSEND_Click_Exit:
End Sub
Public Sub MSComm1_OnComm() '串行接收中断
Dim i As Integer
Dim Stemp As String
Static S1 As String
Static S2 As String
Static S3 As String
If Len(Trim(TxtRECV.Text)) = 0 Then S1 = "": S2 = "": S3 = ""
MSComm1.RThreshold = 0 '关闭串行中断
RecvData = MSComm1.Input
For i = LBound(RecvData) To UBound(RecvData)
If (RecvData(i) >= 127 Or RecvData(i) = 0) Then
Stemp = Chr$(1)
Else
Stemp = Trim(Chr$(RecvData(i)))
End If
S1 = S1 & Stemp & " " 'Trim(Chr$(RecvData(i)))
S2 = S2 & Hex$(RecvData(i)) & " "
S3 = S3 & RecvData(i) & " "
Next i
TxtRECV.Text = S1: TxtRecvHex.Text = S2: TxtRecvOct.Text = S3
If Len(S1) >= 70 Then S1 = "": S2 = "": S3 = ""
MSComm1.RThreshold = 1 '开放串行中断
End Sub
Private Sub CmdCLR_Click() '单击"清空"按钮
TxtSEND.Text = ""
TxtRECV.Text = "": TxtRecvHex.Text = "": TxtRecvOct.Text = ""
End Sub
Private Sub CmdEXIT_Click() '单击"退出"按钮
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
End
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -