Jurnal Praktikum Modul 1 Visual Basic

JURNAL PRAKTIKUM MODUL 1 VISUAL BASIC
KELOMPOK 42

Nama kelompok  :

Priska Retnosari Setiawati      21070112110044
M. Sidiq Saifuddin P              21070112130086
Rizal Luthfi Nartadhi             21070112140135

 

ABSTRAK : Seiring berkembangnya zaman, berkembang pula teknologi dalam peradaban manusia. Salah satunya adalah komputer. Dengan terus berkembangnya komputer, semakin memungkinkan manusia menciptakan maupun melakukan hal-hal yang di zaman dahulu hanya menjadi angan-angan belaka. Salah satu contoh manfaat perkembangan komputer yang kami bahas di sini adalah perkembangan yang membuat manusia dapat membuat suatu program.

PENDAHULUAN

Perkembangan teknologi informasi berimbas besar pada perubahan pola hidup manusia. Manusia yang dulunya serba manual, melakukan maupun menyelesaikan segala sesuatu menggunakan tenaga. Kini telah berubah total, yaitu dengan mengerjakan segala sesuatu dengan komputer, bekerja lebih efektif dan efisien. Tentunya ini adalah perkembangan yang bersifat positif, karena manusia dapat lebih menghemat waktu dalam hidupnya. Yang dulunya dikerjakan serba manual, kini dapat dikerjakan oleh komputer sehingga manusia lebih menghemat tenaga dan waktunya dapat digunakan untuk melakukan kegiatan lain.

Tanpa kita sadari, kehidupan kita di masa kini sudah sangat bergantung pada keberadaannya komputer. Segala hal yang ada di dunia ini sebagian besar telah diatur oleh komputer. Kini, dengan adanya komputer yang semakin canggih membuat manusia lebih mudah dalam melakukan segala sesuatu sesuai dengan keinginannya. Salah satunya adalah manusia menjadi mampu untuk membuat program sendiri yang sangat berguna untuk berbagai kepentingan baik individu, kelompok, daerah, negara, maupun global. Misalnya untuk pengisian formulir pendafaran masuk SMA, agar berjalan mudah, praktis, cepat, efektif dan efisien, dibuatlah program untuk pengisian formulir.Dalam hal ini, manusia memerlukan aplikasi untuk membuatnya. Aplikasi yang kami gunakan di sini adalah Visual Basic 2010.

Visual Basic adalah produk keluaran Microsoft Corporation yang umum digunakan oleh kebanyakan orang dalam membuat program. Visual Basic adalah aplikasi yang mudah dioperasikan, mudah dipahami dan mudah untuk dicari panduannya baik dari buku maupun internet. Dengan memanfaatkan aplikasi ini, kami membuat 2 macam program sederhana. Yang pertama adalah program berupa formulir pendaftaran, sedangkan yang kedua adalah program sejenis mini games yang dapat memunculkan suatu bangun datar dengan warna tertentu sesuai keinginan penggunanya. Ini adalah contoh kecil dari pemanfaatan aplikasi Visual Basic 2010. Jika digunakan lebih mendalam dan mendetail lagi, kita dapat membuat suatu program lain yang sangat berkualitas yang tidak menutup kemungkinan untuk nantinya digunakan secara umum baik di dalam negeri maupun di dunia internasional.

TUJUAN

            Keberadaan aplikasi Visual Basic bertujuan untuk memfasilitasi orang-orang kreatif yang berpotensi besar untuk membuat suatu program luar biasa yang harapannya mampu bermanfaat bagi masyarakat luas. Sedangkan dari kami sendiri, tujuan dalam pembuatan jurnal ini adalah :

1. Dapat mengenalkan kepada masyarakat tentang penggunaan Visal Basic
2. Memberi tutorial berupa contoh pemanfaatan aplikasi Visual Basic
3. Merangsang masyarakat terutama yang berminat dan kreatif untuk mencoba membuat suatu program yang nantinya dapat dimanfaatkan oleh peradaban manusia

