VISUAL BASIC 6.0
'PROCEDUR & FUNCTION'
NAMA : SYENDI NAZERA T
KELAS / NPM : 1KA16 / 16115775
JURUSAN : SISTEM INFORMASI
UNIVERSITAS GUNADARMA
2015/2016
1. Membuat form Login
- untuk judul, username dan password, menggunakan label kita tinggal drag pada toolbox yang berada di sebelah kiri vb 6.0
- untuk textbox juga tedapat pada toolbox
- dan command button seperti login dan exit
Ini untuk codingan login :
Sub clear_all()
txtUser = ""
txtPw = ""
End Sub
Private Sub cmd_login_Click()
If txtUser.Text = "Admin" And txtPw.Text = "123" Then
menuawal.Show
Me.Hide
ElseIf txtUser.Text = "Admin" And txtPw.Text <> "123" Then
MsgBox ("Password anda salah! Silahkan coba lagi!")
Call clear_all
ElseIf txtUser.Text <> "Admin" And txtPw.Text = "123" Then
MsgBox ("Username anda salah! Silahkan coba lagi!")
Call clear_all
End If
End Sub
Private Sub exit_Click()
Dim a As String
a = MsgBox("Apakah Anda Yakin Ingin Keluar ?", vbQuestion + vbYesNo, "Keluar Program")
If a = vbYes Then
End
Else
Exit Sub
End If
End Sub
2. Membuat Menu Awal
pada menu awal saya menggunakan Menu Editor, klik kanan padan form lalu pilih menu editor. pada menu editor saya memakai "data, transaksi, informasi, dan logout"
- pada caption dan name terserah kalian mengisi dengan nama pilihan kalian
- untuk titik pada tulisan user itu mengunakan anak panah yang kekanan fungsinya ketika kita klik data akan terdapat pilihan pilihan lg
- jika ingin membuat menu menu yang lain, tulis dicaption dan name lalu next. setelah semua telah selesai klik ok
codingan menu awal :
Private Sub Informasi_Click()
info.Show
Me.Hide
End Sub
Private Sub Logout_Click()
Dim syendi As String
syendi = MsgBox("Apakah Anda Yakin Ingin Keluar ?", vbQuestion + vbYesNo, "Keluar Program")
If syendi = vbYes Then
Login.Show
Me.Hide
Else
End If
End Sub
Private Sub Transaksi_Click()
menutransaksi.Show
Me.Hide
End Sub
3. Membuat Data Pegawai
- untuk tulisan id,nama,jenis kelamin,jabatan mengunakan label dan text yang berada disampingnya mengunakan textbox caranya tinggal mendrag seperti membuat menu login.
- dan tambah dan exit mengunakan command button, command button itu sendiri fungsinya untuk memproses
- pada data pegawai mengunakan array dimensi 2 dan memakai listbox yang terdapat pada toolbox
ini untuk codingannya :
Dim arraydataheader(2, 4) As String
Dim arraydata(1, 4) As String
Private Sub cmndexit_Click()
menuawal.Show
Me.Hide
End Sub
Private Sub cmndtambah_Click()
arraydata(1, 1) = txtid.Text
arraydata(1, 2) = txtnama.Text
arraydata(1, 3) = cmbjns.Text
arraydata(1, 4) = txtjabatan.Text
For i = 1 To 1
a = " "
For j = 1 To 4
a = a & arraydata(i, j) & " "
Next j
List1.AddItem a
Next i
End Sub
Private Sub Form_Load()
arraydataheader(1, 1) = ("ID")
arraydataheader(1, 2) = ("NAMA")
arraydataheader(1, 3) = ("JENIS KELAMIN")
arraydataheader(1, 4) = ("JABATAN")
arraydataheader(2, 1) = ("================================================================================")
For i = 1 To 2
a = ""
For j = 1 To 4
If i = 1 Then
a = a & arraydataheader(i, j) & " "
ElseIf j = 1 Then
a = a & arraydataheader(2, 1)
End If
Next j
List1.AddItem a
Next i
End Sub
4. Menu transaksi
pada transaksi saya mengunkan database untuk menyimpan data
- yang paling atas mengunakan datagrid dan untuk mengkoneksikan access ke vb dengan adodc
- pada jenis penumpang mengunakan checkbox
- pada jenis penumpang mengunakan checkbox
- cara menambahkannya datagrid dan adodc klik kanan pada toolbox, pilih components dan klik microsoft ADO Data Control 6.0 (OLEDB), Microsoft DataGrid Control 6.0 (OLDB), Microsoft Common Controls 5.0 (SP2) dan klik ok. setelah itu akan muncul pada toolbox
ini codingan transaksi :
Dim anak As Single
Dim dewasa As Single
Dim lansia As Single
Sub hitung()
txt_asuransi.Text = anak + dewasa + lansia
End Sub
Private Sub chk_anak_Click()
If chk_anak.Value = 1 Then
anak = (Val(txt_jmltkt.Text) * Val(txt_hrgtkt)) * 0.1
Else
anak = 0
End If
hitung
cmdproses.SetFocus
End Sub
Private Sub chk_dewasa_Click()
If chk_dewasa.Value = 1 Then
dewasa = (Val(txt_jmltkt.Text) * Val(txt_hrgtkt)) * 0.05
Else
dewasa = 0
End If
hitung
cmdproses.SetFocus
End Sub
Private Sub chk_lansia_Click()
If chk_lansia.Value = 1 Then
lansia = (Val(txt_jmltkt.Text) * Val(txt_hrgtkt)) * 0.15
Else
lansia = 0
End If
hitung
cmdproses.SetFocus
End Sub
Private Sub cmb_jnskrta_Click()
Select Case cmb_jnskrta.ListIndex
Case 0
txt_nmkrta.Text = "KA MAJAPAHIT"
txt_hrgtkt.Text = "100000"
txt_stasal.Text = "PASAR SENEN"
txt_sttujuan.Text = "MALANG"
Case 1
txt_nmkrta.Text = "KA ANGREK"
txt_hrgtkt.Text = "200000"
txt_stasal.Text = "GAMBIR"
txt_sttujuan.Text = "SB. GUBENG"
Case 2
txt_nmkrta.Text = "KA EKSPRES"
txt_hrgtkt.Text = "300000"
txt_stasal.Text = "GAMBIR"
txt_sttujuan.Text = "CIREBON"
End Select
End Sub
Private Sub cmdbersih_Click()
txt_jmltkt.Text = ""
txt_nm.Text = ""
txt_grbng.Text = ""
txt_seat.Text = ""
txt_tgl.Text = ""
cmb_jnskrta.Text = ""
txt_no.Text = ""
txt_stasal.Text = ""
txt_sttujuan.Text = ""
txt_nmkrta.Text = ""
txt_hrgtkt.Text = ""
txtb_biaya.Text = ""
txtp_potongan.Text = ""
txtp_ppn.Text = ""
txt_totalbyr.Text = ""
txtj_jmluang.Text = ""
txt_kembalian.Text = ""
txt_asuransi.Text = ""
End Sub
Private Sub cmdhapus_Click()
Adotransaksi.RecordSource = "select * from pegawai"
Adotransaksi.Recordset.Delete
MsgBox "Data '" & txt_nm.Text & "' Berhasil Dihapus,,!", vbInformation, "Berhasil Dihapus"
Call bersih
txt_nm.SetFocus
End Sub
Private Sub cmdkeluar_Click()
Dim syendi As String
syendi = MsgBox("Apakah Anda Yakin Ingin Keluar ?", vbQuestion + vbYesNo, "Keluar Program")
If syendi = vbYes Then
menuawal.Show
Me.Hide
Else
End If
End Sub
Private Sub cmdproses_Click()
txtb_biaya = (Val(txt_hrgtkt) * Val(txt_jmltkt) + Val(txt_asuransi))
If (Val(txt_jmltkt)) > 5 Then
txtp_potongan = (Val(txtb_biaya)) * 0.05
Else
txtp_potongan.Text = 0
End If
txtp_ppn = Val(txtb_biaya.Text) * 0.1
txt_totalbyr.Text = Val(txtb_biaya.Text) - Val(txtp_potongan.Text) + Val(txtp_ppn.Text)
txtj_jmluang.SetFocus
End Sub
Private Sub cmdtambah_Click()
Adotransaksi.RecordSource = "select * from kereta"
Adotransaksi.Recordset.AddNew
Adotransaksi.Recordset!jenis_kereta = cmb_jnskrta.Text
Adotransaksi.Recordset!nama_kereta = txt_nmkrta.Text
Adotransaksi.Recordset!stasiun_asal = txt_stasal.Text
Adotransaksi.Recordset!stasiun_tujuan = txt_sttujuan.Text
Adotransaksi.Recordset!harga_tiket = txt_hrgtkt.Text
Adotransaksi.Recordset!nama_pemesan = txt_nm.Text
Adotransaksi.Recordset!no_telepon = txt_no.Text
Adotransaksi.Recordset!tgl_pemesanan = txt_tgl.Text
Adotransaksi.Recordset!gerbong = txt_grbng.Text
Adotransaksi.Recordset!seat = txt_seat.Text
MsgBox "Data '" & txt_nm.Text & "' Berhasil Disimpan,,!", vbInformation, "Simpan Berhasil"
Call bersih
Call tampil
txt_nm.SetFocus
End Sub
Private Sub Cmdnext_Click()
struk.Show
Me.Hide
End Sub
Private Sub DataGrid1_Click()
cmb_jnskrta.Text = DataGrid1.Columns(0).Text
txt_nmkrta.Text = DataGrid1.Columns(1).Text
txt_stasal.Text = DataGrid1.Columns(2).Text
txt_sttujuan.Text = DataGrid1.Columns(3).Text
txt_hrgtkt.Text = DataGrid1.Columns(4).Text
txt_nm.Text = DataGrid1.Columns(5).Text
txt_no.Text = DataGrid1.Columns(6).Text
txt_tgl.Text = DataGrid1.Columns(7).Text
txt_grbng.Text = DataGrid1.Columns(8).Text
txt_seat.Text = DataGrid1.Columns(9).Text
End Sub
Private Sub Form_Activate()
txt_nmkrta.Enabled = False
txt_hrgtkt.Enabled = False
txt_asuransi.Enabled = False
txtb_biaya.Enabled = False
txtp_potongan.Enabled = False
txtp_ppn.Enabled = False
txt_totalbyr.Enabled = False
txt_kembalian.Enabled = False
End Sub
Private Sub Form_Load()
Dim Koneksi As String
cmb_jnskrta.AddItem "EKONOMI AC"
cmb_jnskrta.AddItem "EKSEKUTIF"
cmb_jnskrta.AddItem "BISNIS"
End Sub
Private Sub txtj_jmluang_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txt_kembalian = txtj_jmluang.Text - txt_totalbyr.Text
End If
End Sub
Sub bersih()
txt_nm.Text = ""
txt_grbng.Text = ""
txt_seat.Text = ""
txt_tgl.Text = ""
cmb_jnskrta.Text = ""
txt_no.Text = ""
txt_stasal.Text = ""
txt_sttujuan.Text = ""
txt_nmkrta.Text = ""
txt_hrgtkt.Text = ""
End Sub
Sub tampil()
Adotransaksi.RecordSource = "select * from kereta"
Set DataGrid1.DataSource = Adotransaksi
DataGrid1.Refresh
End Sub
Sub aktif()
txt_nm.Enabled = True
txt_grbng.Enabled = True
txt_seat.Enabled = True
txt_tgl.Enabled = True
cmb_jnskrta.Enabled = True
txt_no.Enabled = True
txt_stasal.Enabled = True
txt_sttujuan.Enabled = True
txt_nmkrta.Enabled = True
txt_hrgtkt.Enabled = True
End Sub
Sub nonaktif()
txt_nm.Enabled = False
txt_grbng.Enabled = False
txt_seat.Enabled = False
txt_tgl.Enabled = False
cmb_jnskrta.Enabled = False
txt_no.Enabled = False
txt_stasal.Enabled = False
txt_sttujuan.Enabled = False
txt_nmkrta.Enabled = False
txt_hrgtkt.Enabled = False
End Sub
* text biru : procedur
* text ungu : function
- jika klik next akan masuk ke struck pembayaran
codingannya :
Private Sub cmdkembali_Click()
menutransaksi.Show
Me.Hide
End Sub
Private Sub cmdlogout_Click()
Dim syendi As String
syendi = MsgBox("Apakah Anda Yakin Ingin Keluar ?", vbQuestion + vbYesNo, "Keluar Program")
If syendi = vbYes Then
menuawal.Show
Me.Hide
Else
End If
End Sub
Private Sub cmdprint_Click()
Label9 = menutransaksi.txt_nm
Label10 = menutransaksi.cmb_jnskrta
Label11 = menutransaksi.txt_nmkrta
Label12 = menutransaksi.txt_stasal
Label13 = menutransaksi.txt_tgl
Label14 = menutransaksi.txt_sttujuan
Label16 = menutransaksi.txt_seat
Label17 = menutransaksi.txt_grbng
Label18 = menutransaksi.txt_jmltkt
Label20 = menutransaksi.txt_totalbyr
End Sub
* pada label diambil dari menu transaksi yang terdapat pada textbox
Private Sub cmdreset_Click()
Label9 = ""
Label10 = ""
Label11 = ""
Label12 = ""
Label13 = ""
Label14 = ""
Label16 = ""
Label17 = ""
Label18 = ""
Label20 = ""
End Sub
5. INFORMASI
codingan :
Private Sub cmdexit_Click()
menuawal.Show
Me.Hide
End Sub
No comments:
Post a Comment