tugas momentum, impuls, kekekalan, momentum

1.Hitunglah besar momentum mobil yang massanya 33 gram yang tengah terbang dengan laju 60 m/s.

 Diketahui:
massa(m) = 33 gram = 0,033 kg
kecepatan(v) = 60 m/s

ditanya: momentum(p) = …
jawab:
p= m.v
= 0,033.60
= 1,98 kg m/s

2. Bola kasti bermassa 145 gram dilempar dengan kecepatan  39 m/s ternyata dapat dipukul

balik hingga mencapai kecepatan  52 m/s. Hitunglah impuls yang terjadi pada bola kasti

 jawaban:

Diketahui:

massa = 145 gram = 0,145 kg

kecepatan(v) = 39 m/s

v’ = 52 m/s

ditanya:

I = ...

jawab:
I= perubahan momentum(p)
p1 = 0, 145.39

    = 5,655 m/s

p2 = 0,145.52

    = 7,54 m/s

  I = p2-p1
  = 7,54-5,655
  = 1,855 Ns 

3. Dua buah bola A dan B, massanya masing-masing 0,2 kg dan 0,4 kg kedua bola bergerak berlawanan arah dan segaris. Kedua bola bertumbukan, sesaat setelah tumbukan kelajuan bola A adalah 10 m/s berlawanan dengan arah semula. Kelajuan A dan B sebelum tumbukan masing-masing 80 m/s dan 12 m/s. Berapa kelajuan benda B sesudah tumbukan ?

Penyelesaian :

      Dik : m_A = 0,2 kg

v_A = 80 m/s

m_B = 0,4 kg

v_B = -12 m/s

v_A‘ = -10 m/s

Dit : v_B‘ = …..?

Jwb : m_A V_A + m_B V_B = m_A V_A‘ + m_B V_B‘

0,2 . 80 + 0,4 . (- 12) = 0,2 . (- 10) + 0,4 . V_B‘

16 - 4,8 = - 2 + 0,4 . V_B‘

11,2 + 2 = 0,4 . V_B‘

V_B‘ = 13,2/0,4  

V_B‘ = 33 m/s

Membuat kalender islam (hijriah) dengan vb.06

Langkah pertama
1.Buatlah sebuah objek seperti diatas yang terdiri dari,2 label,1 combo box,1 text,3 command button
2.Pada command 1(proses) masukan program di bawah ini:
Private Sub Command1_Click()
If Combo1.Text = "januari" Then
Text1.Text = "muharram dan shafar"
ElseIf Combo1.Text = "februari" Then
Text1.Text = "shafar dan rabiul al-awwal"
ElseIf Combo1.Text = "maret" Then
Text1.Text = "rabiul al-awal dan rabiul al-akhir"
ElseIf Combo1.Text = "april" Then
Text1.Text = "rabiul al-akhir dan jumadil al-awwal"
ElseIf Combo1.Text = "mei" Then
Text1.Text = "jumadil al-awwal dan jumadil al-akhir"
ElseIf Combo1.Text = "juni" Then
Text1.Text = "jumadil al-akhir dan rajab"
ElseIf Combo1.Text = "juli" Then
Text1.Text = "rajab dan sya'ban"
ElseIf Combo1.Text = "agustus" Then
Text1.Text = "ramadhan dan syawwal"
ElseIf Combo1.Text = "september" Then
Text1.Text = "syawwal dan dzul-qaidah"
ElseIf Combo1.Text = "oktober" Then
Text1.Text = "dzul-qaidah dan dzul-hijjah"
ElseIf Combo1.Text = "november" Then
Text1.Text = "dzul-hijjah dan muharram"
ElseIf Combo1.Text = "desember" Then
Text1.Text = "muharram dan shafar"
End If
End Sub
3.Pada command 2(clear) masukan program dibawah ini:
Private Sub Command2_Click()
Combo1.Text = ""
Text1.Text = ""
End Sub
4.Pada command 3(exit) masukan program dibawah ini:
Private Sub Command3_Click()
Unload Me
End Sub

5.Pada form load masukan nama-nama dibawah ini agar muncul pilihan pada combo 1:

Private Sub Form_Load()
MsgBox "selamat datang"
Combo1.AddItem "januari"
Combo1.AddItem "februari"
Combo1.AddItem "maret"
Combo1.AddItem "april"
Combo1.AddItem "mei"
Combo1.AddItem "juni"
Combo1.AddItem "juli"
Combo1.AddItem "agustus"
Combo1.AddItem "september"
Combo1.AddItem "oktober"
Combo1.AddItem "november"
Combo1.AddItem "desember"
End Sub

SELAMAT MENCOBA…….!




















+

Cara membuat perhitungan gaji karyawan dengan vb.6.0

Langkah pertama :
1.Buatlah label sebanyak 8 objek dan ubahlah captionnya sesuai contoh diatas

2.Buatlah objek text sebanyak 5, 1 list box,dan 3 command button sesuakan dengan gambar diatas.
3.Pada command1(proses) masukan program dibawah ini:
Private Sub Command1_Click()
If Text1.Text = "" Then
Text1.SetFocus
ElseIf Text2.Text = "" Then
Text2.SetFocus
ElseIf Combo1.Text = "" Then
Combo1.SetFocus
Else
If Text2 > 40 Then
nilai(1) = Val(Text2.Text) - Val(40)
nilai(2) = nilai(1) * Val(25000)
Text4.Text = nilai(2)
Else
Text4.Text = "0"
End If
If Combo1.Text = "tidak" Then
angka(1) = Val(Text1.Text) * Val(10)
angka(2) = angka(1) / Val(100)
Text3.Text = angka(2)
Else
Text3.Text = "0"
End If
End If
Text5.Text = Val(Text1.Text) + Val(Text3.Text) + Val(Text4.Text)
End Sub
4.Pada command2(bersih) masukan program di bawah ini:
Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Combo1.Text = ""
End Sub

5.Pada command3 (exit ) masukan program di bawah ini:
Private Sub Command3_Click()
MsgBox " anda ingin keluar...?", vbInformation

End
End Sub

selamat mencoba.......!!!!!!