ChinaNet
标题:
Visual Fortran 高级编程技术3
[打印本页]
作者:
Doublen
时间:
2015-4-8 10:33
标题:
Visual Fortran 高级编程技术3
[size=13.63636302947998px]● 例子程序2:
[size=13.63636302947998px]
[size=13.63636302947998px]! 模块***************************************
[size=13.63636302947998px]
[size=13.63636302947998px]MODULE MYDATA
[size=13.63636302947998px]
[size=13.63636302947998px]INTEGER NODE,NEL
[size=13.63636302947998px]
[size=13.63636302947998px]END MODULE MYDATA
[size=13.63636302947998px]
[size=13.63636302947998px]!*******************************************
[size=13.63636302947998px]
[size=13.63636302947998px]
[size=13.63636302947998px]!主程序*************************************
[size=13.63636302947998px]
[size=13.63636302947998px]USE MYDATA
[size=13.63636302947998px]
[size=13.63636302947998px]NODE=100
[size=13.63636302947998px]
[size=13.63636302947998px]NEL=90
[size=13.63636302947998px]
[size=13.63636302947998px]WRITE(*,*)"IN MAIN PROGRAM :"
[size=13.63636302947998px]
[size=13.63636302947998px]WRITE(*,*)"NODE=",NODE
[size=13.63636302947998px]
[size=13.63636302947998px]WRITE(*,*)"NEL=",NEL
[size=13.63636302947998px]
[size=13.63636302947998px]CALL SUBPROGRAM()
[size=13.63636302947998px]
[size=13.63636302947998px]END
[size=13.63636302947998px]
[size=13.63636302947998px]!*******************************************
[size=13.63636302947998px]
[size=13.63636302947998px]
[size=13.63636302947998px]!子程序*************************************
[size=13.63636302947998px]
[size=13.63636302947998px]SUBROUTINE SUBPROGRAM()
[size=13.63636302947998px]
[size=13.63636302947998px]USE MYDATA
[size=13.63636302947998px]
[size=13.63636302947998px]WRITE(*,*)"IN SUBPROGRAM :"
[size=13.63636302947998px]
[size=13.63636302947998px]WRITE(*,*)"NODE=",NODE
[size=13.63636302947998px]
[size=13.63636302947998px]WRITE(*,*)"NEL=",NEL
[size=13.63636302947998px]
[size=13.63636302947998px]END SUBROUTINE
[size=13.63636302947998px]
[size=13.63636302947998px]!*******************************************
[size=13.63636302947998px]
[size=13.63636302947998px]
[size=13.63636302947998px]1.2 开发环境
[size=13.63636302947998px]
[size=13.63636302947998px]1) 建立新文件、新项目
[size=13.63636302947998px]
[size=13.63636302947998px]● "File" → "New" → "Files"
[size=13.63636302947998px]
[size=13.63636302947998px]文件类型:
[size=13.63636302947998px]
[size=13.63636302947998px]a 固定格式
[size=13.63636302947998px]
[size=13.63636302947998px]b 自由格式
[size=13.63636302947998px]
[size=13.63636302947998px]● "File" → "New" → "Projects"
[size=13.63636302947998px]
[size=13.63636302947998px]项目类型:
[size=13.63636302947998px]
[size=13.63636302947998px]a Win32 Console Application:
[size=13.63636302947998px]
[size=13.63636302947998px]基于命令行的程序(字符界面)。
[size=13.63636302947998px]
[size=13.63636302947998px]b Standard Graphics Application:
[size=13.63636302947998px]
[size=13.63636302947998px]单窗口单任务绘图应用程序,易学易用。
[size=13.63636302947998px]
[size=13.63636302947998px]c Quick Win Application
[size=13.63636302947998px]
[size=13.63636302947998px]多窗口单任务绘图应用程序,易学易用。
[size=13.63636302947998px]
[size=13.63636302947998px]d Win32 Application
[size=13.63636302947998px]
[size=13.63636302947998px]多窗口多任务应用程序,有固定的程序结构,复杂难学。
[size=13.63636302947998px]
[size=13.63636302947998px]2) 建立资源文件
[size=13.63636302947998px]
[size=13.63636302947998px]● "Insert" → "Resource"
[size=13.63636302947998px]
[size=13.63636302947998px]资源文件类型:
[size=13.63636302947998px]
[size=13.63636302947998px]a 加速键
[size=13.63636302947998px]
[size=13.63636302947998px]b 对话框
[size=13.63636302947998px]
[size=13.63636302947998px]c 图象
[size=13.63636302947998px]
[size=13.63636302947998px]d 菜单
[size=13.63636302947998px]
本帖转自52MC
[size=13.63636302947998px]
[size=13.63636302947998px]
欢迎光临 ChinaNet (http://www.nuclear.net.cn/)
Powered by Discuz! X3.1