TUTORIAL PROGRAM APLIKASI BANGUN DUA DAN TIGA DIMENSI

TUTORIAL MEMBUAT PROGRAM APLIKASI

BANGUN DUA DAN TIGA DIMENSI

Nb: Program dapat diunduh pada bagian bawah halaman

Pertama-tama bukalah program Visual Basic 2010 dengan cara:
1. Klik "Start"
2. Pilih Microsoft Visual Basic 2010
3. Setelah mucul "Start Page" pilih "New Project"

 

 4. Setelah muncul halaman New Project pilih “Windows Forms Application”

5. Klik “OK”

6. Selanjutnya muncul lembar kerja Visual Basic yang biasa disebut Form

 7. Form diisi dengan berbagai komponen yang didapat melalui "Toolbox"

 

 8. Isi  form

NO	KOMPONEN	PROPERTIES	KETERANGAN
1	Form 1	Name	Form 1
		Text	Form 1
2	Label 1	Name	Label 1
		Text	What Do You Want ?
3	Button 1	Name	Button 1
		Text	2 Dimensi
4	Button 2	Name	Button 2
		Text	3 Dimensi
5	Button 3	Name	Button 3
		Text	Exit
6	Form 2	Name	Form 2
		Text	Form 2
7	Label 1	Name	Label 1
		Text	Shape
8	Label 2	Name	Label 2
		Text	Side
9	Label 3	Name	Label 3
		Text	Total Harga Pembayaran
10	Label 4	Name	Label 4
		Text	Width
11	Label 5	Name	Label 5
		Text	Height
12	Label 6	Name	Label 6
		Text	Radius
13	Label 7	Name	Label 7
		Text	! Satuan mm
14	Label 8	Name	Label 8
		Text	! Satuan mm
15	Label 9	Name	Label 9
		Text	! Satuan mm
16	Label 10	Name	Label 10
		Text	! Satuan mm
17	Label 11	Name	Label 11
		Text	! Satuan mm^2
18	Label 12	Name	Label 12
		Text	Circumference
19	Label 13	Name	Label 13
		Text	! Satuan mm
20	Button 1	Name	Button 1
		Text	COUNT
21	Button 2	Name	Button 2
		Text	SEE PICTURE
22	Button 3	Name	Button 3
		Text	DELETE ALL
23	Button 4	Name	Button 4
		Text	BACK
24	TextBox 1	Name	TextBox 1
		Text
25	TextBox 2	Name	TextBox 2
		Text
26	TextBox 3	Name	TextBox 3
		Text
27	TextBox 4	Name	TextBox 4
		Text
28	TextBox 5	Name	TextBox 5
		Text
29	ComboBox 1	Name	ComboBox 1
		Items	Square, Rectangle, Circle
30	Form 3	Name	Square
		Text	Form 3
31	Button 1	Name	Button 1
		Text	BACK
32	PictureBox 1	Name	PictureBox 1
		BackColor	Blue
33	Form 4	Name	Rectangular
		Text	Form 4
34	Button 1	Name	Button 1
		Text	BACK
35	PictureBox 1	Name	PictureBox 1
		BackColor	Red
36	Form 5	Name	Circle
		Text	Form 5
37	Button 1	Name	Button 1
		Text	BACK
38	OvalShape 1	Name	OvalShape 1
		BorderColor	Purple
39	Form 6	Name	Form 6
		Text	Form 6
40	Label 1	Name	Label 1
		Text	Shape
41	Label 2	Name	Label 2
		Text	Length
42	Label 3	Name	Label 3
		Text	Total Volume
43	Label 4	Name	Label 4
		Text	Width
44	Label 5	Name	Label 5
		Text	Height
45	Label 6	Name	Label 6
		Text	Radius
46	Label 7	Name	Label 7
		Text	! satuan mm
47	Label 8	Name	Label 8
		Text	! satuan mm
48	Label 9	Name	Label 9
		Text	! satuan mm
49	Label 10	Name	Label 10
		Text	! satuan mm
50	Label 11	Name	Label 11
		Text	! satuan mm^3
51	Label 12	Name	Label 12
		Text	! satuan mm^2
52	Label 13	Name	Label 13
		Text	Total Area
53	Button 1	Name	Button 1
		Text	COUNT
54	Button 2	Name	Button 2
		Text	SEE PICTURE
55	Button 3	Name	Button 3
		Text	DELETE ALL
56	Button 4	Name	Button 4
		Text	BACK
57	TextBox 1	Name	TextBox 1
		Text
58	TextBox 2	Name	TextBox 2
		Text
59	TextBox 3	Name	TextBox 3
		Text
