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 :
Seiring kemajuan zaman, maka proses perdaganganpun mengalami perubahan dan kemajuan dalam proses transaksinya. Oleh karena…
Berikut ini kami bagikan sebuah source code aplikasi akuntansi/akunting menggunakan framework yii, aplikasi ini cukup…
Salam sobat semua, kali ini kami akan membagikan sebuah aplikasi php secara gratis kepada anda,…
Deskripsi Aplikasi ASAMURAT yang merupakan kependekan dari Aplikasi SederhanA Manajemen sURAT. Sesuai dengan kepanjangannya, aplikasi…
Keunggulan Aplikasi Manajemen Surat ini : Memakai PHP Framework Codeigniter, sehingga frameworknya bisa lebih ringan,…