VB程序调试及编译方法

VB程序调试及编译方法

在程序的编写中，错误是难免的，查找和修改错误的过程称为程序调试。VB为调试程序提供了一组交互的、有效的调试工具，如设置断点、观察变量、过程跟踪等。

（一）错误类型

1．编辑时错误

当用户在代码窗口编辑代码时，VB会对程序直接进行语法检查，当发现程序中存在输入错误，如语句没输入完、关键字输入错等，VB会弹出一个信息窗口，提示出错信息，出错行变为红色，我们称此为编辑时错误。处理方法：用户可以根据信息窗口的提示信息查找语句错误，或点击帮助，获取相关帮助信息。2．编译时错误

程序在编辑时错误修改完成后，用户点击“启动”按钮，VB开始运行前先编译程序，这时系统查出的程序错误称为编译时错误。此类错误是由于用户未定义变量、遗漏关键字如：if没有End if等原因产生了错误。这时VB会弹出一个信息窗口，指明出现错误的原因，出错行高亮显示。处理方法：用户可以根据信息窗口的提示信息查找错误，或点击帮助，获取相关帮助信息。

3．运行时错误

运行时错误指VB在编译通过后，运行代码时发生的错误。这类错误往往是由指令代码执行了一非法操作引起的如：类型不匹配、试图打开一个不存在的文件等。此时，VB弹出一个信息框，显示错误原因，出错行以黄底黑字突出显示。

用户在信息窗口上可以点击“调试”进入中断模式以编辑错误行、点击“结束”以终止程序执行，回到设计状态继续编辑和查错。

4．逻辑错误

程序运行后，得不到所期望的结果，这说明程序存在逻辑错误。如：运算符使用不正确、语句的次序不对、循环语句的初值、终值不正确等。这种错误VB一般不提示，不容易发现，所以错误较难排除，需要程序员仔细地阅读程序、插入断点、程序跟踪、查看变量值的变化以找出错误并修改。

（二）调试与排错

5．在中断模式中查看、修改、跟踪出现的错误。

在VB的三种模式中，设计模式用于界面设计、属性设置、代码编译等，不能调试错误；运行模式状态下，用户不能编辑代码；用户在中断模式下，可以查看、修改代码、检查数据，设置断点、查看变量的值的变化等操作，实现程序的调试。

6．插入断点和逐语句跟踪

在调试程序时，通常会设置断点来中断程序运行，然后逐语句跟踪检查相关变量、属性和表达式的值等。

⑴插入断点

在需要设置断点的语句左侧灰色区点击鼠标左键或按下F9键，可在此语句处设置断点，程序执行到此处时，程序进入中断模式，用户可以逐语句执行该语句后的语句。被设置断点的语句呈紫底黑字的突出显示状态。

⑵添加监视

当用户要查看某变量的值的变化时，可以添加监视，方法：

点击“调试/添加调试”命令，在对话框中输入要查看的变量即可。

7．使用调试窗口

“立即”窗口：是在调试窗口中使用最方便、最常用的窗口。可以在程序代码中利用Debug.print，把输出送到“立即”窗口;也可以在“立即”窗口中使用Print，或：“？”显示变量的值。

“本地”窗口：用于显示当前过程中所有变量的值。当程序从一个过程切换到另一过程时，该窗口内容会发生改变。

【举例1】以求100以内的素数的程序为例，学习插入断点、逐步跟踪等常用的程序调试排错方法。

VB串口通信源程序

[程序宝典]VB串口通讯实例 程序匠人 2005-9-22 14:23:00 阅读全文(3939) | 回复(0) | 引用(0) | 查看《匠人的百宝箱》代理商品 VB串口通讯实例 作者：liwenzhao 高精度电压表(24bit) VB源程序 Dim PortValue As Integer '端口号选择1-4 Dim value As Double '当前一次取值 Dim value2 As Double '要显示的值 Dim valueSum As Double '和 Dim numCount As Double '算平均值是的计数个数 Dim func As Integer '功能号标志1-4 Dim valueFlag As Integer /********************************************** ' Check1_Click()为控制Command1是否Enabled Private Sub Check1_Click() '自动刷新被选中则刷新按钮无效 If Check1.value Then Command1.Enabled = False Else Command1.Enabled = True Command1.SetFocus End If End Sub *********************************************/ /********************************************** Private Sub Command1_Click() '显示 Call display End Sub *********************************************/ Private Sub Command2_Click() '复位 valueSum = 0 '清计数和 numCount = 1 '清计数个数 Label6.Caption = Str(numCount - 1) '显示复位 value = 0 '当前一次取值 value2 = 0 '要显示的值 valueFlag = 0

软件调试技巧

软件调试技巧 一、软件调试方法 软件调试有很多种方法。常用的有4种，即强行排错法、回溯排错法、归纳排错法和演绎排错法。 1.强行排错法 这种方法需要动脑筋动的地方比较少，因此叫强行排错。通常有以下3种表现形式： ●打印内存变量的值。在执行程序时，通过打印内存变量的数值，将该数值同预期的数值进行比较，判 断程序是否执行出错。对于小程序，这种方法很有效。但程序较大时，由于数据量大，逻辑关系复杂，效果较差。 ●在程序关键分支处设置断点，如弹出提示框。这种方法对于弄清多分支程序的流向很有帮助，可以很 快锁定程序出错发生的大概位置范围。 ●使用编程软件的调试工具。通常编程软件的IDE集成开发环境都有调试功能，使用最多的就是单步调 试功能。它可以一步一步地跟踪程序的执行流程，以便发现错误所在。 2.回溯排错法 这是在小程序中常用的一种有效的调试方法。一旦发现了错误，可以先分析错误现象，确定最先发现该错误的位置。然后，人工沿程序的控制流程，追踪源程序代码，直到找到错误根源或确定错误产生的范围。 3.归纳排错法 归纳法是一种从特殊推断一般的系统化思考方法。归纳法调试的基本思想是，从一些线索（错误的现象）着手，通过分析它们之间的关系来找出错误，为此可能需要列出一系列相关的输入，然后看哪些输入数据的运行结果是正确的，哪些输入数据的运行结果有错误，然后加以分析、归纳，最终得出错误原因。 4.演绎排错法 演绎法是一种从一般原理或前提出发，经过排除和精化的过程来推导出结论的思考方法。调试时，首先根据错误现象，设想及枚举出所有可能出错的原因作为假设。然后再使用相关数据进行测试，从中逐个排除不可能正确的假设。最后，再用测试数据验证余下的假设是否是出错的原因。 二、调试的原则 调试能否成功一方面在于方法，另一方面很大程度上取决于个人的经验。但在调试时，通常应该遵循以下一些原则。 1.确定错误的性质和位置的原则 用头脑去分析思考与错误征兆有关的信息，避开死胡同。调试工具只是一种辅助手段。利用调试工具可以帮助思考，但不能代替思考。通常避免使用试探法，最多只能将它当作最后的手段，毕竟小概率事件有时也会发生。 2.修改错误的原则 在出现错误的地方，很可能还有别的错误。修改错误的一个常见失误是只修改了这个错误的征兆或这个错误的表现，而没有修改错误本身。当新修正一个错误的同时又引入新的错误。 三、有效减少调试时间 1.绘制程序流程图 一些程序员认为，绘制程序流程图是件繁琐的事，而且浪费时间。其实不然，当读者对着偌大的程序一筹莫展时，面对纷纭复杂的关系理不出头绪时，使用程序流程图绝对可以事半功倍。 因此建议在编制程序前先绘制流程图，这样编程的思路有条理，调试时同样会有条不紊。若编制程序之前没有绘制流程图，当排错没有进展时，可以马上编写流程图。你会发现，程序中某些分支或细节被忽略了，这些细节可能就是程序出错的地方。 2.不要过多地依赖单步调试 有些程序对时间很敏感。数据只在那么一瞬间有效，可谓稍纵即逝。所以等到单步执行到那里时，

VB程序设计的常用算法填空题

VB程序设计的常用算法 例：用随机函数产生100个[0，99]范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。 将程序编写在一个GetTJput过程中，代码如下： Public Sub GetTJput() Dim a(1 To 100) As Integer Dim x(1 To 10) As Integer Dim i As Integer, p As Integer '产生100个[0，99]范围内的随机整数，每行10个打印出来 For i = 1 To If a(i) < 10 Then Form1.Print Space(2); a(i); Else Form1.Print Space(1); a(i); End If If Then Next i '统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数，并将统计结果保存在数组x(1),x(2),...,x(10)中，将统计结果打印出来For i = 1 To 100 p = a(i) Mod 10 ' 求个位上的数字 If p = 0 Then p = 10 Next i Form1.Print "统计结果" For i = 1 To 10 p = i If i = 10 Then p = 0 Form1.Print "个位数为" + Str(p) + "共" + Str(x(i)) + "个" Next i End Sub 二、求两个整数的最大公约数、最小公倍数 m=inputBox("m=") n=inputBox("n=") nm=n*m If m < n Then r=m mod n Do While m=n n=r

VB解析算法及程序实现

3.1解析算法及程序实现 1.计算长方体体积的算法描述如下：(h) (z)、宽(w)、高①输入长方体的长 v = z * w * h ②计算长方形体积③输出结果④结束（）上述算法属于 A. 枚举算法 B. 排序算法 C. 解析算法 D. 递归算法 2.下列问题适合用解析算法求解的是（） A.将十三张纸牌按从小到大进行排列 B.统计100内偶数的各位数字之和恰好为10的个数 C.计算一辆车行驶100公里的油耗 D.寻找本年级身高最高的同学 3.有如下问题： 12求出此圆锥体的体积。 V=πr ①已知圆锥的半径和高度h，使用公式hr3②已知班级每位同学的其中成绩总分s，按照s的值从大到小进行成绩排名。 ③已知圆的周长s，利用公式r=s/(2*3.14)求出圆的半径。 ④已知“水仙花数”的定义，找出1～10000范围内所有的水仙花数。 用计算机解决上述问题时，适合用解析算法的是（） A.①② B.①③ C.③④ D.②④ 4.出租车计价规则：3公里以内，10元；超出3公里每公里增加2元。假定公里数为x,金额为y.解决此问题的公式和流程图如下图所示： 流程图加框处部分的算法属于：（） A.解析算法 B.排序算法 C.枚举算法 D.递归算法

程序实现如下功能：分别现要求编写VB5.中输入Text3、和Text1、Text2在文本框Command1单击三条线段的长度，“判断”按钮中显示判断结果。程序后，在标签Label1 运行界面如图：按此要求编写的程序如下：Private Sub Command1_Click() Dim a As Single ,b As Single Dim c As Single ,st As String a=Val(Text1.Text) b=Val(Text2.Text) c=Val(Text3.Text) If Not (a + b > c And b + c > a And c + a > b) Then st = “这三条线不能构成一个三角形” ElseIf a * a + b * b = c * c Or a * a + c * c = b * b Or b * b + c * c = a * a Then “可以构成一个直角三角形” st = Then ① ElseIf “可以构成一个等边三角形” st = Else st = “可以构成一个不等边的斜三角形” End If Label1.Caption = ② End Sub 划线处应填写正确的语句是： （1）划线处① （2）划线处② 6.下列VB程序段实现计算s=1+1/2+2/3+3/4+…+99/100的值。请将下面划线处代码补充完整。 Private Sub Command1_Click() Dim i As Integer Dim s As Double s=1 For i=2 To 100 s= Next i

