Dalam artikel ini, saya akan menjelaskan sebuah program pascal yang telah saya buat. Program ini saya beri nama 'Program Faktur Pembelian'. Berikut ini output yang ditampilkan dari program yang saya buat tersebut :
1. Windows pertama
Pada windows ini anda akan diminta memasukkan data-data seperti diatas. Untuk tanggal pembelian, jika anda memasukkan angka kurang dari 1 atau lebih dari 31, maka akan muncul sebuah kalimat, 'Eror! Silahkan ulangi'. Begitu pula halnya pada input bulan pembelian, jika anda memasukkan angka kurang dari 1 atau lebih dari 12, maka akan dimunculkan kalimat yang sama. Program ini saya buat pada tahun 2009, oleh karena itu program tidak akan berjalan jika anda memasukkan angka kurang dari 2009 pada input tahun pembelian.
2. Setelah itu akan muncul windows seperti ini :
Pada windows ini anda akan diminta memasukkan jumlah data (jenis barang yang dibeli). Setelah itu anda diminta memasukkan data-data dari masing-masing jenis barang (nama barang, kuantitas, dan harga satuan), setelah itu program secara otomatis menampilkan harga total, diskon, dan harga total setelah dikurangi diskon. Pada akhir dari windows ini akan ditampilkan harga keseluruhan, PPN dan harga keseluruhan beserta PPN, selain itu akan ditampilkan juga pertanyaan, 'Ada kesalahan input data? Y/N : '. Jika anda memasukkan 'Y' maka program akan mengulang bagian windows ini, jika anda memberikan jawaban 'N' maka program akan berlanjut ke windows selanjutnya, dan jika tidak kedua-duanya maka pertanyaan ini akan diulang terus sampai anda memberikan jawaban 'Y' atau 'N'. Pada program ini saya memberikan ketentuan diskon sebagai berikut:
a. Total harga per jenis barang antara 5 juta sampai 10 juta kan diberikan diskon sebesar 10 %;
b. Total harga per jenis barang antara 10 juta sampai 15 juta kan diberikan diskon sebesar 15 %; dan
c. Total harga per jenis barang lebih dari 15 juta kan diberikan diskon sebesar 20 %.
Serta PPN sebesar 10 %.
3. Berikut ini windows yang akan ditampilkan setelah windows diatas tadi (setelah anda memberikan jawaban 'N') :
Pada windows ini kembali ditampilkan sebuah pertanyaan, 'Tampilkan faktur pembelian? Y/N : '. Jika anda memberikan jawaban 'Y' maka windows akan menampilkan faktur pembelian, jika anda memilih 'N' maka program akan berhenti, dan jika tidak dari kedua-duanya maka pertanyaan akan diulang terus sampai anda memberikan jawaban 'Y' atau 'N'.
4. Berikut faktur yang akan ditampilkan program :
Demikianlah penjelasan dari program yang saya buat, semoga dapat bermanfaat.
Download Source Code (txt) disini.
1. Windows pertama
Pada windows ini anda akan diminta memasukkan data-data seperti diatas. Untuk tanggal pembelian, jika anda memasukkan angka kurang dari 1 atau lebih dari 31, maka akan muncul sebuah kalimat, 'Eror! Silahkan ulangi'. Begitu pula halnya pada input bulan pembelian, jika anda memasukkan angka kurang dari 1 atau lebih dari 12, maka akan dimunculkan kalimat yang sama. Program ini saya buat pada tahun 2009, oleh karena itu program tidak akan berjalan jika anda memasukkan angka kurang dari 2009 pada input tahun pembelian.2. Setelah itu akan muncul windows seperti ini :
Pada windows ini anda akan diminta memasukkan jumlah data (jenis barang yang dibeli). Setelah itu anda diminta memasukkan data-data dari masing-masing jenis barang (nama barang, kuantitas, dan harga satuan), setelah itu program secara otomatis menampilkan harga total, diskon, dan harga total setelah dikurangi diskon. Pada akhir dari windows ini akan ditampilkan harga keseluruhan, PPN dan harga keseluruhan beserta PPN, selain itu akan ditampilkan juga pertanyaan, 'Ada kesalahan input data? Y/N : '. Jika anda memasukkan 'Y' maka program akan mengulang bagian windows ini, jika anda memberikan jawaban 'N' maka program akan berlanjut ke windows selanjutnya, dan jika tidak kedua-duanya maka pertanyaan ini akan diulang terus sampai anda memberikan jawaban 'Y' atau 'N'. Pada program ini saya memberikan ketentuan diskon sebagai berikut:a. Total harga per jenis barang antara 5 juta sampai 10 juta kan diberikan diskon sebesar 10 %;
b. Total harga per jenis barang antara 10 juta sampai 15 juta kan diberikan diskon sebesar 15 %; dan
c. Total harga per jenis barang lebih dari 15 juta kan diberikan diskon sebesar 20 %.
Serta PPN sebesar 10 %.
3. Berikut ini windows yang akan ditampilkan setelah windows diatas tadi (setelah anda memberikan jawaban 'N') :
Pada windows ini kembali ditampilkan sebuah pertanyaan, 'Tampilkan faktur pembelian? Y/N : '. Jika anda memberikan jawaban 'Y' maka windows akan menampilkan faktur pembelian, jika anda memilih 'N' maka program akan berhenti, dan jika tidak dari kedua-duanya maka pertanyaan akan diulang terus sampai anda memberikan jawaban 'Y' atau 'N'.4. Berikut faktur yang akan ditampilkan program :
Demikianlah penjelasan dari program yang saya buat, semoga dapat bermanfaat.Download Source Code (txt) disini.
