aplikasi penggabung nama menggunakan delphi 2010

Kali ini saya akan berbagi tutorial membuat aplikasi penggabung nama menggunakan delphi 2010

DESAIN FORM

Desain Properties

Design Properties

Objek	Caption	Name
Label1	Nama depan	Label1
Label2	nama belakang	Label2
Label3	nama akhir	Label3
Label4	nama lengkap	Label4
Button1	Gabung	Button1
Edit1	-	e1
Edit2	-	e2
Edit3	-	e3
Edit4	-	e4

Listing Program

unit Unit11;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, StdCtrls;

type
  TForm11 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    e1: TEdit;
    e2: TEdit;
    e3: TEdit;
    e4: TEdit;
    Label4: TLabel;
    Button1: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form11: TForm11;

implementation

{$R *.dfm}

procedure TForm11.Button1Click(Sender: TObject);
var
depan:string[20];tengah:string[20];
akhir:string[20];gabung:string[80];

begin
   depan:=e1.Text;tengah:=e2.Text;akhir:=e3.text;
   gabung:=depan+'_'+tengah+'_'+akhir;
    e4.Text:=gabung;
end;

end.

itulah sedikit tutorial cara membuat aplikasi penggabung nama menggunakan delphi, untuk contoh filenya silahkan download di sini

Read More

aplikasi pelihat hari pada tanggal dengan delphi 2010

Desain Form

Desain Properties

Design Properties

Objek	Caption	Name
Label1	Tanggal	Label1
Label2	Bulan	Label2
Label3	Tahun	Label3
Label4	Hari Pada Tanggal Tersebut	Label4
GroupBox1	Entry Tanggal	GroupBox1
Button1	Ok	Button1
Button2	Close	Button2
Edit1	-	e1
Edit2	-	e2
Edit3	-	e3
Edit4	-	e4

Listing Program

unit Unit10;

interface

uses

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

  Dialogs, jpeg, ExtCtrls, StdCtrls;

type

  TForm10 = class(TForm)

    GroupBox1: TGroupBox;

    e1: TEdit;

    e2: TEdit;

    e3: TEdit;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Button1: TButton;

    Label4: TLabel;

    e4: TEdit;

    Image1: TImage;

    Button2: TButton;

    procedure Button1Click(Sender: TObject);

    procedure Button2Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form10: TForm10;

implementation

{$R *.dfm}

procedure TForm10.Button1Click(Sender: TObject);

type

x=string[7];

const

faktorbln:array [1..12]of byte=(0,3,3,6,1,4,6,2,5,0,3,5);

hari:array[0..8]of x=('Minggu','Senin','Selasa','','Rabu','Kamis','','Jumat','Sabtu');

var

hr:string;

nama:string[255];

j1,j2,j3,j4:integer;

tanggal,bulan,tahun:integer;

begin

tanggal:=strtoint(e1.Text);

bulan:=strtoint(e2.Text);

tahun:=strtoint(e3.Text);

if tahun > 1900 then

  tahun:=tahun-1900;

  j1:=trunc(tahun*365.25);

  j2:=j1+faktorbln[bulan];

  if (tahun/4=int(tahun/4))and (bulan<3) then

  j2:=j2-1;

  j3:=j2+tanggal;

  j4:=trunc(frac (j3/7)*10);hr:=hari[j4];

  e4.Text:=hr;

end;

procedure TForm10.Button2Click(Sender: TObject);

begin

close;

end;

end.

itulah sedikit tutorial cara membuat aplikasi pelihat hari pada tanggal, untuk contoh filenya silahkan download di sini

Read More