Membuat Aplikasi Console di Delphi 7

Aplikasi console adalah aplikasi yang berjalan pada mode Dos. Aplikasi ini tidak mempunyai form. Sebagai gantinya, Windows akan menampilkan jendela console. Segalan perintah Delphi dapat dituliskan baik berupa huruf kapital atau tidak tanpa perbedaan. Sehingga perintah seperti ini:

readln dan ReadLn 

tidak mempunyai perbedaan.

Pada artikel ini saya menggunakan Delphi 7, tetapi Anda bisa juga menjalankan di versi lain. 

Pilih File >> New >> Others
 

 
Pilih Console Application

Setelah klik pada Console Application, Anda akan disuguhi tampilan text seperti dibawah ini:

program Project1;

{$APPTYPE CONSOLE}

uses
    SysUtils;
begin
end.
Sekarang kita siap memraktekkan program console. Kita akan menuliskan perintah diantara keyword

Begin
End;

WriteLn dan Write
Perintah WriteLn dan Write dipergunakan untuk menampilkan tulisan di layar. Perbedaannya terletak pada:

WriteLn : Setelah menuliskan kalimat, maka secara otomatis baris akan berganti ke baris dibawahnya, sedangkan kursor pada Write tetap sebaris dengan kalimat yang telah ditulisnya.


Contoh:

WriteLn('Hitung Luas Persegi Panjang');
WriteLn('========================');
WriteLn;

ReadLn
Untuk menerima masukan dari pengguna komputer (user).

Contoh:

Write('Masukkan Panjang: ');
ReadLn(Panjang);
Write('Masukkan Lebar: ');
ReadLn(Lebar);
Write('Luas Persegi Panjang: ', Panjang * Lebar);

ParamStr
Pada program diatas, kita mengambil Panjang dan Luas setelah user menjalankan program dengan mengetikkan nama file exe. Tetapi ada cara lain, yaitu dengan mengetikkan nama file diikuti panjang dan luasnya. Saat program dijalankan, program akan mengambil parameter tadi lewat ParamStr diikuti urutannya.
Parameter yang diambil oleh ParamStr bertipe string, sehingga harus dikonversi ke tipe angka (dalam hal ini integer) agar dapat dikenakan operasi matematika dengan StrToInt
Sekarang, program diatas akan diubah untuk memenuhi ketentuan tadi menjadi seperti ini:

var
    Panjang, Lebar : integer;
begin
    Panjang := StrToInt(paramstr(1));
    Lebar := StrToInt(paramstr(2));

    WriteLn('Hitung Luas Bujursangkar');
    WriteLn('========================');
    WriteLn;
    Write('Luas Persegi Panjang: ', Panjang * Lebar);
end.

Simpan program diatas dengan nama yang Anda sukai. Saya menyimpan dengan nama segiPJ. Untuk menjalankan, saya mengetikkan dibawah ini pada command prompt, agar menghitung luas persegi panjang untuk panjang 5 dan lebar 2.

segiPJ 5 2

 

Membuat Aplikasi Console di Delphi 7 2017-02-28T15:45:00+07:00 Rating: 4.5 Diposkan Oleh: Good Dreamer