Membuat Terbilang Otomatis Di Visual Basic 0.6

Membuat Terbilang Otomatis Di Visual Basic 0.6 - Terbilang memang sangat dibutuhkan untuk mempermudah dalam membaca suatu angka, sehinga dapat meringankan beban pekerjaan seseorang, biasanya terbilang digunakan di kwitansi, invoice dan lain-lain.

Pada kesempatan kali ini saya akan memberikan tutorial untuk membuat terbilang otomatis di visual basic 0.6, Sebagaimana telah diketahui pada pertemuan sebelumnya kita telah belajar membuat fungsi terbilang otomatis di Microsoft Excel, sebenarnya fungsi dan kegunaannya sama pada pembahasan kali ini yaitu sama-sama membantu anda dalam membuat fungsi terbilang, sehingga tidak perlu untuk mengetik secara manual, Namun perbedaanya hanya terletak pada bahasa pemrograman yang digunakan yang kali ini menggunakan bahasa pemrograman Visual Basic 0.6.

Langkah - Langkah Membuat Terbilang Otomatis Di Visual Basic

1. Pertama, Buka Aplikasi Microsoft Visual Basic 0.6 pada komputer anda, kemudian buatlah sebuah Form seperti pada gambar dibawah ini.
   
2. Form diatas saya ambil untuk membuat aplikasi Invoice, sehingga ketika saya masukan daftar biaya maka akan langsung otomatis akan muncul terbilang pada aplikasi tersebut.
3. Gunakan Script Terbilang Otomatis dibawah ini untuk membuatnya.
   
   Function ANGKAKEHURUF(ByVal n As Currency) As String
     Dim SAT As Variant
     
     SAT = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan", "Sepuluh", "Sebelas")
     Select Case n
       Case 0 To 11
           ANGKAKEHURUF = " " + SAT(Fix(n))
       Case 12 To 19
           ANGKAKEHURUF = ANGKAKEHURUF(n Mod 10) + " Belas"
       Case 20 To 99
           ANGKAKEHURUF = ANGKAKEHURUF(Fix(n / 10)) + " Puluh" + ANGKAKEHURUF(n Mod 10)
       Case 100 To 199
           ANGKAKEHURUF = " Seratus" + ANGKAKEHURUF(n - 100)
       Case 200 To 999
           ANGKAKEHURUF = ANGKAKEHURUF(Fix(n / 100)) + " Ratus" + ANGKAKEHURUF(n Mod 100)
       Case 1000 To 1999
           ANGKAKEHURUF = " Seribu" + ANGKAKEHURUF(n - 1000)
       Case 2000 To 999999
           ANGKAKEHURUF = ANGKAKEHURUF(Fix(n / 1000)) + " Ribu" + ANGKAKEHURUF(n Mod 1000)
       Case 1000000 To 999999999
           ANGKAKEHURUF = ANGKAKEHURUF(Fix(n / 1000000)) + " Juta" + ANGKAKEHURUF(n Mod 1000000)
       Case Else
           ANGKAKEHURUF = ANGKAKEHURUF(Fix(n / 1000000000)) + " Milyar" + ANGKAKEHURUF(n Mod 1000000000)
     End Select
   End Function
   Private Sub nomor()
   Call BukaDB
   'baca tabelpembelian yang fakturnya paling akhir
   RSnomor.Open "select * from invoice Where nomor In(Select Max(nomor)From invoice)Order By Faktur Desc", Conn
   RSnomor.Requery
       Dim Urutan As String * 20
       Dim Hitung As Long
       With RSnomor
           'jika tidak ditemukan maka...
           If .EOF Then
               Urutan = " 001"
               'no fakturnya adalah YYMMDD0001
               Label8 = Urutan
               Else
                   'jika harinya sama maka... YYMMDD0001+1
                   Hitung = (!nomor) + 1
                   Urutan = Right("00" & Hitung, 4)
               End If
           Label8 = Urutan
       End With
   End Sub
   
   Private Sub CmdInput_Click()
    If CmdInput.Caption = "&INPUT" Then
           CmdInput.Caption = "&SIMPAN DAN CETAK"
           CmdTutup.Caption = "&BATAL"
           SiapIsi
           KosongkanText
           Combo1.SetFocus
       Else
           If Combo1 = "" Or DTPicker1 = "" Or Text4 = "" Or Text5 = "" Or Text6 = "" Then
               MsgBox "Data Belum Lengkap, Mohon Dilengkapi!"
           Else
               Dim SQLTambah As String
               SQLTambah = "Insert Into invoice (faktur,nomor,kode,tanggal,biaya,total,pph,terbilang) values ('" & Label8 & "','" & Label8 & "','" & Left(Combo1, 2) & "','" & DTPicker1 & "','" & Text4 & "','" & Text5 & "','" & Text6 & "','" & Text7 & "')"
               Conn.Execute SQLTambah
               KondisiAwal
           End If
       End If
   
   End Sub
   Private Sub KosongkanText()
       Combo1 = ""
       Text4 = ""
       Text5 = ""
       Text6 = ""
       Text7 = ""
   End Sub
   Private Sub SiapIsi()
       Combo1.Enabled = True
        Text4.Enabled = True
       Text5.Enabled = True
       Text6.Enabled = True
       Text7.Enabled = True
   End Sub
   
   Private Sub TidakSiapIsi()
       Combo1.Enabled = False
       Text4.Enabled = False
       Text5.Enabled = False
       Text6.Enabled = False
       Text7.Enabled = False
   End Sub
   Private Sub KondisiAwal()
       KosongkanText
       TidakSiapIsi
       CmdInput.Caption = "&INPUT"
       CmdTutup.Caption = "&TUTUP"
       CmdInput.Enabled = True
   End Sub
   
   Private Sub CmdTutup_Click()
   Unload Me
   End Sub
   Private Sub Combo1_Change()
   Call BukaDB
       'cari data pemasok
       RSPemasok.Open "Select * from perusahaan where kode='" & Left(Combo1, 6) & "'", Conn
       'jika ditemukan tampilkan datanya
       If Not RSPemasok.EOF Then
           Label1 = RSPemasok!kode
           Text2 = RSPemasok!nama
           Text3 = RSPemasok!alamat
       End If
       Conn.Close
   End Sub
   Private Sub Form_Load()
   Call BukaDB
   RSPemasok.Open "perusahaan", Conn
   Combo1.Clear
   'tampilkan kod epemasok di combo
   Do Until RSPemasok.EOF
       Combo1.AddItem RSPemasok!kode & Space(5) & RSPemasok!nama
       RSPemasok.MoveNext
   Loop
   Call nomor
   KondisiAwal
   End Sub
   
   Private Sub Text4_Change()
   Text5 = Text4
   End Sub
   
   Private Sub Text5_Change()
   Text6 = Val(Text5) * 2 / 100
   
   On Error Resume Next
   
     If Text5 <> "" Then
       Text7 = ANGKAKEHURUF(Text5) + " Rupiah"
     Else
       Text7 = ""
     End If
   End Sub
4. Selamat mencoba

Untuk download Sourcecode Terbilang Otomatis di Visual Basic silahkan download Link Dibawah

Download Sourcecode Gratis

Demikian tutorial Membuat Terbilang Otomatis Di Visual Basic 0.6 semoga dapat bermanfaat bagi anda dan dapat digunakan sebagaimana mestinya, terima kasih