Membuat Gradient Form di Delphi

Untuk memperindah tampilan program yang Anda buat, Anda bisa membuat form gradient. Caranya yaitu dengan menambahkan kode pada event OnPaint dari form seperti contoh di bawah ini:
Mau Tahu Caranya Klik Download

Read More..

Bikin Aplikasi SSS (Sangat Sederhana Sekali) dengan Delphi

Baru satu bulan terakhir ini saya diperkenalkan dengan yang namanya pemrograman berorientasi objek. Dan akhirnya saya bisa juga bikin sebuah aplikasi murni olahan tangan saya sendiri, tapi jangan dicela karena aplikasi ini SSS (Sangat Sederhana Sekali. Aplikasi ini berupa kalkulator sederhana dan berikut listing programnya:...

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
procedure Button6Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
bil1, bil2, hasil : Real;

implementation

{$R *.dfm}

procedure TForm1.Button6Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Edit1.text := '0';
Edit2.text := '0';
Edit3.text := '0';
end;

end.

Read More..

Belajar Pascal

Baru - baru ini saya mulai belajar bahasa pemrograman dan yang saya pelajari adalah pascal. Trus ada yang nyuruh saya bikin program pascal untuk perkalian dan pembagian tanpa menggunakan operator perkalian ataupun pembagian, binggung juga sih pertmanya.... tapi Alhamdulillah bisa selesai juga.... Mungkin ini sekedar yang bisa saya sharing ke temen - temen.... sekalian minta komentar dan kritik membangunnya....

USES CRT;

VAR BIL1, BIL2, BIL3, BIL4, HASIL, HASIL2, HASIL3, I:INTEGER;
JAWAB: CHAR;


BEGIN
REPEAT
CLRSCR;

WRITE('KETIK BILANGAN 1 : ');
READLN(BIL1);
WRITE('KETIK BILANGAN 2 : ');
READLN(BIL2);
WRITE('KETIK BILANGAN 3 : ');
READLN(BIL3);
WRITE('KETIK BILANGAN 4 : ');
READLN(BIL4);

{PERHITUNGAN BILANGAN 1 DIBAGI BILANGAN 2}
HASIL:=BIL1;
I:=1;

WHILE BIL1 > BIL2 DO

BEGIN
HASIL:= HASIL - BIL2;
I:=I+1;
END;


{PERHITUNGAN HASIL PEMBAGIAN BILANGAN 1 DAN 2 DIKALI BILANGAN 3}
HASIL2:=0;
HASIL:=I;
I:=0;
FOR I:= 1 TO BIL3 DO HASIL2:= HASIL2+HASIL;


{PERHITUNGAN HASIL PERKALIAN DARI HASIL PEMBAGIAN BILANGAN 1 DAN 2 DIKALI BILANGAN 3 DENGAN BILANGAN 4}
HASIL3:=0;
FOR I:= 1 TO BIL4 DO HASIL3:= HASIL3+HASIL2;
WRITELN;
WRITELN;
WRITELN;
WRITELN;
WRITELN(BIL1,' : ',BIL2,' x ',BIL3,' x ',BIL4,' = ',HASIL3);
WRITELN;
WRITELN;
WRITE('TEKAN HURUF Y UNTUK HITUNG LAGI: ');READLN(JAWAB);
UNTIL UPCASE(JAWAB) <> 'Y';

END.

Read More..