form7.vb

串口调试程序(vb)版本

Option Strict Off
Option Explicit On
Friend Class Form7
	Inherits System.Windows.Forms.Form
	Private Sub Command1_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command1.Click
		Dim flag As Boolean
		If Not flag Then
			If Text3.Text <> "" Then
				Timer1.Enabled = True
			Else
				MsgBox("请输入操作人员姓名", MsgBoxStyle.OKOnly + 32, "提示")
			End If
		Else
			Timer1.Enabled = False
		End If
		flag = Not flag
	End Sub
	
	Private Sub Form7_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 = MSComm1.Input
				Adodc1.Recordset.AddNew()
				Adodc1.Recordset.Fields(1).Value = Text2.Text
				Adodc1.Recordset.Fields(2).Value = Now
				Adodc1.Recordset.Fields(3).Value = Text3.Text
				Adodc1.Recordset.Update()
		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