plumlee的专栏

易阅条码检测仪是当前唯一的条码检测仪，与韦博斯根等进口条码等级检测仪有相同的功能。这个报告是BV3700，BV3900,BV3000等通用的机型。按易阅条码检测仪的发展路线，会在近期推出在线式的高速检测仪。 易阅是一家做条码识别的公司，自成立以来，一直致力于条码识别研究，并开发出高识别率的读码设备及条码质量检测设备。我们始终坚持为客户提供可靠的、高质量的、高的产品。我们为我们的产品提供24个月的超长保固期,提供12个月的故障换新服务。您的信赖，就是我们的追求。 产品特性： 1.检测结果依ISO标准 2.便捷式，无需电源 3.即插即用，安装调试无门槛 3.使用简单方便，支持多条码检测 4.光源：660nm红光 5.光源内置，不受外部环境干扰，无需使用前外部校准。 6.象素：500万 7.多种灯光模式，完全顺应ISO对DPM条码检测的设计要求。 7.体积：10CM*10CM*20CM

这个findFile函数功能强大，完整。 Imports System.Collections.Generic Imports System.IO Friend Class FindFiles Public Shared GRAPHIC_FILES As String() = New String() {"*.bmp", "*.jpg", "*.jpeg", "*.jpe", "*.jfif", "*.tif", _ "*.tiff", "*.png", "*.gif", "*.wmf", "*.emf", "*.pdf"} Public Shared Function Find(path As String, masks As String()) As String() Dim result As New List(Of String)() For Each mask As String In masks Dim filenames As String() = Directory.GetFiles(path, mask) For Each filename As String In filenames Dim lowerFilename As String = filename.ToLower() If Not result.Contains(lowerFilename) Then result.Add(lowerFilename) End If Next Next result.Sort() Return result.ToArray() End Function End Class

vb.net 字符串转成二进制的函数。相当好用。 Imports System.Text Public Class MyFunctions ''' <summary> ''' Converts a string to binnary format. ''' </summary> Public Function StringToBinary(data As String, line As Integer) As String Dim sb As New StringBuilder() For i As Integer = 0 To data.Length - 1 If i Mod line = 0 Then If i &lt;> 0 Then For j As Integer = i - line To i - 1 Dim val As Char = data(j) If val >= ChrW(32) AndAlso val &lt;= ChrW(127) Then sb.Append(val) Else sb.Append("?"c) End If Next sb.AppendLine() End If sb.Append(String.Format("0x{0} ", i.ToString("X4"))) End If If (i Mod line &lt;> 0) AndAlso (i Mod (line \ 2) = 0) Then sb.Append("| ") End If Dim d As Integer = 2 If AscW(data(i)) > 255 Then d = 4 End If sb.Append((AscW(data(i))).ToString("X" & d.ToString()) & " ") Next Return sb.ToString() End Function End Class

抛砖引玉。 用vba实现输入小写数字，自动转为大写金额。 可用于票据套打。 很方便很完整。会写入“整”，或元角分。

这是vb6的源码。 很古老，但也很经典。如果你没有分不能下载，请告诉我，可以不用分！ 这里设定要分，主要是我没有分了，要赚点分

win10 64位 安装pl2303，有些会出现黄色感叹号，驱动不起来。用这个驱动，安装后选择低版本驱动，就ok了。 参考文档针对WIN10系统装上驱动后，设备管理器里的设备有黄色的感叹号的问题. 这个是2007年的CSDN上还有另一个，我下载了N次都不能用。所以提交这个供大家。。。

将串口调试助手与以太网调试助手整合在一起了。可以在同一界面上干两个活

vb.net2012完善的串口调试助手 与其它的成形产品相比，加了一些简单 测试功能，比如实时发现新加入的COM口，自动发送随机字串（这个功能有时很有用，而没有见到成形的软件有这个功能），应该也很方便改成两个串口同时工作的。 打工不易，写代码更难。所以分享出来给大家，有需要的朋友就不用再重复劳动了

在码农的生活中，很多级码农都有这样的经历，会被一个小小的技术问题拦住，然后进度跟不上了，被老板XXXX一大通了。心情不爽了。 好吧，这个曾经是我遇到拦路虎之一。但事实上不是什么大技术。技术就是一层纸，破了就破了。 这是一个关于如何跨窗体操作控件或过程的一个例子。比如，你想用窗体A的按键来执行窗体B的文本框变色。 Imports System Imports System.Threading Imports System.Text Public Class Form1 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load CheckForIllegalCrossThreadCalls = False '不写这行，会出错，不允许线程的数据写到TextBox1.Text 中去。 Form2.Show() End Sub Private Sub form1_FormClosing(sender As Object, e As EventArgs) Handles Me.FormClosing ' If runThread.IsAlive = True Then runThread.Abort() End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '用的是委托方式 Me.Invoke(New MethodInvoker(AddressOf THREAD2)) End Sub Private Sub THREAD2() Static j As Integer j = j + 1 TextBox1.Text = " 这是 [线程] 操作" & vbCrLf & _ " Button2被点了: " & j & " 次" & vbCrLf & "要求是from2.textbox.text= textbox1.text 。[问题]但为什么不能成功显示呢？" End Sub Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged Form2.TextBox1.Text = TextBox1.Text End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Static j As Integer j = j + 1 TextBox1.Text = " 这是 [非线程] 操作" & vbCrLf & _ "Button3 点击了: " & j & " 次" & vbCrLf & _ "要求是from2.textbox.text= textbox1.text， 可以成功显示，这个是对的。" End Sub End Class

有分的，送我1分，没有分的，PM我，不用分也一样给你下载。 这个例子教你如何将图片以二进制的格式保存进ACCESS数据库里。再教你怎样读出来。 保证能用，不帅不用钱！

这个例子有以下功能： 1，向ACCESS添加记录 2，向ACCESS添加图片（二进制格式） 3，通过单选或多选datagirdview的记录来删除ACCESS的记录 4，通过datagirdview直接更改ACCESS的数据 5，如何获得多个datagirdview的行号 6，因为平常我要分用，希望能集点分来下载。保证以上功能全部都有。vb.net2012+access2013+win8下调试通过的。

51单片机通过USB管理HID通讯,学习如何通过HID通讯的话，这是一个好材料

获得USB设备列表的例子。在win8+vs2012调试通过。能列出PID，VID等

这是一个完整的实例，用VB.net写的，开发环境是win8+VB2012。 可以用来查询所有的USB设备，获得设备ID和硬件号等详细信息。没有用DLL等太多的东西。代码很小。应该在其它版本也是能用的。

vb.net下的USB摄像头的程序 不是很好用，但能用。

C#单片机控制直流电机源码(含电路原理图) 直接能用的了。 有电路原理图，动手强的同学也可以用万用板接电路哟。

很简单的方法获得USB的序列号 Option Explicit Private Declare Function GetVolumeInformation Lib &quot;kernel32.dll&quot; Alias &quot;GetVolumeInformationA&quot; (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Integer, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFile