Tuesday, 22 October 2013

Algoritma dan Pemrograman ( Mengaplikasikan fungsi IF dengan membuat form kelulusan )

Tugas 1!
Yang pertama yang harus dilakukan adalah terutama sudah terinstalnya program atau software Borland Delphi, dan kali ini saya menggunakan yang versi Borland Delphi 7. :)
Berikut Step by Stepnya : 

  • Jalankan Program Borland Delphi 7
  • Klick File New >> Form ( karena saya inggin membuat program yang berbasis GUI)
  • Mulai Bekerja.. Bissmillah  lancar .hhe :)
  • Cari dan click icon Label ini

  • Click dan drug pada form >>beralih ke window Object Inspector >> tab properties >> click caption untuk mengganti nama Label 1 menjadi Masukkan_Nilai ( untuk spasi menggunakan underscore), ubah ukuran maupun fontnya jika diperlukan . Kemudian buat Label  lagi dengan cara yang sama dengan nama Keterangan.










(edit StdCtrls)
  • Click tombol edit ( seperti gambar diatas),>> click dan drug pada form >>  window object inspector pada tabulasi properties click text >> ganti edit1 jadi Nilai . Kemudian buat lagi dengan nama text status.
  • Saatnya membuat tombol hasil pemrosesan dengan click  icon Button seperti gambar diatas >> click dan drug pada form. Pada object inspector >> caption >> ganti button dengan hasil. 

  • Selanjutnya mari kita masukkan scriptnya dengan click 2x tombol hasil, kemudian terbukalah window unit1.pas >> ini script yang perlu ditambahkan..
procedure TForm1.HasilClick(Sender: TObject);
  • Var
      nl:integer;
    begin
      nl := strtoint(Nilai.text);
      if nl >70 then status.Text := 'Lulus'
      else status.Text := 'Tidak lulus';

    end.
  • Tekan Run / F9..
  • ini hasilnya

Bagikan

Jangan lewatkan

Algoritma dan Pemrograman ( Mengaplikasikan fungsi IF dengan membuat form kelulusan )
4/ 5
Oleh

Subscribe via email

Suka dengan artikel di atas? Tambahkan email Anda untuk berlangganan.