Fungsi IF pada ComboBox di Lazarus

Zhu Desain - Menerima Jasa Pembuatan Website, Source Program Tugas Akhir, Program Aplikasi Desktop (Berbasis Web dan Program Client Server), dan Web Tutorial Komputer. Situs Online yang dapat membantu Anda mendesain web personal atau bisnis yang Anda miliki menjadi lebih profesional. ( Salam : Sugono Galih Aprianto ).

Fungsi IF pada ComboBox di Lazarus

Tutorial&Article - Lazarus Fundamental

Kalau sudah belajar bahasa pemrograman pasti akan ketemu dengan yang namanya logika, :-) Yups pada kesempatan kali ini saya akan membahas tentang fungsi IF, untuk mempermudah pemahaman, saya akan menggunakan komponen Combo Box pada latihan kita kali ini.

Oke langsung kita mulai saja ya. Seperti biasa Anda harus membuat Project baru dan mendesain Form beserta komponen-komponen yang dibutuhkan. Komponen yang kita gunakan pada latihan kali ini hanya sedikit yakni Label1 - Label2, Combo1, Edit1 dan Button satu. Atur properties name dengan CbKode, EdNmJur dan BtBersih.

Untuk desain form dapat Anda lihat pada tampilan di bawah ini :

Dan untuk listing program, mungkin Anda sudah bisa memastikan Saya akan mengetikkan di object apa :-) , Yups, logikanya ketika saya klik Tombol Kode Jurusan maka nama jurusan akan terisi otomatis. Jadi kita harus mengetikkan fungsi IF pada Object CbKode dengan Event OnChange. Baiklah langsung saja ya saya berikan ini listing / codenya :

unit UCombodanIf;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    BtBersih: TButton;
    CbKode: TComboBox;
    EdNmJur: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    procedure BtBersihClick(Sender: TObject);
    procedure CbKodeChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{$R *.lfm}

{ TForm1 }



procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.BtBersihClick(Sender: TObject);
begin
  CbKode.Text:='';
  EdNmJur.Text:='';
  CbKode.SetFocus;
end;

procedure TForm1.CbKodeChange(Sender: TObject);
begin
  If CbKode.Text='MCKA' Then
    EdNmJur.Text:='Komputer Akuntansi'
  Else
  If CbKode.Text='MCMI' Then
    EdNmJur.Text:='Manajemen Informatika'
  Else
  If CbKode.Text='MCDG' Then
    EdNmJur.Text:='Desain Grafis'
  Else
  If CbKode.Text='MCKT' Then
    EdNmJur.Text:='Komputer Terpadu'
  Else
    EdNmJur.Text:='Programming & Website';
end;

end.

Dan hasilnya dapat dilihat pada tampilan berikut :

Semoga Bermanfaat.. :-)

Set as favorite

Bookmark

Email this

Comments (0) Add Comment