Jumat, 18 Desember 2015

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
Diposting oleh di Tidak ada komentar:

Sabtu, 05 Desember 2015

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 :)


Diposting oleh di Tidak ada komentar:
Label:

Rabu, 02 Desember 2015

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


Diposting oleh di Tidak ada komentar:

Selasa, 01 Desember 2015

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
Diposting oleh di Tidak ada komentar:

Selasa, 24 November 2015

Pengkondisian If Then Else pada Delphi7

Hallo dear!
Apa kabar? Lama nih gak ngeblog hehe
Di blog kali ini aku akan kasih coding tentang pengkondisian If Then Else dalam Delphi7 !!!
Disimak baik-baik yah teman-teman hehe

------------------------------------------------------------------------------------
If Then Else menggunakan tanda lebih besar (>)
------------------------------------------------------------------------------------ 
 
Untuk menentukan nilai dengan menggunakan If Then Else menggunakan tanda lebih besar (>) seperti gambar diatas, kalian tinggal mengetikkan atau mengcopy Coding dibawah ini dan mempastekannya pada Edit1 (Pada kolom yang ada angka 100 seperti pada gambar diatas).

If (StrToFloatDef(edit1.Text,0)>100)Then
begin
Edit2.Text:='INPUT SALAH';
Edit3.Text:='INPUT SALAH';
end
else

If (StrToFloatDef(edit1.Text,0)>=80)Then
begin
Edit2.Text:='A';
Edit3.Text:='ISTIMEWA';
end
else

If (StrToFloatDef(edit1.Text,0)>=70)Then
begin
Edit2.Text:='B';
Edit3.Text:='BAIK';
end
else

If (StrToFloatDef(edit1.Text,0)>=60)Then
begin
Edit2.Text:='C';
Edit3.Text:='CUKUP';
end
else

If (StrToFloatDef(edit1.Text,0)>=50)Then
begin
Edit2.Text:='D';
Edit3.Text:='KURANG';
end
else

If (StrToFloatDef(edit1.Text,0)>=0)Then
begin
Edit2.Text:='E';
Edit3.Text:='GAGAL';
end
else

If (StrToFloatDef(edit1.Text,0)<0)Then
begin
Edit2.Text:='INPUT SALAH';
Edit3.Text:='INPUT SALAH';
end
end;


------------------------------------------------------------------------------------
If Then Else menggunakan tanda lebih kecil (<) 
------------------------------------------------------------------------------------ 
Untuk menentukan nilai dengan menggunakan If Then Else menggunakan tanda lebih kecil (<) seperti gambar diatas, kalian tinggal mengetikkan atau mengcopy Coding dibawah ini dan mempastekannya pada Edit1 (Pada kolom yang ada angka 100 seperti pada gambar diatas).


If (StrToFloatDef(edit1.Text,0)>100)Then
begin
Edit2.Text:='ERROR';
Edit3.Text:='ERROR';
end
else

If (StrToFloatDef(edit1.Text,0)<0)Then
begin
Edit2.Text:='ERROR';
Edit3.Text:='ERROR';
end
else

If (StrToFloatDef(edit1.Text,0)<50)Then
begin
Edit2.Text:='E';
Edit3.Text:='GAGAL';
end
else

If (StrToFloatDef(edit1.Text,0)<60)Then
begin
Edit2.Text:='D';
Edit3.Text:='KURANG';
end
else

If (StrToFloatDef(edit1.Text,0)<70)Then
begin
Edit2.Text:='C';
Edit3.Text:='CUKUP';
end
else

If (StrToFloatDef(edit1.Text,0)<80)Then
begin
Edit2.Text:='B';
Edit3.Text:='BAIK';
end
else

If (StrToFloatDef(edit1.Text,0)<=100)Then
begin
Edit2.Text:='A';
Edit3.Text:='ISTIMEWA';
end
end;

================================================
Udah segitu aja buat blog hari ini!
Semoga bermanfaat buat teman-teman yah :)
Kalau ada kritik dan saran bisa Komentar dibawah yah teman-teman.
Jangan lupa G+ yah hehe
Thank you ;))
================================================
Diposting oleh di 2 komentar:
Label:
Langganan: Postingan (Atom)