60	TextBox 4	Name	TextBox 4
		Text
61	TextBox 5	Name	TextBox 5
		Text
62	TextBox 6	Name	TextBox 6
		Text
63	ComboBox 1	Name	ComboBox 1
		Items	Cube, Block, Cylinder
64	Form 7	Name	Cube
		Text	Form 7
65	Panel 1	Name	Panel 1
		Text
66	Button 1	Name	Button 1
		Text	BACK
67	Form 8	Name	Block
		Text	Form 8
68	Panel 1	Name	Panel 1
		Text
69	Button 1	Name	Button 1
		Text	BACK
70	Form 9	Name	Cylinder
		Text	Form 9
71	PictureBox 1	Name	PictureBox 1
		Image	System.Drawing.Bitmap
72	Button 1	Name	Button 1
		Text	BACK

ANALISIS LISTING

PADA FORM 1

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Form2.Show()

        Me.Hide()

    End Sub

Ket : untuk menampilkan form 2 dengan form 1 tidak ditampilkan.

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

        Form6.Show()

        Me.Hide()

    End Sub

Ket :untuk menampilkan form 6 dengan form 1 tidak ditampilkan.

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        MsgBox("Thanks for Using the Application :D")

        Close()

    End Sub

Ket : untuk menampilkan pesan jika akan keluar dari form 1

End Class

List ini bertujuan agar operator pengguna aplikasi dapat memilih salah satu antara 2 dimensi atau 3 dimensi sesuai yang diinginkan oleh pengguna aplikasi.

PADA FORM 2

Public Class Form2

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.Text = "Square" Then

            TextBox3.Hide()

            TextBox1.Hide()

            TextBox4.Hide()

            Label4.Hide()

            Label5.Hide()

            Label6.Hide()

            Label7.Hide()

            Label9.Hide()

            Label10.Hide()

          

            TextBox3.Text = ""

            TextBox1.Text = ""

            TextBox4.Text = ""

        ElseIf ComboBox1.Text = "Rectangle" Then

            TextBox2.Hide()

            TextBox4.Hide()

            Label2.Hide()

            Label6.Hide()

            Label8.Hide()

            Label9.Hide()

            TextBox4.Text = ""

            TextBox2.Text = ""

        ElseIf ComboBox1.Text = "Circle" Then

            TextBox2.Hide()

            TextBox3.Hide()

            TextBox1.Hide()

            Label4.Hide()

            Label5.Hide()

            Label2.Hide()

            Label7.Hide()

            Label8.Hide()

            Label10.Hide()

            TextBox3.Text = ""

            TextBox1.Text = ""

            TextBox2.Text = ""

        End If

    End Sub

       Ket : untuk menampilkan beberapa item seperti square, rectangle, circle. Jika memilih square maka hanya isi kolom side, jika memilih rectangle hanya isi kolom width dan height, jika memilih circle maka hanya isi radius.

      

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim phi = 3.14

        If ComboBox1.Text = "Square" Then

            TextBox5.Text = Val(TextBox2.Text) ^ 2

            TextBox6.Text = Val(TextBox2.Text) * 4

        End If

        If ComboBox1.Text = "Rectangle" Then

            TextBox5.Text = Val(TextBox1.Text) * Val(TextBox3.Text)

            TextBox6.Text = 2 * (Val(TextBox1.Text) + Val(TextBox3.Text))

        End If

        If ComboBox1.Text = "Circle" Then

            TextBox5.Text = phi * Val(TextBox4.Text) * Val(TextBox4.Text)

            TextBox6.Text = 2 * phi * Val(TextBox4.Text)

        End If

    End Sub

       Ket : Listing ini berisi rumus tentang keliling dan luas bangun 2D sehingga jika diklik keliling dan luas dapat dicari.

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

        If ComboBox1.Text = "Square" Then

            Square.Show()

            Square.PictureBox1.Show()

            Square.PictureBox1.Height = Val(Me.TextBox2.Text)

            Square.PictureBox1.Width = Val(Me.TextBox2.Text)

            Me.Hide()

        ElseIf ComboBox1.Text = "Rectangle" Then

            Rectangular.Show()

            Rectangular.PictureBox1.Show()

            Rectangular.PictureBox1.Height = Val(Me.TextBox1.Text)

            Rectangular.PictureBox1.Width = Val(Me.TextBox3.Text)

            Me.Hide()

        ElseIf ComboBox1.Text = "Circle" Then

            Circle.Show()

            Circle.OvalShape1.Show()

            Me.Hide()

            Circle.OvalShape1.Height = Val(Me.TextBox4.Text)

            Circle.OvalShape1.Width = Val(Me.TextBox4.Text)

            Me.Hide()

        End If

    End Sub

       Ket : Listing ini digunakan agar pengguna aplikasi dapat mengerti gambar dari 2D yang akan dicari yang besarnya sesuai dengan input data. 

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TextBox1.Show()

        TextBox2.Show()

        TextBox3.Show()

        TextBox4.Show()

        TextBox5.Show()

        Label2.Show()

        Label4.Show()

        Label5.Show()

        Label6.Show()

        Label7.Show()

        Label8.Show()

        Label9.Show()

        Label10.Show()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        ComboBox1.Text = Nothing

    End Sub

