用VB编写曲柄连杆仿真模型好弄不

我已写好源代码，有些控件设置细节，如需要你给个邮箱地址，我发给你。

Const PI = 314159265
Const R = 50    '圆半径
Const L = 100   '拉杆长
Dim Cnt As Integer
Private Sub cmdDemo_Click()
Select Case cmdDemoCaption
Case "开始"
    cmdDemoCaption = "暂停"
    Timer1Enabled = True
Case "暂停"
    cmdDemoCaption = "开始"
    Timer1Enabled = False
Case Else
End Select
End Sub
Private Sub Form_Load()
frmDemoShow
frmDemoCls
frmDemoCircle (100, 100), 2, vbBlue
frmDemoLine (100, 100)-(100 + 2  R + L, 100), vbBlack
Shape1Left = 100 + 2  R + L
Shape1Top = 90
End Sub
Private Sub HScroll1_Change()
'左快右慢
Timer1Interval = HScroll1Value  10
End Sub
Private Sub Timer1_Timer()
'（X，Y）圆上的点运动轨迹
Dim X, Y As Single
'（A，B）块上的点运动轨迹
Dim A, B As Single
frmDemoCls
frmDemoCircle (100, 100), 2, vbBlue
X = 100 + R  Cos(Cnt / PI)
Y = 100 - R  Sin(Cnt / PI)
frmDemoCircle (X, Y), 2, vbBlue
A = (100 + R + L) + R  Cos(Cnt / PI)
B = Shape1Top + Shape1Height \ 2
Shape1Left = A
frmDemoLine (100, 100)-(X, Y), vbBlack
frmDemoLine (X, Y)-(A, B), vbBlack
Cnt = Cnt + 1
End Sub

伺服可以通过RS232直接与PC通信,但这需要你有该伺服电机的手册传感器的话其实我觉得如果你的实时性要求不是很高(响应时间在10ms以上),可以利用并口连接传感器,但要注意电压匹配,不匹配需要串联电阻以降压,利用WINIODLL来扫描并口的内容,有不同变化再根据算法来进行RS232的通信 *** 作不知道你清楚了没有给不给分无所谓,关键是能互相帮助

VisualBasic是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB都是世界上使用人数最多的语言——不仅是盛赞VB的开发者还是抱怨VB的开发者的数量。它源自于BASIC编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用DAO、RDO、ADO连接数据库，或者轻松的创建ActiveX控件。程序员可以轻松的使用VB提供的组件快速建立一个应用程序。VB的中心思想就是要便于程序员使用，无论是新手或者专家。VB使用了可以简单建立应用程序的GUI系统，但是又可以开发相当复杂的程序。VB的程序是一种基于窗体的可视化组件安排的联合，并且增加代码来指定组件的属性和方法。因为默认的属性和方法已经有一部分定义在了组件内，所以程序员不用写多少代码就可以完成一个简单的程序。过去的版本里面VB程序的性能问题一直被放在了桌面上，但是随着计算机速度的飞速增加，关于性能的争论已经越来越少。

窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮)。每个控件都有自己的属性和事件。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。在文本框中的文字改变事件中加入相应的代码，程序就能够在文字输入的时候自动翻译或者阻止某些字符的输入。

VB的程序可以包含一个或多个窗体，或者是一个主窗体和多个子窗体，类似于 *** 作系统的样子。有很少功能的对话框窗口（比如没有最大化和最小化按钮的窗体）可以用来提供d出功能。

VB的组件既可以拥有用户界面，也可以没有。这样一来服务器端程序就可以处理增加的模块。

VB使用参数计算的方法来进行垃圾收集，这个方法中包含有大量的对象，提供基本的面向对象支持。因为越来越多组件的出现，程序员可以选用自己需要的扩展库。和有些语言不一样，VB对大小写不敏感，但是能自动转换关键词到标准的大小写状态，以及强制使得符号表入口的实体的变量名称遵循书写规则。默认情况下字符串的比较是对大小写敏感的，但是可以关闭这个功能。

VB使得大量的外界控件有了自己的生存空间。大量的第三方控件针对VB提供。VB也提供了建立、使用和重用这些控件的方法，但是由于语言问题，从一个应用程序创建另外一个并不简单。

---