当前位置:编程学习 > VB >>

VB如何编程实现图像数字识别

VB如何编程实现图像数字识别
例如,如何从一张图片中编程读取解析有规则的宋体数字 --------------------编程问答-------------------- (1)把图像数据读到内存里
(2)用算法从该数据里得到数字
(3)将该数字返回 --------------------编程问答-------------------- 关键是如何把图像数据读出来哦,也就是识别问题如何解决 --------------------编程问答--------------------
引用 2 楼 wjssong 的回复:
关键是如何把图像数据读出来哦,也就是识别问题如何解决


“如何把图像数据读出来”和“识别问题”是两个问题,好不好?

分别放狗搜,应该能找到。 --------------------编程问答-------------------- 这个……应该简单一点
基本思路是酱紫的
1、倾斜矫正
2、分离图片中的每个字符,然后把他们规范成指定大小,当然如果你这个是宋体也可以测试多大的宋体文字与你这个字符大小相等。
3、进行对比,发现符合度达到一定程度的,就认定其为某个数字。

感觉这样就可以了,要是用什么ANN恐怕大材小用了。不够麻烦的。

曾经做过一个象棋图像识别,基本思路就是这样。

搞了一个标准库,里面存上车马炮啥的的“特征”,然后取图像进行对比,准确率100%。。。呵呵 --------------------编程问答-------------------- 想找一份源代码参考一下,网上的资料真少! --------------------编程问答-------------------- 网上资源可不少,是你没找到.
搜"识别",csdn就有很多页. --------------------编程问答-------------------- VB实现OCR文字识别
原理: 利用微软OCR控件, 只需要不到10行代码就能够实现自已的OCR文字识别软件.
1. 添加控件,需要安装office2003, 没有安装office2003的可以从别人机子上拷贝相关文件,注册regsvr32.exe mdivwctl.dll,
控件一般在这个目录下:C:\Program Files\Common Files\Microsoft Shared\MODI\11.0, 只需要相关的几个文件就可以了, 此文件夹全部文件大概在21M左右.
工程->部件->添加这个控件:Microsoft Office Document Imaging 11.0 Type Library

2.在按钮的Click事件里:
    Dim strLayoutInfo As String, strLPN As String

     '初始化并加载文档
    Set miDoc = CreateObject("MODI.Document")            '创建对象
    miDoc.Create "D:\未命名.tif"                         '加载单色图片文件

    Screen.MousePointer = vbHourglass                    '设置光标忙
    '识别
    miDoc.Images(0).OCR miLANG_CHINESE_SIMPLIFIED, True, True '有用的就此一句,识别为中文简体

    Set modiLayout = miDoc.Images(0).Layout              '读出数据
    strLayoutInfo = _
        "Language: " & modiLayout.Language & vbCrLf & _
        "Number of characters: " & modiLayout.NumChars & vbCrLf & _
        "Number of fonts: " & modiLayout.NumFonts & vbCrLf & _
        "Number of words: " & modiLayout.NumWords & vbCrLf & _
        "Beginning of text: " & Left(modiLayout.Text, 50) & vbCrLf & _
        "First word of text: " & modiLayout.Words(0).Text
    MsgBox strLayoutInfo, vbInformation + vbOKOnly, "Layout Information"
    Set modiLayout = Nothing
    Set miDoc = Nothing
    Screen.MousePointer = vbDefault

3. OK了, 是不是很简单

--------------------编程问答-------------------- [1. 添加控件,需要安装office2003, 没有安装office2003的可以从别人机子上拷贝相关文件,注册regsvr32.exe mdivwctl.dll,
控件一般在这个目录下:C:\Program Files\Common Files\Microsoft Shared\MODI\11.0, 只需要相关的几个文件就可以了, 此文件夹全部文件大概在21M左右.]

请教:需要哪几个相关的文件?复制后放在用户电脑里哪个文件夹里?还有mdivwctl.dll放在system32文件夹下注册么?


请明示。
补充:VB ,  API
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,