vb.net 怎么用事件觸發(fā)的方式讀取串口數(shù)據(jù)

首先：

創(chuàng)新互聯(lián)-專業(yè)網(wǎng)站定制、快速模板網(wǎng)站建設(shè)、高性價(jià)比新邵網(wǎng)站開(kāi)發(fā)、企業(yè)建站全套包干低至880元,成熟完善的模板庫(kù),直接使用。一站式新邵網(wǎng)站制作公司更省心,省錢(qián),快速模板網(wǎng)站建設(shè)找我們，業(yè)務(wù)覆蓋新邵地區(qū)。費(fèi)用合理售后完善，十載實(shí)體公司更值得信賴。

textbox里沒(méi)有顯示，是因?yàn)镾erialPort1和TextBox2不是同一線程創(chuàng)建的，需要跨線程操作。需要用到委托，這樣才能顯示出來(lái)。

其次：

我覺(jué)得用串口的接收數(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

VB.NET想要調(diào)用兼容的軟件如何調(diào)用

程序的兼容模式設(shè)置保存在注冊(cè)表下。

在 HKEY_CURRENT_USER/Software/Microsoft/Windows NT/CurrentVersion/AppCompatFlags/Layers/ 下新建一個(gè)鍵值，鍵值名稱是可執(zhí)行程序文件的完全路徑，數(shù)據(jù)類型為reg_sz，數(shù)據(jù)數(shù)值為兼容的操作系統(tǒng)代碼。

代碼對(duì)照如下：

Windows NT 4.0 (Service Pack 5)：NT4SP5

windows 95：WIN95

windows 98 or windows ME：WIN98

windows 2000：WIN2000

windows xp：WINXP

windows 2003：WIN2003

比如你要以WinXP的兼容模式運(yùn)行 C:\1.exe，那么就是

HKEY_CURRENT_USER/Software/Microsoft/Windows NT/CurrentVersion/AppCompatFlags/Layers 在這下面新建一個(gè)鍵，名為"C:\starcraft.exe”，再在這個(gè)鍵下面創(chuàng)建一個(gè)reg_sz類型的數(shù)據(jù)，數(shù)據(jù)值為WINXP即可。

用VB.NET操作注冊(cè)表這個(gè)你可以百度到很多了。

你好，能把您之前解答讀取通達(dá)信5分鐘數(shù)據(jù)的程序翻譯成vb.net么？

如果你讀懂了轉(zhuǎn)換就不難，比如第一個(gè)提取年信息的。

五分鐘數(shù)據(jù)樣本如下：

66 00 3F 02 66 66 26 41 66 66 26 41 B8 1E 25 41

85 EB 25 41 C0 05 56 49 4E 03 00 00 00 00 00 00

現(xiàn)已知每4個(gè)字節(jié)代表一段含義，分別是時(shí)間，開(kāi)盤(pán)價(jià)，最高價(jià)，最低價(jià)，收盤(pán)價(jià)，成交額，成交量。

年——66 00 16進(jìn)制轉(zhuǎn)換為10進(jìn)制是26112 26112/2048+2004=2016

vb.net 多線程操作

將循環(huán)放入到另一個(gè)線程中

ThreadStart ts = new ThreadStart(delegate() {

//do something

});

Thread t = new Thread(ts);

t.Start();

//going do something