Terbiasa Sendiri!

Terpaksa aku sendiri
Sementara saja kini
Bersabar kan datang hari
Meskipun ku lelah

Aku takut kamu tak mengerti
Caraku sampaikan rasa ini
Kamu tak mengerti
 
Ajarkan aku tuk bisa dapat ungkapkan rasa
Agar kamu kan percaya begitu ku butuh cinta

Kembali lagi terulang
Tergores hatiku ini
Setelah lama menyimpan rasa ini
Terlalu dalam, terlalu dalam

Ajarkan aku tuk bisa dapat ungkapkan rasa
Agar kamu kan percaya begitu ku butuh cinta
Ajarkan aku tuk bisa dapat merangkai kata
Agar kamu kan dengarkan bibirku katakan cinta sekarang

Aku takut kamu tak mengerti 
Caraku sampaikan rasa ini
Kamu tak mengerti

Ajarkan aku tuk bisa dapat ungkapkan rasa
Agar kau percaya
Agar kamu kan percaya begitu ku butuh cinta 
Aku butuh cinta
Ajarkan aku tuk bisa dapat merangkai kata
Merangkai kata
Agar kamu kan dengarkan
Bibirku katakan cinta sekarang

Ku benci sendiri, ku benci sendiri, harus terus begini
ku benci sendiri, ku benci sendiri, harus terus begini
ku benci sendiri, ku benci sendiri, takut gagal terus begini 

https://www.youtube.com/watch?v=GSnqbUmvMk4

Cara Mencari Luas & Keliling Bangun Datar Menggunakan Delphi7

Halo Kalian!

Kali ini aku akan memberikan Coding untuk mencari Luas dan Keliling Bangun Datar!

Langusng aja yah, ini dia Codingnya.....

-------------------------------------------------------------------------------------------------------------------

*Belah Ketupat*

Kamu bisa ketikkan Coding yang ada dibawah gambar ini pada tombol ''Hitung'' Seperti yang ada pada gambar dibawah. 

Var d1, d2, Sisi, Luas, Keliling: Real;

begin

    d1:=StrToFloat(edit1.Text);

    d2:=StrToFloat(edit2.Text);

    Luas:=(d1*d2)*0.5;

    Sisi:=StrToFloat(edit3.Text);

    Keliling:=Sisi*4;

    edit4.Text:=FloatToStr(Luas);

    edit5.Text:=FloatToStr(Keliling);

end;

 ------------------------------------------------------------------------------------------------------------------

*Jajar Genjang*

Kamu bisa ketikkan Coding yang ada dibawah gambar ini pada tombol ''Hitung'' Seperti yang ada pada gambar dibawah. 

Var Alas, Tinggi, Sisi, Luas, Keliling: Real;

begin

    Alas:=StrToFloat(edit1.Text);

    Tinggi:=StrToFloat(edit2.Text);

    Luas:=(Alas*Tinggi);

    Sisi:=StrToFloat(edit3.Text);

    Keliling:=Sisi*2;

    edit4.Text:=FloatToStr(Luas);

    edit5.Text:=FloatToStr(Keliling);

end;

 ------------------------------------------------------------------------------------------------------------------

*Layang-Layang*

Kamu bisa ketikkan Coding yang ada dibawah gambar ini pada tombol ''Hitung'' Seperti yang ada pada gambar dibawah. 

Var d1, d2, Sisi, Luas, Keliling: Real;

begin

    d1:=StrToFloat(edit1.Text);

    d2:=StrToFloat(edit2.Text);

    Luas:=(d1*d2)*0.5;

    Sisi:=StrToFloat(edit3.Text);

    Keliling:=Sisi*2;

    edit4.Text:=FloatToStr(Luas);

    edit5.Text:=FloatToStr(Keliling);

end;

-------------------------------------------------------------------------------------------------------------------

*Lingkaran*

Kamu bisa ketikkan Coding yang ada dibawah gambar ini pada tombol ''Hitung'' Seperti yang ada pada gambar dibawah. 

Var radius, diameter, Luas, Keliling: Real;

begin

    radius:=StrToFloat(edit1.Text);

    diameter:=StrToFloat(edit2.Text);

    Luas:=3.14*(radius*radius);

    Keliling:=2*(3.14*radius);

    edit4.Text:=FloatToStr(Luas);

    edit5.Text:=FloatToStr(Keliling);

end;

 ------------------------------------------------------------------------------------------------------------------

*Persegi Panjang*

Kamu bisa ketikkan Coding yang ada dibawah gambar ini pada tombol ''Hitung'' Seperti yang ada pada gambar dibawah. 

Var Panjang, Lebar, Luas, Keliling: Real;

begin

    Panjang:=StrToFloat(edit1.Text);

    Lebar:=StrToFloat(edit2.Text);

    Luas:=Panjang*Lebar;

    Keliling:=(Panjang+Lebar)*2;

    edit3.Text:=FloatToStr(Luas);

    edit4.Text:=FloatToStr(Keliling);

