Program Bangun

Konsep Aplikasi Program Bangun 

1.     DESKRIPSI

Aplikasi program bangun datar dan Bangun ruang adalah Aplikasi yang dugunakan untuk membuat bangun datar dan bangun ruang , dimana tinggal memasukan panjang rusuk yang diinginkan, sudah dapat mengetahui Luas ( bangun datar ) , Volume ( bangun ruang ) dan Gambarnya.

2.     TUJUAN

      Untuk memenuhi tugas praktikum teknologi informatika

      Penerapan fungsi aritmatika pada Bangunan Dua dimensi dan Tiga dimensi

      Menghitung hitungan matematis

      Mendapatkan gambar dari bangunan dua dimensi dan tiga dimensi

3.     MANFAAT

·         Digunakan untuk melakukan perhitungan matematis

·         Membantu pengguna membuat bangunan dua dimensi dan tiga dimensi

4.     USER/PENGGUNA PROGRAM

Semua masyarakat yang akan melakukan perhitungan matematis untuk membuat bangunan dua dan tiga dimensi

5.    RINCIAN PROGRAM

·         Pengguna dapat dengan cepat mengetahui Luas dan gambar dari bangunan dua dimensi dari Persegi

·         Pengguna dapat dengan cepat mengetahui Luas dan gambar dari bangunan dua dimensi dari Persegi Panjang

·         Pengguna dapat dengan cepat mengetahui Luas dan gambar dari bangunan dua dimensi dari lingkaran

·         Pengguna dapat dengan cepat mengetahui Volume dan gambar dari bangunan tiga dimensi dari kubus

·         Pengguna dapat dengan cepat mengetahui Luas dan gambar dari bangunan tiga dimensi dari Balok

6.    SASARAN USER

Semua orang yang ingun belajar membuat Bangun Datar danBangun Ruang.

FLOWCHART

 TUTORIAL

Pertama bukalah program Visual Basic 2010

Kemudian Pilih New Project

Dan membuat Lima Form

Dengan cara memilih Add Windows Form

Form1

Form2

Form3

Form4

Form5

Form6

Form7

Komponen ToolBox yang digunakan :

No	Komponen	Properties	Keterangan
1	Form1	Name Text BackColor ForeColor	Form1 Bangun 2D dan 3D Ivory OrangeRed
2	Label1	Name Text	Label1 Selamat Datang
3	Button1	Name Text	Button2 Masuk
4	Form2	Name Text BackColor ForeColor	Form2 Pilih Bangun Khaki black
5	Label1	Name Text	Label1 Persegi
6	Label2	Name Text	Label2 Persegi Panjang
7	Label3	Name Text	Label3 Lingkaran
8	Label4	Name Text	Label4 Kubus
9	Label5	Name Text	Label5 Balok
10	Button1	Name Text	Button1 Buat
11	Button2	Name Text	Button2 Buat
12	Button3	Name Text	Button3 Buat
13	Button4	Name Text	Button4 Buat
14	Button5	Name Text	Button5 Buat
15	Button6	Name Text	Button6 Kembali
16	Form3	Name Text BackColor ForeeColor	Form3 Persegi Light Golden Yellow Navy
17	Label1	Name Text	Label1 Sisi
18	TextBox1	Name Text	TextBox1
19	TextBox2	Name Text	TextBox2
20	Button1	Name Text	Button1 Luas
21	Button2	Name Text	Button2 Kembali
22	Button3	Name Text	Button3 Reset
23	RectangleShape1	Name Text	RectangleShape1
24	Form4	Name Text BackColor ForeColor	Form4 Persegi Panjang Lavender Blue
25	Label1	Name Text	Label1 Panjang
26	Label2	Name Text	Label2 Lebar
27	TextBox1	Name Text	TextBox1
28	TextBox2	Name Text	TextBox2
29	TextBox3	Name Text	TextBox3
30	Button1	Name Text	Button1 Luas
31	Button2	Name Text	Button2 Kembali
32	Button3	Name Text	Button3 Reset
33	RectangleShape1	Name Text	RectangleShape1
34	Form5	Name Text ForeColor BackColor	Form5 Lingkaran Dim Gray Turquoise
35	Label1	Name Text	Label1 Jari jari
36	TextBox1	Name Text	TextBox1
37	TextBox2	Name Text	TextBox2
38	OvalShape1	Name Text	OvalShape1
39	Button1	Name Text	Button1 Luas
40	Button2	Name Text	Button2 Kembali
41	Button3	Name Text	Button3 Reset
42	Form6	Name Text ForeColor BackColor	Form6 Kubus Cadet Blue Light Green
43	Label1	Name Text	Label1 Sisi
44	TextBox1	Name Text	TextBox1
45	TextBox2	Name Text	TextBox2
46	Panel1	Name Text	Panel1
47	Button1	Name Text	Button1 Volume
48	Button2	Name Text	Button2 Kembali
49	Button3	Name Text	Button3 Reset
50	Form7	Name Text Fore Color Back Color	Form7 Balok Brown Lemon Chiffon
51	Label1	Name Text	Label1 Panjang
52	Label2	Name Text	Label2 Lebar
53	Label3	Name Text	Label3 Tinggi
54	TextBox1	Name Text	TextBox1
55	TextBox2	Name Text	TextBox2
56	TextBox3	Name Text	TextBox3
57	TextBox4	Name Text	TextBox4
58	Panel1	Name Text	Panel1
59	Button1	Name Text	Button1 Volume
60	Button2	Name Text	Button2 Kembali
61	Button3	Name Text	Button3 Reset

