Taruh Pesan Peringatan Di Message Dialogs Menggunakan Lazarus Pascal

Lazarus - Message dialogs merupakan kotak window yang sengaja dimunculkan secara pop up atau berada diatas aplikasi yang sedang dijalankan untuk memberikan pesan (peringatan) ke pengguna dan untuk menutupnya pengguna harus menekan tombol keyboard atau sebuah klik mouse. Beberapa penggunaan, message dialogs memiliki jumlah tombol lebih dari satu sebagai pilihan untuk pengguna untuk memutuskan suatu tindakan.

Untuk memanggil message diolags ada beberapa cara seperti tampak dibawah:

procedure ShowMessage (const Msg: string);

function MessageBox (Text, Caption : PChar; Flags: Word): Integer;

function MessageDlg (const Msg: string; AType: TMsgDlgType; AButtons: TMsgDlgButtons; HelpCtx: LongInt): Word;

function InputBox (const ACaption, APrompt, ADefault: string); string;

function InputQuery (const ACaption, APrompt: string; var Value: string): Boolean;

function PasswordBox(const ACaption, APrompt : String) : String;

Baik, kita buat satu per satu contoh skrip message dialog box.

ShowMessage

Message dialog box paling sederhana hanay memberikan sebuah tombol Ok dan tidak memberikan pilhan pengguna untuk meng-klik tombol Ok.

procedure TForm1.btnShowMessageClick(Sender: TObject);

begin

  ShowMessage('Message for you : ' + Edit1.Text);

end;  

Supaya dapat menampilkan beberapa baris pesan tambahkan salahsatu separator baris dibawah:

sLineBreak

LineEnding

atau ASCII code: #13#10

procedure TForm1.btnShowMessage2Click(Sender: TObject);

begin

ShowMessage('Message for you : ' + sLineBreak + Edit1.Text);

end

MessageBox

Kotak dialog ShowMessage terlalu sederhana, kamu menggunakan MesssageBox memungkinkan penggunan memberikan keputusan. MessageBox juga membolehkan kamu memberikan caption sebagai judul pesan yang hendak disampaikan.

function Application.MessageBox(Text, Caption: PChar; Flags: LongInt): Integer;

Text = Pesan kamu

Caption = Judul kotak pesan

Flags = Tipe kotak pesan yang mau ditampilkan.

uses

  Dialogs, LCLType;

Tambahkan unit diatas sebelum memulai menuliskan skrip MessageBox dibawah.

procedure TForm1.btnMessageBoxClick(Sender: TObject);

var

  Reply, BoxStyle: Integer;

begin

  BoxStyle := MB_ICONQUESTION + MB_YESNO;

  Reply := Application.MessageBox('Press either button', 'MessageBoxDemo', BoxStyle);

  if Reply = IDYES then Application.MessageBox('Yes       ', 'Reply',MB_ICONINFORMATION)

    else Application.MessageBox('No         ', 'Reply', MB_ICONHAND);

end;                                                                  

MessageDlg

Ini merupakan kotak dialog pesan yang memberikan kamu (sebagai programmer) mengatur tampilan dan tombol pengambil keputusan lebih banyak.

Sintaks MessageDlg bisa dilihat dibawah:

function MessageDlg(const aMsg: string; DlgType: TMsgDlgType; 

  Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;

function MessageDlg(const aCaption, aMsg: string; DlgType: TMsgDlgType; 

  Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;

Berikut contoh menampilkan pesan menggunakan MessageDlg:

procedure TForm1.btnMessageDlgClick(Sender: TObject);

begin

    if MessageDlg('Question', 'Do you wish to Execute?', mtConfirmation,

   [mbYes, mbNo, mbIgnore],0) = mrYes

  then { Execute rest of Program }

    ShowMessage('OK!');

end;     

Contoh program untuk menampilkan kotak pesan message dialogs bisa kamu unduh disini.

OpenOffice Kompetitor Microsoft Office Yang Gratis

 Siapa yang tidak mengenal Microsoft Office? Hampir pengguna Windows pasti menggunakan MS Office untuk menyelesaikan pekerjaan perkantoran. Saking populernya, banyak pengguna komputer jarang mengetahui ada aplikasi lain yang menjadi pesaing MS Office diantaranya Neo Office, Libre Office dan Open Office. Bahkan Google juga turut mengembangkan Google Docs yakni aplikasi office berbasis online.

Namun semua aplikasi office itu hampir tidak berdaya menyaingi popularitas dan kemampuan MS Office. Walaupun untuk mendapatkan MS Office kita perlu mengeluarkan uang untuk mendapatkan lisensi tetap saja menjadi pilihan utama bagi perkantoran dalam menjalankan bisnisnya selama puluhan tahun, seperti sudah menjadi standard. Bagi pengguna personal mungkin bersiap-siap untuk mengocek kantong lebih dalam karena Microsoft telah mengubah model lisensinya menjalan annual license dimana pengguna harus membayar lisensi kisaran satu juta rupiah pertahun pada produk Office 365. Model lisensi annual memang sedang trend sejak koneksi internet meluas dan ampuh untuk menekan penggunaan produk bajakan.

Kembali lagi ke Open Office sesuai judulnya, memang ditawarkan gratis sejak awal mula dikembangkan.  Perusahaan pengembang Star Division pada 1984 hingga 1998 mengembangkan Star Office menjadi cikal bakal Open Office yang kemudian dilanjutkan oleh Sun Microsystems pencetus Java pada tahun 1999 hingga 2010. Pengembangan aplikasi ini berpindah tangan lagi ke pengembang Apache Software Foundation pada tahun 2011 hingga sekarang dan mengganti namanya menjadi Apache Open Office.

Versi Apache Open Office sudah mencapai 4.1 dengan modul-modul cukup lengkap mirip MS Office yakni

Writer, word preocessor yang serupa MS Word untuk menyelesaikan pekerjaan pembuatan dokumen, surat dan buku.

Calc, spreadsheet alternatif MS Excel mengolah data, analisa hingga mempresentasikan dalam grafik.

Impress, modul membuat presentasi multimedia seperti hal MS Power Point.

Draw, menyerupai MS Visio berguna untuk membuat gambar vektor mulai dari diagram sederhana hingga ilustrasi 3D.

Base, modul database serupa MS Access untuk pengolahan tabel, form, queries dan report.

Math, berbeda dengan MS office yang digabungkan sebagai fitur di MS Word, Math memberikan kebebasan pengguna membuat rumus secara grafis.

Kelebihan utama Open Office adalah

• Gratis, walaupun dalam dunia bisni ternyata gratis bukanlah segalanya.
• Dapat diinstal hampir semau platform mulai dari Windows, Mac dan Linux.
• Paket Draw dan Math  sudah terintegrasi tidak seperti MS Visio yang harus dibeli terpisah.

Model lisensi Office 365 pertahun

Dibalik kelebihannya ada juga kelemahan yang perlu menjadi pertimbangan dalam menggunakannya

• Kompatibilitas dengan MS Office belum 100% sehingga banyak pengguna maju-mundur untuk memakainya karena MS Office sudah begitu mendominasi sehingga format dokumennya harus diikuti oleh kompetitornya.
• Layanan dukungan Open Office tidak sekaliber MS Office. Masih sedikit blogger mengulas fitur-fitur Open Office.
• GUI atau tampilan dan juga fitur tidak sebanyak MS Office walaupun sebenarnya kemampuan yang diberikan Open Office sudah lebih dari cukup karena kebanyakan pengguna office tidak menggunakan aplikasi ini begitu kompleks dan rumit.

Tidak ada salahnya mencoba, kamu bisa ngunduh Apache Open Office disni.

Membuat File Teks dan Mengaksesnya Menggunakan Lazarus

Bagaimana membuat sebuah file teks menggunakan bahasa pemrograman Lazarus Free Pascal? 

Akses File Teks

Pertama kali adalah mengakses file teks yang diinginkan. Apakah file tersebut sudah ada atau belum?

procedure TForm1.Button1Click(Sender: TObject);

var

myFile : TextFile;

tText   : string;

begin

     // Try to open the Test.txt file for writing to

     AssignFile(myFile, 'test.txt');

     ReWrite(myFile);

     // Write text

     WriteLn(myFile, 'Hello World');

     Write  (myFile, '-----------');

     // Close the file

     CloseFile(myFile);

end;

AssignFile() menugaskan myFile untuk menampung file test.txt sedangkan rewrite() akan menimpa isi file. Saya menggunakan perintah Wirte() agar baris terakhir tidak menghasilkan baris baru.

Closefile() wajid digunakan untuk mengakhiri akses file tersebut agar myFile yang ditugaskan mulai menuliskan teks kedalam file.

Sekarang, temukan file test.txt di folder kerja program ini dan buka menggunakan notepad.

Source code nya bisa kamu unduh disini.

Menuliskan File

Bagian awal, kita sudah bisa membuat sebuah file teks. Beberapa perintah menuliskan teks yang bisa kita gunakan antara lain sebagai berikut:

Rewrite(MyFile) membuka file MyFile agar siap ditulis. Dalam hal penulisn file teks, maka rewrite() melakukan penulisan ulang artinya penulisan akan dimulai pada posisi awal.

Write(MyFile, 'Hello world') menulis file MyFile  dengan kata Hello world. Format penulisan harus menggunakan string. Tentunya jika ada angka yang hendak ditulis, harus diubah menjadi string menggunakan InttoStr(angka).

WriteLn(MyFile, 'Hell word') pada dasar sama dengan Write(), namun WriteLn() menambahkan baris baru diakhir kalimat atau enter, WirteLn singkatan dari Write LineNew.

Membaca File

Berikutnya membaca file teks yang telah kita buat.

Reset(MyFile) membuka file MyFile dan memindahkan posisi pembacaan di baris awal. 

Read(MyFile) membaca isi file MyFile di baris tertentu.

procedure TForm1.Button2Click(Sender: TObject);

var

   MyFile : TextFile;

   tText : string;

begin

     //Try to open text file

     AssignFile(myFile, 'test.txt');

     Reset(myFile);

     //Read a line

     Read(myFile, tText);

     Memo1.Lines.Add(tText);

     Read(myFile, tText);

     Memo1.Lines.Add(tText);

     CloseFile(myFile);

end;

ReadLn(MyFile) serupa dengan Read() hanya memiliki kemampuan memindahkan ke posis baris berikutnya.

procedure TForm1.Button3Click(Sender: TObject);

var

   Myfile : TextFile;

   tText : string;

begin

     //Try to open text file

     AssignFile(MyFile, 'test.txt');

     Reset(MyFile);

     //Read a line then move to new line

     ReadLn(MyFile, tText);

     Memo1.Lines.Add(tText);

     ReadLn(MyFile, tText);

     Memo1.Lines.Add(tText);

     CloseFile(MyFile);

end;                   

Mencari Bilangan Prima Menggunakan Lazarus Pascal

Lazarus - Bilangan prima adalah bilangan atau angka nilainya selalu lebih dari 0 yang hanya habis dibagi dengan angka 1 (satu) dan bilangan itu sendiri. Semua bilangan prima merupakan bilangan ganjil kecuali angka 2. Contoh bilangan ini adalah 1, 2, 3, 5, 7, 11, 13 dan seterusnya. semakin besar nilai untuk mendapatkan bilangan prima, maka semakin sulit mendapatkannya. Karena tidak ada pola yang pasti dari bilangan ini jika dideretkan.

Mencari bilangan prima menggunakan program sederhana berbasis Lazarus dengan mengandalkan operasi matematika bernama MOD, singkatan dari Modulus. MOD adalah operasi pembagian dua bilangan yang memberikan hasil sisa pembagian.

Contoh: 

A = 4 mod 2, maka A = 0

B = 3 mod 2, maka B = 1

Cara paling mudah mencari bilangan prima dengan membagi bilang yang ingin dicari dibagi dengan bilangan yang dalam jangkahnya. Misal, apakah angka 7 adalah bilangan prima? maka kita coba dengan

7/1= 7, 7/2= 3.5, 7/3= 2.3, 7/4= 1.75, 7/5= 1.4, 7/6= 1.17, 7/7= 1, disimpulkan angka 7 adalah bilangan prima.

Sekarang.. Apakah angka 134579 adalah bilang prima? Saya pasti menolak menghitungnya walaupun diberikan kalkulator sepuluh buah.

Dibawah merupakan skrip program mencari bilangan prima menggunakan Lazarus.

procedure TForm1.Button1Click(Sender: TObject);

var

  h, i, k, pri: integer;

begin

  Button1.Caption := 'Counting..';

  pri:= 0;

  k:= StrtoInt(Edit1.Text);

  ProgressBar1.Max:= k;

  for h:=1 to k do

  begin

       ProgressBar1.Position:= ProgressBar1.Position+1;

       if (k mod h) = 0 then

          pri:= pri + 1

  end;

  if pri = 2 then

     ShowMessage(Edit1.Text + ' is a prime number.')

  else

      ShowMessage(Edit1.Text + ' isnot a prime number.');

  Button1.Caption := 'Start';

  ProgressBar1.Position:= 0;

end;       

Skrip program mencari bilangan prima menggunakan Lazarus bisa kamu unduh disini.

Ternyata Mudah Mengakses FTP Server Menggunakan PHP

FTP adalah File Transfer Protokol, suatu protokol atau kesepakatan yang memungkinkan dilakukan pertukaran informasi (umumnya file) antar server dimana pengguna dapat melakukan pengaturan file seperti upload, download, delete dan sebagai melalui komputer klien tanpa harus mengakses server secara langsung.

Pada sisi server ditanamak an aplikasi FTP SERVER dan sisi komputer pengguna di-install FTP CLIENT. Filezilla merupakan salahsatu aplikasi FTP populer yang dapat diperoleh secara gratis.

Windows Explorer juga memiliki fitur FTP client, jadi seolah-olah kira bekerja didalam Explorer.

Kamu bisa menggunakan skrip PHP untuk mengakses FTP server. Instalasi XAMPP (versi Windows) yang didalam sudah terdapat fungsi-fungsi FTP.

Langkah pertama, aktifkan dahulu FileZilla FTP server. Jadi kita akan menggunakan FTP server lokal untuk tujuan pengetesan.

Saya buat beberapa skrip PHP untuk mengakses FTP server dibawah 

Mengkoneksikan client ke FTP server.

<?php

// FTP server

$ftpHost   = 'localhost';

$ftpUsername = 'user';

$ftpPassword = 'user';

// Membuat FTP connection

$connId = ftp_connect($ftpHost) or die("Couldn't connect to $ftpHost");

// try to login

if(@ftp_login($connId, $ftpUsername, $ftpPassword)){

    echo "Connected as $ftpUsername@$ftpHost";

}else{

    echo "Couldn't connect as $ftpUsername";

}

// close / Tutup the connection

ftp_close($connId);

 ?>

Simpan file dengan nama : ftp_connect.php

Kamu bisa menulis IP address komputer sebagai FTP host sedangkan username dan password di-definisikan pada aplikasi Administrator FTP Server.

Mengunggah file ke FTP server

Fungsi yang digunakan ftp_put() — Uploads a file to the FTP server, memiliki output boolean.

ftp_put(

    FTP\Connection $ftp,

    string $remote_filename,

    string $local_filename,

    int $mode = FTP_BINARY,

    int $offset = 0

): bool

<?php

// FTP server

$ftpHost   = '192.168.0.100';

$ftpUsername = 'user';

$ftpPassword = 'user';

// Membuat FTP connection

$connId = ftp_connect($ftpHost) or die("Couldn't connect to $ftpHost");

// login to FTP server

$ftpLogin = ftp_login($connId, $ftpUsername, $ftpPassword);

// local & server file path / lokal file lokasi

$localFilePath  = 'C:\ffmpeg\animal-planet.mpg';

$remoteFilePath = '/animal-planet1.mpg';

// try to upload file

if(ftp_put($connId, $remoteFilePath, $localFilePath, FTP_ASCII)){

    echo "File transfer successful - $localFilePath";

}else{

    echo "There was an error while uploading $localFilePath";

}

// close / Tutup the connection

ftp_close($connId);

 ?>

$localFilePath adalah file yang hendak di upload, masukkan juga direktorinya.

$remoteFilepath adalah nama file (dan folder jika ada) tujuan (baca, FTP server). Kamu bisa mengubah nama file.

Hati-hati dengan penulisan "/" dan "\"

Simpan file dengan nama : ftp_upload.php

Mengunduh file ke FTP server

Jika sudah sukses mengunggah file, maka kamu bisa coba skrip PHP untuk mengunduh file dari FTP server.

Fungsi yang digunakan ftp_get() — Downloads a file from the FTP server, memiliki output boolean yang dapat dieksekusi menggunakan perintah if.

ftp_get(

    FTP\Connection $ftp,

    string $local_filename,

    string $remote_filename,

    int $mode = FTP_BINARY,

    int $offset = 0

): bool

<?php

// FTP server

$ftpHost   = 'localhost';

$ftpUsername = 'user';

$ftpPassword = 'user';

// open an FTP connection

$connId = ftp_connect($ftpHost) or die("Couldn't connect to $ftpHost");

// login to FTP server

$ftpLogin = ftp_login($connId, $ftpUsername, $ftpPassword);

// local & server file path

$localFilePath  = 'c:\DATA1\animal-planet.mpg';

$remoteFilePath = '/animal-planet.mpg';

// try to download a file from server

if(ftp_get($connId, $localFilePath, $remoteFilePath, FTP_BINARY)){

    echo "File transfer successful - $localFilePath";

}else{

    echo "There was an error while downloading $localFilePath";

}

// close the connection

ftp_close($connId);

 ?>

Simpan file dengan nama : ftp_download.php

Menghapus file di FTP server

Pada FTP server dapat dikonfigurasi pengguna bisa melakukan delete file. Jika pengguna memiliki akses untuk menghapus, silahkan coba skrip PHP ini.

ftp_delete — Deletes a file on the FTP server, memiliki output boolean.

ftp_delete(FTP\Connection $ftp, string $filename): bool

<?php

// FTP server details

$ftpHost   = 'localhost';

$ftpUsername = 'user';

$ftpPassword = 'user';

// open an FTP connection

$connId = ftp_connect($ftpHost) or die("Couldn't connect to $ftpHost");

// login to FTP server

$ftpLogin = ftp_login($connId, $ftpUsername, $ftpPassword);

// server file path

$file = '/animal-planet1.mpg';

// try to delete file on server

if(ftp_delete($connId, $file)){

    echo "$file deleted successful";

}else{

    echo "There was an error while deleting $file";

}

// close the connection

ftp_close($connId);

 ?>

Simpan file dengan nana : ftp_delete.php

Melihat daftar file di FTP server

Ingat dengan perintah DIR di command prompt? Kamu juga bisa me-listing file yang terdapat di FTP server.

Fungsi yang dipakai ftp_nlist() — Returns a list of files in the given directory, memiliki output array.

ftp_nlist(FTP\Connection $ftp, string $directory): array|false

<?php

// connect and login to FTP server

$ftp_server = "localhost";

$ftp_username = 'user';

$ftp_password = 'user';

$ftp_conn = ftp_connect($ftp_server) or die("Could not connect to $ftp_server");

$login = ftp_login($ftp_conn, $ftp_username, $ftp_password);

// get file list of current directory

$file_list = ftp_nlist($ftp_conn, ".");

var_dump($file_list);

// close connection

ftp_close($ftp_conn);

 ?>

Simpan file dengan name : ftp_listfile.php

Semoga bermafaat. Ceki-ceki dan kabari-kabari di kolom komentar kalau ada salah.

Perintah CMD Untuk Menunda Proses

Menunda proses atau delay atau menghentikan sementara proses dalam satuan waktu terkadang diperlukan dalam sebuah alur program. Misalkan kamu ingin menjalankan aplikasi A dan B berurutan namun aplikasi A harus jalan hingga berjalan sepenuhnya dan membutuhkan waktu estimasi 30 detik, mulai dari dieksekusi, membaca harddisk hingga siap, kemudian aplikasi B dapat dieksekusi selanjutnya.

Dengan adanya delay atau tundaan bertujuan mencegah komputer menjalan perintah nyaris bersamaan. pada contoh diatas bisa saja terjadi crash, aplikasi B menunggu data dari A, ternyata si A belum siap beroperasi.

Baris perintahnya: TIMEOUT /T [-1 sd. 99999 detik]

Jika menekan tombol keyboard, maka proses delay akan berhenti.

Hmm.. ada kalanya delay yang kamu set tidak mau diganggu atau harus menunggu sampai waktu hitung mundur menjadi nol.

Baris perintahnya menjadi TIMEOUT /T [-1 sd. 99999 detik] /NOBREAK

Nah kamu tekan tombol apapun tidak akan membuat proses delay berhenti kecuali kamu menekan tombol kombinasi Ctrl + C.

Semoga bermanfaat.. salam

Cara Mematikan dan Menjalankan Aplikasi Windows Menggunakan CMD

Mematikan atau menutup salahsatu aplikasi yang sedang berjalan di OS Windows cukup mudah. Kamu tinggal temukan tombol x (biasanya ada di pojok kanan atas) atau klik File -> Close atau Exit. Itu kalau aplikasi berbasis window atau memiliki tampilan GUI.

Bagaimana jika aplikasi tidak memiliki tampilan GUI seperti aplikasi layanan (service) yang biasanya berjalan di background?

Cara mematikan aplikasi menggunakan CMD bisa menjadi piilhan untuk mematikan aplikasi yang tidak kamu inginkan. Tentukanya kamu mengetahui nama file aplikasi tersebut.

Caranya, buka CMD atau command prompt dan ketikkan tasklist -> enter

Wow.. Mungkin hasilnya cukup mengejutkan, ternyata banyak aplikasi yang berjalan di belakang layar. Bisa saja salahsatu merupakan demit alias virus.

Perintahnya TASKKILL /IM [NamaFile]

Pilih salahsatu aplikasi yang ingin kamu matikan misalkan Project1.exe

Lanjut ketikkan TASKKILL /IM Project1.exe -> enter

Jika berhasil, akan ditampilkan notifikasi seperti gambar diatas.

Beberapa aplikasi terkadang kekeuh tidak mau dimatikan seperti TeamViewer_Service.exe.

Setelah mengetahui cara mematikan apliaksi Windows menggunakan CMD. Sekarang, cara menjalankan aplikasi Windows menggunakan CMD juga.

Syaratnya selain kamu harus mengetahui nama filenya, kamu juga harus mengetahui folder dimana file tersebut bercokol.

Peinrtahnya  START [Folder\NamaFile]

Buka dahulu command prompt dan ketikkan START C:\DATA2\LAZARUS\XML\BMS\project1.exe -> enter

Semoga membantu... salam

Kembali Menggunakan Blogger

 Sedih, sakit hati.. Memang menyenangkan menggunakan hosting dan domain berbayar, kita bebas melakukan apapun disana. Walaupun berbekal Wordpress, rasanya cukup bangga memiliki domain berbayar. Saya sendiri bukan blogger sejati, cuma blogger sekadarnya. Waktu itu, memang tergoda dengan hosting yang menawarkan sewa murah (diskon besar) dengan space bergiga-giga, ketambahan kecepatan akses termasuk bagus.

Tahun berjalan, postingan cukup banyak dan lebih untuk posting informasi cara-cara tips-tips supaya kalau lupa, saya masih bisa menemukannya di blog sendiri tanpa perlu gogling. Sekalian sambil sharing, terus ditambah adsesne hahaha. Tahun ke tahun, saya terus mempertahankan hosting yang pada akhirnya sudah tidak lagi murah kisaran sejutaan rupiah pertahun.  Iyalah, kalau ada uang pasti tidak pusing untuk membayar.

Hosting bukanlah priortias, ketika saya kehabisan biaya operasional bulanan dengan terpaksa tidak bisa melanjutkan hosting yang sudah ditanam bertahun-tahun. Hilang begitu saja.. Sedih.. Sakit hati tidak ke siapapun, cuma keteledoran menysihkan uang untuk sesuatu yang sudah menjadi rutinitas tahunan.

Ya sudah, bukan nasi sudah menjadi bubur. Tinggalkan dulu yang berbayar kembali lagi yang gratis :) 

Blogger.com .. Layanan blogging yang sudah saya lupakan, akhirnya buat blog baru .. mudah-mudahan lebih awet kalau bosan bisa dilupakan dulu.

Buat layanan hosting berbayar, mohon maaf kehlangan satu pelanggan :)

Hello World

Bingung mau tulis apa di postingan pertama. Ya sudah, saya beri judul HELLO WORLD saja. Dua kata yang sering digunakan pada tutorial pemrograman komputer. 

Mulai dari menggunakan bahasa komputer Lazarus pascal. Buka aplikasi Lazarus. Kalau belum punya bisa unduh disini, ini freeware jadi jangan ragu belajar pemrograman Lazarus Pascal. 

Ini adalah membuat program pertama.

Klik menu File -> New -> pilih Application. Nanti akan ditampilkan Form1 dan Source Editor dengan tab Unit1

Lanjutkan dengan menambahkan komponen Label dan Button di Form, tinggal klik komponen di palatte component Standard dan klik lagi di Form. Atur posisi komponen sesuai keinginan kamu.

Klik ganda komponen Button1 di Form1. Kemudian kamu akan diarahkan Source Editor Tab Unit1 dan ketik sebaris kode.

Klik Run atau teken tombol F9. Jika tidak ada kesalahan program kamu segera ditampilkan.

Klik tombol Button, maka tulisan label1 menjadi HELLO WORLD.

Sampai disini, program pertama bertajuk HELLO WORLD sudah jadi, silahkan disimpan.