2.vb串口通信技术文章160rs232串行flashdo的实例

1、代码如下：Imports System.IO.PortsPublic Class Form1Dim fDTR, fRTS As*表单的Load 事件中先将所有的通讯埠先列出来将通讯埠排序，并将第一个通讯埠设为预设值*Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.LoadFor Each sp As String In SerialPort.GetPortNames().Items.Add(sp)Next.Sorted = True 排序.Selec

2、tedIndex = 0 第一个是预设选项btnDTR.Enabled = FalsebtnRabled = FalseEnd Sub*开启通讯埠按钮的Click 事件此事件将设定通讯埠参数，并开启通讯埠*Private Sub btnOpenPort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnOpenPort.ClickDim mPortName As StringmPortName =.SelectedItem.ToString 欲开启的通讯埠RS232.PortName = mP

3、ortName 指定通讯埠If Not RS232.IsOpen Then 尚未开启RS232.Open() 开启通讯埠RS232.DtrEnable = FalseRS232.Rable = FalsebtnDTR.Enabled = TruebtnRabled = TruepicDTR.Image = picOFF.ImagepicRTS.Image = picOFF.ImageElseMsgBox(通讯埠开启错误(通讯埠已被开启), MsgBoxStyle.Critical OrMsgBoxStyle.OkCancel)EndEnd IfEnd Sub*关闭通讯埠按钮的Click 事件以

4、Cose 方法关闭通讯端口，并对象所占用的资源*Private Sub btnClosePort_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnClosePort.ClickIf RS232 Is Nothing OrElse Not RS232.IsOpen Then 尚未开启MsgBox(通讯埠尚未开启, MsgBoxStyle.Critical Or MsgBoxStyle.OkCancel)ElseRS232.Close()btnDTR.Enabled = FalsebtnRabl

5、ed = FalseEnd IfEnd Sub vb net 源码和实例，请关注(乐 博 网)*结束程序按钮 的Click 事件此事件将设定通讯埠参数，并开启通讯埠*Private Sub btnEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnEnd.ClickIf Not RS232 Is Nothing Then 判断是否已建立通讯对象If RS232.IsOpen Then RS232.Close() 若已开启，就将其关闭End IfEndEnd Sub*DTR 控制按钮 的C

6、lick 事件改变旗标*Private Sub btnDTR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesbtnDTR.ClickfDTR = Not fDTR 改变旗标状态If fDTR Then 改变显示的文字，方便使用者了解btnDTR.Text = DTR 停止ElsebtnDTR.Text = DTR 闪烁End IfEnd Sub*RTS 控制按钮 的Click 事件改变旗标*Private Sub btnRTS_Click(ByVal sender As System.Objec

7、t, ByVal e As System.EventArgs) HandlesbtnRTS.ClickfRTS = Not fRTS 改变旗标状态If fRTS Then 改变显示的文字，方便使用者了解btnRTS.Text = RTS 停止ElsebtnRTS.Text = RTS 闪烁End IfEnd Sub*通讯埠的KeyPress 事件，在此不让使用者输入资料*Private Sub_KeyPress(ByVal sender As Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handles.KeyPresse.

8、KeyChar = ChrW(0) 使用者在其中输入任何的文字End SubPrivate Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesTimer1.TickIf Not RS232.IsOpen Then Exit Sub若DTR 的旗标为真时If fDTR ThenRS232.DtrEnable = Not RS232.DtrEnableIf RS232.DtrEnable ThenpicDTR.Image = picON.ImageElsepicDTR.Image = picOFF.ImageEnd IfElseRS232.DtrEnable = FalsepicDTR.Image = picOFF.ImageEnd If若RTS 的旗标为真时If fRTS ThenRS232.Rable = Not RS232.RableIf RS232.Rable Thenp