Delphi 2009

DELPHI UNTUK MENGHITUNG PH BASA DARI KSP
Program untuk menghitung pH basa dari Ksp program ini dapat digunakan karena mempermudah perhitungan dan untuk membuat proses belajar mengajar di kelas bisa menarik sehingga tidak menimbulkan kejenuhan dan siswa tidak merasa bosan.
Langkah-langkah untuk membuat program ini yaitu:
– Membuka delphi –> klik file –> pilih new –> VCL Forms Application – Delphi
Kemudian akan muncul form
Langkah selanjutnya yaitu:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label4: TLabel;
Edit3: TEdit;
Label5: TLabel;
Label6: TLabel;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Ksp,oh,n,poh,ph:real;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
Ksp:=strtofloat(edit1.Text);
n:=strtofloat(edit2.Text);
oh:=strtofloat(edit3.Text);
poh:=-(ln(oh))/(ln(10));
ph:=poh-14;
label6.Caption:=’pH = ‘+floattostr(ph);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text:=”;
edit2.Text:=”;
edit3.Text:=”;
label6.Caption:=”;
edit1.SetFocus;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
IF messagedlg (‘Anda yakin Akan Keluar ?’,
mtConfirmation,mbOkCancel,0)
=mrOk then
Application.Terminate;
end;

end.