Cara Membuat Program Biodata Menggunakan Microsoft Visual Basic + Script Legkap !!!

Sekarang ini berbagai software untuk membuat sebuah aplikasi sangat banyak kita jumpai, tentunya setiap software pasti memiliki kekurangan dan kelebihannya masing-masing. Jika Anda mau membuat sebuah aplikasi atau program pilihlah software yang mendukung dengan program yang akan Anda buat dan pastikan Anda nyaman dengan software tersebut.

Pada artikel kali ini saya akan sedikit berbagi tutorial tentang cara membuat Program Biodata Menggunakan Microsoft Visual Basic. Visual basic yang saya gunakan adalah versi 6.0. Program Biodata ini merupakan sebuah aplikasi yang biasa digunakan untuk menampung data (jika dihubungkan dengan database) atau sebagai sarana untuk meng-input data diri yang selanjutnya data dapat ditampilkan sesuai format data yang telah diatur.




Berikut merupakan langkah-langkah untuk membuat program biodata menggunakan microsoft visual basic:

1. Buka program Microsoft Visual Basic 6.0, kemudian pilih standart EXE dan klik Open, dan jendela project IDE dan form Microsoft Visual Basic 6.0 akan ditampilkan. 



2. Pilih objek yang akan digunakan sebagai bagian dari program yang akan dibuat dengan meng-klik objek pilihan pada toolbox, setelah itu posisikan cursor di dalam form lalu klik tahan dan drag membentuk bentuk objek (user interface). Objek toolbox yang digunakan antara lain: Label, Frame, TextBox, ListBox, PictureBox, OptionButton, CheckBox, CommandButton, dan Timer. Berikut ini merupakan gambar pembuatan objek pada form:




3. Setelah semua objek toolbox yang dibutuhkan digunakan, maka akan didapat tampilan dasar dari program seperti gambar berikut ini:



Baca: Manfaat, Kelebihan, dan Perkembangan Microsoft Visual Basic

4. Selanjutnya yaitu mengubah nilai property pada Property Window dari setiap objek toolbox yang telah dibuat sebelumnya hingga terlihat seperti gambar berikut ini.


Cara mengubah element atau nilai setiap objek ada di pengaturan property yang terdapat pada program visual basic agar memudahkan dalam pengisian script program.



Perubahan penamaan element setiap objek dapat Anda lihat pada tabel di bawah ini, untuk mempercepat pembuatan program Anda bisa mengubah hanya element name dan caption, atau element lain yang sekiranya diperlukan. 



Jika perubahan element atau nilai properti pada tabel di atas membingungkan, Anda bisa menggunakan penamaan sendiri, dengan syarat Anda juga harus mengubah penamaan pada script yang nanti akan ada di bawah ini. 

5. Kemudian Double-click pada setiap objek toolbox pada form untuk menampilkan code window. Selanjutnya isikan script atau kode program pada objek yang sesuai agar program dapat berjalan. (inputkan script program yang berwarna biru)

1) Form1

Private Sub Form_Load()
CboSemester.AddItem "1"
CboSemester.AddItem "2"
CboSemester.AddItem "3"
CboSemester.AddItem "4"
CboSemester.AddItem "5"
CboSemester.AddItem "6"
CboSemester.AddItem "7"
CboSemester.AddItem "8"
PicFoto.Visible = False
End Sub


Fungsi Script:
a) Private Sub Form_Load()
Digunakan untuk mengatur objek saat form di-load atau dimuat.

b) CboSemester.AddItem "1"

CboSemester.AddItem "2"
CboSemester.AddItem "3"
CboSemester.AddItem "4"
CboSemester.AddItem "5"
CboSemester.AddItem "6"
CboSemester.AddItem "7"
CboSemester.AddItem "8"
Digunakan untuk mengisi combobox Semester dari 1 hingga 8 secara vertikal.

c) PicFoto.Visible = False
Digunakan untuk menyembunyikan foto yang awal mulanya terlihat.

d) End Sub
Digunakan untuk mengakhiri perintah pada script.

2) Option1,Option2, dan Option3

