Lencana Facebook
Rabu, 28 September 2011
Creating our first application
21.15 | 
Diposting oleh
NE-O
Cukup untuk teori, saatnya praktikum :)
Buka aplikasi visual basic 2008 anda lalu kli file>new project
Lalu pilih windows form application, kasi nama projectnya, terus klik ok.
Nah 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)
Langganan:
Posting Komentar (Atom)
Di kunjungin
Indonesian Blogger
0 komentar:
Posting Komentar