同意. 但是信号是随机的，我不知道他的振幅 把你画波形的代码贴上来看看 VB code: Option Explicit Dim x As Long Dim y As Long Private Sub Form_Load() Picture1.AutoRedraw = True Timer1.Interval = 100 Picture1.BackColor = vbBlack Picture1.Scale (0, 50)-(1000, -50) ' 设定自定义座标系统。 Picture1.Line (0, 0)-(1000, 0), vbWhite Picture1.DrawWidth = 2 End Sub
Private Sub Timer1_Timer() x = x + 1 Randomize y = Int((100 * Rnd) + 1) - 50 Text1 = y If y > 10 Then Picture1.PSet (x, y), vbYellow ElseIf y >= -10 And y <= 10 Then Picture1.PSet (x, y), vbRed ElseIf y < -10 Then Picture1.PSet (x, y), vbBlue End If End Sub