MANFAAT

            Visual Basic ini akan sangat bermanfaat bagi manusia untuk memudahkannya dalam melakukan aktivitas. Sedangkan bagi kami sendiri, keberadaan jurnal ini akan sangat bermanfaat untuk :

1. Membuat masyarakat mengenal tentang apa itu Visual Basic
2. Membuat masyarakat yang tadinya kurang paham cara memanfaatkan aplikasi Visual Baisc menjadi paham
3. Diharapkan dapat memunculkan program-program berkualitas yang berguna bagi masyarakat luas.

ISI

            Dalam hal ini, kami membuat 2 macam program sederhana menggunakan Visual Basic 2010. Yang pertama adalah program formulir pendaftaran sedangkan yang kedua adalah sejenis mini games tentang bangun datar dan warna.

Peratama, yaitu Form Pendaftaran

Untuk contoh yang pertama, kami membuat formulir pendaftaran UKM Fotografi. Secara garis besar, konsep kami adalah form yang terdiri atas 3 bab utama, dimana setiap bab memiliki sub bab sendiri-sendiri. Setelah setiap bab terisi, kemudian data yang telah dimasukkan disimpan dan dianggap pengisian form telah selesai.

Terdapat 3 bab utama, yaitu :

1. Biodata                      : berisi profil pengisi form secara umum

2. Prestasi                      : berisi perlombaan atau kejuaraan apa saja yang telah diikuti oleh

                                        pengisi form

3. Finalisasi Pendaftaran : berisi tentang pengkonfirmasian apakah kita sudah yakin dengan data yang

                                        telah diisikan

Berikut adalah penjelasan proses kerja kami :

1. Membuat tampilan awal yang berisi judul dan ditambahkan background

2. Membuat tampilan selanjutnya, yaitu 3 macam bab utama.

3. Selanjutnya disetiap bab utama, kami membuat sub bab nya. Misal Biodata,

                kami membuat kolom nama,NIM,dll.

4. Untuk tempat pengisian form, secara umum menggunakan text box sehingga

                pengisi form harus mengetikkan sendiri. Namun ada beberapa bagian tertentu

                berbeda, seperti TTL menggunakan ComboBox.

5. Kemudian di pojok kanan bawah, ada Button yang berfungsi mengkonfirmasi

                bahwa data yang diperlukan telah terisi dan Button lain yang berfungsi kembali

                ke tampilan sebelumnya.

6. Setelah semua telah selesai, tahap akhir masuk ke finalisasi registrasi formulir.

                Ada 3 macam tombol yang dapat diklik, yaitu : ya,tidak, dan keluar.

7. Untuk tombol ya, jika diklik maka akan muncul messagebox tanda bahwa

                registrasi selsesai. Untuk tombol tidak, akan mengembalikan ke bab

                sebelumnya yaitu prestasi. Untuk tombol keluar, akan keluar dari aplikasi.

8. Kemudian kami melengkapi form dengan perintah-perintah list program,

                salahsatunya membuat messagebox di bab Biodata yang menyatakan bahwa

                apabila ada salahsatu kolom yang belum terisi, maka tidak dapat lanjut ke

                tahap berikutnya karena biodata harus diisi dengan lengkap.

Berikut adalah listing program yang kami gunakan untuk membuat perintah :

FORM 1 (Pendaftaran UKM PRISMA)

Public Class Form1

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs)

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

Me.Text = "Formulir Pendaftaran UKM PRISMA"

End Sub

Private Sub Label1_Click_1(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Label1.Click

End Sub

Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button2.Click

Form3.Show()

Me.Hide()

End Sub

End Class

FORM 3 (BIODATA DIRI)

Public Class Form3

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

Me.Text = "Biodata Diri"

End Sub

Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Label3.Click

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

If ComboBox1.Text = "" Or TextBox1.Text = "" Or TextBox2.Text = "" Or

TextBox3.Text = "" Or ComboBox2.Text = "" Or ComboBox3.Text = "" Or

TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or

TextBox7.Text = "" Or TextBox8.Text = "" Or TextBox9.Text = "" Then

MsgBox("Wah Belum Lengkap Bro, Diisi Dulu Ya")

Else

Form4.Show()

Me.Hide()

End If

End Sub

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

System.EventArgs) Handles TextBox1.TextChanged

