ingin berbagi

BUAT APLIKASI KALKULATOR

MENGGUNAKAN VISUAL BASIC 6.0

Pertama :

buatlah tampilan kalkulator seperti gambar di bawah :

Kedua :

Copas Source Code berikut :

Dim oper1 As Double
Dim oper2 As Double
Dim pop As String
Dim result As Double
Dim op As String
Public act As Integer

Private Sub c_Click(Index As Integer)
display.Caption = 0
oper2 = 0
oper1 = 0
result = 0
op = "+"
End Sub

Private Sub c_LostFocus(Index As Integer)
display.Caption = ""
End Sub

Private Sub Command1_LostFocus()
display.Caption = ""
End Sub

Private Sub Command2_Click()

End Sub

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub dig_Click(Index As Integer)
display.Caption = display.Caption + dig(Index).Caption
End Sub

Private Sub div_Click(Index As Integer)
If op = "+" Then
oper1 = Val(display.Caption) + oper2
ElseIf op = "-" Then oper1 = oper2 - Val(display.Caption)
ElseIf op = "*" Then oper1 = oper2 * Val(display.Caption)

End If

If op = "/" Then
If Val(display.Caption) = 0 Then
MsgBox "Can't Divide by Zero!!"
Else
oper1 = oper2 / Val(display.Caption)
End If
End If

If op = "" Then oper1 = Val(display.Caption)

oper2 = oper1
op = "/"
pop = op
display.Caption = oper2

End Sub

Private Sub div_LostFocus(Index As Integer)
display.Caption = ""
End Sub

Private Sub eq_Click(Index As Integer)

If op = "+" Then
result = Val(display.Caption) + oper2
End If

If op = "-" Then
result = oper2 - Val(display.Caption)
End If

If op = "/" Then
If Val(display.Caption) = 0 Then
MsgBox "Can't Divide by Zero!!"
Else
result = oper2 / Val(display.Caption)
End If
End If

If op = "*" Then
result = oper2 * Val(display.Caption)
End If

display.Caption = result
op = "+"
oper1 = 0
oper2 = 0

End Sub

Private Sub Form_Load()
display.Caption = 0
oper2 = 0
oper1 = 0
result = 0
op = "+"
End Sub

Private Sub Form_Paint()
act = 1
display.Caption = 0
cmdClose.SetFocus
End Sub

Private Sub minus_Click(Index As Integer)

If op = "+" Then
oper1 = Val(display.Caption) + oper2
ElseIf op = "-" Then oper1 = oper2 - Val(display.Caption)
ElseIf op = "*" Then oper1 = oper2 * Val(display.Caption)

End If

If op = "/" Then
If Val(display.Caption) = 0 Then
MsgBox "Can't Divide by Zero!!"
Else
oper1 = oper2 / Val(display.Caption)
End If
End If

If op = "" Then oper1 = oper2 - Val(display.Caption)

oper2 = oper1
op = "-"
pop = op
display.Caption = oper2

End Sub

Private Sub minus_LostFocus(Index As Integer)
display.Caption = " "
End Sub

Private Sub mul_Click(Index As Integer)
If op = "+" Then
oper1 = Val(display.Caption) + oper2
ElseIf op = "-" Then oper1 = oper2 - Val(display.Caption)
ElseIf op = "*" Then oper1 = oper2 * Val(display.Caption)

End If

If op = "/" Then
If Val(display.Caption) = 0 Then
MsgBox "Can't Divide by Zero!!"
Else
oper1 = oper2 / Val(display.Caption)
End If
End If

If op = "" Then oper1 = oper2 * Val(display.Caption)

oper2 = oper1
op = "*"
pop = op

display.Caption = oper2
End Sub

Private Sub mul_LostFocus(Index As Integer)
display.Caption = ""
End Sub

Private Sub per_Click()

If oper1 <> 0 And Val(display.Caption) <> 0 Then
oper1 = Val(display.Caption) * oper1 / 100
display.Caption = oper1
Else
display.Caption = 0
End If
End Sub

Private Sub plus_Click(Index As Integer)

If op = "+" Then
oper1 = Val(display.Caption) + oper2
ElseIf op = "-" Then oper1 = oper2 - Val(display.Caption)
ElseIf op = "*" Then oper1 = oper2 * Val(display.Caption)
End If

If op = "/" Then
If Val(display.Caption) = 0 Then
MsgBox "Can't Divide by Zero!!"
Else
oper1 = oper2 / Val(display.Caption)
End If
End If

If op = "" Then oper1 = Val(display.Caption) + oper2

oper2 = oper1
op = "+"
pop = op
display.Caption = oper2
End Sub

Private Sub plus_LostFocus(Index As Integer)
display.Caption = " "
End Sub

Private Sub sqrt_Click()
display.Caption = Sqr(display.Caption)
End Sub

Private Sub upon_Click(Index As Integer)

display.Caption = 1 / Val(display.Caption)
End Sub

Private Sub upon_LostFocus(Index As Integer)

End Sub

dan jika kamu menginginkan aplikasi lengkap dengan source codenya silahkan download disini

Tag Technorati: {grup-tag}contoh program vb6,contoh fungsi di vb6,cara penggunaan fungsi vb,tutorial vb6,download tutorial vb6,vb6 tutorial download,dasar dasar vb6,belajar vb6,cara mudah belajar vb6,vb6 artikel download,vb6 blog,artikel vb6,semua tentang vb6,vb6 api,cara menggunakan module,cara menggunakan class module

MEMBUAT APLIKASI STOPWATCH

BELAJAR VISUAL BASIC 6.0

pertama :

buatlah disain aplikasi seperti gambar berikut :

kedua :

silahkan CoPas coding di bawah :

Dim jam, menit, detik, milidetik

Private Sub cmdExit_Click()
Timer1.Enabled = False
Timer2.Enabled = False
End
End Sub

Private Sub cmdReset_Click()
'membuat tampilan menjadi 00:00:00:00

lblDetik.Caption = "00"
lblMenit.Caption = "00"
lblJam.Caption = "00"

'pengaturan nilai variabel

jam = "0"
menit = "0"
detik = "0"
End Sub

Private Sub cmdStart_Click()
Timer1.Enabled = True
Timer2.Enabled = True
cmdReset.Enabled = False
cmdStart.Enabled = False
cmdStop.Enabled = True

jam = lblJam.Caption
menit = lblMenit.Caption
detik = lblDetik.Caption
End Sub

Private Sub cmdStop_Click()
Timer1.Enabled = False
Timer2.Enabled = False
cmdReset.Enabled = True
cmdStart.Enabled = True
cmdStop.Enabled = False
End Sub

Private Sub Form_Load()
'pemberian nilai properti interval timer
' interval untuk satu detik sama dengan kuranglebih 1000

Timer1.Interval = 1000
Timer2.Interval = 500
End Sub

Private Sub Timer1_Timer()
detik = detik + 1
If Val(detik) > 59 Then 'fungsi "val" untuk menggubah karakter menjadi angka atau number

detik = "00"
menit = Val(menit) + 1

If Val(menit) > 59 Then

menit = "00"
jam = Val(jam) + 1

If Val(jam) > 23 Then
jam = "00"

End If
End If
End If

d = Len(detik) 'fungsi "len" berguna untuk mengetahui banyak/panjang karakter
If d = 1 Then
lblDetik.Caption = "0" & detik 'membuat tampilan menjadi "0X"
'tanda "&" berfungsi untuk penggabungan karakter
Else
lblDetik.Caption = detik
End If

m = Len(menit)
If m = 1 Then
lblMenit.Caption = "0" & menit
Else
lblMenit.Caption = menit
End If

j = Len(jam)
If j = 1 Then
lblJam.Caption = "0" & jam
Else
lblJam.Caption = jam
End If
End Sub

Private Sub Timer2_Timer()
'Untuk membuat karakter titik dua ( : ) berkedip

Label4.Visible = Not Label4.Visible
Label5.Visible = Not Label5.Visible
End Sub

