SerialPort实现与地磅通信

1.拖一个serialPort 命名sp。

2.

.关键在于DataReceived事件的处理

.波特率设定与仪表设置一致:1200

.ReadBufferSize可设置为通信协定的数据长度:12

.注意起始与结束编码:0x02, 0x03

.Invoke实现委托,使得辅助线程修改主线程控件内容(也可以设置CheckForIllegalCrossThreadCalls直接跨线程作业)

(参考:http://www.cnblogs.com/worldreason/archive/2008/06/09/1216127.html )

  1. using System;
  2. using System.Collections.Generic;
  3. using System.ComponentModel;
  4. using System.Data;
  5. using System.Drawing;
  6. using System.Text;
  7. using System.Windows.Forms;
  8. using System.IO.Ports;
  9. using System.Threading;
  10. namespace WMS.SD.DeliveryGoods
  11. {
  12.     public partial class frmUpLoad : Form
  13.     {
  14.         private delegate void HandleInterfaceUpdateDelegate(string aString);
  15.         HandleInterfaceUpdateDelegate interfaceUpdateHandle;
  16.         static string strReceive;   //   接收到数据的缓冲区 
  17.         public frmUpLoad()
  18.         {
  19.             InitializeComponent();
  20.         }
  21.         private
  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
VB编程可以通过使用USB编程库实现与USB设备的通信。以下是一个基础的示例: 首先,需要导入与USB通信相关的库。 ```vb Imports System Imports System.Management Imports System.IO.Ports ``` 然后,获取连接到计算机上的USB设备列表。 ```vb Dim devices As List(Of ManagementObject) = New List(Of ManagementObject)() Dim query As String = "SELECT * FROM Win32_PnPEntity WHERE Name LIKE '%(COM%'" Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher(query) For Each device As ManagementObject In searcher.Get() devices.Add(device) Next ``` 接下来,选择要与之通信的USB设备,并打开相应的串口。 ```vb Dim selectedDevice As ManagementObject = devices(0) ' 假设选择第一个设备 Dim portName As String = selectedDevice.Properties("Name").Value.ToString().Split(" ")[1] Dim baudRate As Integer = 9600 ' 设置波特率为9600 Dim serialPort As SerialPort = New SerialPort(portName, baudRate) serialPort.Open() ``` 现在,可以发送和接收数据。 ```vb Dim sendBytes As Byte() = { 1, 2, 3 } ' 假设要发送的数据 serialPort.Write(sendBytes, 0, sendBytes.Length) Dim receiveBytes(255) As Byte ' 假设要接收的数据长度不超过255 Dim bytesRead As Integer = serialPort.Read(receiveBytes, 0, receiveBytes.Length) Dim receiveData(bytesRead - 1) As Byte Array.Copy(receiveBytes, 0, receiveData, 0, bytesRead) ``` 最后,记得在程序结束时关闭串口。 ```vb serialPort.Close() ``` 这就是使用VB编程实现与USB通信的基本步骤。根据具体的需求和USB设备的特性,可能需要添加更多的代码来处理数据的解析和其他操作。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值