TextBox1.MaxLength = 30

End Sub

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

System.EventArgs) Handles TextBox2.TextChanged

TextBox2.MaxLength = 20

End Sub

Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles TextBox8.TextChanged

TextBox8.MaxLength = 20

End Sub

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

System.EventArgs) Handles TextBox3.TextChanged

TextBox3.MaxLength = 20

End Sub

Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles TextBox4.TextChanged

End Sub

Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles TextBox5.TextChanged

TextBox5.MaxLength = 15

End Sub

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

System.EventArgs) Handles Button2.Click

Form1.Show()

Me.Hide()

End Sub

End Class

FORM 2 (PRESTASI)

Public Class Form2

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

System.EventArgs) Handles TextBox1.TextChanged

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

Me.Text = "Prestasi"

End Sub

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

System.EventArgs) Handles Button2.Click

Form4.Show()

Me.Hide()

End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

Form5.Show()

Me.Hide()

End Sub

End Class

FORM 5 (FINALISASI PENDAFTARAN)

Public Class Form5

Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs)

End Sub

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

System.EventArgs)

Form2.Show()

Me.Hide()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs)

End Sub

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

System.EventArgs)

End Sub

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

System.EventArgs) Handles Button2.Click

Form2.Show()

Me.Hide()

End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

MsgBox("Terima kasih, registrasi telah selesai")

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button3.Click

End

End Sub

End Class

Maka jadilah sebuah program sederhana untuk membuat suatu formulir pendaftaran.

              Kedua, Membuat suatu bangun yang memiliki warna dari hasil memilih

bentuk bangun dan warna yang diinginkan.

kami membuat program sederhana yaitu dengan

menggunakan dua ComboBox : yang pertama berisi dua macam bentuk bangun dua

dimensi dan yang kedua berisi macam-macam warna. Kemudian kami membuat

kombinasi antara bangun dua dimensi tersebut beserta warnanya untuk dimunculkan

sesuai dengan permintaan dari operator.

Berikut adalah penjelasan proses kerja kami :

1. Membuat tampilan awal pada Form1 yang berisi judul, clue, 2 ComboBox, 2

button dan ditambahkan background.

2. Membuat bangun lingkaran dan persegi panjang dan mengubah fill color serta

bordernya menjadi transparan.

3. ComboBox pertama menawarkan bentuk Circle dan Rectangle.

4. ComboBox kedua menawarkan berbagai macam warna.

5. Apabila sudah memilih ComboBox pertama dan kedua, klik Button OK (Button

pertama). Sehingga akan muncul bangun dua dimensi berwarna sesuai yang

user inginkan.

6. Membuat Form2 yang akan muncul apabila user memilih tombol exit

7. Button Exit (Button kedua) digunakan apabila kita ingin menutup aplikasi

8. Form2 berisi Label dan dua Button. Dua button tersebut terdiri dari OK dan

Cancel

9. Button OK digunakan untuk menutup aplikasi, sedangkan Button Cancel

digunakan untuk kembali ke Form1

Berikut adalah listing program yang kami gunakan untuk membuat perintah :

Form 1

Public Class Form1

Private Sub OvalShape1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles OvalShape1.Click

OvalShape1.Hide()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles OK.Click

If ComboBox1.Text = ("Circle") Then

OvalShape1.Show()

End If

If ComboBox1.Text = ("Circle") And ComboBox2.Text = ("Red") Then

OvalShape1.BackColor = Color.Red

End If

If ComboBox1.Text = ("Circle") And ComboBox2.Text = ("Blue") Then

OvalShape1.BackColor = Color.Blue

End If

If ComboBox1.Text = ("Circle") And ComboBox2.Text = ("Yellow") Then

OvalShape1.BackColor = Color.Yellow

End If

