Borland Delphi merupakan bahasa yang berbasis Object Pascal dari Borland. Selain itu, Delphi memberikan
fasilitas pembuatan aplikasi baik berbasis visual maupun konsol. Delphi merupakan pilihan dalam pembuatan aplikasi visual
karena memberikan produktifitas yang tinggi. Delphi 7 memberikan fasilitas untuk dua platform, yaitu Windows dan Linux.
E-book 36 Jam Belajar Komputer Delphi 7 ini dibuat agar Anda dapat mempelajari, memahami, mencoba dan melatih penggunaan fasilitas-fasilitas
Delphi 7 secara mudah dan cepat sesuai dengan kebutuhan. Namun, saya hanya bisa memberikan versi pendeknya saja alias review nya.
Tetapi patut juga untuk anda downlaod.
Rumput segar yang baru dipotong melepaskan senyawa kimia yang bila terhirup akan membuat rileks dan gembira. Itulah sebabnya, mencium aroma rumput dan tumbuhan ketika sedang berjalan di taman atau pegunungan akan membuat kita merasa nyaman.
Hal ini diungkapkan oleh para peneliti dari University of Queensland, Brisbane, Australia. Senyawa kimia yang terkandung dalam aroma rumput selain bisa meredakan ketegangan juga berfungsi mencegah penurunan kemampuan mental pada saat usia lanjut.
Ilmuwan mengklaim bahwa aroma yang dilepaskan rumput bekerja langsung pada otak. Terutama mempengaruhi bagian otak bernama amygdala dan hippocampus yang berhubungan dengan emosi dan daya ingat.
"Kedua area ini bertanggung jawab dalam respons pertahanan dan sistem endokrin, yang mengontrol pelepasan hormon stres seperti corticosteroid," kata Dr Nick Lavidis, seperti dikutip dari Science Alert, Kamis (3/9/2009).
Oleh karenanya, penelitian yang memakan waktu hingga tujuh tahun ini kemudian menciptakan parfum dengan aroma rumput yang baru dipangkas untuk membantu melepaskan stres dan meningkatkan daya ingat.
Lavidis kemudian menjelaskan bahwa stres terbagi dalam dua kategori. Pertama, stres ketika seseorang akan melakukan sesuatu atau saat seseorang harus berusaha sebaik mungkin demi mendapatkan hasil terbaik. Namun menurut Lavidis, stres ini disebut sebagai bentuk stres yang baik.
Sementara stres kategori kedua merupakan stres parah yang bisa memicu tingginya tekanan darah, sifat pelupa, dan melemahkan sistem kekebalan tubuh.
"Stres jenis ini bisa merusak hippocampus dengan mengurangi hubungan antara sel-sel yang berkomunikasi sehingga berdampak pada hilangnya ingatan," kata Lavidis.
Untuk itu, Lavidis menyarankan agar orang yang terkena stres ini menghirup senyawa kimia yang dilepaskan oleh rumput segar atau pepohonan yang rindang.
begin
if Num=0 then
Kata:='Nol '
else begin
Str(Num:15:2,S);
One:=1; Two:=2; Tri:=3; Hitung:=1; Kata:='';
while Hitung < 5 do begin
Satu:=Copy(S,One,1);
Dua:=Copy(S,Two,1);
Tiga:=Copy(S,Tri,1);
Gabung:=Satu+Dua+Tiga;
Val(Satu,V1,Err);
if V1=1 then
Kata:=Kata+'Seratus ';
if V1>1 then
Kata:=Kata+Angka[V1]+'Ratus ';
Val(Dua,V2,Err);
Val(Tiga,V3,Err);
if V2=1 then begin
Belas:=Dua+Tiga;
Val(Belas,VBelas,Err);
Kata:=Kata+Angka[VBelas];
end else begin
if V2>1 then
Kata:=Kata+Angka[V2]+'Puluh '+Angka[V3]
else begin
if (V2=0)and(V3>0) then begin
if ((Hitung=3)and(Gabung='001'))or
((Hitung=3)and(Gabung=' 1')) then
Kata:=Kata+'Seribu '
else
Kata:=Kata+Angka[V3];
end;
end;
end;
Val(Gabung, VGabung, Err);
if (Hitung=1)and(VGabung>0) then
Kata:=Kata+'Milyar ';
if (Hitung=2)and(VGabung>0) then
Kata:=Kata+'Juta ';
if (Hitung=3)and(VGabung>0) then begin
if (Gabung='001')or(Gabung=' 1') then
Kata:=Kata+''
else
Kata:=Kata+'Ribu ';
end;
Inc(Hitung);
Inc(One,3);
Inc(Two,3);
Inc(Tri,3);
end;
end;
Result:= Kata;
end;
Fungsi ini di dapat dari buku DBase III+, kemudian saya sesuaikan dengan Bahasa Pascal.
Prosedur untuk menampilkan dan menutup form menggunakan animasi.
procedure brAnimasiTivi(FForm:TForm; Muncul:Boolean);
var
i,j,k,l:Integer;
hs : array [0..600] of hrgn;
begin
j:=0;i:=0;l:=0;
//--- Muncul
if Muncul then begin
for k:=0 to 599 do begin
if (j+2<(FForm.Height div 2)) then begin j:=j+2; if j>(FForm.height div 2) then i:=FForm.width;
hs[k]:=CreateRectRgn(i,j,FForm.width-i,FForm.height-j);
end else if (i+6<(FForm.Height div 2)) then begin j:=j+2; if j>(FForm.height div 2) then
i:=FForm.width;
hs[k]:=CreateRectRgn(i,j,FForm.width-i,FForm.height-j);
end else if (i+6
i:=i+8;
hs[k]:=CreateRectRgn(i,j,FForm.width-i,FForm.height-j);
end else begin
l:=k;
break;
end;//if
end;//for
for i:=0 to l do begin
SetWindowRgn(FForm.handle,hs[i],true);
sleep(5);
end;
SetWindowRgn(FForm.handle,CreateRectRgn(0,0,0,0),true);
end;//if
end;
Berikut contoh penggunaannya:
procedure TfmAnim.FormCreate(Sender: TObject);
begin
brAnimasiTivi(Self, True);
end;
untuk kawan-kawan delphier yang lagi cari tentang program faktorial...
ni ku cuba kasih sedikit pencerahan atau berbagi pengalaman gitu...
ni ku buat yang standard ja yach...
pertama kita desain dulu formnya...
seperi gambar nie...
disini ku cuba pake' pagecontrol untuk tempat dari macam- macam program perulangan...dan panel-panel untuk memperindah tampilan....
dan image tentunya,,,
procedure TUTAMA.Button3Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TUTAMA.Button2Click(Sender: TObject);
begin
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
Edit1.SetFocus; end; //"script diatas untuk membersihkan edit1,edit2dan edit3 yang ada di faktorial"
procedure TUTAMA.Button1Click(Sender: TObject);
var
n : integer;
i : integer;
jumlah : integer;
fak : integer; begin
if trystrtoint(Edit1.Text,n)=false then
begin
showmessage('salah memasukan jumlah n, ulangi!!!');
Edit1.SetFocus;
Edit1.Clear;
exit;
end;
jumlah := 0;
for i:=1 to n do
jumlah := jumlah + i;
fak := 1;
for i:=1 to n do
fak := fak * i;
Edit3.text := inttostr(jumlah);
Edit2.Text := inttostr(fak); end;
//"yang ni...untuk melakukan proses perhitungan perulangan faktorial"...
procedure TUTAMA.RadioButton7Click(Sender: TObject);
VAR
KATA:STRING;
J,K:INTEGER; begin
KATA:=EDTKATA.Text ;
K:=STRTOINT(EDTJUMLAH.Text );
J:=1;
REPEAT
ListBox2.Items.Add(KATA);
J:=J+1;
UNTIL J>K ; end;
//"yang ni...untuk melakukan proses perhitungan perulangan Repeat Until"...
procedure TUTAMA.RadioButton8Click(Sender: TObject);
begin
ListBox2.Clear;
EDTKATA.Text:='';
EDTJUMLAH.Text:='';
end; //"script diatas untuk membersihkan edtkata,edtjumlah dan listbox2 yang ada di Repeat until"
procedure TUTAMA.RadioButton5Click(Sender: TObject);
VAR
I,SAMPAI:INTEGER;
begin
I:=STRTOINT(EDTDARI.Text );
SAMPAI:=STRTOINT(EDTSAMPAI.Text);
WHILE I < SAMPAI DO
BEGIN
ListBox1.Items.Add(INTTOSTR(I));
I:=I+2;
end;
end; //"yang ni...untuk melakukan proses perhitungan perulangan While do"...
procedure TUTAMA.RadioButton6Click(Sender: TObject);
begin
ListBox1.Clear;
EDTDARI.Text:='';
EDTSAMPAI.Text:='';
end; //"script diatas untuk membersihkan listbox1,edtdari dan edtsampai yang ada di while do"
procedure TUTAMA.RadioButton1Click(Sender: TObject);
VAR
I,M:INTEGER;
begin
I:=STRTOINT(Edit7.Text);
M:=STRTOINT(Edit8.Text );
FOR I:=I DOWNTO M DO
BEGIN
IF I MOD 2=0 THEN
ListBox4.Items.Add(INTTOSTR(I));
end;
end; //"yang ni...untuk melakukan proses perhitungan perulangan for down to do"...
procedure TUTAMA.RadioButton12Click(Sender: TObject);
begin
ListBox4.Clear;
EDIT7.Text:='';
EDIT8.Text:='';
end; //"script diatas untuk membersihkan listbox4,edit7 dan edit8 yang ada di for downto do"
procedure TUTAMA.RadioButton9Click(Sender: TObject);
VAR
I,S:INTEGER;
begin
I:=STRTOINT(EDARI.Text);
S:=STRTOINT(ESAMAPI.Text );
FOR I:=I TO S DO
BEGIN
IF I MOD 2=0 THEN
ListBox3.Items.Add(INTTOSTR(I));
END;
end; //"yang ni...untuk melakukan proses perhitungan perulangan For to do"...
procedure TUTAMA.RadioButton10Click(Sender: TObject);
begin
ListBox3.Clear;
EDARI.Text:='';
ESAMAPI.Text:='';
end; //"script diatas untuk membersihkan listbox3,edari dan esampai yang ada di for to do"
procedure TUTAMA.Panel2Click(Sender: TObject);
begin
self.Left:=(utama.ClientWidth-self.ClientWidth )DIV 2;
self.TOP:=(utama.ClientHeight -self.ClientHeight )DIV 2;
end; // "nah nie....untuk membuat form tepat berada di tengah-tengah layar dekstop ketika di run"...
end.
Penulis: Ir. Inge Martina
