十年网站开发经验 + 多家企业客户 + 靠谱的建站团队
量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决
这个要用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) '绘制横坐标
这么多平台需要用ActiveX控件。可以网上找找有没开源的,自己做成ActiveX控件。还可以使用现成的,比如 BeauGauge仪表控件,内含有温度计控件。
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
1 那里只是重新给String赋值。
2 空字符不存在要消除。
3 datastr是数组!
4 这和采集的数据有关,重点是 dec = val(hexString)
没有命令可以查看CPU温度,可以通过第三方软件鲁大师查看CPU温度:
百度搜索鲁大师,并进行下载安装;
运行已安装的软件的,在界面中就能看到CPU温度:
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 也可以吧。