buat kamu yang ingin download aplikasi dan source codenya silahkan download disini.

Dan bahwa setiap pengalaman mestilah dimasukkan ke dalam kehidupan, guna memperkaya kehidupan itu sendiri. Karena tiada kata akhir untuk belajar seperti juga tiada kata akhir untuk kehidupan (Annemarie S.)
Urusan kita dalam kehidupan bukanlah untuk melampaui orang lain, tetapi untuk melampaui diri sendiri, untuk memecahkan rekor kita sendiri, dan untuk melampaui hari kemarin dengan hari ini (Stuart B. Johnson)
Saya telah mempelajari kehidupan pria-pria besar dan wanita-wanita terkenal, dan saya menemukan bahwa mereka yang mencapai puncak keberhasilan adalah mereka yang melakukan pekerjaan-pekerjaan yang ada di hadapan mereka dengan segenap tenaga, semangat dan kerja keras (Harry S. Truman)
Sebagian orang mengatakan kesempatan hanya datang satu kali, itu tidak benar. Kesempatan itu selalu datang, tetapi Anda harus siap menanggapinya (Louis L’amour)
Kegagalan dapat dibagi menjadi dua sebab. Yakni orang yang berpikir tapi tidak pernah bertindak dan orang yang bertindak tapi tidak pernah berpikir (W.A. Nance)
Kebahagiaan tertinggi dalam kehidupan adalah kepastian bahwa Anda dicintai apa adanya, atau lebih tepatnya dicintai walaupun Anda seperti diri Anda adanya (Victor Hugo)
Jika kita memulainya dengan kepastian, kita akan berakhir dalam keraguan, tetapi jika kita memulainya dengan keraguan, dan bersabar menghadapinya, kita akan berakhir dalam kepastian (Francis Bacon)
Jangan melihat masa lalu dengan penyesalan, jangan pula melihat masa depan dengan ketakutan, tapi lihatlah sekitarmu dengan penuh kesadaran (James Thurber)
Orang-orang menjadi begitu luar biasa ketika mereka mulai berpikir bahwa mereka bisa melakukan sesuatu. Saat mereka percaya pada diri mereka sendiri, mereka memiliki rahasia kesuksesan yang pertama (Norman Vincent Peale)

Hanya mereka yang berani gagal dapat meraih keberhasilan (Robert F. Kennedy)
Setiap pria dan wanita sukses adalah pemimpi-pemimpi besar. Mereka berimajinasi tentang masa depan mereka, berbuat sebaik mungkin dalam setiap hal, dan bekerja setiap hari menuju visi jauh ke depan yang menjadi tujuan mereka (Brian Tracy)
Percayalah pada keajaiban, tapi jangan tergantung padanya (H. Jackson Brown, Jr)
Rayulah aku, dan aku mungkin tak mempercayaimu. Kritiklah aku, dan mungkin aku tak menyukaimu. Acuhkan aku, dan aku mungkin tak memaafkanmu. Semangatilah aku, dan aku mungkin takkan melupakanmu (William Arthur)
Jika Anda membuat seseorang bahagia hari ini, Anda juga membuat dia berbahagia dua puluh tahun lagi, saat ia mengenang peristiwa itu (Sydney Smith)
Manusia yang paling lemah adalah orang yang tidak mampu mencari teman. Namun yang lebih lemah dari itu adalah orang yang mendapatkan banyak teman tetapi menyia-nyiakannya. (Ali bin Abi Thalib)
Jangan segan untuk mengulurkan tangan Anda. Tetapi, jangan juga segan untuk menjabat tangan orang lain yang datang pada Anda (Pope John XXIII)
Alam memberi kita satu lidah, akan tetapi memberi kita dua telinga, agar kita mendengar dua kali lebih banyak daripada berbicara (La Rouchefoucauld)
Sahabat paling baik dari kebenaran adalah waktu, musuhnya yang paling besar adalah prasangka, dan pengiringnya yang paling setia adalah kerendahan hati (Caleb CC.)
Kebahagiaan tergantung pada apa yang dapat Anda berikan, bukan pada apa yang Anda peroleh (Mohandas Ghandi)
Kegagalan tidak diukur dari apa yang telah Anda raih, namun kegagalan yang telah Anda hadapi, dan keberanian yang membuat Anda tetap berjuang melawan rintangan yang bertubi-tubi (Orison Swett Marden)

