menu strip - visual basic

menu strip - visual basic

• 1.
  TUGAS AKHIR PRAKTIKUMSP MEMBUAT MENUSTRIP DAN FORM “RENTAL CD” PEMROGRAMAN VISUAL 1 KELOMPOK 3 DISUSUN OLEH : MELINA KRISNAWATI 12.12.0328 SI 12 F JURUSAN SISTEM INFORMASI SEKOLAH TINGGI MANAJEMEN INFORMATIKA DAN KOMPUTER AMIKOM PURWOKERTO PURWOKERTO 2014
• 2.
  LISTING PROGRAM DANHASIL RUNNING (OUTPUT PROGRAM) 1. CODE PROGRAM (LISTING PROGRAM) 1.1 CODE PROGRAM FORM 1 / MENU UTAMA using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace Rentalcd { public partial class frmutama : Form { public frmutama() { InitializeComponent(); } private void frmutama_Load(object sender, EventArgs e) { } private void formJenisCDToolStripMenuItem_Click(object sender, EventArgs e) { FormJenis frjenis = new FormJenis();
• 3.
  frjenis.MdiParent = this; frjenis.Show(); frjenis.Focus(); } privatevoid formNamaCDToolStripMenuItem_Click(object sender, EventArgs e) { FormNamaCD frnama = new FormNamaCD(); frnama.MdiParent = this; frnama.Show(); frnama.Focus(); } private void formToolStripMenuItem_Click(object sender, EventArgs e) { FormMember frnama = new FormMember(); frnama.MdiParent = this; frnama.Show(); frnama.Focus(); } private void formDataPeminjamanToolStripMenuItem_Click(object sender, EventArgs e) { FormDataPeminjaman frnama = new FormDataPeminjaman(); frnama.MdiParent = this; frnama.Show(); frnama.Focus(); } private void formDataPengembalianToolStripMenuItem_Click(object sender, EventArgs e) { FormDataPengembalian frnama = new FormDataPengembalian(); frnama.MdiParent = this; frnama.Show(); frnama.Focus(); } private void keluarToolStripMenuItem_Click(object sender, EventArgs e) { Application.Exit(); } } } 1.2 CODE PROGRAM FORM JENIS CD using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace Rentalcd { public partial class FormJenis : Form
• 4.
  { public FormJenis() { InitializeComponent(); } private voidbtnSimpan_Click(object sender, EventArgs e) { if (cmbKodeJenis.Text == "") { errorProvider1.SetError(cmbKodeJenis, "Isi Kode Jenis CD !"); } if (txtnamajenis.Text == "") { errorProvider1.SetError(txtnamajenis, "Isikan Nama Jenis CD"); } else { string[] baris = { cmbKodeJenis.Text, txtnamajenis.Text}; dataGridView1.Rows.Add(baris); dataGridView1.AutoResizeColumns(); } } private void FormJenis_Load(object sender, EventArgs e) { cmbKodeJenis.Items.Add("F001"); cmbKodeJenis.Items.Add("G001"); } private void cmbKodeJenis_SelectedIndexChanged(object sender, EventArgs e) { if (cmbKodeJenis.SelectedIndex.Equals(0)) { txtnamajenis.Text = "Film / Movie"; } else if (cmbKodeJenis.SelectedIndex.Equals(1)) { txtnamajenis.Text = "Games"; } } private void btnReset_Click(object sender, EventArgs e) { cmbKodeJenis.Text = ""; txtnamajenis.Clear(); } private void btnHapus_Click(object sender, EventArgs e) { dataGridView1.Rows.Clear(); } private void btnUbah_Click(object sender, EventArgs e) { dataGridView1.CurrentRow.Cells[0].Value = cmbKodeJenis.Text;
• 5.
  dataGridView1.CurrentRow.Cells[1].Value = txtnamajenis.Text; } privatevoid tampildatagrid() { cmbKodeJenis.Text = dataGridView1.CurrentRow.Cells[0].Value.ToString(); txtnamajenis.Text = dataGridView1.CurrentRow.Cells[1].Value.ToString(); } private void dataGridView1_CellContentClick(object sender, DataGridViewCellEventArgs e) { tampildatagrid(); } private void dataGridView1_KeyUp(object sender, KeyEventArgs e) { tampildatagrid(); } } } 1.3 CODE PROGRAM FORM NAMA CD using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace Rentalcd { public partial class FormNamaCD : Form { public FormNamaCD() { InitializeComponent(); } private void FormNamaCD_Load(object sender, EventArgs e) { cmdkode.Items.Add("F001-1"); cmdkode.Items.Add("F001-2"); cmdkode.Items.Add("F001-3"); cmdkode.Items.Add("F001-4"); cmdkode.Items.Add("F001-5"); cmdkode.Items.Add("G001-1"); cmdkode.Items.Add("G001-2"); cmdkode.Items.Add("G001-3"); cmdkode.Items.Add("G001-4"); cmdkode.Items.Add("G001-5"); } private void cmdkode_SelectedIndexChanged(object sender, EventArgs e) { if (cmdkode.SelectedIndex.Equals(0)) {
• 6.
  txtnama.Text = "Twilight"; txtharga.Text= "7000"; } else if (cmdkode.SelectedIndex.Equals(1)) { txtnama.Text = "The Amazing Spiderman"; txtharga.Text = "6500"; } else if (cmdkode.SelectedIndex.Equals(2)) { txtnama.Text = "Spiderman"; txtharga.Text = "5000"; } else if (cmdkode.SelectedIndex.Equals(3)) { txtnama.Text = "Need For Speed"; txtharga.Text = "10000"; } else if (cmdkode.SelectedIndex.Equals(4)) { txtnama.Text = "Transformers 4"; txtharga.Text = "15000"; } else if (cmdkode.SelectedIndex.Equals(5)) { txtnama.Text = "Pes 2013"; txtharga.Text = "8000"; } else if (cmdkode.SelectedIndex.Equals(6)) { txtnama.Text = "Pes 2014"; txtharga.Text = "9500"; } else if (cmdkode.SelectedIndex.Equals(7)) { txtnama.Text = "FIFA"; txtharga.Text = "8000"; } else if (cmdkode.SelectedIndex.Equals(8)) { txtnama.Text = "The Sims"; txtharga.Text = "6000"; } else if (cmdkode.SelectedIndex.Equals(9)) { txtnama.Text = "DotA"; txtharga.Text = "10500"; } } private void btnSimpan_Click(object sender, EventArgs e) { if (cmdkode.Text == "") { errorProvider1.SetError(cmdkode, "Isikan Kode !"); } if (txtnama.Text == "") { errorProvider1.SetError(txtnama, "Isikan Nama CD !"); }
• 7.
  if (txtharga.Text =="") { errorProvider1.SetError(txtharga, "Isi Harga CD ! "); } if (txtstok.Text == "") { errorProvider1.SetError(txtstok, "Isi jumlah Stok yang tersedia"); } else { string[] baris = { cmdkode.Text, txtnama.Text, txtharga.Text, txtstok.Text }; dataGridView1.Rows.Add(baris); dataGridView1.AutoResizeColumns(); } } private void btnUbah_Click(object sender, EventArgs e) { dataGridView1.CurrentRow.Cells[0].Value = cmdkode.Text; dataGridView1.CurrentRow.Cells[1].Value = txtnama.Text; dataGridView1.CurrentRow.Cells[2].Value = txtharga.Text; dataGridView1.CurrentRow.Cells[3].Value = txtstok.Text; } private void btnHapus_Click(object sender, EventArgs e) { dataGridView1.Rows.Clear(); } private void btnReset_Click(object sender, EventArgs e) { cmdkode.Text = ""; txtnama.Clear(); txtharga.Clear(); txtstok.Clear(); } private void tampildatagrid() { cmdkode.Text = dataGridView1.CurrentRow.Cells[0].Value.ToString(); txtnama.Text = dataGridView1.CurrentRow.Cells[1].Value.ToString(); txtharga.Text = dataGridView1.CurrentRow.Cells[2].Value.ToString(); txtstok.Text = dataGridView1.CurrentRow.Cells[3].Value.ToString(); } private void dataGridView1_CellContentClick(object sender, DataGridViewCellEventArgs e) { tampildatagrid(); } private void dataGridView1_KeyUp(object sender, KeyEventArgs e) { tampildatagrid(); } private void dataGridView1_KeyDown(object sender, KeyEventArgs e) { tampildatagrid(); }
• 8.
  } } 1.4 CODE PROGRAMFORM MEMBER using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace Rentalcd { public partial class FormMember : Form { public FormMember() { InitializeComponent(); } private void FormMember_Load(object sender, EventArgs e) { cmdmember.Items.Add("Mb123"); cmdmember.Items.Add("Mb456"); cmdmember.Items.Add("Mb789"); cmdmember.Items.Add("Mb111"); cmdmember.Items.Add("Mb222"); cmdmember.Items.Add("Mb333"); cmdmember.Items.Add("Mb444"); cmdmember.Items.Add("Mb555"); cmdmember.Items.Add("Mb666"); cmdmember.Items.Add("Mb777"); } private void cmdmember_SelectedIndexChanged(object sender, EventArgs e) { if (cmdmember.SelectedIndex.Equals(0)) { txtnama.Text = "Marley Rose"; txtalamat.Text = "Jl.Merpati 1, Bandung"; txtnotelp.Text = "081727335889"; } else if (cmdmember.SelectedIndex.Equals(1)) { txtnama.Text = "Blake Janner"; txtalamat.Text = "Jl.Kemerdekaan, Jakarta"; txtnotelp.Text = "081727786543"; } else if (cmdmember.SelectedIndex.Equals(2)) { txtnama.Text = "Blaine Anderson"; txtalamat.Text = "Jl.Merdeka, Purwokerto"; txtnotelp.Text = "08177646598"; } else if (cmdmember.SelectedIndex.Equals(3)) {
• 9.
  txtnama.Text = "AndrewGarfield"; txtalamat.Text = "Jl.Garuda, Purwokerto"; txtnotelp.Text = "081678543000"; } else if (cmdmember.SelectedIndex.Equals(4)) { txtnama.Text = "Emma Watson"; txtalamat.Text = "Jl.Jend.Sudirman, Purwokerto"; txtnotelp.Text = "081727335889"; } else if (cmdmember.SelectedIndex.Equals(5)) { txtnama.Text = "Melina K"; txtalamat.Text = "Jl.Sitapen, Purwokerto"; txtnotelp.Text = "083455777345"; } else if (cmdmember.SelectedIndex.Equals(6)) { txtnama.Text = "Jacob Artist"; txtalamat.Text = "Baleendah, Bandung"; txtnotelp.Text = "081727335889"; } else if (cmdmember.SelectedIndex.Equals(7)) { txtnama.Text = "Kristen Steward"; txtalamat.Text = "Ciparay, Bandung"; txtnotelp.Text = "081788835889"; } else if (cmdmember.SelectedIndex.Equals(8)) { txtnama.Text = "Mochammad F"; txtalamat.Text = "Jl.Merdeka, Purwokerto"; txtnotelp.Text = "081727335889"; } else if (cmdmember.SelectedIndex.Equals(9)) { txtnama.Text = "Arfina Anggraeni"; txtalamat.Text = "Arcawinangun, Purwokerto"; txtnotelp.Text = "085443788989"; } } private void btnSimpan_Click(object sender, EventArgs e) { if (cmdmember.Text == "") { errorProvider1.SetError(cmdmember, "ID Member Harus diisi !"); } if (txtnama.Text == "") { errorProvider1.SetError(txtnama, "Nama Member harus diisi !"); } if (txtalamat.Text == "") { errorProvider1.SetError(txtalamat, "Alamat Harus Diisi !"); } if (txtnotelp.Text == "") { errorProvider1.SetError(txtnotelp, "Nomor Telepon Harus Diisi !"); }
• 10.
  else { string[] baris ={ cmdmember.Text, txtnama.Text, txtalamat.Text, txtnotelp.Text }; dataGridView1.Rows.Add(baris); dataGridView1.AutoResizeColumns(); } } private void btnUbah_Click(object sender, EventArgs e) { dataGridView1.CurrentRow.Cells[0].Value = cmdmember.Text; dataGridView1.CurrentRow.Cells[1].Value = txtnama.Text; dataGridView1.CurrentRow.Cells[2].Value = txtalamat.Text; dataGridView1.CurrentRow.Cells[3].Value = txtnotelp.Text; } private void btnHapus_Click(object sender, EventArgs e) { dataGridView1.Rows.Clear(); } private void btnReset_Click(object sender, EventArgs e) { cmdmember.Text = ""; txtnama.Clear(); txtalamat.Clear(); txtnotelp.Clear(); } private void tampildatagrid() { cmdmember.Text = dataGridView1.CurrentRow.Cells[0].Value.ToString(); txtnama.Text = dataGridView1.CurrentRow.Cells[1].Value.ToString(); txtalamat.Text = dataGridView1.CurrentRow.Cells[2].Value.ToString(); txtnotelp.Text = dataGridView1.CurrentRow.Cells[3].Value.ToString(); } private void dataGridView1_CellContentClick(object sender, DataGridViewCellEventArgs e) { tampildatagrid(); } private void dataGridView1_KeyUp(object sender, KeyEventArgs e) { tampildatagrid(); } private void dataGridView1_KeyDown(object sender, KeyEventArgs e) { tampildatagrid(); } } }
