Senin, 12 April 2010

Program TSI BANK dengan Menggunakan Class

Penjelasan program TSI BANK




Pada saat pertama kali menjalankan program, akan muncul message box seperti gambar di atas.



Kemudian, akan muncul tampilan seperti di atas. Bagian di atas, merupakan permulaan, apakah ingin menjalankan program atau tidak.




Pada gambar nomor 2, jika anda memilih tidak akan muncul message box seperti gambar di atas.




Kemudian, apabila pada gambar nomor 2 anda memilih ya, akan menampilkan message box seperti gambar di atas.




Kemudian, akan muncul gambar seperti di atas. Anda diminta untuk mengisi form/biodata untuk membuat akun menjadi nasabah baru di TSI BANK.




Kemudian, dalam form ini terdapat beberapa combo box yang dapat memudahkan calon nasabah untuk mengisi form tersebut. Pada gambar di atas, terdapat beberapa pilihan kota tempat kelahiran bagi para calon nasabah TSI BANK.




Kemudian, juga ada combo box untuk nama-nama bulan kelahiran bagi para calon nasabah TSI BANK.




Kemudian, juga ada combo box untuk tahun kelahiran bagi para calon nasabah TSI BANK.




Kemudian, juga ada combo box untuk pilihan agama yang dianut oleh para calon nasabah TSI BANK.




Kemudian, juga ada combo box untuk jenis kelamin para calon nasabah TSI BANK.




Kemudian, setelah kita mengisi form dengan lengkap, akan seperti pada gambar di atas.




Kemudian, setelah anda mengisi form dengan lengkap, di bagian bawah form terdapat dua jenis button, button selesai dan batal. Jika anda memilih batal, akan muncul message box seperti gambar di atas.




Tetapi, jika anda memilih button selesai, maka akan muncul message box seperti di atas. Message box tersebut memberitahukan bahwa anda telah selesai membuat akun nasabah TSI BANK, dan telah terdaftar sebagai nasabah TSI BANK.




Kemudian, setelah proses pembuatan akun selesai, akan muncul gambar seperti di atas. Gembar tersebut berisi tentang transaksi-transaksi yang dapat dilakukan oleh nasabah.




Pada groupbox saldo awal, terdapat textbox nilai yang berfungsi untuk kolom tempat anda menginput jumlah saldo awal yang ingin anda masukan. Jika sebelum memasukan sebuah nilai (sejumlah uang), tetapi anda sudah menekan button simpan, maka akan muncul message box seperti gambar di atas.




Kemudian, setelah anda meng-input saldo awal, maka pada label saldo akan muncul sejumlah uang yang anda input pada kolom saldo di atas.




Kemudian setelah anda meng-input saldo awal, maka langkah selanjutnya adalah melakukan transaksi lain yaitu debet dan kredit. Ketika anda menekan tombol transaksi, maka sebelum masuk ke groupbox transaksi, akan muncul message box terlebih dahulu seperti gambar di atas.




Kemudian setelah muncul message box, akan muncul groupbox seperti gambar di atas yang berfungsi untuk melakukan transaksi debet dan kredit.




Kemudian, setelah anda meng-input nilai (sejumlah uang) pada kolom transaksi, dan melakukan transaksi debet, maka nilai pada kolom transaksi akan langsung mengurangi jumlah saldo yang anda miliki.



Tetapi, apabila jumlah nilai yang anda masukan pada kolom nilai transaksi lebih besar dari pada jumlah saldo yang anda miliki, maka transaksi akan gagal dan muncul message box seperti gambar di atas.




Selain transaksi debet, anda juga dapat melakukan transaksi kredit. Ketika anda meng-input sejumlah nilai dan menekan tombol kredit, maka saldo anda akan bertambah sebanyak sejumlah nilai yang anda input pada kolom transaksi. Setelah anda selesai melakukan semua transaksi yang anda, maka untuk meghapus semua kolom-kolom dan label saldo yang ada, anda dapat menekan tombol/button reset. Atau untuk mengakhiri program ini, anda dapat menekan tombol keluar.


