第二章 Intel Visual Fortran编译器的使用 在窗口程序设计之前,让我们先了解一下Intel Visual Fortran 编译器的基本使用方法和编译器中的项目类型。 2-1 Intel Visual Fortran 编译器简介 Fortran是一种高级的计算机编程语言,所有Fortran程序源码必须经过编译器的编译、链接,才能被翻译成计算机所能识别的机器码,从而完成源程序设定的任务。 Fortran语言的编译器较多,PC中Windows平台上常见的有: ■ Fortran PowerStation 4.0 微软公司将Fortran90集成到Developer Studio开发环境中之后推出的Fortran编译器,真正实现了Fortran的可视化编程; ■ Digital Visual Fortran 微软公司和数据设备公司(DEC)联合开发的功能更强大的Fortran编译器; ■ Compaq Visual Fortran 数据设备公司(DEC)和康柏公司(Compaq)合并后推出的Fortran编译器以及康柏公司并入惠普后推出的最新版本; ■ Intel Visual Fortran 11.x 惠普公司将Windows下的编译器转售给Intel公司后,由Intel公司开发的Fortran编译器,目前是最新版。 ■ Salford Fortran 95 由silverfrost公司开发的能用于基于Win32平台和.net平台的应用程序开发,支持完整的Fortran95语法和部分Fortran2003语法。 其实,Fortran编译器还有很多,如Lahey Fortran、Absoft Fortran和OpenWatcom等。从目前的使用情况来看,前四个编译器在Windows平台上最为常见。考虑到Fortran编译器目前的发展情况以及各种编译器版本使用的广泛性,本书所有的程序都基于Intel Visual Fortran 11.x编译器。 跟C++一样,Fortran语言本身没有提供图形界面输出方面的功能,所以为了用Fortran编写Windows图形接口程序,必须借助编译器提供的扩展功能。Intel Visual Fortran编译器封装了几乎完整的Win32 API和OpenGL函数,提供了良好、稳定的编程接口,所以,借助Intel Visual Fortran编译器,Fortran既能完成UI设计,也能胜任图形编程,从这个意义上讲,C能做到的,Fortran也能做到。 2-2 Intel Visual Fortran编译器的使用 为了编写图形界面程序,首先应安装Intel Visual Fortran编译器。编译器的安装过程比较简单,这里不再赘述。不过有几点需要注意: ■ 先安装Visual Studio 2008; ■ 然后安装Intel Visual Fortran编译器,并集成到Visual Studio 2008; ■ 不建议用户安装Visual Studio 2005,因为和Intel Visual Fortran的集成性不是很好,按照笔者的经验,曾经出现过不能正常使用控件箱的情况; - 1 - ■ 建议完整安装Intel Visual Fortran编译器自带的帮助文件,尤其是Windows窗口程序设计的开发人员。 安装Intel Visual Fortran编译器后,就可打开Visual Studio 2008开始编译Fortran程序了。具体步骤如下: ■ 双击启动Visual Studio 2008,选择“文件”菜单中的“新建”-“项目…”,弹出如图2.1所示的对话框,从中选择要建立的Fortran项目类型和模板,同时指定项目名称及其保存位置,单击“确定”按钮即可完成新项目的创建; ■ 按下组合键“Ctrl+F5”运行程序; 此处省略了程序的调试过程,对程序调试不熟练的读者请阅读相关资料或文献。 图2.1 “新建项目”对话框 2-3 Intel Visual Fortran 中的项目类型 程序开发之前,我们应充分了解各种项目类型的特点。启动Visual Studio 2008,按前面的步骤打开图2.1所示的对话框,在“项目类型”中列出了Intel Visual Fortran编译器可创建的几种项目类型。 ■ Console Application 是基于字符模式的应用程序,这类项目适于不需要图形输出的程序设计,优点是执行速度快。图2.2所示为Console Application类工程的输出窗口。 图2.2 Console Application工程输出窗口 - 2 - ■ Library 其中包括两种库文件工程: ● Static Libraries 静态库文件,是已编译的、独立于主程序的程序段,适合于大型项目中程序的结构组织和程序间函数或子程序的重复调用。但是,静态库文件会插入程序调用点,磁盘空间浪费较大;同时当静态库文件需要升级的时候,会带来工作效率的低下。为了解决这些问题,出现了动态链接库。 ● Dynamic-link Library 动态链接库,很好地解决了静态库文件存在的问题,所以广泛使用在Windows程序设计中。 ■ QuickWin Application 多文档窗口应用程序。编译器封装了部分Win32 API函数,使Fortran界面的开发变得更加容易。不管QuickWin Application应用程序有多简单,默认情况下界面中总会出现预设的系统菜单和状态栏。其运行界面如图2.3所示。 图2.3 QuickWin Application工程输出窗口 ■ Standard Graphics Application单文档窗口应用程序,通常以全屏的形式出现,如图2.4所示。全屏形式和窗口界面之间可通过组合键“Alt+Enter”互相切换。跟QuickWin Application不同,Standard Graphics Application程序界面中并没有菜单栏和状态栏。 图2.4 Standard Graphics Application工程输出窗口 ■ Windowing Application 窗口界面应用程序。经过编译器封装,Windowing Application 应用程序能够调用完整的Win32 API系统函数,所以Windowing Application应用程序的弹性更大、更加复杂。 - 3 - 第三章 QuickWin Application基础 本章中,我们将利用QuickWin工程来创建简单的窗口程序。相比以前的命令行程序,图形界面窗口程序使用户在视觉和操作上更容易接受。 3-1 最简单的窗口程序 现在到该做些什么的时候了。如果您以前的程序都是基于Console工程类型,那么,从现在开始,让我们丢掉那个很不友好的“黑屏”,一起体验窗口程序设计的乐趣。 跟所有的语言一样,最简单的程序总是向世界问好的例子。由于第一次创建Fortran界面程序,接下来的步骤会较为详细,将逐步引导大家创建第一个窗口程序。具体过程如下: ■ 启动Visual Studio 2008; ■ 选择“文件”菜单中的“新建”-“项目…”,弹出如图2.1所示对话框; ■ 在“项目类型”和“模板”中选择“QuickWin Application”,指定项目的保存位置和名称,单击“确定”按钮; ■ 编译器界面中出现了如图3.1所示的“解决方案资源管理器”; 图3.1 解决方案资源管理器 ■ 移动鼠标至“Source Files”文件夹,单击鼠标右键,选择“添加”-“新建项…”,弹出如图3.2所示的对话框; 图3.2 “添加新项”对话框 - 4 - ■ 选择“Fortran Free-form File(.f90)”模板,单击“添加”按钮; ■ 编译器界面中出现源代码编辑器,将下面的代码添加到“Source1.f90”; #001 ! example 3-1 #002 program main #003 implicit none #004 write(*,*)\#005 end program main ■ 按下组合键“Ctrl+F5”运行程序,得到程序界面如图3.3所示。 图3.3 Example3-1程序运行界面 这个程序中,简单的四个语句却实现了典型的Windows窗口界面,如菜单和状态栏等,所以,用Fortran编写窗口界面程序并没有想象中的困难,经过编译器对相关函数的有效封装后反而更加容易。 程序编译运行后,随着主窗口弹出了一个小提示窗口,同时,子窗口占了界面主框架的一部分,这些可能和读者想象的窗口程序有所区别。为了使这个简单的窗口程序更“像”,需要对程序做些修改。 3-2 “真正”的窗口程序 为了让窗口界面变得更容易理解,首先应该去掉程序运行后的对话框提示。方法有二: ■ 单击“否”,程序继续运行,但是每次执行程序时都有会出现该信息提示,使用不方便; ■ 借助函数SETEXITQQ让程序自动处理。SETEXITQQ函数用来设置QuickWin Application程序退出时的提示行为,为正确使用该函数,必须在程序中包含语句“USE IFQWIN”。函数语法为: USE IFQWIN integer ( kind=4 ) :: exitmode, result result = SETEXITQQ (exitmode) exitmode = QWIN$EXITPROMPT为程序的默认情况; 或 = QWIN$EXITNOPERSIST时,编译运行后窗口出现后马上消失; 或 = QWIN$EXITPERSIST时,运行后窗口正常显示,没有任何提示信息。 - 5 -
Intel Visual Fortran窗口程序设计 - 图文
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)
![](/skin/haowen/images/icon_star.png)