Private Sub OptMerah_Click()
LstTampil.ForeColor = vbRed
End Sub

Private Sub OptHijau_Click()
LstTampil.ForeColor = vbGreen
End Sub

Private Sub OptBiru_Click()
LstTampil.ForeColor = vbBlue
End Sub 


Fungsi Script:
a) Private Sub OptMerah_Click()
Digunakan untuk mengatur tampilan objek ketika OptMerah di-klik.

b) LstTampil.ForeColor = vbRed
Digunakan untuk menampilkan tulisan warna merah di listbox (LstTampil).

c) LstTampil.ForeColor = vbGreen
Digunakan untuk menampilkan tulisan warna hijau di listbox (LstTampil).

d) LstTampil.ForeColor = vbBlue
Digunakan untuk menampilkan tulisan warna biru di listbox (LstTampil).

e) End Sub
Digunakan untuk mengakhiri perintah pada script.

3) Check1, Check2, dan Check3

Private Sub ChkBold_Click()
LstTampil.FontBold = ChkBold.Value
End Sub

Private Sub ChkItalic_Click()
LstTampil.FontItalic = ChkItalic.Value
End Sub

Private Sub ChkUnderline_Click()
LstTampil.FontUnderline = ChkUnderline.Value
End Sub 


Fungsi Script:
a) Private Sub ChkBold_Click()
Digunakan untuk mengatur tampilan objek ketika ChkBold di-klik.

b) LstTampil.FontBold = ChkBold.Value
Digunakan untuk menampilkan efek tulisan bold di listbox (LstTampil).

c) LstTampil.FontItalic = ChkItalic.Value
Digunakan untuk menampilkan efek tulisan Italic di listbox (LstTampil).

d) LstTampil.FontUnderline = ChkUnderline.Value
Digunakan untuk menampilkan efek tulisan Underline di listbox (LstTampil).

e) End Sub
Digunakan untuk mengakhiri perintah pada script.

4) Command1, Comand2, dan Command3

Private Sub CmdProses_Click()
LstTampil.AddItem "NIM : " & TxtNIM.Text
LstTampil.AddItem "Nama : " & TxtNama.Text
LstTampil.AddItem "Jurusan : " & TxtJurusan.Text
LstTampil.AddItem "Semester : "& CboSemester.Text
LstTampil.AddItem "Alamat : " & TxtAlamat.Text 

Label7.Caption = "Biodata Anda Telah Muncul!"
PicFoto.Visible = True
End Sub 

Private Sub CmdHapus_Click()
TxtNIM = ""
TxtNama = ""
TxtJurusan = ""
TxtAlamat = ""
LstTampil.Clear
Label7.Caption = ""
CboSemester.Text = "Pilih"
OptMerah.Value = False
OptHijau.Value = False
OptBiru.Value = False
ChkBold.Value = False
ChkItalic.Value = False
ChkUnderline.Value = False
TxtNIM.SetFocus
PicFoto.Visible = False
End Sub

Private Sub CmdKeluar_Click()
If MsgBox("Anda ingin Keluar?", vbQuestion + vbYesNo, " Exit") = vbYes Then
Unload Me
End If
End Sub 


Fungsi Script:
a) Private Sub CmdProses_Click()
Digunakan untuk mengatur tampilan objek ketika CmdProses di-klik.

b) LstTampil.AddItem "NIM : " & TxtNIM.Text
LstTampil.AddItem "Nama : " & TxtNama.Text
LstTampil.AddItem "Jurusan : " & TxtJurusan.Text
LstTampil.AddItem"Semester: "& CboSemester.Text
LstTampil.AddItem "Alamat : " & TxtAlamat.Text
Digunakan untuk menampilkan NIM, Nama, Jurusan, Semester, dan Alamat yang di-input-kan dari textbox yang kemudian akan ditampilkan sebagai output oleh listbox (LstTampil).

c) Label7.Caption = "Biodata Anda Telah Muncul!"
Digunakan untuk menampilkan pesan pemberitahuan bahwa biodata yang di proses telah muncul di listbox.

