Rabu, 07 April 2010
Microsoft Visual Basic (sering disingkat sebagai VB) merupakan sebuah bahasa pemrograman yang bersifat event driven dan menawarkan Integrated Development Environment (IDE) visual untuk membuat program aplikasi berbasis sistem operasi Microsoft Windows dengan menggunakan model pemrograman Common Object Model (COM). Visual Basic merupakan turunan bahasa BASIC dan menawarkan pengembangan aplikasi komputer berbasis grafik dengan cepat, akses ke basis data menggunakan Data Access Objects (DAO), Remote Data Objects (RDO), atau ActiveX Data Object (ADO), serta menawarkan pembuatan kontrol ActiveX dan objek ActiveX.
Pada kesempatan ini, saya akan memberikan sedikit program VB yang sangat sederhana. Semoga bermanfaat.
Buatlah desain form, yang berisi komponen dengan ketentuan sebagai berikut :
Frame / Control | Properties | Setting | |
Label | Label1 Label2 | Caption Caption | User Name Password |
Textbox | Textbox1 Textbox2 | Name Text Name Text | Text1 (Dikosongkan) Text2 (Dikosongkan) |
Command Button | Cmd1 Cmd2 | Caption Caption | OK CANCEL |
Pada Command button OK, ketik program sebagai berikut :
If UCase (Text1.Text) = “LAB TI” And UCase (Text2.Text) = “1IA03&1IA04” Then
MsgBox “Hello World”, 0, “How Are You ?”
Else : MgsBox “Password Salah”, 0, “Ulangi Lagi”
End if
Pada Command button CANCEL, ketik program sebagai berikut :
End
Untuk program kedua, buat desain form yang berisi komponen dengan ketentuan sebagai berikut :
Frame / Control | Properties | Setting | |
Label | Label1 Label2 | Caption Name | Nama Anda: Label2 |
Textbox | Text1 | Name Text | Text1 (Dikosongkan) |
Command Button | Cmd1 Cmd2 | Caption Caption | OK CANCEL |
Option Button | Option1 Option2 | Caption Caption | Biru Merah |
Check Button | Check1 Check2 | Caption Caption | Tebal Miring |
Pada Command button OK, ketik program sebagai berikut :
Label2.Caption = Text1.Text
Pada Command button CANCEL, ketik program sebagai berikut :
End
Pada Option1 Biru, ketik program sebagai berikut :
Label2.ForeColor = vbBlue
Pada Option2 Merah, ketik program sebagai berikut :
Label2.ForeColor = vbRed
Pada Check1 Tebal, ketik program sebagai berikut :
Label2.FontBold = Check1.Value
Pada Check2 Tebal, ketik program sebagai berikut :
Label2.FontItalic = Check2.Value
0 Comments:
Subscribe to:
Posting Komentar (Atom)