移植VB维护程序到mobile下

Case 1

m_SerialPort.Handshake = IO.Ports.Handshake.RequestToSend

Case 2

m_SerialPort.Handshake = IO.Ports.Handshake.RequestToSendXOnXOff

Case 3

m_SerialPort.Handshake = IO.Ports.Handshake.XOnXOff

End Select

m_SerialPort.PortName = COM + CStr(ComPort)

m_SerialPort.ReadTimeout = 500

m_SerialPort.WriteTimeout = 500

If m_SerialPort.IsOpen = True Then

m_SerialPort.Close()

End If

m_SerialPort.Open()

If m_SerialPort.IsOpen = True Then

bRxStatus = COMOK

ReDim bDate(2)

ReadData(bDate)

bRxLock = False

readThread.Start()

Else

bRxStatus = COMERROR

End If

' readThread.Join()

End Sub

Public Function ComStatus() As Byte

ComStatus = bRxStatus

End Function

Function ReadData(ByRef bDate() As Byte) As Integer

Dim bLen As Integer

bLen = m_SerialPort.BytesToRead

If bLen > 0 Then

ReDim bDate(bLen)

m_SerialPort.Read(bDate, 0, bLen)

ReadData = bLen

Else

ReadData = 0

End If

bRxStatus = COMFREE

End Function

Public Function SendDate(ByVal bDateBuff() As Byte, ByVal iLen As Integer) As Boolean

If bRxLock = False Then

m_SerialPort.Write(bDateBuff, 0, iLen)

bRxLock = True

bRxStatus = READLOCK

SendDate = True

Else

SendDate = False

End If

End Function

Public Shared Sub Read()

While (1)

Thread.Sleep(50)

Try

If m_SerialPort.BytesToRead > iRxLen Then

iRxLen = m_SerialPort.BytesToRead

iRxTime = 0

bRxStatus = READLOCK

Else

If iRxLen > 0 Then

'收到数据

bRxStatus = READOK

bRxLock = False

Else

iRxTime = iRxTime + 1

If iRxTime > 10 Then

bRxStatus = READOUTTIME

End If

bRxLock = False

End If

End If

Catch ex As TimeoutException

' Do nothing

End Try

End While

End Sub

Public Sub Close()

readThread.Abort()

m_SerialPort.Close()

End Sub

End Class

定义窗口变量

Dim ComPort As New RS232TXClass

启动后调用

ComPort.Init(9600,n,8,1, 0, 1)

在主窗口中，通过一个定时器事件，查看串口情况

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Dim bDate() As Byte

Dim iLen As Integer

ReDim bDate(2)

If ComPort.ComStatus = 2 Then

iLen = ComPort.ReadData(bDate)

If iLen > 2 Then

ShowRevDate(bDate, iLen)

End If

End If

End Sub

下面实现一个windows的路灯维护程序移植到windows CE上面去的一些简单示例。

这是原来VB上面的一个界面。

这个是我移植到VB.net for Mobile的版本，因为在Mobile上面多窗口切换很麻烦，就作成分页的显示了。

需要注意的是，因为Mobile上面的输入法启动后会遮盖一部分窗口，为了输入方面最后把需要输入的地方放到上面去，以免影响输入。这里我把两个显示性Label放到了后面。

VB.NET的绘图和VB不是很一样，更加接近C++的绘图方式，但是只要不一些概念弄清楚，你会发现这种绘图方式使用更加方便，更加方便你对于GDI+的理解。

VB.NET中可以使用 Dim bm As New Bitmap(238, 214) 直接建立一个位图，然后把绘制好的位图覆盖回去。

绘制文字的时候，需要字体和画刷，象下面这样：

ShowTextBrush = New SolidBrush(Color.Blue)

mFont = New Font(FontFamily.GenericSansSerif, 8, FontStyle.Regular)

g.DrawString(HELLO, mFont, ShowTextBrush, 12, 82)

绘制线的时候，需要画笔。

Pen1 = New Pen(Color.Red)

g.DrawLine(Pen1, OldX, OldY, NewX, NewY)

填充图形的时候，需要画刷

tempbrush = New SolidBrush(Color.FromArgb(192, 192, 255))

g.FillRectangle(tempbrush, 0, 0, 238, 214)

绘制扇形和弧形，VB.NET没有提供，但是我从网上找到了实现方法，用联系线和连续填充实现弧形和棒图的绘制。函数如下

'=====================================================

'绘制弧形

'

' graphicsObject - Graphics 对象

' pen - 画笔

' x,y - 弧的圆心

' width - 宽度 (X直径)

' height - 高度 (Y直径)

' startAngle - 起始角度

' sweepAngle - 结束角度

'

Private Sub drawPie(ByVal graphicsObject As Graphics, ByVal pen As Pen, ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer, ByVal startAngle As Single, ByVal sweepAngle As Single)

Dim xAngle(12) As Single

Dim yAngle(12) As Single