• 11.
  TRANSAKSI 1.5 CODE PROGRAMFORM DATA PEMINJAMAN using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace Rentalcd { public partial class FormDataPeminjaman : Form { public FormDataPeminjaman() { InitializeComponent(); } private void FormDataPeminjaman_Load(object sender, EventArgs e) { } private void btnhitung_Click(object sender, EventArgs e) { int jumlah, diskon, total; if (rb10.Checked) { jumlah = (int.Parse(txtJumlah.Text) * (int.Parse(txtHarga.Text))); diskon = (int.Parse(txtJumlah.Text) * (int.Parse(txtHarga.Text))) * 10 / 100; total = jumlah - diskon; int.Parse(txtTotal.Text = total.ToString()); } else if (rb5.Checked) { jumlah = (int.Parse(txtJumlah.Text) * (int.Parse(txtHarga.Text))); diskon = (int.Parse(txtJumlah.Text) * (int.Parse(txtHarga.Text))) * 5 / 100; total = jumlah - diskon; int.Parse(txtTotal.Text = total.ToString()); } else { txtTotal.Text = (int.Parse(txtJumlah.Text) * (int.Parse(txtHarga.Text))).ToString(); } } private void btnSimpan_Click(object sender, EventArgs e) {
• 12.
  string diskon; if (rb10.Checked== true) { diskon = ((int.Parse(txtJumlah.Text) * (int.Parse(txtHarga.Text))) * 10 / 100).ToString(); } else { diskon = ((int.Parse(txtJumlah.Text) * (int.Parse(txtHarga.Text))) * 5 / 100).ToString(); } string[] baris = { txtnomorpeminjaman.Text, txtIDmember.Text, txtKodeJeniscd.Text, txtKodeCD.Text, txtHarga.Text, txtJumlah.Text, diskon, txtTotal.Text }; dataGridView1.Rows.Add(baris); dataGridView1.AutoResizeColumns(); } private void btnUbah_Click(object sender, EventArgs e) { dataGridView1.CurrentRow.Cells[0].Value = txtnomorpeminjaman.Text; dataGridView1.CurrentRow.Cells[1].Value = txtIDmember.Text; dataGridView1.CurrentRow.Cells[2].Value = txtKodeJeniscd.Text; dataGridView1.CurrentRow.Cells[3].Value = txtKodeCD.Text; dataGridView1.CurrentRow.Cells[4].Value = txtHarga.Text; dataGridView1.CurrentRow.Cells[5].Value = txtJumlah.Text; dataGridView1.CurrentRow.Cells[6].Value = txtTotal.Text; } private void btnHapus_Click(object sender, EventArgs e) { dataGridView1.Rows.Clear(); } private void btnReset_Click(object sender, EventArgs e) { txtnomorpeminjaman.Clear(); txtIDmember.Clear(); txtKodeJeniscd.Clear(); txtKodeCD.Clear(); txtHarga.Clear(); txtJumlah.Clear(); txtTotal.Clear(); } private void btnExit_Click(object sender, EventArgs e) { Close(); } private void tampildatagrid() { txtnomorpeminjaman.Text = dataGridView1.CurrentRow.Cells[0].Value.ToString(); txtIDmember.Text = dataGridView1.CurrentRow.Cells[1].Value.ToString(); txtKodeJeniscd.Text = dataGridView1.CurrentRow.Cells[2].Value.ToString(); txtKodeCD.Text = dataGridView1.CurrentRow.Cells[3].Value.ToString();
• 13.
  txtHarga.Text = dataGridView1.CurrentRow.Cells[1].Value.ToString(); txtJumlah.Text= dataGridView1.CurrentRow.Cells[2].Value.ToString(); txtTotal.Text = dataGridView1.CurrentRow.Cells[3].Value.ToString(); } private void dataGridView1_CellContentClick(object sender, DataGridViewCellEventArgs e) { tampildatagrid(); } private void dataGridView1_KeyUp(object sender, KeyEventArgs e) { tampildatagrid(); } private void dataGridView1_KeyDown(object sender, KeyEventArgs e) { tampildatagrid(); } private void groupBox2_Enter(object sender, EventArgs e) { } } } 1.6 CODE PROGRAM FORM DATA PENGEMBALIAN using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using System.Linq; using System.Text; using System.Windows.Forms; namespace Rentalcd { public partial class FormDataPengembalian : Form { DateTime tanggal1; DateTime tanggal2; TimeSpan hasil; public FormDataPengembalian() { InitializeComponent(); } private void txtnomorpeminjaman_TextChanged(object sender, EventArgs e) {
• 14.
  } private void FormDataPengembalian_Load(objectsender, EventArgs e) { } private void dateTimeKembali_ValueChanged(object sender, EventArgs e) { } private void btnOK_Click(object sender, EventArgs e) { tanggal1 = dateTimePinjam.Value; tanggal2 = dateTimeKembali.Value; hasil = tanggal2.Subtract(tanggal1); txtlama.Text = hasil.ToString(); } private void btnSimpan_Click(object sender, EventArgs e) { if (txtkodePengembalian.Text == "") { errorProvider1.SetError(txtkodePengembalian, "Kode Pengembalian Harus diisi !"); } if (txtkodecd.Text == "") { errorProvider1.SetError(txtkodecd, "Kode CD Harus Diisi !"); } if (txtidmember.Text == "") { errorProvider1.SetError(txtidmember, "ID Member Harus diisi !"); } if (dateTimePinjam.Text == "") { errorProvider1.SetError(dateTimePinjam, "Tanggal Pinjam harus diisi !"); } if (dateTimeKembali.Text == "") { errorProvider1.SetError(dateTimeKembali, "Tanggal Kembali harus diisi !"); } else { string[] baris = { txtkodePengembalian.Text, txtkodecd.Text, txtidmember.Text, dateTimePinjam.Text, dateTimeKembali.Text, txtlama.Text, txttotal.Text, txtdenda.Text}; dataGridView1.Rows.Add(baris); dataGridView1.AutoResizeColumns(); } } private void btnUbah_Click(object sender, EventArgs e) { dataGridView1.CurrentRow.Cells[0].Value = txtkodePengembalian.Text;
• 15.
  dataGridView1.CurrentRow.Cells[1].Value = txtkodecd.Text; dataGridView1.CurrentRow.Cells[2].Value= txtidmember.Text; dataGridView1.CurrentRow.Cells[3].Value = dateTimePinjam.Text; dataGridView1.CurrentRow.Cells[4].Value = dateTimeKembali.Text; dataGridView1.CurrentRow.Cells[5].Value = txtlama; dataGridView1.CurrentRow.Cells[6].Value = txttotal.Text; dataGridView1.CurrentRow.Cells[7].Value = txtdenda.Text; } private void btnHapus_Click(object sender, EventArgs e) { dataGridView1.Rows.Clear(); } private void btnReset_Click(object sender, EventArgs e) { txtkodePengembalian.Clear(); txtkodecd.Clear(); txtidmember.Clear(); txtlama.Clear(); } private void tampildatagrid() { txtkodePengembalian.Text = dataGridView1.CurrentRow.Cells[0].Value.ToString(); txtkodecd.Text = dataGridView1.CurrentRow.Cells[1].Value.ToString(); txtidmember.Text = dataGridView1.CurrentRow.Cells[2].Value.ToString(); dateTimePinjam.Text = dataGridView1.CurrentRow.Cells[3].Value.ToString(); dateTimeKembali.Text = dataGridView1.CurrentRow.Cells[4].Value.ToString(); txtlama.Text = dataGridView1.CurrentRow.Cells[5].Value.ToString(); txttotal.Text = dataGridView1.CurrentRow.Cells[6].Value.ToString(); txtdenda.Text = dataGridView1.CurrentRow.Cells[7].Value.ToString(); } private void btnexit_Click(object sender, EventArgs e) { Close(); } private void dataGridView1_CellContentClick(object sender, DataGridViewCellEventArgs e) { tampildatagrid(); } private void dataGridView1_KeyUp(object sender, KeyEventArgs e) { tampildatagrid(); } private void dataGridView1_KeyDown(object sender, KeyEventArgs e) { tampildatagrid(); } } }
• 16.
  2. HASIL RUNNING(OUTPUT PROGRAM) 2.1 FORM MENU
• 17.
  2.2 FORM JENISCD 2.3 FORM NAMA CD
• 18.
  2.4 FORM MEMBER 2.5FORM DATA PEMINJAMAN
• 19.
  2.6 FORM DATAPENGEMBALIAN