Konversi Detik

Long time no see guys 😀

Haduh modem kuota habis lemotnya minta ampun, jadi males posting deh 😛

Oke kali ini kita akan membuat program Konversi Detik, jadi logikanya kita memasukkan nilai detik lalu dikonversikan ke menjadi berapa Jam, berapaMenit, dan berapa Detik….

Program ini menggunakan fungsi Div dan  Mod atau sisa bagi dari suatu bilangan.

Langsung saja…

Komponen yang dibutuhkan adalah label, edit, dan button (kaya mau masak aja ya :D)

Praktiknya sbb :

1. Kita design form1 menjadi sedemikian rupa sesuai selera, misal :

2. Sebelumnya masukkan dulu variabel globalnya.

var
 Form1: TForm1;
 totaldetik,sisa,jam,menit,detik : integer;

3. Masukkan kode programnya ke button1 (KONVERSI)

procedure TForm1.Button1Click(Sender: TObject);
 begin
  totaldetik := strtoint(edit1.text);
  jam := totaldetik div 3600;
  sisa := totaldetik mod 3600;
  menit := sisa div 60;
  detik := sisa mod 60;
  edit2.text := inttostr(jam);
  edit3.text := inttostr(menit);
  edit4.text := inttostr(detik);
 end;

4. Pada button2 (CLEAR) kode programnya :

procedure TForm1.Button2Click(Sender: TObject);
 begin
  edit1.Text:='';
  edit2.Text:='';
  edit3.Text:='';
  edit1.SetFocus;
 end;

5. Pada button3 (KELUAR) kode programnya :

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

6. Untuk button4 (HADIAH) cuma tambahan, buat iseng aja 😀 , kode programnya sbb :

procedure TForm1.Button4Click(Sender: TObject);
 begin
  application.MessageBox('MAHOOOOOOO.....!!','FAKTA',mb_ok or
  mb_iconexclamation);
 end;

7. Jalankan program tsb dengan menekan F9

Sederhana memang, tapi hal yang paling kompleks dimulai dari hal yang paling sederhana 🙂

Semoga ada manfaat buat kita semua, saya off dulu, see you next time 😀

Luas Dan Keliling Lingkaran

Hello, masih bersama saya vebry, halah 😀

Daripada galau gak jelas, mendingan kita belajar delphi aja yuk, hohoho 😀

Kali ini kita akan belajar membuat fungsi menghitung luas dan keliling lingkaran. Hmm, kayanya seru nie, kalo gitu langsung aja ke pokok permasalahan 🙂

Komponen yang dibutuhkan adalah Button, Edit, Label (masih seperti posting sebelumnya), dan untuk variabelnya sbb :

var
 Form1: TForm1;
 r:integer;
 luas,keliling:real;

Oke langsung praktik aja 😀

1. Kita buat form sedemikian rupa, contoh :

2. Masukkan syntax-syntax berikut ini :

var
 Form1: TForm1;
 r:integer;
 luas,keliling:real;

Untuk Button Hitung :

procedure TForm1.Button1Click(Sender: TObject);
 begin
 r := strtoint(form1.edit1.Text);
 luas := pi * r * r;
 edit2.text := floattostr(luas);
 keliling := 2 * pi * r;
 edit3.text := floattostr(keliling);
end;

Untuk Button Clear :

procedure TForm1.Button2Click(Sender: TObject);
 begin
 edit1.Text:='';
 edit2.Text:='';
 edit3.Text:='';
 edit1.SetFocus;
 end;

Untuk Button Keluar :

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

3. Jalankan program tsb (Run) atau tekan F9 dan coba masukkan angka-angkanya.

Selamat, kita sudah berhasil membuat program menghitung luas dan keliling sebuah lingkaran 😀

Sampai bertemu di posting berikutnya, semangad! 😀

Tapi komennya ditunggu 😛

Membuat Kalkulator Sederhana

Halo semuanya, posting kedua ini 😀

Kali ini saya akan sedikit sharing tentang program sederhana di delphi 7,  walaupun saya sendiri juga belum begitu menguasai tapi ya sama-sama belajar saya gan :))

Mari kita membuat sebuah kalkulator sederhana menggunakan delphi 7. Perintah-perintahnya juga sederhana kok 🙂

Kayaknya udah terlalu lama saya curhat, bagaimana kalau langsung saja (*pembaca=lamaaa!!), hahaha . . .

Oke let’s get it started . . . 🙂

1. Pertama-tama buat Form kurang lebih seperti ini (menurut kreasi temen-temen). Komponen yang digunakan adalah Label, Edit, dan Button.

2. Ganti caption/ nama di setiap button agar lebih mudah digunakan nantinya. Untuk komponen Edit, kosongkan field name pada bagian property-nya (ada di sebelah kiri bawah layar). Sehingga tampilan kurang lebih seperti ini :

3. Pada double-click pada button dan masukkan syntax berikut ini :

Di atas implementation masukkan variable berikut ini :

Form1: TForm1;
 var bil1,bil2,jumlah,kurang,kali:integer;    //global variable
 bagi,persen:real   //real = bilangan bulat dan pecahan

Untuk Penjumlahan :

procedure TForm1.Button1Click(Sender: TObject);
 begin
 bil1:=strtoint(edit1.Text);    //strtoint (string to integer) = mengubah tipe data string menjadi integer
 bil2:=strtoint(edit2.Text);
 jumlah:=bil1+bil2;
 edit3.Text:=inttostr(jumlah);
 end;

Untuk Pengurangan :

procedure TForm1.Button2Click(Sender: TObject);
 begin
 bil1:=strtoint(edit1.Text);
 bil2:=strtoint(edit2.Text);
 kurang:=bil1-bil2;
 edit3.Text:=inttostr(kurang);
 end;

Untuk Perkalian :

procedure TForm1.Button3Click(Sender: TObject);
 begin
 bil1:=strtoint(edit1.Text);
 bil2:=strtoint(edit2.Text);
 kali:=bil1*bil2;
 edit3.Text:=inttostr(kali);
 end;

Untuk Pembagian :

procedure TForm1.Button4Click(Sender: TObject);
 begin
 bil1:=strtoint(edit1.Text);
 bil2:=strtoint(edit2.Text);
 bagi:=bil1/bil2;
 edit3.Text:=floattostr(bagi);
 end;

Untuk Persen :

procedure TForm1.Button6Click(Sender: TObject);
 begin
 bil1:=strtoint(edit1.Text);
 bil2:=strtoint(edit2.Text);
 persen:=(bil1/bil2)*100;
 edit3.Text:=floattostr(persen);
 end;

Untuk Clear :

procedure TForm1.Button5Click(Sender: TObject);
 begin
 edit1.Clear;
 edit2.Clear;
 edit3.Clear;
 edit1.SetFocus;  //berfungsi untuk mengembalikan cursor ke edit1
 end;

Klik tombol Run atau tekan F9 untuk menjalankan program tersebut.

Coba masukkan angka

Dan tekan tombol fungsi yang telah anda buat 🙂

Misal saya tekan fungsi Perkalian

Baiklah semoga posting ini ada manfaatnya dan jika ada atau banyak kesalahan di dalam posting ini saya minta maaf ya 😀

Sebelum ditutup mohon komentarnya, hehehe . . .