毕业设计网
开发环境 |

vb.net 232接口的扫瞄枪

Imports System.IO.Ports
Imports System.Text
Public Class Form1
    Dim RS232Com As New SerialPort
    Dim mPortName As String
    Public Sub OpenCOM()
        mPortName = Me.CmbCom.SelectedItem.ToString
        RS232Com = New SerialPort(mPortName, 9600, Parity.None, 8, StopBits.One)
        RS232Com.Encoding = Encoding.ASCII
        If Not RS232Com.IsOpen Then RS232Com.Open()
    End Sub
    Public Sub CloseCOM()
        If RS232Com.IsOpen Then RS232Com.Close()
    End Sub
    Private Sub BtnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOpen.Click
        Call OpenCOM()
    End Sub
    Private Sub BtnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClose.Click
        Call CloseCOM()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For Each sp As String In SerialPort.GetPortNames
            Me.CmbCom.Items.Add(sp)
        Next
        Me.CmbCom.SelectedIndex = 0
    End Sub
    Private Sub BtnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSend.Click
        RS232Com.Write(Me.TextBox1.Text) '即写命令过去
    End Sub
Private Sub RS232_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles RS232.DataReceived
        If e.EventType <> SerialData.Chars Then Exit Sub '判断接收的数据是否为字符
        Dim InString As String
        InString = RS232.ReadExisting '取得字符串(条码枪端口的字符串)
         '这里你处理条码枪的数据
    End Sub
End Class

以上是一部分介绍,如需要完整的资料或者如不符合您的要求,请联系技术人员qq:242219979咨询

上一篇:VC中#ifdef与#pragma once避免重复包含的区别
下一篇:asp大学生英语四六级网上在线考试系统


版权所有 毕业设计网联系qq:242219979 © 2007-2022