查人人中国名人网海淀妇幼孕前检查 2017:求助vb一段程序
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/06 01:27:23
程序是：Private Sub DrawStandLine()
Dim iLoop As Integer
Dim fTat As Single
fTat = CSng(TxtTempTaget)
WarmCurve1.ClsLine
WarmCurve1.iCurCuve = 2
For iLoop = 1 To (10105 / WarmCurve1.XOneStep) + 1
WarmCurve1.AddLineDot (fTat)
Next iLoop
WarmCurve1.ReDrawFace
WarmCurve1.iCurCuve = 1
End Sub
我是学自动化的，这是编制温度界面的一段程序，由于本人是刚接触vb所以看的很费劲。各位高手给解释解释好吗。谢谢了啊。祝您身体健康了啊
Dim iLoop As Integer
Dim fTat As Single
fTat = CSng(TxtTempTaget)
WarmCurve1.ClsLine
WarmCurve1.iCurCuve = 2
For iLoop = 1 To (10105 / WarmCurve1.XOneStep) + 1
WarmCurve1.AddLineDot (fTat)
Next iLoop
WarmCurve1.ReDrawFace
WarmCurve1.iCurCuve = 1
End Sub
我是学自动化的，这是编制温度界面的一段程序，由于本人是刚接触vb所以看的很费劲。各位高手给解释解释好吗。谢谢了啊。祝您身体健康了啊
Dim iLoop As Integer
Dim fTat As Single
'上述两句是定义两个变量,iLoop是整型,fTat是单整型
fTat = CSng(TxtTempTaget)'将TxtTempTaget转换成Single并赋值给fTat
WarmCurve1.ClsLine
WarmCurve1.iCurCuve = 2
'画曲线
For iLoop = 1 To (10105 / WarmCurve1.XOneStep) + 1
WarmCurve1.AddLineDot (fTat)
Next iLoop
'做循环语句,画温度曲线
WarmCurve1.ReDrawFace
WarmCurve1.iCurCuve = 1