Demikian penjelasan tentang program yang telah saya buat. Semoga dapat bermanfaat dan membantu pekerjaan anda. Terima kasih...





Source Code Program


Program yang saya buat terdiri dari 3 form, yaitu form_opening, form_biodata, dan form_transaksi. Dan juga terdapat 2 class, yaitu class_biodata dan class_transaksi.


1. Source Code Form_Opening


Public Class Form_opening


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

MsgBox("Welcome To TSI BANK...", MsgBoxStyle.Information, "WELCOME")

Me.CenterToScreen()

End Sub


Private Sub Button_ya_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_ya.Click

MsgBox("Silahkan mengisi biodata terlebih dahulu.", MsgBoxStyle.Information, "BIODATA")

Me.Visible = False

Form_Biodata.Visible = True

End Sub


Private Sub Button_tidak_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_tidak.Click

Dim x As Integer

x = MsgBox("Apakah anda ingin keluar?", MsgBoxStyle.OkCancel, "EXIT")

If x = vbOK Then

MsgBox("Terima kasih telah menggunakan program kami..", MsgBoxStyle.OkOnly, "Informasi")

End

End If

End Sub

End Class


2. Source Code Form_Biodata


Public Class Form_Biodata


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

Me.CenterToScreen()

Dim x As Integer

For x = 1 To 31

ComboBox_tanggal.Items.Add(x)

Next

Dim z As Integer

For z = 1 To 12

ComboBox_bulan.Items.Add(MonthName(z))

Next

Dim q As Integer

For q = 1950 To 2000

ComboBox_tahun.Items.Add(q)

Next

End Sub


Private Sub Button_selesai_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_selesai.Click

If TextBox_nama.Text = "" Then

MsgBox("Maaf, data yang anda masukan belum lengkap!", MsgBoxStyle.Critical, "ERROR")

ElseIf TextBox_alamat.Text = "" Then

MsgBox("Maaf, data yang anda masukan belum lengkap!", MsgBoxStyle.Critical, "ERROR")

ElseIf ComboBox_tempat.Text = "" Then

MsgBox("Maaf, data yang anda masukan belum lengkap!", MsgBoxStyle.Critical, "ERROR")

ElseIf ComboBox_tanggal.Text = "" Then

MsgBox("Maaf, data yang anda masukan belum lengkap!", MsgBoxStyle.Critical, "ERROR")

ElseIf ComboBox_bulan.Text = "" Then

MsgBox("Maaf, data yang anda masukan belum lengkap!", MsgBoxStyle.Critical, "ERROR")

ElseIf ComboBox_tahun.Text = "" Then

MsgBox("Maaf, data yang anda masukan belum lengkap!", MsgBoxStyle.Critical, "ERROR")

ElseIf ComboBox_agama.Text = "" Then

MsgBox("Maaf, data yang anda masukan belum lengkap!", MsgBoxStyle.Critical, "ERROR")

ElseIf ComboBox_jkelamin.Text = "" Then

MsgBox("Maaf, data yang anda masukan belum lengkap!", MsgBoxStyle.Critical, "ERROR")

Else

Dim kata As String

Dim kapital As New Class_Biodata

kata = kapital.biodata(TextBox_nama.Text)

Dim objek As Class_Biodata

objek = New Class_Biodata

objek.datadiri = kata

MsgBox("Selamat ! " + objek.datadiri + " telah terdaftar sebagai nasabah TSI BANK..", MsgBoxStyle.Information, "Registrasi")

Form_Transaksi.Visible = True

Me.Visible = False

End If

End Sub


Private Sub Button_batal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_batal.Click

Dim x As Integer

x = MsgBox("Apakah anda ingin keluar?", MsgBoxStyle.OkCancel, "EXIT")

If x = vbOK Then

MsgBox("Terima kasih telah menggunakan program kami..", MsgBoxStyle.OkOnly, "Informasi")

End

End If

End Sub

End Class


3. Source Code form_Transaksi


Public Class Form_Transaksi


Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

Label5.Text = My.Computer.Clock.LocalTime.ToLongTimeString

Label6.Text = My.Computer.Clock.LocalTime.ToLongDateString

End Sub


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

Me.CenterToScreen()

