Menentukan Nilai Huruf Visual Basic

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

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

3. ubah captionya, seperti 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 adalah E

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

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

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

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

ElseIf Text1 = 100 Then 'Jika nilai text1 = 100
Label2 = "A++" 'Caption label2 adalah 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 adalah E ElseIf Text1 >= 21 And Text1 <= 40 Then 'Jika nilai text1 diantara 21 sampai 40 maka Label2 = "D" 'Caption label2 adalah D ElseIf Text1 >= 41 And Text1 <= 60 Then 'Jika nilai text1 diantara 41 sampai 60 maka Label2 = "C" 'Caption label2 adalah C ElseIf Text1 >= 61 And Text1 <= 80 Then 'Jika nilai text1 diantara 61 sampai 80 maka Label2 = "B" 'Caption label2 adalah B ElseIf Text1 >= 81 And Text1 <= 99 Then'Jika nilai text1 diantara 81 sampai 99 maka Label2 = "A+" 'Caption label2 adalah A+ ElseIf Text1 = 100 Then 'Jika nilai text1 = 100 Label2 = "A++" 'Caption label2 adalah 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 ketika anda menuliskan angka dari 0 sampai 100 maka label 2 akan berubah berdasarkan script yang telah dituliskan.

Itulah tutorial mengenai Menentukan Nilai Huruf, 

sekian dan terimakasih