Ket : untuk menghapus semua text yang tertulis di textbox maupun combobox

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Form1.Show()

        Me.Hide()

    End Sub

       Ket : Listing ini digunakan agar kembali ke form1, yaitu ke menu utama.

    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress

        Dim masukan As Boolean = Char.IsDigit(e.KeyChar)

        If (Not masukan) Then e.Handled = True

    End Sub

Ket : untuk mengunci agar angka saja yang keluar

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub

    Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress

        Dim masukan As Boolean = Char.IsDigit(e.KeyChar)

        If (Not masukan) Then e.Handled = True

    End Sub

Ket : untuk mengunci agar angka saja yang keluar

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        Dim masukan As Boolean = Char.IsDigit(e.KeyChar)

        If (Not masukan) Then e.Handled = True

    End Sub

Ket : untuk mengunci agar angka saja yang keluar

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub TextBox4_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress

        Dim masukan As Boolean = Char.IsDigit(e.KeyChar)

        If (Not masukan) Then e.Handled = True

    End Sub

       Ket : Listing ini digunakan agar textbox hanya bisa diisi dengan karakter hanya angka saja atau selain karakter.

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

       

    End Sub

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged

    End Sub

    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click

    End Sub

End Class

PADA FORM 3

Public Class Square

    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

Ket : untuk menampilkan form 2 dengan form 3 tidak ditampilkan

PADA FORM 4

Public Class Rectangular

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub

    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

Ket : untuk menampilkan form 2 dengan form 4 tidak ditampilkan

PADA FORM 5

Public Class Circle

    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

Ket : untuk menampilkan form 2 dengan form 5 tidak ditampilkan

PADA FORM 6

Public Class Form6

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim phi = 3.14

        If ComboBox1.Text = "Cube" Then

            TextBox5.Text = Val(TextBox2.Text) * Val(TextBox2.Text) * Val(TextBox2.Text)

            TextBox6.Text = 6 * Val(TextBox2.Text) * Val(TextBox2.Text)

        End If

        If ComboBox1.Text = "Block" Then

            TextBox5.Text = Val(TextBox2.Text) * Val(TextBox1.Text) * Val(TextBox3.Text)

            TextBox6.Text = (2 * (Val(TextBox2.Text) + Val(TextBox1.Text))) + (2 * (Val(TextBox2.Text) + Val(TextBox3.Text))) + (2 * (Val(TextBox1.Text) + Val(TextBox3.Text)))

        End If

        If ComboBox1.Text = "Cylinder" Then

            TextBox5.Text = phi * Val(TextBox4.Text) * Val(TextBox4.Text) * Val(TextBox1.Text)

            TextBox6.Text = (phi * Val(TextBox4.Text) * Val(TextBox4.Text)) + (2 * phi * Val(TextBox4.Text) * Val(TextBox1.Text))

        End If

    End Sub

       Ket : Listing ini berisi rumus luas permukaan dan volume sehingga jika diklik akan muncul luas permukaan dan volumenya.

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

     

        Cube.Panel1.Refresh()

        Block.Panel1.Refresh()

        If ComboBox1.Text = "Cube" Then

            Cube.Show()

            Me.Hide()

            Cube.Panel1.Show()

            'untuk mendefinisikan objek gambar yang akan dibuat

            Dim myGraphics As Graphics = Cube.Panel1.CreateGraphics

            Dim myPen As Pen

            myPen = New Pen(Drawing.Color.DarkSeaGreen, 3)

            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 = TextBox2.Text

            height = TextBox2.Text

            myRect.Width = TextBox2.Text

            myRect.Height = TextBox2.Text

            myRect.X = 10

            myRect.Y = (10 + width / 2)

            myGraphics.DrawRectangle(myPen, myRect)

            myRect.X = (10 + width / 2)

            myRect.Y = 10

            myGraphics.DrawRectangle(myPen, myRect)

            x1 = 10

            y1 = (10 + width / 2)

            x2 = (10 + width / 2)

            y2 = 10

            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)

        ElseIf ComboBox1.Text = "Block" Then

            Block.Panel1.Show()

            Block.Show()

            Me.Hide()

            'untuk mendefinisikan objek gambar yang akan dibuat 

            Dim myGraphics As Graphics = Block.Panel1.CreateGraphics

            Dim myPen As Pen

            myPen = New Pen(Drawing.Color.IndianRed, 3)

            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 = TextBox1.Text

            lebar = TextBox2.Text

            myRect.Width = TextBox3.Text

            myRect.Height = TextBox1.Text

            myRect.X = 10

            myRect.Y = (10 + lebar / 2)

            myGraphics.DrawRectangle(myPen, myRect)

            myRect.X = (10 + lebar / 2)

            myRect.Y = 10

            myGraphics.DrawRectangle(myPen, myRect)

            x1 = 10

            y1 = (10 + lebar / 2)

            x2 = (10 + lebar / 2)

            y2 = 10

            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)

        ElseIf ComboBox1.Text = "Cylinder" Then

            Cylinder.Show()

            Cylinder.PictureBox1.Show()

            Cylinder.PictureBox1.Height = Val(Me.TextBox1.Text - 4)

            Cylinder.PictureBox1.Width = Val(Me.TextBox4.Text)

            Me.Hide()

        End If

    End Sub