End Sub


Private Sub Button_keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_keluar.Click

Dim x As Integer

x = MsgBox("Apakah anda ingin keluar?", MsgBoxStyle.OkCancel, "EXIT")

If x = vbOK Then

MsgBox("Terima kasih telah menggunakan program kami..", MsgBoxStyle.OkOnly, "Informasi")

End

End If

End Sub


Private Sub Button_simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_simpan.Click

If TextBox_nilai_saldo_awal.Text = "" Then

MsgBox("Maaf, anda harus mengisi saldo awal terlebih dahulu!", MsgBoxStyle.Critical, "ERROR")

TextBox_nilai_saldo_awal.Focus()

Else

Dim duit As Integer

Dim objek As New Class_Transaksi

duit = objek.saldo_awal(TextBox_nilai_saldo_awal.Text)

Label_saldo_akhir.Text = duit

Label_saldo_akhir.Visible = True

Button_transaksi.Enabled = True

TextBox_nilai_saldo_awal.ReadOnly = True

TextBox_nilai_saldo_awal.TextAlign = HorizontalAlignment.Center

End If

End Sub


Private Sub Button_transaksi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_transaksi.Click

MsgBox("Silahkan melakukan transaksi...", MsgBoxStyle.Information, "Informasi")

GroupBox2.Visible = True

Button_transaksi.Visible = False

TextBox_nilai_transaksi.Focus()

End Sub


Private Sub Button_reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_reset.Click

TextBox_nilai_saldo_awal.Focus()

TextBox_nilai_saldo_awal.Text = ""

TextBox_nilai_transaksi.Text = ""

GroupBox2.Visible = False

Button_transaksi.Visible = True

Button_transaksi.Enabled = False

TextBox_nilai_saldo_awal.ReadOnly = False

Label_saldo_akhir.Visible = False

End Sub


Private Sub Button_debet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_debet.Click

Dim duit As Integer

Dim objek As New Class_Transaksi

duit = objek.debet_saldo(TextBox_nilai_transaksi.Text, Label_saldo_akhir.Text)

Label_saldo_akhir.Text = duit

TextBox_nilai_transaksi.TextAlign = HorizontalAlignment.Center

End Sub


Private Sub Button_kredit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_kredit.Click

Dim uang As Integer

Dim objek As New Class_Transaksi

uang = objek.credit_saldo(TextBox_nilai_transaksi.Text, Label_saldo_akhir.Text)

Label_saldo_akhir.Text = uang

TextBox_nilai_transaksi.TextAlign = HorizontalAlignment.Center

End Sub

End Class



4. Source Code Class_Biodata


Public Class Class_Biodata


Private data_diri As String


Public Function biodata(ByVal nama As String)

Dim karakter_kapital As String

karakter_kapital = StrConv(nama, VbStrConv.Uppercase)

biodata = karakter_kapital

End Function


Public Property datadiri() As String

Get

datadiri = data_diri

End Get

Set(ByVal value As String)

data_diri = value

End Set

End Property

End Class


5. Source Code Class_Transaksi


Public Class Class_Transaksi


Private transaction As Integer


Public Function saldo_awal(ByVal saldo As Integer)

Dim money As Integer

If saldo <>

MsgBox("Maaf, saldo anda tidak boleh kurang dari Rp 0,-..", MsgBoxStyle.Critical, "Konfirmasi")

money = 0

Else

money = saldo

End If

saldo_awal = money

End Function


Public Function debet_saldo(ByVal debet As Integer, ByVal saldo As Integer)

Dim uang As Integer

If debet <= saldo Then

uang = saldo - debet

Else

uang = saldo + 0

MsgBox("Maaf, uang yang anda ambil melebihi saldo anda!", MsgBoxStyle.Critical, "ERROR")

End If

debet_saldo = uang

End Function


Public Function credit_saldo(ByVal credit As Integer, ByVal saldo As Integer)

Dim duit As Integer

duit = saldo + credit

credit_saldo = duit

End Function


Public Property nabung() As Integer

Get

nabung = transaction

End Get

Set(ByVal value As Integer)

transaction = value

End Set

End Property

End Class