Proses berurutan
Download
1 / 17

Proses Berurutan - PowerPoint PPT Presentation


  • 56 Views
  • Uploaded on

Proses Berurutan. Pemrograman Visual. Proses Berurutan A. Tampilan Form. B. Desain Properties. C. Listing Program unit Operator; interface uses Windows, Messages, SysUtils , Variants, Classes, Graphics, Controls , Forms, Dialogs, StdCtrls ;. type TForm1 = class(TForm)

loader
I am the owner, or an agent authorized to act on behalf of the owner, of the copyrighted work described.
capcha
Download Presentation

PowerPoint Slideshow about 'Proses Berurutan' - meena


An Image/Link below is provided (as is) to download presentation

Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author.While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server.


- - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript
Proses berurutan

Proses Berurutan

Pemrograman Visual


Proses Berurutan

A. Tampilan Form



C. Listing Program

unit Operator;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;


type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

enil1: TEdit;

enil2: TEdit;

Label4: TLabel;

bkali: TButton;

bbagi: TButton;

btambah: TButton;

bkurang: TButton;

ekali: TEdit;

ebagi: TEdit;

etambah: TEdit;

ekurang: TEdit;

bmulai: TButton;

bselesai: TButton;

procedure bselesaiClick(Sender: TObject);

procedure bmulaiClick(Sender: TObject);

procedure btambahClick(Sender: TObject);

procedure bkurangClick(Sender: TObject);

procedure bkaliClick(Sender: TObject);

procedure bbagiClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.bselesaiClick(Sender: TObject);

begin

messagedlg('Menutup Form',mterror,[mbok],0);

close;

end;


procedure TForm1.bmulaiClick(Sender: TObject);

begin

enil1.Text:=' ';

enil2.Text:=' ';

ekali.Text:=' ';

ebagi.Text:=' ';

etambah.Text:=' ';

ekurang.Text:=' ';

enil1.SetFocus;

end;


procedure TForm1.btambahClick(Sender: TObject);

var nil1, nil2, tambah : real;

begin

nil1:=strtofloat(enil1.Text);

nil2:=strtofloat(enil2.Text);

tambah:=nil1+nil2;

etambah.Text:=floattostr(tambah);

end;


procedure TForm1.bkurangClick(Sender: TObject);

var nil1,nil2,kurang : real;

begin

nil1:=strtofloat(enil1.Text);

nil2:=strtofloat(enil2.Text);

kurang:=nil1-nil2;

ekurang.Text:=floattostr(kurang);

end;


procedure TForm1.bkaliClick(Sender: TObject);

var nil1,nil2,kali : real;

begin

nil1:=strtofloat(enil1.Text);

nil2:=strtofloat(enil2.Text);

kali:=nil1*nil2;

ekali.Text:=floattostr(kali);

end;


procedure TForm1.bbagiClick(Sender: TObject);

var nil1,nil2,bagi : real;

begin

nil1:=strtofloat(enil1.Text);

nil2:=strtofloat(enil2.Text);

bagi:=nil1/nil2;

ebagi.Text:=floattostr(bagi);

end;

end.


D. AnalisaPerintah

Dalambahasapemrograman Delphi semua data yang diinputmelalui Edit Box dideklarasikandengantipe data string. Sehinggaketikakitaakanmelakukan proses perkalianataupengurangan , kitatidak bias mengalikansecaralangsung Edit box yang dimaksudtetapikitaperlumerubahmenjadinilaidengantipe data yang dapatdikalikan.

Vardigunakanuntukmendeklarasikansuatunama variable yang dibuatoleh programmer yang berfungsiuntukmenyimpannilaiatau data selama proses program berjalan.

Nil1, nil2, kali, bagi, tambahdankurangadalahnamavariabelbaru yang diciptakanoleh programmer.


Real adalahnamadarisekianbanyaktipe data yang dikenaldalambahasapemrograman Delphi. Cakupantipe data real adalahmembacabilanganangkadalambentukdesimal.

Strtofloatmerupakanfungsi yang digunakanuntukmerubahnilaidaritipe data string menjaditipe data numeric.

Floattostrmerupakanfungsi yang digunakanuntukmerubahnilaipecahanmenjadi data string.

Messagedlgmerupakanpenggalan program yang digunakanuntukmenampilkankotakpesan.


E. MenyimpanProgram

Untukmenyimpan program yang telahdibuat, dapatdilakukandengancarasebagaiberikut:

  • File – Save (digunakanuntukmenyimpankodepascal yang dibuatdenganextention *.pas)

  • File – Save Project As (digunakanuntukmenyimpan project file. Sebagai project file, file inibergunauntukmenggabungkansatuataulebih file-file source (*.pas)

    Catatan:

    Tentukanlokasipenyimpanan.

    Nama project tidakbolehsamadengannamaunit dantidakbolehmenggunakanspasi.


F. MenjalankanProgram

Setelahprogram selesaidibuatdandisimpan, Andadapatmenjalankan program denganmenekantombolF9atauklikicon RUNataudapatjugamemilih RUN padamenu RUN.

G. Keluardari Borland Delphi

Untukkeluardari Borland Delphi, dapatmemilih Menu FiledankemudianExit, tetapijikainginmembuat file dan project baru, makapilihclose all.


ad