因為我現在在做一個硬體電路,利用並列傳輸到電腦上,然後點對點繪圖的方式顯示,我的x軸為t y軸為輸入的值,不過我要如何讓波形在我設定的圖形大小內,一直掃描呢?我現在只能做到當執行時,開始掃描不過超過scale width時就看不到了,可否請教一下<br>用paintpicture把.image左移呀!<br>對不起我不太懂ㄝ<br>能否說明白一點 謝謝
Dim BeforeY As Integer, NowY As Integer Private Sub Form_Load() Timer1.Interval = 500 Picture1.ScaleMode = 3 Picture1.Scale (0, 1000)-(1000, 0) Picture1.CurrentX = 500 Picture1.AutoRedraw = True End Sub Private Sub Timer1_Timer() Randomize NowY = CInt(Rnd * 500) Picture1.Line (493, BeforeY)-(500, NowY) Set Picture1.Picture = Picture1.Image Picture1.PaintPicture Picture1.Picture, -5, 0, 1000, 1000, 0, 0, 1000, 1000 BeforeY = NowY End Sub 並不一定正確,僅提供參考 重複的問題盡量不要再開個主題
並不一定正確,僅提供參考 謝謝 重複的問題盡量不要再開個主題 不好意思,以後會注意