MEMBUAT APLIKASI BIODATA DENGAN VISUAL BASIC

MEMBUAT APLIKASI BIODATA DENGAN VISUAL BASIC

Assalamu'alaikum Warohmatulloh Wabarokatuh

bagi anda yang lagi belajar Visual Basic dan yang lagi ada tugas berikut saya posting cara membuat aplikasi biodata, oke langsung saja kita mulai...

silahkan dibuka dulu aplikasi VB nya, dan yang belum punya bisa mendownloadnya disini
pertama-tama kita siapkan Alat Tempurnya dulu yang terdiri dari :

- Frame = 1 buah (Data Mahasiswa)
- Label = 6 buah (Nama, NIM, TTL, Alamat, Jenis Kelamin, Jurusan)
- TextBox = 4 buah (Input Nama, NIM, TTL, Alamat, Jenis Kelamin, Jurusan)
- ComboBox = 2 buah (Pria, Pengangguran Banyak Acara)
- CommandButton = 3 buah (Cetak, Bersih, Exit)
- ListBox (Outputnya)

Nah ini contoh Programnya, silahkan dilirik ScreenShotnya :

 

Oke... kembali ke TOPIK...!!!
Langsung aja copy paste listingnya apabila sudah membuat beberapa alat tempur diatas :

Private Sub Form_Load()
Combo1.AddItem "Pria"
Combo1.AddItem "Wanita"
Combo2.AddItem "Teknik Informatika"
Combo2.AddItem "Manajeman"
Combo2.AddItem "Sistem Komputer"
Combo2.AddItem "Ekonomi"
Combo2.AddItem "Pengangguran Banyak Acara"
End Sub

Private Sub Command1_Click()
List1.AddItem Text1.Text
List1.AddItem Text2.Text
List1.AddItem Text3.Text
List1.AddItem Text4.Text
List1.AddItem Option1
List1.AddItem Combo1.Text
List1.AddItem Combo2.Text
End Sub

Private Sub Command2_Click()
List1.Clear
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

#########################KETERANGAN#########################

===> 1
Private Sub Form_Load()
Combo1.AddItem "Pria"
Combo1.AddItem "Wanita"
Combo2.AddItem "Teknik Informatika"
Combo2.AddItem "Manajeman"
Combo2.AddItem "Sistem Komputer"
Combo2.AddItem "Ekonomi"
Combo2.AddItem "Pengangguran Banyak Acara"
End Sub

(Untuk menampilkan daftar di ComboBox, jadi apabila ada listing seperti :

"Private Sub Combo2_Change()

End Sub..... SILAHKAN di DELETE aja, tidak berpengaruh pada programnya)

===> 2
Private Sub Command1_Click()
List1.AddItem Text1.Text
List1.AddItem Text2.Text
List1.AddItem Text3.Text
List1.AddItem Text4.Text
List1.AddItem Option1
List1.AddItem Combo1.Text
List1.AddItem Combo2.Text
End Sub

(Untuk menampilkan inputan nama, nim, dsb di ListBox)

===> 3
Private Sub Command2_Click()
List1.Clear
End Sub

(Untuk membersihkan semua text hasil inputan, dan listing ini ada pada Command2 yaitu BERSIH)

===> 4
Private Sub Command3_Click()
Unload Me
End Sub

(Untuk keluar/exit, dan listing ini ada pada command3 yaitu EXIT)

gampang kaaaaannn????? :)