BAB I
PENDAHULUAN
1.1 Latar Belakang
Dewasa
ini kemajuan teknologi terasa semakin pesat, terutama pada bidang teknologi
informasi.Informasi merupakan salah satu bagian untuk dapat mendukung kemajuan
suatu perusahaan maupun instansi dengan tujuan memperkecil pengeluaran biaya
dan mempersingkat waktu kerja.
Atas
dasar tujuan tersebut,perlu dilakukan dukungan penuh dengan keberadaan system
informasi.
Dengan
demikian untuk bisa menghasilkan suatu informasi yang berkualitas
yang memenuhi persyaratan suatu informasi seperti akurat,relevan, dan tepat
waktu diperlukan keberadaan system teknologi informasi yang handal.
Penggunaan
teknologi tersebut akan berdampak baik terhadap jalannya roda usaha. Program
yang kami buat untuk menyediakan data CD/VCD dan data peminjaman dimana akan
dioperasikan pada saat konsumen meminjam sejumlah cd dengan menggunakan Visual
Basic.
Program ini dibuat untuk mempermudah operator dalam pencatatan sejumlah cd yang
ada dan untuk mencatat data konsumen yang meminjam cd tanpa harus dilakukan
secara manual.
1.2 Ruang Lingkup
Permasalahan
Bagaimana jika
konsumen/penyewa ingin meminjam lebih dari 1 cd.
1.3 Tujuan
Tujuan
dibuat makalah ini yaitu untuk menyelesaikan tugas kelompok
mata kuliah Interaksi Manusia dan Komputer.
Selain
itu kami berharap dibuatnya makalah ini bukan hanya untuk
Tugas yang diberikan
semata, tetapi dapat berguna untuk pembelajaran dan dapat digunakan untuk
menambah wawasan bagi orang-orang atau mahasiswa lainnya yang ingin
mengenal lebih lagi tentang pemrograman dan pengaplikasiannya dalam kehidupan
sehari-hari.
1.4 Manfaat
Manfaat dibuatnya makalah
ini untuk memberikan informasi pada para pembaca tentang materi-materi yang ada
didalamnya beserta program aplikasi yang telah dibuat .
BAB II
PERANCANGAN
2.1.
Kode Film
Menggunakan sintaks Combo
Box.
Private
Sub Form_Load()
Combo1.AddItem "Kode Film”
End Sub
Private Sub
Combo1_Click()
Label1.Caption = Combo1.Text
End Sub
Menampilkan kode Film misal “A” dan
seterusnya.
Asal File
Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub
Sewa
Private Sub Command2_Click()
Label3.Caption = Text1.Text
End Sub
Tanggal Pinjam
Private
Sub Form_Load()
Combo2.AddItem "Tgl Pinjam”
End Sub
Private
Sub Combo2_Click()
Label2.Caption = Combo2.Text
End Sub
Tanggal Kembali
Private
Sub Form_Load()
Combo3.AddItem "Tgl Kembali”
End Sub
Private
Sub Combo3_Click()
Label2.Caption = Combo3.Text
End Sub
Lama Pinjam
Private Sub Command3_Click()
Label4.Caption = Text1.Text
End Sub
Denda
Private Sub Command4_Click()
Label5.Caption = Text1.Text
End Sub
Total
Private Sub Command4_Click()
Label5.Caption = Text1.Text
End Sub
Untuk
mengeksekusi program
Private Sub
Command4_Click()
End
End Sub
Setelah
program di running akan keluar sebagai berikut :
BAB IV
PENUTUP
3.1 Kesimpulan
Dengan
adanya program peminjaman VCD/DVD akan mempermudah para pengusaha Rental
cd untuk menjalankan bisnisnya tanpa harus menjalakannya secara manual.
3.2 Saran
· Diharapkan makalah ini berguna dan dapat menjadi
sarana pembelajaran oleh pembaca, semoga pembaca menjadi lebih paham
mengenai program dan aplikasi lain pendukungnya.
· Selain memahami program yang ada pada makalah ini,diharapkan
pembaca juga bisa memperoleh
informasi dari sumber-sumber lain yang membantu dalam mempelajari
bahasa pemrograman dan aplikasinya.
