Skip to main content

Belajar Membuat Program Sederhana menggunakan Delphi




Karna saya masih belajar jadi mohon dimaklumi jika ada kesalahan atau ada yang kurang pas.
Saya akan membuat Program sederhana operasi  kali, bagi, tambah dan kurang.

Tampilan form seperti dibawah ini, desain form nya dapat anda sesuaikan dengan selera.


 




 


 









Ubah bagian caption label1,2,3 dan komponen lainnya dengan nama yang sesuai dengan kebutuhan program dan hilangkan saja Text nya.
Untuk  untuk selanjutnya ada lah source code delphinya,,,



untuk button proses (Button 1) :

procedure TForm1.Button1Click(Sender: TObject);
var a,b, c   : real;
begin
a := strtofloat(edit1.Text);
b := strtofloat(edit2.Text);

if Radiobutton1.Checked then
 begin
   c := (a*b);
   edit3.Text:=floattostr(c);
 end
 else
 if Radiobutton2.Checked then
 begin
   c := (a/b);
   edit3.Text:=floattostr(c);
 end
 else
 if Radiobutton3.Checked then
 begin
   c := (a+b);
   edit3.Text:=floattostr(c);
 end
 else
 if Radiobutton4.Checked then
 begin
   c := (a-b);
   edit3.Text:=floattostr(c);
 end
 else
showmessage('pilih operator dahulu');

end;

untuk button keluar (Button 2 ) :

procedure TForm1.Button2Click(Sender: TObject);
begin
application.Terminate;
end;

untuk button reset (Button 3) :

procedure TForm1.Button3Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Radiobutton1.Checked:=false;
Radiobutton2.Checked:=false;
Radiobutton3.Checked:=false;
Radiobutton4.Checked:=false;
end;
end.



Hasil akhirnya seperti ini :












jika tidak mau pusing download langsung program jadinya ...


 download program Operasi Aritmatik disini. 

Semoga bermanfaat :)
 
Labels:

Comments

Post a Comment

Popular posts from this blog

Menentukan bilangan Genap dan Ganjil dengan Delphi

Menentukan bilangan  genap dan ganjil emhh langsung saja.. Dalam program ini kita membagi inputan bilangan menjadi 2 dengan perintah : if a mod 2 = 0 nah perintah mod  disini yaitu membagi bilangan. langsung desain form nya saja. Desain form : selanjutnya rubah properties :   setelah dirubah propertiesnya : nahh langsung aja kode program nya :) untuk button 1 (keluar) : procedure TForm1.Button1Click(Sender: TObject); begin close; end; untuk button 2 (proses) : procedure TForm1.Button2Click(Sender: TObject); var a : integer; begin a := strtoint(edit1.Text); if a mod 2 =0 then     begin       label4.Caption:= 'Bilangan Anda Genap';       end      else      label4.Caption:= 'Bilangan Anda Ganjil';   end; untuk button 3 (ulang) : procedure TForm1.Button3Click(Sender: TObject); begin edit1.clear; labe...
Post a Comment
Read more

Menampilkan Tanggal dan Waktu pada netbean

Selamat malam teman, malam ini saya akan memberikan bagaimana cara untuk menampilkan jam serta tanggal otomatis pada nnetbean : pertama kita buat sebuah jFrame  Form dengan 2 buah jLabel yaitu jLabel1 dan jLabel2. kemudian pada Source kita utak atik : kita import dahulu untuk jamnya :    kita tulis dibawah   :                                package form; import java.awt.event.ActionEvent; import java.awt.event.ActionListener;  import javax.swing.Timer;        Source utama : //untuk perintah penampilan tanggal public void setTanggal(){     java.util.Date skrg = new java.util.Date();     java.text.SimpleDateFormat kal = new     java.text.SimpleDateFormat("dd/MM/yyyy");     jLabel1.setT...
16 comments
Read more

JAVASCRIPT

1. Sejarah     JavaScript pertama kali diperkenalkan oleh Netscape, yaitu pada tahun 1995. Pada awalnya bahasa yang sekarang disebut JavaScript ini bernama " LiveScript" yang berfungsi sebagai bahasa sederhana untuk browser Netscape Navigator 2. Browser tersebut merupakan browser yang sangat populer pada saat itu. Kemudian sejalan dengan sedangkan gencarnya kerjasama antara Netscape dan sum  (pedngembang bahasa pemdrograman  "J ava" ) pada masa itu, maka pada tanggal 4 Desember 1995 Netscape memberikan nama kepada bahasa tersebut. Pada saat yang bersamaan, Microsoft sendiri mencoba untuk mengadaptasikan teknologi yang mereka sebut dengan " Jscript " di browser milik mereka yaitu internet Explorer 3. JavaScript sendiri merupakan modifikasi dari bahasa pemrograman C++ dengan pola penulisan yang lebih sederhana dari bahasa pemrograman C++ tersebut. 2. Pengertian      JavaScript adalah bahasa pemrograman yang khusus digunakan untuk halaman web a...
Post a Comment
Read more