Source Code Aplikasi Menghitung Jumlah Hari Menggunakan Delphi
Source code aplikasi yang kami bagikan kali ini adalah sebuah source code sederhana yang dibangun menggunakan bahasa pemrograman delphi. Aplikasi ini sangat cocok bagi pemula dalam mempelajari delphi. Yaitu aplikasi menghitung hari setiap bulan.
Berikut ini adalah source code nya :
unit UnitJumHari; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Edit1: TEdit; Edit2: TEdit; Label1: TLabel; Label2: TLabel; Memo1: TMemo; Label3: TLabel; Label4: TLabel; Shape1: TShape; Bevel1: TBevel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } Function DaysPerMonth(YearIn, MonthIn: Integer): Integer; public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} Function TForm1.DaysPerMonth(YearIn, MonthIn: Integer): Integer; Const DaysInMonth: array[1..12] of integer = (31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31); begin Result := DaysInMonth[MonthIn]; If (MonthIn = 2) and IsLeapYear(YearIn) then Inc(Result); End; procedure TForm1.Button1Click(Sender: TObject); Var s1,s2:Integer; Begin s1:=strToint(edit1.text); s2:=StrToInt(edit2.text); Memo1.Lines.Clear; Memo1.Lines.Add(IntToStr(DaysPerMonth(s1,s2))); Memo1.Lines.Add('Hari'); end; procedure TForm1.Button2Click(Sender: TObject); begin halt; end; end.
Atau silahkan download source codenya melalui tombol download di bawah ini :