frmcompute.frm

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

VERSION 5.00
Begin VB.Form frmCompute 
   Caption         =   "计算结果"
   ClientHeight    =   5100
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4185
   LinkTopic       =   "Form1"
   ScaleHeight     =   5100
   ScaleWidth      =   4185
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton btnNew 
      Caption         =   "重新计算"
      Height          =   435
      Left            =   2760
      TabIndex        =   2
      Top             =   4440
      Width           =   975
   End
   Begin VB.CommandButton btnDrawM 
      Caption         =   "弯矩图"
      Height          =   435
      Left            =   1650
      TabIndex        =   1
      Top             =   4440
      Width           =   855
   End
   Begin VB.ListBox List1 
      Height          =   3375
      ItemData        =   "frmCompute.frx":0000
      Left            =   420
      List            =   "frmCompute.frx":0002
      TabIndex        =   0
      Top             =   600
      Width           =   3435
   End
   Begin VB.Label Label1 
      Caption         =   "各结点弯矩:(kNm,上部受拉为正)"
      Height          =   255
      Left            =   420
      TabIndex        =   3
      Top             =   240
      Width           =   3075
   End
End
Attribute VB_Name = "frmCompute"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub btnDrawM_Click()
   frmDrawM.Show 1
End Sub

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

Private Sub Form_Load()
  
  Call GetK(K(), i0(), EI0, EI(), L())
  Call GetP(P(), L(), Fc(), q(), PosA())
  Success = Formula(Theta(), K(), P())
  Call GetM(m(), i0(), Theta(), P())
  For i = 1 To N + 1
    List1.AddItem ("结点" + Str(i) + ":" + Str(m(i)))
  Next
End Sub