"废物利用"也抄袭——“完全”DIY"绘图仪"<三、上位机程序设计>

        上位机的程序主要是解析图片和生成较好的代码，现在实现的功能有灰度打印，二值打印，轮廓打印，骨骼打印。当然，必不可少的是打印大小的控制。测试了一些图片，总体来说，打印速度依次加快，因为打印的内容依次减少。但是还有一些不太满意的地方，例如用轮廓和骨骼打印来打印文字时，东一块西一块，还没有空闲写行识别之后的排序。其实思路挺简单，膨胀文字或腐蚀背景使一行变为位置相邻的点集，然后在外包矩形内进行按x递增排序就可以了。

        上位机总体功能分为三部分：

1、与下位机通讯，这部分建议先写好，才更利于后面的测试。

2、图片处理——灰度、二值、边缘、骨骼。

3、灰度、二值、边缘、骨骼点数组转命令。

一、图片处理

       我nuget了一个opencvsharp，所以很多基础代码都不用写了。只需要稍加封装使frm中的代码更简洁易易懂于维护就可以了。这里简单说一下mat类点的颜色设置：

ImgEdge = New Mat(ImgBinary.Size, MatType.CV_8U)
ImgEdge.Set(Of Byte)(p.Y, p.X, 0)

　　因为这是二值化的图像，所以用Byte写就可以了，0为黑色。当然，也可以直接操作内存指针：

            For i As Integer = ImgEdge.DataStart To ImgEdge.DataEnd
                Marshal.WriteByte(i, 255)
            Next

　　这是我清理图片背景的代码。这样做很慢，你可以尝试用API函数来完成内存数据置零。

二、点数组转命令

        

    Private Shared Function Info2Command(ps() As Point) As List(Of Command)
        Dim result As New List(Of Command)
        Dim dx, dy As Integer
        For i As Integer = 1 To ps.Count - 1
            dx = ps(i).X - ps(i - 1).X
            dy = ps(i).Y - ps(i - 1).Y
            If dx = dy Then
                result.Add(New Command(Message.c_13Move, dx * 2))
            ElseIf dx = -dy Then
                result.Add(New Command(Message.c_24Move, dy * 2))
            Else
                If dx <> 0 Then
                    result.Add(New Command(Message.c_xMove, dx))
                End If
                If dy <> 0 Then
                    result.Add(New Command(Message.c_yMove, dy))
                End If
            End If
        Next
        Return result
    End Function

　　这是我解释一个连续点集的时候使用的代码，代码中将坐标转化为命令。与xy结构不同，除了解释了x,y轴方向移动，还解释了象限角分线方向的动——它们非常容易实现，因为只需转动一个电机。这样做的好处就是仅斜向相连的点不会被解释为两次动作——除非通过更复杂的代码形成更多的指令（关闭并迅速开启激光器或抬起并落下舵机）才能使绘制的图像不比原图多出某些拐角。

三、与下位机通讯

        

    Private WithEvents mPort As SerialPort

　　这就是所使用的核心对象，它有几个很有用的事件，其中DataReceived是我们最关心的：

    Private Sub mPort_DataReceived(sender As Object, e As SerialDataReceivedEventArgs) Handles mPort.DataReceived
        Dim inData As String = CType(sender, SerialPort).ReadLine.TrimEnd({CChar(vbCr), CChar(vbLf)})
        If inData = (r_RequestData) Then
            RaiseEvent RequestData()
        ElseIf inData = (r_Ready) Then
            RaiseEvent Ready()
        ElseIf inData = (r_Interrupt) Then
            RaiseEvent Interrupt()
        ElseIf inData = r_RerequestData Then
            RaiseEvent RerequestData()
        ElseIf inData <> String.Empty Then
            Debug.Print("收到下位机的未知请求。[" & inData & "]")
        End If
    End Sub

　　这用于解释下位机的不同请求。而发送数据也非常简单：

    Protected Friend Sub SendCommand(cmd As Command)
        mPort.BaseStream.Flush()
        mPort.Write(cmd.Data, 0, 6)
    End Sub

　　OK，最后简单说一下获取COM口名称：

    Dim WM_DEVICECHANGE As Integer = &H219
    Dim DBT_DEVICEREMOVECOMPLETE As Integer = &H8004
    Dim DBT_DEVICEARRIVAL As Integer = &H8000

    Protected Overrides Sub WndProc(ByRef m As Message)
        MyBase.WndProc(m)
        If m.Msg = WM_DEVICECHANGE Then
            If m.WParam.ToInt32 = DBT_DEVICEARRIVAL Then  'usb插入
                Timer1.Enabled = True
            ElseIf m.WParam.ToInt32 = DBT_DEVICEREMOVECOMPLETE Then
                Timer1.Enabled = True
            End If
        End If
    End Sub

　　实际上应该用单独线程来处理，但是实在是懒得写，就用定时器来处理了。

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim b = New ManagementObjectSearcher("select * from Win32_PnPEntity").Get       '检测即插即用设备
        Dim lst As New List(Of String)
        Try
            For Each c In b
                Try
                    If c.GetPropertyValue("Name").ToString.Contains("CH340") Then
                        lst.Add(c.GetPropertyValue("Name"))
                    End If
                Catch ex As Exception
                End Try
            Next
        Catch ex As Exception
        End Try

　　用WMI来获取，会得到很多设备名，然后都存在lst里面，剩下就是确定当前使用的是否发生了变化来确定使用哪一个了。

最近几天偷闲完善了一下上位机的程序，界面如下：

 

 

红色的部分是已经打印的部分，随着打印进行，红色的部分同步增长，这比进度条看起来更好一些。然后做了一下文字打印，主要是针对在一定的范围内打印一定的行数：

 

点击确定之后，得到的图像如下：

 

 

这就可以方便的打印一些文字咯。。。