Proses Berurutan

1
Proses Berurutan

• Pemrograman Visual

2

• Proses Berurutan
• A. Tampilan Form

3

• B. Desain Properties

Object Name Caption
Form1 Form1 Dasar Operator Delphi
Label1 Label1 Program Pengenalan Dasar Operator Delphi
Label2 Label2 Nilai Praktek I
Label3 Label3 Nilai Praktek II
Label4 Label4 Nilai Perhitungan
4
Object Name Text
Edit1 Enil1  
Edit2 Enil2  
Edit3 Ekali  
Edit4 Ebagi  
Edit5 Etambah  
Edit6 Ekurang  
5
Object Name Caption
Button1 Bkali Kali
Button2 Bbagi Bagi
Button3 Btambah Tambah
Button4 Bkurang Kurang
Button5 Bmulai Mulai
Button6 Bselesai Selesai
6

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

7

• 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

8

• procedure TForm1.bselesaiClick(Sender TObject)
• begin
• messagedlg('Menutup Form',mterror,mbok,0)
• close
• end

9

• procedure TForm1.bmulaiClick(Sender TObject)
• begin
• enil1.Text' '
• enil2.Text' '
• ekali.Text' '
• ebagi.Text' '
• etambah.Text' '
• ekurang.Text' '
• enil1.SetFocus
• end

10

• procedure TForm1.btambahClick(Sender TObject)
• var nil1, nil2, tambah real
• begin
• nil1strtofloat(enil1.Text)
• nil2strtofloat(enil2.Text)
• tambahnil1nil2
• etambah.Textfloattostr(tambah)
• end

11

• procedure TForm1.bkurangClick(Sender TObject)
• var nil1,nil2,kurang real
• begin
• nil1strtofloat(enil1.Text)
• nil2strtofloat(enil2.Text)
• kurangnil1-nil2
• ekurang.Textfloattostr(kurang)
• end

12

• procedure TForm1.bkaliClick(Sender TObject)
• var nil1,nil2,kali real
• begin
• nil1strtofloat(enil1.Text)
• nil2strtofloat(enil2.Text)
• kalinil1nil2
• ekali.Textfloattostr(kali)
• end

13

• procedure TForm1.bbagiClick(Sender TObject)
• var nil1,nil2,bagi real
• begin
• nil1strtofloat(enil1.Text)
• nil2strtofloat(enil2.Text)
• baginil1/nil2
• ebagi.Textfloattostr(bagi)
• end
•  
• end.

14

• D. Analisa Perintah
• Dalam bahasa pemrograman Delphi semua data yang
  diinput melalui Edit Box dideklarasikan dengan
  tipe data string. Sehingga ketika kita akan
  melakukan proses perkalian atau pengurangan ,
  kita tidak bias mengalikan secara langsung Edit
  box yang dimaksud tetapi kita perlu merubah
  menjadi nilai dengan tipe data yang dapat
  dikalikan.
•  
• Var digunakan untuk mendeklarasikan suatu nama
  variable yang dibuat oleh programmer yang
  berfungsi untuk menyimpan nilai atau data selama
  proses program berjalan.
•  
• Nil1, nil2, kali, bagi, tambah dan kurang adalah
  nama variabel baru yang diciptakan oleh
  programmer.

15

• Real adalah nama dari sekian banyak tipe data
  yang dikenal dalam bahasa pemrograman Delphi.
  Cakupan tipe data real adalah membaca bilangan
  angka dalam bentuk desimal.
•  
• Strtofloat merupakan fungsi yang digunakan untuk
  merubah nilai dari tipe data string menjadi tipe
  data numeric.
•  
• Floattostr merupakan fungsi yang digunakan untuk
  merubah nilai pecahan menjadi data string.
•  
• Messagedlg merupakan penggalan program yang
  digunakan untuk menampilkan kotak pesan.

16

• E. Menyimpan Program
• Untuk menyimpan program yang telah dibuat, dapat
  dilakukan dengan cara sebagai berikut
• File Save (digunakan untuk menyimpan kode
  pascal yang dibuat dengan extention .pas)
• File Save Project As (digunakan untuk menyimpan
  project file. Sebagai project file, file ini
  berguna untuk menggabungkan satu atau lebih
  file-file source (.pas)
•  
• Catatan
• Tentukan lokasi penyimpanan.
• Nama project tidak boleh sama dengan nama unit
  dan tidak boleh menggunakan spasi.

17

• F. Menjalankan Program
• Setelah program selesai dibuat dan disimpan, Anda
  dapat menjalankan program dengan menekan tombol
  F9 atau klik icon RUN atau dapat juga memilih RUN
  pada menu RUN.
• G. Keluar dari Borland Delphi
• Untuk keluar dari Borland Delphi, dapat memilih
  Menu File dan kemudian Exit, tetapi jika ingin
  membuat file dan project baru, maka pilih close
  all.