3-2节 程序调试的方法

3-2节程序调试的方法 编程是一件需要认真和细心的工作。通过让学生从李明同学学习程序设计时所遇到的困难和他情感上所表现出来的“窘态”故事开始，道出程序调试不但需要技巧、更需要有耐心和毅力的道理，从而激发学生学习程序调试的兴趣和热情，拉开了本节的充幕。 接着，布置任务，让学生输入课本P83四段有错误的程序，要求学生自己探究，并改正程序。 最后分析程序运行的情况，总结出程序运行出错的四种类型： 一、拼写错误 1）在工程窗口中，看到红色文字显示的程序是有拼写错误的。 2）同时还要检查其它的拼写错误 Pring改为print Integr改为integer 2、编译时出现的错误 S应该改为a 3、运行时出现的错误 运行时的错误是指编译通过后，在执行程序时出现的错误，如用0作除数等。

例如：a=0的时候，将会出现0作除数的情形 4、逻辑错误 程序运行后，得出的结果不是正确的。这说明程序存在逻辑错误。逻辑错误产生 的原因很多，运算符使用不正确、语句次序不对、循环的设置不对等都可以产生 逻辑错误。 如这里的程序的出口应该是tree>=100 任务： P85 马上行动：

你和同学们能解决以上的问题吗？以合作、交流的方式大胆尝试一下，你会有意外的收获！ 一、本节小结： 本节主要通过任务驱动、探究的形式，介绍了程序的错误类型，分析了产生错误的原因，程序的调试与排错的方法，让学生“从做中学”，进一步体验了程序调试的方法和技巧，培养了 学生调试程序的耐心和毅力，提高了学生程序设计的素养。 五、课外练习 编写一个程序，将从键盘输入的一个自然数进行因数分解，输出结果并上机验证。

算法与程序设计复习资料

江苏省高中信息技术算法与程序设计（选修） 复习要点 相关知识点 （一）算法 1.定义 1算法：就是解决问题的方法和步骤。算法是程序设计的“灵魂”，算法+数据结构＝程序。单选题 1、下列关于算法说法不正确的是( A ) A、算法独立于任何具体的语言，BASIC算法只能用BASIC语言来实现 B、解决问题的过程就是实现算法的过程 C、算法是程序设计的“灵魂” D、其它三项都正确 2．算法的描述方法： 1算法的描述：可分多种表达方法，一般用自然语言、流程图和伪代码进行描述。 2自然语言描述法：指用人们日常生活中使用的语言（本国语言），用自然语言描述符合我们的习惯，且容易理解。 3流程图描述：也称程序框图，它是算法的一种图形化表示方法。且描述算法形象、直观，更易理解。 4伪代码描述法：是介于自然语言和计算机程序语言之间的一种算法描述。是专业软件开发人员常用方法。 相关题解： 单选题 1、图形符号" "在算法流程图描述中表示( B ). A 处理或运算的功能 B 输入输出操作 C 用来判断条件是否满足需求 D 算法的开始或结束 2、图形符号在算法流程图描述中表示( A ). A 处理或运算的功能 B 输入输出操作 C 用来判断条件是否满足需求 D 算法的开始或结束 3、以下哪个是算法的描述方法?( A ) A 流程图描述法 B 枚举法 C 顺序法 D 列表法

4、以下哪个是算法的描述方法?( D ) A 顺序法 B 列表法 C 集合法 D 自然语言描述法 （二）程序设计基础 （1）常用高级编程语言：BASIC、VB、Pascal、C、C++、Java 1面向对象的程序设计语言：其中的对象主要是系统设计好的对象，包括窗体等、控件等2控件：是指工具箱中的工具在窗体中画出的、能实现一定功能的部件，如文本框，命令按钮等。 对象属性＝属性值 对象中属性可以在设计界面时通过属性窗中设置，也可以在运行时通过程序代码设置方法如下 例：给文本框“Txt123”的“Text”属性赋值为字符串“20”，代码如下 Txt123.text =”20” 变量＝对象.属性 如果要获取对象的状态或特性，这时就要读取对象的属性值，方法如下 例：读取文本框“txt123”的“Text”属性的代码如下 a = txt123.text

VB 串口通信程序设计典型实例

