cara membuat aplikasi nilai menggunakan vb 6.0



1.membuat 3 label yang digunakan untuk judul dan keterangan
2.membuat 1 label yang digunakan untuk menentukan hasil
3.membuat 1 textbox yang digunakan untuk memasukkan nilai
4.membuat 3 command button.
ubah propertinya lihat seperti dibawah ini

OBJEK PROPERTI NILAI
form caption mengetahui nilai
label 1 caption NILAI A,B,C,D,E
label 2 caption nilai
label 3 caption hasil
text 1 name text1
command 1 caption proses
command 2 caption bersih
command 3 caption exit

Lalu mulai codingnya………!!!!

Private Sub Command1_Click()
If Text1.Text = “” Then
MsgBox “maaf, anda belum memasukkan angka”, vbCritical, “critikal”
Text1.SetFocus
Else
Dim nilai As Integer
Dim ank As String
nilai = Text1.Text
Select Case nilai
Case 80 To 100
ank = “A”
Case 65 To 81
ank = “B”
Case 55 To 66
ank = “C”
Case 40 To 56
ank = “D”
Case Is = Asc(“0″) & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = 13 Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete) Then
KeyAscii = 0
MsgBox "maaf, hanya angka saja yang boleh masuk", vbCritical, "critikal"
End If
If KeyAscii = 13 Then
If Text1.Text = "" Then
MsgBox "maaf, anda belum memasukkan angka", vbCritical, "critikal"
Text1.SetFocus
Else
Command1.SetFocus
End If
End If
End Sub

selesai lah pembuatan aplikasinya
semoga berhasil………

jika anda ingin mendownload souce codenya silahkan klik disini dan aplikasinya klik disini.

About these ads

not with me

Posted in visual basic

anam46

arsipan
category
kalender
February 2011
S M T W T F S
« Jan   Mar »
 12345
6789101112
13141516171819
20212223242526
2728  
Follow

Get every new post delivered to your Inbox.

%d bloggers like this: