Program Aplikasi 2D dan 3D

KONSEP PROGRAM APLIKASI 2D DAN 3D

·       

·         Judul Program

Program Aplikasi 2D dan 3D

·         Tujuan Program

Tujuan dibuatnya program ini adalah untuk memudahkan pemain untuk mengenal bentuk-bentuk dari jenis 2 dimensi seperti bujur sangkar, lingkaran, dan persegi panjang dan jenis 3 dimensi seperti kubus dan balok. Selain itu, memudahkan pemain aplikasi untuk melihat bentuk-bentuk tersebut dengan berbagai ukuran yang diinginkan pemain.

·         Sasaran Program

Program ini dibuat dengan sasaran pada pemain aplikasi baik di kalangan anak-anak atau dewasa.

·         Deskripsi Program

Program Aplikasi ini terdiri dari 7  Form, yakni :

1.       Form 1

Form ini berisikan awal untuk memulai permainan

2.       Form 2

Form ini berisikan pilihan-pilihan antara 2 dimensi atau 3 dimensi. Pemain hanya dapat memilih satu dari beberapa pilihan.

                    

3.       Form 3

       Form ini muncul ketika pada form 2 pemain memilih bangun lingkaran.

     Pada form ini akan ditampilkan beberapa kolom textbox untuk menunjukkan jari-jari dan setelah jari-jari di input, maka hasil akan muncul dan gambar lingkaran pun akan muncul.

4.       Form 4

Form ini ditampilkan ketika pemain memilih pilihan bujur sangkar. Ketika tampil form ini akan diberikan textbox untuk diisi ukuran sisi bujur sangkar dan gambar akan di tampilkan secara langsung.

5.       Form 5

Form ini muncul ketika pemain memilih piliha persegi panjang pada jenis dua dimensi. Pada form ini juga disediakan textbox yang kosong untuk ukuran panjang dan lebar pada persegi panjang. Setelah data dimasukkan, maka gambar akan tampil secara langsung.

6.       Form 6

Form ini mucul ketika pemain memilih pilihan 3 dimensi yaitu kubus. Saat form muncul akan ditampilkan textbox untuk menginput ukuran sisi pada kubus. Setelah ukuran di input, maka akan tampil hasil volume dan luas permukaan kubus. Setelah itu, gambar kubus akan tampil.

7.       Form 7

Form ini muncul ketika pemain memilih pilihan 3 dimensi yaitu balok. Ketika form muncul akan ada 3 textbox yang akan diinput panjang, lebar dan tebal dari balok. Setelah data diinput, maka akan ada hasil volume dan luas permukaan dari balok.  Setelah itu, secara langsung gambar akan dimunculkan.

8.       Message Box

Message Box ini akan ditampilkan saat pemain ingin mengakhiri permainan dengan menekan button finish di sebelah pojok kanan atas.

FLOWCHART

TUTORIAL PROGRAM APLIKASI 2D DAN 3D

Komponen Toolbox yang digunakan pada Program Aplikasi 2D dan 3D

Form 1

New Project  >> Windows Form Application >> Form 1 >>  Properties >> Text “Aplikasi Dua Dimensi dan Tiga Dimensi” >> Label 1 >> Properties >> Text “Aplikasi Dua Dimensi dan Tiga Dimensi” >> Label 2 >> Properties >> Text “Mari membuat bentuk sesukamu!!” >> Button 1 >> Properties >> Text “Mulai” >> Membuat Listing pada Button 1 >> Form >> Properties >> BackGroundImageLayout >> Picture

Komponen ToolBox	Properties	Keterangan
Label 1	Name Text	Label 1 Aplikasi Dua Dimensi dan Tiga DImensi
Label 2	Name Text	Label 2 Mari membuat bentuk sesukamu!!
Button 1	Name Text	Button 1 Mulai

Form 2

Project >> Add Windows Form >>Windows Form >> Form 2 >> Properties >> text “Dimensi” >> Label 2 >> Properties >> Text “2Dimensi” >> Label 3 >>  Properties >> Text “3Dimensi” >> OvalShape 1 >> Rectangle Shape1 >> RectangleShape2 >>  PictureBox1 >> Choose Image >> Picture Kubus >> PictureBox2 >> Choose Image >> Picture Balok >> Membuat Listing pada setiap Image >> Form >> Properties >> BackGroundImageLayout >> Picture

