Aplikasi Konversi Angka ke Huruf dengan Visual Basic 2008 - Tutorial ini akan membahas pembuatan aplikasi konversi angka ke huruf. Berikut ketentuan pada aplikasi yang akan dibuat :
Ketentuan :
Jika
nilai lebih besar dari atau sama dengan 90, maka huruf “A”
Jika
nilai lebih besar dari atau sama dengan 80, maka huruf “B”
Jika
nilai lebih besar dari atau sama dengan 70, maka huruf “C”
Jika
nilai lebih besar dari atau sama dengan 60, maka huruf “D”
1. Buatlah project baru Windows Form Application
2. Masukkan kontrol – kontrol berikut
:
No
|
Object
|
Property
|
Nilai
|
1
|
Form
|
Text
|
Konversi
Angka ke Huruf
|
2
|
Label1
|
Text
|
Masukkan
nilai :
|
3
|
TextBox1
|
Name
Text
|
TxtNilai
-
|
4
|
Button1
|
Name
Text
|
BtnKonversi
Konversi
|
5
|
Label2
|
Text
|
Nilai huruf
:
|
6
|
TextBox2
|
Name
Text
AutoSize
BorderStyle
|
LblHasil
-
False
Fixed3D
|
3. Desain project seperti gambar berikut :
4. Masukkan kode program berikut pada
tombol BtnKonversi dengan Event Click
Private Sub BtnKonversi_Click(ByVal sender As
System.Object, ByVal e As
System.EventArgs) Handles BtnKonversi.Click
Dim nilai As Integer
Dim huruf As String
nilai =
TxtNilai.Text
If nilai >= 90 Then
huruf = "A"
ElseIf nilai >= 80 Then
huruf = "B"
ElseIf nilai >= 70 Then
huruf = "C"
ElseIf nilai >= 60 Then
huruf = "D"
Else
huruf = "E"
End If
LblHuruf.Text = huruf
End Sub
EmoticonEmoticon