exhfrm.frm

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

                 ListItemAddFun "Flat", RecordInit(111), "/", CStr(RecordSetup.CannulationRough)
             Else
                 ListItemAddFun "Flat", RecordInit(112), "/", CStr(RecordSetup.CannulationRough)
            End If
      Case "flow"
             InputComboTypeFlag = InputFlow
             If RecordSetup.MediumDirection = 0 Then
                ListItemAddFun "Flow", RecordInit(113), "/", CStr(RecordSetup.MediumDirection)
             ElseIf RecordSetup.MediumDirection = 1 Then
                ListItemAddFun "Flow", RecordInit(114), "/", CStr(RecordSetup.MediumDirection)
             Else
                 ListItemAddFun "Flow", RecordInit(115), "/", CStr(RecordSetup.MediumDirection)
            End If
     Case "experience"
        ListItemAddFun "Use", RecordInit(116), "/", CStr(RecordSetup.ExperienceConstant(0))
        ListItemAddFun "Lose", RecordInit(117), "/", CStr(RecordSetup.ExperienceConstant(1))
        ListItemAddFun "Protect", RecordInit(118), "/", CStr(RecordSetup.ExperienceConstant(2))
     Case "insertshape"
             InputComboTypeFlag = InputInsertShape
             If RecordSetup.InsertShape = 0 Then
                ListItemAddFun "InsertShape", RecordInit(193), "/", CStr(RecordSetup.InsertShape)
             ElseIf RecordSetup.InsertShape = 1 Then
                ListItemAddFun "InsertShape", RecordInit(194), "/", CStr(RecordSetup.InsertShape)
             Else
                 ListItemAddFun "InsertShape", RecordInit(195), "/", CStr(RecordSetup.InsertShape)
             End If
      Case "insertsize"
          If RecordSetup.InsertShape = 1 Then
           ListItemAddFun "InsertLength", RecordInit(196), "mm", CStr(RecordSetup.InsertSize(0))
           ListItemAddFun "InsertWidth", RecordInit(197), "mm", CStr(RecordSetup.InsertSize(1))
          ElseIf RecordSetup.InsertShape = 2 Then
           ListItemAddFun "InsertDiameter", RecordInit(198), "mm", CStr(RecordSetup.InsertSize(0))
          End If
      Case "material"
             InputComboTypeFlag = InputMaterial
             If RecordSetup.Material = 0 Then
                ListItemAddFun "Material", RecordInit(199), "/", CStr(RecordSetup.Material)
             ElseIf RecordSetup.Material = 1 Then
                ListItemAddFun "Material", RecordInit(200), "/", CStr(RecordSetup.Material)
             ElseIf RecordSetup.Material = 2 Then
                ListItemAddFun "Material", RecordInit(201), "/", CStr(RecordSetup.Material)
             Else
                ListItemAddFun "Material", RecordInit(202), "/", CStr(RecordSetup.Material)
             End If
       Case "insert"
             ExhCADAcs.Speak RecordInit(205)
       Case "settings"
              ExhCADAcs.Speak RecordInit(211)
                  
   End Select
End Sub
Private Sub ExhCADCompute_Select(ByVal Node As MSComctlLib.Node)
  ExhCADListView.ListItems.Clear
  Select Case Node.Key
         Case "air"
           ListItemAddFun "InAirT", RecordInit(125), "℃", CStr(RecordCompute.Air(0))
           ListItemAddFun "OutAirT", RecordInit(126), "℃", CStr(RecordCompute.Air(1))
           ListItemAddFun "AirQ", RecordInit(127), "m3/h", CStr(RecordCompute.Air(2))
           ListItemAddFun "AirV", RecordInit(128), "m/s", CStr(RecordCompute.Air(3))
        Case "gas"
           ListItemAddFun "InFumeT", RecordInit(129), "℃", CStr(RecordCompute.Fume(0))
           ListItemAddFun "FumeQ", RecordInit(130), "m3/h", CStr(RecordCompute.Fume(1))
           ListItemAddFun "FumeV", RecordInit(131), "m/s", CStr(RecordCompute.Fume(2))
        Case "pipe"
           ListItemAddFun "DiameterP", RecordInit(132), "mm", CStr(RecordCompute.Pipe(0))
           ListItemAddFun "ThickP", RecordInit(133), "mm", CStr(RecordCompute.Pipe(1))
           ListItemAddFun "HDistance", RecordInit(134), "mm", CStr(RecordCompute.Pipe(2))
           ListItemAddFun "VDistance", RecordInit(135), "mm", CStr(RecordCompute.Pipe(3))
           ListItemAddFun "NRoute", RecordInit(136), "mm", CStr(RecordCompute.Pipe(4))
        Case "input"
           ExhCADAcs.Speak RecordInit(212)
 End Select
  
