sekilas VB

Posted: Maret 22, 2012 in Uncategorized

LISTING PROGRAM

unit Unit2;

interface

uses

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

  Dialogs, StdCtrls;

type

  TForm2 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Edit1: TEdit;

    Edit2: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Label3: TLabel;

    Label4: TLabel;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form2: TForm2;

implementation

 

{$R *.dfm}

 

procedure TForm2.Button1Click(Sender: TObject);

var a,b:integer;

begin

a:=strtoint (Edit1.Text);

b:=strtoint (Edit2.Text);

label4.caption := inttostr(a+b);

end;

procedure TForm2.Button2Click(Sender: TObject);

var a,b:integer;

begin

a:=strtoint (Edit1.Text);

b:=strtoint (Edit2.Text);

label4.caption := inttostr(a-b);

end;

procedure TForm2.Button3Click(Sender: TObject);

var a,b:integer;

begin

a:=strtoint (Edit1.Text);

b:=strtoint (Edit2.Text);

label4.caption := inttostr(a*b);

end;

 

procedure TForm2.Button4Click(Sender: TObject);

var a,b:real;

begin

a:=strtofloat (Edit1.Text);

b:=strtofloat (Edit2.Text);

label4.caption := floattostr(a/b);

end;

end.

LOGIKA PROGRAM

Source code diatas adalah program kalkulator sederhana, pada bagian type di deklarasikan terlebih dahulu menu apa saja yang akan dipakai, pada program kali ini di gunakan label, edit dan 4 buah button yang nantinya akan di proses untuk melakukan operasi matematika.

Untuk melakukan operasi penjumlahannya maka pada double click button pertama yang telah dibuat di form dan captionnya di ubah dengan tanda + kemudian pada bagian                                           procedure TForm2.Button1Click(Sender: TObject); dimana ini untuk menentukan proses apa yang akan dilakukan bila kita meng klik button 1 saat running program. Deklarasikan 2 variabel untuk nilai dari 2 bilangan yang akan di jumlahkan dengan menuliskan var a,b:integer;  ini berarti 2 bilangan yang akan dijumlahkan berupa bilangan bulat

Nilai dari a dan b dapat diinputkan dari menu edit 1 dan edit2, karena pada menu edit tipe data yang diinputkan berupa string, sedangkan data yang ingin dimasukan adalah bilangan bulat, maka harus diubah terlebih dahulu niai stringnya, maka dituliskan :

begin

a:=strtoint (Edit1.Text);

b:=strtoint (Edit2.Text);

dimana perintah strtoint adalah perintah yang dapat merubah nilai string menjadi bilangan bulat. Kemudian setelah mendeklarasikan inputan untuk nilai 1 dan 2 nya maka tuliskan proses apa yang akan dilakukan pada button1 (penjumlahan) dan dimana hasil dari proses itu akan muncul, untuk itu dituliskan : label4.caption := inttostr(a+b);

end;

 ini berarti hasil dari prosesnya, yaitu nilai 1(a) dijumlahkan dengan nilai2(b) akan tampak pada label 4, karena label juga hanya dapat menangkap nilai string maka nilai int nya dikembalikan jadi string.

Begitu seterusnya untuk  button2 untuk operasi pengurangan, button3 untuk operasi perkalian, dan button4 untuk operasi pembagian, hanya saja pada operasi pembagian  tipe data yang digunakan adalah real, karena kemungkinan terjadinya bilangan pecahan saat membagi 2 nilai yang diinputkan.

OUTPUT PROGRAM

Untuk operasi penjumlahan :

 

Untuk operasi pengurangan :

 

Untuk operasi perkalian :

 

Untuk operasi pembagian :

 
   

 

 

 

 

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s