vb.net 繪制實(shí)時(shí)溫度曲線

這個(gè)要用GDI+畫。要看你.net版本。

成都創(chuàng)新互聯(lián)公司主要從事網(wǎng)頁設(shè)計(jì)、PC網(wǎng)站建設(shè)（電腦版網(wǎng)站建設(shè)）、wap網(wǎng)站建設(shè)（手機(jī)版網(wǎng)站建設(shè)）、響應(yīng)式網(wǎng)站設(shè)計(jì)、程序開發(fā)、網(wǎng)站優(yōu)化、微網(wǎng)站、小程序設(shè)計(jì)等，憑借多年來在互聯(lián)網(wǎng)的打拼，我們?cè)诨ヂ?lián)網(wǎng)網(wǎng)站建設(shè)行業(yè)積累了豐富的成都做網(wǎng)站、網(wǎng)站設(shè)計(jì)、外貿(mào)營銷網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì)、網(wǎng)絡(luò)營銷經(jīng)驗(yàn)，集策劃、開發(fā)、設(shè)計(jì)、營銷、管理等多方位專業(yè)化運(yùn)作于一體。

以下是VS2005中的一段代碼。

Me.PictureBox1.Height = 450

Me.PictureBox1.Width = 880

Dim gr As Graphics '定義畫布

Dim bp As New Bitmap(880, 450) '定義位圖,并進(jìn)行賦值

Dim p As New Pen(Color.Black) '定義畫筆

p.Width = 2 '寬度2

p.DashStyle = Drawing2D.DashStyle.Solid '樣式直線

PictureBox1.Image = bp

gr = Graphics.FromImage(PictureBox1.Image)

gr.FillRectangle(Brushes.White, New Rectangle(0, 0, PictureBox1.Width, PictureBox1.Height))

gr.DrawLine(p, a, b, a, .Height - b) '繪制縱坐標(biāo)

gr.DrawLine(p, a, .Height - b, .Width - a, .Height - b) '繪制橫坐標(biāo)

VB 如何得到CPU溫度呢？

Public Function GetCPUTemp() As Double

Dim i As Integer

Dim mCPU As Variant

Dim u As Variant

Dim s As String

Set mCPU = GetObject("WINMGMTS:{impersonationLevel=impersonate}!root\wmi").ExecQuery("SELECT CurrentTemperature From MSAcpi_ThermalZoneTemperature")

For Each u In mCPU

s = s u.CurrentTemperature

Next

Set mCPU = Nothing

GetCPUTemp = (s - 2732) / 10

End Function

Private Sub Form_Load()

Timer1.Interval = 500

End Sub

Private Sub Timer1_Timer()

Print GetCPUTemp()

End Sub

vb.net訪問access數(shù)據(jù)庫，怎么使用SQL查詢語句，按照指定的時(shí)間間隔提取數(shù)據(jù)。

按照5分鐘的時(shí)間間隔從中提取數(shù)據(jù)。對(duì)時(shí)間的分鐘數(shù)，取5的模，為0的即取出來即可

select 時(shí)間,溫度 from 記錄溫度 where ((時(shí)間 mod 5) =0)

vb2013 如何獲得顯卡GPU溫度

利用 WMI。

.NET 中有個(gè)命名空間是 System.Management.ManagementObjectSearcher，可以進(jìn)行相關(guān)硬件設(shè)備信息的讀取。

代碼參考：

Dim?CPUtprt?As?Double?=?0

Dim?mos?As?System.Management.ManagementObjectSearcher?=?New?System.Management.ManagementObjectSearcher("root\WMI",?"Select?*?From?MSAcpi_ThermalZoneTemperature")

For?Each?mo?As?System.Management.ManagementObject?in?mos.Get

CPUtprt?=?Convert.ToDouble(Convert.ToDouble(mo.GetPropertyValue("CurrentTemperature").ToString())?-?2732)?/?10

Console.Write("CPU?溫度?:?"??CPUtprt.ToString??"?°C")

Next

注：以上代碼為我對(duì)照 C# 轉(zhuǎn)換過來的，未經(jīng)過 IDE 環(huán)境下測試。

如何用VB.Net進(jìn)行CPU溫度讀取

沒有命令可以查看CPU溫度，可以通過第三方軟件魯大師查看CPU溫度：

百度搜索魯大師，并進(jìn)行下載安裝；

運(yùn)行已安裝的軟件的，在界面中就能看到CPU溫度：

vb.net的serialport控件實(shí)時(shí)采集16進(jìn)制單片機(jī)溫度值，新手實(shí)在沒看懂，大家進(jìn)來幫我看一下，謝謝啦

1 那里只是重新給String賦值。

2 空字符不存在要消除。

3 datastr是數(shù)組！

4 這和采集的數(shù)據(jù)有關(guān)，重點(diǎn)是 dec = val(hexString)