Delphi ile sayaç yapımı kodu

Delphide YApılmış Örenek Bir Sayaç Kodu

Bu örnekte, sayaç değerini görüntülemek için TMainFormüç düğmeli ( IncrementButton, DecrementButton, ve ResetButton) bir formumuz ( ) ve bir etiketimiz ( ) var.CounterLabel

Sayaç değişkeni ( Counter), form sınıfının özel bir üyesi olarak bildirilir. Olay Increment Button Clickişleyici, sayacı bir artırır ve etiket başlığını buna göre günceller. Olay Decrement Button Click işleyici, sayacı bir azaltır ve Reset Button Click olay işleyici, sayacı sıfıra ayarlar.

.Delphi

unit MainForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes,
  Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TMainForm = class(TForm)
    CounterLabel: TLabel;
    IncrementButton: TButton;
    DecrementButton: TButton;
    ResetButton: TButton;
    procedure IncrementButtonClick(Sender: TObject);
    procedure DecrementButtonClick(Sender: TObject);
    procedure ResetButtonClick(Sender: TObject);
  private
    Counter: Integer;
  public
    { Public declarations }
  end;

var
  MainForm: TMainForm;

implementation

{$R *.dfm}

procedure TMainForm.IncrementButtonClick(Sender: TObject);
begin
  Inc(Counter);
  CounterLabel.Caption := IntToStr(Counter);
end;

procedure TMainForm.DecrementButtonClick(Sender: TObject);
begin
  Dec(Counter);
  CounterLabel.Caption := IntToStr(Counter);
end;

procedure TMainForm.ResetButtonClick(Sender: TObject);
begin
  Counter := 0;
  CounterLabel.Caption := IntToStr(Counter);
end;

end.

Bu kodu Delphi'de oluşturmak için şu adımları takip edebilirsiniz:

Yeni bir Delphi VCL Form Uygulaması projesi oluşturun.

Gerekli bileşenleri (etiketler, düğmeler vb.) Delphi IDE'nin form tasarımcısındaki forma bırakın.

Click olay işleyicilerini oluşturmak için her düğmeyi çift tıklayın.

Yukarıdaki kodu kopyalayıp ana form biriminin ( ) uygulama bölümüne yapıştırın MainForm.pas.

Uygulamayı derleyin ve çalıştırın.

Uygulamayı çalıştırdığınızda, ilgili düğmelere tıklayarak sayacı artırabilecek, azaltabilecek ve sıfırlayabileceksiniz ve sayaç değeri formdaki etikette görüntülenecektir.

Kafanıza takılan yerler için yorumlar kısmından bana ulaşabilir ve sorularınızı sorabilirsiniz ve iletişim için burdan iletişim sayfasından iletişime geçebilirsiniz.