基于 Fortran QuickWin 的物性计算应用程序开发示例

最新推荐文章于 2024-01-13 23:17:02 发布
最新推荐文章于 2024-01-13 23:17:02 发布
阅读量1.7k 收藏 14
点赞数 8
文章标签： fortran
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/weixin_46371982/article/details/116741059
版权

文章目录

简介

学习Fortran QuickWin应用程序开发，编写了一个带有用户界面的简单的气体物性计算软件，可以称为超级低配版NIST Refprop（功能上比Refprop简单很多：只有氮气一种气体；没有添加绘制曲线的功能）

下面主要介绍QuickWin部分的内容，有关计算的例程和模块由我的小伙伴编写，使用了理想气体状态方程、van der Waals方程和R-K方程，迭代算法采用最简单的Newton迭代法。

With my partner: (1105808579@qq.com)

一、开发环境

IDE: Microsoft Visual Studio 2019 Community
编译器: Intel Parallel Studio XE 2020
源代码格式：Fortran 90

二、步骤

2.1 建立QuickWin工程

在VS中创建新项目，语言为Fortran，选择QuickWin Application
(这里命名为Ex01.sln 和 Ex01.vfproj )

在这里插入图片描述

2.2 添加源代码和文件

在解决方案资源管理器的Source Files目录下添加源代码文件
Source1.f90

在这里插入图片描述

2.3 添加资源文件

在Resource Files目录下新建资源文件 Resource1.rc
步骤同上

2.4 向 .rc 文件中添加资源

双击打开 .RC 文件，右键“添加资源”，然后选择对话框组件（Dialog）

在这里插入图片描述
除对话框外，还可以向 .rc 文件中添加菜单Menu、版本信息Version、位图Bitmap等；
要在对话框组件中插入位图，就需要先向 .rc 文件添加bitmap资源。
添加并配置Version资源，即可设置最终exe的属性-详细信息。

2.5 设计对话框

添加Dialog组件后，进入对话框的编辑界面

Ctrl + Alt + X 打开工具箱，可以将工具箱中的控件直接拖动到对话框里面
F4 打开属性窗口

在这里插入图片描述
（上图仅为简单示例）

在这里添加对话框中的按钮、文本框、滚动条等控件，通过工具栏中的工具调整控件的大小、位置和对齐方式，通过属性窗口设置控件显示文本（Caption）、控件ID、边缘粗细、可视性、文本对齐方式等属性。

控件可大致分为两类，一类是有触发回调例程（Callback Subroutine）的，例如按钮、EDIT文本框，另一类则是不能触发回调例程的，如 Static Text 和 Picture Control.

2.6 获取控件ID

每一个控件都有一个唯一ID作为其身份标识，ID和控件是一一对应的。例如，添加的第一个 Static Text 类型控件的ID是IDC_STATIC1，对话框1的控件ID是IDD_DIALOG1。然而这种形式的控件ID无法在程序中被直接识别。因为在保存了 .rc 文件后，每一个ID也被赋予一个与其对应的代码，如本例中IDD_DIALOG1的代码为101，IDC_EDIT1的代码为1000. 在程序中引用控件需要通过控件代码，因此，保存 rc 文件之后，首先打开工程目录下的 resource.h 文件，这是系统生成的一个C++文件，里面包含着控件ID与控件身份标识代码的对应关系。

在这里插入图片描述

在这里插入图片描述

人为读取之后，用模块的形式写入f90源文件中
（后面需要访问控件的例程都必须包含此模块）

MODULE CONTROLS
	integer,parameter::IDD_DIALOG1 = 101
	integer,parameter::IDD_EDIT1 = 1000
	integer,parameter::IDD_EDIT2 = 1001
	integer,parameter::IDD_EDIT3 = 1002
END MODULE CONTROLS

P.S. 本来应该用命令行将resource.h转化为Fortran能够识别的.fd文件然后直接将其包含在程序中，但多次尝试都无法实现，此时只能手动包含控件信息。

2.7 编写主程序和回调例程

这里附上氮气物性计算软件的源代码：

MODULE CONTROLS	!resource.h中的控件ID
	integer, parameter :: IDD_DIALOG1 = 101
	integer, parameter :: IDD_DIALOG2 = 103
	integer, parameter :: IDC_EDIT1 = 1000
	integer, parameter :: IDC_EDIT2 = 1001
	integer, parameter :: IDC_EDIT3 = 1002
	integer, parameter :: IDC_STATIC1 = 1003
	integer, parameter :: IDC_STATIC2 = 1004
	integer, parameter :: IDC_STATIC3 = 1005
	integer, parameter :: IDC_STATIC4 = 1006 
END MODULE CONTROLS
	

