关于VB设计凸轮结构的方程问题,希望高手指教

Private Sub command1_click()

Dim pi!, h!, v!, a!, x!, y!, l!, s!, m!, n!, z!, o!

pi = 3.1415926

h = 20

Picture1.Scale (-200, 200)-(200, -200)

Picture1.Line (0, -100)-(0, 100)

Picture1.Line (-100, 0)-(100, 0)

For o = 0 To 2 * pi Step pi / 360

Select Case o:

Case 0 To 60 * pi / 180

v = 0

a = 0

x = 30 * Sin(o)

y = 30 * Cos(o)

Picture1.PSet (x, y), vbBlue

Case 60 * pi / 180 To 90 * pi / 180

l = o - 60 * pi / 180

s = h * l - h * Sin(2 * pi * l / 30 * pi / 180) / 2 * pi

x = (30 + s) * Sin(o)

y = (30 + s) * Cos(o)

Picture1.PSet (x, y), vbBlack

Case 90 * pi / 180 To 270 * pi / 180

m = (o - 90 * pi / 180) / pi

s = 10 * h * m ^ 3 - 15 * h * m ^ 4 + 6 * h * m ^ 5

x = (30 + 10 / 3 * pi + s) * Sin(o)

y = (30 + 10 /贺旦 3 * pi + s) * Cos(o)

Picture1.PSet (x, y), vbRed

Case 270 * pi / 180 To 300 * pi / 180

n = o - 270 * pi / 180

s = h / 2 * (1 - Cos(pi * n))

z = 10 * h * (3 / 2 * pi) ^ 3 - 15 * h * (3 / 2 * pi) ^ 4 + 6 * h * (3 / 2 * pi) ^ 5 ’问题问题！！

x = (30 + z / 7000) * Sin(o)

y = (30 + z / 7000) * Cos(o)

Picture1.PSet (x, y), vbBlack

Case 300 * pi / 180 To 2 * pi

x = 30 * Sin(o)

y = 30 * Cos(o)

Picture1.PSet (x, y), vbBlue

Case Else

End Select

Next o

End Sub

Z的计算结果 达到了151849.6之多 不是计算机画不出来 而是画出来了 离的太远 你根本看不见 现在把Z除以7000 你就能看到线了。。 至于怎么连上去 是禅滚扰你的备漏Z的方程有问题

添加下列代码，乎旦坦调试运行即可：迟源

！

Option Explicit

Private Sub Form_Load()

Form1.AutoRedraw = True

Me.Circle (Me.ScaleWidth \ 2, Me.ScaleHeight \ 2), 1500, QBColor(1), 0, 3.14

Me.Circle (Me.ScaleWidth \ 2, Me.ScaleHeight \ 2), 1500 * 2, QBColor(1), 3.14, 6.28, 2

Me.Circle (Me.ScaleWidth \ 2, Me.ScaleHeight \岁桐 2), 150, QBColor(1)

End Sub

Private Sub Form_Initialize()

Me.WindowState = 2

End Sub

二维码其实就是由很多0、1组成的数字矩阵。二维条码/二维码 (2-dimensional bar code) 是用某种特定的几何图形按一定规律在平面(二维方向上)分布的黑白相间的图形记录数据符号信息的在代码编制上巧妙地利用构成计算机内部逻辑基础的“0”、“1”比特流的概念，使用若干个与二进制相对应的笑腊几何形体来表示文字数值兆渗信息，通过图象输入设备或光电扫描设备自动识读以实现信息自动处族升脊理:它具有条码技术的一些共性:每种码制有其特定的字符集每个字符占有一定的宽度具有一定的校验功能等。同时还具有对不同行的信息自动识别功能、及处理图形旋转变化等特点。 二维条码/二维码能够在横向和纵向两个方位同时表达信息，因此能在很小的面积内表达大量的信息。[1]二维码生成器的制作需要一个二维码生成算法，或者一个二维码插件，然后用JAVA ，C#， VB等编程语言编写一个调用软件就可以做成二维码生成器了

---