exhfun.bas

《管状换热器计算机辅助设计系统ExhCAD绘图系统(版本:1.01a Final)》为自由软件

Attribute VB_Name = "ExhFun"
'**********************************************************
'    File Name      :     exhfun.bas
'    Author         :     endlessfree
'    Last updated   :     10.04.2002
'    Compiler       :     Visucal Basic 6.0
'    Description    :     ExhCAD0.99.1的全局函数
'***********************************************************
'     全局函数列表            *            功能描述
'***********************************************************
'ExcelData_Init（）          *工作表数据初始化
'ExhCAD_Init（）             *ExhCAD0.99.0.1数据初始化
'ExhCADData_Read(）          *读ExhCAD0.99.0.1数据
'ExhCADSetup_InitExhFrm）    *参数数据初始化
'ExhCADSetup_Read(String)    *读参数数据
'ExhCADSetup_Write(String)   *写参数数据
'ExhCADCompute_Init(ExhFrm)  *输入数据初始化
'ExhCADCompute_Read(String)  *读输入数据
'ExhCADCompute_Write(String) *写输入数据
'ExhCADDraw_Init(ExhFrm)     *输出数据初始化
'ExhCADDraw_Read(String)     *读输出数据
'ExhCADDraw_Write(String)    *写输出数据
'ExhCADCompute_Design()      *计算
'HandleClick(String,         *菜单处理
'            Integer,        *
'            String)         *
'RegFileType(String,         *注册文件类型
'            String,         *
'            String,         *
'            String)Boolean  *
'MakeExcelFile(String)       *生成工作表
'IsAutoCADR14()Boolean       *检测AutoCAD
'DrawDataInit                *绘图数据初始化
'**********************************************************

Public Sub ExcelData_Init()

ExhCADTitles(0) = RecordInit(76): ExhCADTitles(1) = RecordInit(87)
ExhCADTitles(2) = RecordInit(91)

ExhCADFields(0) = RecordInit(102): ExhCADFields(1) = RecordInit(103)
ExhCADFields(2) = RecordInit(104)

SetupValues(0, 0) = RecordInit(105): SetupValues(0, 1) = "%"
SetupValues(0, 2) = CStr(RecordSetup.FumeElement(0))
SetupValues(1, 0) = RecordInit(106): SetupValues(1, 1) = "%"
SetupValues(1, 2) = CStr(RecordSetup.FumeElement(1))
SetupValues(2, 0) = RecordInit(107): SetupValues(2, 1) = "%"
SetupValues(2, 2) = CStr(RecordSetup.FumeElement(2))
SetupValues(3, 0) = RecordInit(80): SetupValues(3, 1) = "/"
SetupValues(3, 2) = RecordInit(108 + RecordSetup.CannulationArrange)
SetupValues(4, 0) = RecordInit(81): SetupValues(4, 1) = "/"
SetupValues(4, 2) = RecordInit(110 + RecordSetup.CannulationRough)
SetupValues(5, 0) = RecordInit(82): SetupValues(5, 1) = "/"
SetupValues(5, 2) = RecordInit(113 + RecordSetup.MediumDirection)
SetupValues(6, 0) = RecordInit(116): SetupValues(6, 1) = "/"
SetupValues(6, 2) = CStr(RecordSetup.ExperienceConstant(0))
SetupValues(7, 0) = RecordInit(117): SetupValues(7, 1) = "/"
SetupValues(7, 2) = CStr(RecordSetup.ExperienceConstant(1))
SetupValues(8, 0) = RecordInit(118): SetupValues(8, 1) = "/"
SetupValues(8, 2) = CStr(RecordSetup.ExperienceConstant(2))

SetupValues(9, 0) = RecordInit(180): SetupValues(9, 1) = "/"
SetupValues(9, 2) = RecordInit(193 + RecordSetup.InsertShape)
SetupValues(10, 0) = RecordInit(182): SetupValues(10, 1) = "/"
SetupValues(10, 2) = RecordInit(199 + RecordSetup.Material)




