首页 > 教程 > 正文

阅读排行

配置VS使用winteracter
2014-08-16 22:01:25   来源:Fcode研讨团队   评论:0 点击:

winteracter 是一款强大的Fortran图形界面函数库。但其编译环境wide非常简单,不便于调试。本文介绍了使用 VS 代替 wide 做为 winteacter 编译环境的设置方法。

一.winteracter是什么?为什么要用VS代替wide?

winteracter 是一款强大的 Fortran 图形界面函数库,可方便的用 Fortran 生成GUI界面,对话框,菜单,绘图等操作。支持 windows/Linux/Mac 上的绝大多数编译器。具体可参考本站文章介绍>>>

其自带 wide 编译环境(是 Winteracter IDE 的缩写),但其功能比较简单,尤其是 debug 调试非常困难。因此,有必要用 Visual Studio 来代替。

二.配置使用方法
1. 配置 VS 的路径(仅第一次操作需要设置)
打开VS,选择工具菜单,选项。然后依次找到 IVF 的编译器设置
\

点击 Includes 后面的按钮,弹出包含列表,在其中咱贴上 Winteracter 安装目录下的 include 路径和 lib.if8 路径,例如,图中的两行(切不可删除原有的路径):
\

然后点开 Libraries 后的按钮,在其中的列表里粘贴上 lib.if8 的路径,如图(注意,这两处路径需填写您的计算机上安装的路径,切不可照抄图片上的路径):

\

2.使用 wide 创建资源(含对话框,菜单等)
由于 Winteracter 资源的特殊性,其资源编辑必须使用 wide 完成。
打开 wide,创建一个空白的工程。然后添加一个 Resource Script 资源脚本,在其中编辑部分资源,例如插入一个对话框。
\

\

此时,在 wide 工程文件夹下,会生成三个文件,其中 *.rc 和 *.f90 文件将来会用到。*.wpj 工程虽然无用,但方便打开 wide 修改资源,也请保留。
\

3. 使用 VS 创建工程并使用 winteracter

打开VS,创建工程,选择类型为 windows,empty(空白工程)
\

创建工程后,在工程的 resource files 文件夹上右键,选择添加,现有项。找到 *.rc 文件添加进来。(在选择文件时,可能需要切换文件类型为所有)

\

同理,把 resid.f90 添加到 source files

\

!!!重要警告!!!由于 winteracter 的资源特殊性,*.rc 文件千万不能由 Visual Studio 打开,否则会破坏其结构!!!无法挽回!!!

然后再添加您自己的源代码,在使用到资源时,用 use RESID 获得资源的ID。

例如,添加如下代码,可实现最简单的对话框创建(假定对话框ID为 IDD_DIALOG001)。

Module Global
  Use Winteracter !// 使用 Winteracter
  Use Resid !// 使用 Resid 资源ID
  Implicit None
End Module Global

Program www_fcode_cn
  Use Global
  Implicit None
  TYPE(WIN_MESSAGE) :: MESSAGE
  LOGICAL           :: QUIT  = .FALSE.
  INTEGER           :: ITYPE
  CALL WInitialise() !// 初始化
  CALL WindowOpen(HideWindow) !// 打开窗口
  CALL WDialogLoad(IDD_DIALOG001) !// 加载对话框
  CALL WDialogShow(-1,-1,0,Modeless) !// 显示对话框
  DO WHILE(.NOT.QUIT) !// 无穷消息循环
    CALL WMessage(ITYPE,MESSAGE)
    SELECT CASE (ITYPE)
      CASE (PushButton)
        CALL ProcessButton(MESSAGE%VALUE1,QUIT)
    END SELECT
  END DO
  CALL WindowClose()
  STOP
  
Contains

  Subroutine ProcessButton(IDENT,QUIT)
    IMPLICIT NONE
    INTEGER, INTENT (IN)     :: IDENT
    LOGICAL, INTENT (IN OUT) :: QUIT
    SELECT CASE (IDENT)      
      CASE (IDCANCEL)
        QUIT = .TRUE. !// 如果按下 IDCANCEL 按钮,退出
    End select
  End Subroutine ProcessButton

End Program www_fcode_cn
然后,在 Visual Studio 中,打开工程属性(在工程上右键,属性),然后展开 链接器(Linker) 设置,输入(Input),在 Additional Dependencies 中输入以下 lib 文件:
winter.lib comdlg32.lib opengl32.lib winmm.lib winspool.lib advapi32.lib glu32.lib Shell32.lib
如图:
\

编译,链接。一切正常的话,一般就可以得到结果了。

\

相关热词搜索:VS winteracter

上一篇:新语法系列之 强大的 Fortran 2003
下一篇:Fortran的位运算

分享到: 收藏