Petta Lasinrang

Sekitar tahun 1856, keluarga raja dan pembesar kerajaan Sawitto, diliputi suasana bahagia atas lahirnya putra La Tamma yaitu La Sinrang. Kemudian dikenal dengan nama Petta Lolo La Sinrang. Putra La Tamma Addatuang Sawitto ini, dilahirkan di Dolangeng sebuah kota kecil yang terletak kira-kira 17 km sebelah selatan kota Pinrang. Karena ibunya bernama I Raima (Keturunan rakyat biasa) berasal dari Dolangeng.

La Tenri Tatta Arung Palakka (wali pitue) sang pembebas

Maddaremmeng MatinroE ri Bukaka meninggal dunia, maka digantikanlah oleh kemanakannya yang bernama La Tenri Tatta Arung Palakka MalampeE Gemme’na Petta To RisompaE

This is default featured slide 3 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 4 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

This is default featured slide 5 title

Go to Blogger edit html and find these sentences.Now replace these sentences with your own descriptions.

Tuesday, April 23, 2013

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
ObjekCaptionName
Label1Nama depanLabel1
Label2nama belakangLabel2
Label3nama akhirLabel3
Label4nama lengkapLabel4
Button1GabungButton1
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

aplikasi pelihat hari pada tanggal dengan delphi 2010


Desain Form


Desain Properties

Design Properties
ObjekCaptionName
Label1TanggalLabel1
Label2BulanLabel2
Label3TahunLabel3
Label4Hari Pada Tanggal TersebutLabel4
GroupBox1Entry TanggalGroupBox1
Button1OkButton1
Button2CloseButton2
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