Masukan kode kupon "hosting2020" untuk mendapatkan diskon tambahan Hosting Unlimited Indonesia

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

0 Response to "Menentukan Nilai Huruf Visual Basic"

Post a comment