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

Library Management System Using OOP in PHP/MySQL and Bootstrap Framework

Why Use Bootstrap Framework?

What is BootStrap Framework?

Inventory System Using Laravel 12, MySQL and Bootstrap

My 8th Citation in Google Scholar

What is Data Management?

Inventory System with Report Printing Using OOP in PHP and MySQL

Inventory System Using OOP in PHP and MySQL

Uses of a Gantt Chart

What is a Gantt Chart?

Login and Registration with Picture Using OOP in PHP and MySQL

What is SAP Hybris?

My 7th Citation in Google Scholar

How To Upload Files Using Git in Respository in Github?

How To Create a Repository in Github?

Example of Survey Questionnaire in Research

CRUD Using OOP in PHP and MySQL

Login and Registration Using OOP in PHP and MySQL

Laravel 11 and MySQL CRUD Application

Fahrenheit To Celsius in Microsoft Visual Basic NET

Fahrenheit To Celsius in Microsoft Visual Basic NET

 

Program Listing

Public Class Form1

    Private Sub btnConvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvert.Click

        Dim fahrenheit As Double

        Dim celsius As Double

        ' Validate input

        If Double.TryParse(txtFahrenheit.Text, fahrenheit) Then

            celsius = (fahrenheit - 32) * 5 / 9

            lblResult.Text = "Celsius: " & Math.Round(celsius, 2).ToString()

        Else

            MessageBox.Show("Please enter a valid number.", "Input Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End If

    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click

        lblResult.Text = ""

        txtFahrenheit.Clear()

        txtFahrenheit.Focus()

    End Sub

    Private Sub btnQuit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnQuit.Click

        Dim result As DialogResult

        result = MessageBox.Show("Do you want to quit?", "Exit Confirmation", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

        lblResult.Text = ""

        txtFahrenheit.Clear()

        txtFahrenheit.Focus()

        If result = DialogResult.Yes Then

            Me.Close() ' Closes the current form

        End If

    End Sub

End Class

Address Book in Laravel 11 and MySQL

Average Score Using OOP in C++

Importance of IT Audits

Types of IT Audits

Objectives of an IT Audit

What is IT Audit?

Okay daw ang ayuda NG government sa mga Filipino ayon sa isang survey

Importance of Capstone Paper

What is a Serial Entrepreneur?

What is Microsoft Corporation?

What is Data Integrity in Database?

What is Data Analysis?

Hello World in Laravel

How To Run Laravel Application?

What is Tailwind CSS?

Advantages of Using Oracle Database

What is Digital Currency?

Disadanvantages of Data Science

How To Include JavaScript in HTML File?

How To Create an HTML file?

What is Application Software?

What is a Dataset?

What is Julia Programming Language?

Benefits of Having a Vacation