Cara Membuat Fungsi Converter Angka ke Romawi dengan VB 6 Cara Membuat Fungsi Converter Angka ke Romawi dengan VB 6

Untuk membuat sejumlah surat kita sering menggunakan angka romawi untuk menunjukkan bulan atau nomor surat pada surat-surat resmi. Sebagai Contoh No. Surat :  ’001 / Int/III/2010  ’di mana simbol’ III ‘ menunjukkan bahwa surat itu dibuat pada bulan Maret 2010.
Untuk ini kita perlu fungsi yang dapat mengkonversi nomor integer dari 1 sampai 12 menjadi angka romawi. Dalam pemrograman Visual Basic, kita dapat dengan mudah membuat fungsi seperti itu dengan langkah sebagai berikut. Di sini kita akan menunjukkan contoh program untuk membuat fungsi seperti, serta contoh bagaimana menggunakannya.
Pertama buka program VB dan pilih bentuk exe standar

• Klik menu View
• Klik menu Code

• Masukkan Script Konversi Angka ke Penomoran Romawi Berikut :
  

  Function IToR(i As Integer) As String
  Dim s As String
  s = "I II III IV V VI VII VIIIIX X XI XII "
  IToR = Mid(s, (i - 1) * 4 + 1, 4)
  End Function
  

• Selanjutnya Klik menu View
• Next Klik menu Object
• Masukan 2 label controls, dua text box dan CommandButton ke dalam form anda.
• Ubah Caption label pertama Menjadi ‘Bulan’
• Ubah Caption label kedua Menjadi ‘Angka Romawi’
• Ubah textbox pertama ke ‘txtMonth’
• Ubah nama textbox kedua ke ‘txtRomNum’
• Hapus teks pada text box pertama dan kedua
• Ubah nama CommandButton menjadi ‘cmdConvert’
• Ubah keterangan CommandButton ke Convert ”
• Jika anda berhasil, maka tampilan akan menjadi seperti ini
  
• Doblee Klik pada CommandButton ‘Convert’, kemudian masukkan script berikut ini :

  Private Sub cmdConvert_Click()
  txtRomNum.Text = IToR(Val(txtMonth.Text))
  End Sub
  

• Sekarang coba jalankan program anda, jika sudah berhasil maka tamplannya akan seperti ini :