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.

mengubah warna background form dengan option button

Pada pertemuan kali ini saya akan berbagi mengenai salah satu kegunaan component option button pada visual basic. Pada prinsip dasarnya component option button berfungsi untuk memilih salah satu dari beberapa option / pilihan yang tersedia. Baiklah untuk contoh kali ini saya akan mengubah warna background pada form dengan beberapa component pilihan option button.

Pertama-tama buatlah form seperti gambar berikut:

Kemudian aturlah properties dari form tersebut dengan pengaturan sebagai berikut:

COMPONENT	PROPERTIES	PENGATURAN
Form	Name	Form2
Label1	Caption	PILIH WARNA
Option1	Caption	MERAH
Option2	Caption	KUNING
Option3	Caption	HIJAU
Option4	Caption	BIRU
Command1	Caption	PROSES

 

Setelah pengaturan properties selesai, kita akan memasukkan listing program untuk mengubah warna background dari form tersebut. Caranya double click command1 Proses kemudian ketik listing berikut:

Private Sub Command1_Click() If Option1.Value = True Then Form2.BackColor = vbRed Else If Option2.Value = True Then Form2.BackColor = vbYellow Else If Option3.Value = True Then Form2.BackColor = vbGreen Else If Option4.Value = True Then Form2.BackColor = vbBlue End If : End If : End If : End If End Sub

 

Yang harus diperhatikan dari listing program diatas adalah mengenai mekanisme penggunaan if bercabang, jika penggunaan If ada empat kali maka harus ditutup dengan End If sebanyak empat kali pula.

Jalankan program dengan menekan tombol F5 pada form. Berikut tampilan program setelah dijalankan:

 
















Demikian share artikel kali ini mengenai cara penggunaan component option button dengan kasus mengubah warna background form. Mudah-mudahan bermanfaat dan sampai jumpa pada artikel menarik selanjutnya.