admin 管理员组

文章数量: 1086019


2024年3月10日发(作者：普吉华剂型)

Dim t1, t2, t3, t4 As Double '定义两杆间的夹角

Dim l1, l2, l3, l4 As Long '定义各杆的长度

Dim xa As Double, ya As Double '

Dim xb As Double, yb As Double '

Dim xc As Double, yc As Double '

Dim xd As Double, yd As Double '定义各个绞支点的坐标

Const pi = 3.1415926 '定义一个常量来计算弧度

Public Sub Form_Load() '初始化杆一的位置

t1 = 90 * pi / 180

t2 = 90 * pi / 180

l1 = 66

l3 = 44

l4 = 22

End Sub

Private Sub Command1_Click()

al = 1

If d = True Then

d = False

Else:

d = True

End If

End Sub

Private Sub Timer1_Timer()

xaa = xa

yaa = ya

xbb = xb

ybb = yb

xcc = xc

ycc = yc

xdd = xd

ydd = yd

xa = 90

ya = 90

xb = 90 + l1 * Cos(t1)

yb = 90 - l1 * Sin(t1)

xd = 90 + l4

yd = 90

xc = xd + l3 * Cos(t2)

yc = yd - l3 * Sin(t2)

t1 = t1 + pi / 180

t2 = t2 + pi / 180

dth = 10

(xa, ya), 1, QBColor(4)

(xb, yb), 1, QBColor(8)

(xc, yc), 1, QBColor(13)

(xd, yd), 1, QBColor(4)

dth = 6

(xa, ya)-(xb, yb), QBColor(1)

(xb, yb)-(xc, yc), QBColor(2)

(xc, yc)-(xd, yd), QBColor(2)

(xd, yd)-(xa, ya), QBColor(2)

'在picture1中擦去上一点的连杆机构位置，并画出新的连杆机构的位置，视觉上感觉为动画

End Sub


本文标签： 定义 位置 计算 常量 视觉

版权声明：本文标题：四杆机构的vb动画源代码 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/b/1710028540a554344.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。