亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

? 歡迎來到蟲蟲下載站！ | ?? 資源下載 ?? 資源專輯 ?? 關(guān)于我們
? 蟲蟲下載站

?? form2.frm

?? 簡單的單跨梁撓度計算
?? FRM
?? 第 1 頁 / 共 2 頁
字號: 
VERSION 5.00
Begin VB.Form Form2 
   BackColor       =   &H00C0FFFF&
   Caption         =   "計算結(jié)果"
   ClientHeight    =   9360
   ClientLeft      =   2940
   ClientTop       =   1605
   ClientWidth     =   13905
   LinkTopic       =   "Form2"
   ScaleHeight     =   9360
   ScaleWidth      =   13905
   Begin VB.Frame Frame2 
      BackColor       =   &H00C0FFFF&
      Height          =   4095
      Left            =   9120
      TabIndex        =   10
      Top             =   3480
      Width           =   5055
      Begin VB.CommandButton Command1 
         Caption         =   "查詢"
         Height          =   495
         Left            =   1920
         TabIndex        =   18
         Top             =   1680
         Width           =   1215
      End
      Begin VB.TextBox Text4 
         Height          =   615
         Left            =   1680
         TabIndex        =   16
         Top             =   2760
         Width           =   1815
      End
      Begin VB.TextBox Text3 
         Height          =   495
         Left            =   1680
         TabIndex        =   13
         Top             =   840
         Width           =   1815
      End
      Begin VB.Label Label11 
         BackColor       =   &H00C0FFFF&
         Caption         =   "mm"
         BeginProperty Font 
            Name            =   "宋體"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   3840
         TabIndex        =   17
         Top             =   3000
         Width           =   255
      End
      Begin VB.Label Label10 
         BackColor       =   &H00C0FFFF&
         Caption         =   "撓度值："
         Height          =   255
         Left            =   360
         TabIndex        =   15
         Top             =   2760
         Width           =   735
      End
      Begin VB.Label Label9 
         BackColor       =   &H00C0FFFF&
         Caption         =   "m"
         BeginProperty Font 
            Name            =   "宋體"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   3720
         TabIndex        =   14
         Top             =   1080
         Width           =   135
      End
      Begin VB.Label Label8 
         BackColor       =   &H00C0FFFF&
         Caption         =   "輸入查詢點距左側(cè)距離值："
         Height          =   495
         Left            =   240
         TabIndex        =   12
         Top             =   840
         Width           =   1095
      End
      Begin VB.Label Label7 
         BackColor       =   &H00C0FFFF&
         Caption         =   "查詢指定點撓度值"
         BeginProperty Font 
            Name            =   "楷體_GB2312"
            Size            =   12
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   1320
         TabIndex        =   11
         Top             =   240
         Width           =   2055
      End
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00C0FFFF&
      Height          =   1695
      Left            =   9120
      TabIndex        =   2
      Top             =   1680
      Width           =   5055
      Begin VB.TextBox Text2 
         Height          =   495
         Left            =   2760
         TabIndex        =   7
         Top             =   840
         Width           =   1575
      End
      Begin VB.TextBox Text1 
         Height          =   495
         Left            =   240
         TabIndex        =   5
         Top             =   840
         Width           =   1575
      End
      Begin VB.Label Label6 
         BackColor       =   &H00C0FFFF&
         Caption         =   "m"
         BeginProperty Font 
            Name            =   "宋體"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   4560
         TabIndex        =   9
         Top             =   960
         Width           =   135
      End
      Begin VB.Label Label5 
         BackColor       =   &H00C0FFFF&
         Caption         =   "mm"
         BeginProperty Font 
            Name            =   "宋體"
            Size            =   10.5
            Charset         =   134
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Left            =   2040
         TabIndex        =   8
         Top             =   960
         Width           =   255
      End
      Begin VB.Label Label3 
         BackColor       =   &H00C0FFFF&
         Caption         =   "中心處距左側(cè)距離"
         Height          =   255
         Left            =   2880
         TabIndex        =   4
         Top             =   240
         Width           =   1575
      End
      Begin VB.Label Label2 
         BackColor       =   &H00C0FFFF&
         Caption         =   "大小"
         Height          =   255
         Left            =   600
         TabIndex        =   3
         Top             =   360
         Width           =   375
      End
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00FFFFFF&
      Height          =   6615
      Left            =   240
      ScaleHeight     =   6555
      ScaleWidth      =   8595
      TabIndex        =   0
      Top             =   1080
      Width           =   8655
   End
   Begin VB.Label Label4 
      BackColor       =   &H00C0FFFF&
      Caption         =   "計算結(jié)果"
      BeginProperty Font 
         Name            =   "隸書"
         Size            =   24
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   5880
      TabIndex        =   6
      Top             =   240
      Width           =   2055
   End
   Begin VB.Label Label1 
      BackColor       =   &H00C0FFFF&
      Caption         =   "中心處撓度"
      BeginProperty Font 
         Name            =   "宋體"
         Size            =   15
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   10680
      TabIndex        =   1
      Top             =   960
      Width           =   1575
   End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim Ig As Double '計算慣性矩
