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