Skip to main content

Jurnal Praktikum Modul 1 Visual Basic

JURNAL PRAKTIKUM MODUL 1 VISUAL BASIC
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/
Comment Policy: Silahkan tuliskan komentar Anda yang sesuai dengan topik postingan halaman ini. Komentar yang berisi tautan tidak akan ditampilkan sebelum disetujui.
Buka Komentar
Tutup Komentar