ComputeValues(0, 0) = RecordInit(125): ComputeValues(0, 1) = "℃"
ComputeValues(0, 2) = CStr(RecordCompute.Air(0))
ComputeValues(1, 0) = RecordInit(126): ComputeValues(1, 1) = "m3/h"
ComputeValues(1, 2) = CStr(RecordCompute.Air(1))
ComputeValues(2, 0) = RecordInit(127): ComputeValues(0, 1) = "m/s"
ComputeValues(2, 2) = CStr(RecordCompute.Air(2))
ComputeValues(3, 0) = RecordInit(128): ComputeValues(3, 1) = "℃"
ComputeValues(3, 2) = CStr(RecordCompute.Air(3))
ComputeValues(4, 0) = RecordInit(129): ComputeValues(4, 1) = "m3/h"
ComputeValues(4, 2) = CStr(RecordCompute.Fume(0))
ComputeValues(5, 0) = RecordInit(130): ComputeValues(5, 1) = "m/s"
ComputeValues(5, 2) = CStr(RecordCompute.Fume(1))
ComputeValues(6, 0) = RecordInit(131): ComputeValues(6, 1) = "℃"
ComputeValues(6, 2) = CStr(RecordCompute.Fume(2))
ComputeValues(7, 0) = RecordInit(132): ComputeValues(7, 1) = "mm"
ComputeValues(7, 2) = CStr(RecordCompute.Pipe(0))
ComputeValues(8, 0) = RecordInit(133): ComputeValues(8, 1) = "mm"
ComputeValues(8, 2) = CStr(RecordCompute.Pipe(1))
ComputeValues(9, 0) = RecordInit(134): ComputeValues(9, 1) = "mm"
ComputeValues(9, 2) = CStr(RecordCompute.Pipe(2))
ComputeValues(10, 0) = RecordInit(135): ComputeValues(10, 1) = "mm"
ComputeValues(10, 2) = CStr(RecordCompute.Pipe(3))
ComputeValues(11, 0) = RecordInit(136): ComputeValues(11, 1) = "mm"
ComputeValues(11, 2) = CStr(RecordCompute.Pipe(4))

DrawValues(0, 0) = RecordInit(137): DrawValues(0, 1) = "/"
DrawValues(0, 2) = CStr(RecordDraw.Heater(0))
DrawValues(1, 0) = RecordInit(138): DrawValues(1, 1) = "/"
DrawValues(1, 2) = CStr(RecordDraw.Heater(1))
DrawValues(2, 0) = RecordInit(139): DrawValues(2, 1) = "mm"
DrawValues(2, 2) = CStr(RecordDraw.Heater(2))
DrawValues(3, 0) = RecordInit(140): DrawValues(3, 1) = "kj"
DrawValues(3, 2) = CStr(RecordDraw.Performer(0))
DrawValues(4, 0) = RecordInit(141): DrawValues(4, 1) = "m2"
DrawValues(4, 2) = CStr(RecordDraw.Performer(1))
DrawValues(5, 0) = RecordInit(142): DrawValues(5, 1) = "W/m2*℃"
DrawValues(5, 2) = CStr(RecordDraw.Performer(2))
DrawValues(6, 0) = RecordInit(143): DrawValues(6, 1) = "'C"
DrawValues(6, 2) = CStr(RecordDraw.Performer(3))
DrawValues(7, 0) = RecordInit(144): DrawValues(7, 1) = "pa"
DrawValues(7, 2) = CStr(RecordDraw.Assistance(0))
DrawValues(8, 0) = RecordInit(145): DrawValues(8, 1) = "pa"
DrawValues(8, 2) = CStr(RecordDraw.Assistance(1))
DrawValues(9, 0) = RecordInit(146): DrawValues(9, 1) = "℃"
DrawValues(9, 2) = CStr(RecordDraw.Other(0))
DrawValues(10, 0) = RecordInit(147): DrawValues(10, 1) = "℃"
DrawValues(10, 2) = CStr(RecordDraw.Other(1))
DrawValues(11, 0) = RecordInit(148): DrawValues(11, 1) = "℃"
DrawValues(11, 2) = CStr(RecordDraw.Other(2))
DrawValues(12, 0) = RecordInit(204): DrawValues(12, 1) = "℃"
DrawValues(12, 2) = CStr(RecordDraw.Other(3))

