ANALISIS
APLIKASI LUAS DAN WARNA
1.
Cara Menampilkan
Form Welcome
Komponen toolbox yang digunakan :
Form
|
Komponen
|
Properties
|
Keterangan
|
Form1
|
Form1
|
Name
Text
|
Form1
Welcome
|
Label1
|
Name
Text
|
Label1
AREA AND VOLUME GENERATING PROGRAM
|
|
Button1
|
Name
Text
|
Button1
START
|
|
RectsngleShape1
|
Name
Text
|
RectangleShape1
|
Listing
yang digunakan adalah :
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
Private Sub Label1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
End
Class
Pengertian dari listing di
atas adalah listing tersebut berguna jika button1 (START) diklik, maka form
selanjutnya (form 2) akan muncul, sedangkan form ini (form 1) akan tersembunyi.
2.
Cara Menampilkan
Form Dimension
Komponen
toolbox yang digunakan :
Form
|
Komponen
|
Properties
|
Keterangan
|
Form2
|
Form2
|
Name
Text
|
Form2
Dimension
|
Picturebox1
|
Name
Text
|
Picturebox1
|
|
Picturebox2
|
Name
Text
|
Picturebox2
|
|
Picturebox3
|
Name
Text
|
Picturebox3
|
|
Label1
|
Name
text
|
Label1
EXIT
|
Listing yang
digunakan :
Public Class Form2
Private
Property Response As MsgBoxResult
Private
Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles PictureBox1.Click
Form3.show()
Me.Hide()
End Sub
Listing di
atas berguna jika picturebox1 (gambar 2D) diklik, maka form 3 akan muncul dan
form ini akan disembunyikan.
Private
Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles PictureBox2.Click
Form4.Show()
Me.Hide()
End Sub
Listing di
atas berguna jika picturebox2 (gambar 3D) diklik, maka form 4 akan muncul dan
form ini akan disembunyikan.
Private
Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles PictureBox3.Click
Response = MsgBox("Do you want to Exit?", vbYesNo,
"Exit")
If
Response = vbYes Then
Form1.Close()
Else
'do nothing
End
If
End Sub
Listing di
atas berguna jika picturebox3 (gambar power) diklik, maka akan muncul message
box “Do you want to Exit?” jika pengguna mengklik “Ya” maka aplikasi akan
ditutup. Jika pengguna mengklik “Tidak” maka aplikasi tidak akan ditutup dan
form ini akan tetap muncul di layar.
Private
Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Label1.Click
Response = MsgBox("Do you want to Exit?", vbYesNo,
"Exit")
If
Response = vbYes Then
Form1.Close()
Else
'do nothing
End
If
End Sub
Listing di
atas berguna jika label1 (EXIT) diklik, maka akan muncul message box “Do you
want to Exit?” jika pengguna mengklik “Ya” maka aplikasi akan ditutup. Jika
pengguna mengklik “Tidak” maka aplikasi tidak akan ditutup dan form ini akan
tetap muncul di layar.
End Class
3. Cara Menampilkan Form 2D
Komponen toolbox yang digunakan :
Form
|
Komponen
|
Properties
|
Keterangan
|
Form3
|
Form3
|
Name
Text
|
Form3
2D
|
Radiobutton1
|
Name
Text
|
Radiobutton1
Circle
|
|
Radiobutton2
|
Name
Text
|
Radiobutton2
Rectangle
|
|
Radiobutton3
|
Name
Text
|
Radiobutton3
Square
|
|
Radiobutton4
|
Name
Text
|
Radiobutton4
Triangle
|
|
Groupbox1
|
Name
Text
|
Groupbox1
Circle
|
|
Groupbox2
|
Name
Text
|
Groupbox2
Rectangle
|
|
Groupbox3
|
Name
Text
|
Groupbox3
Square
|
|
Groupbox4
|
Name
Text
|
Groupbox4
Triangle
|
|
Label1
|
Name
Text
|
Label1
Radius
|
|
Label2
|
Name
Text
|
Label2
Circle Area
|
|
Label3
|
Name
Text
|
Label3
Side
|
|
Label4
|
Name
Text
|
Label4
Square Area
|
|
Textbox1
|
Name
Text
|
Textbox1
|
|
Textbox2
|
Name
Text
|
Textbox2
|
|
Textbox3
|
Name
Text
|
Textbox3
|
|
Textbox4
|
Name
Text
|
Textobx4
|
|
Button1
|
Name
Text
|
Button1
Generate
|
|
Button2
|
Name
Text
|
Button2
Generate
|
|
Label5
|
Name
Text
|
Label5
Rectangle Area
|
|
Label6
|
Name
Text
|
Label6
Length
|
|
Label7
|
Name
Text
|
Label7
Width
|
|
Label8
|
Name
Text
|
Label8
Base
|
|
Label9
|
Name
Text
|
Label9
Height
|
|
Label10
|
Name
Text
|
Label10
Triangle Area
|
|
Label11
|
Name
Text
|
Label11
Area Max 220x220
|
|
Button3
|
Name
Text
|
Button3
Generate
|
|
Button4
|
Name
Text
|
Button4
Reset
|
|
Button5
|
Name
Text
|
Button5
Back
|
|
Button6
|
Name
Text
|
Button6
Generate
|
|
Groupbox5
|
Name
Text
|
Groupbox5
Preview
|
|
Picturebox1
|
Name
Text
|
Pictureobox1
|
|
Picturebox2
|
Name
Text
|
Picturebox2
|
|
Picturebox3
|
Name
Text
|
Picturebox3
|
|
Picturebox4
|
Name
Text
|
Picturebox4
|
Listing yang digunakan :
Public Class Form3
Dim
luasling As Integer
Dim
radius As Integer
Dim
luaspers As Integer
Dim side
As Integer
Dim
luaspp As Integer
Dim
length As Integer
Dim lebar
As Integer
Dim alas
As Integer
Dim
tinggi As Integer
Dim
luassg As Integer
Listing di atas berguna untuk mendeklarasikan nilai-nilai
yang akan diinput ke dalam form 2D bernilai bilangan bulat.
Private Sub Form3_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = False
PictureBox4.Visible = False
GroupBox1.Visible = False
GroupBox2.Visible = False
GroupBox3.Visible = False
GroupBox4.Visible
= False
End Sub
Listing di
atas berguna jika form 3 (form 2D) muncul, maka picturebox1-4 dan groupbox1-4
akan tidak akan kelihatan.
Private
Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton1.CheckedChanged
GroupBox1.Visible = True
GroupBox2.Visible = False
GroupBox3.Visible = False
GroupBox4.Visible = False
PictureBox1.Hide()
PictureBox2.Hide()
PictureBox3.Hide()
PictureBox4.Hide()
End Sub
Listing di
atas berguna jika radiobutton1 (Circle) diklik, maka groupbox1 akan muncul,
sedangkan groupbox dan picturebox yang lain tetap tersembunyi.
Private
Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton2.CheckedChanged
GroupBox1.Visible = False
GroupBox2.Visible = False
GroupBox3.Visible = True
GroupBox4.Visible = False
PictureBox1.Hide()
PictureBox2.Hide()
PictureBox3.Hide()
PictureBox4.Hide()
End Sub
Listing di atas berguna jika radiobutton2 (Rectangle)
diklik, maka groupbox3 akan muncul, sedangkan groupbox yang lain tetap
tersembunyi begitu juga dengan pictureboxnya.
Private
Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton3.CheckedChanged
GroupBox1.Visible = False
GroupBox2.Visible = True
GroupBox3.Visible = False
GroupBox4.Visible = False
PictureBox1.Hide()
PictureBox2.Hide()
PictureBox3.Hide()
PictureBox4.Hide()
End Sub
Listing di atas berguna jika radiobutton3 (Square)
diklik, maka groupbox2 akan muncul dan groupbox yang lain tetap tersembunyi
begitu juga dengan picturebox.
Private
Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton4.CheckedChanged
GroupBox1.Visible = False
GroupBox2.Visible = False
GroupBox3.Visible = False
GroupBox4.Visible = True
PictureBox1.Hide()
PictureBox2.Hide()
PictureBox3.Hide()
PictureBox4.Hide()
End Sub
Listing di
atas berguna jika radiobutton4 (Triangle) diklik, maka groupbox4 akan muncul
dan groupbox yang lain tetap tersembunyi begitu juga dengan picturebox.
Private
Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox1.TextChanged
radius = Val(TextBox1.Text)
End Sub
Listing di atas berguna agar pada textbox1 nilai yang
diinput adalah nilai radius untuk menggambar suatu lingkaran.
Private
Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
luasling = 22 / 7 * radius ^ 2
TextBox2.Text = luasling
PictureBox1.Visible = True
PictureBox2.Visible = False
PictureBox3.Visible = False
PictureBox4.Visible = False
PictureBox1.Width = TextBox1.Text * 2
PictureBox1.Height = TextBox1.Text * 2
End Sub
Listing di
atas berguna jika button1 (Generate) diklik, maka akan dilakukan proses
perhitungan sesuai rumus yang ada luas lingkaran yang hasilnya dapat berupa
gambar dan dapat dilihat pada groupbox preview dan juga berupa nilai pada
textbox2.
Private
Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox3.TextChanged
side = Val(TextBox3.Text)
End Sub
Listing di
atas berguna untuk membaca nilai yang diinput pada textbox3 sebagai bilangan
untuk menghitung sisi.
Private
Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
luaspers = side ^ 2
TextBox4.Text = luaspers
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = True
PictureBox4.Visible = False
PictureBox3.Width = TextBox3.Text
PictureBox3.Height = TextBox3.Text
End Sub
Listing di atas berguna jika button2 (Generate)
diklik, maka akan dilakukan proses perhitungan sesuai rumus yang ada mencari
luas persegi yang hasilnya dapat berupa gambar dilihat pada groupbox preview
dan berupa nilai pada textbox3.
Private
Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox6.TextChanged
length = Val(TextBox6.Text)
End Sub
Listing di
atas berguna untuk membaca nilai yang diinput pada textbox6 sebagai bilangan
untuk menghitung panjang.
Private
Sub TextBox7_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox7.TextChanged
lebar
= Val(TextBox7.Text)
End Sub
Listing di
atas berguna untuk membaca nilai yang diinput pada textbox7 sebagai bilangan
untuk menghitung lebar.
Private
Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click
luaspp = length * lebar
TextBox5.Text
= luaspp
PictureBox1.Visible = False
PictureBox2.Visible = True
PictureBox3.Visible = False
PictureBox4.Visible = False
PictureBox2.Width = TextBox6.Text
PictureBox2.Height = TextBox7.Text
End Sub
Listing di
atas berguna jika button3 diklik (Generate), maka akan dilakukan proses
perhitungan sesuai rumus yang ada mencari luas persrgi panjang dari nilai-nilai
yang telah diinput. Hasilnya dapat berupa gambar yang dilihat di groupbox
preview dan berupa nilai pada textbox5.
Private
Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox8.TextChanged
alas
= Val(TextBox8.Text)
End Sub
Listing di
atas berguna untuk membaca nilai yang diinput pada textbox8 sebagai bilangan
untuk menghitung alas.
Private
Sub TextBox9_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox9.TextChanged
tinggi = Val(TextBox9.Text)
End Sub
Listing di
atas berguna untuk membaca nilai yang diinput pada textbox9 sebagai bilangan
untuk menghitung tinggi.
Private
Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button6.Click
luassg = alas * tinggi / 2
TextBox10.Text
= luassg
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = False
PictureBox4.Visible = True
PictureBox4.Width = TextBox8.Text
PictureBox4.Height = TextBox9.Text
End Sub
Listing di
atas berguna jika button6 (Generate) dikli, maka akan dilakukan proses
perhitungan sesuai rumus yang ada mencari luas segitiga dari nilai-nilai yang
telah diinput. Hasilnya dapat berupa gambar yang dilihat di preview dan berupa
nilai pada tetxbox10.
Private
Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button4.Click
TextBox1.ResetText()
TextBox2.ResetText()
TextBox3.ResetText()
TextBox4.ResetText()
TextBox5.ResetText()
TextBox6.ResetText()
TextBox7.ResetText()
TextBox8.ResetText()
TextBox9.ResetText()
TextBox10.ResetText()
PictureBox1.Hide()
PictureBox2.Hide()
PictureBox3.Hide()
PictureBox4.Hide()
End Sub
Listing di
atas berguna jika button4 (Reset) diklik, maka semua nilai maupun gambar akan
disembunyikan kembali sehingga form2D akan tampak seperti saat pertama kali
dibuka.
Private
Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button5.Click
Form2.Show()
Me.Close()
End Sub
End Class
Listing di atas berguna jika button5 diklik, maka form 2
(Dimension) akan muncul dan form ini (2D) akan disembunyikan.
4.
Cara Menampilkan Form 3D
Komponen toolbox yang digunakan :
Form
|
Komponen
|
Properties
|
Keterangan
|
Form4
|
Form4
|
Name
Text
|
Form4
3D
|
Radiobutton1
|
Name
Text
|
Radiobutton1
Cube
|
|
Radiobutton2
|
Name
Text
|
Radiobutton2
Cuboid
|
|
Radiobutton3
|
Name
Text
|
Radiobutton3
Cylinder
|
|
Groupbox1
|
Name
Text
|
Groupbox1
Cube
|
|
Groupbox2
|
Name
Text
|
Groupbox2
Cuboid
|
|
Groupbox3
|
Name
Text
|
Groupbox3
Priview
|
|
Groupbox4
|
Name
Text
|
Groupbox4
Cylinder
|
|
Label1
|
Name
Text
|
Label1
Sides
|
|
Label2
|
Name
Text
|
Label2
Cube Volume
|
|
Label3
|
Name
Text
|
Label3
Length
|
|
Label4
|
Name
Text
|
Label4
Width
|
|
Label5
|
Name
Text
|
Label5
Height
|
|
Label6
|
Name
Text
|
Label6
Cuboid Volume
|
|
Label10
|
Name
Text
|
Label10
Cylinder Volume
|
|
Label12
|
Name
Text
|
Label12
Height
|
|
Label13
|
Name
Text
|
Label13
Radius
|
|
Textbox1
|
Name
Text
|
Textbox1
|
|
Textbox2
|
Name
Text
|
Textbox2
|
|
Textbox3
|
Name
Text
|
Textbox3
|
|
Textbox4
|
Name
Text
|
Textbox4
|
|
Textbox5
|
Name
Text
|
Textbox5
|
|
Textbox6
|
Name
Text
|
Textbox6
|
|
Textbox10
|
Name
Text
|
Textbox10
|
|
Textbox12
|
Name
Text
|
Textbox12
|
|
Textbox13
|
Name
Text
|
Textbox13
|
|
Button1
|
Name
Text
|
Button1
Generate
|
|
Button2
|
Name
Text
|
Button2
Generate
|
|
Button3
|
Name
Text
|
Button3
Reset
|
|
Button4
|
Name
Text
|
Button4
Generate
|
|
Button5
|
Name
Text
|
Button5
Back
|
|
Picturebox1
|
Name
Text
|
Picturebox1
|
|
Picturebox2
|
Name
Text
|
Picturebox2
|
|
Picturebox3
|
Name
Text
|
Picturebox3
|
Listing yang digunakan :
Public Class Form4
Dim sisi
As Integer
Dim
volkubus As Integer
Dim
panjang As Integer
Dim lebar
As Integer
Dim
tggblk As Integer
Dim
volbalok As Integer
Dim
radius As Integer
Dim
tggsil As Integer
Dim
volsil As Integer
Listing di atas berguna untuk mendeklarasikan nilai-nilai
yang akan diinput ke dalam form 3D bernilai bilangan bulat.
Private Sub Form4_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = False
End Sub
Listing di
atas berguna jika form4 (3D) muncul, maka picturebox yang ada tidak akan
kelihatan.
Private
Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton1.CheckedChanged
GroupBox1.Visible = True
GroupBox2.Visible = False
GroupBox4.Visible = False
PictureBox1.Hide()
PictureBox2.Hide()
PictureBox3.Hide()
End Sub
Listing di atas berguna jika radiobutton1 (Cube) diklik,
maka groupbox1 akan muncul, sedangkan groupbox yang lain tetap tersembunyi
begitu juga dengan pictureboxnya.
Private Sub RadioButton2_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
GroupBox2.Visible = True
GroupBox1.Visible = False
GroupBox4.Visible = False
PictureBox1.Hide()
PictureBox2.Hide()
PictureBox3.Hide()
End Sub
Listing di
atas berguna jika radiobutton2 (Cuboid) diklik, maka groupbox2 akan muncul,
sedangkan groupbox yang lain tetap tersembunyi begitu juga dengan
pictureboxnya.
Private
Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles RadioButton3.CheckedChanged
GroupBox1.Hide()
GroupBox2.Hide()
GroupBox4.Show()
PictureBox1.Hide()
PictureBox2.Hide()
PictureBox3.Hide()
End Sub
Listing di
atas berguna jika radiobutton3 (Cylinder) diklik, maka groupbox4 akan muncul,
sedangkan groupbox yang lain tetap tersembunyi begitu juga dengan
pictureboxnya.
Private
Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox1.TextChanged
sisi
= Val(TextBox1.Text)
End Sub
Listing di
atas berguna untuk membaca nilai yang diinput pada textbox1 sebagai bilangan
untuk menghitung sisi.
Private
Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
volkubus = sisi ^ 3
TextBox2.Text = volkubus
PictureBox1.Visible = True
PictureBox2.Visible = False
PictureBox3.Visible = False
PictureBox1.Width = TextBox1.Text * 4
PictureBox1.Height = TextBox1.Text * 4
End Sub
Listing di
atas berguna jika button1 (Generate) diklik, maka akan dilakukan proses
perhitungan sesuai rumus yang ada volume kubus sesuai dengan rumus. Hasilnya
dapat berupa gambar yang dapat dilihat di groupbox preview dan berupa nilai
pada textbox2.
Private
Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles TextBox3.TextChanged
panjang = Val(TextBox3.Text)
End Sub
Listing di
atas berguna untuk membaca nilai yang diinput pada textbox3 sebagai bilangan
untuk menghitung panjang.
Private
Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox4.TextChanged
lebar
= Val(TextBox4.Text)
End Sub
Listing di
atas berguna untuk membaca nilai yang diinput pada textbox4 sebagai bilangan
untuk menghitung lebar.
Private
Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox5.TextChanged
tggblk = Val(TextBox5.Text)
End Sub
Listing di
atas berguna untuk membaca nilai yang diinput pada textbox5 sebagai bilangan
untuk menghitung tinggi.
Private
Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click
volbalok = panjang * lebar * tggblk
TextBox6.Text = volbalok
PictureBox1.Visible = False
PictureBox2.Visible = True
PictureBox3.Visible = False
PictureBox2.Width = TextBox3.Text * 2
PictureBox2.Height = TextBox5.Text * 2
End Sub
Listing di
atas berguna jika button2 (Generate) diklik, maka akan dilakukan proses
perhitungan sesuai rumus balok yang ada. Hasilnya dapat dilihat berupa gambar
pada groupbox preview dan berupa nilai pada textbox 6
Private
Sub TextBox13_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox13.TextChanged
radius = Val(TextBox13.Text)
End Sub
Listing di
atas berguna untuk membaca nilai yang diinput pada textbox13 sebagai bilangan
untuk menghitung radius suatu lingkaran.
Private
Sub TextBox12_TextChanged(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles TextBox12.TextChanged
tggsil = Val(TextBox12.Text)
End Sub
Listing di
atas berguna untuk membaca nilai yang diinput pada textbox12 sebagai bilangan
untuk menghitung tinggi.
Private
Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button4.Click
volsil = 22 / 7 * radius ^ 2 * tggsil
TextBox10.Text = volsil
PictureBox1.Visible = False
PictureBox2.Visible = False
PictureBox3.Visible = True
PictureBox3.Width = TextBox13.Text * 4
PictureBox3.Height = TextBox12.Text * 2
End Sub
Listing di atas berguna jika button4 (Generate) diklik,
maka akan dilakukan proses perhitungan mencari volume silinder sesuai rumus. Hasilnya dapat berupa gambar pada groupbox preview dan
berupa nilai pada textbox10.
Private
Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click
TextBox1.ResetText()
TextBox2.ResetText()
TextBox3.ResetText()
TextBox4.ResetText()
TextBox5.ResetText()
TextBox6.ResetText()
TextBox10.ResetText()
TextBox12.ResetText()
TextBox13.ResetText()
PictureBox1.Hide()
PictureBox2.Hide()
PictureBox3.Hide()
End Sub
Listing di
atas berguna jika button3 (Reset) diklik, maka semua nilai maupun gambar akan
disembunyikan kembali sehingga form 3D akan tampak seperti saat pertama kali
dibuka.
Private
Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button5.Click
Form2.Show()
Me.Close()
End Sub
Listing di atas berguna jika button5 (Back) diklik, maka
form2 (Dimension) akan dimunculkan dan form ini (3D) akan tersembunyi.
End Class
B. KONSEP PROGRAM LUAS DAN VOLUME
Program luas dan volume ini berguna untuk mengetahui luas
dari bangun 2d dan volume dari bangun 3d. Program ini dapat digunakan dengan
cara mengisi panjang sisi sisi yang diinginkan, lalu akan muncul hasil luas (jika
bangun 2d) beserta tampilan gambarnya, dan akan muncul hasil volume (jika
bangun 3d) beserta tampilan gambarnya.
Di dalam program ini, terdapat 2 menu utama terpisah,
yaitu menu 2d dan 3d. Di dalamnya terdapat banyak pilihan yang bisa
dikombinasikan.
Di dalam menu
bangun 2d terdapat pilihan:
1.
circle
2.
rectangle
3.
square
4.
triangle
Di
dalam menu 2d ini terdapat kolom kolom sisi yang dapat diisi sesuai bangunnya.
Misalnya, kita ingin menampilkan lingkaran dengan radius 9, maka bisa diisikan
radiusnya di dalam kotak radius. Setelah memasukkan data yang diinginkan, klik
tombol “generate“, lalu akan muncul gambar sesuai data yang dimasukkan, dan
akan muncul hasil luasnya.
Di dalam menu
bangun 3d terdapat pilihan:
1.
cube
3.
cylinder
Di
dalam menu 3d ini terdapat kolom kolom sisi yang dapat diisi sesuai bangunnya.
Misalnya, kita ingin menampilkan cube dengan sisi 10, maka bisa diisikan
sisinya di dalam kolom “sides“. Setelah memasukkan data yang diinginkan, klik
tombol “generate“, lalu akan muncul gambar sesuai data yang dimasukkan, dan
akan muncul hasil volumenya.
C. Flowchart
0 Response to "Analisis, Konsep, dan Flowchart Aplikasi Bangun 2D dan 3D"
Posting Komentar