BUAT EFEK LUBANG TEMBAKAN

TUTORIAL PHOTOSHOP

Tentunya kita sering nonton film Action yang menceritakan baku tembak di jalanan. Sudah bisa dipastikan terdapat lubang peluru pada bodi mobil!

Ok, tapi saya tidak akan menceritakan filmya tapi bagaimana membuat efek lubang peluru akibat tembakan.

Langsung di simak saja ya……

Jalankan Photoshop dan buka gambar mobil

Buat Layer baru, klik Layer – New – Layer… - OK

Maka layer baru terbentuk dengan nama Layer 1

Klik Layer 1, kemudian klik Edit – Fill – pada tab Use isikan warna dengan Black dan klik OK

Masih di Layer 1, buat seleksi menggunakan Rectangular Marquee Tool pada bagian atas Layer 1, dilanjutkan dengan klik Edit – Fill – pada tab Use rubah warna menjadi White

Jika sudah, hilangkan seleksi dengan cara klik Select – Deselect

Masih di Layer 1, klik Edit – Transform – Rotate 90⁰ CCW (perhatikan hasilnya seperti gambar di bawah)

Sekarang, klik Filter – Stylize – Wind – pada tab Method pilih Wind – dan pada tab Direction pilih From the Left – OK.

Tekan Ctrl + F untuk membuat efeknya menjadi lebih nyata hingga seperti gambar berikut

Berikut, klik Edit – Transform - Rotate 90⁰ CW dan dilanjutkan dengan klik Filter – Distort – Polar Coordinates – OK

Selanjutnya klik Image – Adjustments – Invert. Kemudian klik Magic Wand Tool dan ubah nilai toleransinya menjadi 0 % dan klik latar yang berwarna putih dilanjutkan dengan menekan tombol Del pada keyboard.

Hilang seleksi dengan cara klik Select – Deselect

Langkah terakhir perkecil efek tembakan yang telah buat dengan Free Transform dan duplikasikan efek tembak kebeberapa bagian body mobil

Selamat belajar……

Nih… saya kasih juga video tutorialnya

Tag Technorati: {grup-tag}efek lubang peluru,lubang peluru,efek lubang pake photohop,efek lubang peluru pakai photoshop,efek lubang peluru menggunakan photoshop,panduan,belajar,tutorial,belajar membuat efek lubang peluru menggunakan photoshop

EFEK FOTO ROBEK MENGGUNAKAN PHOTOSHOP

Kali ini saya akan membuat Tutorial Photoshop dengan judul Efek Foto Robek menggunakan Photoshop. Seperti biasa tutorial ini saya lengkapi dengan video tutorial.

Buka foto yang akan dirobek dengan menggunakan aplikasi photoshop kesayangan kamu..

Seleksi Foto dengan menggunakan Lasso Tool (buat seleksi tidak sempurna agar mirip seperti robekan kertas)

Jika sudah terseleksi kita simpan hasil seleksi dengan mengklik Select – Save Selection…

Kotak Dialog Save Selection muncul, dan pada kolom Name isi dengan “robek” (tanpa tanda petik), jika sudah klik OK

Selanjutnya kita berpindah ke pallet Channel dan aktifkan layer “robek”

(gambar di atas sebelah kiri sebelum layer robek diaktifkan dan sebelah kanannya layer robek telah diaktifkan)

Lanjut……….

Klik Filter – Pixelate – Crystallize dan pada cells sizenya beri nilai 10 atau sesuai selera, jika sudah jangan lupa OK

Pada tahap berikutnya masih tetap berada di pallet Channel, kita klik Layer RGB, berikut klik Select – Load Selection…. Pastikan pada tab Channel berisi “robek” dan dilanjutkan dengan klik OK

