Penggunaan Function Pada Bahasa Pemprograman Pascal Untuk Pencatatan Daya Listrik ( KWH dengan Komputer )

Function adalah suatu bagian program yang mengerjakan satu tugas dan hasilnya biasanya hanya satu, dapat di aplikasikan dalam pemrograman bahasa pascal. Pada pemrograman bahasa pascal yang bertujuan untuk Pencatatan Daya Listrik ( KWH dengan Komputer ). Berikut ini adalah listing yang digunakan Pencatatan Daya Listrik ( KWH dengan Komputer ) :

Keterangan :

1. Setelah memasukan kode, kita bisa melakukan pengecekan apakah program yang kita buat     jalan atau tidak dengan menekan tombol F9 pada keyboard. Jika tidak terdapat kesalahan, maka langkah selanjutnya adalah menjalankan program dengan menekan tombol CTRL+F9 pada keyboard. 
 

2. Tampilan program yang sudah berjalan.

3. Uses Crt;
Type
ST100 = String [100] ; ( masuk start lalu masukkan nilai 100 untuk strating pada program tersebut ).

4. Var
Baris,Colom : Byte ; ( pada listing ini masukkan yg tadi akan muncul pada baris atau kolom yang akan ditentukan pada program tersebut ).

5. Tekan : Char; ( pada tahap listing ini proses penekanan untuk menjalannkan program ).

6. Procedur setColor (A,B : Word);
Function Posisi (X,Y : byte) : integer ;
Procedure TUL (X,Y,WAR : byte ; kar : Char);
Procedure TULIS ( X,Y : byte ;KALIMAT : ST100)

( pada listing program diatas susunan prosedur pada posisi dimana tulisan atau karakter pada kalimat yang akan ditampilkan dalam LCD dengan masukkan 100 yang akan muncul kalimat sesuai dengan masukkan tersebut )

7. Function JendelaBingkai (X1, Y1, X2, Y2 : byte;)
Warna : string) : byte;
Implementation
Procedure SetColor (A<B : Word);
Begin
TextBackGround (B) ;

( Untuk listing diatas ini yaitu bertujuan untuk memberikan warna atau macam-macam warna pada tulisan yang ditampilkan pada layar LCD dan juga memberikan background pada tampilan tersebut )

8. End ( akhir program )

Referensi :

http://www.google.com/url?sa=t&rct=j&q=&esrc=s&source=web&cd=3&cad=rja&ved=0CDUQFjAC&url=http%3A%2F%2Fel.amik-intelcom.ac.id%2Fel%2Ffile.php%2F1%2Fmoddata%2Fforum%2F425%2F699%2FPENCATAT_PEMAKAIAN_DAYA_LISTRIK_KWH_DENGAN_KOMPUTER.doc&ei=hS2kUZGqCoPtrAfCxYGQAw&usg=AFQjCNFWLJS14wxx6GXYlCCqJdVE3wn2iw&sig2=GcQlh2jfTe05sz-LtMI2KA&bvm=bv.47008514,d.bmk