Skip to main content

Posts

contoh Delphi7 (Perhitungan gaji)

By
Selama malaam, ini saya bagikan sedikit logika contoh program delphi, apa itu delphi,, kalian cari saja ke simbah, yang jelas saya muak kelau ada eror pada setiap baris code. - Proses nya adalah apabila golongan Gaji A1 : 1.000.000 A2 : 1.250.000 B1 : 1.500.000 B2 : 2.000.000 apabila alamat asal = yogyakarta gaji=tetap ` apabila alamat asal luar yogyakarta gaji=gaji+250.000 Tunjangan Suami : 0 Tunjangan Istri : 750.000 Tunjagan Anak   : 100.000/anak
Read more

program perhitungan kuadrat

By
unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls; type   TForm1 = class(TForm)     Edit1: TEdit;     Edit2: TEdit;     Edit3: TEdit;     Label1: TLabel;     Label2: TLabel;     Label3: TLabel;     Button1: TButton;     Button2: TButton;     Button3: TButton;     Panel1: TPanel;     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Button3Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   x,y:Real; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin x:=...
Read more

Contoh Potongan Program perhitungan IPK (memakai case)

By
unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls, StdCtrls; type   TForm1 = class(TForm)     Edit1: TEdit;     Edit2: TEdit;     Label1: TLabel;     Label2: TLabel;     Button1: TButton;     Button2: TButton;     Panel1: TPanel;     Button3: TButton;     procedure Button3Click(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Edit1Click(Sender: TObject);     procedure FormClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   IPK:integer; implementation {$R *.dfm} procedure...
Read more

program perhitungan IPK (memakai if...then)

By
unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, ExtCtrls, StdCtrls; type   TForm1 = class(TForm)     Edit1: TEdit;     Edit2: TEdit;     Label1: TLabel;     Label2: TLabel;     Button1: TButton;     Button2: TButton;     Panel1: TPanel;     Button3: TButton;     procedure Button3Click(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);     procedure Edit1Click(Sender: TObject);     procedure FormClick(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   IPK:real; implementation {$R *.dfm} procedure TF...
Read more