KALKULATOR BANGUN DATAR
Kita dapat menghitung luas dan keliling bangun datar:
1. Persegi Panjang
2. Segitiga
3. Jajar Genjang
CLASS
Public Class Class1
Public Function Lpersegipanjang(ByVal panjang As Integer, ByVal lebar As Integer)
Lpersegipanjang = (panjang * lebar)
End Function
Public Function Kpersegipanjang(ByVal panjang As Integer, ByVal lebar As Integer)
Kpersegipanjang = (2 * (panjang + lebar))
End Function
Public Function Lsegitiga(ByVal alas As Integer, ByVal tinggi As Integer)
Lsegitiga = (alas * tinggi) / 2
End Function
Public Function Ksegitiga(ByVal sisi As Integer)
Ksegitiga = (3 * sisi)
End Function
Public Function Ljajargenjang(ByVal alas As Integer, ByVal tinggi As Integer)
Ljajargenjang = (alas * tinggi)
End Function
Public Function Kjajargenjang(ByVal sisiA As Integer, ByVal alas As Integer)
Kjajargenjang = (2 * (sisiA + alas))
End Function
End Class
SOURCE CODING
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form2.Show()
Me.Hide()
End Sub
End Class
Public Class Form2
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ComboBox1.Text = "Persegi Panjang" Then
Form3.Show()
Me.Hide()
End If
If ComboBox1.Text = "Segitiga" Then
Form4.Show()
Me.Hide()
End If
If ComboBox1.Text = "Jajar Genjang" Then
Form5.Show()
Me.Hide()
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MessageBox.Show("Anda yakin ingin keluar?", "Kalkulator Bangun Datar", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
Close()
End Sub
End Class
Public Class Form3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim objLpersegipanjang As New Class1
Dim objKpersegipanjang As New Class1
TextBox3.Text = objKpersegipanjang.Kpersegipanjang(TextBox1.Text, TextBox2.Text)
TextBox4.Text = objLpersegipanjang.Lpersegipanjang(TextBox1.Text, TextBox2.Text)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Form2.Show()
Me.Hide()
End Sub
End Class
Public Class Form4
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objLsegitiga As New Class1
Dim objKsegitiga As New Class1
TextBox3.Text = objKsegitiga.Ksegitiga(TextBox5.Text)
TextBox4.Text = objLsegitiga.Lsegitiga(TextBox1.Text, TextBox2.Text)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Form2.Show()
Me.Hide()
End Sub
End Class
Public Class Form5
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim objLjajargenjang As New Class1
Dim objKjajargenjang As New Class1
TextBox3.Text = objKjajargenjang.Kjajargenjang(TextBox6.Text, TextBox1.Text)
TextBox4.Text = objLjajargenjang.Ljajargenjang(TextBox1.Text, TextBox2.Text)
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Form2.Show()
Me.Hide()
End Sub
End Class