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

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

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

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

刘

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

’()*+,-*

()*?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技术正是在

matlab编写的Lyapunov指数计算程序

已有 2406 次阅读 2009-12-29 08:37 |个人分类:其它|系统分类:科普集锦|关键词:李雅普诺夫指数

一、计算连续方程Lyapunov指数的程序 其中给出了两个例子：

计算Rossler吸引子的Lyapunov指数

计算超混沌Rossler吸引子的Lyapunov指数

http://www.pudn.com/downloads39/sourcecode/math/detail132231.html

二、recnstitution重构相空间，在非线性系统分析中有重要的作用 function [Texp,Lexp]=lyapunov(n,tstart,stept,tend,ystart,ioutp); global DS; global P;

global calculation_progress first_call; global driver_window;

global TRJ_bufer Time_bufer bufer_i; %

% Lyapunov exponent calcullation for ODE-system. %

% The al

用VB编写一个简单的电话号码查找程序

用VB编写一个简单的电话号码查找程序
（加入日期:2002-7-15）
【收藏文章】【对此文发表评论】【保存文章至硬盘】【打印文章】【字体：大 中 小】

分享到：
-
南京电视台 张阳

---- 本人供职于南京电视台播控中心。在日常播出过程中有时会遇到一些突发事件，需要及时向有关部门和有关领导请示，常为找不到电话号码而着急。为此，本人用Visual Basic编写了一个简单的应用程序，运行该程序即可方便、快捷地查找到相关的电话号码。

---- 首先将该程序的运行界面介绍给读者(图略)。

---- 运行该程序时首先出现图一所示的界面。如果要查找有关单位的电话号码，我们只需在有关单位右边的组合框的向下箭头上用鼠标点一下，这时出现图二。用鼠标拖动滚动条找到相关单位的名称再点一下，这时出现图三。看！我们需要的电话号码这么简单就找到了！如果我们要查找有关领导的电话号码操作步骤同上，这时屏幕上还会显示其相应的寻呼及手机号码。

---- 下面向读者简单介绍一下该程序的Visual Basic代码。我们首先进行界面的设计。这一步工作主要是为了给读者一个良好的视觉效果，一个友好的程序运行界面，使读者操作起来感到方便、快捷。我们只要将

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

VB程序设计结构：顺序结构、分支结构、循环结构。 二、分支结构：

一、顺序结构题： 1、以下程序段的执行结果是?

A=1

b=5

c=4

a=b

b=c

c=a

Print a;b;c 3、下面程序段的划线部分应是? A=356 b=214 t=a a=b print a;b 运行结果 214356

5、经过几下几条语句，A和B的 值分别为多少？ A=6 B=7 C=A A=B B=C

2、该程序段运行后， 变量b的值为 ? a=7 b=8 a=a+b b=a-b 4、该程序段运行后，变量a的值为 ? a=8 b=7 z=a a=b b=z 6、Text1和Text2中分别输入5，6，求Labe7l中值？ Dim X AS Single, Y AS Single, Z AS Single X=Val（Text1.text） Y=Val（Text2.text） Z=X*Y／10 Label7.caption=Z

IF <条件> Then 当条件满足时，执行语句组1 <语句组1> 当条件不满足时，执行

长江学院 课程设计报告

VB课程设计

课程设计题目：计算器程序设计

姓名： 张** 学号： 08*****

专 业 : 电子信息工程 班 级: : 083142 指导教师 : 王敏 叶志翔

0

摘要

VisualBasic 6.0 是一款可视化的，面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发windows 环境下的种类应用程序。它简单易学，效率高，且功能强大，可以与Windows专业开发工具相媲美。在VisualBasic环境下，利用事出有因件驱动的编程机制，新颖易用的可视化工具，使用Windows内部的广泛应用程序接口(API)函数，运用动态链接库（DLL），对象的链接与嵌入（OLE）,开放式数据连接（ODBC）等技术，可以高效，可以快速地开发Windows环境不功能强大，图形界面丰富的程序。

为了适应信息化时代的需求，各高校对大多数专业都开设了一定的计算机语言课程，有的讲授VisualBasic语言。VisualBasic以其语法简单，可视化设计，功能强大，为许多学校计算机语言课程的首选语言。

目前国内各出版了大量的VisualBasic语言教程，它们都具有同样的特点：介绍语言的语法等基本知识

如题所示，本文是使用VHDL语言编写的IIC 总线的24C02的读写例程，程序加了中文注释便于想我一样的初学者理解，写使用的写一个字节，读使用的随机读，具体参考24c02的手册

library IEEE;

use IEEE.std_logic_1164.all; use IEEE.std_logic_arith.all; use IEEE.std_logic_unsigned.all;

entity iic_com is port( clk: in STD_LOGIC; rst_n: in STD_LOGIC; sw1_en: in STD_LOGIC; --读使能 sw2_en: in STD_LOGIC; --写使能 scl: out STD_LOGIC; sda: inout STD_LOGIC; dis_data: out STD_LOGIC_VECTOR (7 downto 0) );

end entity iic_com;

architecture iic_communication of iic_com is signal sw_state: STD_LOGIC; signal cnt