Dim vp(100) As Double '存儲由集中力引起的撓度
Dim vpe As Double '存儲最終集中力撓度數(shù)
Dim i_vp As Integer '累加集中力引起撓度用循環(huán)變量
Dim vq As Double '存儲均布載撓度數(shù)
Dim vm(100) As Double  '存儲由集中力矩引起的撓度
Dim vme As Double '存儲最終集中力矩?fù)隙葦?shù)
Dim i_vm As Integer '累加集中力矩引起撓度用循環(huán)變量
Dim x As Double '存儲欲查詢點的位置信息
Dim ve As Double '存儲欲查詢點的最終撓度值

Private Sub Command1_Click()
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
vpe = 0
vpm = 0
vq = 0
If ls.fs = True And rs.fs = True Then                                                                      '左右都是自由支持時的計算過程
 For i_vp = 1 To t_p
    If x < lp(i_vp).xp Then
         vp(i_vp) = lp(i_vp).p * (dimes.l - lp(i_vp).xp) * x * (dimes.l ^ 2 - x ^ 2 - (dimes.l - lp(i_vp).xp) ^ 2) / (6000 * E * Ig * dimes.l)
         If lp(i_vp).ud = False Then
           vp(i_vp) = -vp(i_vp)
         End If
    Else
         vp(i_vp) = lp(i_vp).p * (dimes.l - lp(i_vp).xp) * (((x - lp(i_vp).xp) ^ 3) / (dimes.l - lp(i_vp).xp) + (dimes.l ^ 2 - (dimes.l - lp(i_vp).xp) ^ 2) * x - x ^ 3) / (6000 * E * Ig * dimes.l)
        If lp(i_vp).ud = False Then
           vp(i_vp) = -vp(i_vp)
         End If
    End If
 Next
 For i_vp = 1 To t_p
     vpe = vpe + vp(i_vp)
 Next
   vq = lq.q * x * (dimes.l ^ 2 - 2 * dimes.l * x ^ 2 + x ^ 2) / (24000 * E * 384 * Ig)
   If lq.ud = False Then
           vq = -vq
   End If
 For i_vm = 1 To t_m
   If x < lm(i_m).xm Then
       vm(i_vm) = -lm(i_vm).m * x * (dimes.l ^ 2 - 3 * (dimes.l - lm(i_vm).xm) ^ 2 - x ^ 2) / (6000 * E * Ig * dimes.l)
       If lm(i_vm).ud = False Then
           vm(i_vm) = -vm(i_vm)
         End If
   Else
       vm(i_vm) = -lm(i_vm).m * (-x ^ 3 + 3 * dimes.l * (x - lm(i_vm).xm) ^ 2 + (dimes.l ^ 2 - 3 * (dimes.l - lm(i_vm).xm) ^ 2) * x) / (6000 * E * Ig * dimes.l)
       If lm(i_vm).ud = False Then
           vm(i_vm) = -vm(i_vm)
       End If
   End If
 Next
 For i_vm = 1 To t_m
       vme = vme + vm(i_vm)
 Next
 
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
If ls.gs = True And rs.gs = True Then                                                                              '兩端固定端的計算過程
 For i_vp = 1 To t_p
    If x < lp(i_vp).xp Then
         vp(i_vp) = lp(i_vp).p * (dimes.l - lp(i_vp).xp) ^ 2 * x ^ 2 * (3 * lp(i_vp).xp * dimes.l - (3 * lp(i_vp).xp + (dimes.l - lp(i_vp).xp)) * x) / (6000 * E * Ig * dimes.l ^ 2)
         If lp(i_vp).ud = False Then
           vp(i_vp) = -vp(i_vp)
         End If
    Else
         vp(i_vp) = lp(i_vp).p * (dimes.l - lp(i_vp).xp) ^ 2 * x ^ 2 * (3 * lp(i_vp).xp * dimes.l - (3 * lp(i_vp).xp + (dimes.l - lp(i_vp).xp)) * x) / (6000 * E * Ig * dimes.l ^ 2) + lp(i_vp).p * (x - lp(i_vp).xp) ^ 3 / (6000 * E * Ig)
        If lp(i_vp).ud = False Then
           vp(i_vp) = -vp(i_vp)
         End If
    End If
 Next
 For i_vp = 1 To t_p
     vpe = vpe + vp(i_vp)
 Next
 
 vq = lq.q * dimes.l ^ 4 * x ^ 2 * (dimes.l ^ 2 - 2 * x * dimes.l + x ^ 2) / (24000 * E * Ig)
 If lq.ud = False Then
      vq = -vq
 End If
 
 For i_vm = 1 To t_m
   If x < lm(i_vm).xm Then
       vm(i_vm) = -lm(i_vm).m * (0.5 * (0.75 - 3 * (dimes.l - lm(i_vm).xm) ^ 2 / dimes.l ^ 2)) / (6000 * E * Ig) - lm(i_vm).m * ((dimes.l - lm(i_vm).xm) ^ 2 - lm(i_vm).xm ^ 2) / (16000 * E * Ig)
       If lm(i_vm).ud = False Then
           vm(i_vm) = -vm(i_vm)
       End If
   Else
       vm(i_vm) = -lm(i_vm).m * (0.5 * (0.75 - 3 * (dimes.l - lm(i_vm).xm) ^ 2 / dimes.l ^ 2) + 3 * (0.5 - lm(i_vm).xm / dimes.l)) / (6000 * E * Ig) - lm(i_vm).m * ((dimes.l - lm(i_vm).xm) ^ 2 - lm(i_vm).xm ^ 2) / (16000 * E * Ig)

