Membuat Program Counter Menggunakan Lazarus Pascal

 Counter adalah alat penghitung yang banyak digunakan untuk penghitungan satuan hingga bilangan tertentu. Tasbih merupakan contoh counter menggunakan biji-bijian yang terangkai banyak digunakan untuk berzikir.

You can download source code by click here.

Lazarus - Program counter disini memiliki tombol naik dan turun, tentunya ada fitur reset yang tersembunyi. Program counter cukup mudah dibuat dengan menggunakan perintah Inc() untuk menghitung naik:

procedure Inc(  var X: TOrdinal);

procedure Inc(  var X: TOrdinal;  Increment: TOrdinal);

Dan Dec() menghitung mundur.

procedure Dec(  var X: TOrdinal);

procedure Dec(  var X: TOrdinal;  Decrement: TOrdinal);

menghitungan naik:

Cukilan skrip penghitungan naik dan mundur ketika sebuah tombol diklik.

procedure TForm1.Button1Click(Sender: TObject);

begin

  //Count up

  Dec(count);

  Panel1.Caption:= InttoStr(count);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  //count down

  Inc(count);

  Panel1.Caption:= IntToStr(count);

end; 

Tampilan aplikasi Counter cukup simpel, kamu bisa memodifikasinya sesuai keinginan.

Fitur tambahan lainnya, program counter ini mampu mengingat bilangan terakhir setelah program ditutup.

procedure TForm1.FormClose(Sender: TObject; var CloseAction: TCloseAction);

var

  mydata: TextFile;

begin

  AssignFile(mydata, 'count.dat');

  Rewrite(mydata);

  Write(mydata, Panel1.Caption);

  CloseFile(mydata);

end;

procedure TForm1.FormCreate(Sender: TObject);

var

  mydata: TextFile;

  s: string;

begin

  if not FileExists('count.dat') then

  begin

     Panel1.Caption:= '0';

     count:= 0;

  end

  else

  begin

    AssignFile(mydata,'count.dat');

    Reset(mydata);

    Readln(mydata, s);

    Panel1.Caption:= s;

    count:= StrToInt(s);

    CloseFile(mydata);

  end;

end;        

Silahkan unduh kode program disini. Selamat berkarya.