Membuat Aplikasi Bangun Datar pada Visual Studio 2008

Membuat aplikasi bangun datar

Klik form, pada properties, text ketikkan “Menghitung Luas”
Tarik 1 label lalu ganti properties text nya menjadi “Bangun datar”
Selanjutnya tarik sebuah ComboBox, kemudian pada properties Klik item dan akan muncul tombol yang berisi titik2. Klik tombol tersebut, lalu isikan item berikut ini.
Persegi
Persegi Panjang
Segitiga
Jajar Genjang
Trapesium
Lingkaran
Layang-layang
Belah Ketupat
(antara item 1 dan yang lainnya pisahkan dengan tombol enter)

Tarik lagi sebuah button, kemudian pada bagian propreties, ganti textnya menjadi “hitung”

Tarik 2 label ganti properties label2

text : hasil
font : Microsoft Sans Serif/Bold/12

properties label3

text : 0
font : Microsoft Sans Serif/Bold/14
name: Labelhasil

tarik lagi 3 label (hehe jangan bosen2 menariknya yah :P ) ganti properties nya
label yang pertama

Text : L1
Name : L1
visble : false

label yang kedua

Text : L2
Name : L2
visble : false

label yang ketiga

Text : L3
Name : L3
visble : false

dan ini yang terakhir (akhirnya :P ), tarik lagi 1 button ganti propreties
text : exit

selesai untuk interfacenya. bingung ?
lihat nih contoh interface yang gw bikin

Saatnya koding
Double klik button1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim bil1, bil2, bil3 As Double
Dim luas As Double

L1.Visible = False
L2.Visible = False
L3.Visible = False

If ComboBox1.Text = “Persegi” Then
bil1 = InputBox(“Masukkan nilai SISI”)

L1.Visible = True
L1.Text = “Sisi = ” & bil1

luas = bil1 * 2
Labelluas.Text = luas

ElseIf ComboBox1.Text = “Persegi Panjang” Then
bil1 = InputBox(“Masukkan nilai PANJANG”)
bil2 = InputBox(“Masukkan nilai LEBAR “)

L1.Visible = True
L1.Text = “Panjang = ” & bil1
L2.Visible = True
L2.Text = “Lebar = ” & bil2

luas = bil1 * bil2
Labelluas.Text = luas

ElseIf ComboBox1.Text = “Segitiga” Then
bil1 = InputBox(“Masukkan nilai ALAS”)
bil2 = InputBox(“Masukkan nilai TINGGI”)

L1.Visible = True
L1.Text = “Alas = ” & bil1
L2.Visible = True
L2.Text = “Tinggi = ” & bil2

luas = 0.5 * bil1 * bil2
Labelluas.Text = luas

ElseIf ComboBox1.Text = “Jajar Genjang” Then
bil1 = InputBox(“Masukkan nilai ALAS”)
bil2 = InputBox(“Masukkan nilai TINGGI”)

L1.Visible = True
L1.Text = “Alas = ” & bil1
L2.Visible = True
L2.Text = “Tinggi = ” & bil2

luas = bil1 * bil2
Labelluas.Text = luas

ElseIf ComboBox1.Text = “Trapesiium” Then
bil1 = InputBox(“Masukkan nilai SISI SEJAJAR1″)
bil2 = InputBox(“Masukkan nilai SISI SEJAJAR2″)
bil3 = InputBox(“Masukkan nilai SISI TINGGI”)

L1.Visible = True
L1.Text = “Sisi Sejajar1 = ” & bil1
L2.Visible = True
L2.Text = “Sisi Sejajar2 = ” & bil2
L3.Text = True
L3.Text = “Sisi Sejajar2 = ” & bil3

luas = 0.5 * (bil1 + bil2) * bil3
Labelluas.Text = luas

ElseIf ComboBox1.Text = “Lingkaran” Then
bil1 = InputBox(“Masukkan nilai JARI-JARI”)

L1.Visible = True
L1.Text = “Jari-jari = ” & bil1

luas = 22 / 7 * bil1 * bil1
Labelluas.Text = luas

ElseIf ComboBox1.Text = “Layang-layang” Then
bil1 = InputBox(“Masukkan nilai DIAGONAL1″)
bil2 = InputBox(“Masukkan nilai DIAGONAL2″)

L1.Visible = True
L1.Text = “Sisi Sejajar1 = ” & bil1
L2.Visible = True
L2.Text = “Sisi Sejajar2 = ” & bil2

luas = 0.5 * bil1 * bil2
Labelluas.Text = luas

ElseIf ComboBox1.Text = “Belah Ketupat” Then
bil1 = InputBox(“Masukkan nilai DIAGONAL1″)
bil2 = InputBox(“Masukkan nilai DIAGONAL2″)

L1.Visible = True
L1.Text = “Sisi Sejajar1 = ” & bil1
L2.Visible = True
L2.Text = “Sisi Sejajar2 = ” & bil2

luas = 0.5 * bil1 * bil2
Labelluas.Text = luas

End If
End Sub

code diatas untuk menghitung luas bangun datar yang di pilih. di perhatiin aja bener2, ntar ngerti sendiri tuh. :)

Button2

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
End
End Sub

dan aplikasi anda sudah selesai :)

membuat menu help

nanggung lagi :) sekalian aja kita buat menu help agar user mengetahui rumus untuk menghitung bagun datar.

Caranya. Pada toolBox buka tab Menus & Toolbars
Lalu tarik MenuStrip ke atas form seperti gambar diatas.
Selanjutnya klik 2x menu yang pertama “Rumus Persegi”
Sehingga tab coding akan muncul, tambahkan kode berikut

Private Sub RumusPersegiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusPersegiToolStripMenuItem.Click
MsgBox(” Rumus Luas Persegi = sisi x sisi”)
End Sub

Lakukan untuk menu-menu yang lain.

Private Sub RumusPersegiPanjangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusPersegiPanjangToolStripMenuItem.Click
MsgBox(” Rumus Luas Persegi Panjang = panjang x lebar”)
End Sub

Private Sub RumusSegitigaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusSegitigaToolStripMenuItem.Click
MsgBox(” Rumus Luas Segitiga = 1/2 x alas x tinggi”)
End Sub

Private Sub RumusLingkaranToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusLingkaranToolStripMenuItem.Click
MsgBox(” Rumus Luas Lingkaran = π (pi) x jari-jari x jari-jari”)
End Sub

Private Sub RumusTrapesiumToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusTrapesiumToolStripMenuItem.Click
MsgBox(“Rumus Luas Trapesium = 1/2 x jumlah sisi sejajar x tinggi”)
End Sub

Private Sub RumusJajargenjangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusJajargenjangToolStripMenuItem.Click
MsgBox(“Rumus Luas Trapesium = 1/2 x jumlah sisi sejajar x tinggi”)
End Sub

Private Sub RumusBelahKetupatToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusBelahKetupatToolStripMenuItem.Click
MsgBox(“Rumus Belah Ketupat = diagonal (d) 1 x diagonal (d) 2″)
End Sub

Private Sub RumusToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusToolStripMenuItem.Click
MsgBox(“Rumus Belah Ketupat = diagonal (d) 1 x diagonal (d) 2″)
End Sub

Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
MsgBox(“Programmed by Aritha Handrico (Teknik Informatika UIN SUSKA RIAU)”)
End Sub
End Class

About these ads

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Logout / Ubah )

Twitter picture

You are commenting using your Twitter account. Logout / Ubah )

Facebook photo

You are commenting using your Facebook account. Logout / Ubah )

Google+ photo

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s