Belitung islang is dominated coast with beautiful panoramic views, crystal clear water and white sandy beaches along the coast. Number bay with calm waters make this place ideal for honeymoon couples who enjoy water sports. Stunning scenery on the island of Belitung, perhaps can not be found on another island, this is special about this island, made the place attractive for a romantic honeymoon.


Belitung island Beautiful Tourism Object

yeeeeeahhhh,,, ney dia contoh aplikasi perubahan suhu menggunakan Borland Delphi 7.
lumayan gag perlu itung-itung pake kalkulator.heheheee... :)
moga aj bermanfaat ^^
komponen yang dibutuhkan buat program ini yaitu:
1) 2 buah Groupbox
2) 16 buah label
3) 6 buah edit
4) 5 buah button
5) 2 buah timer
6) 6 buah image

hmmmmm....
gag terlalu mudah tapi asyik juga lho bermain menggunakan Borland Delphi 7 dari pada Borland C++.hadooooooh,,,,bikin pusing klo udah ada yang error #@$$%^&*(*^%$$#@$$&*!$^

Nah tahap selanjutnya tinggal coding-coding deh...
bagian ini yang banyak orang paling gag suka >.<
abis nya bikin pusing *kata orang*hohohoo...

ney dia coding nya :
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Edit1: TEdit;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Edit2: TEdit;
Label7: TLabel;
Edit3: TEdit;
Label8: TLabel;
Label9: TLabel;
Button1: TButton;
Button2: TButton;
Label10: TLabel;
Timer1: TTimer;
Button3: TButton;
GroupBox1: TGroupBox;
Label3: TLabel;
GroupBox2: TGroupBox;
Label11: TLabel;
Label12: TLabel;
Button4: TButton;
Label13: TLabel;
Button5: TButton;
Label14: TLabel;
Label15: TLabel;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Timer2: TTimer;
Label16: TLabel;
Image5: TImage;
Image6: TImage;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
var c,r,f : real;
begin
c :=strtoint(edit1.Text);
r := 4/5*c;
f := (9/5*c)+32;
edit3.Text :=floattostr(r);
edit2.Text :=floattostr(f);

end;
procedure TForm1.Button4Click(Sender: TObject);
var c,r,f : real;
begin
r := strtoint(edit4.Text);
c := 5/4*r;
f := (9/4*r)+32;
edit6.Text :=floattostr(c);
edit2.Text :=floattostr(f);

end;

procedure TForm1.Button5Click(Sender: TObject);
var c,r,f : real;
begin
f := strtoint(edit5.Text);
c := (f-32)/(9/5);
r := (f-32)/(9/4);
edit6.Text :=floattostr(c);
edit3.Text :=floattostr(r);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text :='0';
edit2.Text :='0';
edit3.Text :='0';
edit4.Text :='0';
edit5.Text :='0';
edit6.Text :='0';
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label10.Left = 400 then label10.Left := -107;
label10.Left := label10.Left-1;
if image1.Left = 400 then image1.Left := -107;
image1.Left := image1.Left+1;
if image2.Top = 400 then image2.Top := -107;
image2.Top := image2.Top+1;
if image5.Left = 400 then image5.Left := -107;
image5.Left := image5.Left+1;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if image3.Left = 400 then image3.Left := -107;
image3.Left := image3.Left-1;
if image4.Top = 400 then image4.Top := -107;
image4.Top := image4.Top+1;
if image6.Top = 400 then image6.Top := -107;
image6.Top := image6.Top-1;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
showmessage
('***........MATUR NUWUN......PARENG......***');
CLOSE;
end;
end.



moga bisa bermanfaat.OKEY.....

Bila waktu terus memanggil

Agar dua hati dapat menyatu

Bukan aku tak ingin cinta

Tapi aku takut menyakitimu

Dan kini aku jauh darimu

Ada yang hilang dari hatiku

Cinta tak dapat ditebak apa maunya hati

Salahkah kita

Bukan maksud menduakanmu

Aku tak ingin mendustai hati

Aku juga mencintaimu

Ku menjauh hanya untuk berfikir

Dan kini aku jauh darimu

Ada yang hilang dari hatiku

Letih memandang wajah hari

Yang memanduku tuk mencarimu

Cinta tak dapat ditebak apa maunya hati

Salahkah kita

Hanya tak bisa dustai hati untuk mencinta

Salahkah kita

Bukan aku tak ingin cinta

Tapi aku takut menyakitimu

Dan kini aku jauh darimu

