COMPUTER PROGRAMMING TUTORIALS

💻 COMPUTER PROGRAMMING TUTORIALS

Beginner • Intermediate • Advanced

Struggling with Programming? I Can Help You Pass.

👨‍🏫 Dr. Jake Rodriguez Pomperada, MAEd–IT, MIT, PhD-TM
✔ 30+ Years Experience in IT & Software Development
✔ College & Graduate School Professor
✔ Industry & Academic Mentor

---

📚 Tutorials Offered

✅ Python Programming
✅ Web Development (HTML, CSS, PHP, Laravel)
✅ Database Programming (MySQL / SQL)
✅ Software Engineering & Capstone Projects
✅ Thesis & Final Project Assistance
✅ Programming Logic & Problem Solving

---

🎯 Who Can Enroll?

✔ Senior High School (ICT / STEM)
✔ College IT / CS Students
✔ Beginners & Career Shifters
✔ Working Professionals

---

💡 Why Choose My Tutorials?

✔ Step-by-step explanations
✔ Hands-on coding exercises
✔ Real-world examples
✔ Affordable student-friendly rates
✔ Online or Face-to-Face sessions

---

📍 Location & Contact

📍 Bacolod City / Negros Occidental
📱 Mobile: 0917-308-4360
📧 Email: jakerpomperada@yahoo.com | jakerpomperada@gmail.com
🌐 Website: http://www.jakerpomperada.com

📩 Message or text now to reserve your slot!

Affordable IT Consultancy & Software Solutions

Affordable IT Consultancy & Software Solutions

Dr. Jake Rodriguez Pomperada, MAEd–IT, MIT, PhD-TM

Science Research Specialist II | IT Consultant | Software Engineer

Expert IT Services You Can Trust — At Very Affordable Rates

With over 30 years of professional experience in Information Technology, software engineering, research, and academe, I offer high-quality and affordable IT consultancy services for individuals, startups, SMEs, schools, and organizations.

IT Services Offered

✅ IT Project Management
– Planning, implementation, monitoring, and delivery of IT projects
– Agile and structured project management approaches

✅ Software Development
– Custom desktop, web, and database applications
– System design, architecture, and optimization
– Python, PHP (Laravel), MySQL, and modern technologies

✅ Web Development
– Professional websites and web-based systems
– Academic, business, and institutional applications

✅ IT Networking & Systems Support
– Network design, configuration, and troubleshooting
– Systems maintenance and optimization

✅ Technical Writing & Documentation
– System manuals, technical documentation
– Academic books, research papers, and IT training modules

Why Choose My Services?

✔ Very affordable and flexible rates
✔ Industry-tested and practical solutions
✔ Strong academic and professional background
✔ Ideal for students, educators, startups, and SMEs
✔ Clear communication and reliable delivery

📍 Bacolod City / Negros Occidental, Philippines
📱 Mobile: 0917-308-4360
📧 Email: jakerpomperada@yahoo.com | jakerpomperada@gmail.com
🌐 Website: http://www.jakerpomperada.com
📝 Blog: http://www.jakerpomperada.blogspot.com

Let’s turn your IT ideas into reliable, efficient, and affordable solutions.

---

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