第六讲PC测温系统软件编制 VB软件调用:双击“ VB.EXE”文件(快捷图标) VB视窗(界面)编制: ADD FROM 控件的放置及其属性:拖动--单击(选中)+F4 四VB编程 五动态传送语句(d)建立 六运行与调试: 七可执行文件(EXE)的生成
第六讲 IPC测温系统软件编制 一 VB软件调用：双击“VB.EXE”文件（快捷图标） 二 VB视窗（界面）编制：ADD FROM 三 控件的放置及其属性：拖动---单击（选中）+F4 四 VB编程 五 动态传送语句（.dll）建立 六 运行与调试： 七 可执行文件（EXE）的生成
四VB编程 FORM相关程序:(鼠标双击) 通用变量定义( Genera|) 2视窗初始化( FORM LOAD 3各个控件的操作程序(鼠标双击) 程序窗口上行提示框:左边是控件(对象), 右边是事件 *面向对象,实时处理事件
四.VB编程 FORM 相关程序：（鼠标双击） 1 通用变量定义（General） 2 视窗初始化(FORM LOAD) 3 各个控件的操作程序（鼠标双击） 程序窗口上行提示框：左边是控件（对象）， 右边是事件---- * 面向对象，实时处理事件
FORM1”其内的控件 1 Command1~7:启动、结束等操作 2Text1~14:参数显示 3 Updown1~10:参数修改操作 4 Label1~18:参数标识 5 Timer1~2:实(定)时测控 6 Choke1~5:位式输入,控制与否 7 Picture1:参数图示背景 8Line1-~3:图示坐标及设定值指示线 9(一条曲线):参数实时值曲线
“FORM1” 其内的控件 1 Command1~7：启动、结束等操作 2 Text1~14：参数显示 3 Updown1~10：参数修改操作 4 Label1~18：参数标识 5 Timer1~2：实（定）时测控 6 Chcke1~5：位式输入，控制与否 7 Picture1：参数图示背景 8 Line1~3：图示坐标及设定值指示线 9（一条曲线）：参数实时值曲线
五.动态连接库语句(.d) Visual basic本身并没有O端口输入输出 函数,因此,VB不能直接与|SA扩展板 进行数据交换,也不能直接进行口操作。 这时就需要用到动态链接库 动态链接库( Dynamic Link Library,即 DLL)就是执行代码库,其他应用程序可 以在运行时通过动态链接调用DLL,提供 该应用程序本身不具备的功能和过程
五. 动态连接库语句（.dll） • Visual Basic本身并没有I/O端口输入输出 函数，因此，VB不能直接与ISA扩展板 进行数据交换，也不能直接进行口操作。 这时就需要用到动态链接库。 • 动态链接库(Dynamic Link Library，即 DLL)就是执行代码库，其他应用程序可 以在运行时通过动态链接调用DLL，提供 该应用程序本身不具备的功能和过程
d川的生成 ·编写动态连接库的工具很多,如 Visua C+、 Borland c++、 Delphi等,具体 方法可以参见相关文档。 可以从网上下载DL文件直接使用。例 如:程序太平洋 http://www.23book.com/down/5ivb6 1.asp
.dll的生成 • 编写动态连接库的工具很多，如Visual C++、Borland C++、Delphi 等，具体 方法可以参见相关文档。 • 可以从网上下载DLL文件直接使用。例 如：程序太平洋 http://www.23book.com/down/5ivb_6_ 1.asp
d的备用 把“动态数据传输”指令库定义为子过程(Sub 不返回值)或函数( Function一返回一个数值) 用 Declare声明,供控件程序调用。 形式为: Declare sub函数名Lib“库名”[Aias“别名”] (参数列表 Lib子句用来告诉Vsua|Bas如何找到包含 过程的d文件; Alias-子句后面的字符串必须是 过程的真正名称,而且必须是区分大小写的 如果该过程返回一个值,应将其Sub改为 Function, 且在最后加上As类型
.dll的备用 把“动态数据传输”指令库定义为子过程（Sub— 不返回值）或函数（Function—返回一个数值）； 用Declare声明，供控件程序调用。 • 形式为： Declare Sub 函数名 Lib “库名” [Alias “别名”] [(参数列表)] Lib 子句用来告诉 Visual Basic 如何找到包含 过程的 .dll 文件；Alias子句后面的字符串必须是 过程的真正名称，而且必须是区分大小写的。 • 如果该过程返回一个值，应将其Sub改为Function， 且在最后加上 As 类型
具体声明实例 Public Declare function DIPortReadPortUchar Lib dlportio. dll (By Val Port As Long)As Byte Public Declare sub DIPortWrite PortUchar Libdlportio dll (By Val Port As Long, ByVal value As Byte)
具体声明实例 Public Declare Function DlPortReadPortUchar Lib "dlportio.dll" (ByVal Port As Long) As Byte Public Declare Sub DIPortWritePortUchar Lib "dlportio.dll" (ByVal Port As Long, ByVal Value As Byte)
d的VB调用 缺省情况下,在标准模块中声明的DLL过程 是公有的,可以在应用程序的任何地方调 用它。在窗体模块中声明的DL过程可在本 模块中的所有过程中调用 调用方法: 不须返回数值,可使用Ca)法 cal!name[( arglist)]如果省略Cal,也要省 略圆括号 如果有返回值: A- name I(arglist,I
.dll的VB调用 • 缺省情况下，在标准模块中声明的DLL过程 是公有的，可以在应用程序的任何地方调 用它。在窗体模块中声明的DLL过程可在本 模块中的所有过程中调用。 • 调用方法： 不须返回数值，可使用Call方法 Call name [(arglist)] 如果省略Call，也要省 略圆括号 如果有返回值： A= name [(arglist)]
运行与调试 行:“RUN 指令图标及“F5”键 钮 停止:“■”指令图枥
六 运行与调试 运行：“RUN”，“►”指令图标及“F5”键 钮 停止：“■”指令图标
七可执行文件(EXE)的生成 文件”下拉菜单中的“MAKE-.EXE”命令
七 可执行文件（EXE）的生成 “文件”下拉菜单中的“MAKE --- . EXE”命令
