Assalamu’alaikum…
Saya ingin berbagi Pengalaman lagi saya
nih mengerjakan laporan dari Laboratorium TI di Gunadarma, sebelumnya
saya telah memposting Cara Membuat Kalkulator Sederhana dari Visual Basic 6, dan
sekarang saya ingin berbagi lagi nih Cara Membuat Perulangan While-Do,
For-Do, dan Kuadrat menggunakan Delphi 7 . oke deh
langsung aja ya tutorial membuat Laporan Akhir Praktikum Delphi 7
ini, dan saya akan berbagi Tutorial Cara Membuat Perulangan While-Do,
For-Do, dan Kuadrat Sederhana pada Program Delphi 7
ini..
LAPORAN AKHIR
PRAKTIKUM
MATA PRAKTIKUM : ALGORITMA DAN
PEMROGRAMAN
KELAS : 1IA13
PRAKTIKUM KE- : 3
TANGGAL : 28 MARET 2012
MATERI : PENGENALAN DELPHI 7
NPM : 54411827
NAMA : Muhammad
Faris Al Fatih
NAMA KETUA ASISTEN :
NAMA ASISTEN :
PARAF ASISTEN :
JUMLAH LEMBAR : LEMBAR
LABORATORIUM INFORMATIKA
UNIVERSITAS GUNADARMA
2012
Listing Program
1. Button 1 ( While – Do )
Lihat Gambar:
Lihat Gambar:
Lihat Gambar:
Lihat Gambar:
Bab
2.
Logika
Program
1. Analisa Progam
Pada program ini kita akan membuat suatu program yang
akan menggunakan perulangan For – Do dan While – Do ditambah dengan perhitungan
kuadrat. Dimana program ini akan mencetak nilai masing-masing perulangan dan
kita dapat membedakan perbedaan dari for – do dan while – do. Program ini akan
dibuat di Delphi 7, untuk itu diperlukan beberapa label edit , command button ,
memo dan juga group box .
2. Penjelasan Program
Setelah mengetahui apa saja yang dibutuhkan, sekarang kita
memasuki ke desain program. Pertama-tama kita buat dulu komponen yang
diperlukan sesuai listing program diatas setelah itu kita harus membuat
codingan satu-persatu di dalam command button dan tidak sekaligus. Sesudah itu
pengubahan setiap komponen yang dibuat melalui Object Inspector dimana hal ini
sangat penting, jika tidak orang lain akan bingung melihat hasil kerja program
ini dengan tidak mengubah nama, judul label di program dan lain-lain. Jika
sudah semua, maka selanjutnya masuk ke tahap pengodingan, disini kita sudah
harus mengetahui sintaks-sintaks dalam bahasa pemrograman Delphi 7 agar saat di
kompilasi tidak terjadi kesalahan dalam pengodingan. Kita lanjutkan saja ke
tahap pengodingan, buat dulu variabel yang diperlukan untuk memasukkan nilai.
Memo1.Clear; berguna untuk menghapus judul/caption yang terdapat pada Memo1
karena dalam Object Inspector, komponen Memo tidak mempunyai caption.
Memo1.Lines.Add() berguna menampilkan hasil cetakan ke dalam Memo1 per baris.
Codingan dalam button3/kuadrat, a := Sqr(f); berarti nilai pada variabel f akan
di kalikan lagi dengan nilai yang sama pada variabel f.
sintaksnya
yaitu :
procedure TForm1.Button1Click(Sender: TObject);
var
E,F:integer;
begin
memo1.Clear;
E:=strtoint(edit1.Text);
F:=1;
while F<>strtoint(edit2.Text)do
begin
memo1.Lines.Add('perulangan
ke-'+inttostr(F)+'='+inttostr(E));
E:=E+1;
F:=F+1;
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
E,F:integer;
begin
memo1.Clear;
E:=strtoint(edit1.Text);
for F:=1 to strtoint(edit2.Text)do
begin
memo1.Lines.Add('perulangan
ke-'+inttostr(F)+'='+inttostr(E));
E:=E+1;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
A,E,F:integer;
begin
memo1.Clear;
E:=strtoint(edit1.Text);
for F:=E to strtoint(edit2.Text)do
begin
A:=sqr(F);
memo1.Lines.Add(inttostr(F)+'kuadrat-'+inttostr(A));
end;
end;
end.
Bab 3.
Output
( While – Do )
Lihat Gambar:
( For – Do )
Lihat Gambar:
( Kuadrat )
Lihat Gambar:
Sekian yang bisa gua berikan sedikit informasi nih tentang Cara Membuat Perulangan While-Do,For-Do, dan Kuadrat Sederhana dari Program
Delphi 7.. Semoga Tutorial ini bermanfaat ya buat kalian.. Good Luck.. :D
NB : Sebenarnya Delphi 7 dan Visual Basic 6 hampir sama tools2nya,
yang membedakan hanyalah kodingannya yang sedikit berbeda, biar lebih tau
kalian coba aja ya.. :)
Wassalamu'alaikum...
Baca Selengkapnya : Disini
Silahkan beri komentar SPAM sobat :))
Jika ada pertanyaan, kritik, saran, dan link Error harap hubungi admin dalam kotak komentar atau Contact Us yang tersedia.
Terima kasih sudah mampir ^^ EmoticonEmoticon