Jumat, 05 Desember 2014

Kalkulator sederhana menggunakan Delphi 7

Program-program dasar untuk melatih penggunaan operator penghitungan untuk program Borland Delphi 7. Program delphi ini adalah sebuah kalkulator sederhana yang berisi penjumlahan, pengurangan, perkalian, dan pembagian untuk dua bilangan.

Komponen-komponen yang dibutuhkan untuk pembuatan program :
  1. 2 buah Tlabel
  2. 3 buah Tedit
  3. 4 buah Tbutton
Komponen dapat disusun seperti gambar berikut :
Untuk script hanya di masukkan ke dalam Tbutton :
  1. Klik dua kali button + dengan nama default button1. Dan akan muncul jendela baru dan berikan command/script seperti berikut. 
  2. Dan berikut source code untuk button1 untuk penjumlahan :
    procedure TForm1.Button1Click(Sender: TObject); var x,y,z : real; begin x:=StrToFloat(Edit1.Text); y:=StrToFloat(Edit2.Text); z:=x+y; Edit3.Text:=FloatToStr(z); end;
    Keterangan variabel x,y,z di deklarasikan sebagai variabel non-global. Dan digolongkan ke dalam type data real.
  3. Klik dua kali button - dengan nama default button2. Dan akan muncul jendela baru dan berikan command/script seperti berikut. Dan berikut source code untuk button2 untuk pengurangan :
    procedure TForm1.Button2Click(Sender: TObject); var x,y,z : real; begin x:=StrToFloat(Edit1.Text); y:=StrToFloat(Edit2.Text); z:=x-y; Edit3.Text:=FloatToStr(z); end;
  4. Klik dua kali button * dengan nama default button3. Dan akan muncul jendela baru dan berikan command/script seperti berikut. Dan berikut source code untuk button3 untuk perkalian :
    procedure TForm1.Button3Click(Sender: TObject); var x,y,z : real; begin x:=StrToFloat(Edit1.Text); y:=StrToFloat(Edit2.Text); z:=x*y; Edit3.Text:=FloatToStr(z); end;
  5. Klik dua kali button / dengan nama default button4. Dan akan muncul jendela baru dan berikan command/script seperti berikut. Dan berikut source code untuk button4 untuk pembagian :
    procedure TForm1.Button4Click(Sender: TObject); var x,y,z : real; begin x:=StrToFloat(Edit1.Text); y:=StrToFloat(Edit2.Text); z:=x / y; Edit3.Text:=FloatToStr(z); end;
Setelah itu klik toolbar->Run->Run(F9) atau pencet shortcut F9 untuk melakukan proses running program.

PROGRAM BILING TIKET TOUR PARIWISATA

PROGRAM BILING TIKET TOUR PARIWISATA

Oke kawan kali ini saya akan postingkan sedikit hasil program yang saya buat dengan sederhana menggunakan Visual Delphi. Kesempatan ini saya membuat program tentang pembayaran tiket tour pariwisaa,- nah pertama kita perlu siapkan susu hagat,cemilan,dan musik yang kenceng hahaha :-).
nah kita lihat dulu tampilan form yang kita guakan..




nah, pertama siapkan beberapa pilihan dengan menggunakan radiobutton,-
kemudian sisipkan Edit1 - Edit8 secukupnya lah...
dan beberapa button untuk clear dan end untik mengakiri aplikasi dhelphi kita..

Nah.. langsung aja ke skripnya,-

sebelumnya kita deklarasikan beberapa variable yatu
jp : integer; //menyatakanJUMLAH PESERTA
bns: string; //menyatakan BONUS
jogja,bali,jakarta: string; //menyatakan TUJUAN
petama doble klik pada radiobutton dan masuk kedalam skrip program delphi

procedure TForm1.RadioButton1Click(Sender: TObject);
var jogja: string;
jp: integer;
begin
jp:=strtoint(edit1.Text);
if RadioButton1.checked= true then
  edit2.text:='jogja';
    edit3.Text:='100000';


sedikit penjelasan radio button disini saya bermaksud untuk memasukan data ke "TUJUAN","HARGA TIKET",dan "TOTAL BAYAR"
total bayar didapat dari "JUMLAH PESERTA" X "HARGA TIKET"
langsung saja + Skrip dibawahya edit3.text:='100000'

edit6.text:=floattostr(jp*100000);
end; 


dan hasilnya pun ika digabungkan menjadi spt berikut...

procedure TForm1.RadioButton1Click(Sender: TObject);
var jogja: string;
jp: integer;
begin
jp:=strtoint(edit1.Text);
if RadioButton1.checked= true then
  edit2.text:='jogja';
    edit3.Text:='100000';

edit6.text:=floattostr(jp*100000);
end; 
 


ingat julmlah peserta disini merupakan inputan sendiri...
kemudian masukan skrip yang sama tapi berbeda di harga dan tujuan pariwisata kita... 

caranya sama doble klik pada radiobuton2 masuk ke skripnya

procedure TForm1.RadioButton2Click(Sender: TObject);
var bali: string;
    jp:integer;
begin
jp:=strtoint(edit1.Text);
if RadioButton2.checked= true then
  edit2.text:='Bali';
    edit3.Text:='350000';
edit6.text:=floattostr(jp*350000);
end;


begitu juga dengan radiobutton3

procedure TForm1.RadioButton3Click(Sender: TObject);
var jakarta: string;
    jp:integer;
begin
jp:=strtoint(edit1.Text);
if RadioButton1.checked= true then
  edit2.text:='jakarta';
    edit3.Text:='250000';
edit6.text:=floattostr(jp*250000);
end;


kemudian kita tentukan untuk diterima atau ditolak, karena jika jumlah peserta pariwisata kurang dari 30 maka ditolak dan jika peserta pariwisata lebih dari 60 mendapatkan bonus dinner dan launch..
langsung ke skripnya yukk...
doble klick pada edit1"JULAH PESERTA"

procedure TForm1.Edit1Change(Sender: TObject);
var jp:real;
    k,bns:string;
begin
jp:=strtoint(edit1.Text);
begin
if jp<=30 then
  k:='tolak';
if jp>30 then
  k:='terima';
edit4.Text:=k;
      if jp<=60 then
      bns:='tidak melayani bonus';
      if jp>60 then
      bns:='mendapatkan bonus diner n launch';
      edit5.text:=bns;
end;
end;


setelah itu kita masuk ke button1"CLEAR"
isikan dari EDIT1-EDIT8

edit1.clear;

difungsikan unruk menghapus edit 1-8

Sekian dari saya sedikit ilmu dari saya,jika ada kekurangan saya minta ma'af dan koreksinya dari master2 karena saya juga masih newbe.. sampajumpa pada pertemuan selanjutnya...