Ada yang hilang dari hatiku

Letih memandang wajah hari

Yang memanduku tuk mencarimu

Cinta tak dapat ditebak apa maunya hati

Salahkah kita

Hanya tak bisa dustai hati untuk mencinta

Salahkah kita

Biarlah semua kini kita berpisah

Namun hati kita tetap menyatu

Ku sangat rindu ingin bertemu sampai

Tujuh purnama ku tetap menunggu

Bila waktu terus memanggil

Lirik lagu Robin Hood feat. Asmirandah – Salahkah Kita ini dipersembahkan oleh LirikLaguIndonesia.Net. Kunjungi DownloadLaguIndonesia.Net untuk download MP3 Robin Hood feat. Asmirandah – Salahkah Kita.

Tadi pagi,,,aKu kuRang berSemangaT uNtuK siaRan. SeLama 10 meNiT aKu menDengaRkaN ceRamaH daRi Anggi meNgeNai deFiNiSi pRofesiOnaLisMe.
BaHwaSanYa,,,,seoRang penYiaR haRuS biSa aCtiNg. No maTTeR hOw haRd iS youR pRobLeM,,,yOu muSt KeeP youR sMiLinG voiCe.

SuDaH seLaMa dUa miNggu ini aKu meNgHaBisKan waKtu deNgaN beKeRja,,PuLaNg,,MeLaMun,,daN beRsediH. aKu baRu saJa diToLaK dAn iNi yaNg peRtaMa kaLinya teRjaDi daLam hiDupKu...
aKu kePenGen heBoH,,,paTaH haTi beRLebiHan deNgaN meNanGis teRsenDu-seNdu,,,meNeLpoN seMua oRaNg miNta diPerHatiKaN,,, daN laiN seBaGainya. Itu Kan yaNg SeLaLu Ku laKukAn jiKa puTus daRi seSeoRanG. naMun,,,kaLi iNi beRbeDa. aKu meNyiMpaNnya seoRaNg diRi. aKu tiDak maU aDa yaNg taHu, kaReNa iNi saNgat meMaLuKan.... “KARENINA RATURANDANG”,,diToLaK pRia(baca: TenTaRa)...

Ini HaRus maSuK MURI. kaLau peRLu,,, GuiNeSS BooK oF ReCoRd. MeNyeBaLKan. aKu iNgIn berHenTi MeMiKiRkan dia, taPi tiDaK biSa. LaGiPuLa,,,aPa siH keLebiHan Dia saMpAi aKu haRus meMiLikinya????oRaNgnya kaKu,,,koNseRvatiVe nGGaK jeLaS,,,oToRiTeR.

HiKssssss..... NaMun,,, diA kaRismaTik seKaLi. peRtaMa aKu meLihaTnya, aKu taHu diA iTu tiPiKaL mAn wiTh poWeR. I LoVe tHat KiNd oF Man. saTu haL iTu saJa suDaH memBuaTku meRaSa cuKuP daN aKu tiDaK peDuLi deNGan haL LaiNnya.

aStaGaaaaa,,, aPa yaNg aKu laKuKan???daRipaDa meLamuN, LeBiH baiK aKu meNguSaHaKan SesuaTu aGaR aKu biSa meNdaPatKan ciNtanya...
StRaTegi,,, iTu yaNg aKu peRLuKan. YaH,,,aKu aKaN meLakuKan aPaPuN uNtuK menDaPatKannnya. buKan KARENINA naMaKu kaLau aKu menYeraH beGiTu saJa.

KuNyaLaKan KoMputeRku,, memBuKa seaRcH eNgiNe,,, laLu meNgeTiK: “Persit Kartika Candra Kirana”. taK baNyaK iNfoRmaSi meNgeNai haL iTu. HaNya aDa bebeRaPa laPoRan keGiaTan DaN fuNGsi oRgaNiSaSi yaNg peRnaH Ku LiHat seBeLumnya. InTinya,,,TuGaS iStRi pRajuRiT aDaLah memBiNa keLuaRganya di BiDaNg meNtaL,,, FisiK,,,,keSejaHteRaan,,,Dan moRiL. LiHat saJa,,,aKu paSti beRhaSiL.

aBaNg taK laGi maU meNghuBunGiKu. sMs daN teLpoN daRiKu taK diGuBriSnya. SePeRtinya,,,aKu aKan segeRa kehiLanGan dia.HAAAAAAAAAH!!!! KaTanya beRsaHaBaT. beRsaHaBaT aPa?????
***********************