form3.vb

串口调试程序(vb)版本

Option Strict Off
Option Explicit On
Friend Class Form3
	Inherits System.Windows.Forms.Form
	Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
		Timer1.Enabled = Not Timer1.Enabled
	End Sub
	
	Private Sub Form3_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
		Select Case MSComm1.CommEvent
			Case MSCommLib.OnCommConstants.comEvReceive ' 收到 RThreshold
				Text2.Text = Text2.Text & MSComm1.Input & Chr(13) & Chr(10) '
		End Select
	End Sub
	Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
		Randomize(Now.ToOADate)
		Text1.Text = CStr(Int(Rnd() * 100))
		MSComm1.Output = Text1.Text
	End Sub
End Class