1 / 17

Proses Berurutan

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)

meena
Download Presentation

Proses Berurutan

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. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Proses Berurutan Pemrograman Visual

  2. Proses Berurutan A. Tampilan Form

  3. B. Desain Properties

  4. C. Listing Program unit Operator; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

  5. 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}

  6. procedure TForm1.bselesaiClick(Sender: TObject); begin messagedlg('Menutup Form',mterror,[mbok],0); close; end;

  7. procedure TForm1.bmulaiClick(Sender: TObject); begin enil1.Text:=' '; enil2.Text:=' '; ekali.Text:=' '; ebagi.Text:=' '; etambah.Text:=' '; ekurang.Text:=' '; enil1.SetFocus; end;

  8. 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;

  9. 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;

  10. 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;

  11. 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.

  12. 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.

  13. 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.

  14. 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.

  15. 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.

More Related