VB教程

VB教程

基于子程序调用的机构分析

1. 调用子程序：call 加子程序名

2. 画直线 Picture1.Line (x1,y1)-(x2,y2)

3. 画圆（即节点）Picture1.Circle（x1,y1）,R

4. 颜色调用，在语句后加逗号和VBblue，VBred，VBgreen或者RGB（0-255，0-255，0-

255）

5. 图上输出字符，Picture1.print “A”

6. 循环结构：

For I = 0 to 360 step 5 ‘I从0到360，步长为5，next不能少

…

Next

7. 判断结构

If I>0 then

….

Else

….

End if

8.

时间模块，在Interval输入每次运行的间隔时间（毫秒），相当于无限循环，用

Timer1.Enabled = False/true 停止或开始

9. 按钮，一般设置点击触发某一段程序

10. 这个程序一般用到以下三个

11. 调用子程序必须添加模块到程序。在右边窗口，右击其中一个，点击添加----添加模

块

子程序模块介绍（红色为调用时要设置的）

Crank(L(), F(), W(), E(), X(), Y(), VX(), VY(), AX(), AY(), I, J, A, B, DA)

RRR(L(), F(), W(), E(), X(), Y(), VX(), VY(), AX(), AY(), I, J, B, C, D, M)

RRP(L(), F(), W(), E(), X(), Y(), VX(), VY(), AX(), AY(), S, VS, ASS, I, J, B, C, D, K) L：杆长

F：角度大小（弧度）

W：角速度

E：角加速度

X：位置坐标

Y：位置坐标

ＶＸ：Ｘ方向速度

ＶＹ：Ｙ方向速度

ＡＸ，ＡＹ：加速度

Ａ，Ｂ，Ｃ，Ｄ，Ｅ，Ｆ，Ｋ：铰链编号，一般依次设为1234567，用于确定铰点数据在数组X，Y中的位置

I：杆号

J：角度号或杆号

S：位移

VS：滑块速度

ASS: 滑块加速度

DA：起始角度（用弧度表示）

M：当BCD为顺时针分布，为1，逆时针为-1

K：点为已知的参考点，计算滑块位移用的

FCRANK(X(), Y(), FX(), FY(), PX(), PY(), RX(), RY(), AX(), AY(), MF(), T(), JA(), M(), E(), TY, I, A, B, SI)

FRRR(X(), Y(), FX(), FY(), PX(), PY(), RX(), RY(), AX(), AY(), MF(), T(), JA(), M(), E(), I, J, B, C, D, SI, SJ, ZI, ZJ)

FRRP(X(), Y(), FX(), FY(), PX(), PY(), RX(), RY(), R(), AX(), AY(), MF(), T(), JA(), M(), F(), E(), MT, I, J, B, C, D, SI, SJ, ZI, ZJ)

X,Y:位置坐标

FX，FY:支座的约束反力

PX,PY：外力

AX,AY:加速度

MF：支座力矩

T:扭矩

JA :转动惯量

E: 加速度

TY: 外力矩

I，J:杆号

A,B,C,D,E,F,K：铰链编号

SI,SJ：质心号码

ZI,ZJ：当一根杆有三个副的时候，为已知数据的铰链编号，否则为0

例题

运动模拟程序：

先输入杆长

调用子程序

Call crank（L(), F(), W(), E(), X(), Y(), VX(), VY(), AX(), AY(), 1, 1, 1, 2, DA）Call RRR（L(), F(), W(), E(), X(), Y(), VX(), VY(), AX(), AY(),2, 3, 2, 3, 3, M）其中DA设置为0，M设置为1（当BCD为顺时针分布，为1，逆时针为-1）

画出直线AB，BC，CD，AD

画出圆圈A，B，C，D