Konversi Desimal Menjadi Angka Romawi Dengan Visual Basic 6.0

Konversi Desimal Menjadi Angka Romawi Dengan Visual Basic 6.0 | Gho Blog's - Posting kali ini saya akan membahas bagaimana membuat program sederhana untuk konversi dari bilangan desimal kmenjadi angka romawi menggunakan Visual Basic 6.0.

Sobat bisa kembangkan program ini sesuai kebutuhan, dsini saya akan membahas koding sederhananya saja. Sebagai contoh dan latihan, silakan sobat tambahkan dua buah TextBox (Text1 dan Text2) di form.

Sekarang kita akan membuat fungsi Konversi dari desimal ke angka romawi terlebih dahulu, letakkan script berikut pada bagian General Form Code :


Lihat Juga : Cara Mudah Mendapatkan Dollar Dari Inetrnet...!!!

Function Convert(IntegerAngka As Integer) As String Dim i% Dim IntegerSepuluh%, IntegerLima%, IntegerSatu% Dim StringSeribu$, StringLimaRatus$ Dim StringSeratus$, StringLimaPuluh$ Dim StringSepuluh$, StringLima$, StringSatu$ Dim StringRom$ IntegerSatu = IntegerAngka IntegerSepuluh = IntegerSatu \ 10 IntegerSatu = IntegerAngka Mod 10 IntegerLima = IntegerSatu \ 5 IntegerSatu = IntegerAngka Mod 5 For i = 0 To IntegerSepuluh - 1 StringSepuluh = StringSepuluh + "X" Next If IntegerSatu <> 4 Then For i = 0 To IntegerLima - 1 StringLima = StringLima + "V" Next End If For i = 0 To IntegerSatu - 1 StringSatu = StringSatu + "I" Next If IntegerSatu = 4 Then If IntegerLima = 1 Then StringSatu = StringRom + "IX" Else StringSatu = StringRom + "IV" End If End If StringRom = StringSepuluh + StringLima + StringSatu Convert = StringRom End Function

Kemudian kita akan membuat Text1.Text mengeksekusi fungsi Konversi diatas menjadi angka romawi yang akan ditampilkan pada Text2.Text. Disini saya menggunakan event/procedure KeyPress, jadi sobat masukkan script berikut ini dan letakkan tepat diantara Private Sub Text1_KeyPress(KeyAscii As Integer) dengan End Sub :

On Error GoTo salah: If KeyAscii = 13 Then Text2.Text = Convert(Text1.Text) salah: If (Err.Number = 13) Then MsgBox "Data Tidak Boleh Huruf", vbInformation Text1.Text = "" Text1.SetFocus End If End If

Lihat Juga : Cara Mudah Mendapatkan Dollar Dari Inetrnet...!!!

Sekarang coba running program tersebut, masukkan angka pada Text1 kemudian tekan enter dan lihat hasilnya pada Text2. Silakan sobat kembangkan sendiri program ini sesuai dengan kebutuhan sobat.

Sekian dulu posting dari saya yang berjudul Konversi Desimal Menjadi Angka Romawi Dengan Visual Basic 6.0. Selamat mencoba dan semoga bermanfaat.