标签: vb

我先站个位。 靠，博客编辑器有问题，编辑了一大段，提交时不对，都没有了。   贴个我的软件吧,非常可靠,额米有第三方控件.只是msscom串口控件,结合定时器完成,速率从115200-1200我都测试了.非常可靠.  

来源：http://www.chiray.com.cn/IDC232_v1.htm IDC232为配置有RS232串行接口及 USB口的步进电机控制器，通过标准串口编程语言同PC机进行数据通信， 实现PC机控制步进电机。模块收到指令后对指令进行解析，并发出控制信号给步进电机驱动器。由PC机客户端软件自动控制步进电机按照程序指定的转速和圈数运行，进行无反馈精确定位。模块主要应用于 光学平移台/转动台以及工业控制及各种自动化生产线检测装置，避免在非复杂控制系统中使用价格昂贵的PLC方案，帮助最终用户降低成本。模块化的商业级产品可有效缩短产品研发周期和降低开发成本。                                 一、 特点 1.串口指令语言方式编程。 2.一台控制器可控制2台步进电机，用户可以有效降低四轴以内控制系统硬件成本，节省安装空间，可满足大多数项目需求。如需控制更多的步进电机可通过集线器（HUB）进行扩展，实现远程或多轴步进电机系统控制。 3.支持USB端口通讯，安装简单，不占用主机PCI插槽，无需开主机箱，方便使用笔记本电脑现场调试。 4.程序执行方式：暂停、停止、连续自动运行或单步运行，有助于用户调试程序。 5.系统自动计算控制参数（转速、脉冲数等），用户可以专心于被控对象的研究及编程，而无需人工计算底层控制参数。 6.支持图形用户界面开发平台：Visual Basic Visual C++ 等。 7.支持虚拟仪器开发平台：LabVIEW（Laboratory Virtual instrument Engineering） 8. 如有特殊需求，控制硬件及系统软件均可定制。 9.全面采用SMT贴片元件，工作更稳定。 10.同时支持共阴、共阳极步进电机驱动器。 11.外形尺寸：136*82*25 （单位：mm）  可选配CR-4A200微步驱动器， 最大200细分。 以上内容版权所有,严禁拷贝。更加详细资料请联系技术支持人员。                         二、应用范围     光学电移台                                                          定长控制系统 广州驰锐电子科技有限公司 版权所有 联系我们：http://www.chiray.com.cn/contact.htm 　

  王 语 宋国平 王语(1966-)，吉林辽源人，辽源分校网络中心主任，讲师。宋国平(1968-)，吉林德惠人，吉林电大科长，讲师。 摘 要：在编写程序中难免会出现错误，从而导致得不到正确的结果。如何跟踪、避免和解决错误，是程序开发人员面临的不可回避的问题。本文结合实例，比较系统地阐述了利用编写错误处理程序来解决这一问题的方法。关键词：VB；错误处理；语句；处理程序 一、问题的提出 我们在编程过程中难免出现一些这样或那样的的错误 ，使程序不能运行或是得不到正确的结果，所以我们要了解错误出现的原因并学会避免它。让我们来分析一下错误类型和产生错误的原因： 语法错：在输入的语句不正确时发生。例如：关键字拼写错误、标点符号的缺失或者变量名拼写错误。 例如：在使用If语句时没有相应的End If进行匹配将导致一个语法错。Visual Basic会在进行到下一条语句之前对语法错给出提示。 运行错：在一个命令企图执行一个无效的动作时发生。例如：在企图把一个字符串赋值给一个数字类型的变量时发生运行错。在运行错发生时会激活错误处理程序。 逻辑错：在程序既没有语法错也没有运行错的情况下执行程序得到的结果却不是正确的结果时，我们说发生了逻辑错。例如：应用程序要求用户提供口令，可是口令是正确的时候却不能进入应用程序，这时就说发生了逻辑错。 二、解决的方法 在这里我们主要说明一下运行错的解决方法。当一个程序运行出错时，vb提供了缺省的错误处理可以提供给用户出现错误的编号和对错误的一段简短描述并自动终止应用程序。 举例来说，如果把一个很大的计算结果保存到一个整型变量中，会导致溢出的运行错。Visual Basic会给出下图所示的出错编号为6，原因为“溢出”的对话框。 由于Visual Basic不支持集中错误处理技术。每一个过程或事件都要求有一个错误处理程序来解决一个它自己的错误，所以我们必须自己编写错误处理程序。 创建一个错误处理程序的三个基本步骤： 激活一个错误处理程序 编写对可能发生的错误进行处理的代码 继续程序的运行 下面具体介绍一下详细步骤： 通过激活错误处理程序来对运行错进行处理。在过程中使用On Error GoTo语句加一个命名的标号来激活错误处理程序。标号是用来指出错误发生时程序转向错误处理程序的入口。（Identifies a point in code to which the execution will branch when an error is encountered）。这部分代码称为"错误处理程序"，命名和变量的命名一样，可以以冒号结尾。放在过程的Exit Sub语句之后。 下面的程序是DataErr错误处理程序实现对数据溢出错误的处理： Private Sub Command1-Click()     On Error GoTo DataErr     Dim num As Integer, var As Integer    num=10     var = num * 10000     Print var     Exit Sub     DataErr: MsgBox “Try multiplying with a smaller integer” End Sub 三、使用Err对象 看过这个例子之后让我们来看看咋样使用Err对象： Err对象能报告包含和运行错相关的错误信息。可以帮助确定发生的错误类型、原因和错误发生的地方。Err的属性是由错误发生者设置的。错误可能是由Visual Basic或是编程者产生的。在运行错发生时，运行错的属性就被设置为能唯一标志这个错误的信息以及要求的处理。 1、Err对象的属性 Number属性 返回或设置标识错误的编号。它是Err对象的缺省属性。它可以用来确定是哪一个错误发生了，它的值是错误的唯一标识。 语法格式：Object.Number Description 属性 返回或设置用来对错误进行描述的字符串。 语法格式：Object.Description Source属性 返回或设置产生错误的应用程序的名字的字符串。当一个意外错误发生时，这个值被自动设置。 语法格式：Object.Source 返回或设置一个包含指向帮助文件所在位置的路径的字符串。 语法格式：Object.HelpFile HelpContext属性 返回或设置包含帮助文件中有关主题的上下文ID的字符串。 语法格式：Object.HelpContext 用Resume语句来实现继续运行程序。 三种Resume语句： Resume语句 程序从产生错误的语句开始接着运行。 Resume Next语句 程序从产生错误的语句的下一条语句接着运行。 Resume line语句 从Resume line语句后指定的标号或是行号处开始运行程序，注意标号或是行号指定的语句必须和错误处理程序在同一个过程中。 在下面的例子中，使用到了上面提到的三种属性来处理一个除数为零的错误。 Private Sub Result-Click()     On Error GoTo err1     Text3.Text = Text1.Text / Text2.Text     Msgbox “Error resolved”      Exit sub err1:     MsgBox Err.Number     MsgBox Err.Description     MsgBox Err.Source     If Err.〖ZK(〗Number = 11 Then             Text2.Text = Text2.Text + 1     End If     Resume End Sub 2、   Err对象的方法 Clear方法 在错误处理后清除Err对象的所有属性的值。使Resume语句或On Error语句之后或是结束一个子程序块或一个函数过程之后都会自动调用这个方法。 语法格式：Object.Clear Raise方法 这个方法用来产生一个错误。它是在测试和评估的时候使用的。这样可以主动地产生错误,以便在程序其他地方的错误处理程序来对它进行处理。 语法格式：Object.Raise number,source,description,helpfile, helpcontext 除了number以外的所有参数都是可选的 请看下面的实例 Private 〖ZK(〗Sub cmdError_Clickbr     Dim num As Integer     num=Val(Text1.Text)     On Error GoTo NoErr     Err.Raise num Exit Sub NoErr:     Select case Err.Number Case 6 MsgBox “Data Overflow"Text1.SetFocus Case 11 MsgBox "Division by zero"Text1.SetFocus Case else MsgBox "Error not known"Exit Sub     End select Text1.Text=“ " End Sub 四、跟踪错误 对程序中发生的错误进行捕获。当执行一个标志着错误处理程序开始的On Error语句时就引发了对错误的跟踪。当执行到Exit Sub、Exit Function、Exit Property、End Sub、End Function 或End Property语句时就意味着跟踪的结束。可以使用On Error GoTo 0来结束对错误的跟踪。 考虑用下面两种跟踪和处理错误的方法 ：即时处理和延时处理 1、错误的即时处理 在程序错误一发生时就转向错误处理程序并马上进行处理。“On Error GoTo line"语句给出了错误处理程序的入口位置。错误处理程序一般以一个标号开始，这个标号也就是在On Error GoTo语句中使用到的标号。错误处理程序采取相应的动作来解决出现的错误并从出错的语句或者出错语句的下一条语句接着运行程序。需要一条语句在错误处理程序完成后结束这个过程（Exit Sub）。 2、错误的延时处理 这种方法中VB忽略发生的错误，但是代码最后检测到这个错误。用于象除数为零等这种错误。错误处理代码用来重新设置变量的值，使得程序可以继续执行下去。 缺点是在可能出错的地方，都需要编写错误处理代码。Err对象在一个新的错误产生时不保存先前的错误信息。但是我们可以使用“On Error Resume Next"语句来激发这种错误处理方法。会让Visual Basic在错误已经发生后继续执行程序。 下面的例子就是先查看Err对象的Number属性，如果该属性的值大于0，则表明有多个错误发生了。 Private Sub Command1-Click()     On Error Resume Next     Text3.Text= Text1.Text / Text2.Text     If Err.Number 0 Then If Err.Number = 11 Then Text3.Text = 0 Else MsgBox “Input not valid" Exit Sub End If     End If End Sub “On Error Resume Next"语句标志在此使用的是延迟处理的方法。同时也调用了Clear方法来清除并设置Err对象的属性，为下一个出现的错误做准备。 创建一个公共错误处理过程 下面的代码就创建了一个函数Check，它在用户没有输入顾客的名称时产生一个错误： Function check( )     If Text1.Text = “ ” Then             Err.Raise 900, , “No blanks allowed”     Else             MsgBox “Record saved"     End If End Function Private Sub Save-Click()     Call  check End Sub  

ocx的控件： ctrl+t 点下面的浏览 -找到你下载的ocx点后确定-然后在工具栏把新出现的拉到窗体上         搞定

转:我费了9牛2虎之力才找到这个东东，我试过了，好用！！！ MSDN VB6精简版 ，去除了MSDN中VC。 VF以及其他部分，只保留了完整的VB帮助，强烈推荐！ VB6.0的MSDN下载地址为 http://book1.ibook8.com/ibook8com/book/xin005/msdn.zip   请用迅雷下载， 不要直接点上面的链接 。。。爱书吧网站做了防盗链，，所以直接点就会到他网站去。。，所以你可以右击目标另存为，或用其它下载软件下载。