End Sub
Public Sub ExhCAD_Init()

 Dim I As Integer
 Dim datanumber As Long
 
 WritePrivateProfileString "Data Files", "1", App.Path + AirPhysicsFile, App.Path + ExhCADIniFile
 WritePrivateProfileString "Data Files", "2", App.Path + FumePhysicsFile, App.Path + ExhCADIniFile
 WritePrivateProfileString "Data Files", "3", App.Path + PipeLenFile, App.Path + ExhCADIniFile
 WritePrivateProfileString "Data Files", "4", App.Path + PipeRowFile, App.Path + ExhCADIniFile
 WritePrivateProfileString "Arx Files", "1", App.Path + ExhCADArxFile, App.Path + ExhCADIniFile
 WritePrivateProfileString "Arx Files", "2", App.Path + TechDemandArxFile, App.Path + ExhCADIniFile

 WritePrivateProfileString "ExhCAD Initialize", "data0", App.Path + ExhCADSettingsIco, App.Path + ExhCADFaceFile
 WritePrivateProfileString "ExhCAD Initialize", "data1", App.Path + ExhCADComputeIco, App.Path + ExhCADFaceFile
 WritePrivateProfileString "ExhCAD Initialize", "data2", App.Path + ExhCADDrawIco, App.Path + ExhCADFaceFile
 WritePrivateProfileString "ExhCAD Initialize", "data3", App.Path + ExhCADExhcadJpg, App.Path + ExhCADFaceFile
 WritePrivateProfileString "ExhCAD Initialize", "data19", App.Path + ExhCADExhcadIco, App.Path + ExhCADFaceFile
 WritePrivateProfileString "ExhCAD Initialize", "data33", App.Path + ExhCADLastIco, App.Path + ExhCADFaceFile
 WritePrivateProfileString "ExhCAD Initialize", "data39", App.Path + ExhCADNextIco, App.Path + ExhCADFaceFile
 WritePrivateProfileString "ExhCAD Initialize", "data66", App.Path + ExhCADPerferenceIco, App.Path + ExhCADFaceFile
 WritePrivateProfileString "ExhCAD Initialize", "data67", App.Path + ExhCADDesignIco, App.Path + ExhCADFaceFile
 WritePrivateProfileString "ExhCAD Initialize", "data68", App.Path + ExhCADOpenIco, App.Path + ExhCADFaceFile
 WritePrivateProfileString "ExhCAD Initialize", "data69", App.Path + ExhCADHelpIco, App.Path + ExhCADFaceFile
 WritePrivateProfileString "ExhCAD Initialize", "data70", App.Path + ExhCADExitIco, App.Path + ExhCADFaceFile
 WritePrivateProfileString "ExhCAD Initialize", "data159", App.Path + ExhCADLoadJpg, App.Path + ExhCADFaceFile
 WritePrivateProfileString "ExhCAD Initialize", "data164", App.Path + ExhCADBltJpg, App.Path + ExhCADFaceFile
 WritePrivateProfileString "ExhCAD Initialize", "data153", App.Path + ExhCADExhcadSwf, App.Path + ExhCADFaceFile
 
 WritePrivateProfileString "Recent Files", "1", App.Path + ExhCADPerferenceFile, App.Path + ExhCADIniFile
 WritePrivateProfileString "Recent Files", "2", App.Path + ExhCADInputFile, App.Path + ExhCADIniFile
 WritePrivateProfileString "Recent Files", "3", App.Path + ExhCADOutputFile, App.Path + ExhCADIniFile
   datanumber = GetPrivateProfileInt("Number", "datanumber", 1, App.Path + ExhCADFaceFile)
   ReDim RecordInit(datanumber)
   For I = 0 To datanumber
       RecordInit(I) = Space(254)
       GetPrivateProfileString "ExhCAD Initialize", "data" + CStr(I), "", RecordInit(I), 254, App.Path + ExhCADFaceFile
       RecordInit(I) = Left(RecordInit(I), Len(Trim(RecordInit(I))) - 1)
   Next I
 RegFileType ".hp", "ExhCAD.hp", "ExhCAD.hp", RecordInit(0)
 RegFileType ".hi", "ExhCAD.hi", "ExhCAD.hi", RecordInit(1)
 RegFileType ".ho", "ExhCAD.ho", "ExhCAD.ho", RecordInit(2)
 Set PictureFile(PictureExhCADIco) = LoadPicture(RecordInit(19))
 Set PictureFile(PictureLastIco) = LoadPicture(RecordInit(33))
 Set PictureFile(PictureNextIco) = LoadPicture(RecordInit(39))
 Set PictureFile(PictureExhcadJpg) = LoadPicture(RecordInit(3))
 Set PictureFile(PicturePerferenceIco) = LoadPicture(RecordInit(66))
 Set PictureFile(PictureDesignIco) = LoadPicture(RecordInit(67))
 Set PictureFile(PictureOpenIco) = LoadPicture(RecordInit(68))
 Set PictureFile(PictureHelpIco) = LoadPicture(RecordInit(69))
 Set PictureFile(PictureExitIco) = LoadPicture(RecordInit(70))
 Set PictureFile(PictureBltJpg) = LoadPicture(RecordInit(164))
 Set PictureFile(PictureLoadJpg) = LoadPicture(RecordInit(159))
 Set LoadFrm.Picture = PictureFile(PictureLoadJpg)
 With LoadFrm
          .Width = Val(RecordInit(177))
          .Height = Val(RecordInit(178))
          
