求助：VB做一个类似心电图的东西.
答案:1 悬赏:80 手机版
解决时间 2021-01-17 08:23
- 提问者网友：临风不自傲
- 2021-01-16 19:01
求助：VB做一个类似心电图的东西.
最佳答案
- 五星知识达人网友：千杯敬自由
- 2021-01-16 19:52
Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Form1.AutoRedraw = True
Form1.Scale (0, 110)-(50, 0)
End Sub
Private Sub Timer1_Timer()
Static x%, y%, tx%, ty%
Randomize
x = x + 1
y = Int(Rnd() * 100)
Form1.Line (x, y)-(tx, ty)
tx = x
ty = y
End Sub
Timer1.Enabled = True
End Sub
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000
Form1.AutoRedraw = True
Form1.Scale (0, 110)-(50, 0)
End Sub
Private Sub Timer1_Timer()
Static x%, y%, tx%, ty%
Randomize
x = x + 1
y = Int(Rnd() * 100)
Form1.Line (x, y)-(tx, ty)
tx = x
ty = y
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