Program sederhana pada DBASE III PLUS

bcara tentang program ada banyak bahasa pemograman dewasa ini yang sudah dikembangbangkan para ahli untuk sekarang gw masih baru memepelajari  bahasa program BASIC & PASKAL untuk DBASE sendiri merupakan program pengolahan data dimana perintah2nya pun tidak beda jauh dengan paskal..

berikt ada contoh buat program sederhana pada dbase.

Buat program sederhana untuk penjualan

terdiri dari :

PENJUALAN BARANG

================

Kode barang  :<INPUT>

Nama barang  :<INPUT>

Jumlah barang:<INPUT>

Harga barang :<INPUT>

Total harga  :<OUTPUT DARI JUMLAH * HARGA>

Diskon       :<OUTPUT 5% dari total harga>

Total bayar  :<OUTPUT total harga- diskon>\

dengan listing sebagai berikut 

SET TALK OFF

CLEAR

KB = SPACE(3)

NB = SPACE(9)

JB = 0

HRG= 0

TH = 0

DS = 0

TB = 0

Baca selengkapnya »

Program Paskal Sederhana

kali ini gw akan share ilmu  bahasa pemograman ( paskal )  yang gw dapet dari ibu fatimah (dosen paskal gw) karena gw yakin ada sebagian dari pengungjung setia blog gw ( *kamsa hamnida  = terimakasih) yang mungkin belum familier dengan bahsa pemograman dengan niat yang tuluis setidaknya orang2 awam bisa sedit mengerti tentang ilmu yang sekarang lagi gw tuntut. dsni gw share beberapa contoh program dan listing programnya untuk catatan listing ini jalan pada TPW (turbo paskal for windows) untuk paskal for DOS tinggal diedit2 sedikit..

 listing program dengan menggunakan statement IF atau CASE.

Output

Nama Pelanggan

Kode KWH

Besar KWH

Biaya Beban

Biaya Pemakaian

Angka Pemakaian Bulan Lalu

Angka Pemakaian Bulan Akhir

Jumlah Pemakaian

Total Biaya Pemakaian

PPH

Total Bayar

Ketentuan

-       Nama Pelanggan Rekening Listrik diinput manual.

-       Kode KWH diinput manual minimal 3 Kode.

-       Besar KWH, Biaya Beban dan Biaya Pemakaian berdasarkan Kode KWH, besarnya anda tentukan sendiri.

-       Angka Pemakaian Bulan Lalu dan Bulan Akhir diinput manual.

-       Jumlah Pemakaian = Angka Pemakaian Bulan Akhir – Angka Pemakaian Bulan Lalu.

-       Total Biaya Pemakaian = Biaya Pemakaian x Jumlah Pemakaian.

-       PPH berdasarkan Total Biaya Pemakaian, jika Total Biaya Pemakaian >= 300000 maka PPH = 2.3% x Total Biaya, selain itu tidak ada PPH.

-       Total Bayar = Biaya Beban + Total Biaya Pemakaian + PPH.

dan dibawah ini adalah listing programnya 

PROGRAM TIPE_A;

USES WINCRT;

VAR   NAMA,BESAR                  :  STRING[15];

            KODE                                  :  CHAR;

            ANGKABL,ANGKABA   :  WORD;

            JUMLAHP                          :  BYTE;

            BBEBAN,BPAKAI,TOTAL,PPH,TTLBYR :  REAL;

BEGIN

CLRSCR;

WRITELN ('PT. PLN (PERSERO WILAYAH KALSELTENG)');

WRITELN ('      PEMBAYARAN REKENING LISTRIK');   

WRITELN ('=====================================');

WRITELN;

WRITE ('MASUKKAN NAMA PELANGGAN           : ');READLN(NAMA);

WRITE ('MASUKKAN KODE KWH [A/B/C]             : ');READLN(KODE);

Baca selengkapnya »