用vb點(diǎn)虐 寫了一個(gè)pc端串口接收程序，接收從上位機(jī)發(fā)來的數(shù)據(jù)，數(shù)據(jù)為字符串格式，問題:寫好程序

'如果不是硬件的棗拍問題饑氏，就好處理了

10余年的羅田網(wǎng)站建設(shè)經(jīng)驗(yàn)，針對(duì)設(shè)計(jì)、前端、開發(fā)、售后、文案、推廣等六對(duì)一服務(wù)，響應(yīng)快，48小時(shí)及時(shí)工作處理。營(yíng)銷型網(wǎng)站建設(shè)的優(yōu)勢(shì)是能夠根據(jù)用戶設(shè)備顯示端的尺寸不同，自動(dòng)調(diào)整羅田建站的顯示方式，使網(wǎng)站能夠適用不同顯示終端，在瀏覽器中調(diào)整網(wǎng)站的寬度，無(wú)論在任何一種瀏覽器上瀏覽網(wǎng)站，都能展現(xiàn)優(yōu)雅布局與設(shè)計(jì)，從而大程度地提升瀏覽體驗(yàn)。創(chuàng)新互聯(lián)從事“羅田網(wǎng)站設(shè)計(jì)”,“羅田網(wǎng)站推廣”以來，每個(gè)客戶項(xiàng)目都認(rèn)真落實(shí)執(zhí)行。

'定義委托然后在事件中處理（不需要延時(shí)）

Delegate Sub SetTextCallback(ByVal InputString As String)

Private Sub ShowString(ByVal comData As String)

txt_Rect.Text += comData '凳肢羨將收到的數(shù)據(jù)入接收文字框中

txt_Rect.SelectionStart = txt_Rect.Text.Length

txt_Rect.ScrollToCaret()

End Sub

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

Dim inData As String = SerialPort1.ReadExisting

Dim d As New SetTextCallback(AddressOf ShowString)

BeginInvoke(d, inData)

End Sub

vb點(diǎn)虐 怎么用事件觸發(fā)的方式讀取串口數(shù)據(jù)

首先：

textbox里沒有顯示，是因?yàn)镾erialPort1和襲汪TextBox2不是同一線程創(chuàng)建的，需要跨線程操作。需要攜洞用到拍隱仔委托，這樣才能顯示出來。

其次：

我覺得用串口的接收數(shù)據(jù)事件更好一些。

下面代碼供參考：

'----------------------

'串口接收數(shù)據(jù)事件，其實(shí)比用定時(shí)器更好，

'觸發(fā)事件的條件可以自己在form_load中設(shè)置ReceivedBytesThreshold屬性數(shù)值，默認(rèn)為ReceivedBytesThreshold=1

Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

Dim strRecvData As String = ""

strRecvData = SerialPort1.ReadExisting

Call disPlayComData(strRecvData)

End Sub

Delegate Sub callback(ByVal strT As String) '定義委托

Sub showString(ByVal comdata As String) '顯示結(jié)果

Me.TextBox1.Text = "結(jié)果：" comdata

End Sub

Sub disPlayComData(ByVal strTmp As String) '判定是否為跨線程

If Me.TextBox1.InvokeRequired Then

Dim d As New callback(AddressOf showString)

Me.Invoke(d, New Object() {strTmp})

Else

Me.TextBox1.Text = strTmp

End If

End Sub

上位機(jī)用什么編程？

上位機(jī)的編程語(yǔ)言很多啊，VC，C++，C#，VB，VB。NET等等，關(guān)鍵是看你熟悉哪種編程語(yǔ)言了，這幾種語(yǔ)言都是面向?qū)ο蟮木幊陶Z(yǔ)言。VB入門比較容易，而且比較容易掌握，VB。NET是VB的升級(jí)版本，現(xiàn)在也比較流行。跟C有關(guān)的都需要有C語(yǔ)言或好的基礎(chǔ)。

如果對(duì)上位機(jī)的控制要求不是很高的話，或者說對(duì)技術(shù)先進(jìn)性上沒有太高要求，建議用VB，比較好掌握！

擴(kuò)展資料：

幾種程序語(yǔ)言的區(qū)別：java語(yǔ)言、python語(yǔ)言、C語(yǔ)言、PHP語(yǔ)言。

1、java語(yǔ)言

java語(yǔ)言曾一度家喻戶曉，如今雖然潮流已過，但java跨平臺(tái)的優(yōu)勢(shì)以及強(qiáng)大的類庫(kù)著實(shí)不容小覷，其他語(yǔ)言很難超越，java衍生除了非常多周邊產(chǎn)品（如jsp），非常多的開源系統(tǒng)都是基于java（hadoop、hive、hbase、lucene等）。

java和c一樣也是編譯執(zhí)行的語(yǔ)言，區(qū)別在于java編譯出的字節(jié)碼文件運(yùn)行在一層java虛擬機(jī)之上，而虛擬機(jī)可以架設(shè)在各種操作系統(tǒng)上，所以java也就有了跨平臺(tái)的優(yōu)勢(shì)，一處編譯多處執(zhí)行。

2、python語(yǔ)言

python的強(qiáng)大在于它的多功能性，既是解釋執(zhí)行，又可以編譯成文伏碧件，既是腳本語(yǔ)言，又具有面向?qū)ο蟮乃行再|(zhì)，如今python開源的類庫(kù)已經(jīng)非常強(qiáng)大了，什么功能都有，python也缺團(tuán)舉成了大數(shù)據(jù)方向必要的工具。