Sekarang kita klik Pallet Layer dan dilanjutkan dengan klik Layer – Layer Via Copy…

Pada tahapan ini pada pallet Layer akan terbentuk sebuah layer baru bernama Layer 1.

Jah jadi belum? Kalau sudah kita lanjut lagi……….

Klik Layer Background, lanjutkan dengan klik Layer – Layer Via Copy dan hasilnya akan seperti :

Selanjutnya kita tekan tombol Ctrl + klik gambar Layer 1 (ingat pada gambarnya) dan ingat Layer yang aktif masih Layer Background copy!

Sekarang tekan Delete (Del) pada keyboard. Hasilnya seperti gambar berikut :

Jika sudah hilangkan seleksi dengan memilih Select - Deselect

Berikutnya kita klik Layer Background dan dilanjutkan dengan klik Edit – Fill, untuk Content pilih White dengan Opacity 100%

Klik Layer 1 dan lanjutkan dengan klik Free Transform… silahkan atur posisi sesuai dengan selera kamu…..

Untuk lebih mendapatkan kesan natural, klik kanan pada Layer 1 pilih opsi Blending Option berikut kita klik Drop Shadow dan isikan Size dengan nilai 100

Selesai deh…..

Moga Bermanfaat

Kelupaan simak juga Video Tutorialnya….

Tag Technorati: {grup-tag}Membuat Efek Foto Robek,Foto Robek,Foto Sobek,belajar Photoshop,Latihan Photoshop,belajar,latihan

Kata Bijak (bagian 3)

Buka mata kita lebar-lebar sebelum menikah, dan biarkan mata kita setengah terpejam sesudahnya

------

Persahabatan sejati layaknya kesehatan, nilainya baru kita sadari setelah kita kehilangannya

------

Seorang sahabat adalah yang dapat mendengarkan lagu di dalam hatimu dan akan menyanyikan kembali tatkala kau lupa akan bait-baitnya

------

Bertemanlah dengan orang yang suka membela kebenaran. Dialah hiasan dikala kita senang dan perisai diwaktu kita susah

------

Namun kita tidak akan pernah memiliki seorang teman, jika kita mengharapkan seseorang tanpa kesalahan. Karena semua manusia itu baik kalau kita bisa melihat kebaikannya dan menyenangkan kalau kita bisa melihat keunikannya tapi semua manusia itu akan buruk dan membosankan kalau kita tidak bisa melihat keduanya.

------

Tak seorang pun sempurna. Mereka yang mau belajar dari kesalahan adalah bijak. Menyedihkan melihat orang berkeras bahwa mereka benar meskipun terbukti salah

------

Bila Kita mengisi hati kita dengan penyesalan untuk masa lalu dan kekhawatiran untuk masa depan, kita tak memiliki hari ini untuk kita syukuri.

------

Perlukah merasa kecil dan malu dihina? Orang yang dihina itu sebenarnya memungut pahala cum-cuma tanpa perlu bersusah payah

------

Semulia-mulia manusia ialah siapa yang mempunyai adab, merendahkan diri ketika berkedudukan tinggi, memaafkan ketika berdaya membalas dan bersikap adil ketika kuat. (Khalifah Abdul MAlik bin Marwan)

------

Barang siapa yang selalu kekenyangan maka banyaklah dagingnya, dan siapa yang banyak dagingnya maka kuatlah nafsunya. Siapa yang kuat nafsunya maka banyaklah dosanya, siapa yang banyak dosanya maka keraslah hatinya dan siapa yang keras hatinya maka tenggelamlah dia dalam bencana dunia serta keindahannya

------

Sesungguhnya sebagian perkataan itu ada yang lebih keras dari batu, lebih tajam dari tusukan jarum, lebih pahit daripada jadam dan lebih panas daripada bara. Sesungguhnya hati adalah ladang, maka tanamlah ia dengan perkataan yang baik, karena jika tidak tumbuh semuanya (perkataan yang tidak baik) niscaya tumbuh sebagiannya

------

