一個簡單的VB串口發(fā)送程序（源碼）！ 

 

'-----發(fā)送按鈕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 結(jié)束字
    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"     '設(shè)定波特率和置校驗和位為1
     MSComm1.InputLen = 0                '
     MSComm1.PortOpen = -1               'Open the port
     MSComm1.OutBufferCount = 0
     MSComm1.Output = JIHAO              ‘發(fā)送機號
     MSComm1.PortOpen = False            ’關(guān)閉串口
     MSComm1.Settings = FORM1.Combo3.Text + ",S,8,2" '設(shè)定波特率和置校驗和位為空
     MSComm1.OutBufferCount = 0
     MSComm1.PortOpen = True
     MSComm1.Output = head_data
     MSComm1.Output = Text2.Text
     MSComm1.Output = end_data
     MSComm1.PortOpen = False
     Text1.Text = "發(fā)送成功!" + Chr(13) & Chr(10) + "發(fā)送至" + 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