My Profil

Foto Saya
Ryan Rinaldy Rosidi
Lihat profil lengkapku
Selamat Datang Di Blog "Ryan Rinaldy Rosidi"

Kamis, 04 April 2013

Cara Membuat Program BIODATA Visual Basic (Lengkap Dengan Keterangan)

As'salamualaikum.

ahhhh, langsung saja ya ? soalnya saya lagi malas ngeBLOG.. tapi apa boleh baut... teman saya lagi membutuhkan. whehehe, mungkin teman-teman yang lain membutuhkan tutorial ini.. silahkan disimak ya

Alat Tempur :

- 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)


Oke, cukup segitu saja. sekian dan thanks. ENJOY (X_x)

0 komentar:

Tanyakan Saya Melalui EMAIL

Translate

Free Music Online
Free Music Online

Rihanna - Diamond

Jam Online


My Visitor

Flag Counter
SEO Stats powered by MyPagerank.Net
adzan.php?kota=Banyuwangi&type=image1&te

My Post

Hello...!!!

Ryan Rinaldy Rosidi Or Ryan Politik Grunge. Diberdayakan oleh Blogger.

My Skype


Skype Me™!
 
Copyright© 2011 Ryan Rinaldy Rosidi | Template Blogger Designer by : RyanRinaldyRosidi' |
Template Name | Uniqx Transparent : Version 1.0 | RyanRinaldyRosidi.Net