Membuat Kalkulator Lengkap part1 Di Delphi 7

Membuat Kalkulator Lengkap Di Delphi 7
Bismillahirrahmanirrahim
Komponen-komponen yang dibutuhkan untuk pembuatan program kalkulator di delphi:
  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.
  2. 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;
  3. 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;
  4. 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.
Untuk Membuat Program trigonometri didelphi hal yang harus diperhatikan:
untuk Kuadrat
Procedure TFormUner.ButtonKuadratClick(Sender: TObject);
var
 x,k:real;
Begin
 x:=StrToFloat(EditX.Text);
 k:=x*x;
 EditHasil.Text:=FloatToStr(k);
End;
Untuk Trigonometri Sin 
Procedure TFormUner.ButtonSinClick(Sender: TObject);
var
 x,s:real;
Begin
 x:=StrToFloat(EditX.Text);
 s:=sin(x*3.14/180);
 EditHasil.Text:=FloatToStr(round(sin(x*3.14/180)*100)/100);
End;
 Untuk trigonometri cos
Procedure TFormUner.ButtonCosClick(Sender: TObject);
var
 x,c:real;
Begin
 x:=StrToFloat(EditX.Text);
 c:=cos(x*3.14/180);
 EditHasil.Text:=FloatToStr(round(cos(x*3.14/180)*100)/100);
End;
Untuk Trigonometri Tangen
Procedure TFormUner.ButtonTanClick(Sender: TObject);
var
 x,t:real;
Begin
 x:=StrToFloat(EditX.Text);
 t:=(sin(x*3.14/180))/cos(x*3.14/180));
 EditHasil.Text:=FloatToStr(round(((sin(x*3.14/180))/(cos(x*3.14/180)))*100)/100);
End;
Untuk Trigonometri Cosec (e)
Procedure TFormUner.ButtonCosecClick(Sender: TObject);
var
 x,e:real;
Begin
 x:=StrToFloat(EditX.Text);
 e:=1/(s:=sin(x*3.14/180));
 EditHasil.Text:=FloatToStr(round((1/(s:=sin(x*3.14/180)))*100)/100);
End;
Untuk Trigonometri Sec (b)
Procedure TFormUner.ButtonSecClick(Sender: TObject);
var
 x,b:real;
Begin
 x:=StrToFloat(EditX.Text);
 b:=1/(c:=cos(x*3.14/180));
 EditHasil.Text:=FloatToStr(round((1/(c:=cos(x*3.14/180)))*100)/100);
End;
Untuk Trigonometri Cotan (d)
Procedure TFormUner.ButtonTanClick(Sender: TObject);
var
 x,d:real;
Begin
 x:=StrToFloat(EditX.Text);
 d:=1/(((sin(x*3.14/180))/cos(x*3.14/180));
 EditHasil.Text:=FloatToStr(round((1/((sin(x*3.14/180))/(cos(x*3.14/180))))*100)/100);
End;
Untuk  Akar
Procedure TFormUner.ButtonAkarClick(Sender: TObject);
var
 x,a:real;
Begin
 x:=StrToFloat(EditX.Text);
 a:=Sqrt(x);
 EditHasil.Text:=FloatToStr(a);
End;
Untuk Persen :
procedure TFormUner.ButtonPersenClick(Sender: TObject);
var
 x,y,p : real;
begin
x:=strtoint(edit1.Text);
y:=strtoint(edit2.Text);
p:=(x/y)*100;
edit3.Text:=floattostr(p);
end;
Untuk Lon 
Procedure TFormUner.ButtonLonClick(Sender: TObject);
var
 x,n:real;
Begin
 x:=StrToFloat(EditX.Text);
 n:=ln(x);
 EditHasil.Text:=FloatToStr(n);
End;
 Untuk Logaritma
Procedure TFormUner.ButtonLogClick(Sender: TObject);
var
 x,g:real;
Begin
 x:=StrToFloat(EditX.Text);
 g:=ln(x)/ln(10);
 EditHasil.Text:=FloatToStr(g);
End;
Untuk Hapus
Procedure TFormUner.ButtonHapusClick(Sender: TObject);
Begin
  EditX.Text:=' ';
  EditHasil.Text:=' ';
End;
 Untuk Selesai
Procedure TFormUner.ButtonSelesaiClick(Sender: TObject);
Begin
  Application.Terminate;
End;
End.

Komentar

Posting Komentar

Postingan populer dari blog ini

Interrupt driven I/O

Teknik interrupt – driven I/O memungkinkan proses tidak membuang – buang waktu. Prosesnya adalah CPU mengeluarkan perintah I/O pada modul I/O, bersamaan perintah I/O dijalankan modul I/O maka CPU akan melakukan eksekusi perintah – perintah lainnya. Apabila modul I/O telah selesai menjalankan instruksi yang diberikan padanya akan melakukan interupsi pada CPU bahwa tugasnya telah selesai.  Dalam teknik ini kendali perintah masih menjadi tanggung jawab CPU, baik  pengambilan perintah dari memori maupun pelaksanaan isi perintah tersebut. Terdapat selangkah kemajuan dari teknik sebelumnya, yaitu CPU melakukan multitasking beberapa perintah sekaligus sehingga tidak ada waktu tunggu bagi CPU.  Cara kerja teknik interupsi di sisi modul I/O adalah modul I/O menerima perintah, missal read . Kemudian modul I/O melaksanakan perintah pembacaan dari peripheral dan meletakkan paket data ke register data modul I/O, selanjutnya modul mengeluarkan sinyal interupsi ke CPU melalui salura
Baca selengkapnya

List Linier (Linked list) Dan Variasinya_Struktur Data

Struktur Data List Linear: Struktur data adalah cara menyimpan atau merepresentasikan data didalam komputer agar bisa dipakai secara efisien. Sedangkan data adalah representasi dari fakta dunia nyata. Fakta atau keterangan tentang kenyataan yang disimpan, direkam atau direpresentasikan dalam bentuk tulisan, suara, gambar, sinyal atau simbol. List linier adalah sekumpulan elemen bertipe sama yang mempunyai keturutan tertentu, dan setiap elemen nya terdiri dari dua bagian, yaitu informasi mengenai elemen nya dan informasi mengenai alamat elemen suksesornya. Penggunaan List dalam Kehidupan Sehari - hari Misalnya: • Urutan angka pada keyboard komputer • Urutan lagu pada playlist Mp3 player • Dll Linked List ( LL ) Adalah koleksi data item yang tersusun dalam sebuah barisan  secara linear, dengan penyisipan dan pemindahan dapat dilakukan dalam semua tempat di LL tersebut. Single Linked List Adalah sebuah LL yang menggunakan sebuah variabel pointer saja untuk menyimpan bany
Baca selengkapnya

Menghitung Jarak Jatuh Peluru (C++)

Gambar
Tutorial C++ kali ini adalah menghitung jarak jatuh peluru yang ditembakkan dari suatu lokasi. Mungkin kalian sudah pernah mendengar hal sejenis ini dalam pelajaran Fisika. Peluru yang ditembakkan pada sudut tertentu mempunyai gerak parabola. Jadi kita akan mendapatkan jarak dari titik lempar ke titik jatuh. Jarak inilah yang akan sekarang kita hitung menggunakan bahasa pemrograman C++. Apabila kalian menemukan soal, Carilah jarak jatuh peluru yang ditembakkan pada suatu lokasi dengan sudut penembakan (α) dan kecepatan (Vo). Maka kita mendiskusikannya disini. Untuk mencari jarak, kita membutuhkan beberapa variabel diantaranya: sudut, kecepatan, rad, dan jarak. Selain itu, kita juga membutuhkan PHI dan GRAVITASI. Dengan mempelajari ini, kita juga akan mengetahui fungsi matematika baru, yaitu cos(), sin(), dan pow(). Fungi pow() digunakan untuk mencari nilai XY. Penggunaan fungsi pow() sebagai berikut: pow(sisi, 3) artinya, sisi x sisi x sisi. Sisi adalah variabel, diikuti dengan
Baca selengkapnya