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

首先：

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

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

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

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

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

代碼對照如下：

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操作注冊表這個(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í)間，開盤價(jià)，最高價(jià)，最低價(jià)，收盤價(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

網(wǎng)站題目：vb.net操作通達(dá)信 vertline通達(dá)信
轉(zhuǎn)載源于：http://jinyejixie.com/article30/dosgeso.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站策劃、企業(yè)網(wǎng)站制作、ChatGPT、外貿(mào)網(wǎng)站建設(shè)、動態(tài)網(wǎng)站、微信小程序

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)