Beranda » BPC » Programming » VB » Menghitung Luas Persegi Panjang Menggunakan VB

Menghitung Luas Persegi Panjang Menggunakan VB

Halo sobat blogger semuanya, kali ini saya akan mempostingkan artikel tentang Menghitung Luas Persegi Panjang Menggunakan VB (Visual Basic).

Dalam membuat program luas persegi panjang dengan menggunakan Visual Basic, pastikan Laptop atau PC Anda telah terinstal Visual Studio 2010, jika belum silahkan download di mbah google. Ok, langsung saja kita praktekan cara membuat program luas persegi panjang menggunakan Visual Basic.

#1. Langkah pertama yang harus Anda lakukan adalah membuka aplikasi Microsoft Visual Studio 2010, nanti akan muncul tampilan window Microsoft Visual Studio 2010, lalu pilih New Project. Perhatikan gambar berikut :

jendela visual studio 2010

#2. Lalu akan muncul tampilan berikutnya, pilih Visual Basic. Setelah itu ganti name dengan "latihan1" lalu klik OK.

pilih visual basic

#3. Setelah itu kita masukkan 4 buah label, dimana label tersebut kita text-nya

label1 kita ganti text-nya menjadi Luas Persegi Panjang.
label2 kita ganti text-nya menjadi Panjang.
label3 kita ubah textnya menjadi Lebar
dan label4 kita ubah textnya menjadi Luas

#4. Setelah ke-empat label tersebut kita ubah textnya, maka langkah selanjutnya kita masukkan 3 textbox dan kita juga akan merubah Name-nya.

textbox1 kita ubah Name-nya menjadi txtPanjang
textbox2 kita ubah name-nya menjadi txtLebar
textbox3 kita ubah name-nya menjadi txtLuas

#5. Setelah selesai, maka kita masukkan 2 buah Button, dan kita juga akan merubah Name dan Text-nya dengan ketentuan berikut :

Button1 kita ganti Name-nya dengan btnHitung, sedangkan Text-nya kita ganti dengan Hitung
Button2 kita ganti Name-nya dengan btnBatal, sedangkan Text-nya kita ganti dengan Batal

#6. Setelah semua kita masukkan, atur tampilannya seperti gambar berikut:

#7. Setelah tampilannya sudah seperti gambar di atas, maka langkah selanjutnya ialah memasukkan beberapa kode ke dalam program yang akan kita buat. Caranya double click pada background form yang kita buat.

#8. Setelah itu akan muncul tampilan seperti dibawah ini, lalu ketikan kode berikut ini

txtLuas.Enabled=False

#9. Setelah kita ketikan code tersebut maka hasilnya seperti berikut

#10. Lalu kembali lagi ke mode design dengan mengklik Form1.vb [Design]. Lalu Double click lagi pada tombol Hitung, maka akan muncul tampilan berikut

#11. Ketikan kode berikut :

txtLuas.Text=Val(txtPanjang.Text)*Val(txtLebar.Text)

Sehingga hasilnya seperti berikut :

#12. Langkah terakhir adalah memasukkan code untuk tombol batal, sehingga jika diklik maka nilai yang ada di semua textbox dihapus. Caranya kembali ke mode design, lalu double click button Batal, sehingga akan muncul tampilan berikut