Komponen Toolbox	Properties	Keterangan
Form 2	Name Text	Form 2 Dimensi
Label 2	Name Text	Label 2 2Dimensi
Label 3	Name Text	Label 3 3Dimensi
OvalShape 1	Name Text	OvalShape 1
RectangleShape 1	Name Text	RectangleShape 1
RectangleShape 2	Name Text	RectangleShape 2
PictureBox1	Name Text	PictureBox 1
PictureBox2	Name Text	PictureBox 2

Form 3

Project >> Add Windows Form >>Windows Form >> Form 3 >> Properties >> text “Dua Dimensi” >> Label 1 >> Properties >> Text “Lingkaran” >> Label 2 >>  Properties >> Text “Keliling” >> Label 5 >> Properties >> Text “Jari-jari” >> Label 6 >> Properties >> Text “Luas” >> Button  1 >> Properties >> Text “Back” >> Button 2 >> Properties >> Text “ Finish” >> Button3 >> Properties  >> text “Reset” >> Button 4 >> Properties >> text “Hasil” >> Textbox1 >> TextBox3 >>TextBox4>> Panel 1 >> Membuat Listing >> Form >> Properties >> BackGroundImageLayout >> Picture

Komponen Toolbox	Properties	Keterangan
Form 3	Name Text	Form 3 Dua Dimensi
Label 1	Name Text	Label 1 Lingkaran
Label 2	Name Text	Label2 Keliling
Label 5	Name Text	Label5 Jari-Jari
Label 6	Name Text	Label6 Luas
Komponen Toolbox	Properties	Keterangan
Button 1	Name Text	Button1 Back
Button 2	Name Text	Button2 Finish
Button 3	Name Text	Button3 Reset
Button 4	Name Text	Button4 Hasil
TextBox3	Name Text	TextBox3
TextBox1	Name Text	TextBox1
TextBox 4	Name Text	TextBox4
Panel 1	Name Text	Panel1

Form 4

Project >> Add Windows Form >>Windows Form >> Form 4 >> Properties >> text “Dua Dimensi” >> Label 1 >> Properties >> Text “Bujur Sangkar” >> Label 2 >>  Properties >> Text “Keliling” >> Label 6 >> Properties >> Text “Luas” >> Label 8 >> Properties >> Text “Sisi” >> Button  1 >> Properties >> Text “Reset” >> Button 2 >> Properties >> Text “ Finish” >> Button3 >> Properties  >> text “Back” >> Button 4 >> Properties >> text “Hasil” >> Textbox1 >> TextBox4 >>TextBox6>> Panel 1 >> Membuat Listing >> Form >> Properties >> BackGroundImageLayout >> Picture

Komponen Toolbox	Properties	Keterangan
Form 4	Name Text	Form 4 Dua Dimensi
Label 1	Name Text	Label 1 Bujur Sangkar
Label 2	Name Text	Label2 Keliling
Label 6	Name Text	Label6 Luas
Label 8	Name Text	Label 8 Sisi
TextBox6	Nama Text	TextBox6
TextBox4	Name Text	TextBox4
TextBox1	Name Text	TextBox1
Button3	Name Text	Button3 Back
Button1	Name Text	Button1 Reset
Button4	Name Text	Button4 Hasil
Button2	Name Text	Button2 Finis
Panel1	Name Text	Panel1

Form 5

Project >> Add Windows Form >>Windows Form >> Form 5 >> Properties >> text “Dua Dimensi” >> Label 1 >> Properties >> Text “Persegi Panjang” >> Label 2 >>  Properties >> Text “Keliling” >> Label 3>> Properties >> Text “Panjang” >> Label 4 >> Properties >> Text “Lebar” >> Label 6 >> Properties >> Text “Luas” >> Button  1 >> Properties >> Text “Back” >> Button 2 >> Properties >> Text “ Finish” >> Button3 >> Properties  >> text “Reset” >> Button 4 >> Properties >> text “Hasil” >> Textbox1 >> TextBox2>> TextBox3 >> TextBox4  >> Panel 1 >> Membuat Listing >> Form >> Properties >> BackGroundImageLayout >> Picture

Komponen Toolbox	Properties	Keterangan
Form 5	Name Text	Form 5 Dua Dimensi
Label 1	Name Text	Label 1 Persegi Panjang
Label 2	Name Text	Label2 Keliling
Label 3	Name Text	Label3 Panjang
Label 4	Name Text	Label 4 Lebar
Label 6	Name Text	Label6 Luas
TextBox1	Nama Text	TextBox1
TextBox2	Name Text	TextBox2
TextBox3	Name Text	TextBox3
TextBox4	Name Text	TextBox4
Button1	Name Text	Button3 Back
Button2	Name Text	Button1 Finish
Button3	Name Text	Button4 Reset
Button4	Name Text	Button2 Hasil
Panel1	Name Text	Panel1

