vb程序编写代码大全

VB Mscomm控件基本介绍

VB Mscomm控件

一、MSComm控件的主要属性、事件

1、MSComm的属性

Commport：设置或返回串口号。 如设成1（默认值），表示对Com1进行操作。 Settings：以字符串的形式设置或返回串口通信参数。包括串口通讯的比特率，奇偶校

验，数据位长度、停止位等。其默认值 是“9600,N,8,1”，表示串口比特率是

9600bit/s，不作奇偶校验，8位数据位，1个停止位。

Portopen：设置或返回串口状态。值为True时打开串口，值为False时关闭串口。 InputMode：设置或返回接收数据的类型。若值为0，则表示以文本形式读取；值为1，

则表示以 二进制形式读取。

Inputlen：设置或返回一次从接收缓冲区中读取字节数。 InBufferSize：设置或返回接收缓冲区的大小，缺省值为1024字节。

InBufferCount：设置或返回接收缓冲区中等待计算机接收的字符数。 当将其值设为0

时，则输入寄存器将被清空。

Input：从接收缓冲区中读取数据并清空该缓冲区，该属性设计时无效，运行时只读。

OutBufferSize：设置或返回发送缓冲区的大小，缺省值为512

如何编写高质量的VB代码

简介：

本文描述了如何通过一些技术手段来提高vb代码的执行效率。这些手段可以分为两个大的部分：编码技术和编译优化技术。在编码技术中介绍了如何通过使用高效的数据类型、减少外部引用等编程手段来提高代码执行速度，减少代码消耗的系统资源。在编译优化技术中介绍了如何正确地利用vb提供的编译选项对在编译时最后生成的可执行文件进行优化。

前言

什么是一个高效的软件？一个高效的软件不仅应该比实现同样功能的软件运行得更快，还应该消耗更少的系统资源。这篇文章汇集了作者在使用vb进行软件开发时积累下来的一些经验，通过一些简单的例子来向你展示如何写出高效的vb代码。其中包含了一些可能对vb 程序员非常有帮助的技术。在开始之前，先让我陈清几个概念。

让代码一次成型：在我接触到的程序员中，有很多人喜欢先根据功能需求把代码写出来，然后在此基础上优化代码。最后发现为了达到优化的目的，他们不得不把代码再重新写一遍。所以我建议你在编写代码之前就需要考虑优化问题。

把握好优化的结果和需要花费的工作之间的关系：通常当完成了一段代码，你需要检查和修改它。在检查代码的过程中，也许你会发现某些循环中的代码效率还可以得到进一步的改进。在这种情况下，很多追求完美的程序员也许会立

可编辑/*--------------------chess.c----------------------*/

#include "dos.h"

#include "stdio.h"

/*----------------------------------------------------*/

#define RED 7

#define BLACK 14

#define true 1

#define false 0

#define SELECT 0

#define MOVE 1

#define RED_UP 0x1100

#define RED_DOWN 0x1f00

#define RED_LEFT 0x1e00

#define RED_RIGHT 0x2000

#define RED_DO 0x3900

#define RED_UNDO 0x1000

#define BLACK_UP 0x4800

#define BLACK_DOWN 0x5000

#define BLACK_LEFT 0x4b00

#define BLACK_RIGHT 0x4d00

#define BLACK_DO 0x1c00

#define BLACK_UNDO

可编辑/*--------------------chess.c----------------------*/

#include "dos.h"

#include "stdio.h"

/*----------------------------------------------------*/

#define RED 7

#define BLACK 14

#define true 1

#define false 0

#define SELECT 0

#define MOVE 1

#define RED_UP 0x1100

#define RED_DOWN 0x1f00

#define RED_LEFT 0x1e00

#define RED_RIGHT 0x2000

#define RED_DO 0x3900

#define RED_UNDO 0x1000

#define BLACK_UP 0x4800

#define BLACK_DOWN 0x5000

#define BLACK_LEFT 0x4b00

#define BLACK_RIGHT 0x4d00

#define BLACK_DO 0x1c00

#define BLACK_UNDO

modbus rtu协议可以算是一种事实上的工业标准协议，为许多仪表、PLC等所支持。以前有几个用户问如何使用VB编程来与我们的KND-K3系列PLC通讯，于是整了一个demo程序。这次把这个demo共享，希望能给大家一点帮助。

1） 模块文件：modCRC，其中包含了CRC校验的函数。

'data 待校验的数组名称 'no 数组中元素个数

'btLoCRC 算出的CRC高字节 'btHiCRC 算出的CRC低字节

Public Function CalCRC16Fast(data() As Byte, no As Integer, btLoCRC As Byte, btHiCRC As Byte) As String

Dim CL As Byte, CH As Byte '多项式码&HA001 Dim SaveHi As Byte, SaveLo As Byte Dim i As Integer Dim Flag As Integer

btHiCRC = &HFF btLoCRC = &HFF

modbus rtu协议可以算是一种事实上的工业标准协议，为许多仪表、PLC等所支持。以前有几个用户问如何使用VB编程来与我们的KND-K3系列PLC通讯，于是整了一个demo程序。这次把这个demo共享，希望能给大家一点帮助。

