Skip to main content

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;
label4.Caption:='Hasil';
end;

nahh itu td programnya kalo anda ingin yg udah jadi download disini ....


Labels:

Comments

Post a Comment

Popular posts from this blog

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