文件名称:Send232
- 所属分类：
- 串口编程
- 资源属性：
- [Windows] [Visual C] [Basic/ASP] [源码]
- 上传时间：
- 2013-04-10
- 文件大小：
- 5kb
- 下载次数：
- 0次
- 提 供 者：
- Dan *****
- 相关连接：
- 无
- 下载说明：
- 别用迅雷下载，失败请重下，重下不扣分！
介绍说明－－下载内容均来自于网络，请自行研究使用
簡單實現如何透過RS-232 Com port 收送資料
Private Sub btnOpenCOM_Click()
//設定Com Port 號碼
MSComm1.CommPort = CInt(txtCOM.Text)
//設定鮑率,Dataformat
MSComm1.Settings = "9600,n,8,1"
//開啟Com Port
MSComm1.PortOpen = True
End Sub
Private Sub btnSend_Click()
//傳送資料
MSComm1.Output = txtSend.Text
End Sub
Private Sub cmdReceive_Click()
//接收資料
txtReceive.Text = txtReceive.Text & MSComm1.Input
End Sub
-Use RS-232 Com port send and receive data
Private Sub btnOpenCOM_Click()
//設定Com Port 號碼
MSComm1.CommPort = CInt(txtCOM.Text)
//Set Dataformat
MSComm1.Settings = "9600,n,8,1"
//開啟Com Port
MSComm1.PortOpen = True
End Sub
Private Sub btnSend_Click()
//傳送資料
MSComm1.Output = txtSend.Text
End Sub
Private Sub cmdReceive_Click()
//接收資料
txtReceive.Text = txtReceive.Text & MSComm1.Input
End Sub
Private Sub btnOpenCOM_Click()
//設定Com Port 號碼
MSComm1.CommPort = CInt(txtCOM.Text)
//設定鮑率,Dataformat
MSComm1.Settings = "9600,n,8,1"
//開啟Com Port
MSComm1.PortOpen = True
End Sub
Private Sub btnSend_Click()
//傳送資料
MSComm1.Output = txtSend.Text
End Sub
Private Sub cmdReceive_Click()
//接收資料
txtReceive.Text = txtReceive.Text & MSComm1.Input
End Sub
-Use RS-232 Com port send and receive data
Private Sub btnOpenCOM_Click()
//設定Com Port 號碼
MSComm1.CommPort = CInt(txtCOM.Text)
//Set Dataformat
MSComm1.Settings = "9600,n,8,1"
//開啟Com Port
MSComm1.PortOpen = True
End Sub
Private Sub btnSend_Click()
//傳送資料
MSComm1.Output = txtSend.Text
End Sub
Private Sub cmdReceive_Click()
//接收資料
txtReceive.Text = txtReceive.Text & MSComm1.Input
End Sub
(系统自动生成,下载前可以参看下载内容)
下载文件列表
Send\Form1.frm
....\Project1.exe
....\Project1.vbp
....\Project1.vbw
Send