vb.net得温度,vbe与温度的关系

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，vc，.Net下有哪些可用的温度计控件？

这么多平台需要用ActiveX控件。可以网上找找有没开源的，自己做成ActiveX控件。还可以使用现成的，比如 BeauGauge仪表控件，内含有温度计控件。

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

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

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

2 空字符不存在要消除。

3 datastr是数组！

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

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

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

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

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

Q5: vb.net 天气预报接口怎么用

Private Sub Command1_Click()

    Const Url = "" '从网址读取的文本是一个脚本语言的结构类型数据

    Dim xmlHTTP As Object

    Set xmlHTTP = CreateObject("Microsoft.XMLHTTP")

    xmlHTTP.Open "GET", Url, False

    xmlHTTP.send

    If xmlHTTP.readystate = 4 Then

        Dim jsCode As String

        jsCode = xmlHTTP.responseText

        jsCode = "var f="  jsCode '在文本前添加"var f="就构成了一个完整的赋值语句，这样就可以通过f变量读取成员数据

        Dim jsObject As Object

        Set jsObject = CreateObject("MSScriptControl.ScriptControl") '不过上面的是JavaScript语句，要借助该对象来解析

        jsObject.Language = "javascript"

        jsObject.AddCode jsCode

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

        MsgBox jsObject.Eval("f.weatherinfo.index48_d") '这是读取结构变量的某个成员值

    End If

End Sub

得，写完才刚看到是要vb.net 代码，上面是vb6.0的，或许vb.net 也可以吧。