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