MODULE NEWTON	!内核算法模块，包含方程
    IMPLICIT NONE
    REAL,PARAMETER::R=8.314
    REAL,PARAMETER::MM=0.028013 !氮气摩尔质量
    REAL,PARAMETER::A=0.1361,B=0.0385*0.001 !范德瓦尔方程正系数
    REAL,PARAMETER::AK=0.427480*R**2*126.2**2.5/3.39/(1E6),BK=0.08664*R*126.2/3.39/(1E6) !R-K方程正系数
    REAL::ML,VM,X
	
    CONTAINS    
	!范德瓦尔方程求解 
    REAL FUNCTION VANSOLVE(P,V,T)
		IMPLICIT NONE
		REAL::P,V,T,X
		
		ML=P*V/(T*R/MM) !理想气体状态方程求解
		X=V/(ML/MM)
		VM=X-VANDER(P,V,T,X)/DVANDER(P,V,T,X)
		DO WHILE(ABS(X-VM)>1E-7)
			X=VM
			VM=X-VANDER(P,V,T,X)/DVANDER(P,V,T,X)
		END DO
		VANSOLVE=V/VM*MM
	END FUNCTION VANSOLVE
	
    REAL FUNCTION VANDER(P,V,T,X) !范德瓦尔函数
		IMPLICIT NONE
		REAL P,V,T,X
		VANDER=P*X**3-(P*B+R*T)*X**2+A*X-A*B
	END FUNCTION VANDER
	
    REAL FUNCTION DVANDER(P,V,T,X) !范德瓦尔导函数
		IMPLICIT NONE
		REAL::P,V,T,X
		DVANDER=3*P*X**2-2*(P*B+R*T)*X+A
    END FUNCTION DVANDER

	!R-K方程求解
    REAL FUNCTION RKSOLVE(P,V,T)
		IMPLICIT NONE
		REAL::P,V,T
		ML=P*V/(T*R/MM) !理想气体状态方程求解
		X=V/(ML/MM)
		VM=X-RK(P,V,T,X)/DRK(P,V,T,X)
		DO WHILE(ABS(X-VM)>1E-7)
			X=VM
			VM=X-RK(P,V,T,X)/DRK(P,V,T,X)
		END DO
		RKSOLVE=V/VM*MM
	END FUNCTION RKSOLVE
	
    REAL FUNCTION RK(P,V,T,X) !R-K函数
		IMPLICIT NONE
		REAL::P,V,T,X
		RK=P*X**3-R*T*X**2-(P*BK**2+BK*R*T-AK/(T**0.5))*X-AK*BK/(T**0.5) 
	END FUNCTION RK
	
    REAL FUNCTION DRK(P,V,T,X) !R-K导函数
		IMPLICIT NONE
		REAL::P,V,T,X
		DRK=3*P*X**2-2*R*T*X-P*BK**2-BK*R*T+AK/(T**0.5)
	END FUNCTION DRK	
END MODULE NEWTON
	
	
PROGRAM MAIN
	USE IFQWIN !包含QuickWin和常用库
	implicit none
	integer(kind=4)::results !results保存调用函数之后的返回值
	logical(kind=4)::res	!res保存调用函数之后返回的LOGICAL型变量
	type(qwinfo)::winfo	!qwinfo型变量winfo用以储存窗口信息
	type(windowconfig)::wc	!windowconfig型变量用以储存窗口设置信息
	winfo.type = QWIN$MAX	!最大化窗口	
	res = GETWINDOWCONFIG(wc)
	results = SETWSIZEQQ (0, winfo)
	results = SETEXITQQ (QWIN$EXITPERSIST)
	!维持程序运行
	do while (.true.)
	end do
END PROGRAM MAIN
	
	
! 初始化界面尺寸和菜单
LOGICAL(4) FUNCTION INITIALSETTINGS( )
	USE IFQWIN
	implicit none
	integer( kind=4 ) :: results
	logical(kind=4)::res
	type (qwinfo) :: winfo
	external:: Dialoginput,InfoWindow
	winfo.w = 520	!设置窗口宽度
	winfo.h = 420	!设置窗口高度
	winfo.x=650	!设置窗口左上角初始坐标
	winfo.y=250
	winfo.type = QWIN$SET
	results = SetWSizeQQ(QWIN$FRAMEWINDOW, winfo)	!设置窗口大小
	res = appendmenuqq(1, $MENUENABLED, ' Start 'C,Dialoginput)	!设置菜单
	res = appendmenuqq(2, $MENUENABLED, ' Info...'C,InfoWindow)	!设置Info窗口

	INITIALSETTINGS= .true.
