Menentukan Nilai Abjad Visual Basic

Pada tutorial kali ini kita akan mebuat sebuah program, diman jadwal tersebut akan mengkonversi sebuah nilai angka kedalam nilai huruf, berikut pembahasanya :

1. Jalankan VB dengan jadwal Stanadar EXE
2. Tambahkan 2 label, 1 text box, dan1  command button, aturlah hingga menyerupai ini :

3. ubah captionya, menyerupai ini :

Tool Box	Properties	Keterangan
Form 1	Start Up Position	Center Screen
Label 1	Caption	Nilai
	Font Size	14
Label 2	Caption	Kosong
	Font Size	24
	Aligment	Center
Text 1	Caption	Kosong
Command1	Caption	Nilai Huruf
	Font Size	12

Sehingga Seperti ini :

4. Tambahkan Script berikut :

Private Sub Command1_Click()
If Text1 >= 0 And Text1 <= 20 Then 'Jika Text1 lebih besar dari 0 dan lebih kecil dari 20 maka
Label2 = "E" 'Caption label2 ialah E

ElseIf Text1 >= 21 And Text1 <= 40 Then 'Jika nilai text1 diantara 21 hingga 40 maka
Label2 = "D" 'Caption label2 ialah D

ElseIf Text1 >= 41 And Text1 <= 60 Then 'Jika nilai text1 diantara 41 hingga 60 maka
Label2 = "C" 'Caption label2 ialah C

ElseIf Text1 >= 61 And Text1 <= 80 Then 'Jika nilai text1 diantara 61 hingga 80 maka
Label2 = "B" 'Caption label2 ialah B

ElseIf Text1 >= 81 And Text1 <= 99 Then'Jika nilai text1 diantara 81 hingga 99 maka
Label2 = "A+" 'Caption label2 ialah A+

ElseIf Text1 = 100 Then 'Jika nilai text1 = 100
Label2 = "A++" 'Caption label2 ialah A++

Else 'Jika tidak dalam kondisi di atas, maka akan ada
MsgBox "Isi Nilai Mulai dari 0 Sampai 100" 'Kotak Pesan Isi Nilai Mulai dari 0 Sampai 100
End If
End Sub

Private Sub Command1_Click() If Text1 >= 0 And Text1 <= 20 Then 'Jika Text1 lebih besar dari 0 dan lebih kecil dari 20 maka Label2 = "E" 'Caption label2 ialah E ElseIf Text1 >= 21 And Text1 <= 40 Then 'Jika nilai text1 diantara 21 hingga 40 maka Label2 = "D" 'Caption label2 ialah D ElseIf Text1 >= 41 And Text1 <= 60 Then 'Jika nilai text1 diantara 41 hingga 60 maka Label2 = "C" 'Caption label2 ialah C ElseIf Text1 >= 61 And Text1 <= 80 Then 'Jika nilai text1 diantara 61 hingga 80 maka Label2 = "B" 'Caption label2 ialah B ElseIf Text1 >= 81 And Text1 <= 99 Then'Jika nilai text1 diantara 81 hingga 99 maka Label2 = "A+" 'Caption label2 ialah A+ ElseIf Text1 = 100 Then 'Jika nilai text1 = 100 Label2 = "A++" 'Caption label2 ialah A++ Else 'Jika tidak dalam kondisi di atas, maka akan ada MsgBox "Isi Nilai Mulai dari 0 Sampai 100" 'Kotak Pesan Isi Nilai Mulai dari 0 Sampai 100 End If End Sub

5. Terakhir, jalankan programnya

Ketika anda menuliskan angka -1 ke bawah dan 101 ke atas maka akan muncul pesan "Kotak Pesan Isi Nilai Mulai dari 0 Sampai 100"

dan dikala anda menuliskan angka dari 0 hingga 100 maka label 2 akan berubah menurut script yang telah dituliskan.

Itulah tutorial mengenai Menentukan Nilai Huruf, 

sekian dan terimakasih