30 June 2011

Effand Nozh

Konversi Suhu, Bilangan Ganjil, Luas Tabung Dan Grade


Pada Kesempatan Kali ini saya akan membagikan tutorial yang menjadi tugas kuliah saya dulu .. .
Mungkin saja temen-temen yang baru belajar Delphi bias membuat juga atau mengedit ini sebagai bahan belajar atau tugas kuliah . . .
Program ini terdiri dari beberapa program :
1.       Program Hitung bilangan Ganjil
2.       Hitung Luas Tabung
3.       Masa Aktif Kerja Berdasarkan UMUR
4.       Konversi Suhu
5.       Grade Nilai
Langsung saja anda siapkan kopi dan camilan heeee
Buat project baru lalu tambahkan alat-alatnya dan bentuk seperti form dibawah in :
 


Jika anda telah membuat form anda seperti diatas kalau sudah saat nya beraksi meng copy
Listing Program dibawah ini :
*Bilangan Ganjil
Klik 2X di button Enter Anda
Lalu copy source dibawah ini
procedure TForm1.Button1Click(Sender: TObject);
var
i,n:Integer;
begin
n:=StrToInt(ebil.Text);
  begin
  Memo1.Clear;
  for i:=1 to n do
    if i mod 2 <> 0 then
      Memo1.Lines.Add(IntToStr(i));
  end;
end;


Selanjutnya
*Luas Tabung
Sourcenya
procedure TForm1.Button2Click(Sender: TObject);
var
jari,tinggi:Integer;
luas:Real;
begin
  jari:=StrToInt(ejari.Text);
  tinggi:=StrToInt(etinggi.Text);

  luas:=3.14*jari*jari*tinggi;
  eluas.Text:=FloatToStr(luas);
end;

*Masa Kerja
Sourcenya
procedure TForm1.Button3Click(Sender: TObject);
var
umur:Integer;
hasil:String;
begin
umur:=StrToInt(eumur.Text);
if umur >= 48 then
  begin
    hasil:='Pensiun';
    Memo2.Lines.Add(hasil);
  end
else
  hasil:='Belum Pensiun';
  Memo2.Lines.Add(hasil);
end;

*Konversi Suhu
procedure TForm1.Button4Click(Sender: TObject);
var
celcius:Integer;
reamur,farenheit:Real;
begin
  celcius:=StrToInt(ecel.Text);

  reamur:= 4/5*celcius;
  eream.Text:=FloatToStr(reamur);

  farenheit:=(9/5*celcius)+32;
  efar.Text:=FloatToStr(farenheit);
end;

*GRADE NILAI
procedure TForm1.Button5Click(Sender: TObject);
var
nilai:Integer;
grade:String;
begin
nilai:=StrToInt(enilai.Text);

if (nilai >= 0) and (nilai <30) then
  begin
    grade:='Nilai Rendah';
    Memo3.Lines.Add(grade);
  end
else if (nilai >=30) and (nilai <60) then
  begin
    grade:='Nilai Sedang';
    Memo3.Lines.Add(grade);
  end
else if (nilai >= 60) and (nilai <=100) then
  begin
    grade:='Nilai Tinggi';
    Memo3.Lines.Add(grade);
  end
else
  begin
    grade:='Wrong';
    Memo3.Lines.Add(grade);
  end;
end;


Hasilnya

Effand Nozh

About Effand Nozh -

Author Description here.. Nulla sagittis convallis. Curabitur consequat. Quisque metus enim, venenatis fermentum, mollis in, porta et, nibh. Duis vulputate elit in elit. Mauris dictum libero id justo.

Subscribe to this Blog via Email :