“Program Dua dan Tiga Dimensi”
Tujuan
Program dua dan tiga dimensi ini bertujuan untuk memenuhi tugas modul 2 yang diberikan oleh asisten selain itu bertujuan membantu user dalam mencari luas bangun dua dimensi maupun bangun 3 dimensi.
Sasaran
Program aplikasi ini berguna untuk siswa maupun mahasiswa dalam mencari luas suatu bangun dua dimensi ataupun 3 dimensi.
Deskripsi
Program ini dibuat unttuk memudahkan seseorang untuk menghitung luas persegi, persegi panjang, dan lingkaran. Program ini juga dapat menghitung volume kubus dan balok dengan panjang, lebar, dan tinggi sesuai keinginan kita.
TUTORIAL :
1. Membuka Aplikasi Visual Basic 2010
2. Klik ok maka akan mucul tampilan seperti berikut
3. Menampilkan Toolbox yang akan digunakan untuk memunculkan toolbox, bisa dimunculkan dari menu bar -view – other windows – toolbox
4. Ubah nama Button dengan angka pada main form yang diinginkan
Komponen toolbox pada form main yang digunakan :
Komponen
|
Properties
|
Keterangan
|
Main
|
Name
Text
|
main
|
Label1
|
Name
Text
|
Label1
Mencari luas bangun
|
Button1
|
Name
Text
|
Button1
Keluar
|
Button2
|
Name
Text
|
Button2
Lanjut
|
Combobox1
|
Name
Text
|
Combobox1
Yang dicari.....
|
5. Masukan listingcode Berikut
Public Class Main
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim c = ComboBox1.Text
If c = "persegi" Then
Form1.Show()
Me.Hide()
ElseIf c = "persegi panjang" Then
Form2.Show()
Me.Hide()
ElseIf c = "lingkaran" Then
Form4.Show()
Me.Hide()
ElseIf c = "kubus" Then
Form3.Show()
Me.Hide()
ElseIf c = "balok" Then
Form5.Show()
Me.Hide()
ElseIf c = "Yang Dicari....." Then
MsgBox("Pilih Data Pencarian", MsgBoxStyle.Exclamation, "Error!")
End If
End Sub
- >> Pada listingcode button1yang ber-text “Lanjut” ini menggunakan bentuk if dan elseif untuk melanjutkan ke bentuk yang dipilih oleh user, contoh jika “c” atau combobox1 menuliskan kata persegi maka setelah itu program akan menampilkan ke form1 yang telah dipersiapkan sebelumnya. Jika persegi panjang maka akan ditampilkan form2 dan seterusnya.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
MsgBox("Terimakasih telah menggunakan aplikasi ini", MsgBoxStyle.Information, "")
End
End Sub
- >> Button2 text (keluar) ini berfungsi untuk keluar dari program dengan ditunjukannnya sebuah messagebox bertuliskan “Terimakasih telah menggunakan aplikasi ini”
Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
MsgBox("Program ini dibuat kelompok 28", MsgBoxStyle.Information, "About")
End Sub
- >>Toolstrip ini hanya berfungsi untuk menampilkan messagebox ketika user menekan text “äbout” di pojok kanan atas
Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CenterToScreen()
MsgBox("selamat datang di aplikasi pencari luas suatu bidang", MsgBoxStyle.Information)
End Sub
- >> Ketika aplikasi dibuka maka messagebox ini akan muncul di awal aplikasi.
End Class
6.Lalu buat form baru yaitu form1
7.Pada form1 buat seperti tampilan seperti dibawah ini
Komponen toolbox pada form1 yang digunakan :
Komponen
|
Properties
|
Keterangan
|
Form1
|
Name
Text
|
Form1
|
Label1
|
Name
Text
|
Label1
sisi
|
Label4
|
Name
Text
|
Label4
luas
|
Label2
|
Name
Text
|
Label2
keliling
|
Button1
|
Name
Text
|
Button1
Hitung-->
|
Button2
|
Name
Text
|
Button2
-Reset-
|
Button3
|
Name
Text
|
Button3
<--Kembali
|
RectangleShape1
|
Name
Text
|
RectangleShape1
|
Textbox1
|
Name
Text
|
Textbox1
|
Textbox2
|
Name
Text
|
Textbox2
|
Textbox3
|
Name
Text
|
Textbox3
|
8. Masukan listingcode nya
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim v = TextBox1.Text
TextBox4.Text = v * v
TextBox2.Text = v * 4
RectangleShape1.Show()
RectangleShape1.Height = v
RectangleShape1.Width = v
If v = "" Then
MsgBox("tolong input data terlebih dahulu", MsgBoxStyle.Critical)
End If
End Sub
- >> Button1 sebagai tempat untuk perhitungan data yang telah diinputkan sebelumnya. Dengan menggunakan rectangleShape yang bisa diatur ketinggian dan lebarnya untuk memunculkan gambar persegi dengan rumus sisi x sisi di RectangleShape1.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox4.Text = ""
RectangleShape1.Hide()
End Sub
- >>Button2 untuk mengkosongkan textbox1 dan textbox4
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Main.Show()
Me.Hide()
End Sub
- >> Tombol untuk kembali ke awal atau main form dan menyembunyikan form1 ini.
Private Sub Form1_close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosed
MsgBox("Terimakasih telah menggunakan program ini.", MsgBoxStyle.Information, "")
Main.Close()
End Sub
- >> Tanda panah untuk menghentikan program dan diakhiri dengan messagebox Terimakasih telah menggunakan program ini.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RectangleShape1.Hide()
CenterToScreen()
End Sub
- >> RectangleShape1.Hide() adalah Perintah untuk Menyembunyikan kotak RectangleShape1.Dan CenterToScreen() adalah form1 ini akan muncul di tengah layar komputer.
End Class
9. Buatah form baru dan buat tampilan seperti dibawah ini
Komponen toolbox pada form2 yang digunakan :
Komponen
|
Properties
|
Keterangan
|
Form2
|
Name
Text
|
Form2
|
Label1
|
Name
Text
|
Label1
panjang
|
Label2
|
Name
Text
|
Label2
lebar
|
Label4
|
Name
Text
|
Label4
luas
|
Label3
|
Name
Text
|
Label3
keliling
|
Button1
|
Name
Text
|
Button1
Hitung-->
|
Button2
|
Name
Text
|
Button2
-Reset-
|
Button3
|
Name
Text
|
Button3
<--Kembali
|
RectangleShape1
|
Name
Text
|
RectangleShape1
|
Textbox1
|
Name
Text
|
Textbox1
|
Textbox2
|
Name
Text
|
Textbox2
|
Textbox3
|
Name
Text
|
Textbox3
|
10. Masukan listingcode berikut
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim v = TextBox1.Text
Dim t = TextBox2.Text
If v = "" Then
MsgBox("Masukkan data", MsgBoxStyle.Exclamation, "Error")
ElseIf t = "" Then
MsgBox("Masukkan data", MsgBoxStyle.Exclamation, "Error")
Else
TextBox4.Text = v * t
TextBox3.Text = 2 * (v + t)
End If
RectangleShape1.Height = v
RectangleShape1.Width = t
RectangleShape1.Show()
End Sub
- >> Button1 sebagai tempat untuk perhitungan data yang telah diinputkan sebelumnya. Dengan menggunakan rectangleShape yang bisa diatur ketinggian dan lebarnya untuk memunculkan gambar persegi dengan rumus lebar x panjang yang telah dideklarasikan sebelumnya di RectangleShape1.
- Bila user tidak menginput data maka akan muncul messagebox bertulisakan "Masukkan data"
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox4.Text = ""
RectangleShape1.Hide()
End Sub
- >> Button2 untuk mengkosongkan textbox1, textbox2, dan menyembunyikan rectangle1.
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Hide()
Main.Show()
End Sub
- >> Tombol untuk kembali ke awal atau main form dan menyembunyikan form2 ini.
Private Sub Form2_close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosed
MsgBox("Terimakasih telah menggunakan program ini.", MsgBoxStyle.Information, "")
Main.Close()
End Sub
- >> Tanda panah untuk menghentikan program dan diakhiri dengan messagebox bertuliskan Terimakasih telah menggunakan program ini.
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
RectangleShape1.Hide()
CenterToScreen()
End Sub
- >> RectangleShape1.Hide() adalah Perintah untuk Menyembunyikan kotak RectangleShape1.Dan CenterToScreen() adalah form1 ini akan muncul di tengah layar komputer.
End Class
11. Buat Form 3 dan buat tampilan seperti ini
Komponen toolbox pada form 3yang digunakan :
Komponen
|
Properties
|
Keterangan
|
Form3
|
Name
Text
|
Form3
|
Label1
|
Name
Text
|
Label1
sisi
|
Label4
|
Name
Text
|
Label4
luas
|
Label2
|
Name
Text
|
Label2
Luas permukaan
|
Button1
|
Name
Text
|
Button1
Hitung-->
|
Button2
|
Name
Text
|
Button2
-Reset-
|
Button3
|
Name
Text
|
Button3
<--Kembali
|
Panel1
|
Name
Text
|
Panel1
|
Textbox1
|
Name
Text
|
Textbox1
|
Textbox4
|
Name
Text
|
Textbox4
|
Textbox2
|
Name
Text
|
Textbox2
|
12. Masukan linstingcode berikut
Public Class Form3
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim s = TextBox1.Text
TextBox4.Text = s ^ 3
TextBox2.Text = 6 * (Math.Sqrt(s))
If s = "" Then
MsgBox("tolong input data yg diperlukan", MsgBoxStyle.Critical)
End If
- Perintah untuk mencari volume persegi dengan data yang diinputkan pada textbox4 dan mencari luas permukaan dari data di textbox2
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)
End Sub
- Listing untuk membuat suatu kubus berbasis koordinat yang di inputkan pada texboxt2. Setelah diketahui koordinat tersebut dihubungkan oleh drawline. Garis drawline diperjelaoleh perintah mypen pada garis koordinat tersebut.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox4.Text = ""
Panel1.Refresh()
End Sub
- Button2 untuk mengkosongkan textbox1, textbox4, dan menyembunyikan panel1.
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Main.Show()
Me.Hide()
End Sub
Button3 untuk kembali ke main form dan menyembunyikan form3
Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CenterToScreen()
End Sub
- CenterToScreen() adalah form1 ini akan muncul di tengah layar komputer.
End Class
13. Buat Form4 dan bentuk seperti ini
Komponen toolbox pada form 4 yang digunakan :
Komponen
|
Properties
|
Keterangan
|
Form4
|
Name
Text
|
Form4
|
Label1
|
Name
Text
|
Label1
Jari-jari
|
Label4
|
Name
Text
|
Label4
luas
|
Label2
|
Name
Text
|
Label2
keliling
|
Button1
|
Name
Text
|
Button1
Hitung-->
|
Button2
|
Name
Text
|
Button2
-Reset-
|
Button3
|
Name
Text
|
Button3
<--Kembali
|
OvalShape1
|
Name
Text
|
OvalShape1
|
Textbox1
|
Name
Text
|
Textbox1
|
Textbox4
|
Name
Text
|
Textbox4
|
Textbox2
|
Name
Text
|
Textbox2
|
14.Masukan listingcode berikut
Public Class Form4
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Main.Show()
Me.Hide()
End Sub
- Button3 untuk kembali ke awal dan menyembunyikan form4
-
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox4.Text = ""
OvalShape1.Hide()
End Sub
- Button2 untuk mengkosongkan textbox1, textbox2, dan menyembunyikan OvalShape1.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Then
MsgBox("Masukkan data", MsgBoxStyle.Exclamation, "Error")
Else
TextBox4.Text = Math.PI * TextBox1.Text * TextBox1.Text
TextBox2.Text = Math.PI * TextBox1.Text * 2
End If
OvalShape1.Height = TextBox1.Text * 2
OvalShape1.Width = TextBox1.Text * 2
OvalShape1.Show()
End Sub
- Button1 sebagai tempat untuk perhitungan data yang telah diinputkan sebelumnya. Dengan menggunakan rectangleShape yang bisa diatur ketinggian dan lebarnya untuk memunculkan gambar persegi dengan PI X jari-jari x jari-jari yang telah dideklarasikan sebelumnya di OvalShape1.
- Bila user tidak menginput data maka akan muncul messagebox bertulisakan "Masukkan data"
Private Sub Form4_close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.FormClosed
MsgBox("Terimakasih telah menggunakan program ini.", MsgBoxStyle.Information, "")
Main.Close()
End Sub
- Tanda panah untuk menghentikan program dan diakhiri dengan messagebox Terimakasih telah menggunakan program ini.
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
OvalShape1.Hide()
CenterToScreen()
End Sub
- OvalShape1.Hide() adalah Perintah untuk Menyembunyikan kotak OvalShape1. Dan CenterToScreen() adalah form1 ini akan muncul di tengah layar komputer.
End Class
15. Buat Form5 dan buat tampilan seperti ini
Komponen toolbox pada form 5 yang digunakan
Komponen
|
Properties
|
Keterangan
|
Form5
|
Name
Text
|
Form5
|
Label1
|
Name
Text
|
Label1
lebar
|
Label2
|
Name
Text
|
Label2
panjang
|
Label3
|
Name
Text
|
Label3
tinggi
|
Label4
|
Name
Text
|
Label4
volume
|
Label5
|
Name
Text
|
Label5
Luas permukaan
|
Button1
|
Name
Text
|
Button1
Hitung-->
|
Button2
|
Name
Text
|
Button2
-Reset-
|
Button3
|
Name
Text
|
Button3
<--Kembali
|
Panel1
|
Name
Text
|
Panel1
|
Textbox1
|
Name
Text
|
Textbox1
|
Textbox2
|
Name
Text
|
Textbox2
|
Textbox3
|
Name
Text
|
Textbox3
|
Textbox4
|
Name
Text
|
Textbox4
|
Textbox5
|
Name
Text
|
Textbox5
|
16. Masukan listingcode berikut
Public Class Form5
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim l = TextBox1.Text
Dim p = TextBox2.Text
Dim t = TextBox3.Text
TextBox4.Text = p * l * t
TextBox5.Text = (p * l) + (p * t) + (l * t)
If l = "" Or p = "" Or t = "" Then
MsgBox("tolong input data yg diperlukan")
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 = 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
- Listing untuk membuat suatu balok berbasis koordinat yang di inputkan pada texboxt2 . Setelah diketahui koordinat tersebut dihubungkan oleh drawline. Garis drawline diperjelaoleh perintah mypen pada garis koordinat tersebut.
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
Panel1.Refresh()
End Sub
- Button2 untuk mengkosongkan textbox1, textbox2, textbox2, textbox4 dan menyembunyikan panel1.
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Main.Show()
Me.Hide()
End Sub
- Button3 untuk kembali ke awal dan menyembunyikan form5
Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CenterToScreen()
End Sub
- Aplikasi muncul di tengah layar.
End Class
0 komentar:
Posting Komentar