PROGRAM GANJIL GENAP DELPHI

PROGRAM GANJIL GENAP DELPHI

10.03
ggd
Program ini adalah tentang mengcari bilangan ganjil atau genap, disini saya akan menerapkannya pada pemrograman delphi. Sebenarnya program ini sangat sederhana karena cara kerja dari program ini adalah kita hanya diminta untuk memasukan inputan bilangan awal dan bilangan akhir. Ketika kita klik button ganjiil maka akan keluar bilangan ganjil di listbox, ketika kita klik button genap maka akan muncul button genap di listbox. Program ini menggunakan label, edit, button, panel dan listbox. Didalam program ini kita bisa menginput data pada input bilangan awal dan input bilangan akhir, data yang kita input bisa di lihat hasilnya pada listbox, kalau kita ingin menghapus semua data maka pilih bersih dan exit adalah untuk keluar dari program. Berikut Source codenya :

unit Ganjil_genap;

interface

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

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Panel2: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    ListBox1: TListBox;
    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;
    a,b: integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var x:Integer;

begin
a := strtoint(edit1.Text);
b := strtoint(edit2.Text);
listbox1.Items.clear;

for x:=a to b do

begin

if x mod 2=1 then

listbox1.Items.add(IntToStr(x));

end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var y:Integer;

begin
a := strtoint(edit1.Text);
b := strtoint(edit2.Text);
listbox1.Items.clear;

for y:=a to b do

begin

if y mod 2=0 then

listbox1.Items.add(IntToStr(y));

end;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
listbox1.Items.clear
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  if(application.MessageBox('Yakin akan keluar dari program','Konfirmasi',MB_YesNo or MB_ICONQUESTION)=ID_Yes ) then
    begin
      close;
    end
end;



end.


Source Code juga bisa download DISINI