input.frm

较好的工程计算程序功能较强 计算桥梁的跨度等

VERSION 5.00
Begin VB.Form frmInput 
   Caption         =   "输入参数"
   ClientHeight    =   4920
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   6270
   LinkTopic       =   "Form1"
   ScaleHeight     =   4920
   ScaleWidth      =   6270
   StartUpPosition =   3  'Windows Default
   Begin VB.ListBox ListA 
      Appearance      =   0  'Flat
      Height          =   2955
      Left            =   4980
      TabIndex        =   17
      Top             =   1620
      Width           =   975
   End
   Begin VB.ListBox ListQ 
      Appearance      =   0  'Flat
      Height          =   2955
      Left            =   4044
      TabIndex        =   16
      Top             =   1620
      Width           =   975
   End
   Begin VB.ListBox ListC 
      Appearance      =   0  'Flat
      Height          =   2955
      Left            =   3108
      TabIndex        =   15
      Top             =   1620
      Width           =   975
   End
   Begin VB.ListBox ListL 
      Appearance      =   0  'Flat
      Height          =   2955
      Left            =   2172
      TabIndex        =   14
      Top             =   1620
      Width           =   975
   End
   Begin VB.ListBox ListEI 
      Appearance      =   0  'Flat
      Height          =   2955
      Left            =   1236
      TabIndex        =   13
      Top             =   1620
      Width           =   975
   End
   Begin VB.ListBox ListI 
      Appearance      =   0  'Flat
      Height          =   2955
      Left            =   300
      TabIndex        =   11
      Top             =   1620
      Width           =   975
   End
   Begin VB.CommandButton Command1 
      Caption         =   "计算"
      Height          =   435
      Left            =   4800
      TabIndex        =   10
      Top             =   720
      Width           =   735
   End
   Begin VB.ComboBox cmbN 
      Height          =   300
      Left            =   660
      TabIndex        =   9
      Text            =   "Combo1"
      Top             =   180
      Width           =   555
   End
   Begin VB.CommandButton cmdPreview 
      Caption         =   "预览"
      Height          =   435
      Left            =   2400
      TabIndex        =   8
      Top             =   720
      Width           =   915
   End
   Begin VB.ComboBox cmbFlagN 
      Height          =   300
      ItemData        =   "Input.frx":0000
      Left            =   5100
      List            =   "Input.frx":000A
      TabIndex        =   6
      Text            =   "Combo1"
      Top             =   180
      Width           =   675
   End
   Begin VB.ComboBox cmbFlag0 
      Height          =   300
      ItemData        =   "Input.frx":0016
      Left            =   3000
      List            =   "Input.frx":0020
      TabIndex        =   5
      Text            =   "Combo1"
      Top             =   180
      Width           =   675
   End
   Begin VB.CommandButton Command3 
      Caption         =   "<上一步"
      Height          =   435
      Left            =   3540
      TabIndex        =   1
      Top             =   720
      Width           =   975
   End
   Begin VB.CommandButton Command2 
      Caption         =   "定义"
      Height          =   435
      Left            =   480
      TabIndex        =   0
      Top             =   720
      Width           =   735
   End
   Begin VB.Label LabelL 
      Caption         =   "跨编号      EI(EI0)     L(m)    荷载类型   集度q     位置a(/L)"
      Height          =   195
      Left            =   300
      TabIndex        =   12
      Top             =   1320
      Width           =   5655
   End
   Begin VB.Label Label7 
      Caption         =   "右端固结"
      Height          =   255
      Left            =   4020
      TabIndex        =   7
      Top             =   240
      Width           =   795
   End
   Begin VB.Label Label9 
      Caption         =   "左端固结"
      Height          =   195
      Left            =   2040
      TabIndex        =   4
      Top             =   240
      Width           =   795
   End
   Begin VB.Label Label2 
      Caption         =   "跨"
      Height          =   195
      Left            =   1260
      TabIndex        =   3
      Top             =   180
      Width           =   195
   End
   Begin VB.Label Label1 
      Caption         =   "第"
      Height          =   195
      Left            =   420
      TabIndex        =   2
      Top             =   180
      Width           =   195
   End