VB 串口通信程序设计典型实例
利用 VB 开发串口通信程序既可以使用 MSComm 控件也可以调用 Windows API 函数实 现。不过，只要 MSComm 控件可以被选用，我们推荐选择此控件实现，因为 MSComm 控 件的功能和 API 调用一样强，甚至比它还好且使用起来更加简单。 在本章提供的串口通信程序设计中，除了 PC 与 PC 串口通信外，PC 与单片机、PC 与 智能仪表、PC 与 PLC、PC 与 GSM 短信模块等串口通信任务的实现均采用 MSComm 控件。
6.1 PC 与 PC 串口通信程序设计
当两台串口设备通信距离较近时，可以直接连接，最简单的情况，在通信中只需 3 根线 （发送线、接收线、信号地线）便可实现全双工异步串行通信。 本设计通过两台 PC 串口 3 线连接，介绍了利用 API 函数和 MSComm 控件设计串口通 信程序的方法，包括字符与文件的发送与接收。
6.1.1 PC 与 PC 串口通信程序设计目的
（1）掌握 PC 与 PC 串口通信的线路连接方法。 （2）利用 MSComm 控件和 API 函数实现 PC 与 PC 串口通信的程序设计方法。
6.1.2 PC 与 PC 串口通信程序设计用软、硬件
本设计用到的硬件和软件清单如表 6-1 所示。
表 6-1 序 1 2 3 号 PC 或 IPC 串口通信线（三线制） Visual Basic 6.0 设计用软、硬件 名 称 数 2 1 1 量
6.1.3 PC 与 PC 串口通信程序硬件线路图
线路说明，在计算机通电前，按图 6-1 所示将两台 PC 通过串口线连接起来：计算机 A 串口 COM1 端口的 TXD 与计算机 B 串口 COM1 端口的 RXD 相连， 计算机 A 串口 COM1 端 口的 RXD 与计算机 B 串口 COM1 端口的 TXD 相连， 计算机 A 串口 COM1 端口的 GND 与 计算机 B 串口 COM1 端口的 GND 相连。

VB程序设计的常用算法

VB程序设计的常用算法 算法（Algorithm）：计算机解题的基本思想方法和步骤。算法的描述：是对要解决一个问题或要完成一项任务所采取的方法和步骤的描述，包括需要什么数据（输入什么数据、输出什么结果）、采用什么结构、使用什么语句以及如何安排这些语句等。通常使用自然语言、结构化流程图、伪代码等来描述算法。 一、计数、求和、求阶乘等简单算法 此类问题都要使用循环，要注意根据问题确定循环变量的初值、终值或结束条件，更要注意用来表示计数、和、阶乘的变量的初值。 例：用随机函数产生100个[0，99]范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。 本题使用数组来处理，用数组a(1 to 100)存放产生的确100个随机整数，数组x(1 to 10)来存放个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数。即个位是1的个数存放在x(1)中，个位是2的个数存放在x(2)中，……个位是0的个数存放在x(10)。 将程序编写在一个GetTJput过程中，代码如下： Public Sub GetTJput() Dim a(1 To 100) As Integer Dim x(1 To 10) As Integer Dim i As Integer, p As Integer '产生100个[0，99]范围内的随机整数，每行10个打印出来 For i = 1 To 100 a(i) = Int(Rnd * 100) If a(i) < 10 Then

Form1.Print Space(2); a(i); Else Form1.Print Space(1); a(i); End If If i Mod 10 = 0 Then Form1.Print Next i '统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数，并将统计结果保存在数组 x(1),x(2),...,x(10)中，将统计结果打印出来 For i = 1 To 100 p = a(i) Mod 10 ' 求个位上的数 字 If p = 0 Then p = 10 x(p) = x(p) + 1 Next i Form1.Print "统计结果" For i = 1 To 10 p = i If i = 10 Then p = 0 Form1.Print "个位数为" + Str(p) + "共" + Str(x(i)) + "个" Next i End Sub 二、求两个整数的最大公约数、最小公倍数 分析：求最大公约数的算法思想：(最小公倍数=两个整数之积/最大公约数) (1) 对于已知两数m，n，使得m>n； (2) m除以n得余数r； (3) 若r=0，则n为求得的最大公约数，算法结束；否则执行(4)；

用VB编写上位机

VB编写上位机实例 用VB编写上位机实例 16:14:22 UTC+0800Sun Apr 1 2007 用VB6.0编写第一个串口通信上位机程序 Visual Basic6.0是一个可视化窗口环境的编程软件，目前使用Visual Basic6.0可以快速简单编写单片机中的串口通信上位机程序。电子制作HPOO 下面我们以一个完整的通信试验为例子完成如何用Visual Basic6.0编写单片机串口通信程序。 打开安装好后的Visual Basic6.0主程序界面。选择“标准EXE”。如图1显示，建立Visual Basic 的编程环境。 图1 在菜单的[工程]选项中选择[部件]，如图2。把Visual Basic的串口通信控件Microsoft Comm control 6.0调入工作菜单。 图2

在打开[部件]对话框中，选择Microsoft Comm control 6.0的选项框，点击[确定]。图3 图3 可以在图示3中可以看通信控件Microsoft Comm control 6.0的文件是在C:\WINNT\system32\MSCOMM32.OCX文件。 如果大家在首次调用通信控件Microsoft Comm control 6.0控件时无法在控件对话框中找到，请直接在系统目录中搜索名为MSCOMM32.OCX文件。然后通过浏览加入VB的工作界面中。添加完控件回到编程界面。如下图4。 图4 通过右边的菜单把一些必要的控件放在窗体中。然后点击窗体中的Timer控件按F4弹出属性窗口进行设置。其具体设置如下：

Timer定时器控件设置属性，（通过按F4键可弹出此窗口） Mscomm通信控件参数属性设置（通过单击控件的右键属性可弹出此窗口） 本文用到的其他控件：CommandButton控件和TextBox控件按默认属性设置不变。单片机编程器HPOO 以上设置完成，回到编程窗体区中，任意双击。会显示Visual Basic的程序窗体的Load事件程序。在代码窗口中输入：单片机编程器HPOO Private Sub Form_Load() MSComm1.PortOpen = True '窗体的加载时，就打开通信端口，通信端口的参数也可以在此指定 Timer1.Enabled = Timer1.Enabled '窗体的加载时，同时定时器控件事件 End Sub 这样设置目的是当程序在打开是，首先打开通信控件MSComm，注意这里的串口通信参数中的波特率设置是默认参数的。 即：波特率：9600bps；校验位：无；数据位：8位；停止位：1。电子元件邮购网 双击定时器控件Timer1同样在定时器窗体的事件程序中，输入相关代码： Private Sub Timer1_Timer() If MSComm1.InBufferCount > 0 Then '程序检查输入缓冲区中是否有数据，若有数据 Text1.Text = Text1.Text + MSComm1.Input

