Lencana Facebook
Rabu, 28 September 2011
Membuat Aplikasi Bangun Datar
21.16 | 
Diposting oleh
NE-O
nanggung nih, :) lanjut aja dah untuk 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
properties label3
tarik lagi 3 label (hehe jangan bosen2 menariknya yah :P ) ganti properties nya
label yang pertama
label yang kedua
label yang ketiga
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
code diatas untuk menghitung luas bangun datar yang di pilih. di perhatiin aja bener2, ntar ngerti sendiri tuh. :)
Button2
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
Langganan:
Posting Komentar (Atom)
Di kunjungin
Indonesian Blogger
0 komentar:
Posting Komentar