PRINT / MENCETAK RATA KANAN PADA VISUAL BASIC 6 ( VB )

Mencetak rata kanan pada VB 6 :
Buat satu project baru. Buat satu tombol menggunakan Command Button, kemudian copykan Coding berikut ke dalam Program anda.

Kalau mau filenya ini saya uploadkan
http://www.4shared.com/file/210177601/a198f320/Contoh_Printer_Cetak_Rata_Kana.html


'//=================================================================//
'
' Project Name: Print.vbp --> Print.exe
'
' Copyright © 2008-2009 Araysoft Labs
' All Rights Reserved
'
' Supports: Forum.VB-Bego & Members
'
'//=================================================================//

Option Explicit

Private Const gy_def_LINECHAR As String = "-"
Private Const gy_def_SPACECHAR As String = " "
Private Const gy_def_NUMLENGTH As Integer = 3
Dim Data1, Data2, Data3, Data4

Private Sub Command1_Click()
Dim i As Integer
Dim s As String

Printer.Font = "Courier New"
Printer.FontSize = 10
'total baris adalah 15000
'jarak per baris adalah 400
'jadi, jlh baris adalah 35
Printer.CurrentY = 1000
'Printer.CurrentY = 400

Printer.CurrentX = 500
'Judul
s = "No"
s = IsItemWidth(s, gy_def_NUMLENGTH, False)
s = s & IsItemWidth("Nama", 30, False)
s = s & IsItemWidth("Tgl", 10)
s = s & IsItemWidth("Harga", 20)
s = s & IsItemWidth("Total", 20)
Printer.Print s

For i = 1 To 3
'Masukan data anda disini
Printer.CurrentX = 500
If i = 1 Then
Data1 = "AAAAAAAAAA"
Data2 = "17-16-2010"
Data3 = "50000"
Data4 = "645212"
ElseIf i = 2 Then
Data1 = "BBBBBBBBBBB"
Data2 = "10-17-2009"
Data3 = "5000000"
Data4 = "64520212"
ElseIf i = 3 Then
Data1 = "CCCCCCCCCCC"
Data2 = "12-20-2009"
Data3 = "500000"
Data4 = "6452012"
End If

Static c As Integer
c = c + 1

'Nomor Urut
s = CStr(c)
s = IsItemWidth(s, gy_def_NUMLENGTH, False)

'Rincian
s = s & IsItemWidth(Data1, 30, False)
s = s & IsItemWidth(Data2, 10)
s = s & IsItemWidth(Format(Data3, "#,##0"), 20)
s = s & IsItemWidth(Format(Data4, "#,##0"), 20)
Printer.Print s

Next i
Printer.EndDoc

End Sub

'//-------------------------------------------------------------//
' IsItemWidth Function --> Copyright © 2009 Gyustitia
'//-------------------------------------------------------------//
Private Function IsItemWidth(ByVal v As String, _
ByVal Count As Integer, _
Optional ByVal r As Boolean = True) As String

If Count <>= Count Then
'Potong Teks Jika Lebih Panjang Dari Nilai MaxLength
IsItemWidth = VBA.Left$(v, Count)
Else
If r Then
'Teks Sebelah Kiri
IsItemWidth = VBA.String$(Count - Len(v), gy_def_SPACECHAR) & v
Else
'Teks Sebelah Kanan
IsItemWidth = v & VBA.String$(Count - Len(v), gy_def_SPACECHAR)
End If
End If
End Function

'//-------------------------------------------------------------//
' Open Source Visual Basic 6.0, Written by Gyus
'//-------------------------------------------------------------//

PENGERTIAN CORE BANKING

Menurut WIKIPEDIA CORE BANKING ADALAH :

Core Banking is normally defined as the business conducted by a banking institution with its retail and small business customers. Many banks treat the retail customers as their core banking customers, and have a separate line of business to manage small businesses. Larger businesses are managed via the Corporate Banking division of the institution. Core banking basically is depositing and lending of money.

Normal core banking functions will include deposit accounts, loans, mortgages and payments. Banks make these services available across multiple channels like ATMs, Internet banking, and branches.

http://en.wikipedia.org/wiki/Core_banking


Bila disederhanakan dapat diambil pengertian sebagai berikut :

Core Banking adalah : Seluruh produk bank mulai dari funding (penghimpunan dana) sampai dengan lending (pemberian kredit, pembiayaan, pendanaan). Apabila semua produk tersebut dimasukkan ke dalam aplikasi sistem komputer maka kita bisa menyebutkan nama software aplikasi tersebut sebagai Core Banking nya, karena seluruh produk bank tersebut telah terbungkus dalam software aplikasi dimaksud.




Funding (penghimpunan dana) misalnya :
- Tabungan
- GIRO
- Deposito
- Dll

Lending (pemberian kredit, pembiayaan, pendanaan)
- KPR
- Kredit Konsumtif
- Kredit Rekening Koran
- Dll