VB程序设计的常用算法4

VB程序设计的常用算法4 十、数制转换 将一个十进制整数m转换成→r(2－16)进制字符串。 方法：将m不断除r 取余数，直到商为零，以反序得到结果。下面写出一转换函数，参数idec为十进制数，ibase为要转换成数的基（如二进制的基是2，八进制的基是8等），函数输出结果是字符串。 Private Function TrDec(idec As Integer, ibase As Integer) As String Dim strDecR$, iDecR% strDecR = "" Do While idec <> 0 iDecR = idec Mod ibase If iDecR >= 10 Then strDecR = Chr$(65 + iDecR - 10) & strDecR Else strDecR = iDecR & strDecR End If idec = idec \ ibase Loop TrDec = strDecR End Function 十一、字符串的一般处理1．简单加密和解密 加密的思想是：将每个字母C加（或减）一序数K，即用它后的第K个字母代替，变换式公式：c=chr(Asc(c)+k) 例如序数k为5，这时"A"→"F"，"a""f"，"B""G"…当加序数后的字母超过"Z"或"z"则c=Chr(Asc(c)+k -26) 例如：You are good→ Dtz fwj ltti 解密为加密的逆过程 将每个字母C减（或加）一序数K，即c=chr(Asc(c)-k), 例如序数k为5，这时"Z"→"U"，"z"→"u"，"Y"→"T"…当加序数后的字母小于"A"或"a"则c=Chr(Asc(c)-k +26) 下段程序是加密处理： i = 1: strp = "" nL = Len(RTrim(strI)) Do While (i <= nL) strT = Mid$(strI, i, 1) '取第i个字符 If (strT >= "A" And strT <= "Z") Then iA = Asc(strT) + 5 If iA > Asc("Z") Then iA = iA - 26 strp = strp + Chr$(iA) ElseIf (strT >= "a" And strT <= "z") Then iA = Asc(strT) + 5 If iA > Asc("z") Then iA = iA - 26 strp = strp + Chr$(iA) Else strp = strp + strT End If i = i + 1 Loop Print strp

VBNET开发全功能串口调试助手

https://www.wendangku.net/doc/5a12833004.html,开发全功能串口调试助手（含完整工程） 小记：https://www.wendangku.net/doc/5a12833004.html,的串口通信用了很长时间了，也只用Write和Read这样的方法，以前都是用这种方式做上位机软件，如此足矣。而前几天研究GSM模块时对串口返回的数据总是把握不好，参考开发板附送的例程，发现采用SerialPort 的DataReceived事件，可以实现中断触发式的数据接收。于是想到要自己做一个串口调试助手，在实现基本功能的前提下增加一些方便自己调试的功能。经过断断续续的编写，就做成了下面这个小软件： 这个软件能够实现串口调试助手的全部功能，经过通信测试，数据接收性能不亚于呼啸工作室的SComAssistant2.2，通过加大输入缓冲区，可以满足大量数据接收。

https://www.wendangku.net/doc/5a12833004.html,的串口通信主要使用VS自带的SerialPort控件，而不是早先的MSComm，更具有兼容性，这也是很久以前就放弃VB改用.NET的直接原因。该控件的主要方法、属性如下（该数据来自VS的MSDN帮助库）：

想要通过串口收发数据，就需要对串口进行配置，包括设置端口、波特率、数据格式（如COM1端口、9600bps、8位数据位、无校验位、1位停止位）等属性，之后通过Open方法打开串口。打开串口可通过手动指定，也可以使用GetPortNames方法获取计算机中存在的串口。如果打开出错，则可能是串口不存在或者已被占用。下面是相应代码： Private Sub SerialPortOpen() On Error GoTo Err If SerialPort.IsOpen =True Then SerialPort.Close()'避免重复打开端口 SerialPort.Open() LabelCOMStatus.Text ="串口已打开" Exit Sub Err:MsgBox("串口不存在或已被占用！"+ vbNewLine + ErrorToString())'出现错误，显示错误信息 End Sub 如果想要在串口中支持中文字符收发，则可在初始化时设置串口控件的编码：SerialPort.Encoding = System.Text.Encoding.Default

PLC程序现场调试的方法

P L C程序现场调试的方法 Prepared on 24 November 2020

PLC程序现场调试的方法——【非常重要】 02-04 16:42更新林慧玲分类：围观:625人次微信二维码 1、要查接线、核对地址 要逐点进行，要确保正确无误。可不带电核对，那就是查线，较麻烦。也可带电查，加上信号后，看电控系统的动作情况是否符合设计的目的。 2、检查模拟量输入输出 看输入输出模块是否正确，工作是否正常。必要时，还可用标准仪器检查输入输出的精度。 3、检查与测试指示灯 控制面板上如有指示灯，应先对应指示灯的显示进行检查。一方面，查看灯坏了没有，另一方面检查逻辑关系是否正确。指示灯是反映系统工作的一面镜子，先调好它，将对进一步调试提供方便。 4、检查手动动作及手动控制逻辑关系 完成了以上调试，继而可进行手动动作及手动控制逻辑关系调试。要查看各个手动控制的输出点，是否有相应的输出以及与输出对应的动作，然后再看，各个手动控制是否能够实现。如有问题，立即解决。 5、半自动工作 如系统可自动工作，那先调半自动工作能否实现。调试时可一步步推进。直至完成整个控制周期。哪个步骤或环节出现问题，就着手解决哪个步骤或环节的问题。 6、自动工作 在完成半自动调试后，可进一步调试自动工作。要多观察几个工作循环，以确保系统能正确无误地连续工作。 7、模拟量调试、参数确定 以上调试的都是逻辑控制的项目。这是系统调试时，首先要调通的。这些调试基本完成后，可着手调试模拟量、脉冲量控制。最主要的是选定合适控制参数。一般讲，这个过程是比较长的。要耐心调，参数也要作多种选择，再从中

