Dunia Baruku Photography

Archive for the ‘Ilmu Komputer’ Category

Selisih tanggal untuk mencari jangka waktu

Kemaren sore aku ada revisi untuk perbaikan sistem dari BPR Lestari kebetulan ini ada hubungannya dengan masalah jadwal angsuran, ternyata ada masalah sedikit dari otaku ketika akan mencari berapa selisih hari dari acuan tanggal jatuh tempo dengan tanggal transaksi hari itu. Aku sih g terlalu lama nyari rumusnya seperti apa, soalnya baru saja nyari rumus ternyata sudah dikasih rumus jadi sama kang abunk. nya Nuhun pisan atuh kang, nah rumusnya sendiri seperti ini : (MonthOf(dTglAkhir)-MonthOf(dTglAwal)+12*(YearOf(dTglAkhir)-YearOf(dTglAwal))). Nah untuk anda yang mengalami kesulitan ketika mencari selisih tanggal coba saja pakai rumus itu… Alhamdulillah bisa. dan hasilnya sesuai seperti yang diharapkan. Tinggal ganti saja Variabel dTglAkhir dan dTglAwal dengan tanggal acuannya. Ya lebih bagusnya sih tetap gunakan variabel saja, lebih mudah dalam proses pembacaan rumusnya. ya sudahlah begitu saja dulu dari saya, mohon postinganya kalau anda punya cara lain atau mungkin mau korekis kalau ternya rumus itu salah. Makasih banyak sudah mau mampir.

maspiping

Advertisements

Aplikasi Sederhana Stopwatch dengan Delphi

Dibawah Ini Hasil Penggabungan dan Otak-atik yang semalam aku kerjakan hanya karena penasaran dan ingin tau seperti apa hasilnya. Lihat Hasilnya disini–> Stapwacth yang udah aku coba, sederhana tapi asyik buat menambah wawasan. Ada beberapa yang modifikasi juga. Jika teman-teman ingin mencoba silahkan saja tinggal pakai source codenya. Tinggal Pengaturan Intervalnya saja. Jangan dianggap saya sombong dengan hasil karya saya ini, saya juga baru belajar. karena saya ingin mengikat ilmu saya dengan menuliskannya diblog ini. siapa tau ada yang membutuhkannya untuk dasar pembelajaran delphi. Bahkan saya sangat berharap akan ada yang saling memberikan ilmu.  Harapan saya  tulisan saya ini bermanfaat buat saya dan teman-teman semua.. Ok Thanks.. Dibawah ini Sourcecodenya.

unit UStopwatch;

interface

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

type
TForm1 = class(TForm)
LblTime: TLabel;
butss: TButton;
Timer1: TTimer;
Button1: TButton;
Panel1: TPanel;
Button2: TButton;
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure butssClick(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
var
StartTime,
StopTime: TDateTime;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.enabled := false;
end;

function ElapsedTimeStr(ETime: double): string;
var
RTime: double;
Days, Hrs, Mins: integer;
Secs: double;
begin
if int(ETime) > 0 then Days := 0 // Pengitungan Hari
else Days := Trunc(ETime);

RTime := frac(ETime) * 24; // Konversi Untuk jam disini
Hrs := Trunc(RTime);

RTime := frac(RTime) * 60; // Konversi Untuk Menit
Mins := Trunc(RTime);

Secs := frac(RTime) * 60; // Konbersi Untuk MiliDetik

Result := IntToStr(Days) + ‘ days, ‘ +
IntToStr(Hrs) + ‘ hrs, ‘ +
IntToStr(Mins) + ‘ mins, ‘ +
FloatToStrF(Secs, ffFixed,15,2) + ‘ secs’;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
butSS.Caption := ‘&Start’;
lblTime.Caption := ElapsedTimeStr(0.0);
end;

procedure TForm1.butssClick(Sender: TObject);
begin
if butSS.Caption = ‘&Start’ then begin
StartTime := now;
lblTime.caption := ElapsedTimeStr(0.0);
Timer1.enabled := true;
butSS.Caption := ‘&Stop’;
// showmessage(‘Sedang Menghitung ‘);
end
else begin //butSS.Caption := ‘&Stop’
Timer1.enabled := false;
//lblTime.caption := ElapsedTimeStr(0.0); Jika diapakai Akan Mereset jadi Nol lagi
StopTime := now;
butSS.Caption := ‘&Start’;
showmessage(‘Yes, You Can Reset Now!!’);
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
CTime: TDateTime;
ETime: double; // the elapsed time in decimal days
begin
CTime := now;
ETime := CTime – StartTime;
lblTime.caption := ElapsedTimeStr(ETime);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
lblTime.caption := ElapsedTimeStr(0.0);
showmessage(‘You Must Stop before Reset !!’);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage(‘Are You Sure to Close ?’);
close;
end;

end.

Untuk dfm-nya dibawah ini : // Silahkan Anda ganti sesuai selera anda..

object Form1: TForm1
Left = 453
Top = 299
Width = 281
Height = 195
Caption = ‘Stopwatch’
Color = clSkyBlue
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = ‘MS Sans Serif’
Font.Style = []
OldCreateOrder = False
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object LblTime: TLabel
Left = 16
Top = 40
Width = 209
Height = 15
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = ‘200proofmoonshine’
Font.Style = []
ParentFont = False
end
object butss: TButton
Left = 24
Top = 112
Width = 75
Height = 25
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = ‘200proofmoonshine’
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = butssClick
end
object Button1: TButton
Left = 104
Top = 112
Width = 75
Height = 25
Caption = ‘Reset’
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = ‘200proofmoonshine’
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = Button1Click
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 273
Height = 25
Align = alTop
Caption = ‘Aplikasi Stopwatch’
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = ‘200proofmoonshine’
Font.Style = []
ParentFont = False
TabOrder = 2
end
object Button2: TButton
Left = 184
Top = 112
Width = 75
Height = 25
Caption = ‘Close’
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = ‘200proofmoonshine’
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = Button2Click
end
object Timer1: TTimer
Enabled = False
Interval = 10
OnTimer = Timer1Timer
Left = 24
Top = 72
end
end

Untuk teman-teman semua selamat mencoba. Tidak ada yang sulit jika kita mau mencoba. Dan kegagalan juga bukan menjadi halangan untuk berhenti. Jika ada saran atau commentar silahkan anda tuliskan comment. Saran dan kritik anda sangat berarti baru saja. terimakasih

www.maspiping.com