end;

 ------------------------------------------------------------------------------------------------------------------

*Persegi*

Kamu bisa ketikkan Coding yang ada dibawah gambar ini pada tombol ''Hitung'' Seperti yang ada pada gambar dibawah. 

Var s,l,k:real;

begin

s:=strtofloat(edit1.Text);

l:=s*s;

k:=4*s;

edit2.Text:=floattostr(l);

edit3.text:=floattostr(k);

end;

-------------------------------------------------------------------------------------------------------------------

*Segitiga*

Kamu bisa ketikkan Coding yang ada dibawah gambar ini pada tombol ''Hitung'' Seperti yang ada pada gambar dibawah. 

Var Alas, Tinggi, Sisi, Luas, Keliling: Real;

begin

    Alas:=StrToFloat(edit1.Text);

    Tinggi:=StrToFloat(edit2.Text);

    Luas:=0.5*(Alas*Tinggi);

    Sisi:=StrToFloat(edit3.Text);

    Keliling:=Sisi*3;

    edit4.Text:=FloatToStr(Luas);

    edit5.Text:=FloatToStr(Keliling);

end;

-------------------------------------------------------------------------------------------------------------------

*Trapesium*

Kamu bisa ketikkan Coding yang ada dibawah gambar ini pada tombol ''Hitung'' Seperti yang ada pada gambar dibawah. 

Var sisia, sisib, sisic, sisid, tinggi, Luas, Keliling: Real;

begin

    tinggi:=StrToFloat(edit1.Text);

    sisia:=StrToFloat(edit2.Text);

    sisib:=StrToFloat(edit3.Text);

    sisic:=StrToFloat(edit4.Text);

    sisid:=StrToFloat(edit5.Text);

    Luas:=(sisia + sisib)*tinggi*0.5;

    Keliling:=sisia+sisib+sisic+sisid;

    edit6.Text:=FloatToStr(Luas);

    edit7.Text:=FloatToStr(Keliling);

end;

-------------------------------------------------------------------------------------------------------------------

Nah itu aja untuk tombol hitungnya!

Untuk Tombol ''Hapus'' kamu bisa ketikkan Coding ini

edit1.text:=' ';

edit2.text:=' ';

edit3.text:=' ';

Dan seterusnya, tergantung ada berapa banyak ''Edit'' yang ada dalam lembar kerja kamu!

-------------------------------------------------------------------------------------------------------------------

Dan untuk tombol ''Close'' kamu hanya perlu ketikkan

Close;

-------------------------------------------------------------------------------------------------------------------

Naahhh itu aja untuk blog kali ini, semoga bermanfaat dan bisa membantu!

Klik link untuk dokumen DOWNLOAD DISINI

Terima kasih :)

Arti Sahabat :)

Tak mudah untuk kita hadapi
Perbedaan yang berarti
Tak mudah untuk kita lewati
Rintangan silih berganti

Kau masih berdiri
Kita masih di sini
Tunjukkan pada dunia
Arti sahabat

Kau teman sehati
Kita teman sejati
Hadapilah dunia
Genggam tanganku

Tak mudah untuk kita sadari
Saling mendengarkan hati
Tak mudah untuk kita pahami
Berbagi rasa di hati

Kau masih berdiri
Kita masih di sini
Tunjukkan pada dunia
Arti sahabat

Kau teman sehati
Kita teman sejati
Hadapilah dunia
Genggam tanganku

Kau adalah Tempatku membagi kisahku
Kau sempurna
Jadi bagian hidupku
Apapun kekuranganmu

Kau masih berdiri
Kita masih di sini
Tunjukkan pada dunia
Arti sahabat

Kau teman sehati
Kita teman sejati
Hadapilah dunia
Genggam tanganku

I'll let you go~

Tak mungkin menyalahkan waktu
Tak mungkin menyalahkan keadaan
Kau datang di saat ku membutuhkanmu
Dari masalah hidupku bersamanya

Semakin ku menyayangimu
Semakin ku harus melepasmu dari hidupku
Tak ingin lukai hatimu lebih dari ini
Kita tak mungkin trus bersama

Suatu saat nanti kau kan dapatkan
Seorang yang akan dampingi hidupmu
Biarkan ini menjadi kenangan
Dua hati yang tak pernah menyatu

Semakin ku menyayangimu
Semakin ku harus melepasmu dari hidupku
Tak ingin lukai hatimu lebih dari ini
Kita tak mungkin trus bersama

 

Maafkan aku yang biarkanmu
Masuk ke dalam hidupku ini
Maafkan aku yang harus melepasmu
Walau ku tak ingin

Semakin terasa cintamu
Semakin ku harus melepasmu dari hidupku
Tak ingin lukai hatimu lebih dari ini
Kita tak mungkin trus bersama

Semakin terasa cintamu
Semakin ku harus melepasmu dari hidupku
Tak ingin lukai hatimu lebih dari ini
Kita tak mungkin trus bersama

 

I'll let you go
I'll let you go
I'll let you go