END FUNCTION INITIALSETTINGS
	
	
! 点击“开始”触发的回调子程序
subroutine Dialoginput(checked)
	USE IFWIN	!包含Win32 API例程
	USE IFLOGM	!包含对话框例程
	USE CONTROLS	!包含控件ID信息
	implicit none
	integer(kind=4)::results
	logical(kind=4)::retlog,checked
	type(dialog)::datadlg	!一级窗口为datadlg
	external:: dialogbasedApply	!声明外部例程

	! 调用dlgInit函数以初始化对话框
	retlog = DLGINIT(IDD_DIALOG1,datadlg)
	! 设置按钮“求解”的回调函数
	retlog = DlgSetSub(datadlg, IDOK, dialogbasedApply)	!IDOK为默认的确定按钮
														!IDCANCEL为默认的取消按钮
	! 激活对话框
	results = DLGMODAL (datadlg)
	! 释放占用资源
	call dlgUnInit(datadlg)
END subroutine Dialoginput
	
subroutine InfoWindow(checked)
	USE IFWIN	!包含Win32 API例程
	USE IFLOGM	!包含对话框例程
	USE CONTROLS	!包含控件ID信息
	implicit none
	integer(kind=4)::results
	logical(kind=4)::retlog,checked
	type(dialog)::dial	!一级窗口为datadlg

	! 调用dlgInit函数以初始化对话框
	retlog = DLGINIT(IDD_DIALOG2,dial)
	! 激活对话框
	results = DLGMODAL (dial)
	! 释放占用资源
	call dlgUnInit(dial)
END subroutine InfoWindow
	
	
! 按钮“求解”触发的回调子程序
subroutine dialogbasedApply( dlg, id, callbacktype )
	!DEC$ ATTRIBUTES DEFAULT :: dialogbasedApply
	USE IFLOGM
	USE CONTROLS
	USE NEWTON
	
	implicit none
	type(dialog) dlg	!二级子窗口为dlg
	logical*4 results
	integer(kind=4)::id, callbacktype,i
	real m1,m2,m3,prs,tmp,vol
	character(len=30)::str,str1,str2,str3
	
	! 提取编辑框中的数据
	results = DlgGet(dlg,IDC_EDIT1,str1)
	read(UNIT=str1,FMT=*,iostat=i)tmp
	results = DlgGet(dlg,IDC_EDIT2,str2)
	read(UNIT=str2,FMT=*,iostat=i)prs
	results = DlgGet(dlg,IDC_EDIT3,str3)
	read(UNIT=str3,FMT=*,iostat=i)vol
	prs=prs*1e6	!MPa->Pa
	
	!调用内核算法函数求解质量
	m2=vansolve(prs,vol,tmp)
	m3=rksolve(prs,vol,tmp)
	m1=ML
	
	!用户非法输入
	if(m1<=0.OR.m2<=0.OR.m3<=0)then
		m1=0
		m2=0
		m3=0
	end if
	
	!结果写入静态文本框	
	write(str,*)m1
	results = DlgSet(dlg,IDC_STATIC1,str)
	write(str,*)m2
	results = DlgSet(dlg,IDC_STATIC4,str)
	write(str,*)m3
	results = DlgSet(dlg,IDC_STATIC2,str)
	
END subroutine dialogbasedApply

2.8 生成exe

程序界面如下：

在这里插入图片描述

参考资料

[1] 周振红，徐进军等. Intel Visual Fortran 应用程序开发. 黄河水利出版社，2006.

[2] 汪华. Intel Visual Fortran 窗口程序设计实例. http://blog.renren.com/blog/254997247/860686026

写在最后

本来是专业基础课的课程作业，只需要编程计算出结果就可以了，当时灵光一闪想到模仿Refprop写一个带有UI的应用程序，于是就做下来了，感觉还挺有趣的。

吐槽一下，原来宇宙最强IDE–VS也有不少bug，还有CSDN什么时候才能支持Fortran语言的代码块😂

另外，Fortran并不擅长于应用程序设计，科学计算才是正道 [狗头] [狗头]

