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.......!!!!!!

Cara membuat aplikasi kalkulator sederhana pada vb

                Langkah awal:

1.       Buka project vb

2.       Tambahkan label1 dan dan text1,agar masukan tulisan text1 hanya angka saja dan menggunakan tombol enter untuk memindah pointer ,masukan program dibawah ini:

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If Text1.Text = "" Then

    Text1.SetFocus

    Else

    Text2.SetFocus

    End If

ElseIf Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = 13 Or KeyAscii = vbKeyBack Or KeyAscii = vbkyedelete Or KeyAscii = (13)) Then

KeyAscii = 0

MsgBox "maaf khusus angka saja"

End If

End Sub

3.       Tambahkan label2 dan text2,agar pada text2 juga hanya boleh angka saja,,masukan program

Di bawah ini:

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

    If Text1.Text = "" Then

    Else

    Combo1.SetFocus

    End If

ElseIf Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = 13 Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = (13)) Then

KeyAscii = 0

MsgBox "maaf khusus angka saja"

End If

End Sub

 

4.       Tambahkan label3 dan commboBox,,pada commbox listnya harus diisi(tambah,kurang,kali,bagi)dan pada comboBox masukan program dibawah ini:

Private Sub Combo1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Command1.SetFocus

End If 

End Sub

5.       Tambahkan command1 dan command2,pada command1 masukan program dibawah ini:

Private Sub Combo1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Command1.SetFocus

End If

End Sub

Private Sub Command1_Click()

If Combo1.Text = "tambah" Then

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

ElseIf Combo1.Text = "kurang" Then

Text3.Text = Val(Text1.Text) - Val(Text2.Text)

ElseIf Combo1.Text = "kali" Then

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

ElseIf Combo1.Text = "bagi" Then

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

Else

MsgBox "maaf anda harus memilih jenis penghitungan terlebih dahulu", vbCritical, "critical"

End If

End Sub

Private Sub Command1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Command2.SetFocus

End If

End Sub

Pada command2 masukan program di bawah ini:

Private Sub Command2_Click()

MsgBox " terima kasih telah menggunakan program ini", vbInformation, "exit"

End

End Sub

 













Terima kasih selamat mencoba "semoga bermanfaat"



jika anda ingin mengdownload file diatas klik disini

Mengetahui Keyascii Keyboard dengan Visual Basic

Caranya adalah:
1 buat sebuah project di VB6
2 tambahkan sebuah textbox

3 klik kiri 2x pada textbox lalu kopikan program berikut,,,,
                Private Sub Form_Activate()
            Text1.Enabled = False
            End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
Text1 = KeyAscii
End Sub

Jalankanlah program tersebut maka pada apabila anda menekan huruf pada keyboard ,anda akan mengetahui keyascii pada keyboard.,maaf tidak berlaku bila menekaan f1-f12.
         " Selamat Mencoba Semoga Bermanfaat "

jika anda ingin mendownload program diatas disini

pascal

Pascal (bahasa pemrograman)
Dari Wikipedia bahasa Indonesia, ensiklopedia bebas
Langsung ke: navigasi, cari

Pascal adalah bahasa pemrograman yang pertama kali di buat oleh Profesor Niklaus Wirth, seorang anggota International Federation of Information Processing (IFIP) pada tahun 1971. Dengan mengambil nama dari matematikawan Perancis, Blaise Pascal, yang pertama kali menciptakan mesin penghitung, Profesor Niklaus Wirth membuat bahasa Pascal ini sebagai alat bantu untuk mengajarkan konsep pemrograman komputer kepada mahasiswanya. Selain itu, Profesor Niklaus Wirth membuat Pascal juga untuk melengkapi kekurangan-kekurangan bahasa pemrograman yang ada pada saat itu.
Tipe Data

Dalam bahasa Pascal terdapat beberapa jenis tipe data yang bisa digunakan untuk sebuah variabel atau konstanta pada program. Tipe Data tersebut antara lain adalah
Tipe Data Deskripsi (range variabel)
Byte angka dari 0 sampai 255
Integer angka dari -32768 to 32767
Real semua nilai pecahan dari 1E-38 to 1E+38
Boolean nilai TRUE atau FALSE
Char semua karakter dari tabel ASCII
String semua huruf, spasi, frase
[sunting] Hello World

Contoh program Hello World menggunakan bahasa pascal adalah sebagai berikut:

Program HelloWorld;
begin
writeln('Hello world');

end.

Java script

JavaScript

JavaScript adalah bahasa skrip yang populer di internet dan dapat bekerja di sebagian besar penjelajah web populer seperti Internet Explorer (IE), Mozilla Firefox, Netscape dan Opera. Kode JavaScript dapat disisipkan dalam halaman web menggunakan tag SCRIPT.[3]
Sejarah

JavaScript pertama kali dikembangkan oleh Brendan Eich dari Netscape dibawah nama Mocha, yang nantinya namanya diganti menjadi LiveScript, dan akhirnya menjadi JavaScript.[4] [5]

Navigator sebelumnya telah mendukung Java untuk lebih bisa dimanfaatkan para programmer yang non-Java.[6] Maka dikembangkanlah bahasa pemrograman bernama LiveScript untuk mengakomodasi hal tersebut.[6] Bahasa pemrograman inilah yang akhirnya berkembang dan diberi nama JavaScript, walaupun tidak ada hubungan bahasa antara Java dengan JavaScript.[6]

JavaScript bisa digunakan untuk banyak tujuan, misalnya untuk membuat efek rollover baik di gambar maupun teks, dan yang penting juga adalah untuk membuat AJAX.[6] JavaScript adalah bahasa yang digunakan untuk AJAX.[6]
[sunting] Penulisan JavaScript

Kode JavaScript biasanya dituliskan dalam bentuk fungsi yang ditaruh di tag yang dibuka dengan tag

[sunting] Script pada bagian head

Script ini akan dieksekusi ketika dipanggil (biasanya berbentuk function) atau dipanggil berdasarkan trigger pada event tertentu.[7] Peletakkan script di head akan menjamin skript di-load terlebih dahulu sebelum digunakan (dipanggil).[7]







[sunting] Script pada Body

Script ini dieksekusi ketika halaman di-load sampai di bagian .[7] Ketika menempatkan script pada bagian berarti antara isi dan JavaScript dijadikan satu bagian.[7]









Jumlah JavaScript di dan yang ditempatkan pada dokumen tidak terbatas.[7]
[sunting] External JavaScript

Terkadang ada yang menginginkan menjalankan JavaScript yang sama dalam beberapa kali pada halaman yang berbeda, tetapi tidak mau disibukkan jika harus menulis ulang script yang diinginkan di setiap halaman.[7] Maka JavaScript dapat ditulis di file secara eksternal.[7] Jadi, antara dokumen HTML dan JavaScript dipisahkan, kemudian berkas tersebut dipanggil dari dokument HTML.[7] Berkas JavaScript tersebut disimpan dengan ekstensi .js.[7]

JavaScript : js/xxx.js document.write("pesan ini tampil ketika halaman diload");

Untuk menggunakan eksternal JavaScript (.js) dipakai atribut "src" pada tag

Script di atas berada di berkas "xx.js" (eksternal)