3、C語(yǔ)言

C語(yǔ)言是編譯執(zhí)行的語(yǔ)言，是萬(wàn)物之源。linux下常用的編譯器是gcc，c語(yǔ)言源代碼可以直接被編譯成可執(zhí)行程序（機(jī)器碼），被稱為萬(wàn)物之源是因?yàn)楦鞣N語(yǔ)言都是用C語(yǔ)言寫的，如java、php、python等。

4、PHP語(yǔ)言

PHP巨大的生態(tài)系統(tǒng)使得在未來幾年里全世界需要大量的開發(fā)人員對(duì)其提供支持。排名前三的內(nèi)容管理系統(tǒng)－WordPress、Drupal和Joomla都是使用PHP構(gòu)建的，而且迄今大概有80%的網(wǎng)站運(yùn)行在PHP之上。

現(xiàn)在在開發(fā)一個(gè)上位機(jī)應(yīng)用程序，使用vs2008中的vb點(diǎn)虐 開發(fā)基于wince的應(yīng)用程序，實(shí)現(xiàn)對(duì)串口采集過來的數(shù)據(jù)

這是我配置vs2005的模擬器，你參考一下吧。

1. 在VS2005里新建項(xiàng)或巖目中時(shí)，選擇創(chuàng)建Platform builder for CE 6.0的OS Design，新項(xiàng)目可以自

命名，這里命名為“MyEmulator”。

2. 創(chuàng)建MyEmulator的向?qū)е?，BSP一定要選擇“Device Emulator: ARMV4I”，下一步；

3. 模板（Design Templates）選擇“PDA Device”，下凱粗一步；

4. 選擇“Mobile Handheld”，下一步；

5. 應(yīng)用程序（Application Media）就隨自己的需要選擇，下一步；

6. 網(wǎng)絡(luò)和通信（Networking Communications）在此只選擇“Local Area Network(LAN)”，下一步；

7. 選擇完成；

8. 選擇Acknowledge；

到此工程建完；

四．添加組件(可以根據(jù)需要添加，這里主要添加漢字相關(guān)的組件)

(1) 添加漢字字庫(kù)(這里要記得加入，很多人這里沒有加入，就出現(xiàn)漢字只看到方框的現(xiàn)象):

1. 在Catalog View添加“Core OS”--“CEBASE”--“International”--“Locale Specific support”--“Chinese (Simplified)”--“Fonts”--“SimSun NSimSum(choose 1)”--“SimSun NSimSun”或者“SimSum NSimSun (Subset 2_50)”；

2. 在Catalog View添加“Core OS”--“CEBASE”--“International”--“Locale Specific support”--“Chinese (Simplified)”--“GB18030 Data Vonverter”和“Monotype Imaging AC3 Font Compression”；

(2)添加中文輸入法:

在Catalog View添加“Core OS”--“CEBASE”--“International”--“Locale Specific support”--“Chinese (Simplified)”--“Input Method Editor”--“MSPY 3.0 for Windows Embedded CE”;

(3) VS2005中菜單“項(xiàng)目”--“MyEmulator(項(xiàng)目名)屬性”,配置選擇“所有配置”，配置屬性--“Build Options”，在“Build Options”中去掉“Enable KITL (no IMGNOKITL=1)” （這里如果加入了KITL功能的話，可能在模擬器運(yùn)行的時(shí)候，會(huì)一直是黑屏的）；

(4) “Locale”中，Locales先Clear All，然后選擇“中文（中國(guó)）”，Default local選擇“中文（中國(guó)）”;

(5) 運(yùn)行VS2005菜單“生成”--“生成MyEmulator”;

五．構(gòu)建SDK：

1. 運(yùn)行VS2005菜單“項(xiàng)目”--“Add New SDK…”，在SDK屬性頁(yè)中填寫必要的信息，屬性“Emulation”中Configuration 選擇Debug，可以設(shè)置模擬器的顯示屏大小及色深，還有內(nèi)存大小，在此設(shè)置為240 x 320，16色深，128M內(nèi)存，然后“應(yīng)用”，“確定”。。

2. 然后運(yùn)行VS2005菜單“生成”--“Build All SDK…”，順利的話，就會(huì)在%WINCEROOT\OSDesigns\ \MyEmulator\MyEmulator\SDKs\SDK1\MSI\下會(huì)有MyEmulator.msi；

六．配置VS2005：

1、先安裝生成好的MyEmulator.msi。運(yùn)行Visual Studio 2005，選擇菜單“工具-＞選項(xiàng)”，打開選項(xiàng)設(shè)置對(duì)話框，從左邊的樹型列表中選擇“設(shè)備工具-＞設(shè)備”，右邊的下拉列表盯團(tuán)鎮(zhèn)框拉到底可以看到 “MyEmulator”，這就是剛剛生成的那個(gè)模擬器。下面的設(shè)備列表里有兩項(xiàng)，雙擊MyEmulator，設(shè)定傳輸為DMA傳輸，再點(diǎn)擊“仿真器選 項(xiàng)”，在“顯示”選項(xiàng)卡里設(shè)定好模擬器屏幕尺寸，顏色深度等，全部保存。

2、用VS2005新建一個(gè)智能設(shè)備項(xiàng)目，向?qū)нx擇平臺(tái)時(shí)，先刪除Pocket PC 2003，選擇MyEmulator，完成。然后按F5運(yùn)行程序，順利的話定制的模擬器就會(huì)出來了（不過這個(gè)過程比較慢，需要等待一段時(shí)間）。