Intro Delphi 7

Sudah lama saya tak posting di blog yang satu ini, okee kali ini saya ingin membagikan sebuah ilmu yang bisa kita pelajari atau untuk kalian sebagai contoh pembuatan program di Delphi 7 dan sekaligus sebagai arsip bagi saya sendiri. 


LISTING PROGRAM

Form1

=============================================================
procedure TForm1.Button1Click(Sender: TObject);
var
nilai : Integer;

begin
nilai := StrToInt(Edit2.Text);

if nilai < 30 then
  Edit3.Text:='Kalah'
else if nilai <= 50 then
  Edit3.Text:='Juara Harapan'
else if nilai <=70 then
  Edit3.Text:='Juara 3'
else if nilai <=90 then
  Edit3.Text:='Juara 2'
else if nilai <=100 then
  Edit3.Text:='Juara 1'
else
  Edit3.Text:='Tidak Ada';


Label4.Caption:=Edit1.Text+chr(13)+Edit2.Text+chr(13)+Edit3.Text;
end;
________________________________________________________________

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:=' ';
Edit2.Text:=' ';
Edit3.Text:=' ';
Label4.Caption:='';
end;
________________________________________________________________

procedure TForm1.Button3Click(Sender: TObject);
begin
if Application.MessageBox('Yakin kamu mau keluar ?','Peringatan', MB_YesNo)=ID_Yes then
Application.Terminate;
end;
________________________________________________________________________

procedure TForm1.Button4Click(Sender: TObject);
begin
form2.Show;
form1.Hide;
end;
end.
================================================================





Form2

procedure TForm2.Button1Click(Sender: TObject);
var
a,b : integer;

begin
Memo1.Lines.Clear;
a:=StrToInt(Edit1.Text);
for b:=1 to StrToInt(Edit2.Text) do
  begin
  Memo1.Lines.Add('Perulangan to-'+IntToStr(b)+'='+IntToStr(a));
  a:=a+1;
  end;
end;
________________________________________________________________

procedure TForm2.Button2Click(Sender: TObject);
var
a,b : integer;

begin
Memo1.Lines.Clear;
a:=StrToInt(Edit1.Text);
b:=1;
for a:=a DownTo(StrToInt(Edit1.Text)-StrToInt(Edit2.Text)+1)do
  begin
  Memo1.Lines.Add('Perulangan Ke- '+IntToStr(b)+'='+IntToStr(a));
  b:=b+1;
  end;
end;
________________________________________________________________

procedure TForm2.Button3Click(Sender: TObject);
var
a,b:integer;

begin
Memo1.Clear;
a:=StrToInt(Edit1.Text);
b:=0;
while b <> StrToInt(Edit2.Text) do
  begin
  Memo1.Lines.Add('Perulangan Ke- '+IntToStr(b+1)+'='+IntToStr(a));
  a:=a+1;
  b:=b+1;
  end;

end;
________________________________________________________________

procedure TForm2.Button4Click(Sender: TObject);
var
a,b : integer;

begin
Memo1.Clear;
a:=StrToInt(Edit1.Text);
b:=0;
repeat
  Memo1.Lines.Add('Perulangan to- '+IntToStr(b+1)+'='+IntToStr(a));
  a:=a+1;
  b:=b+1;
until b = StrToInt(Edit2.Text)
end;
________________________________________________________________

procedure TForm2.Button5Click(Sender: TObject);
begin
if Application.MessageBox('Yakin kamu mau keluar ?','Peringatan', MB_YesNo)=ID_Yes then
Application.Terminate;
end;

end.
=============================================================



OUTPUT PROGRAM


 Klik Proses

 Klik Delete

 Klik Keluar

 Klik For to do

 Klik For down to do

 Klik While do

 Klik Repeat until

 Klik Close


Untuk penjelasan kodingannya dan laporan akhir silahkan download disini.

Komentar

Posting Komentar

Mari tukar pendapat, tapi jangan tukar pendapatan ;)

Postingan populer dari blog ini

Pengalaman Melamar Asisten LEPKOM Fundamental F4Gunadarma

Pada hari pas liburan semesteran gw membuka pesan yang ada di grup kelas whatsapp. Saat gw baca ada info bahwa di Stundentsite telah ada lowongan untuk asisten Lepkom F4. Langsung dah gw buka itu link SS ternyata bener bukan hoax. Setelah gw baca persyaratannya gw ngerasa mampu ni coi :D langsung dah gw nga pake lama langsung mempersiapkan segala yang dibutuhkan. Sambil nyiapin berkas yang sesuai diminta di link SS gw pun juga nyiapin diri gw secara mental wkwk gw searching2 tuh tahapan-tahapan untuk jadi asisten di Lepkom ini. Pas gw searching sih sama banget kaya kita mau ngelamar kerjaan di perusahaan gitu, ada psikotesnyalah, ada materi, ada tes bahasa inggris translitein trus lanjut tahap bikin program semacem rumus2 gitu http://satriodjati.blogspot.co.id/2013/04/tahap-tahap-tes-aslab-lepkom_29.html disini yang gw baca.
Baca selengkapnya

Connection Codeigniter 4 with Postgresql

Gambar
Cara Koneksi CodeIgniter 4 dengan Postgresql CodeIgniter 4 membawa perubahan yang cukup besar terasa sekali perbedaannya. Pada tutorial kali ini saya ingin sharing tentang cara koneksi CodeIgniter 4 dengan Postgresql. Langkah - langkahnya sebagai berikut : LAMPP untuk Ubuntu 1. Buka /opt/lampp/etc/php.ini 2. Edit extension=pgsql.so buka commentnya 3. Nyalakan LAMPP nya, sudo /opt/lampp/lampp start XAMPP untuk Windows 1. Buka C:\xampp\php\php.ini 2. Edit extension=php_pdo_pgsql.dll buka commentnya 3. Edit extension=php_pgsql.dll buka commentnya 4. Nyalakan XAMPP nya Edit .env yang berada pada folder CodeIgniter 4 database.default.hostname = localhost database.default.database = appcoba database.default.username = postgres    database.default.password = admin1234   database.default.DBDriver = Postgre    #Bersifat CaseSensitif database.default.port     = 5432 Cukup edit file .env maka akan menimpa value yang ada pada app/Config/Database.php Seki...
Baca selengkapnya

Artikel Komputer Kuantum (Quantum Computation)

Gambar
Definisi Komputer Kuantum Komputer kuantum adalah komputer super yang menggunakan prinsip “fisika kuantum” . Komputer ini memakai processor D-Wave yang melihatkan pemanfaatan efek yang disebut dengan terowongan kuantum. Dengan komputer kuantum ini kita dapat memecahkan beberapa jenis masalah seperti matematika hanya dengan sepersekian detik. Ide pembuatan komputer kuantum ini berasal dari beberapa fisikawan antara lain Charles H. Bennett dari IBM, David Deutsch dari University of Oxford, Paul A. Benioff dari Argonne National Laboratory, Illinois, dan Richard P. Feynman dari California Institute of Technology (Caltech). Processor D-Wave Penamaan processor ini diambil dari perusahaan komputasi kuantum yang membuatnya yaitu oleh D-Wave Systems, Inc. , yang berbasis di Burnaby, British Columbia, Kanada. D-Wave adalah perusahaan pertama di dunia yang menjual komputer kuantum. Ide yang mendasari untuk pendekatan D-Wave muncul dari hasil eksperimen dalam fisika benda terk...
Baca selengkapnya