Selamat siang lagi ngapain ini ih Kepo amat Lu ?
Kali ini om Kepo akan memberikan tutorial cara membuat software sendiri lumayan terpampang foto pacar ane di balik software buatan saya :v
Software yang kita buat kali ini adalah kwitansi digital. untuk mempermudah dalam pembuatan kwitansi jual beli.
Cara kerja software ini cukup mudah yaitu dengan cara memasukkan nilai ataupun Nama penerima kwitansi setelah itu dengan mudah kita dapat mencetak kwitansi tersebut.
siapkan toolnya kawan
- Komputer/Lepi
- Kopi
Luwek
- Cemilah
- Visual Basicnya Kawan
Okey langsung saja di simak kawan-kawan.
1. Buka Visual Basiknya gan
2. Buatlah 1 form dengan menu: 5 text, 11 label dan 1 picturebox.
3. Buatlah 1 modul dan masukkan listing program di bawah ini :
Public Function Terbilang(x As Double) As String
Dim tampung As Double
Dim teks As String
Dim bagian As String
Dim i As Integer
Dim tanda As Boolean
Dim letak(5)
letak(1) = "ribu "
letak(2) = "juta "
letak(3) = "milyar "
letak(4) = "trilyun "
If (x = 0) Then
Terbilang = "nol"
Exit Function
End If
If (x < 2000) Then
tanda = True
End If
teks = ""
If (x >= 1E+15) Then
Terbilang = "Nilai terlalu besar"
Exit Function
End If
For i = 4 To 1 Step -1
tampung = Int(x / (10 ^ (3 * i)))
If (tampung > 0) Then
bagian = ratusan(tampung, tanda)
teks = teks & bagian & letak(i)
End If
x = x - tampung * (10 ^ (3 * i))
Next
teks = teks & ratusan(x, False)
Terbilang = teks
End Function
Function ratusan(ByVal y As Double, ByVal flag As Boolean) As String
Dim tmp As Double
Dim bilang As String
Dim bag As String
Dim j As Integer
Dim angka(9)
angka(1) = "se"
angka(2) = "dua "
angka(3) = "tiga "
angka(4) = "empat "
angka(5) = "lima "
angka(6) = "enam "
angka(7) = "tujuh "
angka(8) = "delapan "
angka(9) = "sembilan "
Dim posisi(2)
posisi(1) = "puluh "
posisi(2) = "ratus "
bilang = ""
For j = 2 To 1 Step -1
tmp = Int(y / (10 ^ j))
If (tmp > 0) Then
bag = angka(tmp)
If (j = 1 And tmp = 1) Then
y = y - tmp * 10 ^ j
If (y >= 1) Then
posisi(j) = "belas "
Else
angka(y) = "se"
End If
bilang = bilang & angka(y) & posisi(j)
ratusan = bilang
Exit Function
Else
bilang = bilang & bag & posisi(j)
End If
End If
y = y - tmp * 10 ^ j
Next
If (flag = False) Then
angka(1) = "satu "
End If
bilang = bilang & angka(y)
ratusan = bilang
End Function
4. Klik 2 kali pada form kosongnya gan setelah itu kembali masukkan Listing program di bawah ini :D
Private Sub Command2_Click()
End
End Sub
Private Sub Text1_Change()
Dim angka As Double
Dim teks As String
angka = Val(Text1.Text)
teks = Terbilang(angka)
Text2.Text = teks
Label3 = Text2 & " Rupiah"
If Text1 = "" Then
Text1 = "0"
End If
Label4 = FormatNumber(Text1)
End sub
Private Sub Text3_Change()
Label2 = Text3
End Sub
Private Sub Text4_Change()
Label1 = Text4
End Sub
Private Sub Text5_Change()
Label9 = Text5
End Sub
Private Sub Text6_Change()
Label11 = Text6
End Sub
Mungkin hanya itu saja untuk menu Cetak akan di bahas lain waktu saudara. mengingat tangan saya yang sudah mulai lapar. langsung jalankan aja programnya ya :D
Title : Cara Mudah Membuat Software Kwitansi
Description : Selamat siang lagi ngapain ini ih Kepo amat Lu ? Kali ini om Kepo akan memberikan tutorial cara membuat software sendiri lumayan terpampa...