Ket : Dengan listing ini, pengguna aplikasi dapat mengetahui gambar bentuk 3D sesuai dengan input yang diberikan.

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        TextBox1.Show()

        TextBox2.Show()

        TextBox3.Show()

        TextBox4.Show()

        Label2.Show()

        Label7.Show()

        Label4.Show()

        Label5.Show()

        Label6.Show()

        Label8.Show()

        Label9.Show()

        Label10.Show()

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        ComboBox1.Text = Nothing

    End Sub

Ket : untuk menghapus semua karakter berupa angka di textbox maupun combobox.

  

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Form1.Show()

        Me.Hide()

    End Sub

       Ket : Listing ini digunakan agar kembali ke menu utama.

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        If ComboBox1.Text = "Cube" Then

            TextBox3.Hide()

            TextBox1.Hide()

            TextBox4.Hide()

            Label4.Hide()

            Label5.Hide()

            Label6.Hide()

            Label8.Hide()

            Label9.Hide()

            Label10.Hide()

           

        ElseIf ComboBox1.Text = "Block" Then

            TextBox4.Hide()

            Label6.Hide()

            Label8.Hide()

          

        ElseIf ComboBox1.Text = "Cylinder" Then

            TextBox2.Hide()

            TextBox3.Hide()

            Label4.Hide()

            Label10.Hide()

            Label2.Hide()

            Label7.Hide()

        End If

           End Sub

Ket : Listing ini digunakan untuk memilih antara memilih Cube,Block, atau Cylinder dengan inputan masing-masing. Jika memilih cube, akan muncul length. Jika memilih block, akan muncul length, width, dan height. Jika Cylinder, akan muncul radius dan height.

    Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress

        Dim masukan As Boolean = Char.IsDigit(e.KeyChar)

        If (Not masukan) Then e.Handled = True

    End Sub

Ket : Listing ini digunakan agar textbox hanya bisa diisi dengan karakter hanya angka saja atau selain karakter.

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub

    Private Sub TextBox3_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress

        Dim masukan As Boolean = Char.IsDigit(e.KeyChar)

        If (Not masukan) Then e.Handled = True

    End Sub

Ket : Listing ini digunakan agar textbox hanya bisa diisi dengan karakter hanya angka saja atau selain karakter.

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

        Dim masukan As Boolean = Char.IsDigit(e.KeyChar)

        If (Not masukan) Then e.Handled = True

    End Sub

Ket : Listing ini digunakan agar textbox hanya bisa diisi dengan karakter hanya angka saja atau selain karakter.

    

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

    End Sub

    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

     

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

End Class

             

       Ket : Listing ini digunakan agar data yang terisi hanya angka saja.

PADA FORM 7

Public Class Cube

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Form6.Show()

        Me.Hide()

    End Sub

End Class

Ket : Listing ini digunakan untuk kembali ke menu utama 3D.

PADA FORM 8

Public Class Block

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.Hide()

        Form6.Show()

    End Sub

End Class

Ket : Listing ini digunakan untuk kembali ke menu utama 3D.

PADA FORM 9

Public Class Cylinder

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Me.Hide()

        Form6.Show()

    End Sub

Ket : Listing ini digunakan untuk kembali ke menu utama 3D.

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub

End Class

       Ket : Listing ini digunakan untuk kembali ke menu utama 3D.

 Untuk program dapat didownload di sini