mscomm.txt

介绍利用VB6串行通信编程的方法

Option Explicit
Private Sub MSC1_OnComm()
MSC1.CommPort = 1  ' 使用串行口1
 
'波特率9600，偶校验，8个数据位，1个停止位
 
MSC1.Settings = "9600，E，8，1"
 
'当使用Msc1.Input时，每次从接收缓冲区取一个字节。
 
MSC1.InputLen = 0 '读取整个接收缓冲区内码或消除
 
MSC1.PortOpen = True ' 打开串行口
 
End Sub

Private Sub Comd1_Click()
 
    On Error Resume Next    '简单的错误处理
     
    If Txt1.Text = "" Then
     
    X = MsgBox("被检仪器程控码不能为空值", 16)
     
    Exit Sub
     
    End If
     
    MSC1.Output = Txt1.Text + Chr$(13)
     
    '发送程控码
     
    For i = 1 To 20000000
     
    Next
 
End Sub
 



Private Sub Comd2_Click()
 
    Txt1.Text = ""
     
    Txt1.SetFocus
 
End Sub
 

Private Sub Comd3_Click()
 
    Dim instring As String
     
    instring = MSC1.Input
     
    MSC1.Output = Txt2.Text + Chr$(13)
     
    Do
     
    DoEvents
     
    Loop Until MSC1.InBufferCount >= 20
     
    instring = MSC1.Input ' 从接收队列中读入字符串
     
    Txt2.Text = ""
     
    Txt2.Text = instring ' 显示读入的字符串
 
End Sub
 


Private Sub Comd4_Click()
 
    Txt2.Text = ""
     
    Txt2.SetFocus
     
    End Sub
     
    Private Sub Comd5_Click()
     
    MSC1.PortOpen = False ' 关闭串行口
     
    End
 
End Sub
 

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub