Bangky Roesly

Terbilang Indonesia Pada VB.Net

noreply@blogger.com (Bangky Roesly) — Fri, 16 Dec 2016 22:43:00 -0800

Saat membuat sebuah aplikasi tentunya ada nilai rupiah berupa angka yang diterjemahkan kedalam sebuah tulisan terbilang indonesia.

Contoh : Cetak kwitansi pembayaran yang menerjemahkan deretan nominal rupiah kedalam terbilang indonesia, Cetak surat total nilai rupiah pemesanan barang kedalam terbilang indonesia. etc

Terkait masalah diatas, langsung aja kita akan membahas Tutorial membuat Angka Terbilang Indonesia “

Berikut langkah – langkah nya :

1. Membuat Project Baru Vb. Net

Buka Vb. Net anda (tutorial ini menggunakan Vb 2010), Klik File > New > Project seperti pada gambar diatas.

2. Membuat Nama Aplikasi

Penjelasan gambar dibawah :

2.1 Pastikan pilih Windows Forms Aplication

2.2 Ubah WindowsApplication1 dengan “Angka Terbilang Indonesia” ( ini nama aplikasi yang akan dibuat )

2.3 Klik Ok

3. Interface Aplikasi

Tampil Interface Aplikasi yang kita buat. Klik Form 1, lalu ubah Text 1 pada property object ubah dengan “ Angka Terbilang Indonesia”

4. Add Class Vb. Net

Penjelasan gambar :

4.1 Klik kanan nama aplikasi

4.2 Klik Add

4.3 Klik Class

Tampil menu Class, ubah dengan “ClasTerbilangIndonesia.vb” lalu klik Add

Ketikan Kode Berikut pada ClasTerbilangIndonesia

Imports VB = Microsoft.VisualBasic

Public Class ClasTerbilangIndonesia

Function Terbilang(ByRef Indx As String) As String

Dim satu(10) As String

Dim dua(10) As String

Dim tiga(10) As String

Dim ratus As String

Dim ribu As String

Dim juta As String

Dim Millyar As String

Dim Trilliun As String

satu(0) = "Nol" : satu(1) = "Satu" : satu(2) = "Dua" : satu(3) = "Tiga" : satu(4) = "Empat" : satu(5) = "Lima" : satu(6) = "Enam" : satu(7) = "Tujuh" : satu(8) = "Delapan" : satu(9) = "Sembilan"

dua(0) = "Sepuluh" : dua(1) = "Sebelas" : dua(2) = "Dua belas" : dua(3) = "Tiga belas" : dua(4) = "Empat Belas" : dua(5) = "Lima Belas" : dua(6) = "Enam Belas" : dua(7) = "Tujuh belas" : dua(8) = "Delapan belas" : dua(9) = "Sembilan belas"

tiga(2) = "Dua puluh" : tiga(3) = "Tiga puluh" : tiga(4) = "Empat puluh" : tiga(5) = "Lima puluh" : tiga(6) = "Enam Puluh" : tiga(7) = "Tujuh Puluh" : tiga(8) = "Delapan puluh" : tiga(9) = "Sembilan puluh"

ratus = "ratus" : ribu = "ribu" : juta = "juta"

Millyar = "millyar" : Trilliun = "trilliun"

Dim inp, BhsNilai As String

inp = CStr(Val(Indx))

Select Case Len(inp)

Case 1

BhsNilai = satu(CInt(Indx))

Case 2

If Int(CDbl(VB.Right(inp, 1))) > 0 And CDbl(VB.Left(inp, 1)) > 1 Then BhsNilai = Terbilang(CStr(Int(CDbl(VB.Right(inp, 1)))))

If CDbl(VB.Left(inp, 1)) > 1 Then BhsNilai = tiga(CInt(VB.Left(inp, 1))) & BhsNilai

If CDbl(VB.Left(inp, 1)) = 1 Then BhsNilai = dua(CInt(VB.Right(inp, 1)))

BhsNilai = Replace(BhsNilai, "Satu ribu", "Seribu")

Case 3

BhsNilai = satu(10)

If Int(CDbl(VB.Right(inp, 2))) > 0 Then BhsNilai = Terbilang(CStr(Int(CDbl(VB.Right(inp, 2)))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 1)))) & ratus & BhsNilai

Case 4

If Int(CDbl(VB.Right(inp, 3))) > 0 Then BhsNilai = Terbilang(CStr(Int(CDbl(VB.Right(inp, 3)))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 1)))) & ribu & BhsNilai

BhsNilai = Replace(BhsNilai, "Satu ribu", "Seribu")

Case 5

If Int(CDbl(VB.Right(inp, 3))) > 0 Then BhsNilai = Terbilang(CStr(Int(CDbl(VB.Right(inp, 3)))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 2)))) & ribu & BhsNilai

Case 6

If CInt(VB.Right(inp, 3)) > 0 Then BhsNilai = Terbilang(CStr(CInt(VB.Right(inp, 3))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 3)))) & ribu & BhsNilai

Case 7

If CInt(VB.Right(inp, 6)) > 0 Then BhsNilai = Terbilang(CStr(CInt(VB.Right(inp, 6))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 1)))) & juta & BhsNilai

Case 8

If CInt(VB.Right(inp, 6)) > 0 Then BhsNilai = Terbilang(CStr(CInt(VB.Right(inp, 6))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 2)))) & juta & BhsNilai

Case 9

If CInt(VB.Right(inp, 6)) > 0 Then BhsNilai = Terbilang(CStr(CInt(VB.Right(inp, 6))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 3)))) & juta & BhsNilai

Case 10

If CInt(VB.Right(inp, 9)) > 0 Then BhsNilai = Terbilang(CStr(CInt(VB.Right(inp, 9))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 1)))) & Millyar & BhsNilai

Case 11

If CInt(VB.Right(inp, 9)) > 0 Then BhsNilai = Terbilang(CStr(CInt(VB.Right(inp, 9))))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 2)))) & Millyar & BhsNilai

Case 12

If Val(VB.Right(inp, 9)) > 0 Then BhsNilai = Terbilang(VB.Right(inp, 9))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 3)))) & Millyar & BhsNilai

Case 13

If Val(VB.Right(inp, 12)) > 0 Then BhsNilai = Terbilang(VB.Right(inp, 12))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 1)))) & Trilliun & BhsNilai

Case 14

If Val(VB.Right(inp, 12)) > 0 Then BhsNilai = Terbilang(VB.Right(inp, 12))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 2)))) & Trilliun & BhsNilai

Case 15

If Val(VB.Right(inp, 12)) > 0 Then BhsNilai = Terbilang(VB.Right(inp, 12))

BhsNilai = Terbilang(Int(CDbl(VB.Left(inp, 3)))) & Trilliun & BhsNilai

End Select

BhsNilai = Replace(BhsNilai, "Satu ratus", "Seratus")

BhsNilai = Trim(BhsNilai)

Terbilang = " " & BhsNilai & " "

Terbilang = Replace(Terbilang, " ", " ")

End Function

End Class

5. Design Aplikasi ( Form 1 )

Kembali pada Form 1 untuk memberikan object pada aplikasi. Langkah – langkahnya seperti pada gambar dibawah ini.

Klik menu ToolBox, lalu drag 2 buah Label dan 2 Buah TextBox kedalam Form 1. Buat lah design pada form 1 seperti gambar dibawah ini :

Setelah selesai design pada Form 1, Double Klik Form 1 dan ketikan kode berikut.

Public Class TerbilangIndonesia

Dim clasTerBilangIndonesia As New ClasTerbilangIndonesia

Private Sub TxtAngka_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TxtAngka.TextChanged

If TxtAngka.Text = "" Then

TxtTerbilang.Text = ""

Else

TxtTerbilang.Text = clasTerBilangIndonesia.Terbilang(TxtAngka.Text) + "Rupiah"

TxtAngka.Focus()

End If

End Sub

End Class

Source Code Aplikasi Developer Menggunakan Vb & Access

noreply@blogger.com (Bangky Roesly) — Fri, 29 Apr 2016 11:00:00 -0700

Assalamualaikum wr, wb..

Malem-malem gak bisa tidur, ehh ke inget sama gubuk lama yang udah lama banget gak pernah dikunjungin, klo anak betawi bilang kaga pernah disaba.. udah hampir dua tauuunn kali..

Temen-temen malem ini aye mau mencoba share Source code Aplikasi bekas skripsi dulu.. Aplikasinya dulu ngebuatnya butuh perjuangan banget niyy, paginya gawe malemnya jarang tidur buat makalah sama ngoprek codingan aplikasi ini biar buru-buru kelar kuliahnya (Lahh ngapah jadi curhat !!) hehee..

Aplikasi ini aye buat pake VS 2010 database Ms. Access 2007. Implementasi nya buat kantor pemasaran properti skala menengah lahh.. :)

Alhamdulillah.. udah kelar kuliah dua taun lalu, ehh sampe sekarang masih kuliaaah (Kuli Payah) ajaa.. Haduuhhh..

Langsung aja dah yakk, aye kasih Link Download DISINI

Menu Utama Aplikasi Developer

Semoga bermanfaat ya temen-temen..

Oiaa.. klo ada bug/error source code atau Link Download nya sharing dikomentar yakk.. maklum aye juga masih belajar..

Membuat Menu Utama Pada VB. Net

noreply@blogger.com (Bangky Roesly) — Fri, 5 Jun 2015 08:29:00 -0700

Aplikasi Penjualan Buku Menggunakan Vb. Net dan Access

Step 5 : Membuat Menu Utama

Tambah kan sebuah form(Langkah-langkahnya seperti pada Step2: Membuat Form Data Buku) Rename Form1.vb menjadi MenuUtama.vb lalu rancang lah MenuUtama.vb seperti gambar dibawah ini :

Klik Tab ToolBox > drag MenuStrip, 4 (Empat) Button dan 5 (Lima) GroupBox kedalam Form Laporan. Atur desain menu utama seperti gambar berikut :

Ketikan koding pada masing-masing object seperti kode berikut :

Public Class MenuUtama

Private Sub KodeBukuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KodeBarangToolStripMenuItem.Click

FormKode.Show()

End Sub

Private Sub DataBukuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JenisBarangToolStripMenuItem.Click

FormData.Show()

End Sub

Private Sub TransaksiToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TransaksiToolStripMenuItem.Click

FormTransaksi.Show()

End Sub

Private Sub LaporanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LaporanToolStripMenuItem.Click

Laporan.Show()

End Sub

Private Sub KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click

If MessageBox.Show("Keluar Dari Aplikasi..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then

End

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

FormData.Show()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

FormTransaksi.Show()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Laporan.Show()

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Me.Close()

End Sub

End Class

Tutorial bisa didownload Disini

Membuat Laporan Penjualan menggunakan Crystal Report

noreply@blogger.com (Bangky Roesly) — Fri, 5 Jun 2015 08:20:00 -0700

Aplikasi Penjualan Buku Menggunakan Vb. Net dan Access

Step 4 : Membuat Laporan Penjualan menggunakan Crystal Report

A. Membuat Laporan Penjulan.rpt

Dalam membuat laporan penjualan menggunakan Crystal Report langkah – langkahnya seperti pada gambar berikut :

Klik Projet pada Menu Bar > Add New Item

Klik Reporting lalu Rename CrystalReport1.rpt menjadi LaporanPenjualan.rpt > Klik Add

Pilih tab Standard Klik OK

Pilih tab (+) OLE DB (ADO) > Next

Pada Tab Provider Pilih Microsoft Office 12.0 Database Engine OleDb > Next

Pada Data Source klik tab Browse (...) cari database access pada folder aplikasi > bin > debug. Pilih Access pada tab Office Database Type > Next

Pada struktur database klik tabel Transaksi untuk membuat Laporan, pilih tab (>) sehingga Tabel Transaksi berpindah pada kolom selected Tables. Klik Next

Klik tab (>>) seperti pada gambar diatas untuk memindahkan kedalam kolom Fields to display.

Pilih Standard pada report style > Klik Finish

Sampai langkah ini file laporan yang dibuat sudah jadi, tapi desain laporan masih terlihat tidak rapi. Setting lah desain LaporanPenjualan.rpt seperti pada gambar berikut :

Untuk merubah judul field laporan. Klik kanan pada field yang atas (judul kolom laporan). Lalu setting format huruf dan atur posisi field dengan cara drag field agar terlihat teratur dan rapi. Drag Box Object pada menu ToolBox Seperti pada gambar dibawah ini.

Klik menu ToolBox pilih Line Object untuk membuat garis pembatas agar bentuk terlihat seperti tabel-tabel kolom item laporan. Seperti pada gambar dibawah ini.

Klik tab ToolBox pilih Text Object, drag kedalam laporan dan buat nama toko “ TOKO BUKU SAHABAT” lakukan langkah berikut untuk pembuatan judul laporan. Untuk format tanggal pembuatan laporan Klik kanan pada printdate pilih Format Object. Lalu akan tampil menu format editor, pilih format sesuai keinginan > Ok / Enter.

Lihat pada gambar dibawah ini :

B. Membuat Form Laporan

Tambah kan sebuah form (Langkah-langkahnya seperti pada Step2 : Membuat Form Kode Buku). Rename Form1.vb menjadi Laporan.vb lalu rancang lah form seperti gambar dibawah ini :

Penjelasan :

Klik menu ToolBox lalu drag CrystalReportViewer1 kedalam Form Laporan. Setting property CrystalReportViewer1 sehingga seperti pada gambar dibawah ini.

Klik Tab tanda panah untuk menampilkan menu dalam memilih field report LaporanPenjualan.rpt yang sudah dibuat. Klik Chose a Crystal Report. (Lihat gambar dibawah).

Klik tab untuk memilih LaporanPenjualan.rpt > Ok

Selesai.

Tutorial bisa didownload Disini

Membuat Form Transaksi

noreply@blogger.com (Bangky Roesly) — Fri, 5 Jun 2015 07:40:00 -0700

Aplikasi Penjualan Buku Menggunakan Vb. Net dan Access

Step 3 : Membuat Form Transaksi

A. Form Transaksi

Tambah kan sebuah form(Langkah-langkahnya seperti pada Step2 : Membuat Form Data Buku) Rename Form1.vb menjadi FormTransaksi.vb lalu rancang lah FormTransaksi.vb seperti gambar dibawah ini :

Property Setting :

Object	Name	Text
Form 1	FormTransaksi	Transaksi
Label1	Label 1.Text	Nomor Faktur
Label2	Label 2.Text	Nama Pembeli
Label3	Label 3.Text	No. Telp
Label4	Label 4.Text	Tanggal
Label5	Label 5.Text	Pukul
Label6	Label 6.Text	Jumlah Item
Label7	Label 7.Text	Total
Label8	Label 8.Text	Bayar
Label9	Label 9.Text	Kembali
Label10	Label 10.Text	Rp.
TextBox 1	TextBox 1.Text	-
TextBox 2	TextBox 2.Text	-
TextBox 3	TextBox 3.Text	-
TextBox 4	TextBox 4.Text	-
TextBox 5	TextBox 5.Text	-
TextBox 6	TextBox 6.Text	-
TextBox 7	TextBox 7.Text	-
TextBox 8	TextBox 8.Text	-
TextBox 9	TextBox 9.Text	-
Button 1	Button 1	&Simpan
Button 2	Button 2	&Batal
Button 3	Button 3	&Tutup
Button 4	Button 4	&Kode Buku
DataGridView1	DataGridView1	-

Ketikan koding pada masing-masing object seperti kode berikut :

Imports System.Data.OleDb

Public Class FormTransaksi

Sub Kosong()

TextBox4.Clear()

TextBox5.Clear()

TextBox6.Clear()

TextBox7.Clear()

TextBox8.Clear()

TextBox4.Focus()

End Sub

Sub TidakAktif()

TextBox1.Enabled = False

TextBox2.Enabled = False

TextBox3.Enabled = False

End Sub

Sub KolomBaru()

DataGridView1.Columns.Add("Kode", "KODE BUKU")

DataGridView1.Columns.Add("Nama", "NAMA BUKU")

DataGridView1.Columns.Add("Harga", "HARGA")

DataGridView1.Columns.Add("Jumlah", "QTY")

DataGridView1.Columns.Add("Total", "SUB TOTAL")

Call LebarKolom()

End Sub

Sub LebarKolom()

DataGridView1.Columns(0).Width = 50

DataGridView1.Columns(1).Width = 300

DataGridView1.Columns(2).Width = 60

DataGridView1.Columns(3).Width = 40

DataGridView1.Columns(4).Width = 80

End Sub

Private Sub Otomatis()

cmd = New OleDbCommand("Select * from Transaksi where NoFaktur in (select max(NoFaktur) from Transaksi) order by NoFaktur desc", Conn)

Dim urutan As String

Dim hitung As Long

rd = cmd.ExecuteReader

rd.Read()

If Not rd.HasRows Then

urutan = "TR" + Format(Now, "yyMMdd") + "001"

Else

If Microsoft.VisualBasic.Mid(rd.GetString(0), 3, 6) <> Format(Now, "yyMMdd") Then

urutan = "TR" + Format(Now, "yyMMdd") + "001"

Else

hitung = Microsoft.VisualBasic.Right(rd.GetString(0), 2) + 1

urutan = "TR" + Format(Now, "yyMMdd") + Microsoft.VisualBasic.Right("000" & hitung, 3)

End If

TextBox1.Text = urutan

End Sub

Sub TampilBuku()

cmd = New OleDbCommand("Select KodeBuku From Buku", Conn)

rd = cmd.ExecuteReader

End Sub

Private Sub Form4_Activated(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Activated

Call Otomatis()

TextBox2.Text = Today

TextBox3.Text = TimeOfDay

End Sub

Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call Koneksi()

Call KolomBaru()

Call Kosong()

Call TidakAktif()

Call TampilBuku()

End Sub

Sub TotalItem()

Dim HitungItem As Integer = 0

For I As Integer = 0 To DataGridView1.Rows.Count - 1

HitungItem = HitungItem + Val(DataGridView1.Rows(I).Cells(3).Value)

TextBox9.Text = HitungItem

End Sub

Sub TotalHarga()

Dim HitungHarga As Integer = 0

For I As Integer = 0 To DataGridView1.Rows.Count - 1

HitungHarga = HitungHarga + Val(DataGridView1.Rows(I).Cells(4).Value)

TextBox6.Text = HitungHarga

Label10.Text = HitungHarga

End Sub

Sub HapusBaris()

On Error Resume Next

Dim Baris As Integer = DataGridView1.CurrentCell.RowIndex

DataGridView1.Rows(baris).Cells(0).Value = ""

Chr(30)

End Sub

Private Sub DataGridView1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles DataGridView1.KeyDown

If e.KeyCode = Keys.Up Then

DataGridView1.CurrentCell = DataGridView1.Rows(0).Cells(3)

End If

End Sub

Private Sub DataGridView1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles DataGridView1.KeyPress

On Error Resume Next

If e.KeyChar = Chr(27) Then

DataGridView1.Rows.RemoveAt(DataGridView1.CurrentCell.RowIndex)

Call TotalItem()

Call TotalHarga()

TextBox7.Clear()

TextBox8.Text = ""

End If

End Sub

Private Sub TextBox7_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress

If e.KeyChar = Chr(13) Then

If Val(TextBox7.Text) < Val(TextBox6.Text) Then

MsgBox("Pembayaran kurang")

TextBox8.Text = ""

TextBox7.Focus()

Exit Sub

ElseIf Val(TextBox7.Text) = Val(TextBox6.Text) Then

TextBox8.Text = 0

Button2.Focus()

Else

TextBox8.Text = Val(TextBox7.Text) - Val(TextBox6.Text)

Button2.Focus()

End If

If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled() = True

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Call Kosong()

DataGridView1.Columns.Clear()

Call KolomBaru()

DataGridView1.Focus()

End Sub

Private Sub DataGridView1_EditingControlShowing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewEditingControlShowingEventArgs) Handles DataGridView1.EditingControlShowing

If e.Control.GetType.ToString() = "System.Windows.Forms.DataGridViewTextBoxEditingControl" Then

Dim c As DataGridViewTextBoxEditingControl = CType(e.Control, DataGridViewTextBoxEditingControl)

RemoveHandler c.KeyPress, AddressOf GridViewTextBox_KeyPress

AddHandler c.KeyPress, AddressOf GridViewTextBox_KeyPress

End If

End Sub

Private Sub GridViewTextBox_KeyPress(ByVal sender As Object, ByVal ex As KeyPressEventArgs)

If DataGridView1.CurrentCell.ColumnIndex = 3 Then

If ((Asc(ex.KeyChar) < 48 Or Asc(ex.KeyChar) > 57) And Asc(ex.KeyChar) <> 8) Then

ex.Handled = True

End If

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or TextBox7.Text = "" Or TextBox8.Text = "" Then

MsgBox("Data belum lengkap, tidak ada transaksi atau pembayaran masih kosong")

Exit Sub

End If

'Simpan ke tabel Transaksi

Dim SimpanTransaksi As String = "Insert into Transaksi(NoFaktur,TglFaktur,Pukul,NamaPembeli,NoTlp,Total,Dibayar,Kembali,Item) values " & _

"('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "','" & TextBox9.Text & "')"

cmd = New OleDbCommand(SimpanTransaksi, Conn)

cmd.ExecuteNonQuery()

For baris As Integer = 0 To DataGridView1.Rows.Count - 2

'Simpan ke tabel DetailTransaksi

Dim SimpanDetailTransaksi As String = "Insert into DetailTransaksi (NoFaktur,KodeBuku,Judul,HargaJual,Jumlah,SubTotal) values " & _

"('" & TextBox1.Text & "','" & DataGridView1.Rows(baris).Cells(0).Value & "','" & DataGridView1.Rows(baris).Cells(1).Value & "','" & DataGridView1.Rows(baris).Cells(2).Value & "','" & DataGridView1.Rows(baris).Cells(3).Value & "','" & DataGridView1.Rows(baris).Cells(4).Value & "')"

cmd = New OleDbCommand(SimpanDetailTransaksi, Conn)

cmd.ExecuteNonQuery()

'Kurangi stok Buku

cmd = New OleDbCommand("select * from Buku where KodeBuku='" & DataGridView1.Rows(baris).Cells(0).Value & "'", Conn)

rd = cmd.ExecuteReader

rd.Read()

If rd.HasRows Then

Dim KurangiStok As String = "update Buku set Jumlah= '" & rd.Item(5) - DataGridView1.Rows(baris).Cells(3).Value & "' where KodeBuku='" & DataGridView1.Rows(baris).Cells(0).Value & "'"

cmd = New OleDbCommand(KurangiStok, Conn)

cmd.ExecuteNonQuery()

End If

Next baris

DataGridView1.Columns.Clear()

Call KolomBaru()

Call Otomatis()

Call Kosong()

End Sub

Sub kena(ByVal myGrid As DataGrid)

myGrid.CurrentCell = New DataGridCell(1, 1)

End Sub

Private Sub DataGridView1_CellEndEdit(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellEndEdit

If e.ColumnIndex = 0 Then

cmd = New OleDbCommand("select * from Buku where KodeBuku='" & DataGridView1.Rows(e.RowIndex).Cells(0).Value & "'", Conn)

rd = cmd.ExecuteReader

rd.Read()

If rd.HasRows Then

DataGridView1.Rows(e.RowIndex).Cells(1).Value = rd.Item(2)

DataGridView1.Rows(e.RowIndex).Cells(2).Value = rd.Item(6)

DataGridView1.Rows(e.RowIndex).Cells(3).Value = 1

DataGridView1.Rows(e.RowIndex).Cells(4).Value = DataGridView1.Rows(e.RowIndex).Cells(2).Value * DataGridView1.Rows(e.RowIndex).Cells(3).Value

Call TotalItem()

Call TotalHarga()

Else

MsgBox("Kode buku tidak terdaftar")

End If

If e.ColumnIndex = 3 Then

cmd = New OleDbCommand("select * from Buku where KodeBuku='" & DataGridView1.Rows(e.RowIndex).Cells(0).Value & "'", Conn)

rd = cmd.ExecuteReader

rd.Read()

If rd.HasRows Then

If DataGridView1.Rows(e.RowIndex).Cells(3).Value > rd.Item(5) Then

MsgBox("Stok Buku hanya ada " & rd.Item(5) & "")

DataGridView1.Rows(e.RowIndex).Cells(3).Value = 1

DataGridView1.Rows(e.RowIndex).Cells(4).Value = DataGridView1.Rows(e.RowIndex).Cells(2).Value * DataGridView1.Rows(e.RowIndex).Cells(3).Value

Call TotalItem()

Call TotalHarga()

Else

DataGridView1.Rows(e.RowIndex).Cells(4).Value = DataGridView1.Rows(e.RowIndex).Cells(2).Value * DataGridView1.Rows(e.RowIndex).Cells(3).Value

Call TotalItem()

Call TotalHarga()

End If

DataGridView1.CurrentCell = DataGridView1.Rows(0).Cells(0)

End If

End Sub

Private Sub TextBox4_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress

If e.KeyChar = Chr(13) Then

TextBox4.Text = UCase(TextBox4.Text)

TextBox5.Focus()

End If

End Sub

Private Sub TextBox5_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress

If e.KeyChar = Chr(13) Then

TextBox5.Text = UCase(TextBox5.Text)

DataGridView1.Focus()

End If

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

FormData.ShowDialog()

End Sub

End Class

B. Tabel Transaksi

Tambah kan tabel Transaksi pada database Buku.accdb yang sudah dibuat pada step 1.

Struktur Tabel Buku :

Field	Type	Size	Keterangan
NoFaktur	Text	10	PK (Primary Key)
TglFaktur	Date/Time	-	FK (Foreign Key)
Pukul	Date/Time	-
Nama_Pembeli	Text	50
NoTlp	Text	15
Total	Number	Long Int
Dibayar	Number	Long Int
Kembali	Number	Long Int
Item	Number	Long Int

Tutorial bisa didownload Disini

Membuat Form Data Buku

noreply@blogger.com (Bangky Roesly) — Fri, 5 Jun 2015 07:23:00 -0700

Aplikasi Penjualan Buku Menggunakan Vb. Net dan Access

Step 2 : Membuat Form Data Buku

A. Form Data Buku

Tambah kan form dengan cara klik menu bar Project > AddWindowsForm > Rename Form1.vb menjadi FormData.vb) langkah-langkahnya seperti pada contoh gambar dibawah ini :

Lalu rancang lah FormData.vb seperti pada gambar berikut :

Property Setting :

Object	Name	Text
Form 1	FormData	Data Buku Komputer
Label1	Label 1.Text	Kode Buku
Label2	Label 2.Text	Judul
Label3	Label 3.Text	Pengarang
Label4	Label 4.Text	Penerbit
Label5	Label 5.Text	Jumlah Buku
Label6	Label 6.Text	Jenis Buku
Label7	Label 7.Text	Harga
TextBox 1	TextBox 1.Text	-
TextBox 2	TextBox 2.Text	-
TextBox 3	TextBox 3.Text	-
TextBox 4	TextBox 4.Text	-
TextBox 5	TextBox 5.Text	-
TextBox 6	TextBox 6.Text	-
TextBox 7	TextBox 7.Text	-
TextBox 8	TextBox 8.Text	-
Button 1	Button 1	&Simpan
Button 2	Button 2	&Ubah
Button 3	Button 3	&Hapus
Button 4	Button 4	&Batal
Button 5	Button 5	&Tutup
GroupBox1	GroupBox1	Deskripsi
DataGridView1	DataGridView1	-

Ketikan koding pada masing-masing object seperti kode berikut :

Imports System.Data.OleDb

Public Class FormData

Sub Kosong()

TextBox1.Clear()

ComboBox1.Text = ""

TextBox2.Clear()

TextBox3.Clear()

TextBox4.Clear()

TextBox5.Clear()

TextBox6.Clear()

TextBox7.Clear()

TextBox8.Clear()

TextBox1.Focus()

End Sub

Sub Isi()

ComboBox1.Text = ""

TextBox2.Clear()

TextBox3.Clear()

TextBox4.Clear()

TextBox5.Clear()

TextBox6.Clear()

TextBox7.Clear()

ComboBox1.Focus()

End Sub

Sub TampilBuku()

da = New OleDbDataAdapter("Select * From Buku", Conn)

ds = New DataSet

ds.Clear()

da.Fill(ds, "Buku")

DataGridView1.DataSource = ds.Tables("Buku")

DataGridView1.Refresh()

End Sub

Sub TampilJenis()

cmd = New OleDbCommand("Select KodeJenis From Jenis", Conn)

rd = cmd.ExecuteReader

Do While rd.Read

ComboBox1.Items.Add(rd.Item(0))

Loop

End Sub

Sub AturGrid()

DataGridView1.Columns(0).Width = 60

DataGridView1.Columns(1).Width = 50

DataGridView1.Columns(2).Width = 300

DataGridView1.Columns(3).Width = 100

DataGridView1.Columns(4).Width = 100

DataGridView1.Columns(5).Width = 100

DataGridView1.Columns(6).Width = 100

DataGridView1.Columns(7).Width = 300

DataGridView1.Columns(0).HeaderText = "KODE BARANG"

DataGridView1.Columns(1).HeaderText = "KODE JENIS"

DataGridView1.Columns(2).HeaderText = "JUDUL"

DataGridView1.Columns(3).HeaderText = "PENGARANG"

DataGridView1.Columns(4).HeaderText = "PENERBIT"

DataGridView1.Columns(5).HeaderText = "JUMLAH"

DataGridView1.Columns(6).HeaderText = "HARGA"

DataGridView1.Columns(7).HeaderText = "DESKRIPSI"

End Sub

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call Koneksi()

Call TampilJenis()

Call TampilBuku()

Call Kosong()

Call AturGrid()

End Sub

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

TextBox1.MaxLength = 3

If e.KeyChar = Chr(13) Then

cmd = New OleDbCommand("Select * From Buku where KodeBuku='" & TextBox1.Text & "'", Conn)

rd = cmd.ExecuteReader

rd.Read()

If rd.HasRows = True Then

ComboBox1.Text = rd.Item(1)

TextBox2.Text = rd.Item(2)

TextBox3.Text = rd.Item(3)

TextBox4.Text = rd.Item(4)

TextBox5.Text = rd.Item(5)

TextBox6.Text = rd.Item(6)

TextBox7.Text = rd.Item(7)

TextBox2.Focus()

Else

Call Isi()

ComboBox1.Focus()

End If

End Sub

Private Sub TextBox2_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress

TextBox2.MaxLength = 50

If e.KeyChar = Chr(13) Then

TextBox2.Text = UCase(TextBox2.Text)

TextBox3.Focus()

End If

End Sub

Private Sub TextBox3_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress

If e.KeyChar = Chr(13) Then

TextBox3.Text = UCase(TextBox3.Text)

TextBox4.Focus()

End If

End Sub

Private Sub ComboBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress

If e.KeyChar = Chr(13) Then TextBox2.Focus()

End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

Dim i As Integer

i = Me.DataGridView1.CurrentRow.Index

With DataGridView1.Rows.Item(i)

Me.TextBox1.Text = .Cells(0).Value

Me.ComboBox1.Text = .Cells(1).Value

Me.TextBox2.Text = .Cells(2).Value

Me.TextBox3.Text = .Cells(3).Value

Me.TextBox4.Text = .Cells(4).Value

Me.TextBox5.Text = .Cells(5).Value

Me.TextBox6.Text = .Cells(6).Value

Me.TextBox7.Text = .Cells(7).Value

End With

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text = "" Or ComboBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Then

MsgBox("Data belum lengkap..!")

TextBox1.Focus()

Exit Sub

Else

cmd = New OleDbCommand("Select * From Buku where KodeBuku='" & TextBox1.Text & "'", Conn)

rd = cmd.ExecuteReader

rd.Read()

If Not rd.HasRows Then

Dim Simpan As String = "insert into Buku(KodeBuku,KodeJenis,Judul,Pengarang,Penerbit,Jumlah,Harga,Deskripsi)values " & _

"('" & TextBox1.Text & "','" & ComboBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "')"

cmd = New OleDbCommand(Simpan, Conn)

cmd.ExecuteNonQuery()

MsgBox("Simpan data sukses...!", MsgBoxStyle.Information, "Perhatian")

End If

Call TampilBuku()

Call Kosong()

TextBox1.Focus()

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If TextBox1.Text = "" Then

MsgBox("Kode Buku belum diisi")

TextBox1.Focus()

Exit Sub

Else

Dim Ubah As String = "Update Buku set " & _

"KodeJenis='" & ComboBox1.Text & "'," & _

"Judul='" & TextBox2.Text & "'," & _

"Pengarang='" & TextBox3.Text & "'," & _

"Penerbit='" & TextBox4.Text & "'," & _

"JumlahBuku='" & TextBox5.Text & "'," & _

"Harga='" & TextBox6.Text & "'," & _

"Deskripsi='" & TextBox7.Text & "' " & _

"where KodeBuku='" & TextBox1.Text & "'"

cmd = New OleDbCommand(Ubah, Conn)

cmd.ExecuteNonQuery()

MsgBox("Ubah data sukses..!", MsgBoxStyle.Information, "Perhatian")

Call TampilBuku()

Call Kosong()

TextBox1.Focus()

End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

If TextBox1.Text = "" Then

MsgBox("Kode Buku belum diisi")

TextBox1.Focus()

Exit Sub

Else

If MessageBox.Show("Yakin akan menghapus Data Buku " & TextBox1.Text & " ?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then

cmd = New OleDbCommand("Delete * From Buku where KodeBuku='" & TextBox1.Text & "'", Conn)

cmd.ExecuteNonQuery()

Call Kosong()

Call TampilBuku()

Else

Call Kosong()

End If

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Call Kosong()

End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

Me.Close()

End Sub

Private Sub TextBox4_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox4.KeyPress

If e.KeyChar = Chr(13) Then

TextBox4.Text = UCase(TextBox4.Text)

TextBox5.Focus()

End If

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

cmd = New OleDbCommand("Select * From Jenis where KodeJenis='" & ComboBox1.Text & "'", Conn)

rd = cmd.ExecuteReader

rd.Read()

If rd.HasRows = True Then

TextBox8.Text = rd.Item(1)

Else

MsgBox("Kode jenis ini tidak terdaftar")

End If

End Sub

Private Sub TextBox5_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress

If e.KeyChar = Chr(13) Then TextBox6.Focus()

End Sub

Private Sub TextBox6_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress

If e.KeyChar = Chr(13) Then

TextBox6.Text = UCase(TextBox6.Text)

TextBox7.Focus()

End If

End Sub

Private Sub TextBox7_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox7.KeyPress

TextBox6.MaxLength = 225

If e.KeyChar = Chr(13) Then

TextBox7.Text = UCase(TextBox7.Text)

Button1.Focus()

End If

End Sub

End Class

B. Tabel Buku

Tambah kan tabel Buku pada database Buku.accdb yang sudah dibuat pada Step 1 : Aplikasi Penjualan Buku Menggunakan VB. Net& Access.

Struktur Tabel Buku :

Field	Type	Size	Keterangan
KodeBuku	Text	10	PK (Primary Key)
KodeJenis	Text	5	FK (Foreign Key)
Judul	Text	200
Pengarang	Text	100
Penerbit	Text	100
Jumlah	Number	Long Int
Harga	Number	Long Int
Deskripsi	Text	300

Tutorial bisa didownload Disini

Aplikasi Penjualan Buku Vb.Net & Access

noreply@blogger.com (Bangky Roesly) — Wed, 3 Jun 2015 11:50:00 -0700

Langkah – langkah dalam membuat aplikasi sebagai berikut :

A. Buat project baru pada VB. Net seperti pada gambar dibawah ini.

(Pada tutorial ini menggunakan VB 2010 dan Access)

Klik New Project. Akan tampil menu seperti gambar dibawah ini.

1. Pastikan pilih WindowsFormAplication

2. Ubah WindosApplication1 menjadi Aplikasi Penjualan

3. Klik OK

Lokasi untuk simpan aplikasi bisa disesuaikan dengan keinginan. (Klik Browse untuk menyesuaikan penyimpanan aplikasi yang baru dibuat).

Klik kanan Form1.vb pada Solution Explore lalu Rename menjadi FormJenis.vb dan rancang lah tampilan form seperti berikut :

Property Setting :

Object	Name	Text
Form 1	FormKode	Data Kode Buku
Label 1	Label 1.Text	Kode
Label 2	Label 2.Text	Jenis Buku
TextBox 1	TextBox 1.Text	-
TextBox 2	TextBox 1.Text	-
Button 1	Button 1	&Simpan
Button 2	Button 2	&Ubah
Button 3	Button 3	&Hapus
Button 4	Button 4	&Batal
DataGridView1	DataGridView1	-

Double klik pada setiap object ketikan kode berikut :

Imports System.Data.OleDb

Public Class FormKode

Sub Kosong()

TextBox1.Clear()

TextBox2.Clear()

TextBox1.Focus()

End Sub

Sub Isi()

TextBox2.Clear()

TextBox2.Focus()

End Sub

Sub TampilJenis()

da = New OleDbDataAdapter("Select * From Jenis", Conn)

ds = New DataSet

ds.Clear()

da.Fill(ds, "Jenis")

DataGridView1.DataSource = ds.Tables("Jenis")

DataGridView1.Refresh()

End Sub

Sub AturGrid()

DataGridView1.Columns(0).Width = 100

DataGridView1.Columns(1).Width = 290

DataGridView1.Columns(0).HeaderText = "KODE JENIS"

DataGridView1.Columns(1).HeaderText = "NAMA JENIS"

End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call Koneksi()

Call TampilJenis()

Call Kosong()

Call AturGrid()

End Sub

Private Sub TextBox2_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress

TextBox2.MaxLength = 50

If e.KeyChar = Chr(13) Then

TextBox2.Text = UCase(TextBox2.Text)

End If

End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

Dim i As Integer

i = Me.DataGridView1.CurrentRow.Index

With DataGridView1.Rows.Item(i)

Me.TextBox1.Text = .Cells(0).Value

Me.TextBox2.Text = .Cells(1).Value

End With

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If TextBox1.Text = "" Or TextBox2.Text = "" Then

MsgBox("Data belum lengkap..!")

TextBox1.Focus()

Exit Sub

Else

cmd = New OleDbCommand("Select * From Jenis where KodeJenis='" & TextBox1.Text & "'", Conn)

rd = cmd.ExecuteReader

rd.Read()

If Not rd.HasRows Then

Dim Simpan As String = "insert into Jenis(KodeJenis,Jenis)values " & _

"('" & TextBox1.Text & "','" & TextBox2.Text & "')"

cmd = New OleDbCommand(Simpan, Conn)

cmd.ExecuteNonQuery()

MsgBox("Simpan data sukses...!", MsgBoxStyle.Information, "Perhatian")

End If

Call TampilJenis()

Call Kosong()

TextBox1.Focus()

End If

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

If TextBox1.Text = "" Then

MsgBox("Kode Jenis belum diisi")

TextBox1.Focus()

Exit Sub

Else

Dim Ubah As String = "Update Jenis set " & _

"Jenis='" & TextBox2.Text & "' " & _

"where KodeJenis='" & TextBox1.Text & "'"

cmd = New OleDbCommand(Ubah, Conn)

cmd.ExecuteNonQuery()

MsgBox("Ubah data sukses..!", MsgBoxStyle.Information, "Perhatian")

Call TampilJenis()

Call Kosong()

TextBox1.Focus()

End If

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

If TextBox1.Text = "" Then

MsgBox("Kode Buku belum diisi")

TextBox1.Focus()

Exit Sub

Else

If MessageBox.Show("Yakin akan menghapus Data Jenis " & TextBox1.Text & " ?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then

cmd = New OleDbCommand("Delete * From Jenis where KodeJenis='" & TextBox1.Text & "'", Conn)

cmd.ExecuteNonQuery()

Call Kosong()

Call TampilJenis()

Else

Call Kosong()

End If

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Call Kosong()

End Sub

Private Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

TextBox1.MaxLength = 2

If e.KeyChar = Chr(13) Then

cmd = New OleDbCommand("Select * From Jenis where KodeJenis='" & TextBox1.Text & "'", Conn)

rd = cmd.ExecuteReader

rd.Read()

If rd.HasRows = True Then

TextBox2.Text = rd.Item(1)

TextBox2.Focus()

Else

Call Isi()

TextBox2.Focus()

End If

End Sub

End Class

A. Membuat Module

Module ini adalah sebagai koneksi antara aplikasi yang akan dibuat dengan database Access 2007. Klik kanan aplikasi penjualan pilih add > add module dan Ketikan kode berikut pada Module1 :

Imports System.Data.OleDb

Module Module1

Public Conn As OleDbConnection

Public da As OleDbDataAdapter

Public ds As DataSet

Public cmd As OleDbCommand

Public rd As OleDbDataReader

Public Str As String

Public Sub Koneksi()

Str = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\Buku.accdb"

Conn = New OleDbConnection(Str)

If Conn.State = ConnectionState.Closed Then

Conn.Open()

End If

End Sub

End Module

B. Membuat Database Access

Buat lah database baru dengan nama Buku.accdb, lalu tambahkan tabel Jenis.

Struktur Tabel Jenis :

Field	Type	Size	Keterangan
KodeJenis	Text	5	PK (Primary Key)
Jenis	Text	50

Download Tutorial Aplikasi Penjualan Buku Vb.Net & Access Step 1 Disini

Untuk Tutorial Step 2 : Membuat Form Data Buku Klik Disini

Cerita Mahasiswa Komputer

noreply@blogger.com (Bangky Roesly) — Mon, 1 Jun 2015 10:32:00 -0700

Waktu belum masuk kuliah, keliatannya jurusan komputer itu keren. kemana-mana gaya bawa laptop or notebook (ga tau laptop pinjem temen apa punya tetangga yang penting nenteng aja), kalo ditanya orang apa temen "Kuliah ambil jurusan apa..?, Komputer.. Teknik Informatika, jawabnya bangga banget, padahal gak tau nanti kelar apa gak tuh kuliahnya?!.

Tapi kuliah jurusan komputer kebanyakan gak enaknya. mentang-mentang kuliah jurusan komputer saya pernah disuruh betulin strikaan pakaian sama ibu, kata ibu saya.. "masa kuliah komputer gak bisa benerin setrikaan ibu".. waduhhh.. gak sekalian kompor gas bu (dalam hati..). yang parah lagi.. bapak-bapak tetangga rumah bawa radio tahun jebot, suaranya ngeresek-ngeresek minta dibetulin. dikata saya tukang service keliling kali.. ada lagi teman tiba-tiba jemput ngajak kerumahnya, komputernya rusak mati total minta dibetulin, tapi saya malah bengong gak bisa betulin komputernya (gak ngerti sama sekali). rasanya malu sekaligus ngerasa percuma jadi mahasiswa jurusan komputer gak tau dan gak ngerti masalah troubleshooting komputer. temen saya bilang.. "gaya doang kemana-mana bawa laptop, padahal cuma kabel powernya yang dimakan tikus. mahasiswa komputer gak tau rusaknya, dasar mahasiswa komputer abal-abal gaya doang.. (Huuhh..)". kira-kira kalo teman-teman dibilang kaya gitu gimana perasaannya?.

Orang awam mungkin berpikir kalo kuliah jurusan komputer, masa gak ngerti masalah komputer. mereka gak tau, padahal ilmu yang membahas mengenai komputer itu luas. setau yang pernah saya pelajari ada perancangan sistem, teknik komputer & jaringan, programmer, etc..

kalo sebagai mahasiswa atau mungkin temen-temen yang belajar secara otodidak, pasti disarankan sama pihak pembimbing atau buku - buku yang menjadi bahan pembelajaran untuk menguasai atau hanya fokus kepada salah satu ilmu komputer (Hardware or Software) yang diminati saja . sebab kalo kita coba untuk menguasai semua ilmu tentang komputer, dijamin botak sebelah dehh (jadi profesor gak, digusur kutu iyaa) hehee..

Tapi emang bener mahasiswa jurusan komputer keren, kalo ilmunya bisa bermanfaat buat orang banyak (Benerin komputer cewek cakep sebelah rumah misalnya, hmm).

begitu lah cerita yang kadang-kadang menjadi derita mahasiswa komputer. kalo cerita temen-temen bagaimana..? salamm

Input Data Hanya Angka dan Hanya Huruf Pada VB. Net

noreply@blogger.com (Bangky Roesly) — Thu, 28 May 2015 08:08:00 -0700

Pada saat penggunaan Aplikasi ada kalanya data yang diinput mengharuskan data yang hanya berupa angka saja, bukan huruf atau karakter lainnya. Ex : Input master data harga jual barang, Input data pembayaran konsumen. etc

Berikut langkah – langkah agar input data pada aplikasi VB. Net hanya angka.

Ex : Form 1 & TextBox1

Pada Form 1 terdapat object TextBox1 yang menjadi tempat input data yang hanya berupa angka saja. Klik pada TexBox1 lalu pada menu properties, klik tab even double klik Keypress (seperti pada gambar dibawah) lalu ketikkan kode berikut didalam declarations code.

Public Class Form1

Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress

If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) Then e.Handled() = True

End Sub

End Class

Input Data Hanya Huruf Pada VB. Net

Untuk input data TextBox1 hanya huruf. Klik tab even pada menu properties lalu double klik KeyDown(lihat gambar), dan ketikan kode berikut pada Declarations Code seperti dibawah ini.

Private Sub TextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown

If e.KeyCode = 48 Or e.KeyCode = 49 Or e.KeyCode = 50 Or e.KeyCode = 51 Or e.KeyCode = 52 Or e.KeyCode = 53 Or e.KeyCode = 54 Or e.KeyCode = 55 Or e.KeyCode = 56 Or e.KeyCode = 57 Then

TextBox1.ReadOnly = True

Else

TextBox1.ReadOnly = False

End If

End Sub

Mengambil Nilai Datagridview Dari Form Berbeda

noreply@blogger.com (Bangky Roesly) — Fri, 22 May 2015 01:28:00 -0700

Dalam memahami isi dari tutorial ini, diasumsikan sudah memahami langkah - langkah dalam membuat aplikasi dari VB. Net dan Database Acces 2007.

Step 1 : Membuat database

Buat lah database baru dengan nama DevDb.accdb, lalu buat sebuah tabel dengan nama Pengguna.

Struktur Tabel Pengguna :

Field	Type	Size	Keterangan
Kd_User	Text	10	PK (Primary Key)
Nm_User	Text	20
Passw	Text	20
Status	Text	30

Isi lah tabel pengguna tersebut dengan field –field seperti dibawah ini :

Step 2 : Membuat Project VB. Net

Buat lah project baru, lalu tambahkan dua buah form dengan nama Form User dan Tabel Data User serta sebuah Module dengan nama ModKoneksi.

a. Membuat Module

ModKoneksi ini adalah sebagai koneksi antara aplikasi yang akan dibuat dengan database Access 2007. Ketikan kode berikut pada ModKonek :

Imports System.Data.OleDb

Module ModKoneksi

Public cnn As OleDbConnection

Public da As OleDbDataAdapter

Public ds As DataSet

Public cmmd As OleDbCommand

Public dr As OleDbDataReader

Public Str As String

Public Sub Koneksi()

Str = "Provider= Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\DevDb.accdb"

cnn = New OleDbConnection(Str)

If cnn.State = ConnectionState.Closed Then

cnn.Open()

End If

End Sub

End Module

b. Form User

Form User ini digunakan sebagai input data user.

Property Setting :

Object	Name	Text
Form 1	Form_User	Form User
Label 1	LblKdUser	USR001
Label 2	Label 2	Kode Pengguna
Label 3	Label 3	Nama Pengguna
Label 4	Label 4	Password
Label 5	Label 5	Status
TextBox 1	TxtNm_User	USR001
TextBox 2	Kunci	-
ComboBox 1	CbStatus	-
Button 1	BtnCari	Cari
Button 2	BtnSimpan	Simpan
Button 3	BtnUbah	Ubah
Button 4	BtnBatal	Batal
Button 5	BtnHapus	Hapus
Button 6	BtnKeluar	Keluar
GroupBox 1	GroupBox 1	Data Pengguna
GroupBox 2	GroupBox 2	Navigasi

Klik 2x pada masing – masing object pada Form User, lalu ketikan kode berikut :

Imports System.Data

Imports System.Data.OleDb

Public Class FormUser

Private Sub FormUser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Call Koneksi()

Call HapusText()

Call NOOTOMAT()

Call buttonBaru()

Call tidakisi()

Call kosong()

End Sub

Sub NOOTOMAT()

cmmd = New OleDbCommand("select * From Pengguna order by Kd_User desc", cnn)

dr = cmmd.ExecuteReader

dr.Read()

If Not dr.HasRows Then

LblKdUser.Text = "USR001"

Else

LblKdUser.Text = Val(Microsoft.VisualBasic.Mid(dr.Item("Kd_User").ToString, 5, 3)) + 1

If Len(LblKdUser.Text) = 1 Then

LblKdUser.Text = "USR00" & LblKdUser.Text & ""

ElseIf Len(LblKdUser.Text) = 2 Then

LblKdUser.Text = "USR0" & LblKdUser.Text & ""

ElseIf Len(LblKdUser.Text) = 3 Then

LblKdUser.Text = "USR" & LblKdUser.Text & ""

End If

dr.Close()

End Sub

Sub status()

CbStatus.Items.Add("Admin")

CbStatus.Items.Add("User")

End Sub

Sub kosong()

CbStatus.Items.Clear()

End Sub

Sub HapusText()

LblKdUser.Focus()

TxtNm_User.Text = ""

TxtKunci.Text = ""

BtnSimpan.Text = "Tambah"

End Sub

Sub bisaisi()

TxtNm_User.Enabled = True

TxtKunci.Enabled = True

CbStatus.Enabled = True

End Sub

Sub tidakisi()

TxtNm_User.Enabled = False

TxtKunci.Enabled = False

CbStatus.Enabled = False

End Sub

Sub buttonBaru()

BtnSimpan.Enabled = True

BtnUbah.Enabled = False

BtnHapus.Enabled = False

BtnBatal.Enabled = False

BtnKeluar.Enabled = True

End Sub

Sub buttonEdit()

btnSimpan.Enabled = False

BtnUbah.Enabled = True

btnHapus.Enabled = True

BtnBatal.Enabled = True

BtnKeluar.Enabled = False

End Sub

Sub buttonSimpan()

btnSimpan.Enabled = True

BtnUbah.Enabled = False

BtnHapus.Enabled = False

BtnBatal.Enabled = True

BtnKeluar.Enabled = True

End Sub

Private Sub BtnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan.Click

Dim simpan As String

If BtnSimpan.Text = "Tambah" Then

BtnSimpan.Text = "Simpan"

Call bisaisi()

Call NOOTOMAT()

Call buttonSimpan()

Call status()

TxtNm_User.Focus()

Else

If TxtNm_User.Text = "" Then

MsgBox("Isi Username Pengguna", MsgBoxStyle.Critical, "Pemberitahuan")

TxtNm_User.Focus()

Exit Sub

End If

If TxtKunci.Text = "" Then

MsgBox("Isi Password Pengguna", MsgBoxStyle.Critical, "Pemberitahuan")

TxtKunci.Focus()

Exit Sub

End If

If CbStatus.Text = "" Then

MsgBox("Isi Status Pengguna", MsgBoxStyle.Critical, "Pemberitahuan")

CbStatus.Focus()

Exit Sub

End If

Try

simpan = "Insert Into Pengguna(Kd_User, Nm_User, Passw, Status)Values " & _

"('" & LblKdUser.Text & "','" & TxtNm_User.Text & "','" & TxtKunci.Text & "','" & CbStatus.Text & "')"

cmmd = New OleDbCommand(simpan, cnn)

Dim x As Integer = cmmd.ExecuteNonQuery()

If x = 1 Then

Call HapusText()

Call tidakisi()

Call NOOTOMAT()

Call buttonBaru()

Call kosong()

MessageBox.Show("Data User Sudah Disimpan ", "Simpan Data Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)

End If

Catch ex As Exception

MsgBox(ex.Message)

End Try

End If

End Sub

Private Sub BtnUbah_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnUbah.Click

Dim ubah As String

If TxtNm_User.Text = "" Or TxtKunci.Text = "" Or CbStatus.Text = "" Then

MsgBox("Tidak Ada Data Yang Diubah", MsgBoxStyle.Critical, "Pemberitahuan")

Exit Sub

Else

Try

ubah = "Update Pengguna set " & _

"Nm_User='" & TxtNm_User.Text & "'," & _

"Passw='" & TxtKunci.Text & "'," & _

"Status='" & CbStatus.Text & "' " & _

"where Kd_User='" & LblKdUser.Text & "'"

cmmd = New OleDbCommand(ubah, cnn)

Dim x As Integer = cmmd.ExecuteNonQuery()

If x = 1 Then

Call HapusText()

MessageBox.Show("Data User Berhasil Diubah ", "Ubah Data Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)

Call tidakisi()

Call buttonBaru()

Call kosong()

End If

Catch ex As Exception

MsgBox(ex.Message)

End Try

End If

End Sub

Private Sub BtnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBatal.Click

Call HapusText()

Call tidakisi()

Call NOOTOMAT()

Call buttonBaru()

Call kosong()

End Sub

Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click

Dim hapus As String

Try

hapus = "DELETE FROM Pengguna WHERE Kd_User = '" & LblKdUser.Text & "'"

cmmd = New OleDbCommand(hapus, cnn)

Dim X As Integer = cmmd.ExecuteNonQuery()

If X = 1 Then

Dim popload As New Loading

popload.ShowDialog()

Call HapusText()

MessageBox.Show("Data User Sudah Dihapus ", "Hapus Data Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)

Call buttonBaru()

Call tidakisi()

Call kosong()

Else

MsgBox("Gagal Hapus Data User", MsgBoxStyle.Critical, "Pemberitahuan")

End If

Catch ex As Exception

MsgBox(ex.Message)

End Try

End Sub

Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

Me.Close()

End Sub

End Class

Sampai disini Form User selesai dibuat. Jalan kan lalu isi data Form User sesuai dengan data yang diinginkan lalu klik tombol simpan, Seperti pada gambar berikut.

c. Tabel Data User

Selanjutnya kita akan membuat tabel data user, untuk menampilkan data user yang sudah diinput pada Form User.

Property Setting :

Object	Name	Text
Form 1	Tabel_User	Tabel Data User
Label 1	Label 1	Tabel Data User
Label 2	Label 2	Kriteria
Label 3	Label 3	Kata Kunci
TextBox 1	TxtKey	-
TextBox 2	Counter	-
ComboBox 1	ComboBox 1	Username
Button 1	BtnKeluar	Keluar
DataGridView 1	DataGridView 1	-

Klik 2x pada masing – masing object pada Tabel Data User, lalu ketikan kode berikut :

Imports System.Data

Imports System.Data.OleDb

Public Class TabelUser

Public sqlx, retKode, retUser, retPass, retStat As String

Private Sub TabelUser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

txtKey.Focus()

Call Koneksi()

Call ListData()

ComboBox1.Items.Add("Username")

ComboBox1.Items.Add("Status")

End Sub

Sub ListData()

Dim x As Integer

If ComboBox1.Text = "Username" Then

cmmd = New OleDbCommand("select * from Pengguna where Nm_User like '%" & txtKey.Text & "%'", cnn)

dr = cmmd.ExecuteReader

dr.Read()

If dr.HasRows = True Then

da = New OleDbDataAdapter("select * from Pengguna where Nm_User like '%" & txtKey.Text & "%'", cnn)

ds = New DataSet

da.Fill(ds, "Pengguna")

DataGridView1.DataSource = ds.Tables("Pengguna")

x = DataGridView1.Rows.Count()

counter.Text = x

Else

MessageBox.Show("Data User Tidak Ada ", "Info Pencarian Data", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

txtKey.Text = ""

txtKey.Focus()

End If

ElseIf ComboBox1.Text = "Status" Then

cmmd = New OleDbCommand("select * from Pengguna where Status like '%" & txtKey.Text & "%'", cnn)

dr = cmmd.ExecuteReader

dr.Read()

If dr.HasRows = True Then

da = New OleDbDataAdapter("select * from Pengguna where Status like '%" & txtKey.Text & "%'", cnn)

ds = New DataSet

da.Fill(ds, "Pengguna")

DataGridView1.DataSource = ds.Tables("Pengguna")

x = DataGridView1.Rows.Count()

counter.Text = x

Else

MessageBox.Show("Data User Tidak Ada ", "Info Pencarian Data", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

txtKey.Text = ""

txtKey.Focus()

End If

End Sub

Private Sub txtKey_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKey.TextChanged

If ComboBox1.Text = "" Then

ComboBox1.Text = "Username"

txtKey.Focus()

End If

Call ListData()

End Sub

Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

txtKey.Focus()

End Sub

Private Sub Pilih()

Dim i As Integer

i = Me.DataGridView1.CurrentRow.Index

Try

With DataGridView1.Rows.Item(i)

retKode = .Cells(0).Value.ToString

retUser = .Cells(1).Value.ToString

retPass = .Cells(2).Value.ToString

retStat = .Cells(3).Value.ToString

End With

Me.Close()

Catch ex As Exception

MsgBox("Pilih Salah Satu Data", MsgBoxStyle.Critical)

End Try

End Sub

Private Sub DataGridView1_CellContentClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick

Call Pilih()

End Sub

Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles DataGridView1.RowPostPaint

Dim dg As DataGridView = DirectCast(sender, DataGridView)

Dim rowNumber As String = (e.RowIndex + 1).ToString()

While rowNumber.Length < dg.RowCount.ToString().Length

rowNumber = "0" & rowNumber

End While

Dim size As SizeF = e.Graphics.MeasureString(rowNumber, Me.Font)

If dg.RowHeadersWidth < CInt(size.Width + 20) Then

dg.RowHeadersWidth = CInt(size.Width + 20)

End If

Dim b As Brush = SystemBrushes.ControlText

e.Graphics.DrawString(rowNumber, dg.Font, b, e.RowBounds.Location.X + 15, _

e.RowBounds.Location.Y + ((e.RowBounds.Height - size.Height) / 2))

End Sub

Private Sub BtnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnKeluar.Click

Me.Close()

End Sub

End Class

Step 3 : Membuat Header Field Column ( Judul Kolom ) DataGridView 1

Untuk merubah Header Field Columns (Judul Kolom, ex : Kode, Username, Password, Status) pada DataGridView 1 langkah - langkahnya seperti pada gambar berikut :

Setelah dilakukan langkah No. 3 (Klik Add Columns), lalu akan tampil menu Add Column.

(langkah ini dilakukan untuk merubah judul header setiap kolom DataGridView 1) .

Klik Add pada menu Add Column, lalu akan muncul Edit Columns untuk ubah judul kolom DataGridView 1 (langkah ini dilakukan untuk merubah judul header setiap kolom DataGridView 1) .

Penjelasan :

1. Header Text (Colum1) diedit lalu isi dengan “Kode” (sesuai judul header yang diinginkan)

2. Data Property Name diisi sesuai field Name Database yang terdapat pada tabel “Pengguna”

3. Setelah selesai edit header perkolom klik ok

Selanjutnya kembali pada Form User, lalu klik 2X pada Button Cari. Ketikan kode dibawah berikut pada object Button Cari, Kode ini untuk mengambil nilai DataGridView 1 pada Form Tabel Data User.

Private Sub BtnCari_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCari.Click

Dim Tabel As New TabelUser

Tabel.ShowDialog()

Call status()

If Tabel.retKode <> "" Then

LblKdUser.Text = Tabel.retKode

TxtNm_User.Text = Tabel.retUser

TxtKunci.Text = Tabel.retPass

CbStatus.Text = Tabel.retStat

Call bisaisi()

Call buttonEdit()

End If

End Sub

Sampai disini semua tahapan yang dilakukan sudah selesai, jalankan aplikasi yang sudah dibuat.

Lalu klik tombol cari pada form user untuk memanggil form tabel data user. Setelah tampil form tabel data user, lalu Double Klik Baris DataGridView 1 (Baris warna kuning) untuk mengisi nilai DataGridView 1 kedalam form user.

Tutorial bisa diDownload Disini

Sistem Perusahaan Properti

noreply@blogger.com (Bangky Roesly) — Mon, 18 May 2015 11:05:00 -0700

Pertumbuhan yang pesat pada sektor perumahan membutuhkan suatu pengelolaan data konsumen secara cepat, tepat dan akurat dengan menggunakan sumber daya yang ada seoptimal mungkin dan menambah pelayanan yang ada seperti untuk mengetahui jumlah informasi mengenai kepemilikan rumah dengan transaksi pembelian secara tunai atau kredit. dengan adanya kegiatan ini maka pelayanan yang diberikan kepada konsumen dapat lebih meningkat.

Ruang lingkup yang dibahas berkaitan dengan konsumen yang ingin mengetahui infromasi tentang kepemilikan rumah, Sehingga dapat memberikan kepuasan terhadap konsumen dalam bentuk pelayanan. dimana proses pencarian data-data kepemilikan rumah banyak menemui kendala dan terdapat banyak kesalahan yang terjadi, antara lain : membutuhkan banyak waktu dan tenaga bila mencari data yang dibutuhkan, adanya data yang terselip karena kurang terjaminnya keamanan data sehingga membutuhkan media penyimpanan yang cukup besar untuk data tersebut. Hal ini menimbulkan masalah dalam pelayanan terhadap konsumen dan mengganggu kegiatan bisnis perusahaan.

Dalam mengatasi hal ini maka kami membuat aplikasi sistem informasi pelayanan terhadap konsumen menggunakan bahasa pemrograman Visual Basic 2010 untuk membantu menyelesaikan masalah dalam mengolah data, dengan adanya sistem informasi yang dibangun secara komputerisasi yang terintegrasi dengan database diharapkan dapat diperoleh data secara tepat, cepat agar lebih efisien dan efektif dari segi waktu, tenaga dan biaya. Sehingga dapat membantu proses kegiatan bisnis perusahaan.

Image untuk Aplikasi

noreply@blogger.com (Bangky Roesly) — Fri, 15 May 2015 09:37:00 -0700

Bingung...?! Sedang buat aplikasi ga ada image agar aplikasi terlihat agak user friendly mungkin (Sokk.. Inggris bangat yakk..), Or enak dipandang mata kaliii..

Buat temen-temen yang mungkin membutuhkan image (.png/.ico/.bmp/.gif) buat background or button aplikasi, bisa download Disini

Semoga bermanfaat.. :)

Sampel image :

Gratis Download

noreply@blogger.com (Bangky Roesly) — Fri, 17 Apr 2015 06:32:00 -0700

Tutorial VB. Net
1. Mengambil Nilai DataGridView dari Form Berbeda
2. Terbilang Indonesia Pada VB. Net

Aplikasi Penjualan Toko Buku VB. Net & Access
1. Form Kode Buku
2. Form Data Buku
3. Form Transaksi
4. Form Laporan
5. Form Menu Utama

Lain - Lain :
1. Icon / Image untuk Aplikasi

Source Code
1. Aplikasi Developer Menggunakan VS 2010 & Ms. Access 2007
2. Aplikasi Payroll Ms. Access

Tutorial VB. Net

noreply@blogger.com (Bangky Roesly) — Wed, 15 Apr 2015 06:44:00 -0700

1. Mengambil Nilai DataGridView pada VB. Net dan Access 2007
2. Terbilang Indonesia pada VB. Net
3. Input Data Hanya Angka Pada VB. Net

Aplikasi Penjualan Buku VB. Net & Access:
1. Form Kode Buku
2. Form Data Buku
3. Form Transaksi
4. Laporan Penjualan
5. Membuat Menu Utama

Prosedur Pemasaran Pada Perusahaan Properti

noreply@blogger.com (Bangky Roesly) — Tue, 7 Apr 2015 01:35:00 -0700

Adapun prosedur yang umum dalam pemasaran rumah secara KPR adalah sebagai berikut:

1. Pemesanan rumah

Sebagai tahap awal, transaksi pemesanan secara tunai atau kredit konsumen membayar booking fee yang dicatat dalam Surat Pemesanan Rumah (SPR) sesuai dengan konsekwensi hukum.

2. Menyerahkan berkas-berkas persyaratan

Selambat-lambatnya dalam jangka waktu 2 (dua) minggu dari pemesanan konsumen diwajibkan membayar uang pelunasan untuk pembelian secara tunai kepada bagian administrasi perusahaan sesuai dengan yang tertera dalam SPR. Konsumen menyerahkan berkas dan kelengkapan persyaratan serta membayar cicilan uang muka untuk pembelian secara tunai maupun kredit.

3. Wawancara dengan pihak Bank.

Konsumen akan diundang untuk mengikuti wawancara dengan pihak Bank pemberi KPR, sebagai prosedur pengajuan kredit.

4. Surat keputusan Bank pemberi KPR

Setelah calon konsumen dinilai layak untuk menerima fasilitas pinjaman KPR, maka pihak bank akan menerbitkan SP3K (Surat Penegasan Persetujuan Pemberian Kredit). Dimana didalam SP3K ini terdapat rincian-rincian jumlah kredit yang disetujui, jangka waktu kredit, nilai angsuran, termasuk biaya yang timbul dari pengajuan KPR (Biaya Notaris, Apraisal, Provisi Bank, Asuransi Jiwa, Asuransi Kebakaran, Tanah dan Bangunan). Biaya proses ini wajb disetorkan dalam rekening masing-masing konsumen.

5. Membayar Pelunasan Uang Muka

Setelah pengajuan KPR disetujui pihak bank, konsumen wajib melunasi uang muka yang terera dalam SPR untuk dapat mengikuti proses akad kredit.

6. Akad kredit

Konsumen akan dihubungi mengenai hasil dari wawancara dengan pihak Bank, dan apabila disetujui konsumen akan diundang untuk mengikuti proses Akad Kredit.

7. Penyerahan kunci

Untuk mengambil kunci konsumen harus datang kekantor pemasaran didalam lokasi perumahan. Untuk menjamin kelayakan rumah yang konsumen beli tersebut, Developer memberikan garansi bangunan 100 hari.

Admin Blog

noreply@blogger.com (Bangky Roesly) — Wed, 1 Apr 2015 09:47:00 -0700

Mohon kritik & saran lewat komentar apabila ada isi artikel yang salah pada blog ini. saya hanya berusaha mencoba berbagi sedikit pengetahuan yang mungkin bermanfaat.

Ttd. Admin Blog