vb编程 课程设计说明书(2)

intstartangle = 360 intendangle = 0 Else

intstartangle = 0 intendangle = 360 intCW = 1 End If End Sub

Private Sub Cmdlist_Click()

Dim L_a As Double, L_b As Double

Dim i As Integer, F_AB As Double, F_BC As Double, F_CD As Double

Dim W_BC As Double, W_CD As Double, E_BC As Double, E_CD As Double Dim X_E As Double, Y_E As Double, Vx_E As Double, Vy_E As Double, Ax_E As Double, Ay_E As Double Dim strStr1, strStr2, strStr3 As String Dim intTemp As Integer For i = 0 To 8

grdDataList.ColAlignment(i) = flexAlignCenterCenter Next i

If Abs(intendangle - intstartangle) < 360 Then intTemp = 1

Else

intTemp = 10 End If

For i = intstartangle To intendangle Step intCW * intTemp

Call YDFX(i, L_a, L_b, F_BC, F_CD, W_BC, W_CD, E_BC, E_CD, X_E, Y_E, Vx_E, Vy_E, Ax_E, Ay_E)

strStr1 = Format(Str(F_CD), \Chr(9) & Format(Str(E_CD), \

strStr2 = Format(Str(X_E), \& Chr(9) & Format(Str(Vx_E), \& Chr(9) & Format(Str(Ax_E), \

strStr3 = Format(Str(Y_E), \& Chr(9) & Format(Str(Vy_E), \& Chr(9) & Format(Str(Ay_E), \

grdDataList.AddItem (Str(i) & Chr(9) & strStr1 & Chr(9) & strStr2 & Chr(9) & strStr3) Next i

grdDataList.FixedRows = 1 Cmdlist.Enabled = False End Sub

Private Sub Command6_Click() Unload Me End Sub

Private Sub Cmddraw_Click()

Dim wp As Double, hp As Double, i As Integer '获取控件的宽度，高度

wp = Abs(Picdraw(0).ScaleWidth) hp = Abs(Picdraw(0).ScaleHeight) Dim angle_L As Double, Sx As Double If intstartangle * intendangle < 0 Then If intstartangle < 0 Then

angle_L = Abs(intstartangle) Else

angle_L = Abs(intendangle) End If Else

angle_L = 0 End If

'确定横向作图比例 Sx = (wp - 240) / 360 For i = 0 To 8 Picdraw(i).Cls

'设置绘图参数

Picdraw(i).ScaleMode = 1 Picdraw(i).DrawStyle = 0 Picdraw(i).DrawWidth = 1.5 '设置坐标系

Picdraw(i).Scale (-120 - angle_L * Sx, hp / 2)-(wp - angle_L * Sx - 120, -hp / 2)

'画坐标系

Picdraw(i).Line (-80 - angle_L * Sx, 0)-(wp - angle_L * Sx - 160, 0) Picdraw(i).Line (wp - angle_L * Sx - 160, 0)-Step(-120, 120) Picdraw(i).Line (wp - angle_L * Sx - 160, 0)-Step(-120, -120) Picdraw(i).CurrentX = wp - angle_L * Sx - 700 Picdraw(i).CurrentY = 250 Picdraw(i).Print \ Picdraw(i).CurrentX = -120 Picdraw(i).CurrentY = -10 Picdraw(i).Print \

Picdraw(i).Line (0, hp / 2 - 60)-(0, -(hp / 2 - 60)) Picdraw(i).Line (0, hp / 2 - 60)-Step(-120, -120) Picdraw(i).Line (0, hp / 2 - 60)-Step(120, -120) Picdraw(i).CurrentX = 160

Picdraw(i).CurrentY = hp / 2 - 60 Select Case i Case 0

Picdraw(i).Print \ Case 1

Picdraw(i).Print \ Case 2

Picdraw(i).Print \ Case 3

Picdraw(i).Print \ Case 4

Picdraw(i).Print \ Case 5

Picdraw(i).Print \ Case 6

Picdraw(i).Print \ Case 7

Picdraw(i).Print \ Case 8

Picdraw(i).Print \ End Select Next i

Tmrdraw.Enabled = True End Sub

Private Sub txtAngle_Change() If Tmrdraw.Enabled = True Then Exit Sub End If

Dim F_AB As Double, F_CD As Double, W_CD As Double, E_CD As Double, L_a As Double, L_b As Double

Dim F_BC As Double, W_BC As Double, E_BC As Double

Dim X_E As Double, Vx_E As Double, Ax_E As Double, Y_E As Double, Vy_E As Double, Ay_E As Double

Call YDFX(Val(txtAngle.Text), L_a, L_b, F_BC, F_CD, W_BC, W_CD, E_BC, E_CD, X_E, Y_E, Vx_E, Vy_E, Ax_E, Ay_E)

lblCurrent(0).Caption = Format(Str(F_CD), \ lblCurrent(1).Caption = Format(Str(W_CD), \

lblCurrent(2).Caption = Format(Str(E_CD), \ lblCurrent(3).Caption = Format(Str(X_E), \ lblCurrent(4).Caption = Format(Str(Vx_E), \ lblCurrent(5).Caption = Format(Str(Ax_E), \ lblCurrent(6).Caption = Format(Str(Y_E), \ lblCurrent(7).Caption = Format(Str(Vy_E), \ lblCurrent(8).Caption = Format(Str(Ay_E), \End Sub

Private Sub tmrplay_Timer() Picplay.Cls

'判断显示比例的合法性

If Val(txtscale.Text) <= 0 Or Val(txtscale.Text) > 50 Then

MsgBox \请输入（0.50）之间的值作为显示比例!\vbInformation + vbOKOnly, \消息框\ txtscale.Text = \

Tmrplay.Enabled = False Exit Sub End If

'获取显示比例dblsxy Dim sxy As Double, i As Integer Dim L_a As Double, L_b As Double L_a = Val(Txtlength(5).Text) L_b = Val(Txtlength(6).Text) L_ab = Val(Txtlength(0).Text)

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库vb编程 课程设计说明书(2)在线全文阅读。