Digital Clock in Delphi

 I wrote this simple Digital Clock using Delphi programming language Object Pascal. 

If you need a computer programmer here in the Philippines or abroad, please contact me at jakerpomperada@gmail.com 

My mobile number is 09173084360.  

You can visit my other website at www.jakerpomperada.com

Thank you very much.

Jake R. Pomperada

Freelance Computer Programmer

Program Listing

unit digital_clock;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,

  System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Timer1: TTimer;

    Label2: TLabel;

    Label3: TLabel;

    procedure FormCreate(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

  Timer1.Enabled := True;          // start the clock

  Label1.Font.Size := 24;          // bigger text   o

  Label1.Font.Color := clRed;

  Label1.Caption := TimeToStr(Time); // initial time display

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  Label1.Caption := TimeToStr(Time);  // update time every second

end;

end.

Feet To Meter in Delphi

 A simple program that I wrote will ask the user to give value in feet and convert into meter equivalent value in Delphi.

If you need a computer programmer here in the Philippines or abroad, please contact me at jakerpomperada@gmail.com 

My mobile number is 09173084360.  

You can visit my other website at www.jakerpomperada.com

Thank you very much.

Jake R. Pomperada

Freelance Computer Programmer

Program Listing

unit Feet_Meter;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Edit1: TEdit;

    Label2: TLabel;

    Edit2: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var feet, meters: Double;

begin

  try

  feet := StrToFloat(Edit1.Text);

  meters := feet * 0.3048;

  Edit2.Text := FormatFloat('0.00',meters);

except

  on E: Exception do

    begin

    MessageDlg('Please enter a valid number.', mtInformation, [mbOK], 0);

    Edit1.Clear;                       // Clear the input box

    Edit1.SetFocus;

   end;

   end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

  Edit1.Text := '';  // Clear input

  Edit2.Text := '';  // Clear output

  Edit1.SetFocus

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

 Application.Terminate;

end;

end.

US Dollar To Philippine Peso in Delphi

Area of a Circle in Delphi

CRUD Application in Visual FoxPro

Subtract Two Numbers in Delphi

Subtract Two Numbers in Delphi

 A simple program that I wrote using Delphi to subtract two numbers.

Program Listing

unit subtract;

interface

uses

  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,

  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Button1: TButton;

    Label3: TLabel;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

   private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var

  Number1, Number2, Result: Double;

begin

        // Convert input strings to numbers

  Number1 := StrToFloat(Edit1.Text);

  Number2 := StrToFloat(Edit2.Text);

  // Perform subtraction

  Result := Number1 - Number2;

  // Display result

  Label3.Caption := 'The difference between ' + FloatToStr(Number1)

  + ' and '+ FloatToStr(Number2) + ' is  '   + FloatToStr(Result) + '.';

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

edit1.Text := '';

edit2.Text := '';

label3.Caption := '';

edit1.SetFocus;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

if MessageDlg('Are you sure you want to close this program', mtConfirmation,

    [mbYes, mbNo], 0) = mrYes then

  begin

    Close;  // This will unload/close the form

  end

  else

   begin

     edit1.Text := '';

     edit2.Text := '';

     label3.Caption := '';

     edit1.SetFocus;

   end;

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

  // Show message box with custom icon

  Application.MessageBox(

    'Created By Dr. Jake Rodriguez Pomperada,PHD-TM',

    'About this program',

    MB_OK + MB_ICONINFORMATION

  );

end;

end.

Na reach ko na po ang 10,000 subscribers sa akin channel guys

Uses of Machine Learning