大三机械设计课程设计vb.doc

Private Sub Command1_Click(Index As Integer)
Dim dblWP As Double, dblHP As Double, i As Integer

dblWP = Abs(Picture1(0).ScaleWidth)

dblHP = Abs(Picture1(0).ScaleHeight)

For i = 0 To 5
Picture1(i).Cls
Picture1(i).ScaleMode = 1
Picture1(i).DrawStyle = 0
Picture1(i).DrawWidth = 1.5
Picture1(i).Scale (-120, dblHP / 2)-(dblWP - 120, -dblHP / 2)
Picture1(i).Line (0, 0)-(dblWP - 160, 0)
Picture1(i).Line (dblWP - 160, 0)-Step(-120, 120)
Picture1(i).Line (dblWP - 160, 0)-Step(-120, -120)
Picture1(i).CurrentX = dblWP - 700
Picture1(i).CurrentY = 250
Picture1(i).Print "f_AB"
Picture1(i).CurrentX = -120
Picture1(i).CurrentY = -10
Picture1(i).Print "0"
Picture1(i).Line (0, dblHP / 2 - 60)-(0, -(dblHP / 2 - 60))
Picture1(i).Line (0, dblHP / 2 - 60)-Step(-120, -120)
Picture1(i).Line (0, dblHP / 2 - 60)-Step(120, -120)
Picture1(i).CurrentX = 160
Picture1(i).CurrentY = dblHP / 2 - 60
If i <> 0 Then Picture1(i).FontName = "ms sans serif"
Select Case i
Case 0
Picture1(i).Print "f_CD"
Case 1
Picture1(i).Print "w_CD"
Case 2
Picture1(i).Print "e_CD"
Case 3
Picture1(i).Print "s_E"
Case 4
Picture1(i).Print "v_E"
Case 5
Picture1(i).Print "a_E"
End Select
Next i

Dim dblMax_f_CD As Double, dblMax_w_CD As Double, dblMax_e_CD As Double
Dim dblMax_s_E As Double, dblMax_v_E As Double, dblMax_a_E As Double

Dim dblF_CD, dblW_CD, dblE_CD As Double
Dim dblS_E, dblV_E, dblA_E As Double

Dim dblF_AB, dblF_DE As Double

Dim dblAB As Double, dblCD As Double, dblDE As Double, dblAC As Double, dblH As Double, dblSE As Double, dbldf_CD As Double

Dim PI As Double
PI = 3.1415926
dblAB = Val(Form1.Text1.Text)
dblCD = Val(Form1.Text2.Text)
dblDE = Val(Form1.Text3.Text)
dblAC = Val(Form1.Text4.Text)
dblH = Val(Form1.Text5.Text)
dbln1 = Val(Form1.Text6.Text)
For i = 0 To 360

dblF_AB = i * PI / 180

dblF_CD = Atn((dblAC + dblAB * Sin(dblF_AB)) / (dblAB * Cos(dblF_AB)))
If dblF_CD < 0 Then dblF_CD = dblF_CD + PI
dblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB - dblF_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))
dblE_CD = (-dblAB * (2 * PI * dbln1 / 60) * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) + 2 * dblAB * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) * dblW_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))

dblF_DE = Atn(((dblH - dblCD * Sin(dblF_CD)) / dblDE) / Sqr(Abs(1 - (dblH - dblCD * Sin(dblF_CD)) * (dblH - dblCD * Sin(dblF_CD)) / (dblDE * dblDE))))

dblw_DE = (-(dblCD * dblW_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)))
dble_DE = ((dblDE * dblw_DE * dblw_DE * Sin(dblF_DE)) + dblCD * dblW_CD * dblW_CD * Sin(dblF_CD) - dblCD * dblE_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE))
dblS2 = Sqr(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB))

dblS_E = dblCD * Cos(dblF_CD) + dblDE * Cos(dblF_DE)

dblV_E = (-dblCD / 1000) * dblW_CD * Sin(dblF_CD) - (dblDE / 1000) * (-(dblCD / 1000) * dblW_CD * Cos(dblF_CD) / ((dblDE / 1000) * Cos(dblF_DE))) * (((dblH / 1000) - (dblCD / 1000) * Sin(dblF_CD)) / (dblDE / 1000))

dblA_E = (-dblCD / 1000) * dblE_CD * Sin(dblF_CD) - (dblCD / 1000) * dblW_CD * dblW_CD * Cos(dblF_CD) - (dblDE / 1000) * dble_DE * Sin(dblF_DE) - (dblDE / 1000) * dblw_DE * dblw_DE * Cos(dblF_DE)

If Abs(dblF_CD) > dblMax_f_CD Then dblMax_f_CD = Abs(dblF_CD)

If Abs(dblW_CD) > dblMax_w_CD Then dblMax_w_CD = Abs(dblW_CD)

If Abs(dblE_CD) > dblMax_f_CD Then dblMax_e_CD = Abs(dblE_CD)

