Mengubah Bilangan Menjadi Bentuk Rp. 00,- dan Fungsi Terbilang

MENGUBAH BILANGAN MENJADI BENTUK Rp. 00,- DAN FUNGSI TERBILANG DENGAN MENGGUNAKAN VB 6.0

Untuk membuat program mengubah bilangan menjadi bentuk Rp. 00,- dan fungsi terbilang terlebih dahalu anda harus memiliki program Microsoft Visual Basic 6.0 setelah itu Buka program Visual Basic dalam Komputer anda dan pastikan pilihan anda adalah dalam posisi Standart EXE

Klik Tombol Open, maka tampilan Visual Basic yang akan muncul seperti dibawah ini

Selanjutnya anda tambahkan komponen Label, Text, dan Command dan desain seperti gambar dibawa ini:

Kemudian pada propertisnya anda atur seperti berikut ini:

Form1

Caption : Fungsi Terbilang

BorderStyle : 1-Fixed Single

Label1

Caption : Masukkan Angka

Label2

Caption : Terbilang

Text1

Text : -

Text2

Text : -

Text3

Text : -

Text4

Text : -

Command1

Caption : Keluar

BackStyle : 0-Transparent

Command2

Caption :Lagi

BackStyle : 0-Transparent

Sehingga hasilnya seperti gambar dibawa ini

Kemudian masukkan kode program berikut ini

Private Sub Command1_Click()

Unload Me

End Sub

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text1.SetFocus

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

   Command1.SetFocus

End If

End Sub

Private Sub Text1_LostFocus()

On Error GoTo 1

VUbah = Round(Val(Text1))

'Awal Konversi Terbilang

Banyak = 10 - Len(VUbah)

Z = ""

If Banyak <> 0 Then

    For Ulang = 1 To Banyak

     Z = Z + "0"

    Next Ulang

End If

K = Z + Trim(Str(VUbah))

For I = 1 To 10 Step 1

Select Case Mid(K, I, 1)

       Case Is = "0"

            If Val(K) = 0 Then

               A = "Nol "

               Else

               A = A + ""

            End If

       Case Is = "1"

            If (I = 3 Or (I = 6 Or I = 9)) And (Mid(K, I, 1) = "1" And Mid(K, I + 1, 1) <> "0") Then

               A = A + ""

               ElseIf (I = 10 Or I = 4) And Val(Mid(K, I - 1, 1)) <> "1" Then

                      A = A + "satu "

                      ElseIf (I = 10 Or I = 4) And Val(Mid(K, I - 1, 1)) = "0" Then

                             A = A + "satu "

                             ElseIf I = 7 And (Mid(K, I - 1, 1) <> "0" And (Mid(K, I - 1, 1) <> "1")) Then

                             A = A + "satu "

                             Else

                             A = A + "se"

            End If

       Case Is = "2"

            A = A + "dua  "

       Case Is = "3"

            A = A + "tiga  "

       Case Is = "4"

            A = A + "empat  "

       Case Is = "5"

            A = A + "lima  "

       Case Is = "6"

            A = A + "enam  "

       Case Is = "7"

            A = A + "tujuh  "

       Case Is = "8"

            A = A + "delapan  "

       Case Is = "9"

            A = A + "sembilan  "

       Case Is = ","

            A = A + "koma "

End Select

If I = 4 Or (I = 7 Or I = 10) Then

   If Mid(K, I - 1, 1) <> "0" Then

      If Mid(K, I - 1, 1) = "1" And Mid(K, I, 1) <> "0" Then

         A = A + "belas "

      End If

   End If

       ElseIf Mid(K, I, 2) = "10" And (I = 3 Or (I = 6 Or I = 9)) Then

          A = A + "puluh "

       End If

      

If I = 4 And Val(Mid(K, 1, 4)) <> 0 Then

   A = A + "juta "

   ElseIf Mid(K, I, 1) <> "0" And (I = 2 Or (I = 5 Or I = 8)) Then

          A = A + "ratus "

   ElseIf Val(Mid(K, 5, 3)) <> 0 And I = 7 Then

          A = A + "ribu "

   ElseIf Mid(K, I, 1) <> "0" And Mid(K, I, 1) <> "1" And (I = 3 Or (I = 6 Or I = 9)) Then

          A = A + "puluh "

End If

If I = 10 Then

   A = A + "rupiah"

   X = UCase(Mid(A, 1, 1))

   Y = Mid(A, 2)

   Hasil = X + Y

If Len(Hasil) > 60 Then

     Pos = 60

     Do While Mid(Hasil, Pos, 1) = " "

        Pos = Pos - 1

     Loop

     Konversi1 = Left(Hasil, Pos)

     Konversi2 = Mid(Hasil, Pos + 1, Len(Hasil) - Pos)

  Else

     Konversi1 = Hasil

     Konversi2 = ""

  End If

 

Text3.Text = Konversi1

Text4.Text = LTrim(Konversi2)

  

End If

    Next I

'Konversi Format Rp.000.000,-

For J = 1 To 10 Step 1

If Val(Mid(K, 1, J)) = 0 Then

Else

    H = H + Mid(K, J, 1)

   r = r + 1

   If J = 4 Or J = 7 Then

    H = H + "."

   End If

End If

If J = 10 Then

H = "Rp. " + H + " ,-"

End If

    Next J

Text2.Text = H

1 Exit Sub

End Sub

Setelah memasukkan kode diatas anda dapat melihat hasilnya

Seperti yang telah saya buat. Lihat gambar dibawa ini:

Mudahkan teman-teman..!!

Selamat mencoba semoga sukses…