虛擬串口開發vb示常式序

『壹』 如何用VB編寫串口程序

有串口控制項MSComm控制項

MSComm 控制項示例
下面這個簡單的例子演示了用數據機進行基本的串列通訊：
Private Sub Form_Load ()
' 保存輸入子串的緩沖區
Dim Instring As String
' 使用 COM1。
MSComm1.CommPort = 1
' 9600 波特，無奇偶校驗，8 位數據，一個停止位。
MSComm1.Settings = "9600,N,8,1"
' 當輸入佔用時，
' 告訴控制項讀入整個緩沖區。
MSComm1.InputLen = 0
' 打開埠。
MSComm1.PortOpen = True
' 將 attention 命令送到數據機。
' Chr$函數：返回 String，其中包含有與指定的字元代碼相關的字元 。
MSComm1.Output = "ATV1Q0" & Chr$(13) ' 確保
' 數據機以"OK"響應。
' 等待數據返回到串列埠。
Do
DoEvents
Buffer$ = Buffer$ & MSComm1.Input
Loop Until InStr(Buffer$, "OK" & vbCRLF)
' 從串列埠讀 "OK" 響應。
' 關閉串列埠。
MSComm1.PortOpen = False
End Sub

『貳』 高分急求Commix(串口調試軟體)VB源代碼.有滿意答案追加分數

vb寫串口調試軟體很簡單，就用一個mscomm控制項就可以了
下面是主要代碼：
Private Sub Cmd_Click()
MSComm1.CommPort = 1 '決定串口號
MSComm1.Settings = "9600,n,8,1" '設置波特率、校驗位、數據位、停止位的字元串
MSComm1.PortOpen = True '打開串口
MSComm1.Output = "abcd" '向串口發送字元串"abcd"
MSComm1.PortOpen = False '關閉串口
End Sub

Private Sub MSComm1_OnComm() '當收到串口返回值時觸發這個事件
Dim s As String '定義一個字元串變數

s = MSComm1.Input '將串口返回值放到字元串變數s中
MsgBox s '以消息框的方式顯示串口返回的內容
End Sub

『叄』 vb串口通信程序實例

我也是自己摸索開發出來的每一款VBtoCOM通訊，有具體的思路如下：

給你推薦一個工具「com串口測試工具 ComTone V1.0 中文綠色版」

1、打開你的噪音計的測試軟體，調整好串口號、通訊頻率等等，我用溫度計舉例說明。