If ComboBox1.Text = ("Circle") And ComboBox2.Text = ("Green") Then

OvalShape1.BackColor = Color.Green

End If

If ComboBox1.Text = ("Circle") And ComboBox2.Text = ("Black") Then

OvalShape1.BackColor = Color.Black

End If

If ComboBox1.Text = ("Circle") And ComboBox2.Text = ("White") Then

OvalShape1.BackColor = Color.White

End If

If ComboBox1.Text = ("Circle") And ComboBox2.Text = ("Purple") Then

OvalShape1.BackColor = Color.Purple

End If

If ComboBox1.Text = ("Rectangle") Then

OvalShape1.Hide()

End If

If ComboBox1.Text = ("Rectangle") And ComboBox2.Text = ("Yellow") Then

RectangleShape1.BackColor = Color.Yellow

End If

If ComboBox1.Text = ("Rectangle") And ComboBox2.Text = ("Blue") Then

RectangleShape1.BackColor = Color.Blue

End If

If ComboBox1.Text = ("Rectangle") And ComboBox2.Text = ("Red") Then

RectangleShape1.BackColor = Color.Red

End If

If ComboBox1.Text = ("Rectangle") And ComboBox2.Text = ("Green") Then

RectangleShape1.BackColor = Color.Green

End If

If ComboBox1.Text = ("Rectangle") And ComboBox2.Text = ("Black") Then

RectangleShape1.BackColor = Color.Black

End If

If ComboBox1.Text = ("Rectangle") And ComboBox2.Text = ("White") Then

RectangleShape1.BackColor = Color.White

End If

If ComboBox1.Text = ("Rectangle") And ComboBox2.Text = ("Purple") Then

RectangleShape1.BackColor = Color.Purple

End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

Me.Text = "Magic Box"

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object,

ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

If ComboBox1.Text = ("Rectangle") Then

OvalShape1.Hide()

End If

If ComboBox1.Text = ("Rectangle") Then

RectangleShape1.Show()

End If

If ComboBox1.Text = ("Circle") Then

RectangleShape1.Hide()

End If

End Sub

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

Form2.Show()

End Sub

End Class

Form 2

Public Class Form2

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles Button1.Click

End

End Sub

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

System.EventArgs) Handles Button2.Click

Me.Close()

Form1.Show()

End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles MyBase.Load

Me.Text = "Warning"

End Sub

End Class

Kemudian terciptalah sebuah aplikasi yang dapat menampilkan suatu bangun

dengan warna tertentu sesuai keinginan operator.

KESIMPULAN

             Berdasarkan  program yang telah kami contohkan dan dikaitkan kepada tujuan serta manfaat dari pembuatan jurnal ini, maka dapat disimpulkan :

1. Aplikasi Visual Basic dapat digunakan untuk membuat berbagai program sesuai keinginan seperti yang

    sederhana yaitu formulir pendaftaran.

2. Keberadaan Visual Basic merupakan menjadi jawaban sekaligus solusi untuk menghadapi permasalahan

    yang melibatkan orang banyak

3. Dalam suatu program, diperlukan berbagai macam kode-kode berupa bahasa pemrograman untuk

    menjalankan perintah sesuai keinginan.

4. Secanggih-canggihnya komputer, tetap lebih cerdas manusia karena komputer memerlukan kalimat yang

    tersusun secara teratur dan pasti agar dapat bekerja

Oleh karena itu, kita harus pandai dan bijak dalam menyikapi keadaan. Keberadaan komputer memang sangat berguna bagi peradaban manusia, namun tetap tidak akan ada gunanya jika penggunanya tidak bijak Harapan kedepannya keberadaan jurnal ini dapat membantu pihak-pihak yang ingin belajar menggunakan Visual Basic dan semoga kelak dapat menciptakan program yang bermanfaat untuk masyarakat luas.

DAFTAR PUSTAKA

1. Lab DSS,2012,MODUL PRAKTIKUM TEKNOLOGI INFORMATIKA 2012,Penerbit Lab DSS Undip,Semarang.

2. http://www.google.co.id/