实例介绍
【实例简介】
【实例截图】
【实例截图】
【核心代码】
VERSION 5.00 Object = "{648A5603-2C6E-101B-82B6-000000000014}#1.1#0"; "MSCOMM32.OCX" Begin VB.Form FormInput Caption = "输入缓冲区与输出缓冲区" ClientHeight = 1515 ClientLeft = 60 ClientTop = 450 ClientWidth = 3870 LinkTopic = "Form1" ScaleHeight = 1515 ScaleWidth = 3870 StartUpPosition = 3 '窗口缺省 Begin MSCommLib.MSComm MSComm1 Left = 120 Top = 840 _ExtentX = 1005 _ExtentY = 1005 _Version = 393216 DTREnable = -1 'True RThreshold = 1 End Begin VB.CommandButton CmdOpenPort Caption = "打开串口" Height = 375 Left = 120 TabIndex = 4 Top = 240 Width = 1095 End Begin VB.TextBox TxtReceive Height = 375 Left = 2520 TabIndex = 3 Top = 960 Width = 1095 End Begin VB.CommandButton CmdReceive Caption = "接收数据" Height = 375 Left = 1200 TabIndex = 2 Top = 960 Width = 1215 End Begin VB.TextBox TxtSend Height = 375 Left = 2520 TabIndex = 1 Top = 240 Width = 1095 End Begin VB.CommandButton CmdSend Caption = "发送数据" Height = 375 Left = 1320 TabIndex = 0 Top = 240 Width = 1095 End End Attribute VB_Name = "FormInput" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub Command1_Click() MSComm1.Output = Text1.Text Do 'DoEvents Loop Until MSComm1.InBufferCount <> 0 'Delay 2 'Text2.Text = MSComm1.Input End Sub Private Sub Command2_Click() Text2.Text = MSComm1.Input End Sub Private Sub Command3_Click() MSComm1.CommPort = 1 MSComm1.PortOpen = True MSComm1.InputLen = 0 MSComm1.InputMode = comInputModeText End Sub 'Private Sub MSComm1_OnComm() '接收数据 ' Dim strBuff As String '定义字符串变量 ' Select Case MSComm1.CommEvent ' Case comEvReceive '发生接收事件时 ' ' strBuff = MSComm1.Input ' ' Text2.Text = strBuff ' ' Case Else ' End Select 'End Sub '延时(X秒) Public Sub Delay(ByVal ParTime As Long) Dim tim tim = Timer While Timer - tim < ParTime DoEvents Wend End Sub Private Sub CmdOpenPort_Click() MSComm1.CommPort = 1 '设置串口号为Com1 MSComm1.PortOpen = True '打开串口 'MSComm1.InputMode = comInputModeText '以字符方式输入 MSComm1.InputMode = comInputModeBinary '以字符方式输入 MSComm1.InputLen = 0 '从输入缓冲区输入所有字符 End Sub Private Sub CmdReceive_Click() TxtReceive.Text = MSComm1.Input '将输入缓冲区的字符读入接收框中 End Sub Private Sub CmdSend_Click() MSComm1.Output = TxtSend.Text '将发送框中的数据送入输出缓冲区 'Do '开始循环 'Loop Until MSComm1.InBufferCount <> 0 '当接收缓冲区有字符输入时跳出循环 End Sub
好例子网口号:伸出你的我的手 — 分享!
小贴士
感谢您为本站写下的评论,您的评论对其它用户来说具有重要的参考价值,所以请认真填写。
- 类似“顶”、“沙发”之类没有营养的文字,对勤劳贡献的楼主来说是令人沮丧的反馈信息。
- 相信您也不想看到一排文字/表情墙,所以请不要反馈意义不大的重复字符,也请尽量不要纯表情的回复。
- 提问之前请再仔细看一遍楼主的说明,或许是您遗漏了。
- 请勿到处挖坑绊人、招贴广告。既占空间让人厌烦,又没人会搭理,于人于己都无利。
关于好例子网
本站旨在为广大IT学习爱好者提供一个非营利性互相学习交流分享平台。本站所有资源都可以被免费获取学习研究。本站资源来自网友分享,对搜索内容的合法性不具有预见性、识别性、控制性,仅供学习研究,请务必在下载后24小时内给予删除,不得用于其他任何用途,否则后果自负。基于互联网的特殊性,平台无法对用户传输的作品、信息、内容的权属或合法性、安全性、合规性、真实性、科学性、完整权、有效性等进行实质审查;无论平台是否已进行审查,用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。本站所有资源不代表本站的观点或立场,基于网友分享,根据中国法律《信息网络传播权保护条例》第二十二与二十三条之规定,若资源存在侵权或相关问题请联系本站客服人员,点此联系我们。关于更多版权及免责申明参见 版权及免责申明
网友评论
我要评论