If Abs(dblS_E) > dblMax_s_E Then dblMax_s_E = Abs(dblS_E)

If Abs(dblV_E) > dblMax_v_E Then dblMax_v_E = Abs(dblV_E)

If Abs(dblA_E) > dblMax_a_E Then dblMax_a_E = Abs(dblA_E)

Next i

Dim dblSx As Double, dblSy As Double

dblSx = (dblWP - 240) / 360

For i = 0 To 360

dblF_AB = i * PI / 180

dblF_CD = Atn((dblAC + dblAB * Sin(dblF_AB)) / (dblAB * Cos(dblF_AB)))
If dblF_CD < 0 Then dblF_CD = dblF_CD + PI
dblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB - dblF_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))
dblE_CD = (-dblAB * (2 * PI * dbln1 / 60) * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) + 2 * dblAB * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) * dblW_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))

dblF_DE = Atn(((dblH - dblCD * Sin(dblF_CD)) / dblDE) / Sqr(Abs(1 - (dblH - dblCD * Sin(dblF_CD)) * (dblH - dblCD * Sin(dblF_CD)) / (dblDE * dblDE))))

dblw_DE = (-(dblCD * dblW_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)))
dble_DE = ((dblDE * dblw_DE * dblw_DE * Sin(dblF_DE)) + dblCD * dblW_CD * dblW_CD * Sin(dblF_CD) - dblCD * dblE_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE))
dblS2 = Sqr(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB))

dblS_E = dblCD * Cos(dblF_CD) + dblDE * Cos(dblF_DE)

dblV_E = (-dblCD / 1000) * dblW_CD * Sin(dblF_CD) - (dblDE / 1000) * (-(dblCD / 1000) * dblW_CD * Cos(dblF_CD) / ((dblDE / 1000) * Cos(dblF_DE))) * (((dblH / 1000) - (dblCD / 1000) * Sin(dblF_CD)) / (dblDE / 1000))

dblA_E = (-dblCD / 1000) * dblE_CD * Sin(dblF_CD) - (dblCD / 1000) * dblW_CD * dblW_CD * Cos(dblF_CD) - (dblDE / 1000) * dble_DE * Sin(dblF_DE) - (dblDE / 1000) * dblw_DE * dblw_DE * Cos(dblF_DE)

dblSy = (dblHP / 2 - 240) / dblMax_f_CD
Picture1(0).PSet (i * dblSx, dblF_CD * dblSy)

dblSy = (dblHP / 2 - 240) / dblMax_w_CD
Picture1(1).PSet (i * dblSx, dblW_CD * dblSy)

dblSy = (dblHP / 2 - 240) / dblMax_e_CD
Picture1(2).PSet (i * dblSx, dblE_CD * dblSy * 0.25)

dblSy = (dblHP / 2 - 240) / dblMax_s_E
Picture1(3).PSet (i * dblSx, dblS_E * dblSy)

dblSy = (dblHP / 2 - 240) / dblMax_v_E
Picture1(4).PSet (i * dblSx, dblV_E * dblSy)

dblSy = (dblHP / 2 - 240) / dblMax_a_E
Picture1(5).PSet (i * dblSx, dblA_E * dblSy)

Next i

End Sub

Private Sub Command5_Click()

Dim i As Double
Dim dblAB As Double, dblCD As Double, dblDE As Double, dblAC As Double, dblH As Double, dblF_AB As Double, dbldf_CD As Double
Dim dblF_CD As Double, dblW_CD As Double, dblE_CD As Double
Dim dblS_E As Double, dblV_E As Double, dblA_E As Double
Dim dblS2 As Double
Dim dblF_DE As Double, dblw_DE As Double, dble_DE As Double
Dim PI As Double
PI = 3.1415926
dblAB = Val(Form1.Text1.Text)
dblCD = Val(Form1.Text2.Text)
dblDE = Val(Form1.Text3.Text)
dblAC = Val(Form1.Text4.Text)
dblH = Val(Form1.Text5.Text)
dbln1 = Val(Form1.Text6.Text)

List1.Clear
List1.AddItem ("f_AB" & Chr(9) & "f_CD" & Chr(9) & "w_CD" & Chr(9) & "e_CD" & Chr(9) & "s_E" & Chr(9) & "v_E" & Chr(9) & "a_E")
List1.AddItem ("………………………………………………………………………………………………………………")
For i = 0 To 360 Step 30
dblF_AB = i * PI / 180

dblF_CD = Atn((dblAC + dblAB * Sin(dblF_AB)) / (dblAB * Cos(dblF_AB)))
If dblF_CD < 0 Then dblF_CD = dblF_CD + PI
dblW_CD = dblAB * (2 * PI * dbln1 / 60) * Cos(dblF_AB - dblF_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))
dblE_CD = (-dblAB * (2 * PI * dbln1 / 60) * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) + 2 * dblAB * (2 * PI * dbln1 / 60) * Sin(dblF_AB - dblF_CD) * dblW_CD) / Sqr(Abs(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB)))