2.     ANALISIS LISTING

Form1

1.      Jika ingin menampilkan Form 2 maka, klik Button1.

Public Class Form1

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

        Form2.Show()

        Me.Hide()

      

    End Sub

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

        Me.ForeColor = Color.OrangeRed

        Me.BackColor = Color.Ivory

    End Sub

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

    End Sub

End Class

Form2

2.       Jika ingin Menampilkan Persegi :

Public Class Form2

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

        Form11.Show()

        Me.Hide()

      

    End Sub

3.  Jika Ingin menmpilkan Persegi Panjang :

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

        Form4.Show()

        Me.Hide()

       

    End Sub

4.      Jika ingin Menampilkan Lingkaran :

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

        Form7.Show()

        Me.Hide()

       

    End Sub

5.      Jika ingin Menampilkan Kubus :

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

        Form8.Show()

        Me.Hide()

       

    End Sub

6.      Jika ingin menapilkan Balok:

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Form9.Show()

        Me.Hide()

       

    End Sub

7.      Jika ingin kembali ke Form 1 :

    Private Sub Button7_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

        Form1.Show()

        Me.Hide()

       

    End Sub

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

        Me.ForeColor = Color.Black

        Me.BackColor = Color.Khaki

    End Sub

8.      Jika ingin menutup Program :

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Me.Close()

    End Sub

End Class

Form3

9.      Jika ingin menulis Sisi Persegi :

Public Class Form3

    Dim LuasPersegi As Single

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

        TextBox1.Text = Val(TextBox1.Text)

       

    End Sub

10.  Untuk menghitung Luas Pesegidan mendapatkan gambar:

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

        LuasPersegi = TextBox1.Text ^ 2

        TextBox2.Text = LuasPersegi

        RectangleShape1.Visible = True

        RectangleShape1.Width = TextBox1.Text * 2

        RectangleShape1.Height = TextBox1.Text * 2

       

    End Sub

11.  Jika ingin kembali ke Form 2:

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

        Form2.Show()

        Me.Hide()

       

    End Sub

12. Untuk Me-Reset data dan Gambar:

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        RectangleShape1.Refresh()

       

    End Sub

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

        Me.ForeColor = Color.Navy

        Me.BackColor = Color.LightGoldenrodYellow

    End Sub

13.  Untuk merubah ke Form2 :

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

        Form2.Show()

        Me.Hide()

    End Sub

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

    End Sub

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

    End Sub

End Class

Form4

14.  Jika ingin  memasukan Panjang persegi panjang :

