Aplikasi Operasi Text

unit u_pert2_operasiText;

interface

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

type
TForm2 = class(TForm)
lbl1: TLabel;
lbl2: TLabel;
edt_input: TEdit;
mmo_1: TMemo;
btn_upper: TButton;
btn_lower: TButton;
grp1: TGroupBox;
rb_red: TRadioButton;
rb_green: TRadioButton;
rb_yellow: TRadioButton;
rb_purple: TRadioButton;
rb_blue: TRadioButton;
rb_black: TRadioButton;
cbb_backColor: TComboBox;
cbb_jnsFont: TComboBox;
cbb_ukrnFont: TComboBox;
cbb_StyleFont: TComboBox;
lbl3: TLabel;
lbl4: TLabel;
lbl5: TLabel;
lbl6: TLabel;
dlgColor1: TColorDialog;
btn_wrnform: TButton;
procedure FormCreate(Sender: TObject);
procedure btn_upperClick(Sender: TObject);
procedure btn_lowerClick(Sender: TObject);
procedure cbb_jnsFontChange(Sender: TObject);
procedure cbb_ukrnFontChange(Sender: TObject);
procedure cbb_backColorChange(Sender: TObject);
procedure rb_redClick(Sender: TObject);
procedure rb_greenClick(Sender: TObject);
procedure rb_yellowClick(Sender: TObject);
procedure rb_purpleClick(Sender: TObject);
procedure rb_blueClick(Sender: TObject);
procedure rb_blackClick(Sender: TObject);
procedure cbb_StyleFontChange(Sender: TObject);
procedure btn_wrnformClick(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.btn_lowerClick(Sender: TObject);
begin
mmo_1.Text:=LowerCase(edt_input.Text);
end;

procedure TForm2.btn_upperClick(Sender: TObject);
begin
mmo_1.Text:=UpperCase(edt_input.Text);
end;

procedure TForm2.btn_wrnformClick(Sender: TObject);
begin
if dlgColor1.Execute = True then
form2.Color:=dlgColor1.Color;
end;

procedure TForm2.cbb_backColorChange(Sender: TObject);
begin
if cbb_backColor.Text='Merah' then
mmo_1.Color:=clRed
else if cbb_backColor.Text='Biru' then
mmo_1.Color:=clBlue
else
mmo_1.Color:=clGreen;
end;

procedure TForm2.cbb_jnsFontChange(Sender: TObject);
begin
mmo_1.Font.Name:=cbb_jnsFont.Text;
end;

procedure TForm2.cbb_StyleFontChange(Sender: TObject);
begin
if cbb_StyleFont.Text='Bold' then
mmo_1.Font.Style:=mmo_1.Font.Style+[fsBold]
else if cbb_StyleFont.Text='Italic' then
mmo_1.Font.Style:=mmo_1.Font.Style+[fsItalic]
else if cbb_StyleFont.Text='Underline' then
mmo_1.Font.Style:=mmo_1.Font.Style+[fsUnderline]
else if cbb_StyleFont.Text='StrikeOut' then
mmo_1.Font.Style:=mmo_1.Font.Style+[fsStrikeOut]
else
mmo_1.Font.Style:=mmo_1.Font.Style-[fsBold,fsItalic,fsUnderline,fsStrikeOut];
end;

procedure TForm2.cbb_ukrnFontChange(Sender: TObject);
begin
mmo_1.Font.Size:=StrToInt(cbb_ukrnFont.Text);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
cbb_jnsFont.Items:=Screen.Fonts;
cbb_jnsFont.Text:='Pilih Font--->';
cbb_ukrnFont.Text:='Pilih Size--->';
cbb_backColor.Text:='Pilih Back Color--->';
cbb_StyleFont.Text:='Pilih Style Font--->';
end;

procedure TForm2.rb_blackClick(Sender: TObject);
begin
mmo_1.Font.Color:=clBlack;
end;

procedure TForm2.rb_blueClick(Sender: TObject);
begin
mmo_1.Font.Color:=clBlue;
end;

procedure TForm2.rb_greenClick(Sender: TObject);
begin
mmo_1.Font.Color:=clGreen;
end;

procedure TForm2.rb_purpleClick(Sender: TObject);
begin
mmo_1.Font.Color:=clPurple;
end;

procedure TForm2.rb_redClick(Sender: TObject);
begin
mmo_1.Font.Color:=clRed;
end;

procedure TForm2.rb_yellowClick(Sender: TObject);
begin
mmo_1.Font.Color:=clYellow;
end;

end.

Read More

Game Tangkap Semut

unit u_pert1_game;

interface

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

type
TForm1 = class(TForm)
img1: TImage;
img2: TImage;
img3: TImage;
img4: TImage;
img5: TImage;
lbl1: TLabel;
edt_score: TEdit;
btn_start: TButton;
btn_stop: TButton;
tmr1: TTimer;
procedure FormCreate(Sender: TObject);
procedure btn_startClick(Sender: TObject);
procedure btn_stopClick(Sender: TObject);
procedure img1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure img2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure img3MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure img4MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure img5MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure img1Click(Sender: TObject);
procedure img2Click(Sender: TObject);
procedure img3Click(Sender: TObject);
procedure img4Click(Sender: TObject);
procedure img5Click(Sender: TObject);
procedure edt_scoreChange(Sender: TObject);
procedure tmr1Timer(Sender: TObject);
private
{ Private declarations }
public
procedure aktif;
procedure nonaktif;
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.aktif;
begin
edt_score.Text:='0';
img1.Enabled:=True;
img2.Enabled:=True;
img3.Enabled:=True;
img4.Enabled:=True;
img5.Enabled:=True;
btn_stop.Enabled:=True;
img1.Visible:=True;
img2.Visible:=True;
img3.Visible:=True;
img4.Visible:=True;
img5.Visible:=True;
end;

procedure TForm1.nonaktif;
begin
img1.Enabled:=False;
img2.Enabled:=False;
img3.Enabled:=False;
img4.Enabled:=False;
img5.Enabled:=False;
edt_score.Enabled:=False;
btn_stop.Enabled:=False;
end;

procedure TForm1.tmr1Timer(Sender: TObject);
begin
nonaktif;
tmr1.Enabled:=False;
ShowMessage('Game Over');
end;

procedure TForm1.btn_startClick(Sender: TObject);
begin
aktif;
with tmr1 do
begin
Interval:=30000;
Enabled:=True;
end;
end;

procedure TForm1.btn_stopClick(Sender: TObject);
begin
Close;
end;

procedure TForm1.edt_scoreChange(Sender: TObject);
begin
if edt_score.Text='100' then
begin
tmr1.Enabled:=False;
nonaktif;
ShowMessage('Selamat Anda Menang');
edt_score.Text:='0';
end
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
edt_score.Text:='0';
nonaktif;
end;

procedure TForm1.img1Click(Sender: TObject);
begin
img1.Visible:=False;
edt_score.Text:=IntToStr(StrToInt(edt_score.Text)+20);
end;

procedure TForm1.img1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
img1.Left:=Random(Left);
img1.Top:=Random(Top);
end;

procedure TForm1.img2Click(Sender: TObject);
begin
img2.Visible:=False;
edt_score.Text:=IntToStr(StrToInt(edt_score.Text)+20);
end;

procedure TForm1.img2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
img2.Left:=Random(Left);
img2.Top:=Random(Top);
end;

procedure TForm1.img3Click(Sender: TObject);
begin
img3.Visible:=False;
edt_score.Text:=IntToStr(StrToInt(edt_score.Text)+20);
end;

procedure TForm1.img3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
img3.Left:=Random(Left);
img3.Top:=Random(Top);
end;

procedure TForm1.img4Click(Sender: TObject);
begin
img4.Visible:=False;
edt_score.Text:=IntToStr(StrToInt(edt_score.Text)+20);
end;

procedure TForm1.img4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
img4.Left:=Random(Left);
img4.Top:=Random(Top);
end;

procedure TForm1.img5Click(Sender: TObject);
begin
img5.Visible:=False;
edt_score.Text:=IntToStr(StrToInt(edt_score.Text)+20);
end;

procedure TForm1.img5MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
img5.Left:=Random(Left);
img5.Top:=Random(Top);
end;

end.

Read More