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 BoxPropertiesKeterangan
Form 1Start Up PositionCenter Screen
Label 1CaptionNilai
Font Size14
Label 2CaptionKosong
Font Size24
AligmentCenter
Text 1CaptionKosong
Command1CaptionNilai Huruf
Font Size12
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
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


Bantu kembangkan Blues Pedia yuk, caranya share artikel ini :

G+

0 Response to "Menentukan Nilai Huruf Visual Basic"

Post a Comment