Copyright © 2013 by.Radinal S. Diberdayakan oleh Blogger.
Home » » Membuat Program Jurusan pada Visual Basic

Membuat Program Jurusan pada Visual Basic

Written By Unknown on Rabu, 17 April 2013 | 4/17/2013 05:44:00 PM

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




 
Share this article :

0 komentar:

Posting Komentar

Terimakasih telah membaca Artikel ini, silahkan tinggalkan Pesan...
Salam Sejahtera :)

 
Support : TLDM | LLE | Simamora
Copyright © 2013. TLDM - All Rights Reserved
Template Created by Creating Website Published by Radinal S
Proudly powered by Blogger