Rizq Technology – Exploring Your iDea.

Di Post sebelumnya kita sudah coba menggunakan Selection pada Delphi utk menentukan Hari , Let’s try utk Menentukan BULAN.

unit Unit2;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm2 = class(TForm)
Label1: TLabel;
nilai: TEdit;
Label2: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form2: TForm2;
implementation
{$R *.dfm}
procedure TForm2.Button1Click(Sender: TObject);
begin
if nilai.Text=’1?then
label2.Caption:=’January’
else if nilai.Text=’2?then
label2.Caption:=’February’
else if nilai.Text=’3?then
label2.Caption:=’March’
else if nilai.Text=’4?then
label2.Caption:=’April’
else if nilai.Text=’5?then
label2.Caption:=’May’
else if nilai.Text=’6?then
label2.Caption:=’Juny’
else if nilai.Text=’7?then
label2.Caption:=’July’
else if nilai.Text=’8?then
label2.Caption:=’August’
else if nilai.Text=’9?then
label2.Caption:=’September’
else if nilai.Text=’10?then
label2.Caption:=’October’
else if nilai.Text=’11?then
label2.Caption:=’November’
else if nilai.Text=’12?then
label2.Caption:=’December’
else label2.Caption:=’Inputan Anda Salah’;
end;
end.

SCREENSHOOT BELOW :

• Follow us on Twitter, or subscribe to the rizqtech RSS Feed for more daily web development and articles.

Enjoy this Post!