PRAKTIKUM VI PEMVIS

       I.            Deskripsi Program

Pada program ini menggunakan bahasa pemrograman visual embarcadero XE4. Pada program ini menggunakan main menu yang isinya 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.

       I.            Interface Program

 

       I.            Coding Program

Nama Komponen	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;

       I.            Output

-          Tampilan utama pada program pertama.