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.
Salam Sukses....!