End With
'CopyrxFileToAutoCADR14
End Sub
Public Sub ExhCADData_Read()

Dim szfilename(3) As String
Dim lastrec(3) As Integer
Dim I As Integer
         szfilename(0) = Space(254)
         szfilename(1) = Space(254)
         szfilename(2) = Space(254)
         szfilename(3) = Space(254)
         GetPrivateProfileString "Data Files", "1", "", szfilename(0), 254, App.Path + ExhCADIniFile
         GetPrivateProfileString "Data Files", "2", "", szfilename(1), 254, App.Path + ExhCADIniFile
         GetPrivateProfileString "Data Files", "3", "", szfilename(2), 254, App.Path + ExhCADIniFile
         GetPrivateProfileString "Data Files", "4", "", szfilename(3), 254, App.Path + ExhCADIniFile
         szfilename(0) = Left(szfilename(0), Len(Trim(szfilename(0))) - 1)
         szfilename(1) = Left(szfilename(1), Len(Trim(szfilename(1))) - 1)
         szfilename(2) = Left(szfilename(2), Len(Trim(szfilename(2))) - 1)
         szfilename(3) = Left(szfilename(3), Len(Trim(szfilename(3))) - 1)
         Open szfilename(0) For Random As #1 Len = Len(RecordData.AirPhysics(0))
         Open szfilename(1) For Random As #2 Len = Len(RecordData.FumePhysics(0))
         Open szfilename(2) For Random As #3 Len = Len(RecordData.LenModify(0))
         Open szfilename(3) For Random As #4 Len = Len(RecordData.RowModify(0))
         lastrec(0) = LOF(1) / Len(RecordData.AirPhysics(0))
         lastrec(1) = LOF(2) / Len(RecordData.FumePhysics(0))
         lastrec(2) = LOF(3) / Len(RecordData.LenModify(0))
         lastrec(3) = LOF(4) / Len(RecordData.RowModify(0))
         For I = 1 To lastrec(0)
            Get #1, I, RecordData.AirPhysics(I - 1)
         Next I
          For I = 1 To lastrec(1)
 
            Get #2, I, RecordData.FumePhysics(I - 1)
         Next I
          For I = 1 To lastrec(2)
           
            Get #3, I, RecordData.LenModify(I - 1)
         Next I
          For I = 1 To lastrec(3)
           
            Get #4, I, RecordData.RowModify(I - 1)
         Next I
         Close #1
         Close #2
         Close #3
         Close #4
