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

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 Sekian terima kasih.
Baca selengkapnya

Membuat Proyeksi Objek 3D dengan OpenGL

Gambar
Tugas 2 Kelompok Grafik Komputer 1 Kelas 3IA16 Anggota Kelompok : M Ikhbal Setiawan         - 56414238 M Reza Susanto P        - 56414249 Mohammad Adhya N    - 56414771 Puji Prasetyo                 - 58414548 Ridwan Akbar P            - 59414312 Pada postan kali ini akan dibahas tentang objek 3D. Untuk memproyeksikan objek 3D terdapat beragam variasi yaitu proyeksi 3D paralel dan proyeksi 3D perspektif. Pada proyeksi 3D paralel adalah jarak antara titik tengah(sumbu utama) proyeksi dengan bidang proyeksi tak hingga(infinite). Dengan kata lain bahwa dalam pembuatan 3D paralel tidak diketahui dimana titik sumbunya berada.
Baca selengkapnya

REST API CodeIgniter 4 CRUD

REST API CodeIgniter 4 CRUD Kali ini saya mau share tentang membuat rest api dengan codeigniter 4 dengan database postgresql. Untuk cara koneksinya bisa dilihat di postingan sebelumnya. Aplikasi  yang dibuat ini sederhana hanya sekedar CRUD, untuk memberi contoh penggunaan function-function yang telah disediakan pada codeigniter 4. Disni akan menggunakan satu database dan table 'mahasiswa'. Deskripsi tabel sebagai berikut : id           | serial int nama     | varchar(50) alamat   | varchar(50) Langsung saja ke CodeIgniter 4 langkah-langkah sebagai berikut : # Routes Pertama kita perlu menyiapkan endpointnya terlebih dahulu, seperti dibawah ini diatur menggunakan http method dan urlnya. # Validation Validation adalah file yang digunakan untuk memvalidasi request body yang akan masuk. Letakan file ini di 'Controller'. # Controllers Disini berguna untuk menghandle request yang masuk jika sesuai dengan routes yang telah disetting sebelumnya. # Model Ini b
Baca selengkapnya