?? 快捷鍵說明

復(fù)制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频
av在线播放一区二区三区| 日韩一级免费观看| 日韩欧美亚洲国产另类 | 亚洲人成精品久久久久久| 丝袜美腿亚洲一区二区图片| 国产成人一级电影| 欧美日本视频在线| 亚洲欧美激情在线| 国产高清在线观看免费不卡| 日韩欧美国产精品| 天堂蜜桃91精品| 欧美一a一片一级一片| 日本一二三不卡| 国产综合一区二区| 日韩视频一区二区在线观看| 午夜视频在线观看一区| 色综合久久久久久久| 中文字幕av免费专区久久| 国内欧美视频一区二区| 91精品国产色综合久久ai换脸 | 国产精品系列在线播放| 欧美一区二区三区日韩| 亚洲成人精品在线观看| 在线观看日产精品| 最新久久zyz资源站| 国产91富婆露脸刺激对白| 久久久三级国产网站| 久久国产欧美日韩精品| 日韩欧美在线123| 日韩电影在线看| 日韩一区二区三区免费看 | 高清久久久久久| 国产精品妹子av| 暴力调教一区二区三区| 国产精品对白交换视频| 99re这里只有精品6| 国产精品久久久久7777按摩| 91丨九色丨黑人外教| 尤物视频一区二区| 欧美精品自拍偷拍| 精品无码三级在线观看视频| 久久夜色精品国产欧美乱极品| 激情图片小说一区| 欧美韩国日本不卡| 99精品桃花视频在线观看| 一区二区三区国产豹纹内裤在线| 欧美日韩亚洲综合一区| 精品亚洲porn| 日韩一区在线看| 欧美日韩精品福利| 蜜桃av一区二区三区| 久久久精品免费网站| 91一区二区三区在线播放| 亚洲国产裸拍裸体视频在线观看乱了 | 69堂亚洲精品首页| 国产在线精品国自产拍免费| 欧美激情中文不卡| 欧美性videosxxxxx| 久久精品国产亚洲一区二区三区| 久久久久久久久久看片| 91久久线看在观草草青青| 日本中文字幕一区二区有限公司| 久久精品亚洲一区二区三区浴池| 97se亚洲国产综合在线| 日本美女一区二区三区| 欧美国产激情二区三区| 欧美亚洲高清一区| 国产原创一区二区| 一个色妞综合视频在线观看| 久久综合久久久久88| 日本道色综合久久| 国产成人在线色| 爽爽淫人综合网网站| 国产精品欧美综合在线| 欧美日本精品一区二区三区| 国产超碰在线一区| 日韩国产在线观看| 亚洲欧洲中文日韩久久av乱码| 日韩欧美视频一区| 在线观看日韩av先锋影音电影院| 国产精品一区不卡| 日韩精品午夜视频| 亚洲一区二区影院| 国产精品福利电影一区二区三区四区| 欧美一区二区三区性视频| 在线免费观看日本欧美| 成人三级伦理片| 国产一区二区三区精品视频| 亚洲成人手机在线| 亚洲精品成人悠悠色影视| 国产女主播一区| 久久久久久毛片| 精品日韩99亚洲| 欧美日韩不卡在线| 日本韩国精品一区二区在线观看| 国产91综合一区在线观看| 激情五月激情综合网| 久久精品久久久精品美女| 天天射综合影视| 亚洲一二三四区不卡| 国产精品的网站| 中文在线一区二区 | 国产成人午夜高潮毛片| 蜜桃精品视频在线| 青娱乐精品视频在线| 亚洲 欧美综合在线网络| 亚洲精品国产高清久久伦理二区| 中文字幕在线不卡一区| 中文字幕亚洲电影| 亚洲欧洲99久久| 亚洲码国产岛国毛片在线| 日韩毛片一二三区| 亚洲人吸女人奶水| 亚洲男同性视频| 一区二区免费看| 亚洲成人一区二区| 日韩—二三区免费观看av| 美女一区二区视频| 久久精品国产久精国产爱| 久久精品国内一区二区三区| 国模娜娜一区二区三区| 国产一区二区日韩精品| 国产精品1区2区3区在线观看| 国产成人一区二区精品非洲| 成人黄色片在线观看| 99久久99久久精品免费观看| 欧美在线观看视频在线| 7777精品久久久大香线蕉| 亚洲精品一区二区三区蜜桃下载 | 韩国三级在线一区| 国产精品亚洲人在线观看| 99精品视频在线观看免费| 欧美中文字幕亚洲一区二区va在线| 欧美日韩国产不卡| 2020国产精品久久精品美国| 国产无人区一区二区三区| 亚洲欧美日韩在线| 天天操天天综合网| 成人午夜在线免费| 色欧美日韩亚洲| 日韩亚洲欧美一区二区三区| 国产女人18毛片水真多成人如厕| 亚洲色图色小说| 免费观看久久久4p| 成人黄色a**站在线观看| 在线观看国产91| 久久综合色鬼综合色| 亚洲狼人国产精品| 蜜桃视频在线观看一区二区| 成人性生交大片免费看中文网站 | 成人av免费在线观看| 欧美三级韩国三级日本一级| 久久这里都是精品| 亚洲在线一区二区三区| 国产麻豆精品在线| 欧美在线免费观看亚洲| 久久久精品免费免费| 天堂影院一区二区| 国产精品一级在线| 欧美电影在哪看比较好| 中文字幕免费在线观看视频一区| 丝袜美腿高跟呻吟高潮一区| 成人av先锋影音| 日韩欧美国产电影| 亚洲国产综合色| 成人黄色一级视频| 国产亚洲午夜高清国产拍精品 | 欧美一区二区三区的| 国产精品对白交换视频| 国产一区二区三区在线看麻豆| 欧美视频一区二区| 亚洲欧洲精品天堂一级| 国产一区二区三区最好精华液| 欧美日韩精品一区二区三区蜜桃| 国产精品国产三级国产普通话99 | 欧美在线一二三| 国产精品久久看| 国产精品88av| 精品国产sm最大网站免费看| 婷婷久久综合九色综合伊人色| 91麻豆成人久久精品二区三区| 国产人妖乱国产精品人妖| 激情综合五月婷婷| 538在线一区二区精品国产| 亚洲成人免费av| 在线视频中文字幕一区二区| 亚洲人成网站精品片在线观看| 成人v精品蜜桃久久一区| 久久婷婷成人综合色| 国产尤物一区二区在线| 亚洲mv在线观看| 日本韩国欧美三级| 亚洲欧美日韩一区二区 | 欧美精品九九99久久| 亚洲三级免费观看| 99久久国产综合精品色伊| 国产精品视频免费看| 成人国产一区二区三区精品| 国产日韩欧美高清| 9i在线看片成人免费|