|
图4-1 差动放大原理图 根据实验电路的原理图用ElectronicWorkbench 设计电路实验仿真文件，差动放大电路的仿真电路如图4-2： 内容来自论文无忧网 www.paper51.com 4-2差动放大仿真电路图 paper51.com 在电子技术仿真实验室的其他演示实验文件的制作都是基于此法，严格按照实验指导制作设计。 内容来自www.paper51.com
4.3.添加控件 http://www.paper51.com 为实现系统功能模块添加了部分控件，如图4-3。 copyright paper51.com 图4-3 添加外部控件 paper51.com 4.3.1. StatusBar控件 内容来自论文无忧网 www.paper51.com
其中添加的控件 StatusBar ：主要用于版权等的声明显示，设置它的属性为sbrDate 、sbrTime来显示系统的当前时间，如图4-4。 内容来自www.paper51.com 图4-4 版权及时间显示 内容来自论文无忧网 www.paper51.com 4.3.2. SSTab控件 paper51.com 其中添加的控件 SSTab ： 使用该控件的不同选项卡来分别显示各个不同的实验内容，如图4-5。 http://www.paper51.com 图4-5 选项卡效果 copyright paper51.com 4.3.3．ImageList控件 内容来自www.paper51.com 其中添加的控件ImageList：与Toolbar控件一起使用，由ImageList控件提供工具栏按钮图像来制作菜单栏。 paper51.com ImageList控件的图像属性页如图4-6所示： 内容来自www.paper51.com 图4-6 ImageList控件的图像属性 http://www.paper51.com 4.3.4．Toolbar控件 内容来自论文无忧网 www.paper51.com 其中添加的控件 Toolbar ：可以制作出含有图片及文字的美观的菜单。菜单栏的设计步骤如下：先向工具箱中添加ToolBar控件与ImageList控件，然后向ImageList控件添加需要使用的图像，将ToolBar与ImageList控件关联起来，并且创建工具栏的关键字，最后编写ButtonClick事件过程。 内容来自www.paper51.com
将ImageList与ToolBar控件相联系，在ToolBar控件的属性页对话框中，选择通用选项卡，在图像列表栏中选择ImageList1，此时ToolBar控件就可使用ImageList1中的图像，选择属性进入属性页对话框，选择按钮选项卡，可设置按钮选项卡的属性，如图4-7所示： paper51.com 图4-7 按钮选项卡的属性 http://www.paper51.com ToolBar控件中添加按钮，单击“插入按钮”后，“索引”框中出现数字1，依次输入按钮标题仿真、关键字fangzhen、图像等内容，再单击“插入按钮”继续添加其它按钮，单击“确定”按钮结束添加按钮的操作。 内容来自论文无忧网 www.paper51.com ToolBar控件常用事件，TollBar控件常用事件为单击工具栏事件ButtonClick()。工具栏由多个按钮组成，共用一个ButtonClick()事件过程，在事件过程中使用按钮的关键字Key为识别条件编写多路分支程序，执行按钮对应的事件处理程序。 paper51.com
4.4 Visual Basic 6.0制作实验平台框架 http://www.paper51.com
使用VisualBasic 6.0建立窗体文件来搭建实验平台，设计制作完成后实验原理指导界面如图4-8： 内容来自论文无忧网 www.paper51.com 图4-8 实验原理指导界面 copyright paper51.com 4.5.系统的集成 paper51.com 在分别完成了实验平台搭建与仿真实验演示文件的制作之后，就需要将ewb文件嵌入到实验平台中，实现电子技术仿真实验室的核心内容。 http://www.paper51.com 4.5.1.文件关联 内容来自www.paper51.com 因为要将 Electronic Workbench 内嵌到 Visual Basic 6.0 的窗体模块中，就必须实现 ElectronicWorkbench 软件的绿化，基于此种需求，将*.ewb文件与 Electronic Workbench 软件的文件关联写入注册表。 内容来自www.paper51.com
这里主要修改了注册表中 HKEY_CLASSES_ROOT 的键值。 paper51.com 4.5.2.电子技术实验室仿真实现 内容来自www.paper51.com 在虚拟实验室中对电子技术实验仿真时使用 ShellExecute 函数来调用仿真演示程序。 内容来自论文无忧网 www.paper51.com
ShellExecute的功能是运行一个外部程序（或者是打开一个已注册的文件、打开一个目录、打印一个文件等），并对外部程序有一定的控制。 内容来自www.paper51.com
使用API l浏览器声明ShellExecute 函数，如图4-9所示： paper51.com 图4-9 ShellExecute 函数声明 内容来自论文无忧网 www.paper51.com ShellExecute 函数调用：ShellExecuteMe.hWnd, "open", "path", vbNullString, vbNullString, 1 内容来自论文无忧网 www.paper51.com 电子技术实验仿真演示调用如图4-10所示： paper51.com
图4-10 仿真演示调用 http://www.paper51.com 4.5.3.自主实验模块 内容来自论文无忧网 www.paper51.com 自主实验中需要调用Electronic Workbench 程序为VB程序子窗口，实现仿真软件的内嵌，核心代码如下： 内容来自www.paper51.com PrivateSub on_Click() paper51.com Dim myexe As Long 内容来自www.paper51.com Dim newhwnd As Long copyright paper51.com Dim newexe As Long paper51.com Dim myvalue As Long 内容来自论文无忧网 www.paper51.com myexe = Shell("D:\电子技术仿真实验室\EWB\WEWB32.EXE",vbNormalFocus) http://www.paper51.com
newhwnd = FindWindow(ByVal 0&, ByVal0&) paper51.com Do While newhwnd <> 0 内容来自论文无忧网 www.paper51.com paper51.com |