Membuat Rumus Luas Segitiga dan Volume Balok

Ass…wr….wb

Kali ini saya akan membuat coding rumus segitiga dan rumus balok. Tapi kali ini bukan rumus yg sepeti di ajarkan di SD SMP bahkan SMA, melain kan ruas segitiga dan balok tersebut. Anda pasti tahu rumus segitiga dan balkyakni PxLxT( panjang  x Lebar x tinggi). Baiklah untuk mempersingkat waktu langsung saja ke topik

Pertama buka dulu  MVB2010 (Microsoft  visual basic 2010 anda seperti contoh di bawah:
 Langsung saja buat desain seperti gambar dibawah ini.

 

  

Kelik dua kali pada form1, kemudian masukan coding seperti di bawah ini

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "Segitiga & Balok"
        Label1.Text = "Menghitung Luas Segitiga"
        Label1.Font = New Font("Segoe UI", 10, FontStyle.Bold)
        Label2.Text = "Alas"
        Label3.Text = "Tinggi"
        Label4.Text = "----------"
        Label5.Text = "Menghitung Volume Balok"
        Label5.Font = New Font("Segoe UI", 10, FontStyle.Bold)
        Label6.Text = "Panjang"
        Label7.Text = "Lebar"
        Label8.Text = "Tinggi"
        Label9.Text = "-----------"
        Button1.Text = "Hitung"
        Button2.Text = "Hapus"
        Button3.Text = "Hitung"
        Button4.Text = "Hapus"
    End Sub

Maka hasilnya setelah di jalankan hasilnya seperti gambar di bawah ini

Setelah itu, klik dua kali pada button1, kemudian masukan codingnya

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label4.Text = 1 / 2 * (Val(TextBox1.Text) * Val(TextBox2.Text))
    End Sub

Klik juga dua kali di button 3, dan masukkan kodingnya

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Label9.Text = (Val(TextBox4.Text) * Val(TextBox5.Text)) * Val(TextBox6.Text)
    End Sub
End Class

Masukkan koding juga pada button2

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox1.Text = ""
        TextBox2.Text = ""
        Label4.Text = "----------"
    End Sub

Masukkan juga koding pada button3

 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox4.Text = ""
        TextBox5.Text = ""
        TextBox6.Text = ""
        Label9.Text = "-----------"
    End Sub

Jika sudah maka hasilnya seperti ini

 Jika Hasilnya sudah seperti gambar di atas, maka anda sudah berhasil.!!!!

Selamat Mencoba