End Sub

Public Sub ExhCADSetup_Read(sfilename As String)
  ExhCADDesign = 1
  Open sfilename For Random As #1 Len = Len(RecordSetup)
  Get #1, ExhCADDesign, RecordSetup
  Close #1
End Sub
Public Sub ExhCADSetup_Write(sfilename As String)
  ExhCADDesign = 1
  Open sfilename For Random As #1 Len = Len(RecordSetup)
  Put #1, ExhCADDesign, RecordSetup
  Close #1
End Sub
Public Sub ExhCADCompute_Read(sfilename As String)
  ExhCADDesign = 2
  Open sfilename For Random As #1 Len = Len(RecordCompute)
  Get #1, ExhCADDesign, RecordCompute
  Close #1
End Sub
Public Sub ExhCADCompute_Write(sfilename As String)
  ExhCADDesign = 2
  Open sfilename For Random As #1 Len = Len(RecordCompute)
  Put #1, ExhCADDesign, RecordCompute
  Close #1
End Sub
Public Sub ExhCADDraw_Read(sfilename As String)
  ExhCADDesign = 3
  Open sfilename For Random As #1 Len = Len(RecordDraw)
  Get #1, ExhCADDesign, RecordDraw
  Close #1
End Sub
Public Sub ExhCADDraw_Write(sfilename As String)
  ExhCADDesign = 3
  Open sfilename For Random As #1 Len = Len(RecordDraw)
  Put #1, ExhCADDesign, RecordDraw
  Close #1
End Sub
Public Sub ExhCADSetup_Init(frm As ExhFrm)
      ExhCADDesign = 1
      frm.ExhCADTreeView.Nodes.Clear
      frm.ExhCADListView.ListItems.Clear
      frm.ExhCADTreeView.Nodes.Add , , "settings", RecordInit(76)
    
      frm.ExhCADTreeView.Nodes.Add 1, tvwChild, "fume", RecordInit(79)
      frm.ExhCADTreeView.Nodes.Add 1, tvwChild, "arrage", RecordInit(80)
      frm.ExhCADTreeView.Nodes.Add 1, tvwChild, "flat", RecordInit(81)
      frm.ExhCADTreeView.Nodes.Add 1, tvwChild, "flow", RecordInit(82)
      frm.ExhCADTreeView.Nodes.Add 1, tvwChild, "experience", RecordInit(83)
      frm.ExhCADTreeView.Nodes.Add 1, tvwChild, "insert", RecordInit(179)
      frm.ExhCADTreeView.Nodes.Add "insert", tvwChild, "insertshape", RecordInit(180)
      frm.ExhCADTreeView.Nodes.Add "insert", tvwChild, "insertsize", RecordInit(181)
      frm.ExhCADTreeView.Nodes.Add "settings", tvwChild, "material", RecordInit(182)
 
         

End Sub
Public Sub ExhCADCompute_Init(frm As ExhFrm)
      frm.ExhCADTreeView.Nodes.Clear
      frm.ExhCADListView.ListItems.Clear
      ExhCADDesign = 2
      frm.ExhCADTreeView.Nodes.Add , , "input", RecordInit(87)
      frm.ExhCADTreeView.Nodes.Add 1, tvwChild, "air", RecordInit(88)
      frm.ExhCADTreeView.Nodes.Add 1, tvwChild, "gas", RecordInit(89)
      frm.ExhCADTreeView.Nodes.Add 1, tvwChild, "pipe", RecordInit(90)
     

End Sub
Public Sub ExhCADDraw_Init(frm As ExhFrm)
      frm.ExhCADTreeView.Nodes.Clear
      frm.ExhCADListView.ListItems.Clear
      
      ExhCADDesign = 3
      frm.ExhCADTreeView.Nodes.Add , , "output", RecordInit(91)
      frm.ExhCADTreeView.Nodes.Add 1, tvwChild, "heater", RecordInit(92)
      frm.ExhCADTreeView.Nodes.Add 1, tvwChild, "performer", RecordInit(93)