基于VB的数字积分直线插补设计(7)

山西农业大学工学院毕业设计说明书

y(i + 1) = y(i + 1) Mod q yd(i + 1) = yd(i) + 1 Else

yd(i + 1) = yd(i) End If

Line (xd(i), yd(i))-(xd(i + 1), yd(i + 1)), RGB(255, 0, 0) 'Timer1.Enabled = True i = i + 1 Loop End Sub

Private Sub Command3_Click() Cls '清屏

Form1.Visible = False Text1.Text = \Text2.Text = \Text3.Text = \Text4.Text = \

Command2.Enabled = False Command3.Enabled = False End Sub

Private Sub Command4_Click() End End Sub

- 25 -