d) PicFoto.Visible = True
Digunakan untuk memunculkan foto agar dapat terlihat.

e) TxtNIM = ""
TxtNama = ""
TxtJurusan = ""
TxtAlamat = ""
Digunakan untuk mengkosongkan textbox NIM, Nama, Jurusan, dan Alamat.

f) LstTampil.Clear
Digunakan untuk mengkosongkan listbox (LstTampil).

g) Label7.Caption = ""
Digunakan untuk mengkosongkan pesan pemberitahuan pada label7.

h) CboSemester.Text = "Pilih"
Digunakan untuk mengembalikan teks isi combobox ke keadaan semula yaitu “Pilih”.

i) OptMerah.Value = False
OptHijau.Value = False
OptBiru.Value = False
Digunakan untuk mengembalikan optionbutton ke keadaan semula, yaitu keadaan kosong.

j) ChkBold.Value = False
ChkItalic.Value = False
ChkUnderline.Value = False
Digunakan untuk mengembalikan checkbutton ke keadaan seperti semula, yaitu keadaan kosong.

k) TxtNIM.SetFocus
Digunakan untuk mengatur posisi cursor agar berada pada textbox NIM ketika tidak ada data yang di-input-kan.

l) PicFoto.Visible = False
Digunakan untuk menyembunyikan foto.

m) If MsgBox("Anda ingin Keluar?", vbQuestion + vbYesNo, " Exit") = vbYes Then
Unload Me
Digunakan untuk keluar dari form dengan disertai pesan peringatan.

5) Timer1

Private Sub Timer1_Timer()
If Label7.ForeColor = vbRed Then
Label7.ForeColor = vbGreen
Else
Label7.ForeColor = vbRed
End If
End Sub 


Fungsi Script:
a) Private Sub Timer1_Timer()
Digunakan untuk mengatur tampilan objek ketika Timer1 dijalankan.

b) If Label7.ForeColor = vbRed Then
Label7.ForeColor = vbGreen
Else
Label7.ForeColor = vbRed
Digunakan untuk memunculkan variasi warna secara bergantian sesuai dengan interval yang telah ditentukan.

c) End Sub
Digunakan untuk mengakhiri perintah pada script.

6. Setelah semua script dimasukkan, Jalankan program dengan cara klik start pada panel yang terdapat di bagian atas tampilan microsoft visual basic, selain itu Anda juga bisa menekan tombol F5 untuk menjalankan program. Berikut merupakan gambar hasil program setelah dijalankan:


Penjelasan:
Setelah semua data dimasukkan pada textbox dan tombol PROSES di-klik, maka data akan ditampikan pada listbox dengan warna dan bentuk huruf yang dapat diatur melalui tombol pilihan pada kontrol program, pada saat itu juga, foto dan pesan pemberitahuan akan ditampilkan ditempat yang telah ditentukan. Ketika tombol HAPUS di-klik, maka semua data yang ditampilkan akan hilang, termasuk juga foto dan pesan pemberitahuan. Ketika tombol KELUAR di-klik, maka messagesbox akan keluar dan menampilkan pesan peringatan berupa pilihan “Yes” dan“No”, jika “Yes” di-klik maka program akan keluar dan jika “No” yang di-klik maka program akan tetap dimunculkan.

Sekian tutorial cara membuat program biodata menggunakan Microsoft Visual Basic. Semoga Anda tidak bingung dan selamat mencoba. Salam Pemuda Handal !


Terkait:
cara membuat program visual basic | contoh program visual basic | program visual basic sederhana | cara membuat program sederhana visual basic | script lengkap program visual basic 

Kurang puas dengan artikel ini ?, Comment saja !
Kritik dan saran Anda sangat bermanfaat bagi kami... 😊


Share:

No comments:

Post a Comment

Favorit

Ringan + Anti Ribet ! Inilah 7 Aplikasi Perekam Layar Komputer Terbaik

Akan ada saatnya ketika kita dituntut untuk bisa mengabadikan aktivitas penggunaan computer menjadi sebuah video. Contohnya saja untuk membu...

Terbaru

Kategori