No Faktur Otomatis Di Vb.Net 2013

Selamat Malam rekan-rekan kali ini saya akan menshare cara membuat no faktur.. no faktur ini akan otomatis angkanya bertambah jika transaksi dengan kode sebelumnya di simpan..
Berikut Adalah Design Tabel yg Saya Pakai dan anda hanya berpatokan pada field bayarid saja.


Langkah 1 : Drag Textbox ke dalam sebuah form
Langkah 2 : Ketik Coding Berikut Dibawah Public Class

Sub no_bayar()
        Dim kode, kodebaru, tgl As String
        Dim no As Integer
        tgl = Format(Now, "-dd-MM-yy")
        kon.Close()
        kon.Open()
        perintah.Connection = kon
        perintah.CommandType = CommandType.Text
        perintah.CommandText = "SELECT bayarid FROM bayar ORDER BY bayarid DESC LIMIT 1"
        cek = perintah.ExecuteReader
        cek.Read()
        If cek.HasRows Then
            kode = cek.Item("bayarid")
            no = Val(Microsoft.VisualBasic.Mid(kode, 3, 4))
            no = no + 1
            kodebaru = "B-" + Format(no, "0000") + tgl
            TextBox1.Text = kodebaru
        Else
            TextBox1.Text = "B-0001" + tgl
        End If
        cek.Close()
        kon.Close()
    End Sub
Langkah 3 : klik 2 x di form yang mana hasilnya form1_load lalu ketikan koding berikut
call no_bayar()
Langkah 4 : Selesai Deh

Tutorial Membuat Function Terbilang

Selamat malam sahabat blogger kali ini saya ingin memberi contoh sebuah function terbilang.. hal ini biasanya sangat diperlukan dalam applikasi penjualan atau minimarket.. nah langsung saja kita ke kasusnya.

Berikut function nya :

Function terbilang(ByVal n As Double) As String
        Dim satuan As String() = {"", " Satu", " Dua", " Tiga", " Empat", " Lima", " Enam", " Tujuh", " Delapan", " Sembilan", "Sepuluh", "Sebelas"}

        Select Case n
            Case 0 To 11
                terbilang = "" + satuan(Fix(n))
            Case 11 To 19
                terbilang = terbilang(n Mod 10) + " Belas"
            Case 20 To 99
                terbilang = terbilang(Fix(n / 10)) + " Puluh" + terbilang(n Mod 10)
            Case 100 To 199
                terbilang = " Seratus" + terbilang(n - 100)
            Case 200 To 999
                terbilang = terbilang(Fix(n / 100)) + " Ratus" + terbilang(n Mod 100)
            Case 1000 To 1999
                terbilang = " Seribu" + terbilang(n - 1000)
            Case 2000 To 999999
                terbilang = terbilang(Fix(n / 1000)) + " Ribu" + terbilang(n Mod 1000)
            Case 1000000 To 999999999
                terbilang = terbilang(Fix(n / 1000000)) + " Juta" + terbilang(n Mod 1000000)
            Case 1000000000 To 999999999999
                terbilang = terbilang(Fix(n / 1000000000)) + " Milyar" + terbilang(n Mod 1000000000)
            Case Else
                terbilang = terbilang(Fix(n / 1000000000000)) + " Triliyun" + terbilang(n Mod 1000000000000)
        End Select
    End Function

Cara Penggunaan :

1.  Siapkan sebuah label = label29.text
2. Siapkan sebuah textbox = textbox25.text
3. lalu panggil function tersebut dengan coding berikut
   Label29.Text = Format(TextBox25.Text, "Rp ###,###,###,##")      
   Label29.Text = UCase(terbilang(TextBox25.Text)) & " RUPIAH"
   
   Nah catatanya adalah sesuaikan di event mana pemanggil function ini anda letakan..
   Happy Coding.. klo raggu bisa chat admin