A Little Dinosaur
关注
\空气物性计算软件
10-11
该软件可用于理想气体和非理想气体物性参数的计算
空气物性计算软件
11-22
空气在不同压力和温度条件下的物性变化较大，能够快速计算会对您的工作提供便捷服务
天然气物性计算软件
04-28
天然气物性计算软件，自动计算生成很多参数
物性查询软件
07-07
物性查询软件
物性参数查询软件prosim
02-20
可用于查询多种材料的相关物性参数，包括固体材料及气体材料，对工程计算十分有用
IntelVisualFortran应用程序开发教程
书中详细介绍了 Visual Studio .NET 环境下 Fortran 应用程序的开发，包括 QuickWin、Windows 程序、动态链接库、多线程应用，以及与 Visual C++/Basic.NET 的混合编程。" 在COM编程中，实现接口是一个关键步骤，...
IntelVisualFortran应用程序开发：基于VisualStudio.NET的实践指南
此外，还介绍了针对Compaq Visual Fortran 6.6后续版本Intel Visual Fortran的使用，以及在Visual Studio .NET环境下开发Fortran应用程序，特别是Fortran QuickWin、Fortran Windows、动态链接库、多线程应用、...
Intel Visual Fortran 9.0回调教程：菜单开发与逻辑参数
此外，文档还提及了本书的背景，即针对Compaq Visual Fortran (CVF) 6.6后的Intel Visual Fortran 9.0版本，书中涵盖了Visual Studio.NET环境下的Fortran应用程序开发，包括动态链接库、多线程、对话框与控件、自动...
Intel Visual Fortran应用开发：对话框资源与光电编码器接口
书中可能还涵盖了其他相关主题，如Fortran QuickWin和Windows应用程序的开发，动态链接库的创建，多线程应用，以及如何使用对话框和控件、自动化服务器和ActiveX控件。此外，还有Intel Fortran与Visual C++/Basic...
IntelVisualFortran应用程序开发：节点定位算法与图形文本实践
书中的内容不仅限于基本的图形绘制，还涵盖了Fortran QuickWin和Fortran Windows应用程序的开发，以及动态链接库和多线程应用的实现。同时，作者还讨论了如何在Fortran中使用对话框和控件，以及如何集成自动化服务器...
Intel Fortran IAPWS-IF97水物性Fortran源程序
12-01
本文给出了基于IAPWS-IF97的水物性计算Fortran90语言程序代码，适用Compaq visual fortran和Intel Fortran 编译环境。目前网上大量水物性包在Intel Fortran调用都会报错，本程序最大优势是可在Intel Fortran 下实现物性调用。本版本基于网上版本修改，使用者若涉及版权问题，本人概不负责。
干空气热物性计算软件
01-14
该软件用于计算干空气热物性参数，对于船舶制冷，空压机内流体状态计算特别方便
工质物性查询软件
02-04
除水蒸气外的工程常用物质属性查询软件，空气等常用的气体介质性质查询软件，比较实用
氮气物性参数[归类].pdf
10-28
氮气物性参数[归类].pdf
Fortran PowerStation 4.0（可用于win764） 使用与编程
11-13
Fortran PowerStation 4.0（可用于win764） 使用与编程.pdf
fortran的gui开发 python_Python与FORTRAN
weixin_39636411的博客
11-25 467
易于学习Python和Fortran都是相对易于学习的语言。找到好的Python学习资料可能比好的Fortran学习资料要容易得多，因为Python的使用更加广泛，而且Fortran目前被认为是用于数值计算的“特殊”语言。我相信从Python到Fortran的过渡会更容易。Python是一种解释型语言，因此，使您的第一个程序运行所需的步骤数量（打开解释器，print("Hello, world!"...
fortran的gui开发 python_《Abaqus GUI程序开发指南（Python语言）》——2.2　Python与Abaqus...
weixin_39790877的博客
11-21 310
本节书摘来自异步社区《Abaqus GUI程序开发指南（Python语言）》一书中的第2章，第2.2节,作者： 贾利勇 , 富琛阳子 , 贺高 , 周正光 更多章节内容可以访问云栖社区“异步社区”公众号查看。2.2　Python与AbaqusAbaqus作为国际公认的大型通用非线性有限元软件之一，被广泛应用于机械制造、航空航天、汽车交通、船舶、土木工程、能源矿产、医疗卫生以及日用家电等诸多领域。随...
fortran绘图、界面功能简介（转载）
最新发布
weiyiwen1982的博客
01-13 1936
在上面的帖子里面已经给出例子，在QUICKWIN模式下可以利用原有的菜单，也可以自己订制菜单和对话框，如果程序仅仅需要一些简单的菜单和对话框的话，这个是不错的选择；Visual Fortran的QuickWin及Standard Graphics模式在简单的绘图使用上会比较方便，它的绘图函数功能比较多样，不过效率会比较差，而且不支持动画功能。对于习惯只用fortran编程，不会也没有时间学习VC， VB等进行界面变成的朋友，这里有一个十分好的用fortran编写界面的库XFT，其主页在。
Fortran 90学习之旅(一)Compaq Visual Fortran 6.5 的安装与第一个例子
a3830059的专栏
04-16 7121
高尔夫球模型的算法是用Fortan 90写的，以前从来没接触过！！！！ 从现在开始学习吧。 Fortran语言的最大特性是接近数学公式的自然描述，在计算机里具有很高的执行效率。 易学，语法严谨。 可以直接对矩阵和复数进行运算，这一点类似matlab。 自诞生以来广泛地应用于数值计算领域，积累了大量高效而可靠的源程序。 很多专用的大型数值运算计算机针对Fortran做了优化。 广泛地应用
评论 8
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值