北京治疗面瘫哪里好:各位高手，请帮我做一个VB程序，谢谢谢！具体要求为“作出一个能在计算机中记录温度，压力等的控制面板”

以下是用于显示温度和压力(真空值)的棒图代码:
Option Explicit
Private Sub cmdExit_Click()
Unload Me
End Sub

Private Sub Timer1_Timer()
For i = 0 To 5
PitBangtu(i).Cls
Next i
'温度
PitBangtu(0).Line (0, 2117.5 - record_jmm(3) * 42.35 / 2)-(1095, 4235), vbRed, BF
PitBangtu(1).Line (0, 2117.5 - record_jmm(4) * 42.35 / 2)-(1095, 4235), vbRed, BF
PitBangtu(2).Line (0, 2117.5 - record_jmm(5) * 42.35 / 2)-(1095, 4235), vbRed, BF
PitBangtu(3).Line (0, 2117.5 - record_jmm(6) * 42.35 / 2)-(1095, 4235), vbRed, BF
PitBangtu(4).Line (0, 2117.5 - record_jmm(0) * 42.35 / 2)-(1095, 4235), vbRed, BF
'真空值
If Val(record_jmm(10)) < 1000 And Val(record_jmm(10)) >= 100 Then
PitBangtu(5).Line (0, 0 + (1000 - record_jmm(10)) * 1.174)-(1095, 4235), vbRed, BF
ElseIf Val(record_jmm(10)) < 100 And Val(record_jmm(10)) >= 10 Then
PitBangtu(5).Line (0, 1058.75 + (100 - record_jmm(10)) * 11.744)-(1095, 4235), vbRed, BF
ElseIf Val(record_jmm(10)) < 10 And Val(record_jmm(10)) >= 1 Then
PitBangtu(5).Line (0, 2117.5 + (10 - record_jmm(10)) * 117.44)-(1095, 4235), vbRed, BF
ElseIf Val(record_jmm(10)) < 1 And Val(record_jmm(10)) >= 0.1 Then
PitBangtu(5).Line (0, 3176.25 + (1 - record_jmm(10)) * 1174.44)-(1095, 4235), vbRed, BF
End If
End Sub
记录温度和压力则需用ADO控件连接数据库来实现.

就那么做呗呵呵，一会姐教你