Pengenalan Delphi

Nama File : Pengisian Biodata Mahasiswa

Nama Program : Data Mahasiswa

Listing Program :

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Button1: TButton;

Label4: TLabel;

Label5: TLabel;

Button2: TButton;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

if edit1.Text='' then

application.MessageBox('kolom belum diisi','pesan')

else

label4.Caption:=(edit1.Text);

label5.caption:=(edit2.Text);

label4.Font.Color:=clblack;

label5.Font.color:=clblack;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

if edit1.Text='' then

application.MessageBox('kolom belum diisi','pesan')

else

label4.Font.Color:=clblue;

label5.font.color:=clred;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

end;

end.

Logika Program :

Ø Analisa Program :

Program akan berjalan jika kita menginput nilai atau data dikolom Nama dan NPM, nilai atau data yang telah diinput ketika diklik tombol Submit akan muncul di bawah kolom NPM. Dan jika mengklik tombol Warna maka nilai atau data yang telah diinput akan berwarna sesuai kode yang dibuat.

Ø Penjelasan Program :

Jika kita menginput nilai di Form1-Edit1 dan di Form1-Edit2 maka ketika kita mengklik tombol Button1 yang bernama Submit maka nilai yang diinput di Form1-Edit1 akan muncul di Label4 sedangkan nilai yang diinput di Form1-Edit2 akan muncul di Label5. Dan jika kita ingin memberi hasil input di Label4 dan Label5 memiliki warna maka kita mengklik Button2 yang bernama Warna, karena diprogram ini Label4 diberi warna biru dan Label5 diberi warna merah maka hasil yang diinput ke Label4 akan berwarna biru dan yang diinput ke Label5 akan berwarna merah. Karena disini saya pribadi menambahkan kode : if edit1.Text='' then

application.MessageBox('kolom belum diisi','pesan')

else di tombol Button1 dan tombol Button2 maka ketika kita mengklik tombol Submit dan tombol Warna ketika data di Edit1 dan Edit2 belum diisi maka akan muncul pesan “kolom belum diisi”.

Ø Penjelasan Unit-unit :

Nama Form : Form1

Label1 : berisi Data Mahasiswa

Label2 : berisi Nama

Label3 : berisi NPM

Label4 : dikosongkan

Label5 : dikosongkan

Edit1 : dikosongkan untuk input data Nama

Edit2 : dikosongkan untuk input data NPM

Button1 : berisi Action yang bernama Submit

Button2 : berisi Action yang bernama Warna

Output :