Berhentilah Menjadi Gelas
Seorang guru sufi mendatangi seorang muridnya ketika wajahnya belakangan ini selalu tampak murung. “Kenapa kau selalu murung, nak? Bukankah banyak hal yang indah di dunia ini? Ke mana perginya wajah bersyukurmu? ”
Sang Guru bertanya. “Guru, belakangan ini hidup saya penuh masalah. Sulit bagi saya untuk tersenyum. Masalah datang seperti tak ada habis-habisnya, ” jawab sang murid muda.
Sang Guru terkekeh. “Nak, ambil segelas air dan dua genggam garam. Bawalah kemari. Biar kuperbaiki suasana hatimu itu.” Si murid pun beranjak pelan tanpa semangat. Ia laksanakan permintaan gurunya itu, lalu kembali lagi membawa gelas dan garam sebagaimana yang diminta.
“Coba ambil segenggam garam, dan masukkan ke segelas air itu,” kata Sang Guru. “Setelah itu coba kau minum airnya sedikit.” Si murid pun melakukannya.
Wajahnya kini meringis karena meminum air asin. “Bagaimana rasanya?” tanya Sang Guru. “Asin, dan perutku jadi mual,” jawab si murid dengan wajah yang masih meringis.
Sang Guru terkekeh-kekeh melihat wajah muridnya yang meringis keasinan. “Sekarang kau ikut aku.”
Sang Guru membawa muridnya ke telaga di dekat tempat mereka. “Ambil garam yang tersisa, dan tebarkan ke telaga.” Si murid menebarkan segenggam garam yang tersisa ke telaga, tanpa bicara. Rasa asin di mulutnya belum hilang. Ia ingin meludahkan rasa asin dari mulutnya, tapi tak dilakukannya. Rasanya tak sopan meludah di hadapan guru, begitu pikirnya.
“Sekarang, coba kau minum air danau itu,” kata Sang Guru sambil mencari batu yang cukup datar untuk didudukinya, tepat di pinggir telaga. Si murid menangkupkan kedua tangannya, mengambil air telaga, dan membawanya ke mulutnya lalu meneguknya.
Ketika air telaga yang dingin dan segar mengalir di tenggorokannya, Sang Guru bertanya kepadanya, “Bagaimana rasanya?” “Segar, segar sekali,” kata si murid sambil mengelap bibirnya dengan punggung tangannya.
Tentu saja, telaga ini berasal dari aliran sumber air di atas sana. Dan airnya mengalir menjadi sungai kecil di bawah. Dan sudah pasti, air telaga ini juga menghilangkan rasa asin yang tersisa di mulutnya. “Terasakah rasa garam yang kau tebarkan tadi?” tanya sang guru “Tidak sama sekali,” kata si murid sambil mengambil air dan meminumnya lagi.
Sang Guru hanya tersenyum memperhatikannya, membiarkan muridnya itu meminum air telaga sampai puas.
“Nak,” kata Sang Guru setelah muridnya selesai minum. “Segala masalah dalam hidup itu seperti segenggam garam. Tidak kurang, tidak lebih. Hanya segenggam garam. Banyaknya masalah dan penderitaan yang harus kau alami sepanjang kehidupanmu itu sudah dikadar oleh Allah, sesuai untuk dirimu. Jumlahnya tetap, segitu-segitu saja, tidak berkurang dan tidak bertambah. Setiap manusia yang lahir ke dunia ini pun demikian. Tidak ada satu pun manusia, walaupun dia seorang Nabi, yang bebas dari penderitaan dan masalah.”
Si murid terdiam, mendengarkan. “Tapi Nak, rasa `asin’ dari penderitaan yang dialami itu sangat tergantung dari besarnya hati yang menampungnya. Jadi Nak, supaya tidak merasa menderita, berhentilah jadi gelas. Jadikan hati dalam dadamu menjadi seluas telaga agar kau bisa menikmati hidup”
by Arfan Pradiansyah, Life is Beautiful.
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
'//-------------------------------------------------------------//
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
Subscribe to:
Posts (Atom)