Pelatihan BPC

Membuat desain menghitung luas persegi

Langkah-langkah:

Buka aplikasi visual basic 2008 anda lalu kli file>new project
Lalu pilih windows form application, kasi nama projectnya, terus klik ok.
Setelah itu akan tampil interface tempat kita membuat aplikasi.
Untuk pertama kali mari kita membuat aplikasi menghitung luas persegi panjang.
Dari toolbox buka bagian common control sehingga muncul tool2 yang bisa kita gunakan, tarik sebuah label (simbolnya A), lalu tarik sebuah button atur sedemikian rupa sehingga tampak menarik.
Lalu pada bagian properties (kanan bawah, kalau tidak ada klik view>properties windows) ubah properties dari label dengan mengklik label lalu ganti

Text : luas = 0
Name : hasil

klik button ganti propertiesnya

Text : hitung

pada form klik 2x pada button (akan membuka jendela script)

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click disinilah kita letakkan coding untuk button
End Sub
End Class

Tambahkan code berikut di antara Button1.Click dan End Sub

Dim p, l, luas As Integer
p = 12
l = 4
luas = p * l
hasil.Text = “Luas = ” & luas

sehingga semua code akan menjadi serperti ini

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim p, l, luas As Integer
p = 12
l = 4
luas = p * l
hasil.Text = “Luas = ” & luas
End Sub
End Class

penjelasan : Dim digunakan untuk mendeklarasikan variabel pada VB, Cth: Dim p As Integer (membuat variabel p dengan tipe data integer.
lalu beri nilai p = 12, beri niai l = 4, dan nilai luas = p*l (panjang x lebar) dan terakhir ganti text pada label hasil dengan : “Luas = “ & luas.
Fungsi dari “&” adalah untuk mengubungkan text dengan variabel yang ingin dimasukkan kedalam text.
sekarang bagaimana caranya agar panjang dan luas dapat di inputkan dari user?
Modifikasi form dengan menambahkan 2 label dan 2 textbox

Ganti properties Label1

Text : panjang

Label2

Text : lebar

Klik 2x button hitung lalu masukkan code berikut diantara Button1.Click dan End Sub

Dim luas As Double
luas = Val(TextBox1.Text) * Val(TextBox2.Text)
hasil.Text = “Luas = ” & luas
MsgBox(“Luas = ” & luas)