Form 6

Project >> Add Windows Form >>Windows Form >> Form 6 >> Properties >> text “Tiga Dimensi” >> Label 1 >> Properties >> Text “Kubus” >> Label 2 >>  Properties >> Text “Luas Permukaan” >> Label 7>> Properties >> Text “Volume” >> Label 8 >> Properties >> Text “Sisi” >> Button  1 >> Properties >> Text “Reset” >> Button 2 >> Properties >> Text “ Finish” >> Button3 >> Properties  >> text “Back” >> Button 4 >> Properties >> text “Hasil” >> Textbox1 >> TextBox2>> TextBox6 >> Panel 1 >> Membuat Listing >> Form >> Properties >> BackGroundImageLayout >> Picture

Komponen Toolbox	Properties	Keterangan
Form 6	Name Text	Form 6 Tiga Dimensi
Label 1	Name Text	Label 1 Kubus
Label 2	Name Text	Label2 Luas Permukaan
Label 7	Name Text	Label7 Volume
Label 8	Name Text	Label8 Lebar
TextBox1	Nama Text	TextBox1
TextBox2	Name Text	TextBox2
TextBox6	Name Text	TextBox6
Button1	Name Text	Button1 Reset
Button2	Name Text	Button2 Finish
Button3	Name Text	Button3 Back
Button4	Name Text	Button4 Hasil
Panel1	Name Text	Panel1

Form 7 

Project >> Add Windows Form >>Windows Form >> Form 7 >> Properties >> text “Tiga Dimensi” >> Label 1 >> Properties >> Text “Balok” >> Label 2 >>  Properties >> Text “Tebal” >> Label 3 >> Properties >> Text “Panjang” >> Label 4 >> Properties >> Text “Lebar” >> Label5 >> Properties >> Text “luas Permukaan” >> Label 6 >> Properties  >> Text “Volume” >> Button  1 >> Properties >> Text “Reset” >> Button 2 >> Properties >> Text “ Finish” >> Button3 >> Properties  >> text “Back” >> Button 4 >> Properties >> text “Hasil” >> Textbox1 >> TextBox2>> TextBox3 >> TextBox4 >> TextBox5 >> Panel 1 >> Membuat Listing >> Form >> Properties >> BackGroundImageLayout >> Picture

Komponen Toolbox	Properties	Keterangan
Form 7	Name Text	Form 7 Tiga Dimensi
Label 1	Name Text	Label 1 Balok
Label 2	Name Text	Label2 Tebal
Label 3	Name Text	Label3 Panjang
Label4	Name Text	Label 4 Lebar
Label 5	Name Text	Label 5 Luas Permukaan
Label 6	Name Text	Label6 Volume
TextBox1	Nama Text	TextBox1
TextBox2	Name Text	TextBox2
TextBox3	Name Text	TextBox3
TextBox4	Name Text	TextBox4
TextBox 5	Name Text	TextBox5
Button1	Name Text	Button1 Reset
Button2	Name Text	Button2 Finish
Button3	Name Text	Button3 Back
Button4	Name Text	Button4 Hasil
Panel1	Name Text	Panel1

LISTING PROGRAM APLIKASI 2D DAN 3D

                                  

Program Aplikasi 2D dan 3D memiliki 7 Form yang berbeda, yakni :

·         FORM 1

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

   End Class

ü Penjelasan :

Listing ini digunakan untuk menampilkan form 2 saat button 1 di klik dan secara langsung form 1 tersembunyi.

·         FORM 2

Public Class Form2

    Private Sub OvalShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OvalShape1.Click

        Form3.Show()

        Me.Hide()

    End Sub

ü Penjelasan :

Listing ini digunakan untuk menampilkan form 3 saat gambar lingkaran pada form 2 di klik. Setelah itu,  form 2 akan disembunyikan secara langsung.

                                                       

    Private Sub RectangleShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RectangleShape1.Click

        Form4.Show()

        Me.Hide()

    End Sub

ü Penjelasan :

Listing ini digunakan untuk menampilkan form 4 saat gambar bujur sangkar di klik pada form 2 dan kemudian form 2 akan otomatis disembunyikan.

    Private Sub RectangleShape2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RectangleShape2.Click

        Form5.Show()

        Me.Hide()

    End Sub

ü Penjelasan :

Listing ini digunakan untuk menampilkan form 5 saat gambar persegi panjang di klik pada form 2 dan kemudian form 2 akan otomatis disembunyikan.

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

        Form6.Show()

        Me.Hide()

    End Sub

ü Penjelasan :

