VB.NET+PS二值化生成由0&1构成的图像

最新推荐文章于 2024-09-12 14:46:11 发布

Fenrir9999

最新推荐文章于 2024-09-12 14:46:11 发布

阅读量853

点赞数 1

分类专栏：图像识别图像处理

本文链接：https://blog.csdn.net/weixin_44559388/article/details/89607572

版权

本文介绍了一个使用VB.NET进行图像二值化的项目，通过设计窗体程序和处理步骤，用户可以将图像转化为由0和1组成的文本。在Photoshop中调整图像为灰度模式并找到色阶峰值，然后将程序与图像放在同一目录下，程序运行后会在textbox中显示二值化结果。为了展示效果，作者在Photoshop中对0&1文本进行了反相设置。

摘要由CSDN通过智能技术生成

笔者最近在做一个自动识图的项目，其中涉及到了图像的二值化过程，于是联想到这类代码可以用在输出自动出图上，废话不多说。

步骤1，设计窗体程序，控件包括textbox、progressbar，如下图
在这里插入图片描述
步骤2，设计代码，运行时单击窗体内的空白处即可，未设置button按钮

Public Class Form1
    Private Sub Form1_click(sender As Object, e As EventArgs) Handles MyBase.Click
        Dim dir = System.Environment.CurrentDirectory  '获取程序当前路径
        Dim fig As New Bitmap(dir & "001.jpg")  读取图片001.jpg
        Dim a = fig.Width, b = fig.Height  '获取图片宽、高
        Dim out(a, b)   
        Dim v  缩放比例
        Dim x, j
          '调整缩放比例，当宽度150pixels时自动缩放至宽度为150，textbox文本框和屏幕大小有限制而设置成150，改程序目前为单线程，经测试宽度超过300会极大影响效率
        If a > 150 Then  
            v = Int(a / 150)
        Else
            v = 1
        End If
        '获取当前图片的所有灰度数据
        For i &#