cara membuat calculator dan pembelajaran dasar delphi2010

Cara membuat calculator di lengkapi dengan acecoris pembelajaran dasar 

menggunakan delphi 2010

Oleh:

JOKO TURWANTO

NIM : 2011.15.458.0016

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNIK

UNIVERSITAS WAHIDIYAH

KEDIRI 2012

sebelumnya jangan kagetya karna latihan kali ini lumayan banyak yang kita kerjakan tapi jangan kawatir karna jika kita bisa di bab ini insya allah kita akan mudah membuat program apapun karna di bab ini banyak banget contoh yang bisa kita ambil.

Untuk langkah awal kita bisa membuat form utama terlebih dahulu komponennya antara lain : desain gambar atur secantik mungkin sesuai keinginan kita untuk panel di letakan di paling bawah.

Nama Komponen	Caption	Nama
Form3	Sign In	Form1
Tlabel	Nama	-
Tlabel	Pasword	-
Tedit	-	Nama
Tedit	-	Pasword
Button	Ok	-
Tpanel	-	Waktu
Ttimer	-	Timer1

Untuk form utamama masukan kode seperti di bawah ini pilih kode yang terletak di bawah form kan ada tiga pilihan  yaitu kode,  design dan histori klik satu kali di kode  pastikan kode sama persis di bawah ini

Form utama

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Nama: TEdit;

    Pasword: TEdit;

    Button1: TButton;

    waktu1: TPanel;

    Timer1: TTimer;

    procedure Button1Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}

Lalu untuk meng aktifkan button klik 2x pada button dan masukan kode seperti di bawah ini: dan untuk Nama dan Pasword yang berwarna merah bisa kita ubah sesuai yang kita inginkan.

procedure TForm1.Button1Click(Sender: TObject);

begin

        if (nama.Text<>'ji')Or (Pasword.Text<>'jo') then

        begin

            messageDlg(' Nama Atau Pasword Yang Anda Masukan Salah',MtWarning,[Mbok],0);

            Exit

            end;

            form2.show

end;

Lalu untuk meng aktifkan timer klik 2x pada timer dan masukan kode seperti di bawah ini:

procedure TForm1.Timer1Timer(Sender: TObject);

begin

       waktu1.Caption:=FormatDateTime('dddd, dd mmmm yyyy (hh:mm:ss)',Now);

end;

end.

Untuk tahapan pertama sudah jadi dech mudahkan mari kita lanjutkan ke tahapan berikutnya ini lumayan harus sedikit lebih konsentrasi dari pada proses tahapan form utama tadi harus lebih teliti dan telaten so salah titik saja bisa pengaruh bahka dalam pengisian item pada combobox salah space saja tidak terproses nama yang ada di combobox tapi tenang pada delphi 2010 diluar items pada combobox ini mudah di cari erornya apabila ada kesalahan atau eror kode yang kita masukan maka ada garis bawahnya berwarna merah berati kode masih belum cocok atau eror mudah bukan, next kita masuk ke form2

Form2

Untuk form kedua tidak jauh beda dengan yang pertama masukan form dengan klic file yang terletak di pojok atas kiri kita pilih menu menu dan pilih form-delphi, usahakan tampilan sebagus mungkin  ini ye terkecuali photos ye ..hehehehehehe,,,,nekt kita lansung saja mulai

Nama Komponen	caption	Name
Form2	Calculator Mini	Form2
button	0	Joko0
button	1	Joko1
button	2	Joko2
button	3	Joko3
button	4	Joko4
button	5	Joko5
button	6	Joko6
button	7	Joko7
button	8	Joko8
button	9	Joko9
button	M	JokoM
button	Phi	JokoPhi
button	Ln	JokoLn
button	Log	JokoLog
button	+ (Plus)	JokoPlus
button	Off	JokoOff
button	Pangkat	JokoPangkat
button	On	JokoOn
button	Mod	JokoMod
button	.(Poin)	JokoPoin
button	=(SamaDengan)	JokoSamaDengan
button	-(Min)	JokoMin
button	X(Kali)	JokoKali
button	/(Bagi)	JokoBagi
button	Akar	JokoAkar
button	Kuadrat	JokoKuadrat
button	Per	JokoPer
button	Dif	JokoDif
button	Fak	JokoFak
button	Ok	JokoOk
Tmemo	0	Memo1
TRadioButton	JokoDeg	JokoDeg
TRadioButton	JokoRad	JokoRad
TRadioButton	JokoGrads	JokoGrads
TComboBox	JokoSizeDesainProgramer	JokoSizeDesainProgramer
TComboBox	JokoColorSize	JokoColorSize
TComboBox	JokoWarnaByground	JokoWarnaByground
TComboBox	JokoImage	JokoImage
TComboBox	JokoMiringTebalGbawah	JokoMiringTebalGbawah
TProgressBar	-	AudioBar
Tbutton	-	JokoExit
Timage	-	Image1
Timage	-	Image2
Timage	-	Image3
Timage	-	Image4
Timage	-	Image5
Tlabel	Uniwa	Label1
Tlabel	DsrnRi	Label2
Tlabel	Desain By Joko Tirwanto	Label3
Tlabel	Programer Delphi	Label4
Tlabel	-	Label5
Tlabel	Mp3	label6
Ttimer	-	Timer1
Ttimer	-	Timer2
Ttimer	-	Timer3
Ttimer	-	Timer4
Ttimer	-	Timer5
Ttimer	-	Timer6
Ttimer	-	Timer7
Tbutton	Stop Gulung	Button1
Tpanel	-	waktu2
TMediaPlayer	-	AudioPlayer1
TFileListBox	Pada Properti FileLis di isi FileListBox1	FileListBox1
TdriveComboBox	-	DriveComboBox1
TdirectoryListBox	Pada properti Dirlist di isi  DirectoryListBox1	DirectoryListBox1
TfilterComboBox	-	FilterComboBox1
Tbutton	Ok	JokoOk
Tbutton	Profil	JokoProfil

Untuk form kedua pastikan  kode seperti di bawah ini pilih kode yang terletak di bawah form kan ada tiga pilihan  yaitu kode,  design dan histori klik satu kali di kode  priksa apakan komponen yang kita masukan ke dalam form tadi sama persis di bawah ini jika konponen sama seperti di bawah ini namun button timer dan yang lainya tidak ber urutan itu tidak jadi masalah dan nkode di bawah ini tidak perlu kita masukan secara manuall karna sudah langsung muncul secara otomatis seketika kita masukan komponen pada form mudah bukan, dan untuk prosedur kita ga boleh bingung karna nanti akan keluar secara otomatis apabila komponen sudah kita aktifkan (di beri even),

unit Unit2;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls, ExtCtrls, ComCtrls, MPlayer, Buttons, jpeg, FileCtrl;