Tidak ada simpanan yang lebih berguna daripada ilmu.
Tidak ada sesuatu yang lebih beruntung daripada adab.
Tidak ada kawan yang lebih bagus daripada akal.
Tidak ada benda ghaib yang lebih dekat daripada maut.
Sekali tidak berhasil bukan berarti gagal selamanya

------

Kebahagiaan takkan pernah bisa dibeli dengan uang

------

Orang yang banyak ketawa itu kurang wibawanya.
Orang yang suka menghina orang lain, dia juga akan dihina.
Orang yang mencintai akhirat, dunia pasti menyertainya.
Barangsiapa menjaga kehormatan orang lain, pasti kehormatan dirinya akan terjaga

------

Sesungguhnya orang-orang yang berlaku adil di sisi Allah laksana berada di atas mimbar yang terbuat dari cahaya.
Mereka itu orang-orang yang berlaku adil dalam menetapkan hukum
baik kepada rakyat maupun kepada keluarga

------

Tiga sifat yang menyebabkan penyandangnya tidak tentram dalam hidupnya : iri, dengki, dan akhlak buruk

------

Hiduplah Sesuka hatimu,
Sesungguhnya kamu pasti mati.
Cintai siapa saja yang kamu senangi,
Sesungguhnya kamu pasti akan berpisah dengannya.
Lakukan apa saja yang kamu kehendaki,
Sesungguhnya kamu akan memperoleh balasannya.

------

Tidak ada kebaikan bagi pembicaraan kecuali dengan amalan.
Tidak ada kebaikan bagi harta kecuali dengan kedermawanan.
Tidak ada kebaikan bagi sahabat kecuali dengan kesetiaan.
Tidak ada kebaikan bagi shadaqah kecuali niat yang ikhlas.
Tidak ada kebaikan bagi kehidupan kecuali kesehatan dan keamanan
Banyak orang akan datang dan pergi dari kehidupanmu, tetapi hanya sahabat-sahabat sejati yang akan meninggalkan bekas di dalam hatimu.
Untuk menangani dirimu, gunakan kepalamu. Tetapi untuk menangani orang lain, gunakan hatimu.
Kemarahan hanyalah satu kata yang dekat dengan bahaya.
Pikiran yang besar membicarakan ide-ide;
Pikiran yang rata-rata membicarakan kejadian-kejadian;
Dan pikiran yang kerdil membicarakan orang-orang.
Allah memberikan kepada setiap burung makanan mereka, tetapi Ia tidak melemparkan makanan itu ke dalam sarang mereka.

Tag Technorati: {grup-tag}Kata Mutiara,Kata Bijak,Kata Nasehat,Wejangan,Mutiara Iman,Iman,Bijak,Nasehat,Mutiara

Pikiran yang terbuka dan mulut yang tertutup merupakan suatu kombinasi kebahagiaan.
Semakin banyak Anda berbicara tentang diri sendiri, semakin banyak pula kemungkinan untuk Anda berbohong.
Jika Anda tidak bisa menjadi orang pandai, jadilah orang yang baik.
Seorang teman sejati akan membuat Anda hangat dengan kehadirannya, mempercayai akan rahasianya dan mengingat Anda dalam doa-doanya.
Doa memberikan kekuatan pada orang yang lemah, membuat orang tidak percaya menjadi percaya dan memberikan keberanian pada orang yang ketakutan.
Jika kita berbuat baik, kebaikan pula yang akan kita terima kelak.
Senyum tidak hanya akan menampilkan wajah yang cerah, namun juga menghangatkan jiwa.
Cinta itu angkuh dan lembut. Lebih baik memiliki cinta daripada memiliki semua bintang di langit.
Yang penting bukan berapa lama kita hidup, tetapi bagaimana kita hidup.
Nasihat yang baik tidak pernah datang terlambat.
Iri hati yang ditunjukan kepada seseorang akan melukai diri sendiri.
Anda cuma bisa hidup sekali saja didunia ini, tetapi jika anda hidup dengan benar, sekali saja sudah cukup.
Kenangan indah masa lalu hanya untuk dikenang, bukan untuk diingat-ingat.
Rasa takut bukanlah untuk dinikmati, tetapi untuk dihadapi.
Orang bijaksana selalu melengkapi kehidupannya dengan banyak persahabatan.
Lidah anda yang menentukan siapa anda.
Diantara isi rumah tangga, anak-anaklah yang terbaik.
Cinta seringkali akan lari bila kita mencari, tetapi cinta jua seringkali dibiarkan pergi bila ia menghampiri.
Jika kejahatan di balas kejahatan, maka itu adalah dendam. Jika kebaikan dibalas kebaikan itu adalah perkara biasa. Jika kebaikan dibalas kejahatan, itu adalah zalim. Tapi jika kejahatan dibalas kebaikan, itu adalah mulia dan terpuji.
Jika Anda tidak memulai hari ini dengan senyuman, belum terlambat untuk mencobanya pada hari esok.