Public Class Form4

    Dim LuasPersegiPanjang As Single

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

        TextBox1.Text = Val(TextBox1.Text)

    End Sub

15. Jika ingin memasukan Lebar Persegi panjang :

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

        TextBox2.Text = Val(TextBox2.Text)

            End Sub

16. Jika ingin menghitung Luas Persegi Panjang dan gambar :

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

        LuasPersegiPanjang = TextBox1.Text * TextBox2.Text

        TextBox3.Text = LuasPersegiPanjang & "m2"

        RectangleShape1.Visible = True

        RectangleShape1.Width = TextBox1.Text * 2

        RectangleShape1.Height = TextBox1.Text * 4

    End Sub

17.  Jika ingin kembali ke Form2:

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

        Form2.Show()

        Me.Hide()

       

    End Sub

18.  Jika ingin me-Reset data dan gambar :

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        RectangleShape1.Refresh()

       

    End Sub

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

    End Sub

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

        Me.ForeColor = Color.Blue

        Me.BackColor = Color.Lavender

    End Sub

End Class

Form 5

19.   Jika ingin memasukan jari jari lingkaran :

Public Class Form5

    Dim LuasLingkaran As Single

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

        TextBox1.Text = Val(TextBox1.Text)

            End Sub

20.  Jika ingin menghitung luas dan Gambar Lingkaran:

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

        LuasLingkaran = 22 / 7 * TextBox1.Text ^ 2

        TextBox2.Text = LuasLingkaran

        OvalShape1.Visible = True

        OvalShape1.Width = TextBox1.Text * 2

        OvalShape1.Height = TextBox1.Text * 2

       

    End Sub

21.    Untuk kembali ke Form2:

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

        Form2.Show()

        Me.Hide()

    End Sub

22.  Jika ingin me-Reset data dan gambar :

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        OvalShape1.Refresh()

       

    End Sub

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

        Me.ForeColor = Color.DimGray

        Me.BackColor = Color.Turquoise

    End Sub

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

    End Sub

End Class

Form 6

23.   Jika ingin memasukan Sisi kubus :

Public Class Form6

    Dim VolumeKubus As Single

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

        TextBox1.Text = Val(TextBox1.Text)

       

    End Sub

24.  Jika ingin memasukan Luas kubus dan Gambar :

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

        VolumeKubus = TextBox1.Text ^ 3

        TextBox2.Text = VolumeKubus

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

        height = TextBox1.Text

        myRect.Width = TextBox1.Text

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

        'Volume diketahui'

    End Sub

25.  Jika ingin kembali ke Form :

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

        Form2.Show()

        Me.Hide()

      

    End Sub

26.  Jika ingin me-Reset data dan Gambar:

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        Panel1.Refresh()

    

    End Sub

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

        Me.ForeColor = Color.CadetBlue

        Me.BackColor = Color.LightGreen

    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

27.  Jika ingin memasukan panjang Balok :

Public Class Form7

    Dim VolumeBalok As Single

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

        TextBox1.Text = Val(TextBox1.Text)

      

    End Sub

28.  Jika ingin memasukan Lebar Balok :

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

        TextBox2.Text = Val(TextBox2.Text)

       

    End Sub

29.  Jika ingin memasukan Tinggi Balok :

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

        TextBox3.Text = Val(TextBox3.Text)

      

    End Sub

30.  Jika ingin kembali ke Form2:

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

        Form2.Show()

        Me.Hide()

       

    End Sub

31.  Jika ingin me-Reset data dan gambar :

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        Panel1.Refresh()

     

    End Sub

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

        Me.ForeColor = Color.Brown

        Me.BackColor = Color.LemonChiffon

    End Sub

32.    Jika ingin menghitung Volume dan Gambar :

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

        VolumeBalok = TextBox1.Text * TextBox2.Text * TextBox3.Text

        TextBox4.Text = VolumeBalok

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

        height = TextBox3.Text

        lebar = TextBox2.Text

        myRect.Width = TextBox1.Text

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

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

    End Sub

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

    End Sub

33.  Jika ingin kembali ke Form2:

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

        Form2.Show()

        Me.Hide()

    End Sub

End Class