土木工程软件开发

利用动态链接库方法的示例代码
Private Sub Command3_Click() （2 ）在VB下编写如下代码： Dim a(10) As Long Private Declare Function Circle_Area Lib "H:\forlib.dll" (r As Single) As Single Dim i As Long Private Declare Sub MAKELOWER Lib "forlib.dll" (ByVal s As String, ByVal i As Long) Dim total As Long Private Declare Function SUM Lib "forlib.dll" (r As Long) As Long For i = 0 ToCommand2_Click() 9 Private Private Sub Sub Command1_Click() a(i) s =As Rnd() *9+1 Dim String Dim r As Single Next i s = Text2.Text Dim a As Single Call MAKELOWER(s, Len(s)) r = Val(Text1.Text) Label4.Caption Text2.Text = s = Str(a(0)) a = Circle_Area(r) ForSub i = 1 To 9 End Label3 = Str(a) Label4.Caption = Label4.Caption + "+" + Str(a(i)) End Sub Next i total = SUM(a(0)) Label4.Caption = Label4.Caption + "=" + Str(total) End Sub
工程软件的开发策略
策略四：office软件包是国内办公系统的必备软件，且
其与VB留有接口，因此我们的结论四：选择该软件包 里的WORD和EXCEL作为计算书自动生成软件。 策略五：因VB中的ADO对象与ODBC配合可以访问并 操作许多类型的数据库，包括远程数据，而ACCESS 是大家熟知的数据库，因此我们有结论五：VB的ADO 对象加上ACCESS数据库作为工程数据库开发工具。 策略六：MCS51系列单片机采用INTEL8080汇编语言， 在国内应用非常广泛，所以结论六：采用INTEL8080 汇编语言VB相结合进行工程数据采集。

利用动态链接库方法
可根据需要将一组Fortran函数或子程序放在一
个程序中，创建成一个 DLL，它本身不能运行， 只能被VB调用。 具体实现步骤如下：建立一个New Project ， 定义其类型为Dynamic Link Library，然后将一 个只含有函数或子程序的Fortran程序加入到 Project中，编译通过即可生成DLL。 在Fortran程序中，必须将被调用的函数或子程 序予以声明，以标识这些函数或子程序在所生 成的DLL中是可用的
VB直接调用Fortran执行文件。
Private Sub Command6_Click() Dim sd As String sd = Shell("c:\uuu.exe", vbNormalFocus) End Sub
土木工程软件开发技术
1. 土木工程软件的系统功能框图
2. 土木工程软件开发的相关的技术
土木工程软件的系统功能框图
主模块
分析模块
分析模块
分析模块
工程数据库管理系统
出施工图出计算书Fra bibliotek数据采集
工程软件的功能
虽然土木工程的领域很多，但其专业软件涉及到 的内容主要在结构的分析计算、绘制施工图纸和效果 图、计算书和文档的输出、工程数据的管理和采集、 工程信息的网上交流等方面，因此土木工程软件系统 功能框图有其共同的特征 。 工程软件的开发从技术层面上讲，工程数据管理 系统的开发应是整个软件系统开发的中心，无论是分 析结果、计算参数、还是工程构造参数都必须经过数 据库管理系统的整合，然后传输到CAD软件、办公软 件和互联网上去。而系统的接口将是开发的重点，即 系统与数据库的接口、系统与CAD软件的接口、系统 与办公软件的接口和系统与Web的接口等。
利用动态链接库方法
DLL（动态链接库）是可被其他程序或DLL 调用的函数（过程）集合组成的可执行文 件模块。Windows本身提供了大量的应用程序 接口（API）函数，都是通过DLL机制来实现 的。DLL之所以在Windows中被广泛应用，是 因为它除了具有静态链接库的功能外，尚有 如多个应用程序共享一个DLL以节省内存和磁 盘空间等许多优点。
VB直接调用Fortran执行文件。
这是一种最简单明了的办法，不必修改原程序，接口


可通过读取数据文件方法处理，VB中直接调用shell函 数即可。 Shell(pathname[,windowstyle]) Shell 函数的语法含有下面这些命名参数： pathname 必要参数。Variant (String)，要执行的程序 名，以及任何必需的参数或命令行变量，可能还包括 目录或文件夹，以及驱动器。 Windowstyle 可选参数。Variant (Integer)，表示在程 序运行时窗口的样式。如果windowstyle省略，则程序 是以具有焦点的最小化窗口来执行的。
土木工程软件开发相关的技术
VB与FORTRAN的接口 利用VB开发工程数据库相关的概念和技术。 利用VB开发AUTOCAD软件的接口。
利用VB开发OFFICE软件的接口。
利用VB开发动态网页。
VB与FORTRAN的接口
主要方法 （1）利用动态链接库实现混合编程。 （2）VB直接调用Fortran执行文件。

工程软件的开发策略
策略一：土木工程软件的开发语言的选择因人而易，虽然传统的
开发语言如PASCAL、C、C++也能够开发工程软件，但土木类 软件项目很少涉及到直接访问硬件和操作系统的低级功能、而任 何软件项目都受到经费和开发进度的限制，所以选择一种能在较 少的时间内完成开发任务的语言非常重要，而VB能够充分满足要 求。结论一：选择VB作为主系统的开发语言。 策略二：因FORTRAN语言由于其丰富数据类型以及模块化语言 结构，非常适合数值分析类程序，加之国内拥有大量以该语言编 制的工程分析程序和标准算法库，所以资源丰富，如果解决与VB 的接口问题，以该语言作为分析模块的开发，有很大优势。结论 二：选择FORTRAN语言作为分析模块的开发语言。 策略三：虽然国内拥有大量的绘图软件，但AUTOCAD软件在国 内的普及率最高，且该软件具有丰富的二次开发接口和标准图形 文件格式，因此我们得到的第三个结论是。选择AUTOCAD软件 作为支撑软件，作为施工图纸的自动输出工具应该是
利用动态链接库方法的示例代码
（1）在Fortran 开发环境下编制可供VB调用的forlib.dll文件,包含二 个函数和一个子程序
subroutine integer function MakeLower(string) sum(a) real function circle_area(radius) !DEC$ DLLEXPORT :: MAKELOWER SUM !DEC$ATTRIBUTES ATTRIBUTES DLLEXPORT :: CIRCLE_AREA implicitATTRIBUTES none !DEC$ ALIAS : "Circle_Area" :: CIRCLE_AREA integer :: a(10) :: string character(len=*) implicit none integer :: i len, i, code real radius sum=0 len = len_trim(string) real, parameter :: PI = 3.14159 do i=1,10 i=1,len circle_area = radius*radius*PI sum=sum+a(i) code = ichar(string(i:i)) return end if ( code do >= ichar('a') .and. code <= ichar('z') ) then end function string(i:i) = char(code-32) return end if end end function do return end subroutine