选出最优者。有的PLC，它的PID参数可通过自整定获得。但这个自整定过程，也是需要相当的时间才能完成的。 8、完成上述所有的步骤 整个调试基本算是完成了。但最好再进行一些异常条件检查。看看出现异常情况或一些难以避免的非法操作，是否会停机保护或是报警提示。进行异常检查时，一定要充分考虑到设备与人身的安全! 整个调试基本算是完成了。但最好再进行一些异常条件检查。看看出现异常情况或一些难以避免的非法操作，是否会停机保护或是报警提示。进行异常检查时，一定要充分考虑到设备与人身的安全!

VB程序设计的常用算法教案.doc

VB程序设计的常用算法教案 算法（algorithm）：计算机解题的基本思想方法和步骤。算法的描述：是对要解决一个问题或要完成一项任务所采取的方法和步骤的描述，包括需要什么数据（输入什么数据、输出什么结果）、采用什么结构、使用什么语句以及如何安排这些语句等。通常使用自然语言、结构化流程图、伪代码等来描述算法。 一、计数、求和、求阶乘等简单算法 此类问题都要使用循环，要注意根据问题确定循环变量的初值、终值或结束条件，更要注意用来表示计数、和、阶乘的变量的初值。 例：用随机函数产生100个[0，99]范围内的随机整数，统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数并打印出来。 本题使用数组来处理，用数组a(1 to 100)存放产生的确100个随机整数，数组x(1 to 10)来存放个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数。即个位是1的个数存放在x(1)中，个位是2的个数存放在x(2)中，......个位是0的个数存放在x(10)。 将程序编写在一个gettjput过程中，代码如下： public sub gettjput() dim a(1 to 100) as integer

dim x(1 to 10) as integer dim i as integer, p as integer '产生100个[0，99]范围内的随机整数，每行10个打印出来 for i = 1 to 100 a(i) = int(rnd * 100) if a(i) < 10 then form1.print space(2); a(i); else form1.print space(1); a(i); end if if i mod 10 = 0 then form1.print next i '统计个位上的数字分别为1，2，3，4，5，6，7，8，9，0的数的个数，并将统计结果保存在数组x(1),x(2),...,x(10)中，将统计结果打印出来 for i = 1 to 100 p = a(i) mod 10 ' 求个位上的数字 if p = 0 then p = 10 x(p) = x(p) + 1 next i form1.print "统计结果"

基于vb的半双工串口调试软件设计

基于vb的半双工串口通信调试软件设计 一、任务 使用RS-485标准实现两台PC之间的半双工通信。 二、硬件概况 硬件设计如图1所示，由于目前多数电脑不带DB9通信接口，因此需要购买usb转R-S232转换头，并安装好相关驱动。此模块使用DB9接口的7脚（RTS端）作为485通信的数据收发控制端。 图1 使用max485和max232设计半双工通信硬件电路板 三、软件设计 1、界面设计 该程序有两个界面，主界面和设置界面。图2所示，是程序的主界面。图3所示，是通信参数设置界面。 图2 调试软件主界面

图3 设置界面2、变量及函数声明 Private tx As Integer ‘发送字符数 Private rx As Integer ‘接受字符数 Function addRx(X As Integer) rx = rx + X LabelRx.Caption = CStr(rx) End Function Function addTx(X As Integer) tx = tx + X LabelTx.Caption = CStr(tx) End Function Function clearRx() rx = 0 LabelRx.Caption = "0" End Function Function clearTx() tx = 0 LabelTx.Caption = "0" End Function 3、窗体加载与卸载 Private Sub Form_Load() 'MSComm1.PortOpen = True '打开串口 ' ss = False Combo1.Text = "COM1" With Combo1 .AddItem "COM1" .AddItem "COM2"

VB程序调试技巧