Tag Technorati: {grup-tag}Kata Mutiara,Kata Bijak,Kata Nasehat,Wejangan,Mutiara Iman,Iman,Bijak,Nasehat,Mutiara

Kata Mutiara (bagian 1)

Ketika mata manusia terpejam tidak mampu melihat karyamu dengan baik, satu hal yang harus kita sadari, jangan pernah putus asa sebab mata Tuhan tidak pernah terpejam sedetikpun untuk melihat dan memberimu anugerah yang mulia
Perdebatan tidak akan pernah mengatasi masalah, tetapi doa dapat mengubah segala sesuatu.
Semua karena cinta kasih. Jika seseorang yang sanggup mencintai Tuhan, baginya tidak terlalu berat untuk melepaskan sesuatu untuk memenuhi panggilan Tuhan.
Berdoa membuat dirimu bertambah kuat. Senyum membuat dirimu bertambah manis. Sabar membuatmu bertambah bijak. Kasih membuatmu mengerti akan arti kehidupan
Teman memberimu senyuman, tetapi sahabat memberimu kebahagiaan. Teman menceritakan yang tidak benar tentang dirimu, tetapi sahabat akan tutup mulut dengan kesalahanmu. Teman hanya menerima kelebihanmu, tetapi sahabat akan menerima kekuranganmu. Seribu teman datang saat kamu tertawa bahagia, tetapi seorang sahabat akan datang saat kamu berderai air mata.
Wanita cantik melukis kekuatan lewat masalahnya, tersenyum saat tertekan, tertawa di saat harus menangis, memberkati di saat terhina, mempesona karena mengampuni. Wanita cantik, mengasihi tanpa pamrih dan bertambah kuat dalam doa dan pengharapan.
Jadilah orang yang: Tetap teguh di kala yang lain runtuh, tetap tunduk di kala yang lain angkuh, tetap sabar di kala yang lain ingkar, tetap tegar di kala yang lain menyerah.
Jangan pernah mengeluh dengan segala hal yang belum diperoleh. Berbahagialah dengan segala sesuatu yang telah diperoleh. Sesungguhnya hidup ini berisikan banyak kebahagiaan, bila kita mampu memandang dari sudut yang benar. Semangat dalam hidup dan optimis selalu. Selamat beraktifitas.
Saat aku tidak paham maksud Tuhan, aku memilih percaya. Saat aku tertekan oleh kekecewaan, aku memilih bersyukur. Saat rencana hidupku berantakan, aku memilih berserah. Saat putus asa melingkupiku, aku memilih tetap maju. Apapun yang terjadi saat ini, tetaplah PERCAYA, BERSYUKUR, BERSERAH dan MAJU DALAM IMAN karena Tuhan sedang merajut yang TERBAIK buat kita. Kekuatan kita yang sesungguhnya bukan waktu kita dapat melakukan pekerjaan berat, tetapi waktu kita dapat TERSENYUM di waktu yang berat dan bertahan dengan mengandalkan Tuhan
Aku menaruh banyak hal dalam tanganku, tapi aku kehilangan semuanya. Tapi, apa yang ku taruh dalam tangan Tuhan tidak pernah hilang karena Dia menjaganya untukku