熱門關(guān)鍵詞：
機(jī)械原理課程設(shè)計(jì)(牛頭刨床機(jī)構(gòu))
  • 該文件為doc格式
  • 文件大小：387.58K
  • 下載次數(shù)：
  • 文件評(píng)級(jí)：
  • 更新時(shí)間：2012-12-05
  • 發(fā) 布 人：ycgxysp
  • 文件下載：

  • 立即下載

  • 文件介紹：
  • 該文件為 doc 格式，下載需要 1 積分
  • 機(jī)械原理課程設(shè)計(jì)(牛頭刨床機(jī)構(gòu))附1：齒輪機(jī)構(gòu)的點(diǎn)算源程序及運(yùn)行結(jié)果
    1、源程序：
    Option Explicit
    Private Const pi = 3.14159
    Dim z1, z2, m, t, hax, cx As Single
    Dim alpha, alp, alpa1, alpa2 As Single
    Dim d1, d2, x1, x2, ha1, ha2, hf1, hf2, h1, h2 As Single
    Dim db1, db2, da1, da2, df1, df2, a, e, s1, s2, sa1, sa2 As Single

    Private Sub command1_click() '清零
    z1 = 0
    z2 = 0
    m = 0
    alpha = 0
    hax = 0
    cx = 0
    Text1.Text = " "
    Text2.Text = " "
    Text3.Text = " "
    Text4.Text = " "
    Text5.Text = " "
    Text6.Text = " "
    Text7.Text = " "
    Text8.Text = " "
    Text9.Text = " "
    Text10.Text = " "
    Text11.Text = " "
    Text12.Text = " "
    Text13.Text = " "
    Text14.Text = " "
    Text15.Text = " "
    ...
文檔留言
驗(yàn)證碼: 請(qǐng)?jiān)谟覀?cè)輸入驗(yàn)證碼 看不清楚,換一個(gè)