vb.net获取温度,vb编写温度监测

vb.net 绘制实时温度曲线

这个要用GDI+画。要看你.net版本。

以下是VS2005中的一段代码。

Me.PictureBox1.Height = 450

Me.PictureBox1.Width = 880

Dim gr As Graphics '定义画布

Dim bp As New Bitmap(880, 450) '定义位图,并进行赋值

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) '绘制纵坐标

gr.DrawLine(p, a, .Height - b, .Width - a, .Height - b) '绘制横坐标

相关问答

Q1: 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

Q2: vb.net访问access数据库，怎么使用SQL查询语句，按照指定的时间间隔提取数据。

按照5分钟的时间间隔从中提取数据。对时间的分钟数，取5的模，为0的即取出来即可

select 时间,温度 from 记录温度 where ((时间 mod 5) =0)

Q3: vb2013 如何获得显卡GPU温度

利用 WMI。

.NET 中有个命名空间是 System.Management.ManagementObjectSearcher，可以进行相关硬件设备信息的读取。

代码参考：

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

注：以上代码为我对照 C# 转换过来的，未经过 IDE 环境下测试。

Q4: 如何用VB.Net进行CPU温度读取

没有命令可以查看CPU温度，可以通过第三方软件鲁大师查看CPU温度：

百度搜索鲁大师，并进行下载安装；

运行已安装的软件的，在界面中就能看到CPU温度：

Q5: vb.net的serialport控件实时采集16进制单片机温度值，新手实在没看懂，大家进来帮我看一下，谢谢啦

1 那里只是重新给String赋值。

2 空字符不存在要消除。

3 datastr是数组！

4 这和采集的数据有关，重点是 dec = val(hexString)