移植VB維護(hù)程序到mobile下

Windows CE現(xiàn)在在嵌入式系統(tǒng)應(yīng)用已經(jīng)很多了，以前使用EVC的開(kāi)發(fā)多些，開(kāi)發(fā)難度大周期長(zhǎng)。VS2005退出后，CF.net2.0對(duì)于VB.NET支持很好，使將原來(lái)的基于windows平臺(tái)的Visual Basic維護(hù)程序移植到CE上面提供呢可能，本文將就Visual Basic維護(hù)程序移植到CE上面做一個(gè)試驗(yàn)性質(zhì)的開(kāi)發(fā)。

Visual Basic因?yàn)槠浣缑骈_(kāi)發(fā)快速，掌握難度低，在嵌入式系統(tǒng)的程序員中應(yīng)用很廣，比如說(shuō)本人，以前經(jīng)常做些單片機(jī)的開(kāi)發(fā)，那么一些系統(tǒng)參數(shù)或規(guī)約的驗(yàn)證，就會(huì)隨手寫(xiě)個(gè)Visual Basic程序驗(yàn)證下，以前是VB6.0，后來(lái)VB.net多些，VB的開(kāi)發(fā)擴(kuò)展性好，做界面簡(jiǎn)單快速，而且方便在調(diào)試中修改程序，在驗(yàn)證單片機(jī)的程序時(shí)是再方便不過(guò)了。

最早的人機(jī)界面、維護(hù)參數(shù)基本是通過(guò)串口通訊，在計(jì)算機(jī)或便攜筆記本上面顯示，設(shè)置。隨著嵌入式系統(tǒng)發(fā)展，用戶(hù)要求越來(lái)越高，現(xiàn)在好多的設(shè)備上面要有顯示參數(shù)和狀態(tài)的液晶，對(duì)于一些高檔設(shè)備，更是需要復(fù)雜的用戶(hù)界面，如果能將設(shè)備的維護(hù)和狀態(tài)顯示程序移植到基于Windows CE的系統(tǒng)平臺(tái)上面去，就會(huì)提供快速的軟件開(kāi)發(fā)，用戶(hù)界面會(huì)更加美觀，開(kāi)發(fā)速度大幅提供，方便嵌入式系統(tǒng)工程師的開(kāi)發(fā)工作，同時(shí)基于windows CE的PDA掌上電腦，方便攜帶，待機(jī)時(shí)間更加長(zhǎng)，方便現(xiàn)場(chǎng)維護(hù)人員和分布式系統(tǒng)的設(shè)置和分析工作。

講原有的VB.net移植到winCE，比較簡(jiǎn)單，如果沒(méi)有使用第三方的windows平臺(tái)的控件，可以很簡(jiǎn)單的移植過(guò)去，窗體可以很簡(jiǎn)單的復(fù)制過(guò)去，代碼基本是可以復(fù)用的，如果是VB6的程序，移植的難度會(huì)大些，窗體部分設(shè)計(jì)需要重新設(shè)置，VB.net的窗體界面和VB的區(qū)別很大，可以先按照老的程序的界面設(shè)置，在新的程序里面設(shè)置，代碼方面的移植難度不大，基本的語(yǔ)句還是一樣的，VB.NET支持界面上的元素可以全新創(chuàng)建，不用想VB那樣，從窗口的控件數(shù)組里面派生了，而且vb.net可以在運(yùn)行中定義事件的處理函數(shù)，這個(gè)對(duì)VB是很大的改進(jìn)，是自動(dòng)根據(jù)規(guī)約或界面設(shè)置進(jìn)行處理變得方便快捷。