一，如果遇到了一些逻辑性很强的问题比如有循环什么的我的方法是在关键地方加入debug.print 变量 这样可以比较好地找到问题 二，msgbox 三，监视窗口，如下面的例子 For i=1 to 10000 A=sqr(i) next i 你想再监视当i＝799时A的值，就可以添加监视，方法：点调试，添加监视，选择“当监视值为真时中断”，上面表达式框中写上i=799， 这样你按F5，运行程序，程序会在i=799时中断。其他选项你可以自己去琢磨一下。 一个程序如何顺利的“脱产”，调试的过程是非常重要的。学过、钻研过程序设计的人都有同样的感受，很多情况下，调试程序的过程会比程序编写的过程更为困难。任何一个天才都不敢说，他编的程序是100%正确的。几乎每一个稍微复杂一点的程序都必须经过反复的调试、修改，最终才完成。所以说，程序的调试是编程中的一项重要技术。 程序中的典型错误类型 A类：语法错误。 B类：编译错误。 C类：属性设置错误。 D类：逻辑错误。 调试方法 方法一：利用“MSDN帮助菜单” “MSDN帮助菜单”是一个很好的自学工具，对于出现调试对话框的菜单来说，可以按下“帮助”按钮查看错误原因。 对于一些不是很清楚的函数格式、保留字的作用，也可以借助“帮助菜单”。 方法二：逐过程检查 主要检查代码是否写对，位置有没有错误，关键是要确定一段代码是在哪个事件控制下的。不妨先在脑海中把整个程序过一边，想一想究竟会有哪些事件发生（有些事件是人机互动的，例如：鼠标点击；而有些是机器自己执行的，这时要想到计时器的作用）；然后想一想每一件事发生后有什么效果。我们代码所编写的一般就是事件发生后的这个效果，那么以此事件来决定代码所写的位置。 方法三：逐语句检查（顺序、语义） 主要检查每一句代码的顺序是否写对，语义是否正确。 把整个代码从头至尾地读一边，仔细思索每一段子过程什么时候执行，以及每一子过程中的每一句代码什么时候发生，必要时可以在程序段中插入Print语句分段查看；也可用注释语

vb《算法与程序的设计》复习题-(1)

《算法与程序设计》复习题 一、选择题部分(100题) 一章一节：了解计算机解决问题的过程 1．用计算机解决问题时，首先应该确定程序“做什么？”，然后再确定程序“如何做？”请问“如何做？”是属于用计算机解决问题的哪一个步骤？（） A、分析问题 B、设计算法 C、编写程序 D、调试程序答案：B 2.学校要举行运动会，请你设计一个能够对运动员分数自动排序的软件，如果要设计此软件，以下最好的方法和步骤是（）。 A、分析问题，编写程序，设计算法，调试程序 B、设计算法，编写程序，提出问题，调试程序 C、提出问题，设计算法，编写程序，调试程序 D、设计算法，提出问题，编写程序，调试程序 答案：C 3．下列步骤不属于软件开发过程的是（）。 A、任务分析与系统设计 B、软件的销售 C、代码编写与测试 D、软件测试与维护 答案：B 4．用计算机解决问题的步骤一般为（）①编写程序②设计算法③分析问题④调试程序。 A．①②③④ B．③④①② C．②③①④ D．③②①④答案：D 5．以下描述中最适合用计算机编程来处理的是（）。 A、确定放学回家的路线 B、计算某个同学期中考试各科成绩总分 C、计算100以的奇数平方和 D、在因特网上查找自己喜欢的歌曲答案：C 6．以下问题中最适合用计算机编程处理的是（）。 A、制定本学期的学习计划 B、计算正方形的周长 C、创作一首歌曲 D、求1000以的所有素数 答案：D 7．由“上车—掏钱—投币”所描述的问题是（）。 A、无人售票车投币过程 B、乘公交车过程 C、上车过程 D、下车过程答案：A 一章二节：算法和算法描述 8．下面说确的是（）。 A、算法+数据结构=程序 B、算法就是程序 C、数据结构就是程序 D、算法包括数据结构 答案：A 9．算法描述可以有多种表达方法，下面哪些方法不可以描述“水仙花数问题”的算法（）。 A.自然语言 B.流程图 C.伪代码 D.机器语言答案：D 10．下面关于算法的说法错误的是（）。 A、算法必须有输出 B、算法就是程序 C、算法不一定有输入 D、算法必须在有限步执行后能结束 答案：B 11.算法的三种基本控制结构是顺序结构、分支结构和（）。 A、模块结构 B、情况结构 C、流程结构 D、循环结构答案：D 12.算法的三种基本控制结构是分支结构、循环结构和（） A、模块结构 B、情况结构 C、流程结构 D、顺序结构答案：D 13.算法的三种基本控制结构是顺序结构、分支结构和（）。 A、模块结构 B、循环结构 C、流程结构 D、情况结构答案：B 14.下面关于算法的认识正确的是（）。 A、算法就是求解“鸡兔同笼问题” B、算法一定没有输出 C、算法就是计算机程序 D、算法的步骤必须是有限的答案：D

VB6.0环境下基于USB的虚拟串口通讯实现

VB6.0环境下基于USB的虚拟串口通讯实现 摘要：以ftdi公司的ft232bl芯片为核心设计并实现了基于usb 接口的计算机与单片机之间的虚拟串口通讯。单片机采用philips 公司p89系列单片机，完成数据的存储。计算机在windows环境下利用mscomm通讯控件实现上位机与下位机之间的数据传输。在此提出了pc机对虚拟串口的自动识别方法，并提供了程序的源代码。实验结果表明，用虚拟串口实现计算机与单片机之间的usb通信，具有速度快，软件实现简单等优点。 关键词：vb6.0； usb口； ft232bl；虚拟串口 引言 数据传输是现代通讯过程中的一个重要环节，在数据传输过程中，不仅要求数据传输的准确率要高，而且要求速度快、连接方便。传统的rs 232串口通讯和并口通讯都存在传输速度低、扩展性差、安装麻烦等缺点，而基于usb接口的数据传输系统能够较好地解决这些问题。目前，usb接口以其传输速率高、即插即用、支持热插拔等优点，逐步成为pc机的标准接口。 本文中的数据传输系统采用了usb接口进行上位机与下位机之间的数据通讯。下位机采用philips 公司p89系列单片机，完成数据的存储。上位机通过vb6.0编程，实现上位机与下位机之间的数据传输。 1数据传输系统的总体设计

