Source Code Aplikasi Menghitung Jumlah Hari Menggunakan Delphi - Apabila Anda sedang mencari informasi terkait dengan Source Code Aplikasi Menghitung Jumlah Hari Menggunakan Delphi, maka anda ada di website yang benar, yaitu Aneka source code aplikasi, Rekomendasi kami untuk Source Code Aplikasi Menghitung Jumlah Hari Menggunakan Delphi berikut mungkin adalah cocok dengan yang anda butuhkan saat ini.

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 :

[php]
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.
[/php]

 

Atau silahkan download source codenya melalui tombol download di bawah ini :

Download

Terima kasih telah membaca tentang Source Code Aplikasi Menghitung Jumlah Hari Menggunakan Delphi

Aneka Source Code Aplikasi - Source Code Aplikasi Menghitung Jumlah Hari Menggunakan Delphi, Semoga bisa membantu anda dalam belajar pemrograman atau mungkin dapat juga menjadi ide atau inspirasi untuk membuat karya baru yang lebih baik lagi.

Anda sedang membaca Source Code Aplikasi Menghitung Jumlah Hari Menggunakan Delphi artikel tentang aneka source code aplikasi https://anekasourcecode.blogspot.com/2016/02/source-code-aplikasi-menghitung-jumlah.html Semoga blog sederhana ini dapat membantu dan bermanfaat bagi anda.

Tweet