Visual Basic 2008 : Menghitung Luas Bangun Datar
5:17:00 PM | Author: Warung Koding

Salam Super !! http://www.smileycodes.info

hehe mulai lagi nih berkoding-koding ria pake VB euy... maklum baru belajar jadi lagi jatuh cinta  gitu dah ama VB http://www.smileycodes.info



Koding saya kali ini lagi lagi masih sangat sederhana.. jadi harap maklum yak ..

Ok dah sesuai dengan judul, bahan -  bahan yang kita butuhkan adalah 4 buah label, 1 buah ComboBox , 2 TextBox, dan yang terakhir 3 buah Button... Nah bahan - bahan tersebut bisa di drag dari ToolBox yang ada pada VB.Gini nih bentuk ToolBoxnya :

Trus aduk-aduk bahan tersebut hingga menjadi seperti ini :


kemudian ubah propertiesnya:

 menjadi



Setelah tahap-tahap di atas dilakukan,maka interfacenya akan berubah wujud menjadi seperti ini :

 Hmm mendesain interfacenya udah, sekarang giliran bikin kodingnya... Caranya :
Pertama,  klik dua kali (double click) pada button OK,, lalu muncul Form1.vb.. dan ketik koding berwarna merah berikut ini :
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If (ComboBox1.Text = "Lingkaran") Then
            Label2.Visible = True
            Label2.Text = "Jari-Jari"
            TextBox1.Visible = True
            Label3.Visible = False
            TextBox2.Visible = False
            Button3.Visible = True
            Button1.Visible = False
            Button2.Visible = False
        End If

        If (ComboBox1.Text = "Persegi") Then
            Label2.Visible = True
            Label2.Text = "Sisi"
            TextBox1.Visible = True
            Label3.Visible = False
            TextBox2.Visible = False
            Button3.Visible = True
            Button1.Visible = False
            Button2.Visible = False
        End If

        If (ComboBox1.Text = "Persegi Panjang") Then
            Label2.Visible = True
            Label2.Text = "Panjang"
            TextBox1.Visible = True
            Label3.Visible = True
            Label3.Text = "Lebar"
            TextBox2.Visible = True
            Button3.Visible = True
            Button1.Visible = False
            Button2.Visible = False

        End If

        If (ComboBox1.Text = "Segitiga") Then
            Label2.Visible = True
            Label2.Text = "Alas"
            TextBox1.Visible = True
            Label3.Visible = True
            Label3.Text = "Tinggi"
            TextBox2.Visible = True
            Button3.Visible = True
            Button1.Visible = False
            Button2.Visible = False

        End If
    End Sub
Kedua, klik dua kali pada button Keluar,, dan ketik koding berwarna merah berikut ini :
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        End
    End Sub
Ketiga,klik dua kali pada button Hitung, dan ketik koding berwarna merah berikut ini :
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If (ComboBox1.Text = "Lingkaran") Then
            Label4.Visible = True
            Dim Hasil As Double
            Hasil = 3.14 * Val(TextBox1.Text) * Val(TextBox1.Text)
            Label4.Text = "Luas = " & Hasil
        End If

        If (ComboBox1.Text = "Persegi") Then
            Label4.Visible = True
            Dim Hasil As Double
            Hasil = Val(TextBox1.Text) * Val(TextBox1.Text)
            Label4.Text = "Luas = " & Hasil
        End If

        If (ComboBox1.Text = "Persegi Panjang") Then
            Label4.Visible = True
            Dim Hasil As Double
            Hasil = Val(TextBox1.Text) * Val(TextBox2.Text)
            Label4.Text = "Luas = " & Hasil
        End If

        If (ComboBox1.Text = "Segitiga") Then
            Label4.Visible = True
            Dim Hasil As Double
            Hasil = Val(TextBox1.Text) * Val(TextBox2.Text) / 2
            Label4.Text = "Luas = " & Hasil
        End If
    End Sub
End Class

Keempat, eksekusi program tersebut dengan menekan tombol F5 atau klik Start Debugging.
Selesai....
 
http://www.smileycodes.info

|
This entry was posted on 5:17:00 PM and is filed under . You can follow any responses to this entry through the RSS 2.0 feed. You can leave a response, or trackback from your own site.

4 komentar:

On 9 Oktober 2011 pukul 12.03 , Anonim mengatakan...

wah sipppp..

 
On 9 Oktober 2011 pukul 12.06 , Anonim mengatakan...

wah sipppp..

 
On 30 September 2013 pukul 05.58 , Datul_alva davin mengatakan...

makasih banyak :D

 
On 5 Januari 2017 pukul 21.56 , Unknown mengatakan...

ok....
top ...