• A boat with beautiful sunset.
  • Tree in field with blue sky.
  • Amaizing sunrise moment

Widgets

Konversi dari detik ke (jam,menit,detik)

jika kemarin tentang konversi bilangan bulat menjadi romawi,kali ini merupakan konversi dari detik menjadi jam,menit,detik. agar lebih jelasnya perhatikan penampakannya seperti ini gambarannya:


source codenya sederhana ko gan
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Edit1: TEdit;
Label1: TLabel;
Button1: TButton;
Label2: TLabel;
SpeedButton1: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
label2.Caption:='';
end;

procedure TForm1.FormShow(Sender: TObject);
begin
edit1.SetFocus;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
jam,menit,detik,sisa,input:longint;
begin
input:=strtoint(edit1.Text);
jam:=input div 3600;
sisa:=input mod 3600;
menit:=sisa div 60;
detik:=sisa mod 60;
label2.Font.Style:=[fsbold];
label2.Caption:='hasil dari konversi adalah :'+inttostr(jam)+' jam '+inttostr(menit)+' menit '+inttostr(detik)+' detik';
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
edit1.Clear;
label2.Caption:='';
edit1.SetFocus;
end;

end.
ini link untuk donlod projeknya gan :

  • Konversi dari detik ke (jam,menit,detik)
  • Pein
  • October 15, 2010
  • 2 comments :
 

2 comments :