图形数字识别VB

新建工程，添加一个picturebox，一个textbox，两个command button

Dim vCode As String

Private Sub Command1_Click()

drawvc

End Sub

Private Sub drawvc() '显示校验码

Dim i, vc, px, py As Long

Dim r, g, b As Byte

Randomize '初始化随机种子

'生成随机校验码

vc = CLng(8999 Rnd + 1000)

vCode = vc

'显示校验码

Picture1Cls

Picture1Print vc

'添加噪点（防止自动图像识别）

For i = 0 To 2000 '画2000个噪点

'画点随机位置

px = CLng(Picture1Width Rnd)

py = CLng(Picture1Height Rnd)

'画点随机颜色

r = CByte(255 Rnd)

g = CByte(255 Rnd)

b = CByte(255 Rnd)

Picture1Line (px, py)-(px + 1, py + 1), RGB(r, g, b)

Next

End Sub

Private Sub Command2_Click()

If Text1Text = vCode Then

MsgBox ("正确")

Else

MsgBox ("错误")

drawvc

End If

End Sub

Private Sub Form_Load()

Picture1FontSize = 12

Picture1FontBold = True

Picture1AutoRedraw = True

drawvc

End Sub

如果是格式除了把下载回来或截图再用ocr识别外目前还没有你说的这种浏览器插件插件也无法做到这样的功能。

如果中是单纯的数字那一般识别的效果还可以吧看原始清晰度了另存为时可选择保存格式为bmp。

如果装有完整版的office2003用其自带的组件MicrosoftOfficeDocumentImaging试试。

不过得先把存为tif格式用系统自带的画图工具打开另存为tif。

然后用MicrosoftOfficeDocumentImaging打开ocr识别。

只需要将单片机的P2端口输出数字对应的段码即可。

继电器的电压选择和可以为5V的用一个三极管做电流放大控制，毕竟单片机的输出能力不够驱动继电器，三极管选择8050系列或8550系列，基极电阻可选用2K的。5V/2K=25mA足够使三极管饱和导通输出最大800mA的电流（自然散热情况下，继电器的电流在100mA左右）。

数码管两位的采用共阳，同样使用三极管控制共阳位（占用两个I/O口）数码段及小数点占用8个I/O口采用500欧姆电阻。数码管以至少250HZ的频率轮显，每次停留1mS这样才能感觉不闪烁，并且亮度也够。

以上就是关于图形数字识别VB全部的内容，包括:图形数字识别VB、网页图片中的数字如何识别_自动识别图片中的数字、怎样使数码管在按键识别时能正常显示数字(考虑延时程序部分的处等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！