End
Attribute VB_Name = "frmInput"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 





Private Sub cmbN_Change()

End Sub

Private Sub cmdPreview_Click()
  For i = 1 To N
   If EI(i) = 0 Then
     Call MsgBox("第" + Str(i) + "跨未定义!", vbExclamation + vbOKOnly, "错误")
     Exit Sub
   End If
  Next
  Select Case cmbFlag0.ListIndex
   Case 0
    Flag0 = True
   Case 1
    Flag0 = False
  End Select
  Select Case cmbFlagN.ListIndex
   Case 0
    flagN = True
   Case 1
    flagN = False
  End Select
  frmPreview.Show 1
End Sub

Private Sub Command1_Click()
  For i = 1 To N
   If EI(i) = 0 Then
     Call MsgBox("第" + Str(i) + "跨未定义!", vbExclamation + vbOKOnly, "错误")
     Exit Sub
   End If
  Next
  Select Case cmbFlag0.ListIndex
    Case 0
        Flag0 = True
    Case 1
        Flag0 = False
  End Select
  Select Case cmbFlagN.ListIndex
    Case 0
        flagN = True
    Case 1
        flagN = False
  End Select

  Unload Me
  Load frmCompute
  frmCompute.Show
End Sub


Private Sub Command2_Click()
   
   CurrentI = Val(cmbN.ListIndex) + 1
   
      frmSubInput.Show 1
      
  ' If ListI.ListCount < CurrentI Then
   '
   '  ListI.AddItem "", CurrentI - 1
   '  ListEI.AddItem "", CurrentI - 1
   '  ListL.AddItem "", CurrentI - 1
   '  ListC.AddItem "", CurrentI - 1
   '  ListQ.AddItem "", CurrentI - 1
   '  ListA.AddItem "", CurrentI - 1
   'End If
     Select Case Fc(CurrentI)
      Case 0
       ListC.List(CurrentI - 1) = " 无荷载 "
      Case 1
       ListC.List(CurrentI - 1) = "均布荷载"
      Case 2
       ListC.List(CurrentI - 1) = "集中荷载"
     End Select
     ListI.List(CurrentI - 1) = "第" + Format(CurrentI, "##") + "跨"
     ListEI.List(CurrentI - 1) = Format(EI(CurrentI), "##0.00")
     ListL.List(CurrentI - 1) = Format(L(CurrentI), "##0.00")
     ListQ.List(CurrentI - 1) = Format(q(CurrentI), "##0.00")
     ListA.List(CurrentI - 1) = Format(PosA(CurrentI), "##0.00")
End Sub

Private Sub Command3_Click()
   Load frmStart
   frmStart.Show
   Unload Me
End Sub

Private Sub Form_Load()
   
   '初始化参数
   ReDim L(1 To N)
   ReDim EI(1 To N)
   ReDim i0(1 To N)
   ReDim Fc(1 To N)
   ReDim M01(1 To N)
   ReDim M02(1 To N)
   ReDim q(1 To N)
   ReDim PosA(1 To N)
   ReDim K(1 To N + 1, 1 To N + 1)
   ReDim Theta(1 To N + 1)
   ReDim P(1 To N + 1)
   ReDim m(1 To N + 1)
   
   
   For i = 1 To N
    cmbN.AddItem (Str(i))
     ListI.AddItem "", i - 1
     ListEI.AddItem "", i - 1
     ListL.AddItem "", i - 1
     ListC.AddItem "", i - 1
     ListQ.AddItem "", i - 1
     ListA.AddItem "", i - 1

   Next
   cmbN.ListIndex = 0
   CurrentI = 1
   cmbFlag0.ListIndex = 0
   cmbFlagN.ListIndex = 0
   End Sub



Private Sub ListI_Click()

End Sub