dblF_DE = Atn(((dblH - dblCD * Sin(dblF_CD)) / dblDE) / Sqr(Abs(1 - (dblH - dblCD * Sin(dblF_CD)) * (dblH - dblCD * Sin(dblF_CD)) / (dblDE * dblDE))))

dblw_DE = (-(dblCD * dblW_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE)))
dble_DE = ((dblDE * dblw_DE * dblw_DE * Sin(dblF_DE)) + dblCD * dblW_CD * dblW_CD * Sin(dblF_CD) - dblCD * dblE_CD * Cos(dblF_CD)) / (dblDE * Cos(dblF_DE))
dblS2 = Sqr(dblAB * dblAB + dblAC * dblAC + 2 * dblAC * dblAB * Sin(dblF_AB))

dblS_E = dblCD * Cos(dblF_CD) + dblDE * Cos(dblF_DE)

dblV_E = (-dblCD / 1000) * dblW_CD * Sin(dblF_CD) - (dblDE / 1000) * (-(dblCD / 1000) * dblW_CD * Cos(dblF_CD) / ((dblDE / 1000) * Cos(dblF_DE))) * (((dblH / 1000) - (dblCD / 1000) * Sin(dblF_CD)) / (dblDE / 1000))

dblA_E = (-dblCD / 1000) * dblE_CD * Sin(dblF_CD) - (dblCD / 1000) * dblW_CD * dblW_CD * Cos(dblF_CD) - (dblDE / 1000) * dble_DE * Sin(dblF_DE) - (dblDE / 1000) * dblw_DE * dblw_DE * Cos(dblF_DE)

dbldf_CD = dblF_CD * 180 / PI
Form1.Text7.Text = Str(dblF_AB)
Form1.Text8.Text = Str(dbldf_CD)
Form1.Text9.Text = Str(dblW_CD)
Form1.Text10.Text = Str(dblE_CD)
Form1.Text11.Text = Str(dblS_E)
Form1.Text12.Text = Str(dblV_E)
Form1.Text13.Text = Str(dblA_E)

List1.AddItem (Str(i) & Chr(9) & Format(Str(dbldf_CD), "0.00") & Chr(9) & Format(Str(dblW_CD), "0.00") & Chr(9) & Format(Str(dblE_CD), "0.00") & Chr(9) & Format(Str(dblS_E), "0.00") & Chr(9) & Format(Str(dblV_E), "0.00") & Chr(9) & Format(Str(dblA_E), "0.00"))

Next i
List1.AddItem ("………………………………………………………………………………………………………………")
End Sub其中专业理论知识内容包括：保安理论知识、消防业务知识、职业道德、法律常识、保安礼仪、救护知识。作技能训练内容包括：岗位操作指引、勤务技能、消防技能、军事技能。
二．培训的及要求培训目的
安全生产目标责任书
为了进一步落实安全生产责任制，做到“责、权、利”相结合，根据我公司2015年度安全生产目标的内容，现与财务部签订如下安全生产目标：
一、目标值：
1、全年人身死亡事故为零，重伤事故为零，轻伤人数为零。
2、现金安全保管，不发生盗窃事故。
3、每月足额提取安全生产费用，保障安全生产投入资金的到位。
4、安全培训合格率为100%。
二、本单位安全工作上必须做到以下内容：
1、对本单位的安全生产负直接领导责任，必须模范遵守公司的各项安全管理制度，不发布与公司安全管理制度相抵触的指令，严格履行本人的安全职责，确保安全责任制在本单位全面落实，并全力支持安全工作。
2、保证公司各项安全管理制度和管理办法在本单位内全面实施，并自觉接受公司安全部门的监督和管理。
3、在确保安全的前提下组织生产，始终把安全工作放在首位，当“安全与交货期、质量”发生矛盾时，坚持安全第一的原则。
4、参加生产碰头会时，首先汇报本单位的安全生产情况和安全问题落实情况；在安排本单位生产任务时，必须安排安全工作内容，并写入记录。
5、在公司及政府的安全检查中杜绝各类违章现象。
6、组织本部门积极参加安全检查，做到有检查、有整改，记录全。
7、以身作则，不违章指挥、不违章操作。对发现的各类违章现象负有查禁的责任，同时要予以查处。
8、虚心接受员工提出的问题，杜绝不接受或盲目指挥；
9、发生事故，应立即报告主管领导，按照“四不放过”的原则召开事故分析会，提出整改措施和对责任者的处理意见，并填写事故登记表，严禁隐瞒不报或降低对责任者的处罚标准。
10、必须按规定对单位员工进行培训和新员工上岗教育；
11、严格执行公司安全生产十六项禁令，保证本单位所有人员不违章作业。
三、 安全奖惩：
1、对于全年实现安全目标的按照公司生产现场管理规定和工作说明书进行考核奖励；对于未实现安全目标的按照公司规定进行处罚。
2、每月接受主管领导指派人员对安全生产责任状的落