Rabu, 17 April 2013

Membuat Program Jurusan pada Visual Basic

Selamat sore sobat, apa kabar ne sobat...? pastinya Puji Tuhan Baek ya... amin :) ok... lanjut sobat, setelah kemaren saya sudah menjelaskan apa itu visual basic dan sidah memberikan beberapa contoh programnya, termasuk saya sudah share bagaimana cara membuat "Program Huruf", sekarang saya akan menjelaskan bagaimana membuat "Program Jurusan".

Perhatikan Step by Step berikut :
1. Buka Aplikasi Visual Basic.

VB Portable
2. klik New - Standart Exe - Open
Open Project

 3. Buat Form Sepeti gambar dibawah ini :

form jurusan
Catatan : Gunakan beberapa Icon dibawah ini :
command button


label

text box





 4. Copas Script Berikut : 
Private Sub Command1_Click()
Text1 = ""
Text2 = ""
Text3 = ""
Text1.SetFocus
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Text3.Enabled = False
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then Text2.SetFocus
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
If Text2 <> "MI" And Text2 <> "KA" And Text2 <> "TK" Then
MsgBox "Jurusan tidak terdaftar"
Text2 = ""
Text2.SetFocus
Exit Sub
End If
If Text2 = "MI" Then Text3 = "MANAJEMEN INFORMATIKA"
If Text2 = "KA" Then Text3 = "KOMPUTER AKUNTANSI"
If Text2 = "TK" Then Text3 = "TEKNIK KOMPUTER"
Command1.SetFocus
End If
End Sub
5. Tekan F5 atau Play untuk melihat Hasilnya :

Hasil

 Catatan : untuk Property [name : tidak ada diubah]
               untuk Property [Caption : disesuaikan] > Perhatikan Rumus.

Nah... Sekian postingan kali ini sobat Mengenai Program Jurusan, jika ada pertanyaan atau komentar atau saran, langsung saja dikotak komentar yang sudah disediakan.
semoga tutorial diatas, bermanfaat bagi kita semua *amin.

Silahkan membaca Tutorial selanjutnya mengenai "Program Kalkulasi"
Salam Sukses....!




 

0 komentar:

Posting Komentar

Terimakasih atas Umpan baliknya, Good Lucky...!
GOD Bless Us....!