Listing ini digunakan untuk menampilkan form 6 saat gambar kubus di klik pada form 2 dan kemudian form 2 akan otomatis disembunyikan.

    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click

        Form7.Show()

        Me.Hide()

    End Sub

End Class

ü Penjelasan :

Listing ini digunakan untuk menampilkan form 7 saat gambar balok di klik pada form 2 dan kemudian form 2 akan otomatis disembunyikan.

·         FORM 3

Public Class Form3

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

        Form2.Show()

        Me.Hide()

    End Sub

ü  Penjelasan :

Button 1 adalah back, sehingga pada saat di klik button 1 (back) maka program akan kembali ke program form 2 sebelumnya

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

        MsgBox("Terima Kasih telah mengunjungi Applikasi Dua Dimensi dan Tiga Dimensi")

        Close()

    End Sub

ü  Penjelasan :

Listing ini bertujuan untuk menampilkan peringatan dalam bentuk message box apabila pemain ingin menyelesaikan permainan dengan mengklik button finish.

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

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox1.Text = ""

        OvalShape1.Hide()

        Panel1.Refresh()

    End Sub

ü  Penjelasan :

Listing ini bertujuan untuk merefresh atau menghilangkan semua data yang telah diinput untuk menginput data yang baru dengan mengklik button reset.

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

        If TextBox3.Text = "" Then

            If TextBox4.Text = "" Then

                If TextBox1.Text = "" Then

                End If

            End If

            MsgBox("Masukkan Data terlebih dahulu", MsgBoxStyle.Critical)

        End If

        Dim r = TextBox3.Text

        TextBox4.Text = 3.14 * r * r  

ü  Penjelasan : Listing Rumus Luas Pada Lingkaran

        TextBox1.Text = 2 * 3.14 * r

ü  Penjelasan : Listing Rumus keliling pada Lingkaran

        OvalShape1.Show()

        OvalShape1.Height = r

        OvalShape1.Width = r

        OvalShape1.BackColor = Color.DarkRed

    End Sub

ü Penjelasan :

Listing ini bertujuan untuk memberi info bahwa r adalah jari-jari lingkaran dan warna border lingkaran.

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

        OvalShape1.Hide()

        CenterToScreen()

    End Sub

End Class

ü Penjelasan :

Listing ini bertujuan untuk menghilangkan / menyembunyikan lingkaran yang telah ada.

·        FORM 4

Public Class Form4

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

        Form2.Show()

        Me.Hide()

    End Sub

ü Penjelasan :

Button ini adalah back, sehingga pada saat di klik button 3 (back) maka program akan kembali ke program form 2 sebelumnya

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

        MsgBox("Terima Kasih telah mengunjungi Applikasi Dua Dimensi dan Tiga Dimensi")

        Close()

    End Sub

ü Penjelasan :

Listing ini bertujuan untuk menampilakn peringatan dalam bentuk message box
apabila pemain ingin menyelesaikan permainan dengan mengklik button finish.

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

        TextBox6.Text = ""

        TextBox4.Text = ""

        TextBox1.Text = ""

        RectangleShape1.Hide()

        Panel1.Refresh()

    End Sub

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

        If TextBox6.Text = "" Then

            MsgBox("Masukkan Data terlebih dahulu", MsgBoxStyle.Critical)

        End If

        If TextBox4.Text = "" Then

            TextBox6.Text = ""

            RectangleShape1.Hide()

        End If

        Dim s = TextBox6.Text

        TextBox4.Text = s * s

ü  Penjelasan :

Listing untuk menghitung luas persegi

        TextBox1.Text = 4 * s

ü  Penjelesan :

Listing untuk menghitung keliling persegi

        RectangleShape1.Show()

        RectangleShape1.Height = s

        RectangleShape1.Width = s

       

    End Sub

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

        RectangleShape1.Hide()

        CenterToScreen()

    End Sub

End Class

   

·        FORM 5

Public Class Form5

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

        Form2.Show()

        Me.Hide()

    End Sub

ü Penjelasan :

Button 1 adalah back, sehingga pada saat di klik button 1 (back) maka program akan kembali ke program form 2 sebelumnya

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

        MsgBox("Terima Kasih telah mengunjungi Applikasi Dua Dimensi dan Tiga Dimensi")

        Close()

    End Sub

ü Penjelasan :

Listing ini bertujuan untuk menampilkan peringatan dalam bentuk message box apabila pemain ingin menyelesaikan permainan dengan mengklik button finish.

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

        TextBox1.Text = ""

        TextBox4.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        RectangleShape1.Hide()

        Panel1.Refresh()

    End Sub

