mscomm1.output="abcdefg" +vbCr 由回车改为 ctrl+z怎么写？

zhoupq 2003-11-09 03:58:00

mscomm1.output="abcdefg" +vbCr 由回车改为 ctrl+z怎么写？

...全文

30 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

jpinglee 2003-12-02

打赏
举报

回复

mscomm1.output="abcdefg" +chr(26)
ctrl+z的键值为26

MSComm串行通讯控件

'-----发送按钮Click事件子程序----------- Private Sub Fasong_Click() Dim JIHAO(0) As Byte ’机号 Dim head_data(4) As Byte ’5 Byte控制字 Dim end_data(0) As Byte '1 Byte 结束字 JIHAO(0) = Val(Text3.Text) head_data(0) = Val(Text4.Text) head_data(2) = &HEE 'TIMH head_data(3) = &HEE 'TIML head_data(4) = Val(Combo1.Text) 'INMOD end_data(0) = &HFF If Combo2.Text = "增加" Then head_data(1) = &H99 If Combo2.Text = "清空" Then head_data(1) = &H33 If Combo2.Text = "删除" Then head_data(1) = &H32 Ready = 0: ErrCount = 0 On Error GoTo ERRORCOM ’打开错误处理 '---------------------------------------------------------- If com1.value Then MSComm1.CommPort = 1 'Use com1 If com2.value Then MSComm1.CommPort = 2 'Use com2 MSComm1.Settings = FORM1.Combo3.Text + ",M,8,2" '设定波特率和置校验和位为1 MSComm1.InputLen = 0 ' MSComm1.PortOpen = -1 'Open the port MSComm1.OutBufferCount = 0 MSComm1.Output = JIHAO ‘发送机号 MSComm1.PortOpen = False ’关闭串口 MSComm1.Settings = FORM1.Combo3.Text + ",S,8,2" '设定波特率和置校验和位为空 MSComm1.OutBufferCount = 0 MSComm1.PortOpen = True MSComm1.Output = head_data MSComm1.Output = Text2.Text MSComm1.Output = end_data MSComm1.PortOpen = False Text1.Text = "发送成功!" + Chr(13) & Chr(10) + "发送至" + Text3.Text + "屏体," + "信息编号:" + Text4.Text + Chr(13) & Chr(10) + Chr(13) & Chr(10) + Text1.Text GoTo comend ERRORCOM: Text1.Text = "ERROR!请重新选择COM口!" + Chr(13) & Chr(10) + Chr(13) & Chr(10) + Text1.Text comend: On Error GoTo 0 End Sub

三菱解密vb源码Private Sub Command1_Click() s = Val(Mid(Combo1.Text, 4, 1)) If MSComm1.PortOpen = False Then MSComm1.CommPort = (s) MSComm1.Settings = "9600,e,7,1" MSComm1.PortOpen = True End If Text1.Text = "" MSComm1.Output = Chr$(2) + "08" + "00" + "80" + "8" + Chr$(3) + "6B" MSComm1.RThreshold = 20 End Sub Private Sub MSComm1_OnComm() w = Mid(MSComm1.Input, 2, 16) For i = 1 To 15 Step 2 a = Mid(w, i, 2) b = Val(Mid(a, 1, 1)) c = Val(Mid(a, 2, 1)) d = Chr$(b * 16 + c) Text1.Text = Text1.Text + d Next i MSComm1.RThreshold = 0 Form1.Caption = "Tel:13054900817()" End Sub

VB进行串口的关键在于MScomm控件，下面小厮先就MScomm控件进行介绍。每个MSComm控件对应于一个串行端口。使用多个串行口时，要使用多个MSComm控件。MSComm控件的主要属性及说明如下。

Private Sub Form_Load() MSComm1.Settings = "9600,n,8,1" MSComm1.OutBufferSize = 1024 '设置或返回发送缓冲区的大小，默认值为512B。 MSComm1.InBufferSize = 1024 '设置或返回接收缓冲区的大小，默认值为1024B MSComm1.OutBufferCount = 0 '清空传输缓冲区 MSComm1.InBufferCount = 0 '清空接受缓冲区 MSComm1.InputMode = 0 ' comInputModeBinary =1 采用二进制传输(ComInputModeText =0 '数据通过Input属性以文本形式取回 (默认) MSComm1.InputLen = 0 '一次读取所有数据 MSComm1.SThreshold = 0 '一次发送所有数据 ,发送数据时不产生OnComm 事件 MSComm1.RThreshold = 1 '每接收1个字节就产生产生MSComm

7,789

社区成员

197,583

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章