form6.vb

串口调试程序(vb)版本

Option Strict Off
Option Explicit On
Friend Class Form6
	Inherits System.Windows.Forms.Form
	Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
		'UPGRADE_WARNING: 数组 bytOut 的下限已由 1 更改为 0。 单击以获得更多信息:“ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="0F1C9BE1-AF9D-476E-83B1-17D43BECFF20"”
		Dim bytOut(5) As Byte
		
		bytOut(1) = &H12s
		bytOut(2) = &H13s
		bytOut(3) = &H15s
		bytOut(4) = &H16s
		bytOut(5) = &H17s
		MSComm1.Output = VB6.CopyArray(bytOut)
	End Sub
	Private Sub Form6_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		MSComm1.PortOpen = True
	End Sub
	Private Sub MSComm1_OnComm(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MSComm1.OnComm
		Dim i As Object
		Dim Buf As Object
		Dim InByte() As Byte
		'UPGRADE_WARNING: 未能解析对象 Buf 的默认属性。 单击以获得更多信息:“ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
		Buf = ""
		Select Case MSComm1.CommEvent
			Case MSCommLib.OnCommConstants.comEvReceive
				'UPGRADE_WARNING: 未能解析对象 MSComm1.Input 的默认属性。 单击以获得更多信息:“ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
				InByte = MSComm1.Input
				For i = LBound(InByte) To UBound(InByte)
					'UPGRADE_WARNING: 未能解析对象 i 的默认属性。 单击以获得更多信息:“ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
					'UPGRADE_WARNING: 未能解析对象 Buf 的默认属性。 单击以获得更多信息:“ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
					Buf = InByte(i)
					'UPGRADE_WARNING: 未能解析对象 Buf 的默认属性。 单击以获得更多信息:“ms-help://MS.VSExpressCC.v80/dv_commoner/local/redirect.htm?keyword="6A50421D-15FE-4896-8A1B-2EC21E9037B2"”
					Text2.Text = Text2.Text & "0x" & Hex(Buf) & Chr(32)
				Next i
		End Select
	End Sub
End Class