ü  Penjelasan :

Listing untuk merefresh data yang telah diinput apabila ingin mereset / mengulang memasukkan data yang berbeda

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

        Dim p = TextBox1.Text

        Dim l = TextBox2.Text

        If p = "" Then

            MsgBox("Maaf, masukkan data terlebih dahulu", MsgBoxStyle.Exclamation, "Error")

        ElseIf l = "" Then

            MsgBox("Maaf, masukkan data terlebih dahulu", MsgBoxStyle.Exclamation, "Error")

        Else

            TextBox4.Text = p * l

            TextBox3.Text = 2 * p + 2 * l

ü  Penjelasan :

Listing untuk menghitung luas dan keliling persegi panjang

        End If

        RectangleShape1.Height = p

        RectangleShape1.Width = l

        RectangleShape1.Show()

        If TextBox1.Text = "" Then

            TextBox2.Text = ""

            TextBox4.Text = ""

            RectangleShape1.Hide()

        End If

    End Sub

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

        RectangleShape1.Hide()

        CenterToScreen()

    End Sub

End Class

·        FORM 6

Public Class Form6

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

        Form2.Show()

        Me.Hide()

    End Sub

ü Penjelasan :

Button 3 adalah back, sehingga pada saat di klik button 3 (back) maka program akan kembali ke program form 2 sebelumnya

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

        MsgBox("Terima Kasih telah mengunjungi Applikasi Dua Dimensi dan Tiga Dimensi")

        Close()

    End Sub

ü Penjelasan :

     Listing ini bertujuan untuk menampilakn peringatan dalam bentuk message box apabila pemain ingin menyelesaikan permainan dengan mengklik button finish.

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

        TextBox6.Text = ""

        TextBox1.Text = ""

        TextBox2.Text = ""

        Panel1.Refresh()

    End Sub

ü  Penjelasan :

Listing untuk merefresh data yang telah diinput apabila ingin mereset / mengulang memasukkan data yang berbeda

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

        Dim s = TextBox6.Text

        TextBox1.Text = s ^ 3

        TextBox2.Text = 6 * s

ü  Penjelasan :

Listing untuk menghitung volume dan luas permukaan kubus

        If s = "" Then

            MsgBox("Maaf, masukkan data terlebih dahulu", MsgBoxStyle.Critical)

        End If

        Dim myGraphics As Graphics = Panel1.CreateGraphics

        Dim myPen As Pen

        myPen = New Pen(Drawing.Color.BlueViolet, 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 = TextBox6.Text

        height = TextBox6.Text

        myRect.Width = TextBox6.Text

        myRect.Height = TextBox6.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)

    End Sub

ü  Penjelasan :

Listing untuk menggambarkan kubus dengan data yang diinput

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

        CenterToScreen()

    End Sub

    Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

    End Sub

End Class

·        FORM 7

Public Class Form7

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

        Form2.Show()

        Me.Hide()

    End Sub

ü  Penjelasan :

Button 3 adalah back, sehingga pada saat di klik button 3 (back) maka program akan kembali ke program form 2 sebelumnya

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

        MsgBox("Terima Kasih telah mengunjungi Applikasi Dua Dimensi dan Tiga Dimensi")

        Close()

    End Sub

ü Penjelasan :

Listing ini bertujuan untuk menampilakn peringatan dalam bentuk message box apabila pemain ingin menyelesaikan permainan dengan mengklik button finish.

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

        TextBox1.Text = ""

        TextBox5.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox2.Text = ""

        Panel1.Refresh()

    End Sub

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

        Dim l = TextBox2.Text

        Dim p = TextBox1.Text

        Dim t = TextBox5.Text

        TextBox3.Text = p * l * t

        TextBox4.Text = 2 * p * t + 2 * p * t + 2 * l * t

ü  Penjelasan :

Listing untuk menghitung volume dan luas permukaan balok.

        If l = "" Or p = "" Or t = "" Then

            MsgBox("Maaf, masukkan data terlebih dahulu")

        End If

        Dim myGraphics As Graphics = Panel1.CreateGraphics

        Dim myPen As Pen

        myPen = New Pen(Drawing.Color.BlueViolet, 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 = TextBox2.Text

        height = TextBox1.Text

        lebar = TextBox5.Text

        myRect.Width = TextBox2.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)

    End Sub

ü  Penjelasan :

Listing untuk menggambarkan balok sesuai dengan data yang dimasukkan.

 

    Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

    End Sub

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

        TextBox1.Text = ""

        TextBox5.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox2.Text = ""

        Panel1.Refresh()

    End Sub

End Class