Program konversi nilai angka ke hurup

Pada kesempatan kali ini saya akan berbagi bagaimana cara membuat program pengkonversi dari angka ke hurup. Kasus ini seperti pemberian nilai A, B, C atau D pada mata pelajaran yang diberikan oleh guru-guru kita pada waktu sekolah dulu.

 

Buatlah sebuah form seperti gambar dibawah ini:

Kemudian atur properties form tsb seperti tabel dibawah:

COMPONENT	PROPERTIES	PENGATURAN
Label1	Caption	Nilai
Label2	Caption	Grade Hurup
Text1	Text	t_angka
Text2	Text	t_hurup
Command1	Caption	Proses
Commnad2	Caption	Keluar

Setelah pengaturan properties selesai kita akan lanjut ke bagian intinya yaitu menyisipkan perintah/listing programnya.

1.       Doble klik form tsb kemudian ketik listing berikut.

Private Sub Form_Load()

t_angka.Text = "" t_angka.Alignment = 1 t_hurup.Text = "" t_hurup.Enabled = False

End Sub

2.       Setelah selesai double klik command1 proses kemudian ketik listing berikut.

Private Sub cmd_proses_Click()

If t_angka.Text <= 55 Then t_hurup.Text = "D" Else If t_angka.Text <= 65 Then t_hurup.Text = "C" Else If t_angka.Text <= 80 Then t_hurup.Text = "B" Else If t_angka.Text <= 100 Then t_hurup.Text = "A" End If End If End If End If

End Sub

Pada listing di atas ada batasan penginputan yaitu:

-          Angka 1 – 55 = D

-          Angka 56 – 65 = C

-          Angka 66 – 80 = B

-          Angka 81 – 100 = A

3.       Setelah selesai double klik command2 keluar kemudian ketik listing berikut.

Private Sub cmd_keluar_Click()

Unload Me

End Sub

Setelah selesai, kemudian coba jalankan dengan menekan tombol F5 pada form, kemudian ketik angka di t_angka antara 1 sampai 100 kemudian klik tombol proses, maka akan tampil seperti gambar berikut.

Akhirnya, sampai disini artikel mengenai cara mengkonversi angka ke hurup, semoga bermanfaat dan sampai ketemu di artikel selanjutnya.