對(duì)于嵌入式系統(tǒng)來(lái)說(shuō)和外界的通訊主要有幾個(gè)方面，串口(RS485、RS232)，網(wǎng)絡(luò)。網(wǎng)絡(luò)方面的程序區(qū)別不是很大，串口方面，windows下面VB程序員一般是使用MSCOMM來(lái)進(jìn)行通訊，微軟在CF.NET2.0里面提供了新的串口開(kāi)發(fā)支持SerialPort，比1.0和EVC更加快速。另外VB.NET支持多線程，使串口開(kāi)發(fā)變得容易。

下面提供一個(gè)我自己實(shí)現(xiàn)的串口多線程類(lèi)。

Imports System.IO.Ports

Imports System.Threading

'232串口操作類(lèi)

'2006 6 20 V1.0 by 趙力釗

'使用說(shuō)明

'使用前調(diào)用 Init 退出程序或關(guān)閉串口使用 Close

'SendDate 發(fā)送數(shù)據(jù)到串口 返回發(fā)送成功與否

'判斷ComStatus 是否為2 數(shù)據(jù)是否準(zhǔn)備好 準(zhǔn)備好 調(diào)用 ReadData 傳空的BYTE數(shù)組(可以Redim的)，返回?cái)?shù)據(jù)長(zhǎng)度

Public Class RS232TXClass

Shared m_SerialPort As New SerialPort

Shared readThread As Thread = New Thread(AddressOf Read)

Public ComSetting As String '9600,n,8,1

Public ComPort As Integer

Public ComType As Integer '硬件設(shè)置

Dim strBaudRate As String

Dim Parity As String

Dim Handshake As Integer

Dim DataBits As Integer

Dim PortName As String

Dim StopBits As Integer

Shared _continue As Boolean

Shared bRxLock As Boolean

Shared iRxLen As Integer

Shared iRxTime As Integer

Shared bRxStatus As Byte

Const READOK = 2

Const READOUTTIME = 4

Const READLOCK = 8

Const COMOK = 1

Const COMERROR = 0

Const COMFREE = 16

'輸入函數(shù) setting 串口設(shè)置如 9600,n,8,1 Type 握手協(xié)議 0 沒(méi)有握手協(xié)議 Port 串口號(hào)

Public Sub Init(ByVal Setting As String, ByVal Type As Integer, ByVal Port As Integer)

ComSetting = Setting

ComPort = Port

ComType = Type

ComInit()

End Sub

Sub ComInit()

Dim iStart As Integer

Dim iTemp As Integer

Dim bDate() As Byte

m_SerialPort = New System.IO.Ports.SerialPort()

iStart = InStr(1, ComSetting, ,)

strBaudRate = Mid(ComSetting, 1, iStart - 1)

iTemp = InStr(iStart + 1, ComSetting, ,)

Parity = Mid(ComSetting, iStart + 1, iTemp - iStart - 1)

iStart = iTemp + 1

iTemp = InStr(iStart, ComSetting, ,)

DataBits = CInt(Mid(ComSetting, iStart, iTemp - iStart))

iStart = iTemp + 1

StopBits = CInt(Mid(ComSetting, iStart, Len(ComSetting) - iStart + 1))

m_SerialPort.BaudRate = strBaudRate

Select Case Parity

Case n

m_SerialPort.Parity = IO.Ports.Parity.None

Case N

m_SerialPort.Parity = IO.Ports.Parity.None

Case e

m_SerialPort.Parity = IO.Ports.Parity.Even

Case E

m_SerialPort.Parity = IO.Ports.Parity.Even

Case o

m_SerialPort.Parity = IO.Ports.Parity.Odd

Case O

m_SerialPort.Parity = IO.Ports.Parity.Odd

End Select

m_SerialPort.DataBits = DataBits

Select Case StopBits

Case 0

m_SerialPort.StopBits = IO.Ports.StopBits.None

Case 1

m_SerialPort.StopBits = IO.Ports.StopBits.One

Case 2

m_SerialPort.StopBits = IO.Ports.StopBits.Two

End Select

Select Case ComType

Case 0

m_SerialPort.Handshake = IO.Ports.Handshake.None