End Sub
Private Sub ExhCADDraw_Select(ByVal Node As MSComctlLib.Node)
ExhCADListView.ListItems.Clear
Select Case Node.Key
       Case "heater"
          ListItemAddFun "row", RecordInit(137), "/", Format(RecordDraw.Heater(0), "#")
          ListItemAddFun "col", RecordInit(138), "/", Format(RecordDraw.Heater(1), "#")
          ListItemAddFun "lenghthH", RecordInit(139), "mm", Format(RecordDraw.Heater(2), "#.##")
       Case "performer"
          ListItemAddFun "heatQ", RecordInit(140), "Kj", Format(RecordDraw.Performer(0), "#.##")
          ListItemAddFun "heatS", RecordInit(141), "m2", Format(RecordDraw.Performer(1), "#.##")
          ListItemAddFun "heatC", RecordInit(142), "W/m2*℃", Format(RecordDraw.Performer(2), "#.##")
          ListItemAddFun "Dt", RecordInit(143), "℃", Format(RecordDraw.Performer(3), "#.##")
       Case "assistance"
          ListItemAddFun "airF", RecordInit(144), "Pa", Format(RecordDraw.Assistance(0), "#.##")
          ListItemAddFun "fumeF", RecordInit(145), "Pa", Format(RecordDraw.Assistance(1), "#.##")
       Case "other"
          ListItemAddFun "outfumeT", RecordInit(146), "℃", Format(RecordDraw.Other(0), "#")
          ListItemAddFun "inwallT", RecordInit(147), "℃", Format(RecordDraw.Other(1), "#")
          ListItemAddFun "outwallT", RecordInit(148), "℃", Format(RecordDraw.Other(2), "#")
          ListItemAddFun "TotalWeight", RecordInit(204), "kg", Format(RecordDraw.Other(3), "#.##")
        Case "output"
          ExhCADAcs.Speak RecordInit(213)
End Select
End Sub


   Private Sub BGTim_Timer()
   Dim MCIStatusLen As Integer
    Dim MCIStatus As String
    
        MCIStatusLen = 15
        MCIStatus = String(MCIStatusLen + 1, " ")
        mciSendString "STATUS BackgroundMusic MODE", MCIStatus, MCIStatusLen, 0
        If UCase(Left$(MCIStatus, 7)) = "STOPPED" Then
            mciSendString "PLAY BackgroundMusic FROM 0", "", 0, 0
        End If
  
End Sub









Private Sub ExhCADAgent_Click(ByVal CharacterID As String, ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Integer, ByVal y As Integer)
   ExhCADAcs.Speak RecordInit(210)
End Sub

Private Sub ExhCADListView_ItemClick(ByVal item As MSComctlLib.ListItem)

Select Case ExhCADDesign
       Case 1:
           ExhCADSetup_Modify item
       Case 2:
           ExhCADCompute_Modify item
       Case 3:
End Select
End Sub
Private Sub ExhCADMenuImg_Click()
    Dim pos As POINTAPI
    ExhCADMenu.Init "ExhCAD", ExhCADImgLst
    ExhCADMenu.AddItem 1, RecordInit(20), False, False
    ExhCADMenu.AddItem 0, RecordInit(21), False, False
    ExhCADMenu.AddItem 2, RecordInit(22), False, False
    ExhCADMenu.AddItem 0, "", False, True
    ExhCADMenu.AddItem 3, RecordInit(23), False, False
    ExhCADMenu.AddItem 0, RecordInit(24), False, False
    ExhCADMenu.AddItem 0, RecordInit(25), False, False
    ExhCADMenu.AddItem 0, "", False, True
    ExhCADMenu.AddItem 4, RecordInit(26), False, False
    ExhCADMenu.AddItem 0, RecordInit(27), False, False
    ExhCADMenu.AddItem 5, RecordInit(28), False, False
    GetCursorPos pos
    ExhCADMenu.ShowMenu pos.x, pos.y
End Sub
Private Sub ExhCADTreeView_NodeClick(ByVal Node As MSComctlLib.Node)
Select Case ExhCADDesign
       Case 1:
         
           ExhCADSetup_Select Node
       Case 2:
          
           ExhCADCompute_Select Node
       Case 3:
           
           ExhCADDraw_Select Node
End Select
End Sub

