APLIKASI MEENGHITUNG BIAYA SKS MENGGUNAKAN VISUAL BASIC 2010

12.06 |

APLIKASI MEENGHITUNG BIAYA SKS MENGGUNAKAN

VISUAL BASIC 2010

Program yang akan saya buat adalah program sederhana yang saya buat berdasarkan apa yang saya peroleh dari dosen mata kuliah PEMROGRAMAN VISUAL yaitu Bp.NANDANG HERMANTO Di STMIK AMIKOM PURWOKERTO.

Dan program ini saya tujukan kepada Bp.NANDANG HERMANTO Karena beliau yang memberikan tugas itu kepada saya.

Langsung pada langkah pembuatan program ini.

1. Instal VISUAL BASIC 2010, Kemudian buka.

2. Membuat project baru "File => New projrct".

3. Setelah langkah ke 2, maka akan muncul tampilan seperti ini

4.Langkah berikutnya adalah mengganti nama form dengan cara klik form, kemudian lihat gambar berikut ini, dibagian pojok kanan bawah edit dari kata “form1” menjadi “Dion_Menghitung Biaya SKS”

1. 5. Kemudian masukan yang harus ada pada program tersebut dari pak nandang.

Yaitu : Button , Label , TextBox. Degan cara klik double pada salah satu pilihan.

1. 6. Kemudian setelah memasukan Button,Label dan TextBox.

Kita ganti nama dulu pada tombol-Tombol tadi menjadi berikut ini.

Dengan cara klik salah satu label atau button, Lihat sebelah bawah pojok kanan, ganti dari “Label1” menjadi “Menghitung Biaya SKS”, dan seterusnya.

1. 7. Langkah berikutnya adalah mengganti nama Textbox, Lihat gambar bawah pojok kanan, dari “TextBox” menjadi “txt1” dan seterusnya.

1. 8. Double klik pada button “OK” untuk mengisi code supaya tombol tersebut dapat berfungsi.

9. Setelah double klik pada tombol ok, kita isikan code berikut

“txt3.text = txt1.text * txt2.text” seperti gambar berikut.

1. 10. Langkah berikutnya adalah mengisi code pada tombol exit, sebelumnya kita lakukan double klik pada tombok exit.

1. 11. Setelah double klik pada tombol exit, isikan code seperti berikut

“If MsgBox("Anda yakin akan keluar", vbYesNo + vbQuestion + vbDefaultButton2, "Keluar") = vbYes Then

Me.Close()

End If” supaya tombol exit dapat berfungi.

1. 12. Langkah terakhir adalah pengujian program yang sudah saya buat.

Klik tombol segitiga hijau (Run) disebelah atas tengah.

1. 13. Setel di RUN maka akan muncul tampilan sebagai berikut.

Dan isikan

Jumlah sks : 24

Biaya per SKS : 35000

Maka

Biaya yang harus dibayar : 840000

14. Untuk membuat tampilan program menjadi lebih menarik, pasang beckground untuk formnya. Lihat gambar berikut dsebelah bawah pojok kanan,isikan gambar yang sesuai dengan program yang dibuat.

15. Sebelumnya ada yang tertinggal. Yaitu tombol CLEAR untuk membersihkan data sebelumnya. Yaitu dengan cara menambahkan tombol button dan isikan code program sebagai berikut.

txt1.Clear()

txt2.ResetText()

txt3.Text = ""

txt1.Focus()