VB.rar_VB 串口 单片机_VB 串口通信_VB单片机串口_上位机 VB_单片机串口通信

Dim d As Integer Private pub_dt() As String Dim i, Rn, Tn As Integer Private Sub Command1_Click() MSComm1.InBufferCount = 0 Picture1.Cls End Sub Private Sub Command2_Click() Dim sendarr(0) As Byte Dim send As Variant Dim temp() As String Dim j As Integer If MSComm1.PortOpen = False Then MSComm1.PortOpen = True End If temp = Split(Text2, ",") For i = 0 To UBound(temp) sendarr(0) = temp(i) send = sendarr 'MSComm1.Output = Chr(temp(i)) MSComm1.Output = send 'For j = 1 To 8000 'DoEvents 'Next j Next i 'Tn = Tn + 1 'Text3.Text = Tn Tn = 0 End Sub Private Sub Command3_Click() If MSComm1.PortOpen = True Then MsgBox "串口1被占用！！！" End If If MSComm1.PortOpen = False Then MSComm1.PortOpen = True MsgBox "串口1打开成功" End If End Sub Private Sub Command4_Click() MSComm1.PortOpen = False MsgBox "关闭成功" End Sub Private Sub Command5_Click() Form2.Show End Sub Private Sub Form_Load() MSComm1.CommPort = 1 MSComm1.Settings = "9600,n,8,1" MSComm1.InputMode = comInputModeBinary MSComm1.InputLen = 1 MSComm1.Handshaking = comNone i = 0 Rn = 0 Tn = 0 Text2.Text = "" Text3.Text = "0" Text4.Text = "0" If MSComm1.PortOpen = True Then MsgBox "串口1被占用！！！" End If If MSComm1.PortOpen = False Then MSComm1.PortOpen = True MsgBox "串口1打开成功" End If If MSComm1.PortOpen = False Then MSComm1.PortOpen = True End If End Sub Private Sub MSComm1_OnComm() Select Case MSComm1.CommEvent Case comEvReceive Dim buff As Variant Dim Rdata() As Byte Dim ut As Long ut = MSComm1.InBufferCount Text1.Text = Trim(ut) MSComm1.InputLen = 0 buff = MSComm1.Input Dim g As Integer ReDim Rdata(ut) ReDim pub_dt(ut) For g = 0 To ut - 1 Rdata(g) = buff(g) pub_dt(g) = CStr(Rdata(g)) 'buff = MSComm1.Input 'Rdata(1) = buff(0) Picture1.Print Rdata(g); Rn = Rn + 1 Next g 'Data0 = Rdata(0) 'Data1 = Rdata(1) 'Data2 = Rdata(2) 'Data3 = Rdata(3) Text4.Text = Rn i = i + 1 If i >= 2 Then Picture1.Print i = 0 End If over: End Select End Sub Private Sub Text2_Keypress(b As Integer) Dim s As String * 1 s = Chr(b) Select Case s Case "0" To "9" Case "," Tn = Tn + 1 Case Else b = 0 End Select End Sub