Belajar delphi

Pertemuan Pertama Tentang Delphi

            Di pertemuan pertama pada matakuliah Interaksi Manusia dan Komputer, kami diperkenalkan dengan bahasa pemrograman Delphi. Untuk pertama kalinya saya belajar bahasa pemrograman ini. Sebelumnya saya pernah dikenalkan dengan bahasa pemrograman basic ketika saya masih duduk di bangku MA/SMA . setidaknya walaupun saya belum pernah memegang dan mempraktekkan bahasa Delphi tetapi paling tidak dengan bekal bahasa basic di MA dulu bisa sedikit membantu dalam mempelajari bahasa Delphi ini. Ok, sebagai awal dari latihan ini mari kita coba untuk belajar membuat program sederhana untuk menampilkan pesan dan pengenalan awal tentang fungsi dasar dan tipe data.

Langkah-langkah pembuatan program :

1.      Buatlah Form Utama Caption “Form1”

Tampilan dari form utamanya sebagai berikut :

Form di atas hanya mempunyai 3 button , yang pertama adalah Button dengan caption “Salam” untuk menampilkan form baru dengan tulisan salam, yang ke-dua adalah button dengan caption “Input” untuk menampilkan form untuk memasukkan data dan menyimpanya (Hanya prototype penyimpanan) dan yang ke-tiga adalah button dengan caption “Close” untuk keluar dari program.

Component :

Component	Name	Caption
Label	Label1	Latihan 1 Delphi
Button	Button1	Salam
	Button2	Input
	Button3	Close

2.      Buatlah Form2 untuk menampilkan salam

Berikut adalah form salam yang akan di tampilkan :

3.      Buatlah Form3 untuk memasukkan dan menyimpan data.

Dan berikut adalah form  input untuk memasukkan data dan juga menyimpan data tersebut dalam memory untuk nantinya ditampilkan dalam  pesan  :

Dan potongan prosedurnya adalah sebagai berikut

procedure TForm3.Button1Click(Sender: TObject);

begin

  if (edit1.Text = '') or (edit2.Text = '') or (edit3.Text = '') then

    begin

      showmessage('Isi dulu semua data !');

    end

  else if strtoint(edit3.Text) >= 17 then

    begin

      showmessage('Data berhasil disimpan !' + sLineBreak +

      '===========================' + sLineBreak +

      ' Nama'   + #9 +' = ' + edit1.Text + sLineBreak +

      ' Alamat' + #9 + ' = '  + edit2.Text + sLineBreak +

      ' Umur'   + #9 + ' = '  + edit3.Text + ' Tahun' + sLineBreak +

      '==========================='

      );

    end

  else

    begin

      showmessage('Maaf data tidak disimpan !' + sLineBreak + 'Anda masih dibawah umur !');

    end

end;

4.      Buat Form4 untuk memberikan pesan peringatan

Form ini digunakan untuk memberikan pesan peringatan ketika anda ingin keluar dari program.

Berikut adalah hasil ketika program dijalankan.

Tampilan yang ini merupakan tampilan ketika data yang dimasukkan benar dan juga ditampilkan data yang di input kan tadi..

Tampilan ketika data yang dimasukkan belum lengkap

Sehingga akan muncul message peringatan sebagai berikut

dan ketika data umur yang dimasukkan masih kurang dari 17.

Maka akan muncul pesan peringatan sebagai berikut

Nah program tersebut hanya digunakan sebagai latihan dan pengenalan pertama dari bahasa Delphi, tentunya masih sangat dasar, namun nantinya tetap diharapkan agar bisa dikembangkan untuk membuat aplikasi yang lebih berguna lagi dan dapat dimanfaatkan oleh orang banyak dan bukan hanya untuk menampilkan pesan seperti program yang telah kita buat tadi. Ok semoga tutorial singkat tentang pengenalan pertama tentang bahasa Delphi ini dapat bermanfaat bagi kita semua dan dapat menambah pengetahuan kita tentang bahasa Delphi. Amiin..

Salam Agus Minanur Rohman