作业帮 > 综合 > 作业

曲线的绘制及读数程序设计怎么做?(VB)

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/27 19:41:15
曲线的绘制及读数程序设计怎么做?(VB)
曲线用 点之间连线的方式做
Sub planscrn(a%, fg) ’画点的 数据变化小 连续可以用此法
Static pg
While fg > 3600
'每画完3600点分页
fg = fg - 3600
'locate 20, 5
pg = pg + 120
Wend
'Form1.Picture1.Line -(fg, 300 - 128 + a%) ', &H0 ', &HFFFFFFFF
Form1.Picture1.PSet (fg, -500 + a% + pg)
End Sub
Sub planpic(a%, fg) ‘画线的
Static pg%
While fg > 3600
fg = fg - 3600
pg% = pg% + 150
Picture2.PSet (0, pg% + 250)
Wend
Form1.Picture2.Line -(fg, pg% + a% - 600)
End Su