Skip to main content

Panduan Penggunaan ShowMessage Lazarus Free Pascal (Belajar Lazarus #8)

ShowMessage merupakan procedure yang telah didefinisikan oleh lazarus untuk menampilkan pesan. Ciri-cirinya dia akan menggunakan nama aplikasi sebagai Captionnya kotak pesannya dengan tombol OK. Silahkan ikuti Panduan Penggunaan ShowMessage pada Lazarus Free Pascal ini dengan cermat!

Syntax:
ShowMessage('Isi Pesan');

Contoh:
ShowMessage('Isikan Banyak Barang');


Untuk prakteknya silahkan buka kembali program KasirATK pada panduan sebelumnya di http://belajarlazarus.blogspot.com/2014/11/memilih-data-dengan-radiobutton-lazarus.html

Kemudian edit source editor ukasiratk pada bagian procedure TFKasirATK.BHitungClick sehingga menjadi seperti di bawah ini:

procedure TFKasirATK.BHitungClick(Sender: TObject);
var
  harga, banyak, bayar: integer;
begin
  if (EBanyak.Text='') or (EBanyak.Text='0') then
    ShowMessage('Isikan banyak barang!')
  else
  begin
    banyak:= strtoint(EBanyak.Text);
    if RBSpidol.Checked then harga:= 5000;
    if RBPulpen.Checked then harga:= 3000;
    if RBPensil.Checked then harga:= 1000;
    bayar:= banyak*harga;
    EJumlah.Text:= inttostr(bayar);
  end;
end;

Fungsi dari pernyataan
 if (EBanyak.Text='') or (EBanyak.Text='0') then
    ShowMessage('Isikan banyak barang!')
adalah untuk memvalidasi input dapat pada komponen EBanyak jika masih kosong atau berisi 0 maka muncul peringatan 'Isikan banyak barang!').

Penggunaan ShowMessage Lazarus



Jangan lupa jika telah selesai mengedit di SaveAll, trus coba compile program dengan F9. Cukup sekian Panduan Penggunaan ShowMessage pada Lazarus Free Pascal. Selanjutnya nanti akan dibahas tentang panduan penggunaan Fungsi MessageDlg. Terima kasih.

Labels

Labels:

Comments

Post a Comment

Popular posts from this blog

Inilah Kelebihan dan Kekurangan SQLite

  Artikel ini akan membahas tentang, tipe data yang didukung SQLite,  kelebihan dari SQLite, kekurangan SQLite, kapan sebaiknya ketika menggunakan SQLite dan kapan sebaiknya kita tidak menggunakan SQLite. Merujuk dari id.wikipedia.org disebutkan bahwa SQLite merupakan sebuah sistem manajemen basisdata relasional yang bersifat ACID-compliant dan memiliki ukuran pustaka kode yang relatif kecil, ditulis dalam bahasa C. SQLite merupakan proyek yang bersifat public domain yang dikerjakan oleh D. Richard Hipp . SQLite adalah perpustakaan menakjubkan yang disematkan di dalam aplikasi yang menggunakan. Sebagai database mandiri, berbasis file, SQLite menawarkan serangkaian menakjubkan alat untuk menangani segala macam data dengan jauh lebih sedikit kendala dan kemudahan dibandingkan dengan host, proses berbasis (server) database relasional. Ketika sebuah aplikasi menggunakan SQLite, integrasi bekerja dengan panggilan fungsional dan langsung dibuat untuk file memegang data (yaitu ...
Post a Comment
Read more

Penggunaan Komponen RadioGroup Lazarus Free Pascal (Belajar Lazarus #10)

Pada Tutorial Penggunaan Komponen RadioGroup Lazarus Free Pascal kali ini bertujuan untuk memahami cara penggunaan RadioGroup serta penerapan pernyataan / statement CASE. Untuk itu maka silahkan buka kembali proyek aplikasi kasiratk yang telah anda buat sebelumnya. Untuk mengingat kembali jika lupa silahkan buka kembali tutorial RadioGroup dan Validasi Data . KOMPONEN RADIOGROUP RadioGroup adalah gabungan dari komponen RadioButton dan komponen GroupBox, fungsinya sama dengan komponen RadioButton. Setelah program aplikasi kasiratk terbuka, ikuti langkah-langkah di bawah ini: LANGKAH-LANGKAH PENAMBAHAN KOMPONEN & PROPERTIES : Ubah aplikasi yang memakai RadioButton dengan RadioGroup, caranya dengan klik GroupBox, lalu tekan tombol Delete, maka ketiga komponen RadioButton didalamnya akan ikut terhapus. Tempatkan komponen RadioGroup di tempat GroupBox. Ubah Name menjadi RGBarang dan Caption-nya menjadi Nama Barang. Klik tombol [,,,] pada Properties Items milik komponen RGBar...
Post a Comment
Read more

Aplikasi Demo Penggunaan Memo ComboBox ListBox dan CheckBox (Belajar Lazarus #14)

Mempelajari Listbox yang Owner-Draw Lazarus telah kita bahas pada artikel sebelumnya, sekarang mari kita buat Aplikasi Demo Penggunaan Memo ComboBox ListBox dan CheckBox . CheckBox memberi dua pilihan (bahkan tiga pilihan) kepada pemakai, properti yang berkaitan dengan pilihan pada CheckBox yaitu: Ubah property Checked menjadi True agar CheckBox dipilih secara default. Ubah AllowGrayed menjadi True agar CheckBox mempunyai 3 pilihan, yaitu checked , unchecked dan grayed . Property State menyatakan apakah CheckBox dalam keadaan checked ( cbChecked ), unchecked ( cbUnchecked ), atau grayed ( cbGrayed ). Memo dipakai untuk memasukkan data yang lebih dari satu barus. ListBox menampilkan daftar dan Anda dapat memilih item-itemnya: Property Items dibakai untuk mengisi pilihan-pilihan yang mungkin. ItemIndex menyatakan item yang dipilih.  MultiSelect menyatakan apakah dapat memilih lebih dari satu pilihan pada saat yang bersamaan. Sorted menyatakan apakah daftar terurut sec...
Post a Comment
Read more