Nur Atikah F: Tugas Visual basic 1

TUGAS PEMPROGRAMAN VISUAL 1

Program Converter Panjang Dan Player Music

Program ini dibuat menggunakan Visual Basic 2010 yang berfungsi untuk mengubah satuan panjang, misal dari meter ke kilometer dsb. Disamping itu, juga bisa memainkan musik yang artinya kita bisa mengubah panjang sambil musikan. Tampilan program pada saat dijalankan adalah sebagai berikut

Penjelasan program

Untuk membuat program diatas, langkah-langkahnya adalah dengan membuka visual studio 2010 > buat projek baru, pilih yang windows form application. Ada 5 label, 2 TexBox, 1 ComboBox, 5 Button, 1 ListBox, 1 WMP. Lalu editlah, sehingga tata letaknya menjadi seperti diatas dan juga bisa mengubah protpertinya di properties masing-masing objek.

PROGRAM CONVERTER PANJANG

Langkah awal ialah masukkan angka pada kotak dibawahnya lalu pilih dari ke, maksudnya ialah perubahan yang dilakukan. Misal cm > km, di situ menggunakan combobox dimana kita bisa memasukkan pilihannya melalui pilih items pada propertinya yang isinya seperti dibawah ini

km > hm

km > dam

km > m

km > dm

km > cm

km > mm

hm > dam

hm > m

hm > dm

hm > cm

hm > mm

dam > m

dam > dm

dam > cm

dam > mm

m > dm

m > cm

m > mm

dm > cm

dm > mm

cm > mm

mm > cm

mm > dm

mm > m

mm > dam

mm > hm

mm > km

cm > dm

cm > m

cm > dam

cm > hm

cm > km

dm > m

dm > dam

dm > hm

dm > km

m > dam

m > hm

m > km

dam > hm

dam > km

hm > km

setelah itu enter. Setelah kita memilih pilihan tersebut maka hasilnya akan langsung muncul di kotak hasil. Double klik pada combobox tersebut untuk masuk ke code editor, lalu pilih event Click. Isi code nya dari private sub sampai end sub.

Private Sub Cb1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cb1.SelectedIndexChanged

Select Case Cb1.Text

Case "km > hm"

Tbhasil.Text = Int(Tbmasuk.Text) * 10

Case "km > dam"

Tbhasil.Text = Int(Tbmasuk.Text) * 100

Case "km > m"

Tbhasil.Text = Int(Tbmasuk.Text) * 1000

Case "km > dm"

Tbhasil.Text = Int(Tbmasuk.Text) * 10000

Case "km > cm"

Tbhasil.Text = Int(Tbmasuk.Text) * 100000

Case "km > mm"

Tbhasil.Text = Int(Tbmasuk.Text) * 1000000

Case "hm > dam"

Tbhasil.Text = Int(Tbmasuk.Text) * 10

Case "hm > m"

Tbhasil.Text = Int(Tbmasuk.Text) * 100

Case "hm > dm"

Tbhasil.Text = Int(Tbmasuk.Text) * 1000

Case "hm > cm"

Tbhasil.Text = Int(Tbmasuk.Text) * 10000

Case "hm > mm"

Tbhasil.Text = Int(Tbmasuk.Text) * 100000

Case "dam > m"

Tbhasil.Text = Int(Tbmasuk.Text) * 10

Case "dam > dm"

Tbhasil.Text = Int(Tbmasuk.Text) * 100

Case "dam > cm"

Tbhasil.Text = Int(Tbmasuk.Text) * 1000

Case "dam > mm "

Tbhasil.Text = Int(Tbmasuk.Text) * 10000

Case "m > dm"

Tbhasil.Text = Int(Tbmasuk.Text) * 10

Case "m > cm"

Tbhasil.Text = Int(Tbmasuk.Text) * 100

Case "m > mm"

Tbhasil.Text = Int(Tbmasuk.Text) * 1000

Case "dm > cm"

Tbhasil.Text = Int(Tbmasuk.Text) * 10

Case "dm > mm"

Tbhasil.Text = Int(Tbmasuk.Text) * 100

Case "cm > mm"

Tbhasil.Text = Int(Tbmasuk.Text) * 10

Case "mm > cm"

Tbhasil.Text = Int(Tbmasuk.Text) / 10

Case "mm > dm"

Tbhasil.Text = Int(Tbmasuk.Text) / 100

Case "mm > m"

Tbhasil.Text = Int(Tbmasuk.Text) / 1000

Case "mm > dam"

Tbhasil.Text = Int(Tbmasuk.Text) / 10000

Case "mm > hm"

Tbhasil.Text = Int(Tbmasuk.Text) / 100000

Case "mm > km"

Tbhasil.Text = Int(Tbmasuk.Text) / 1000000

Case "cm > dm"

Tbhasil.Text = Int(Tbmasuk.Text) / 10

Case "cm > m"

Tbhasil.Text = Int(Tbmasuk.Text) / 100

Case "cm > dam"

Tbhasil.Text = Int(Tbmasuk.Text) / 1000

Case "cm > hm"

Tbhasil.Text = Int(Tbmasuk.Text) / 10000

Case "cm > km"

Tbhasil.Text = Int(Tbmasuk.Text) / 100000

Case "dm > m"

Tbhasil.Text = Int(Tbmasuk.Text) / 10

Case "dm > dam"

Tbhasil.Text = Int(Tbmasuk.Text) / 100

Case "dm > hm"

Tbhasil.Text = Int(Tbmasuk.Text) / 1000

Case "dm > km"

Tbhasil.Text = Int(Tbmasuk.Text) / 10000

Case "m > dam"

Tbhasil.Text = Int(Tbmasuk.Text) / 10

Case "m > hm"

Tbhasil.Text = Int(Tbmasuk.Text) / 100

Case "m > km"

Tbhasil.Text = Int(Tbmasuk.Text) / 1000

Case "dam > hm"

Tbhasil.Text = Int(Tbmasuk.Text) / 10

Case "dam > km"

Tbhasil.Text = Int(Tbmasuk.Text) / 100

Case "hm > km"

Tbhasil.Text = Int(Tbmasuk.Text) / 10

End Select

End Sub

Lalu double klik pada button Bersihkan, pilih event Click. Isi Codenya seperti dibawah ini

Contoh penggunaan

1. Masukan angka > pilih pilihannya, misal dari km > cm

Lalu mucul hasil

Kalau ingin membersihkan kotak isian, tinggal klik button bersihkan.

PROGRAM PLAYER MUSIC

Tambahkan ListBox, button mainkan, hentikan, tambahkan dan keluar , Windows Media Player, serta openfile dialog pada toolbox. Atur dulu tata letak komponennya dan edit masing-masing komponen pada properties.

Pertama double klik pada button tambahkan untuk masuk ke code editor, pilih event click. Isi code nya

Setelah itu, pilih BtopenFileDialog1 lalu pada event nya pilih File Ok.

Pada button mainkan,pilih event click dan isi codenya seperti dibawah ini

Pada button hentikan, pilih event click dan isi codenya seperti dibawah ini

Pada button keluar, pilih event click dan isi codenya seperti dibawah ini

Contoh penggunaan

1. Jalankan program, pertama yaitu buka file musik dengan mengklik button tambahkan atau tekan Alt + t. Lalu muncul file musik, pilih salah satu. Open

2. Klik file lagu, lalu klik tombol mainkan atau tekan Alt + m.