Visual Fortran 高级编程技术3

Doublen

[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]