1） 模块文件：modCRC，其中包含了CRC校验的函数。

'data 待校验的数组名称 'no 数组中元素个数

'btLoCRC 算出的CRC高字节 'btHiCRC 算出的CRC低字节

Public Function CalCRC16Fast(data() As Byte, no As Integer, btLoCRC As Byte, btHiCRC As Byte) As String

Dim CL As Byte, CH As Byte '多项式码&HA001 Dim SaveHi As Byte, SaveLo As Byte Dim i As Integer Dim Flag As Integer

btHiCRC = &HFF btLoCRC = &HFF

Module Module1

Sub Main()

Dim a As Date

Dim h, m, s As Integer Dim n, i As Long Dim x, z As Long Dim y As Long

Console.WriteLine(\本程序为倒计时程序，请分部输入需要倒数的小时数、分钟数、秒数\

Console.WriteLine(\请输入计时的小时数（大于等于0的整数）：\ h = Console.ReadLine()

Console.WriteLine(\请输入计时的总分钟数（大于等于0并且小于60的整数）：\

m = Console.ReadLine()

Console.WriteLine(\请输入计时的秒数（大于等于0的并且小于60的整数）：\ s = Console.ReadLine()

Console.WriteLine(\当前系统时间为：{0}\

a = N

《工业控制计算机》!""#年$%卷第#期#

用&’编写()*客户端程序的方法

刘

（!!+""$）莉淮安信息职业技术学院电气系

’()*+,-*

()*?10B;L34<46<5L<1L/016@320::95;2<6;0540/;5L9461;<7/;37L<??<1<694FM@;4?<?31;5610L92346@3632@5;2<720130/()*<5L@0N60L3B370?()*27;356<??7;2<6;05N;6@&’F

./012+3)O()*P27;356<??7;2<6;05P&’

摘

端程序。

客户端，

关键词：()*，&’

在工业自动化领域，以往应用软件开发商都要为每一硬件开发驱动程序，而由于硬件的种类繁多，特征各异，软件开发商的负担可想而知，尤其是如果硬件特征发生了变动，整个应用软件相应的驱动程序也要相应地改动，这对开发商，对整个工程都是很不利的。而且由于驱动程序的不同，不同应用程序访问同一硬件设备时常常产生冲突。()*,(-./01)102344*0561078技术正是在

VB程序VB代码：摄像头视频图像的监控、截图、

录像（改进）

本程序是“实现USB摄像头视频图像的监控、截图、录像”的改进。可实现对摄像头视频的监控、截图、录像，可以分别保存为图片文件和视频（压缩）文件。保存的视频文件可以用媒体播放机（Windows Media Player）、 暴风影音等软件进行播放，轻松实现家庭录像制作。

利用电脑配备的 USB 摄像头进行视频控制，要用到两个 API 函数：

capCreateCaptureWindow 和 SendMessage。其中，capCreateCaptureWindow 的作用是创建一个视频窗口，摄像头捕捉到的视频图像在此窗口内显示，函数返回值就是代表此窗口的句柄。视频窗口创建后，剩下的事情就是用 SendMessage 向该窗口发送各种消息，实现对摄像头的控制。

本程序特点主要有：

1.实现对摄像头视频图像的监控、截图，视频录像并保存为磁盘文件。

2.可控制多个视频摄像头。例如，如果一台电脑配置了两个摄像头，启动本程序两次，单击按钮“源”，在弹出的“视频源”对话框中选择不同的捕获源，两个窗口就能同时显示不同摄像头获得的图像。如下图所示：

3.在“视频源”对话框中，还可以

VB程序设计---编写程序代码

（一）本课教学目标

知识目标：

1. 初步认识VB的工作环境。

2. 掌握新建工程的方法。

3. 了解VB中的窗体。

能力目标：

1. 将控件添加到窗体的一般方法。

2. 了解标签控件的基本功能及其Caption属性的用法。

3. 了解怎样设置对象属性。

4. 了解运行、保存VB程序的方法。

情感目标：提高学生VB的学习兴趣和热情。

重点、难点：

1、保存程序文件是本课的重点。

2、标签及其常用属性是本课的重点。

3、一些基本概念和基本术语，这是本课的难点。

（二）教学设计

1．课堂引入为了能调动学生学习的兴趣，教师可以举一些用VB编写的成功软件的例子，让学生体会VB的强大功能。让学生试着打开VB6.0中文版，看一看VB程序的开发环境，这时，就会遇到如何新建工程的问题，经过老师提示，让学生成功进入“工程1”的设计界面。教师让学生了解VB工作环境界面后，可以直接单击运行程序按钮，让他们运行这个没有功能的空程序，学生们会发现，运行程序后，只有一个空的窗体，让学生加深体会窗体的作用。接下来引入教

材中的“唱响口号”例题。告诉学生要想在窗体上显示奥运口号，可以使用标签控件，这样就进入了标签控件及其常用属性的学习。教师要根据自己学生的特点，让学生掌握如何将