Google
 

11.21.2007

Visual Basic Program for Kinematic Analysis The Offset Slider Crank Mechanism

Mekanisme slider crank merupakan suatu struktur yang terdiri dari kombinasi beberapa benda kaku (rigid body) dan peluncur (slider) yang saling berhubungan dan dapat bergerak relatif satu dengan yang lain. Mekanisme ini dirancang untuk menghasilkan gerak peluncur (slider) yang diinginkan relatif terhadap suatu bidang referensi (fixed pivod) dalam bentuk gerak rotasi, translasi, atau kombinasi dari keduannya tergantung dari input yang diberikan dan struktur mekanismenya.

Gambar disamping merupakan suatu bentuk mekanisme offset slider crank yang terdapat pada mesin pembakaran dalam (Internal Combustion Engine).
Dimana untuk menghasilkan kemampuan mesin yang optimal diperlukan suatu analisa tertentu, diantaranya analisa posisi,kecepatan maupun percepatan titik-titik tertentu pada rangakain batang yang bergerak tersebut.
Banyak metode yang digunakan dalam analisa ini diantaranya : metode grafis & vektor dengan bilangan kompleks. Dari kedua metode tersebut yang paling akurat adalah metode vektor dengan bilangan kompleks. Hal ini karena metode tersebut dapat di aplikasikan dalam suatu pemrograman komputer. Salah satu program yang dapat digunakan adalah visual basic. Berikut ini adalah code program visual basic 6.0 untuk menganalisa mekanisme offset slider crank spt gambar di atas :

Private Sub ComNewdata_Click()
TR2.Text = 2
TR3.Text = 5
TTH2.Text = 60
TW2.Text = 2
TA2.Text = 3
Tb.Text = 0.5
end sub

PrivateSubComAnalysis_Click()
Dim R2 As Single
Dim R3 As Single
Dim W2 As Single
Dim A2 As Single
Dim b As Single
Dim TH2 As Double
Dim TH3 As Double
Dim RB As Single
Dim TH1 As Double
Dim PAx As Single
Dim PAy As Single
Dim W3 As Single
Dim VAx As Single
Dim VAy As Single
Dim VA As Single
Dim VBx As Single
Dim VBy As Single
Dim VB As Single
Dim A3 As Single
Dim AAx As Single
Dim AAy As Single
Dim AA As Single
Dim ABx As Single
Dim ABy As Single
Dim AB As Single
R2 = TR2.Text
R3 = TR3.Text
W2 = TW2.Text
A2 = TA2.Text
b = Tb.Text
CON = Atn (1) / 45
TH2 = TTH2.Text * CON
M1 = b - R2 * Sin (TH2)
M2 = ((R2 + R3) ^ 2 – b ^ 2) ^ 0.5 - R2 * Cos (TH2)
TH3 = Atn (M1 / M2)
RB = (R2 ^ 2 + R3 ^ 2 + 2 * R2 * R3 * Cos (TH2 - TH3)) ^ 0.5
TH1 = Atn ((b / RB) / Sqr (1 - (b / RB) ^ 2))
PAx = R2 * Cos (TH2)
PAy = R2 * Sin (TH2)
X0 = b / Tan (TH1)
W3 = (-R2 * W2 * Sin (TH2) - R2 * W2 * Cos (TH2)) / (R3 * Sin (TH3) + R3 * Cos (TH3))
VAx = -R2 * W2 * Sin (TH2)
VAy = R2 * W2 * Cos (TH2)
VA = R2 * W2 * Cos (TH2) - R2 * W2 * Sin (TH2)
VBx = -R2 * W2 * Sin (TH2) - R3 * W3 * Sin (TH3)
VBy = 0
VB = VBx
C = R2 * W2 ^ 2 * Cos (TH2) + R2 * A2 * Sin (TH2) + R3 * W3 ^ 2 * Cos (TH3)
D = R2 * W2 ^ 2 * Sin (TH2) - R2 * A2 * Cos (TH2) + R3 * W3 ^ 2 * Sin (TH3)
A3 = (D - C) / (R3 * Sin (TH3) + R3 * Cos (TH3))
AAx = -R2 * W2 ^ 2 * Cos (TH2) - R2 * A2 * Sin (TH2)
AAy = -R2 * W2 ^ 2 * Sin (TH2) + R2 * A2 * Cos (TH2)
AA = -R2 * W2 ^ 2 * Cos (TH2) - R2 * W2 ^ 2 * Sin (TH2) + R2 * A2 * Cos (TH2) - R2 * A2 * Sin (TH2)
ABx = -R2 * W2 ^ 2 * Cos (TH2) - R2 * A2 * Sin (TH2) - R3 * W3 ^ 2 * Cos (TH3) - R3 * A3 * Sin (TH3)
ABy = 0
AB = ABx
TTH1.Text = TH1 / CON
TTH3.Text = TH3 / CON
TW3.Text = W3
TA3.Text = A3
TRB.Text = RB
LabPAx.Caption = PAx
LabPAy.Caption = PAy
LabX0.Caption = X0
LabVAx.Caption = VAx
LabVAy.Caption = VAy
LabVA.Caption = VA
LabVBx.Caption = VBx
LabVBy.Caption = VBy
LabVB.Caption = VB
LabAAx.Caption = AAx
LabAAy.Caption = AAy
LabAA.Caption = AA
LabABx.Caption = ABx
LabABy.Caption = ABy
LabAB.Caption = AB
End sub

Private Sub Tb_Change()
If Tb > TR3 - TR2 Then
MsgBox"Nilai offset melebihi batas mobilitas sistem",vbExclamation,"Mohon Diulang"
End If
End Sub

Private Sub TR3_Change()
If TR3 <>
MsgBox"Nilai R3 tidak memenuhi batas mobilitas sistem",vbExclamation,"Mohon Diulang"
End If
End Sub
Private Sub ComOut_Click()
End
End Sub
Gambar interface dengan program visual basic 6.0

Silahkan baca juga artikel berikut



1 Comment:

bosgentongs said...

gan punya source codenya ya ng udah jadi di share donk please

Posting Komentar