TUTORIAL
PROGRAM
APLIKASI BANGUN 2D DAN 3D
1. Deskripsi
Program yang kami buat ini adalah program yang
dapat digunakan untuk memilih bentuk dari bangun aplikasi 2D dan 3D dan juga
kita dapat
2. Tujuan dan Manfaat
Tujuan dari program ini adalah mengetahui bentuk
bangun aplikasi 2D dan 3D selain itu kita juga bisa menghitung jumlah
luas,volume dan juga luas permukaan.
3. Sasaran
Pelajar pendidikan dasar yang ingin belajar
mengenai bangun aplikasi 2D dan 3D dengan cara mudah dan mengasyikan.
Langkah-Langkahnya :
1.
Bukalah Program Visual Basic 2010
2.
Isilah Setiap Form dan Listingnya seperti yang dibawah ini
Form1 :
Komponen Toolbox yang
digunakan sebagai berikut:
|
No
|
Komponen
|
Properties
|
keterangan
|
|
1
|
Form1
|
Name
|
Form1
|
|
Text
|
Aplikasi bangun 2D dan 3D
|
||
|
Background
|
|
||
|
Display
|
CentertoScreen
|
||
|
2
|
Label1
|
Name
|
Label 1
|
|
Text
|
Aplikasi bangun 2D dan 3D
|
||
|
3
|
Label2
|
Name
|
Label 2
|
|
Text
|
Bangun 2D
|
||
|
4
|
Label3
|
Name
|
Label3
|
|
Text
|
Bangun 3D
|
||
|
5
|
Label4
|
Name
|
Label4
|
|
Text
|
Sisi
|
||
|
6
|
Label5
|
Name
|
Label5
|
|
Text
|
Luas
|
||
|
7
|
Label6
|
Name
|
Label6
|
|
Text
|
NB :Satuan (pixel)
|
||
|
8
|
Label7
|
Name
|
Label7
|
|
Text
|
Panjang
|
||
|
9
|
Label8
|
Name
|
Label8
|
|
Text
|
Lebar
|
||
|
10
|
Label9
|
Name
|
Label9
|
|
Text
|
Tinggi
|
||
|
11
|
Label10
|
Name
|
Label10
|
|
Text
|
Volume
|
||
|
12
|
Label11
|
Name
|
Label11
|
|
Text
|
Luas Permukaan
|
||
|
13
|
RadioButton1
|
Name
|
RadioButton1
|
|
Text
|
Bujur Sangkar
|
||
|
14
|
RadioButton2
|
Name
|
RadioButton2
|
|
Text
|
Persegi Panjang
|
||
|
15
|
RadioButton3
|
Name
|
RadioButton3
|
|
Text
|
Kubus
|
||
|
16
|
RadioButton4
|
Name
|
RadioButton4
|
|
Text
|
Balok
|
||
|
17
|
Panel1
|
Name
|
Panel1
|
|
18
|
TextBox1
|
Name
|
TextBox1
|
|
Text
|
|
||
|
Text Align
|
Left
|
||
|
Font
|
Microsoft sans Serif,8 pt
|
||
|
19
|
TextBox2
|
Name
|
TextBox2
|
|
Text
|
|
||
|
Text Align
|
Left
|
||
|
Font
|
Microsoft sans Serif,8 pt
|
||
|
Item
|
Lingkaran, Persegi
|
||
|
20
|
TextBox3
|
Name
|
TextBox3
|
|
Text
|
|
||
|
Text Align
|
Left
|
||
|
Font
|
Microsoft sans Serif,8 pt
|
||
|
Item
|
Lingkaran, Persegi
|
||
|
21
|
TextBox4
|
Name
|
TextBox4
|
|
Text
|
|
||
|
Text Align
|
Left
|
||
|
Font
|
Microsoft sans Serif,8 pt
|
||
|
Item
|
Lingkaran, Persegi
|
||
|
22
|
TextBox5
|
Name
|
TextBox5
|
|
Text
|
|
||
|
Text Align
|
Left
|
||
|
Font
|
Microsoft sans Serif,8 pt
|
||
|
Item
|
Lingkaran, Persegi
|
||
|
23
|
TextBox6
|
Name
|
TextBox6
|
|
Text
|
|
||
|
Text Align
|
Left
|
||
|
Font
|
Microsoft sans Serif,8 pt
|
||
|
Item
|
Lingkaran, Persegi
|
||
|
24
|
ComboBox1
|
Name
|
ComboBox1
|
|
Item
|
Volume, Luas Permukaan
|
||
|
25
|
Button1
|
Name
|
Button1
|
|
Text
|
Create
|
||
|
26
|
Button2
|
Name
|
Button2
|
|
Text
|
Reset
|
||
|
27
|
Button3
|
Name
|
Button3
|
|
Text
|
x
|
Listingnya :
Public Class Form1
Dim sisi As Integer
Dim panjang
As Integer
Dim lebar As Integer
Dim tinggi As Integer
Dim
luas_persegi_panjang As Integer
Dim
luas_bujur_sangkar As Integer
Dim
volume_kubus As Integer
Dim
volume_balok As Integer
Dim
luas_permukaan_kubus As Integer
Dim
luas_permukaan_balok As Integer
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
Panel1.Refresh()
If
RadioButton1.Checked = True Then
Dim
myRect As New Rectangle
myRect.X = 20
myRect.Y = 20
myRect.Width = TextBox1.Text
myRect.Height = myRect.Width
Dim
myPen As Pen
myPen = New
Pen(Drawing.Color.Blue,
1)
Dim
myGraphics As Graphics
= Panel1.CreateGraphics
myGraphics.DrawRectangle(myPen,
myRect)
sisi = Val(TextBox1.Text)
luas_bujur_sangkar = Val(sisi *
sisi)
TextBox2.Text = luas_bujur_sangkar
TextBox2.Show()
Label5.Show()
ElseIf
RadioButton2.Checked = True Then
Dim
myRect As New Rectangle
myRect.X = 20
myRect.Y = 20
myRect.Width = TextBox3.Text
myRect.Height = TextBox4.Text
Dim
myPen As Pen
myPen = New
Pen(Drawing.Color.Blue,
1)
Dim
myGraphics As Graphics
= Panel1.CreateGraphics
myGraphics.DrawRectangle(myPen,
myRect)
panjang = Val(TextBox3.Text)
lebar = Val(TextBox4.Text)
luas_persegi_panjang = Val(panjang
* lebar)
TextBox2.Text = luas_persegi_panjang
TextBox2.Show()
Label5.Show()
ElseIf
RadioButton3.Checked = True Then
Dim
myGraphics As Graphics
= Panel1.CreateGraphics
Dim
myPen As Pen
myPen = New
Pen(Drawing.Color.Blue,
1)
Dim
x1 As New Integer
Dim
x2 As New Integer
Dim
y1 As New Integer
Dim
y2 As New Integer
Dim
width As New Integer
Dim
height As New Integer
Dim
myRect As New Rectangle
width = TextBox4.Text
height = TextBox4.Text
myRect.Width = TextBox4.Text
myRect.Height = TextBox4.Text
myRect.X = 20
myRect.Y = (20 + width / 2)
myGraphics.DrawRectangle(myPen,
myRect)
myRect.X = (20 + width / 2)
myRect.Y = 20
myGraphics.DrawRectangle(myPen,
myRect)
x1 = 20
y1 = (20 + width / 2)
x2 = (20 + width / 2)
y2 = 20
myGraphics.DrawLine(myPen, x1, y1,
x2, y2)
y1 = y1 + width
y2 = y2 + width
myGraphics.DrawLine(myPen, x1, y1,
x2, y2)
x1 = x1 + width
x2 = x2 + width
myGraphics.DrawLine(myPen, x1, y1,
x2, y2)
y1 = y1 - width
y2 = y2 - width
myGraphics.DrawLine(myPen, x1, y1,
x2, y2)
sisi = Val(TextBox4.Text)
TextBox2.Show()
Label10.Show()
If
ComboBox1.Text = "Luas Permukaan" Then
Label10.Hide()
TextBox2.Hide()
TextBox6.Show()
luas_permukaan_kubus = (6 *
sisi ^ 2)
TextBox6.Text =
luas_permukaan_kubus
Label11.Show()
ElseIf
ComboBox1.Text = "Volume" Then
Label11.Hide()
TextBox6.Hide()
volume_kubus = (sisi ^ 3)
TextBox2.Text = volume_kubus
End
If
ElseIf
RadioButton4.Checked = True Then
Dim
myGraphics As Graphics
= Panel1.CreateGraphics
Dim
myPen As Pen
myPen = New
Pen(Drawing.Color.Blue,
1)
Dim
x1 As New Integer
Dim
x2 As New Integer
Dim
y1 As New Integer
Dim
y2 As New Integer
Dim
width As New Integer
Dim
height As New Integer
Dim
lebar As New Integer
Dim
myRect As New Rectangle
width = TextBox3.Text()
height = TextBox5.Text
lebar = TextBox4.Text
myRect.Width = TextBox3.Text
myRect.Height = TextBox5.Text
myRect.X = 20
myRect.Y = (20 + lebar / 2)
myGraphics.DrawRectangle(myPen,
myRect)
myRect.X = (20 + lebar / 2)
myRect.Y = 20
myGraphics.DrawRectangle(myPen,
myRect)
x1 = 20
y1 = (20 + lebar / 2)
x2 = (20 + lebar / 2)
y2 = 20
myGraphics.DrawLine(myPen, x1, y1,
x2, y2)
y1 = y1 + height
y2 = y2 + height
myGraphics.DrawLine(myPen, x1, y1,
x2, y2)
x1 = x1 + width
x2 = x2 + width
myGraphics.DrawLine(myPen, x1, y1, x2, y2)
y1 = y1 - height
y2 = y2 - height
myGraphics.DrawLine(myPen, x1, y1,
x2, y2)
panjang = Val(TextBox3.Text)
lebar = Val(TextBox4.Text)
tinggi = Val(TextBox5.Text)
TextBox1.Show()
Label5.Show()
TextBox2.Show()
Label10.Show()
ComboBox1.Text = ""
If
ComboBox1.Text = "Luas Permukaan" Then
luas_permukaan_balok = (2 *
(panjang + lebar + tinggi))
TextBox6.Text =
luas_permukaan_balok
Label10.Hide()
TextBox6.Hide()
TextBox2.Hide()
Label5.Hide()
Label11.Show()
TextBox6.Show()
ElseIf
ComboBox1.Text = "Volume" Then
volume_balok = (panjang * lebar
* tinggi)
TextBox2.Text = volume_balok
Label11.Hide()
TextBox6.Hide()
End
If
End
If
End Sub
Private Sub Button3_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button3.Click
Close()
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
Me.Text
= "Aplikasi Bangun 2D dan 3D"
Me.CenterToScreen()
End Sub
Private Sub RadioButton1_CheckedChanged(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles RadioButton1.CheckedChanged
ComboBox1.Hide()
Label5.Hide()
Label7.Hide()
Label8.Hide()
Label9.Hide()
Label10.Hide()
TextBox2.Hide()
TextBox3.Hide()
TextBox4.Hide()
TextBox5.Hide()
TextBox1.Show()
Panel1.Refresh()
TextBox1.Text = ""
Label11.Hide()
TextBox6.Hide()
End Sub
Private Sub Button2_Click(ByVal
sender As System.Object,
ByVal e As System.EventArgs) Handles
Button2.Click
Panel1.Refresh()
ComboBox1.Hide()
Label5.Hide()
TextBox2.Text = ""
TextBox1.Text = ""
TextBox2.Visible = False
TextBox3.Text = ""
TextBox4.Text = ""
End Sub
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles RadioButton2.CheckedChanged
Panel1.Refresh()
Label5.Hide()
Label7.Show()
Label8.Show()
Label9.Hide()
Label10.Hide()
TextBox2.Hide()
TextBox3.Show()
TextBox4.Show()
TextBox5.Hide()
TextBox1.Show()
TextBox3.Text = ""
TextBox4.Text = ""
Label11.Hide()
TextBox6.Hide()
ComboBox1.Hide()
End Sub
Private Sub TextBox3_KeyPress(ByVal
sender As System.Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress
If
IsNumeric(e.KeyChar) Then
e.Handled = False
ElseIf
e.KeyChar = vbBack Then
e.Handled = False
Else
e.Handled = True
End If
End Sub
Private Sub TextBox4_KeyPress(ByVal
sender As System.Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress
If
IsNumeric(e.KeyChar) Then
e.Handled = False
ElseIf
e.KeyChar = vbBack Then
e.Handled = False
Else
e.Handled = True
End If
End Sub
Private Sub TextBox1_KeyPress(ByVal
sender As System.Object,
ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If
IsNumeric(e.KeyChar) Then
e.Handled = False
ElseIf
e.KeyChar = vbBack Then
e.Handled = False
Else
e.Handled = True
End If
End Sub
Private Sub RadioButton3_CheckedChanged(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles RadioButton3.CheckedChanged
Panel1.Refresh()
TextBox1.Hide()
Label5.Hide()
Label7.Hide()
Label8.Hide()
Label9.Hide()
Label10.Hide()
TextBox2.Hide()
TextBox3.Hide()
TextBox4.Show()
TextBox5.Hide()
TextBox1.Show()
TextBox4.Text = ""
TextBox6.Hide()
Label11.Hide()
ComboBox1.Show()
End Sub
Private Sub RadioButton4_CheckedChanged(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles RadioButton4.CheckedChanged
Panel1.Refresh()
Label5.Hide()
Label7.Show()
Label8.Show()
Label9.Show()
Label10.Hide()
TextBox2.Hide()
TextBox3.Show()
TextBox4.Show()
TextBox5.Show()
TextBox1.Show()
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
Label11.Hide()
TextBox6.Hide()
ComboBox1.Show()
End Sub
End Class
ANALISIS LISTING:
Public class
Form1 : Mendeklarasikan sisi, panjang, lebar, tinggi, volume,
Luas Permukaan sebagai integer
Button1 : Merefresh
panel
Jika
radiobutton 1 dipilih Mendeklarasikan myRect sebagai rectangle
baru dengan
koordinat X=20 dan koordinat Y=20. Menginput sisi dari
textbox1.text.
Menggambar Menggunakan pen dengan garis warna biru
dan ketebelan
1.Dibuat dalam panel. Dan memasukan rumus luas
bujur sangkar
dan di output di textbox2. Textbox2 di tampilkan dan label
5 di tampilkan.
Jika
radiobutton2 dipilih Mendeklarasikan myRect sebagai rectangle
baru dengan
koordinat X=20 dan koordinat Y=20. Menginput panjang dari
textbox3 dan
lebar dari textbox4. Menggambar Menggunakan pen dengan
garis warna biru dan ketebelan 1.Dibuat dalam panel. Dan memasukan
rumus persegi
panjang dan di output di textbox2. Textbox2 di tampilkan
dan label 5 di tampilkan.
Jika radiobutton3
dipilih mendeklarasikan sebuah alat penggambar garis
Bernama pen,
mendeklarasikan 3 pandangan sebagai integer. Menginput
Sisi dari textbox4
dan membuatnya dengan warna garis biru ketebalannya 1
Di koordinat x dan
y yaitu 20. Membuat garis dari sudut pandang supaya
Memberntuk garis
dan menggambar kotak agak tebentuk gambar 3D.
Memasukan volume
dan luas permukaan kubus dari piihan combobox.
Dan di gambar di
panel. Label11 disembunyikan dan Textbox 10 di
sembunyikan.
Jika radiobutton4
dipilih mendeklarasikan sebuah alat penggambar garis
Bernama pen,
mendeklarasikan 3 pandangan sebagai integer. Menginput
Panjang dari
textbox3, lebar dari textbox4 dan tinggi dari textbox5
dan membuatnya
dengan warna garis biru ketebalannya 1.
Di koordinat x dan
y yaitu 20. Membuat garis dari sudut pandang supaya
Memberntuk garis
dan menggambar kotak agak tebentuk gambar 3D.
Memasukan volume
dan luas permukaan balok dari piihan combobox.
Dan digambarkan
dalam panel
Label11
disembunyikan dan Textbox 10 di sembunyikan
Button2 : Reset
dari semua data dari yang sudah di input
Button3 : Close
Form_1 Load :
Memberikan nama Aplikasi bangun 2D dan 3D dan menjadikan
Displaynya tampil di tengah.
Textbox 1-5 :
Hanya bisa diisi dengan angka
RadioButton1 :
Hanya menampilkan label dengan nama sisi dan menghilangka
Lainnya
Radiobutton2 :
Hanya menampilkan label dengan nama panjang, lebar dan tinggi
Dan menghilangkan lainnya.
RadioButton3 :
Hanya menampilkan label dengan nama sisi dan menghilangka
Lainnya
Radiobutton4 :
Hanya menampilkan label dengan nama panjang, lebar dan tinggi
Dan menghilangkan lainnya.
