form4.vb

串口调试程序(vb)版本

Option Strict Off
Option Explicit On
Friend Class Form4
	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
		Timer2.Enabled = Not Timer2.Enabled
	End Sub
	
	Private Sub Form4_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
		MSComm1.PortOpen = True
	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
	
	Private Sub Timer2_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer2.Tick
		Text2.Text = Text2.Text & MSComm1.Input + Chr(13) + Chr(10)
	End Sub
End Class