I.
TujuanPraktikum
Tujuan dari praktikum kali ini adalah untuk mengetahui kegunaan komponen-komponen yang
terdapat pada
tab Addisional serta dapat memahami kegunaan-kegunaan dari komponen tersebut.
II.
Deskripsi
Program
Pada program ini menggunakan bahasa pemrograman visual
embarcadero XE4.Pada program ini menggunakan
main menu yang isi nya terdapat file, edit dan
option. Yang mana memiliki fungsinya masing-masing. Yaitu ada new (ctrl+n), save
(ctrl+s), exit. Selain itu ada juga di menu edit
terdapat funsi copy , cut dan paste.
Terakhir di menu option terdapat fungsi
font-color, font-size dan font-type.
III.
Interface
Program
 |
IV.
Coding
Program
NamaKomponen
|
Event
|
Perintah
|
New
ctrl+n
|
On Click
|
procedureTForm55.NewCtrlN1Click(Sender:
TObject);
begin
memo1.clear;
end;
|
Save
ctrl+s
|
On Click
|
procedureTForm55.SaveCtrlS1Click(Sender:
TObject);
begin
if savedialog1.Execute = true then
memo1.Lines.SaveToFile(savedialog1.FileName);
end;
|
Exit
|
On Click
|
procedure
TForm55.ExitCtrlX1Click(Sender: TObject);
begin
application.Terminate;
end;
|
Copy
ctrl+c
|
On Click / keyboard
|
procedure
TForm55.CopyCtrlc1Click(Sender: TObject);
begin
memo1.CopyToClipboard;
end;
|
Cut
ctrl+x
|
On Click/ keyboard
|
procedure
TForm55.CutCtrlX1Click(Sender: TObject);
begin
memo1.CutToClipboard;
end;
|
Paste
ctrl+v
|
On Click / keyboard
|
procedure
TForm55.PasteCtrlV1Click(Sender: TObject);
begin
memo1.PasteFromClipboard;
end;
|
Font
– size
|
On Click
|
procedure TForm55.Font1Click(Sender:
TObject);
begin
if fontdialog1.Execute = true then
memo1.Font := fontdialog1.Font;
end;
|
Font
– type
|
On Click
|
procedure TForm55.Font1Click(Sender:
TObject);
begin
if fontdialog1.Execute = true then
memo1.Font := fontdialog1.Font;
end;
|
Font
– color
|
On Click
|
procedure
TForm55.FontColor1Click(Sender: TObject);
begin
if colordialog1.Execute = true then
memo1.Color := colordialog1.Color;
end;
|
V.
Output
-
Tampilanutamapada
program pertama.
-
Tampilanfungsi copy
ctrl+c
-
Tampilanfungsi cut
ctrl+x
-
Tampilan paste ctrl+v
-
Tampilan font – size
-
Maka akan muncul dialog font
-
Tampilan font - type
-
Maka akan muncul font dialog
-
Tampilan font - color
-
Maka akan tampil color dialog
-
Tampilanpada save
ctrl+s
-
Maka akan muncul save dialog
-
Tampilan pada new ctrl + n
-
Maka tampilan akan seperti ini.
-
Jika ingin mengakhiri program maka klik fungsi exit
Tidak ada komentar:
Posting Komentar