Private Sub Form_Load()
 Dim rgn1, rgn2 As Long
 Dim Ma As Dat
 Dim ExtName As String
 Dim szfilename As String

      ExhFrmInit
     TipFlash.Movie = RecordInit(153)
     Open App.Path + ExhCADFormFile For Random As #1 Len = Len(Ma)
      Do While Not EOF(1)
        n = n + 1
        Get #1, n, Ma
        If rgn1 = 0 Then rgn1 = CreateRectRgn(Ma.sx, Ma.sy, Ma.ex, Ma.ey)
        If rgn1 <> 0 Then
             rgn2 = CreateRectRgn(Ma.sx, Ma.sy, Ma.ex, Ma.ey)
             CombineRgn rgn1, rgn1, rgn2, 2
             DeleteObject rgn2
        End If
      Loop
      Close #1
      SetWindowRgn hwnd, rgn1, True
      DeleteObject rgn1
      
     mciSendString "OPEN " & App.Path & BGSoundFile & " TYPE SEQUENCER ALIAS BackgroundMusic", _
                     "", 0, 0
      
    If Len(arg) <> 0 Then
          ExtName = Mid(arg, Len(arg) - 1, 2)
          If LCase(ExtName) = "hp" Then
             WritePrivateProfileString "Recent Files", "1", CStr(arg), App.Path + ExhCADIniFile
             ExhCADSetup_Read CStr(arg)
             ExhCADSetup_Init ExhFrm
          ElseIf LCase(ExtName) = "hi" Then
             WritePrivateProfileString "Recent Files", "2", CStr(arg), App.Path + ExhCADIniFile
             ExhCADCompute_Read CStr(arg)
             ExhCADCompute_Init ExhFrm
          ElseIf LCase(ExtName) = "ho" Then
             WritePrivateProfileString "Recent Files", "3", CStr(arg), App.Path + ExhCADIniFile
             ExhCADDraw_Read CStr(arg)
             ExhCADDraw_Init ExhFrm
          Else
             MsgBox RecordInit(176), vbOKOnly, RecordInit(8)
             End
          End If
      Else
         szfilename = Space(254)
         GetPrivateProfileString "Recent Files", "1", "", szfilename, 254, App.Path + ExhCADIniFile
         szfilename = Left(szfilename, Len(Trim(szfilename)) - 1)
         If (Len(szfilename) <> 0) Then ExhCADSetup_Read szfilename
         ExhCADSetup_Init ExhFrm
      End If
      
     
      ExhCADAcs.Show
      ExhCADAcs.Play RecordInit(209)
      ExhCADAcs.Speak RecordInit(210)
      ExhCADAcs.Play "READ"
      
     

End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
   Me.Move Me.Left - mX + x, Me.Top - mY + y
End If

End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If Button = 1 Then
   mX = x
   mY = y
End If
End Sub



Private Sub Form_Unload(Cancel As Integer)
mciSendString "CLOSE BackgroundMusic", "", 0, 0
End Sub

Private Sub InputCombo_LostFocus()
    InputCombo.Visible = False
End Sub

Private Sub InputText_Change()
itemx.ListSubItems(2).Text = InputText.Text
InputChange itemx.Key, Me

End Sub
Private Sub InputCombo_Click()
itemx.Text = InputCombo.Text
itemx.ListSubItems(2).Text = InputCombo.ListIndex
Select Case InputComboTypeFlag
       Case InputArrange
           RecordSetup.CannulationArrange = InputCombo.ListIndex
       Case InputFlat
           RecordSetup.CannulationRough = InputCombo.ListIndex
       Case InputFlow
           RecordSetup.MediumDirection = InputCombo.ListIndex
       Case InputInsertShape
           RecordSetup.InsertShape = InputCombo.ListIndex
       Case InputMaterial
           RecordSetup.Material = InputCombo.ListIndex
End Select
End Sub
Private Sub InputText_LostFocus()
   InputText.Visible = False
End Sub

Private Sub OvalCmdLast_Click()
ExhCADDesign = ExhCADDesign - 1
If ExhCADDesign < 0 Then ExhCADDesign = 1
Select Case ExhCADDesign
       Case 1:
            
            ExhCADSetup_Init ExhFrm
       Case 2:
            ExhCADCompute_Init ExhFrm
       Case 3:
            
            ExhCADDraw_Init ExhFrm
End Select
End Sub

Private Sub OvalCmdNext_Click()
Dim szfilename As String
ExhCADDesign = ExhCADDesign + 1
If ExhCADDesign > 4 Then ExhCADDesign = 3
Select Case ExhCADDesign
       Case 1:
            szfilename = Space(254)
            GetPrivateProfileString "Recent Files", "1", "", szfilename, 254, App.Path + ExhCADIniFile
            szfilename = Left(szfilename, Len(Trim(szfilename)) - 1)
            If (Len(szfilename) <> 0) Then ExhCADSetup_Read szfilename
            ExhCADSetup_Init ExhFrm
       Case 2:
      
            szfilename = Space(254)
            GetPrivateProfileString "Recent Files", "2", "", szfilename, 254, App.Path + ExhCADIniFile
            szfilename = Left(szfilename, Len(Trim(szfilename)) - 1)
            If (Len(szfilename) <> 0) Then ExhCADCompute_Read szfilename
            ExhCADAcs.Speak RecordInit(214)
            ExhCADCompute_Init ExhFrm
           
       Case 3:
            ExhCADDraw_Init ExhFrm
            ExhCAD_Compute
            szfilename = Space(254)
            GetPrivateProfileString "Recent Files", "3", "", szfilename, 254, App.Path + ExhCADIniFile
            szfilename = Left(szfilename, Len(Trim(szfilename)) - 1)
            If (Len(szfilename) <> 0) Then ExhCADDraw_Write szfilename
        Case 4:
            
            ExhCAD_Draw
End Select

End Sub