Posted by : rynsuji.blogspot.com
Minggu, 09 November 2014
PROGRAM GANJIL GENAP DELPHI
Program ini di buat menggunakan Delphi 7. 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;
link nya gabisa di download ka
BalasHapus