type

  TForm2 = class(TForm)

    JokoProfil: TButton;

    JokoM: TButton;

    JokoPhi: TButton;

    Joko7: TButton;

    Joko8: TButton;

    JokoLn: TButton;

    Joko9: TButton;

    JokoLog: TButton;

    JokoPlus: TButton;

    JokoOff: TButton;

    JokoPangkat: TButton;

    JokoOn: TButton;

    JokoMod: TButton;

    Joko4: TButton;

    Joko1: TButton;

    Joko0: TButton;

    Joko5: TButton;

    Joko2: TButton;

    JokoPoin: TButton;

    Joko6: TButton;

    Joko3: TButton;

    JokoSamadengan: TButton;

    JokoMin: TButton;

    JokoKali: TButton;

    JokoBagi: TButton;

    JokoAkar: TButton;

    JokoKuadrat: TButton;

    JokoPer: TButton;

    JokoDiv: TButton;

    Jokofak: TButton;

    JokoOk: TButton;

    Memo1: TMemo;

    JokoDeg: TRadioButton;

    JokoRad: TRadioButton;

    JokoGrads: TRadioButton;

    JokoSizeDesainProgramer: TComboBox;

    JokoColorSize: TComboBox;

    JokoWarnaByground: TComboBox;

    JokoImage: TComboBox;

    JokoMiringTebalGbawah: TComboBox;

    AudioBar: TProgressBar;

    JokoExit: TButton;

    Image1: TImage;

    Image2: TImage;

    Image3: TImage;

    Image4: TImage;

    Image5: TImage;

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Timer1: TTimer;

    Timer2: TTimer;

    Timer3: TTimer;

    Timer5: TTimer;

    Timer6: TTimer;

    Label5: TLabel;

    Button1: TButton;

    waktu2: TPanel;

    Timer7: TTimer;

    AudioPlayer1: TMediaPlayer;

    FileListBox1: TFileListBox;

    DriveComboBox1: TDriveComboBox;

    DirectoryListBox1: TDirectoryListBox;

    FilterComboBox1: TFilterComboBox;

    Label6: TLabel;

    Timer4: TTimer;

    procedure JokoProfilClick(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure Joko3Click(Sender: TObject);

    procedure Joko2Click(Sender: TObject);

    procedure Joko1Click(Sender: TObject);

    procedure Joko0Click(Sender: TObject);

    procedure Joko4Click(Sender: TObject);

    procedure Joko5Click(Sender: TObject);

    procedure Joko6Click(Sender: TObject);

    procedure Joko7Click(Sender: TObject);

    procedure Joko8Click(Sender: TObject);

    procedure Joko9Click(Sender: TObject);

    procedure JokoAkarClick(Sender: TObject);

    procedure JokoBagiClick(Sender: TObject);

    procedure JokoKaliClick(Sender: TObject);

    procedure JokoMinClick(Sender: TObject);

    procedure JokoPlusClick(Sender: TObject);

    procedure JokoModClick(Sender: TObject);

    procedure JokoDivClick(Sender: TObject);

    procedure JokoExitClick(Sender: TObject);

    procedure JokofakClick(Sender: TObject);

    procedure JokoKuadratClick(Sender: TObject);

    procedure JokoLnClick(Sender: TObject);

    procedure JokoOffClick(Sender: TObject);

    procedure JokoOnClick(Sender: TObject);

    procedure JokoPangkatClick(Sender: TObject);

    procedure JokoPerClick(Sender: TObject);

    procedure JokoSamadenganClick(Sender: TObject);

    procedure JokoPoinClick(Sender: TObject);

    procedure JokoPhiClick(Sender: TObject);

    procedure JokoMClick(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure Timer3Timer(Sender: TObject);

    procedure Timer5Timer(Sender: TObject);

    procedure Timer6Timer(Sender: TObject);

    procedure Timer2Timer(Sender: TObject);

    procedure JokoMiringTebalGbawahChange(Sender: TObject);

    procedure JokoWarnaBygroundChange(Sender: TObject);

    procedure JokoSizeDesainProgramerChange(Sender: TObject);

    procedure JokoColorSizeChange(Sender: TObject);

    procedure JokoImageChange(Sender: TObject);

    procedure JokoLogClick(Sender: TObject);

    procedure JokoOkClick(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure Timer7Timer(Sender: TObject);

    procedure FileListBox1Click(Sender: TObject);

    procedure FileListBox1DblClick(Sender: TObject);

    procedure Timer4Timer(Sender: TObject);

  private

    { Private declarations }

  Public

Tambahkan kode seperti di bawah ini

  Tukar, Score, Tanya : Integer;

    { Public declarations }

  end;

var

masukan kode di bawah ini untuk membantu proses atau kerja dari koponen yang kita masukan kedalam form

  Form2: TForm2;

  posisi:integer;

  bawah:Bool;

  MemAngka,MemLogic,MemOperator,MemSimpan:string;

    paused: boolean;

PathMP3: string;

implementation

uses Unit3;

{$R *.dfm}

nah kita lanjutkan ke tahab berikutnya, meng aktifkan komponen-komponen yang ada di form2 pilih Design yang terletak di paling bawah atau yang ber jajar tadi antara kode,  design dan histori  lalu klik 2x pada button 1 yang captionya Stop Gulung masukan kode persis seperti di bawah ini ,

procedure TForm2.Button1Click(Sender: TObject);

begin

timer2.Enabled:=false;

end;

kita lanjutkan berikutnya, pilih Design yang terletak di paling bawah atau yang ber jajar tadi antara kode,  design dan histori  lalu klik 2x pada Filelisbox1 atau pilih even yang terletak di samping properti lalu klik dua kali pada on click masukan kode persis seperti di bawah ini

procedure TForm2.FileListBox1Click(Sender: TObject);

begin

AudioPlayer1.FileName:=FileListbox1.FileName;

AudioPlayer1.Open;

Label6.Caption:=FileListbox1.FileName;

AudioBar.Max:=AudioPlayer1.Length;

end;

masih di Filelisbox1 pilih even yang terletak di samping properti lalu pilih DblClick kemudian kllik 2x dan masukan kode seperti di bawah ini

procedure TForm2.FileListBox1DblClick(Sender: TObject);

begin

AudioPlayer1.FileName:=FileListbox1.FileName;

AudioPlayer1.Open;

label6.Caption:=Filelistbox1.FileName;

Audiobar.Max:=AudioPlayer1.Length;

AudioPlayer1.Play;

End;

lalu klik 2x pada Form2 dan masukan kode seperti di bawah ini

procedure TForm2.FormCreate(Sender: TObject);

begin

paused := false;

posisi:=23;

label3.Left:=5;

Label3.Top:=50;

bawah:=true;

jokoOk.Caption:='Gulung Form';

Timer2.Enabled:=false;

Timer2.Interval:=100;

memo1.Clear;{mengosongkan caption/lines dari memo1}

{menonaktifkan ketiga radiobutton}

jokoDEG.Enabled:=false;

jokoRAD.Enabled:=false;

jokoGRADS.Enabled:=false;

end;

kta aktifkan button yang captionya 0 pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.Joko0Click(Sender: TObject);

begin

if memo1.Text<>'' then

if memlogic='0' then

begin

  memlogic:='1';

  if memoperator<>'' then memo1.Text:='0'else

  memo1.Text:='0';

  end

  else

  memo1.Text:=memo1.Text+'0';

end;

kta aktifkan button yang captionya 1 pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.Joko1Click(Sender: TObject);

begin

if memo1.Text<>'' then

if memlogic='0' then

begin

  memlogic:='1';

  if memoperator<>'' then memo1.Text:='1'else

  memo1.Text:='1';

  end

  else

  memo1.Text:=memo1.Text+'1';

end;

kta aktifkan button yang captionya 2 pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.Joko2Click(Sender: TObject);

begin

if memo1.Text<>'' then

if memlogic='0' then

begin

  memlogic:='1';

  if memoperator<>'' then memo1.Text:='2'else

  memo1.Text:='2';

  end

  else

  memo1.Text:=memo1.Text+'2';

end;

kta aktifkan button yang captionya 3 pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.Joko3Click(Sender: TObject);

begin

if memo1.Text<>'' then

if memlogic='0' then

begin

  memlogic:='1';

  if memoperator<>'' then memo1.Text:='3'else

  memo1.Text:='3';

  end

  else

  memo1.Text:=memo1.Text+'3';

end;

kta aktifkan button yang captionya 4 pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.Joko4Click(Sender: TObject);

begin

if memo1.Text<>'' then

if memlogic='0' then

begin

  memlogic:='1';

  if memoperator<>'' then memo1.Text:='4'else

  memo1.Text:='4';

  end

  else

  memo1.Text:=memo1.Text+'4';

end;

kta aktifkan button yang captionya 5 pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.Joko5Click(Sender: TObject);

begin

if memo1.Text<>'' then

if memlogic='0' then

begin

  memlogic:='1';

  if memoperator<>'' then memo1.Text:='5'else

  memo1.Text:='5';

  end

  else

  memo1.Text:=memo1.Text+'5';

end;

kta aktifkan button yang captionya 6 pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.Joko6Click(Sender: TObject);

begin

if memo1.Text<>'' then

if memlogic='0' then

begin

  memlogic:='1';

  if memoperator<>'' then memo1.Text:='6'else

  memo1.Text:='6';

  end

  else

  memo1.Text:=memo1.Text+'6';

end;

kta aktifkan button yang captionya 7 pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.Joko7Click(Sender: TObject);

begin

if memo1.Text<>'' then

if memlogic='0' then

begin

  memlogic:='1';

  if memoperator<>'' then memo1.Text:='7'else

  memo1.Text:='7';

  end

  else

  memo1.Text:=memo1.Text+'7';

end;

kta aktifkan button yang captionya 8 pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.Joko8Click(Sender: TObject);

begin

if memo1.Text<>'' then

if memlogic='0' then

begin

  memlogic:='1';

  if memoperator<>'' then memo1.Text:='8'else

  memo1.Text:='8';

  end

  else

  memo1.Text:=memo1.Text+'8';

end;

kta aktifkan button yang captionya 9 pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.Joko9Click(Sender: TObject);

begin

if memo1.Text<>'' then

if memlogic='0' then

begin

  memlogic:='1';

  if memoperator<>'' then memo1.Text:='9'else

  memo1.Text:='9';

  end

  else

  memo1.Text:=memo1.Text+'9';

end;

kta aktifkan button yang captionya Akar pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.JokoAkarClick(Sender: TObject);

begin

if memo1.text<>''then

memo1.Text:=floattostr(sqrt(strtofloat(memo1.Text)));

end;

kta aktifkan button yang captionya / pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.JokoBagiClick(Sender: TObject);

begin

if (memo1.text<>'') then

if MemLogic='0' then MemOperator:='/' else

if (MemOperator='')  then

begin

MemOperator:='-';

MemLogic:='0';

MemAngka:=memo1.Text;

end

else

begin

if MemOperator='+' then memo1.Text:=floattostr(strtofloat(MemAngka)+strtofloat(memo1.Text));

if MemOperator='-' then memo1.Text:=floattostr(strtofloat(MemAngka)-strtofloat(memo1.Text));

if MemOperator='x' then memo1.Text:=floattostr(strtofloat(MemAngka)*strtofloat(memo1.Text));

if MemOperator='/' then memo1.Text:=floattostr(strtofloat(MemAngka)/strtofloat(memo1.Text));

if MemOperator='mod' then memo1.Text:=inttostr(strtoint(MemAngka) mod strtoint(memo1.Text));

if MemOperator='div' then memo1.Text:=inttostr(strtoint(MemAngka)div strtoint(memo1.Text));

if MemOperator='^' then memo1.Text:=floattostr(exp(strtofloat(memo1.Text)*ln(strtofloat(MemAngka))));

MemAngka:=memo1.Text;

MemOperator:='-';

MemLogic:='0';

end;

end;

kta aktifkan ComboBox yang captionya ColorSize pada ComboBox yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.JokoColorSizeChange(Sender: TObject);

begin

if JokoColorSize.Text='MERAH' then label3.Font.Color:=(clred);

if JokoColorSize.Text='HIJAU' then label3.Font.Color:=(CLTEAL);

if JokoColorSize.Text='KUNING' then label3.Font.Color:=(clYELLOW);

if JokoColorSize.Text='BIRU' then label3.Font.Color:=(clBLUE);

if JokoColorSize.Text='HIJAU DAUN' then label3.Font.Color:=(clLIME);

if JokoColorSize.Text='PUTIH' then label3.Font.Color:=(clCREAM);

if JokoColorSize.Text='HITAM' then label3.Font.Color:=(clBLACK);

if JokoColorSize.Text='UNGU' then label3.Font.Color:=(CLPURPLE);

if JokoColorSize.Text='PINK' then label3.Font.Color:=(CLFUCHSIA);

if JokoColorSize.Text='COKLAT' then label3.Font.Color:=(CLMAROON);

end;

kta aktifkan button yang captionya Div pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.JokoDivClick(Sender: TObject);

begin

if (memo1.text<>'') then

if MemLogic='0' then MemOperator:='Div' else

if (MemOperator='')  then

begin

MemOperator:='-';

MemLogic:='0';

MemAngka:=memo1.Text;

end

else

begin

if MemOperator='+' then memo1.Text:=floattostr(strtofloat(MemAngka)+strtofloat(memo1.Text));

if MemOperator='-' then memo1.Text:=floattostr(strtofloat(MemAngka)-strtofloat(memo1.Text));

if MemOperator='x' then memo1.Text:=floattostr(strtofloat(MemAngka)*strtofloat(memo1.Text));

if MemOperator='/' then memo1.Text:=floattostr(strtofloat(MemAngka)/strtofloat(memo1.Text));

if MemOperator='mod' then memo1.Text:=inttostr(strtoint(MemAngka) mod strtoint(memo1.Text));

if MemOperator='div' then memo1.Text:=inttostr(strtoint(MemAngka)div strtoint(memo1.Text));

if MemOperator='^' then memo1.Text:=floattostr(exp(strtofloat(memo1.Text)*ln(strtofloat(MemAngka))));

MemAngka:=memo1.Text;

MemOperator:='-';

MemLogic:='0';

end;

end;

kta aktifkan button yang captionya Exit pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.JokoExitClick(Sender: TObject);

begin

Tanya := Application.MessageBox('Aakah Anda Ingin Keluar Dari Program?',

'Confirmation', MB_YESNO + MB_ICONQUESTION);

if Tanya = 6 then

begin

Application.MessageBox('Terima Kaih banyak Telah Menggunakan Program Ini'

, 'Byee. .Byee..', MB_OK + MB_ICONINFORMATION);

Application.Terminate;

end;

end;

kta aktifkan button yang captionya Fak pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.JokofakClick(Sender: TObject);

var i,n,fak:integer;

begin

if memo1.Text<>'' then

begin

n  :=strtoint(memo1.Text);

fak:=1;

for i:=1 to n-1 do

fak:=fak*n;

memo1.Text:=inttostr(fak);

MemLogic :='0';

end;

end;

kta aktifkan ComboBox yang captionya ImageChange pada ComboBox yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

ingat didalam proprti Combobox pilih  items kita haru bikin tek sesuai dengan yang akan kita clic agar ketika kita klick maka tek akan berubah seperti yang kita ingin kan pada saat i play atau proses caranya clic combobox lalu pilih item pada properti klic pada (...) dan masukan tex

AQ DAN MYFRIEND'

UNIWA

TASBIH

ALLAH

BAGUS

GURUN

TENGKORAK

KOMPUTER

LOGO UNIWA

KENANGAN

B.POWEL

PANCASILA

NONE

catatan image yang kita panggil harus  di komputer dan sesuai prosedur seperti format di bawah ini contoh imageya ada di E folder OUTBOND PRAMUKA folder FOTO EDIT nama image AQ lalu format image BMP jika image tidak ada pada computer maka hasilnya tidak bisa kita nikmati kalau punya saya di sini formatnya seperti di bawah ini

procedure TForm2.JokoImageChange(Sender: TObject);

begin

if JokoImage.Text='AQ DAN MYFRIEND' then

IMAGE2.PICTURE.LOADFROMFILE('E:/OUTBOND PRAMUKA/FOTO EDIT/AQ.BMP');

if JokoImage.Text='UNIWA' then IMAGE2.PICTURE.LOADFROMFILE('E:/OUTBOND PRAMUKA/FOTO EDIT/UNIWA.BMP');

if JokoImage.Text='TASBIH' then IMAGE2.PICTURE.LOADFROMFILE('E:/OUTBOND PRAMUKA/FOTO EDIT/TASBIH.BMP');

if JokoImage.Text='ALLAH' then IMAGE2.PICTURE.LOADFROMFILE('E:/OUTBOND PRAMUKA/FOTO EDIT/ALLAH.BMP');

if JokoImage.Text='BAGUS' then IMAGE2.PICTURE.LOADFROMFILE('E:/OUTBOND PRAMUKA/FOTO EDIT/PROFIL.BMP');

if JokoImage.Text='GURUN' then IMAGE2.PICTURE.LOADFROMFILE('E:/OUTBOND PRAMUKA/FOTO EDIT/editor.BMP');

if JokoImage.Text='TENGKORAK' then IMAGE2.PICTURE.LOADFROMFILE('E:/OUTBOND PRAMUKA/FOTO EDIT/kkhg.BMP');

if JokoImage.Text='KOMPUTER' then IMAGE2.PICTURE.LOADFROMFILE('E:/OUTBOND PRAMUKA/FOTO EDIT/jdv.BMP');

if JokoImage.Text='LOGO UNIWA' then IMAGE2.PICTURE.LOADFROMFILE('E:/OUTBOND PRAMUKA/FOTO EDIT/uniwa.BMP');

if JokoImage.Text='KENANGAN' then IMAGE2.PICTURE.LOADFROMFILE('E:/OUTBOND PRAMUKA/FOTO EDIT/kenangan.BMP');

if JokoImage.Text='B.POWEL' then IMAGE2.PICTURE.LOADFROMFILE('E:/OUTBOND PRAMUKA/FOTO EDIT/z.BMP');

if JokoImage.Text='PANCASILA' then IMAGE2.PICTURE.LOADFROMFILE('E:/OUTBOND PRAMUKA/FOTO EDIT/OK.BMP');

if JokoImage.Text='NONE' then IMAGE2.Picture.Icon;

end;

kta aktifkan button yang captionya X pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.JokoKaliClick(Sender: TObject);

begin

if (memo1.text<>'') then

if MemLogic='0' then MemOperator:='*' else

if (MemOperator='')  then

begin

MemOperator:='-';

MemLogic:='0';

MemAngka:=memo1.Text;

end

else

begin

if MemOperator='+' then memo1.Text:=floattostr(strtofloat(MemAngka)+strtofloat(memo1.Text));

if MemOperator='-' then memo1.Text:=floattostr(strtofloat(MemAngka)-strtofloat(memo1.Text));

if MemOperator='x' then memo1.Text:=floattostr(strtofloat(MemAngka)*strtofloat(memo1.Text));

if MemOperator='/' then memo1.Text:=floattostr(strtofloat(MemAngka)/strtofloat(memo1.Text));

if MemOperator='mod' then memo1.Text:=inttostr(strtoint(MemAngka) mod strtoint(memo1.Text));

if MemOperator='div' then memo1.Text:=inttostr(strtoint(MemAngka)div strtoint(memo1.Text));

if MemOperator='^' then memo1.Text:=floattostr(exp(strtofloat(memo1.Text)*ln(strtofloat(MemAngka))));

MemAngka:=memo1.Text;

MemOperator:='-';

MemLogic:='0';

end;

end;

kita aktifkan button yang captionya Kuadrat pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.JokoKuadratClick(Sender: TObject);

begin

if memo1.text<>'' then

memo1.Text:=floattostr(sqr(strtofloat(memo1.Text)));

end;

kta aktifkan button yang captionya Ln pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.JokoLnClick(Sender: TObject);

begin

if (memo1.text<>'') then

memo1.Text := floattostr(ln(strtofloat(memo1.Text)));

end;

procedure TForm2.JokoLogClick(Sender: TObject);

begin

memo1.Text := MemSimpan ;

end;

kta aktifkan button yang captionya M pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.JokoMClick(Sender: TObject);

begin

MemSimpan := memo1.Text ;

MemLogic := '0';

MemOperator :='';

MemAngka := '0';

end;

kta aktifkan button yang captionya - pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.JokoMinClick(Sender: TObject);

begin

if (memo1.text<>'') then

if MemLogic='0' then MemOperator:='-' else

if (MemOperator='')  then

begin

MemOperator:='-';

MemLogic:='0';

MemAngka:=memo1.Text;

end

else

begin

if MemOperator='+' then memo1.Text:=floattostr(strtofloat(MemAngka)+strtofloat(memo1.Text));

if MemOperator='-' then memo1.Text:=floattostr(strtofloat(MemAngka)-strtofloat(memo1.Text));

if MemOperator='x' then memo1.Text:=floattostr(strtofloat(MemAngka)*strtofloat(memo1.Text));

if MemOperator='/' then memo1.Text:=floattostr(strtofloat(MemAngka)/strtofloat(memo1.Text));

if MemOperator='mod' then memo1.Text:=inttostr(strtoint(MemAngka) mod strtoint(memo1.Text));

if MemOperator='div' then memo1.Text:=inttostr(strtoint(MemAngka)div strtoint(memo1.Text));

if MemOperator='^' then memo1.Text:=floattostr(exp(strtofloat(memo1.Text)*ln(strtofloat(MemAngka))));

MemAngka:=memo1.Text;

MemOperator:='-';

MemLogic:='0';

end;

end;

kta aktifkan ComboBox yang captionya MiringTebalGbawah pada ComboBox yang kita masukan kedalam form kemudian pilih even dan kita pilih on change jadi seketik kita click texnya akan berganti secara otomatis clic 2x dan masukan kode

ingat didalam proprti Combobox pilih  items kita haru bikin tek sesuai dengan yang akan kita clic agar ketika kita klick maka tek akan berubah seperti yang kita ingin kan pada saat i play atau proses caranya clic combobox lalu pilih item pada properti klic pada (...) dan masukan tex

Gbawah,Tebal,Miring 

garis Bawah,Miring

Garis Bawah,Tebal

Garis Bawah

Miring

Tebal

Masukan kode seperti di bawah ini :

procedure TForm2.JokoMiringTebalGbawahChange(Sender: TObject);

begin

if JokoMiringTebalGbawah.Text='Gbawah,Tebal,Miring  ' then label3.Font.Style:=[fsunderline,fsbold,fsitalic];

if JokoMiringTebalGbawah.Text='garis Bawah,Miring' then label3.Font.Style:=[fsunderline,fsitalic];

if JokoMiringTebalGbawah.Text='Garis Bawah,Tebal' then label3.Font.Style:=[fsunderline,fsbold];

if JokoMiringTebalGbawah.Text='Miring,Tebal' then label3.Font.Style:=[fsbold,fsitalic];

if JokoMiringTebalGbawah.Text='Garis Bawah,Tebal' then label3.Font.Style:=[fsunderline,fsbold];

if JokoMiringTebalGbawah.Text='Garis Bawah' then label3.Font.Style:=[fsunderline];

if JokoMiringTebalGbawah.Text='Miring' then label3.Font.Style:=[fsitalic];

if JokoMiringTebalGbawah.Text='Tebal' then label3.Font.Style:=[fsbold];

end;

kta aktifkan button yang captionya Mod pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.JokoModClick(Sender: TObject);

begin

if (memo1.text<>'') then

if MemLogic='0' then MemOperator:='Mod' else

if (MemOperator='')  then

begin

MemOperator:='-';

MemLogic:='0';

MemAngka:=memo1.Text;

end

else

begin

if MemOperator='+' then memo1.Text:=floattostr(strtofloat(MemAngka)+strtofloat(memo1.Text));

if MemOperator='-' then memo1.Text:=floattostr(strtofloat(MemAngka)-strtofloat(memo1.Text));

if MemOperator='x' then memo1.Text:=floattostr(strtofloat(MemAngka)*strtofloat(memo1.Text));

if MemOperator='/' then memo1.Text:=floattostr(strtofloat(MemAngka)/strtofloat(memo1.Text));

if MemOperator='mod' then memo1.Text:=inttostr(strtoint(MemAngka) mod strtoint(memo1.Text));

if MemOperator='div' then memo1.Text:=inttostr(strtoint(MemAngka)div strtoint(memo1.Text));

if MemOperator='^' then memo1.Text:=floattostr(exp(strtofloat(memo1.Text)*ln(strtofloat(MemAngka))));

MemAngka:=memo1.Text;

MemOperator:='-';

MemLogic:='0';

end;

end;

kta aktifkan button yang captionya Off pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.JokoOffClick(Sender: TObject);

begin

memo1.clear; {mengosongkan tampilan layar calculator}

MemLogic:='';

MemSimpan :='0';

{menonaktifkan ketiga radiobutton}

jokoDEG.Checked  :=false;

jokoRAD.Checked  :=false;

jokoGRADS.Checked:=false;

end;

kta aktifkan button yang captionya Ok pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.JokoOkClick(Sender: TObject);

begin

timer2.Enabled:=true;

end;

kta aktifkan button yang captionya On pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.JokoOnClick(Sender: TObject);

begin

{setting ketika tombol on ditekan}

Memo1.Text:='0';

{membuat layar kalkulator berisi angka 0}

MemLogic:='0';

{merubah nilai variable MemLogic menjadi 0}

MemOperator :='';

{mengosongkan nilai variable MemOperator}

MemAngka :='0';

{merubah nilai variable MemAngka menjadi 0}

{mengaktifkan kembali ketiga radiobutton}

jokoDEG.Enabled:=true;

jokoRAD.Enabled:=true;

jokoGRADS.Enabled:=true;

jokoDEG.Checked:=true; {mengecek radiobutton jokoDeg}

end;

kta aktifkan button yang captionya Pangkat pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.JokoPangkatClick(Sender: TObject);

begin

if (memo1.text<>'') then

if MemLogic='0' then MemOperator:='^' else

if (MemOperator='') then

begin

MemOperator:='^';

MemLogic:='0';

MemAngka:=memo1.Text;

end

else

begin

if MemOperator='+' then memo1.Text:=floattostr(strtofloat(MemAngka)+strtofloat(memo1.Text));

if MemOperator='-' then memo1.Text:=floattostr(strtofloat(MemAngka)-strtofloat(memo1.Text));

if MemOperator='x' then memo1.Text:=floattostr(strtofloat(MemAngka)*strtofloat(memo1.Text));

if MemOperator='/' then memo1.Text:=floattostr(strtofloat(MemAngka)/strtofloat(memo1.Text));

if MemOperator='mod' then memo1.Text:=inttostr(strtoint(MemAngka) mod strtoint(memo1.Text));

if MemOperator='div' then memo1.Text:=inttostr(strtoint(MemAngka)div strtoint(memo1.Text));

if MemOperator='^' then memo1.Text:=floattostr(exp(strtofloat(memo1.Text)*ln(strtofloat(MemAngka))));

MemAngka:=memo1.Text;

MemOperator:='^';

MemLogic:='0';

end;

end;

kta aktifkan button yang captionya Per pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.JokoPerClick(Sender: TObject);

begin

if memo1.Text = '0' then memo1.Text:='Error divide zero' else

if memo1.Text<>'' then memo1.Text :=floattostr(1/strtofloat(memo1.Text));

MemLogic :='0';

end;

kta aktifkan button yang captionya Phi pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.JokoPhiClick(Sender: TObject);

begin

if memo1.Text<>'' then memo1.Text := floattostr(pi);

end;

kta aktifkan button yang captionya + pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.JokoPlusClick(Sender: TObject);

begin

if (memo1.text<>'') then

if MemLogic='0' then MemOperator:='+' else

if (MemOperator='')  then

begin

MemOperator:='-';

MemLogic:='0';

MemAngka:=memo1.Text;

end

else

begin

if MemOperator='+' then memo1.Text:=floattostr(strtofloat(MemAngka)+strtofloat(memo1.Text));

if MemOperator='-' then memo1.Text:=floattostr(strtofloat(MemAngka)-strtofloat(memo1.Text));

if MemOperator='x' then memo1.Text:=floattostr(strtofloat(MemAngka)*strtofloat(memo1.Text));

if MemOperator='/' then memo1.Text:=floattostr(strtofloat(MemAngka)/strtofloat(memo1.Text));

if MemOperator='mod' then memo1.Text:=inttostr(strtoint(MemAngka) mod strtoint(memo1.Text));

if MemOperator='div' then memo1.Text:=inttostr(strtoint(MemAngka)div strtoint(memo1.Text));

if MemOperator='^' then memo1.Text:=floattostr(exp(strtofloat(memo1.Text)*ln(strtofloat(MemAngka))));

MemAngka:=memo1.Text;

MemOperator:='-';

MemLogic:='0';

end;

end;

kta aktifkan button yang captionya Poin pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.JokoPoinClick(Sender: TObject);

begin

if memo1.text<>'' then

memo1.Text:=memo1.Text + '.';

end;

kta aktifkan button yang captionya Profil pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.JokoProfilClick(Sender: TObject);

begin

form3.show;

end;

kta aktifkan button yang captionya = pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.JokoSamadenganClick(Sender: TObject);

begin

if MemOperator='+' then memo1.Text:=floattostr(strtofloat(MemAngka)+strtofloat(memo1.Text));

if MemOperator='-' then memo1.Text:=floattostr(strtofloat(MemAngka)-strtofloat(memo1.Text));

if MemOperator='x' then memo1.Text:=floattostr(strtofloat(MemAngka)*strtofloat(memo1.Text));

if MemOperator='/' then memo1.Text:=floattostr(strtofloat(MemAngka)/strtofloat(memo1.Text));

if MemOperator='mod' then memo1.Text:=inttostr(strtoint(MemAngka) mod strtoint(memo1.Text));

if MemOperator='div' then memo1.Text:=inttostr(strtoint(MemAngka)div strtoint(memo1.Text));

if MemOperator='^' then memo1.Text:=floattostr(exp(strtofloat(memo1.Text)*ln(strtofloat(MemAngka))));

MemAngka:=memo1.Text;

MemLogic:='0';

end;

kta aktifkan Combobox yang captionya SizeDesainProgramer pada Combobox yang kita masukan kedalam form kemudian pilih even onchane clic 2x dan masukan kode

ingat didalam proprti Combobox pilih  items kita haru bikin tek sesuai dengan yang akan kita clic agar ketika kita klick maka tek akan berubah seperti yang kita ingin kan pada saat i play atau proses caranya clic combobox lalu pilih item pada properti klic pada (...) dan masukan tex ini untuk label3 yang captionya Desain By Joko Turwanto

5

8

10

11

12

14

16

18

20

21

22

24

26

28

30

35

40

45

50

55

60

ini untuk label4 yang captionya ProgramerDelphi

5

8

10

11

12

14

masukan kode seperti di bawah ini

procedure TForm2.JokoSizeDesainProgramerChange(Sender: TObject);

begin

if JokoSizeDesainProgramer.Text='5' then label3.font.Size:=5;

if JokoSizeDesainProgramer.Text='8' then label3.font.Size:=8;

if JokoSizeDesainProgramer.Text='10' then label3.font.Size:=10;

if JokoSizeDesainProgramer.Text='11' then label3.font.Size:=11;

if JokoSizeDesainProgramer.Text='12' then label3.font.Size:=12;

if JokoSizeDesainProgramer.Text='14' then label3.font.Size:=14;

if JokoSizeDesainProgramer.Text='16' then label3.font.Size:=16;

if JokoSizeDesainProgramer.Text='18' then label3.font.Size:=18;

if JokoSizeDesainProgramer.Text='20' then label3.font.Size:=20;

if JokoSizeDesainProgramer.Text='21' then label3.font.Size:=21;

if JokoSizeDesainProgramer.Text='22' then label3.font.Size:=22;

if JokoSizeDesainProgramer.Text='24' then label3.font.Size:=24;

if JokoSizeDesainProgramer.Text='26' then label3.font.Size:=26;

if JokoSizeDesainProgramer.Text='28' then label3.font.Size:=28;

if JokoSizeDesainProgramer.Text='30' then label3.font.Size:=30;

if JokoSizeDesainProgramer.Text='35' then label3.font.Size:=35;

if JokoSizeDesainProgramer.Text='40' then label3.font.Size:=40;

if JokoSizeDesainProgramer.Text='45' then label3.font.Size:=45;

if JokoSizeDesainProgramer.Text='50' then label3.font.Size:=50;

if JokoSizeDesainProgramer.Text='55' then label3.font.Size:=55;

if JokoSizeDesainProgramer.Text='60' then label3.font.Size:=60;

if JokoSizeDesainProgramer.Text='5' then label4.font.Size:=5;

if JokoSizeDesainProgramer.Text='8' then label4.font.Size:=8;

if JokoSizeDesainProgramer.Text='10' then label4.font.Size:=10;

if JokoSizeDesainProgramer.Text='11' then label4.font.Size:=11;

if JokoSizeDesainProgramer.Text='12' then label4.font.Size:=12;

if JokoSizeDesainProgramer.Text='14' then label4.font.Size:=14;

end;

kta aktifkan Combobox yang captionya WarnaByground pada Combobox yang kita masukan kedalam form kemudian pilih even onchane clic 2x dan masukan kode

ingat didalam proprti Combobox pilih  items kita haru bikin tek sesuai dengan yang akan kita clic agar ketika kita klick maka tek akan berubah seperti yang kita ingin kan pada saat i play atau proses caranya clic combobox lalu pilih item pada properti klic pada (...) dan masukan tex

MERAH

TEAL

KUNING

BIRU

HIJAU

PUTIH

HITAM

UNGU

PINK

COKLAT

Lalu masukan kode seperti di bawah ini

procedure TForm2.JokoWarnaBygroundChange(Sender: TObject);

begin

if JokoWarnaByground.Text='MERAH' then form2.Color:=(clred);

if JokoWarnaByground.Text='TEAL' then form2.Color:=(CLTEAL);

if JokoWarnaByground.Text='KUNING' then form2.Color:=(clYELLOW);

if JokoWarnaByground.Text='BIRU' then form2.Color:=(clBLUE);

if JokoWarnaByground.Text='HIJAU DAUN' then form2.Color:=(clLIME);

if JokoWarnaByground.Text='PUTIH' then form2.Color:=(clCREAM);

if JokoWarnaByground.Text='HITAM' then form2.Color:=(clBLACK);

if JokoWarnaByground.Text='UNGU' then form2.Color:=(CLPURPLE);

if JokoWarnaByground.Text='PINK' then form2.Color:=(CLFUCHSIA);

if JokoWarnaByground.Text='COKLAT' then form2.Color:=(CLMAROON);

end;

kta aktifkan Timer1 yang  yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.Timer1Timer(Sender: TObject);

begin

if label4.Left <= 150 then

label4.Left := label4.Left + 20

else

label4.Left := 0;

end;

kta aktifkan Timer2 yang  yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.Timer2Timer(Sender: TObject);

begin

if Form2.Height>1 then

  Form2.Height:=Form2.Height-1;

end;

kta aktifkan Timer3 yang  yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.Timer3Timer(Sender: TObject);

begin

if bawah=true then

posisi:=posisi+35

else

posisi:=posisi-0;

if posisi>430 then

bawah:=false;

Label3.Top:=posisi;

end;

kta aktifkan Timer4 yang  yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.Timer4Timer(Sender: TObject);

begin

if Label6.Left<-Label6.Width then

Label6.Left:=Width

else

label6.Left:=label6.Left-1;

Audiobar.Position:=AudioPlayer1.Position;

end;

kta aktifkan Timer5 yang  yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.Timer5Timer(Sender: TObject);

begin

IMAGE3.PICTURE.LOADFROMFILE('E:/OUTBOND PRAMUKA/image/uniwa wahidiyah.BMP');

IMAGE5.PICTURE.LOADFROMFILE('E:/OUTBOND PRAMUKA/image/v.BMP');

IMAGE5.PICTURE.LOADFROMFILE('E:/OUTBOND PRAMUKA/foto edit/ok.BMP');

if image3.Visible=true then image3.Visible:=false

else

image3.Visible:=true;

if image4.Visible=true then image4.Visible:=false

else

if image5.Visible=true then image5.Visible:=false

else

image5.Visible:=true;

end;

kta aktifkan Timer6 yang  yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.Timer6Timer(Sender: TObject);

begin

label1.Font.color:=rgb(random(255),random(255),random(255));

label2.Font.color:=rgb(random(255),random(255),random(255));

label5.caption:=('');

if label1.Visible=true then label1.Visible:=false

else

label1.Visible:=true;

if label5.Visible=true then label5.Visible:=false

else

if label2.Visible=true then label2.Visible:=false

else

label2.Visible:=true;

end;

kta aktifkan Timer7 yang  yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm2.Timer7Timer(Sender: TObject);

begin

  waktu2.Caption:=FormatDateTime('dddd, dd mmmm yyyy (hh:mm:ss)',Now);

end;

end.

Untuk image 1, 3, 5. Kita langsung saja masukan imagenya terlebih dahulu yaitu dengan cara klic image pilih properti picture  klic2x (...) baru kita cari imagnya.

Untuk tahapan Form2 sudah jadi lumayan melelahkan yea walaupun mudah dan ada contoh sebab banyak komponen yang kita pakai dan kita aktifkan mari kita lanjutkan ke tahapan berikutnya ini juga lumayan harus sedikit teliti tpi lebih mudah dari tahapan yang kedua tadi, pada proses tahapan form3 ini kita juga harus teliti dan sabar so salah titik saja juga bisa berpengaruh tapi tenang pada delphi 2010 ini mudah di cari erornyako apabila ada kesalahan atau eror kode yang kita masukan maka ada garis bawahnya berwarna merah berati kode masih belum cocok dan masih eror mudah bukan, next kita masuk ke form3 sekarang ini tahapan terahir kita

Form3

Untuk form ketiga tidak jauh beda dengan yang kedua masukan form dengan klic file yang terletak di pojok atas kiri kita pilih menu menu dan pilih form-delphi, usahakan tampillan selalu kelihatan bagus  ye ,,,nekt kita lansung saja mulai

Nama komponen	Caption	Name
Tlabel	Nama	Label1
Tlabel	Alamat	Label2
Tlabel	Jenis Kelamin	Label3
Tlabel	Agama	Label4
Tlabel	Pekerjaan	Label5
Tlabel	Pesan	Label6
Tlabel	Hoby	Label7
Tlabel	Ttl	Label8
Tlabel	E_mail	Label9
Tlabel	facebook	Label10
Tlabel	:	Label11
Tlabel	:	Label12
Tlabel	:	Label13
Tlabel	:	Label14
Tlabel	:	Label15
Tlabel	:	Label16
Tlabel	:	Label17
Tlabel	:	Label18
Tlabel	:	Label19
Tlabel	:	Label20
Tlabel	-	Label21
TButton	?	Button1
Tbutton	?	Button2
Tbutton	?	Button3
Tbutton	?	Button4
Tbutton	?	Button5
Tbutton	?	Button6
Tbutton	?	Button7
Tbutton	?	Button8
Tbutton	?	Button9
TButton	?	Button10
Tdirectorylistbox	Pada properti Dirlist di   isi  DirectoryListBox1	directorylistbox
TdriveCombobox		driveCombobox2
TImage	-	Image1
TImage	-	Image2
Tfilelistbox	Pada Properti FileLis di isi FileListBox2	Filelistbox2
TMediaPlayer	-	VideoPlayer
TProgressBar	-	VideoBar
TfilterCombobox	-	filterCombobox1
Ttimer	-	Timer1
Ttimer	-	Timer2

Untuk form ketiga pastikan  kode seperti di bawah ini pilih kode yang terletak di bawah form kan ada tiga pilihan  yaitu kode,  design dan histori klik satu kali di kode  priksa apakan komponen yang kita masukan ke dalam form tadi sama persis di bawah ini jika konponen sama seperti di bawah ini namun button timer dan yang lainya tidak ber urutan itu tidak jadi masalah dan nkode di bawah ini tidak perlu kita masukan secara manuall karna sudah langsung muncul secara otomatis seketika kita masukan komponen pada form mudah bukan, dan untuk prosedur kita ga boleh bingung karna nanti akan keluar secara otomatis apabila komponen sudah kita aktifkan (di beri even) untuk form3 setiap button kita beri 2 iven yang pertama on click dan yang kedua on mouse mos artinya iver yang pertama akan menjalankan perintah apabila kita klik dan untuk iven yang kedua akan menjalankan perintah atau bekerja apabila mouse kita dekatkan. Ok langsung saja

Unit Unit3

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls, jpeg, ComCtrls, MPlayer, FileCtrl;

type

  TForm3 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    Label8: TLabel;

    Label9: TLabel;

    Label10: TLabel;

    Label11: TLabel;

    Label12: TLabel;

    Label13: TLabel;

    Label14: TLabel;

    Label15: TLabel;

    Label16: TLabel;

    Label17: TLabel;

    Label18: TLabel;

    Label19: TLabel;

    Label20: TLabel;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    Button5: TButton;

    Button6: TButton;

    Button7: TButton;

    Button8: TButton;

    Button9: TButton;

    Button10: TButton;

    Image1: TImage;

    Label21: TLabel;

    Image2: TImage;

    waktu3: TPanel;

    Timer1: TTimer;

    Timer2: TTimer;

    Label22: TLabel;

    AudioPlayer2: TMediaPlayer;

    DriveComboBox2: TDriveComboBox;

    FilterComboBox1: TFilterComboBox;

    FileListBox2: TFileListBox;

    DirectoryListBox2: TDirectoryListBox;

    AudioBar1: TProgressBar;

    procedure Button1Click(Sender: TObject);

    procedure Button1MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Button2MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Button2Click(Sender: TObject);

    procedure Button3MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Button3Click(Sender: TObject);

    procedure Button4MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Button4Click(Sender: TObject);

    procedure Button5MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Button5Click(Sender: TObject);

    procedure Button6MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Button6Click(Sender: TObject);

    procedure Button7MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Button7Click(Sender: TObject);

    procedure Button8MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Button8Click(Sender: TObject);

    procedure Button9MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Button9Click(Sender: TObject);

    procedure Button10MouseMove(Sender: TObject; Shift: TShiftState; X,

      Y: Integer);

    procedure Button10Click(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

    procedure Timer2Timer(Sender: TObject);

    procedure FileListBox2Click(Sender: TObject);

    procedure FileListBox2DblClick(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form3: TForm3;

implementation

{$R *.dfm}

Pertama kita aktifkan buuton yang evenya on click yang captionya ?  yang sejajar dengan pesan pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm3.Button10Click(Sender: TObject);

begin

LABEL21.Caption:=('Jngn Trlalu Brharp Bnyk Pd Orng Lain Trkadng Orng Yg Kt Hrapkn Tdk Ad N Tdk Peduli Saat Kt Membtuhkanya.');

end;

Kemudian kita aktifkan buuton yang evenya on mouse move yang captionya ?  yang sejajar dengan pesan pada button yang kita masukan kedalam form kemudian clic 2x pada even on mouse move dan masukan kode seperti di bawah ini catatan: image yang kita masukan harus sesuai prosedur seperti di bawah ini E:/OUTBOND PRAMUKA/profil/UI.BMp untuk nama gambar ttl hoby dll bisa kita ubah sesuai kesukaan kita

procedure TForm3.Button10MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

IMAGE1.PICTURE.LOADFROMFILE ('E:/OUTBOND PRAMUKA/profil/UI.BMp');

end;

kita aktifkan button yang evenya on click yang captionya ?  yang sejajar dengan Nama pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm3.Button1Click(Sender: TObject);

begin

label21.Caption:=('JOKO TURWANTO');

end;

Kemudian kita aktifkan buuton yang evenya on mouse move yang captionya ?  yang sejajar dengan Nama pada button yang kita masukan kedalam form kemudian clic 2x pada even on mouse move dan masukan kode seperti di bawah ini

procedure TForm3.Button1MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

IMAGE1.PICTURE.LOADFROMFILE ('E:/OUTBOND PRAMUKA/profil/joko.BMp');

end;

kita aktifkan button yang evenya on click yang captionya ?  yang sejajar dengan Ttl pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm3.Button2Click(Sender: TObject);

begin

label21.Caption:=('JAYAPURA-22-08-1991');

end;

Kemudian kita aktifkan buuton yang evenya on mouse move yang captionya ?  yang sejajar dengan Ttl pada button yang kita masukan kedalam form kemudian clic 2x pada even on mouse move dan masukan kode seperti di bawah ini

procedure TForm3.Button2MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

IMAGE1.PICTURE.LOADFROMFILE ('E:/OUTBOND PRAMUKA/profil/gt.BMp');

end;

kita aktifkan button yang evenya on click yang captionya ?  yang sejajar dengan Jenis Kelamin pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm3.Button3Click(Sender: TObject);

begin

Label21.Caption:=('LAKI-LAKI');

end;

Kemudian kita aktifkan buuton yang evenya on mouse move yang captionya ?  yang sejajar dengan Jeis  Kelamin pada button yang kita masukan kedalam form kemudian clic 2x pada even on mouse move dan masukan kode seperti di bawah ini

procedure TForm3.Button3MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

IMAGE1.PICTURE.LOADFROMFILE ('E:/OUTBOND PRAMUKA/profil/LAKI.BMp');

end;

kita aktifkan button yang evenya on click yang captionya ?  yang sejajar dengan Alamat pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm3.Button4Click(Sender: TObject);

begin

LABEL21.Caption:=('PROV.RIAU KAB.SIAK S.I.P. KEC.BUNGARAYA DS.BERTUAH')

end;

Kemudian kita aktifkan buuton yang evenya on mouse move yang captionya ?  yang sejajar dengan Alamat pada button yang kita masukan kedalam form kemudian clic 2x pada even on mouse move dan masukan kode seperti di bawah ini

procedure TForm3.Button4MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

IMAGE1.PICTURE.LOADFROMFILE ('E:/OUTBOND PRAMUKA/profil/RIAU.BMp');

end;

kita aktifkan button yang evenya on click yang captionya ?  yang sejajar dengan Agama pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm3.Button5Click(Sender: TObject);

begin

LABEL21.Caption:=('ISLAM');

end;

Kemudian kita aktifkan buuton yang evenya on mouse move yang captionya ?  yang sejajar dengan Agama pada button yang kita masukan kedalam form kemudian clic 2x pada even on mouse move dan masukan kode seperti di bawah ini

procedure TForm3.Button5MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

IMAGE1.PICTURE.LOADFROMFILE ('E:/OUTBOND PRAMUKA/profil/GRAFI.BMp');

end;

kita aktifkan button yang evenya on click yang captionya ?  yang sejajar dengan Pekerjaan pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm3.Button6Click(Sender: TObject);

begin

label21.Caption:=('KULIAH');

end;           

Kemudian kita aktifkan buuton yang evenya on mouse move yang captionya ?  yang sejajar dengan Pekerjaan pada button yang kita masukan kedalam form kemudian clic 2x pada even on mouse move dan masukan kode seperti di bawah ini

procedure TForm3.Button6MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

IMAGE1.PICTURE.LOADFROMFILE ('E:/OUTBOND PRAMUKA/profil/Teknik.BMp');

end;

kita aktifkan button yang evenya on click yang captionya ?  yang sejajar dengan Hoby pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm3.Button7Click(Sender: TObject);

begin

LABEL21.Caption:=('PAMUKA, BERPETUALANG DLL');

end;

Kemudian kita aktifkan buuton yang evenya on mouse move yang captionya ?  yang sejajar dengan Hoby pada button yang kita masukan kedalam form kemudian clic 2x pada even on mouse move dan masukan kode seperti di bawah ini

procedure TForm3.Button7MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

IMAGE1.PICTURE.LOADFROMFILE ('E:/OUTBOND PRAMUKA/profil/SIRUS.BMp');

end;

kita aktifkan button yang evenya on click yang captionya ?  yang sejajar dengan E_mail pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm3.Button8Click(Sender: TObject);

begin

LABEL21.Caption:=('JOE_SCOUT@YMAIL.COM');

end;

Kemudian kita aktifkan buuton yang evenya on mouse move yang captionya ?  yang sejajar dengan E_mail pada button yang kita masukan kedalam form kemudian clic 2x pada even on mouse move dan masukan kode seperti di bawah ini

procedure TForm3.Button8MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

IMAGE1.PICTURE.LOADFROMFILE ('E:/OUTBOND PRAMUKA/profil/JAR.BMp');

end;

kita aktifkan button yang evenya on click yang captionya ?  yang sejajar dengan Facebook pada button yang kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm3.Button9Click(Sender: TObject);

begin

label21.Caption:=('Niko Artu Tujuh Tujuhbelas');

end;

Kemudian kita aktifkan buuton yang evenya on mouse move yang captionya ?  yang sejajar dengan Facebook pada button yang kita masukan kedalam form kemudian clic 2x pada even on mouse move dan masukan kode seperti di bawah ini

procedure TForm3.Button9MouseMove(Sender: TObject; Shift: TShiftState; X,

  Y: Integer);

begin

IMAGE1.PICTURE.LOADFROMFILE ('E:/OUTBOND PRAMUKA/profil/s.BMp');

end;

kita aktifkan Filelisbox yang evenya on click kita masukan kedalam form kemudian clic 2x dan masukan kode seperti di bawah ini

procedure TForm3.FileListBox2Click(Sender: TObject);

begin

AudioPlayer2.FileName:=FileListbox2.FileName;

AudioPlayer2.Open;

Label22.Caption:=FileListbox2.FileName;

AudioBar1.Max:=AudioPlayer2.Length;

end;

Kemudian kita Filelisbox yang evenya DblClick yang kita masukan kedalam form kemudian clic 2x pada even DblClick dan masukan kode seperti di bawah ini

procedure TForm3.FileListBox2DblClick(Sender: TObject);

begin

AudioPlayer2.FileName:=FileListbox2.FileName;

AudioPlayer2.Open;

label22.Caption:=Filelistbox2.FileName;

Audiobar1.Max:=AudioPlayer2.Length;

AudioPlayer2.Play;

end;

kita aktifkan timer1 dengan cara kita click 2x pada timer1 kemudia masukan kode seperti di bawah ini

procedure TForm3.Timer1Timer(Sender: TObject);

begin

  waktu3.Caption:=FormatDateTime('dddd, dd mmmm yyyy (hh:mm:ss)',Now);

end;

kita aktifkan timer2 dengan cara kita click 2x pada timer1 kemudia masukan kode seperti di bawah ini

procedure TForm3.Timer2Timer(Sender: TObject);

begin

if Label22.Left<-Label22.Width then

Label22.Left:=Width

else

label22.Left:=label22.Left-1;

Audiobar1.Position:=AudioPlayer2.Position;

end;

end

.

Demikian tadi proses pembuatan calculator mini beserta aksesorisnya untuk pembelajaran sudah kita selesaikan mudah bukan saya sarnkan buat yang masih belajar tahapan awal buatlah sama persis seperti gambar di atas, kecuali gambar kalau untuk gambar bisa di sesuaikan  dengan yang ada di komputer anda atau laptop anda dan saya yakin buat yang sudah terbiasa bermain dengan kode pemograman ini sangat mudah untuk di buat dan saya yakin saudara2 semua bisa membuat lebih dari apa yang saya buat karna ini sangat sederhana untuk di buat bagi pemula bisa ber komunikasi di

selamat mencoba

g_mail   :dprwscout717@gmail.com

blok       :designprogram717.blokspot.com

no hp    : 082302577717