Fortran Coder

查看: 59|回复: 3

[绘图界面库] SimplyFortran调用appGraphics问题

[复制链接]

7

帖子

3

主题

0

精华

入门

F 币
36 元
贡献
20 点
发表于 2018-10-18 15:21:34 | 显示全部楼层 |阅读模式
最近安装了simply Fortran,看见帮助文档里面有appGraphics,就想学学做界面,但是按照help文档里的例子做,却提示出错
程序:
[Fortran] 纯文本查看 复制代码
program main
use appgraphics
implicit none
    integer::myscreen
    integer :: root_menu,file_menu,item
    
    interface
        subroutine quit()
        end subroutine quit
    end interface
    interface
        subroutine save()
        end subroutine save
    end interface
    
    myscreen = initwindow(800, 600, closeflag=.TRUE.)
    
    call loop()
    root_menu = addmenu("", MENU_FOR_WINDOW)
    file_menu = addmenu("File", root_menu)
    item = addmenuitem("Save", file_menu, save)
    item = addmenuitem("Quit", file_menu, quit)
    
    call closewindow(myscreen)
end program main


错误提示:
Generating Makefile... Okay
==============================================================================
Processing default resource
Generating graphics.exe
build\main.o: In function `MAIN__':
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C:\Users\fpchi\Fortran\Empty/./main.f90:24: undefined reference to `save_'
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
C:\Users\fpchi\Fortran\Empty/./main.f90:25: undefined reference to `quit_'
collect2.exe: error: ld returned 1 exit status
Error: Last command making (graphics.exe) returned a bad status
Error: Make execution terminated
* Failed *

请教是什么原因,是需要一些额外的设置么?

回复

使用道具 举报

7

帖子

3

主题

0

精华

入门

F 币
36 元
贡献
20 点
 楼主| 发表于 2018-10-18 15:57:53 | 显示全部楼层
明白了,那个“save”和“quit”是自己写的过程名。。。还以为是编译器已经给写好的。。。

586

帖子

0

主题

0

精华

大师

F 币
483 元
贡献
305 点

规矩勋章元老勋章新人勋章水王勋章

QQ
发表于 2018-10-18 16:16:01 | 显示全部楼层
这俩函数需要你自己写。写俩空白的就好了。
[Fortran] 纯文本查看 复制代码
program main
use appgraphics
implicit none
    integer::myscreen
    integer :: root_menu,file_menu,item

    interface
        subroutine quit()
        end subroutine quit
    end interface
    interface
        subroutine save()
        end subroutine save
    end interface

    myscreen = initwindow(800, 600, closeflag=.TRUE.)
    root_menu = addmenu("", MENU_FOR_WINDOW)
    file_menu = addmenu("File", root_menu)
    item = addmenuitem("Save", file_menu, save)
    item = addmenuitem("Quit", file_menu, quit)
    call loop()
    call closewindow(myscreen)
end program main

  Subroutine quit()
    stop
  End Subroutine quit

  Subroutine save()

  End Subroutine save

7

帖子

3

主题

0

精华

入门

F 币
36 元
贡献
20 点
 楼主| 发表于 2018-10-22 15:00:44 | 显示全部楼层
谢谢回答,明白了
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|群聊|Fcode

GMT+8, 2018-11-14 05:59

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表