系统的硬件部分主要包括2部分：上位机端和下位机端。上位机采用pc机或笔记本电脑，操作系统为windows xp，实现上位机和下位机之间的数据传输、显示、处理、存储及查询功能。系统的下位机采用philips公司p89系列单片机，完成数据的存储。下位机为一个手持的数据存储仪，由usb转串口数据转换模块、ttl转rs 422总线模块、中央处理模块、显示模块、存储模块、电源模块等组成。上位机与下位机的连接利用pc机自带的usb接口，原理框图如图1所示。 图1数据传输系统原理框图把数据记录卡插入数据存储仪内，可把卡内数据转存到存储模块。数据存储仪通过usb口与pc机连接，把所存数据传输到上位机，上位机对数据进行显示、处理及存储。系统采用ftdi公司的ft232bl芯片作为usb转串口模块，可以和单片机的内置串口直接连接，使单片机通过usb口和pc机通讯。芯片一方面可以接收从pc机发来的usb数据，并将其转换为串行i/o数据格式发送给单片机串口；另一方面可把单片机从串口发出的数据转换为usb的数据格式传回pc机。与其他usb接口芯片相比，用ft232bl芯片进行usb外设开发，只需熟悉单片机编程及简单的vc或vb 编程，而无需考虑固件设计以及驱动程序的编写，从而能大大缩短usb外设产品的开发周期。 2硬件电路设计 2.1ft232bl芯片简介

VB程序设计的常用算法09

Visual Basic常用算法 从逻辑结构上看，应用程序= 算法+ 数据结构。 （1）数据结构（Data-Structure），计算机将数据元素依据某种逻辑联系进行存储和组织的方式。 许多大型系统的构造经验表明，系统实现的困难程度和系统构造的质量都严重依赖于是否选择了最优的数据结构。选择了数据结构，算法也随之确定，是数据而不是算法是系统构造的关键因素。这种洞见导致了许多种软件设计方法和程序设计语言的出现，面向对象的程序设计语言就是其中之一。 数据是对客观事物的符号表示，在计算机科学中是指所有能输入到计算机中并由计算机程序处理的符号的总称。 （2）算法（Algorithm），由基本运算及规定的运算顺序所构成的完整解题步骤。 一个算法应该具有以下五个重要的特征： ①有穷性，算法必须保证执行有限步之后结束。 ②确切性，算法的每一步骤必须有确切的定义。 ③输入，算法有0个或多个输入，以描述运算量的初始值。0个输入是指算法本身包含了初始值。 ④输出，算法有一个或多个输出，以反映对输入数据加工后的结果。没有结果的算法是毫无意义的。 ⑤可行性，算法原则上能够精确地运行，而且人们用笔和纸做有限次运算后即可完成。 计算机科学家尼克劳斯-沃思曾著过一本著名的书《数据结构十算法= 程序》，可见算法在计算机科学界与计算机应用界的地位。 算法的描述：是对要解决一个问题或要完成一项任务所采取的方法和步骤的描述，包括需要什么数据（输入什么数据、输出什么结果）、采用什么结构、使用什么语句以及如何安排这些语句等。 程序（Programme）就是用计算机语言描述的算法。流程图（Flow Charts）就是图形化的算法。解决同一问题可以有多种算法描述。实际问题的算法种类繁多，总体上可以分为两大类：数值算法和非数值法。 对VB程序语言设计的初学者，可能会感到掌握控件的使用不难，难得的是理解和掌握算法。但是，算法是程序的核心、编程的基础，离开算法，一事无成。我们将介绍常用的VB算法。

vb6.0串口通讯上位机开发视频教程下载地址

资料1 第一章VisualBasic6基本介绍 1. 菜单栏的使用 2. 属性窗口的使用 3. 创建工程 4.窗体的操作 5. 属性值的设定 6. 程序代码编写 7. 制作一个简单应用程序 8. 窗体属性(1) 9. 窗体属性(2) 10. 窗体事件 11. 方法 第二章VisualBasic6的数据类型与运算符表达式 12.数据类型(1) 13. 数据类型(2) 14. 运算符表达式(1) 15.运算符表达式(2) 16. 运算符表达式(3) 第三章VisualBasic6的内部函数 17.常用内部函数(1) 18.常用内部函数(2) 19. 常用内部函数(3) 20. 常用内部函数(4) 21. 常用内部函数(5) 22. 常用内部函数(6) 23. 常用内部函数(7) 24. 常用内部函数(8) 25. 常用内部函数(9) 26. 常用内部函数(10) 第四章VisualBasic6的基本语句 27.基本语句(1) 28. 基本语句(2) 29. 基本语句(3) 30. 基本语句(4) 、 31.基本语句(5) 32. 基本语句(6)

33. 基本语句(7) 34. 基本语句(8) 35. 基本语句(9) 36. 基本语句(10) 37. 基本语句(11) 38. 基本语句(12) 第五章VisualBasic6的数组 39.数组(1) 40.数组(2) 41. 数组(3) 42. 数组(4) 43. 数组(5) 44. 数组(6) 45. 数组(7) 46. 数组(8) 第六章VisualBasic6的过程 47.过程(1) 48.过程(2) 49. 过程(3) 50. 过程(4) 51. 过程(5) 52. 过程(6) 53. 过程(7) 54. 过程(8) 55. 过程(9) 56. 过程(10) 第七章VisualBasic6的标准控件 57. 1111标准控件(1) 58.标准控件(2) 59. 标准控件(3) 60. 标准控件(4) 61. 标准控件(5) 62. 标准控件(6) 63. 标准控件(7) 64. 标准控件(8) 65. 标准控件(9) 66. 标准控件(10) 67. 标准控件(11)