📄 通讯.frm
字号:
VERSION 5.00
Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "数据通信"
ClientHeight = 8880
ClientLeft = 45
ClientTop = 435
ClientWidth = 8865
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 8880
ScaleWidth = 8865
StartUpPosition = 1 '所有者中心
Begin VB.CommandButton Command3
Caption = "打开"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1245
Left = 4320
TabIndex = 39
Top = 6270
Width = 1215
End
Begin VB.Frame Frame7
Caption = "数据响应"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 2565
Left = 6945
TabIndex = 38
ToolTipText = "指文件结束符是 “OK”"
Top = 3570
Width = 1770
Begin VB.OptionButton Option27
Caption = "ON"
Height = 360
Left = 360
TabIndex = 41
Top = 1440
Width = 525
End
Begin VB.OptionButton Option26
Caption = "OFF"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 465
Left = 360
TabIndex = 40
Top = 495
Value = -1 'True
Width = 705
End
End
Begin VB.TextBox Text2
Height = 735
Left = 165
TabIndex = 34
Text = "Text2"
Top = 7680
Width = 8535
End
Begin VB.TextBox Text1
Height = 495
Left = 240
TabIndex = 32
Text = "Text1"
Top = 6855
Width = 3855
End
Begin MSComDlg.CommonDialog CommonDialog1
Left = 5760
Top = 1170
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VB.CommandButton Command2
Caption = "发送数据"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1290
Left = 7410
TabIndex = 31
Top = 6240
Width = 1335
End
Begin VB.CommandButton Command1
Caption = "接收数据"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 1275
Left = 5760
TabIndex = 30
Top = 6240
Width = 1380
End
Begin VB.Frame Frame6
Caption = "通讯串行口"
BeginProperty Font
Name = "隶书"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 855
Left = 3375
TabIndex = 26
Top = 2550
Width = 5340
Begin VB.TextBox Text3
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 4215
TabIndex = 37
Top = 330
Width = 915
End
Begin VB.OptionButton Option24
Caption = "COM3"
Height = 495
Left = 2400
TabIndex = 29
Top = 240
Width = 855
End
Begin VB.OptionButton Option23
Caption = "COM2"
Height = 495
Left = 1320
TabIndex = 28
Top = 240
Width = 855
End
Begin VB.OptionButton Option22
Caption = "COM1"
Height = 255
Left = 360
TabIndex = 27
Top = 360
Value = -1 'True
Width = 855
End
Begin VB.Label Label3
Caption = "端口号"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 255
Left = 3315
TabIndex = 36
ToolTipText = "由于系统系统无法自动识别该端口，请你在文本框内输入，端口没有列出时，也可在此键入。"
Top = 480
Width = 735
End
Begin VB.Label Label2
Caption = "RS—232"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H8000000D&
Height = 255
Left = 3240
TabIndex = 35
ToolTipText = "由于系统系统无法自动识别该端口，请你在文本框内输入，端口没有列出时，也可在此键入。"
Top = 240
Width = 855
End
End
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
Height = 2535
Left = 255
TabIndex = 21
Top = 3570
Width = 6495
Begin VB.OptionButton Option21
Caption = "Request To Send 和 XON/XOFF 握手皆可。"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
TabIndex = 25
Top = 1680
Width = 4695
End
Begin VB.OptionButton Option20
Caption = "RTS/CTS (Request To Send/Clear To Send) 握手。"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
TabIndex = 24
Top = 1080
Width = 5415
End
Begin VB.OptionButton Option19
Caption = "XON/XOFF) 握手"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 3120
TabIndex = 23
Top = 480
Width = 1935
End
Begin VB.OptionButton Option18
Caption = "（缺省）没有握手。"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
TabIndex = 22
Top = 480
Value = -1 'True
Width = 2415
End
End
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
Height = 855
Left = 225
TabIndex = 17
Top = 2535
Width = 3015
Begin VB.OptionButton Option17
Caption = "2"
Height = 375
Left = 2280
TabIndex = 20
Top = 360
Width = 495
End
Begin VB.OptionButton Option16
Caption = "1.5"
Height = 375
Left = 1200
TabIndex = 19
Top = 360
Width = 615
End
Begin VB.OptionButton Option15
Caption = "1"
Height = 375
Left = 240
TabIndex = 18
Top = 360
Value = -1 'True
Width = 495
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
Height = 855
Left = 4335
TabIndex = 13
Top = 1500
Width = 4380
Begin VB.OptionButton Option14
Caption = "无校验"
Height = 375
Left = 300
TabIndex = 16
Top = 330
Value = -1 'True
Width = 1095
End
Begin VB.OptionButton Option13
Caption = "奇校验"
Height = 375
Left = 2955
TabIndex = 15
Top = 330
Width = 975
End
Begin VB.OptionButton Option8
Caption = "偶校验"
Height = 375
Left = 1620
TabIndex = 14
Top = 345
Width = 855
End
End
Begin VB.Frame Frame2
Caption = "数据位"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -