IT’S OKAY, NOT TO BE OK

Bagaimana bisa kita berkata :

Saya OK, ditinggal orang yang saya sayangi?

Saya OK, hidup susah, tidak berkecukupan?

Saya OK, pekerjaan saya rendah?

Saya OK, tidak punya keturunan?

Saya OK, tidak punya teman?

Mampukah kita  berkata OK, disaat-saat itu semua sedang kita alami?

Ayub berkata kepada istrinya: apakah kita hanya ingin menerima  yang baik, tidak yang buruk dari Tuhan?

Bagaimana bisa menerima keadaan bahwa kita sedang tidak baik, dan tetap berkata “OK, gak masalah”??

Tuhan ingin mendidik kita, dalam mendidik terkadang orang tua pasti memaksa, menyesah, menghajar anak2nya Dengan keras dia mengajar anaknya supaya lebih baik, yah gak semua anak harus dikerasin untuk bisa lebih baik, Dan belajar dengan kata-kata halus juga udah paham, tapi bagaimana jika tidak mengerti juga?

Orang tua yang baik pasti tidak akan menyerah, pasti dilakukan dengan berbagai cara agar anaknya bisa bertumbuh Bukan hanya bertumbuh secara fisik, tetapi lebih lagi secara Mental dan pengetahuan.

Oleh karena itu, seharusnya kita bisa melewati semua keadaan, walau keadaan itu membuat kita menjadi tidak baik-baik saja, tanpa banyak bertanya..tapi terus menjalani dengan bertekun hati, dan tidak curiga terhadap Tuhan, bahwa Tuhan memberikan semua itu tanpa alasan, dan tanpa tujuan akhir yang baik.

Sebagai salah satu contoh :

Kita tidak akan pernah menghargai makanan, sampai saat kita mengalami kelaparan. Atau Kita tidak akan pernah menghargai pekerjaan, sampai kita nganggur lama dan sulit mendapatkan pekerjaan Dan lain2.. Termasuk dimasa sekarang kita banyak ditinggal mereka yang kita sayangi… Kenapa tidak menghargai mereka saat mereka masih ada? Kenapa menunggu/menunda nanti aja..nanti aja..Apakah masih ada nanti??

Nah semua itu terkadang Tuhan MEMBIARKAN semua itu terjadi pada kita supaya kita sadar Dan bisa menghargai semua, serta bisa jadi lebih baik setelah kita melewatinya.

Gak ada orang bijak yang tidak melalui berbagai kesulitan hidup, klo ada hanya omong kosong

Gak ada orang kaya yang tidak melalui masa sulit, klo ada pasti bukan miliknya, hanya warisan

Gak ada orang pinter yang tidak belajar dengan tekun dan terus gagal dalam berbagai percobaan

Gak ada orang kuat yang tidak melatih tubuh dan jiwanya dalam latihan keras dan rutin

dsb

Mudah berteori, namun sulit untuk menjalani dan melewatinya… hanya 1 jawabanya..

“Percayalah Kepada Tuhan”

Melalui semua itu, Rencana Indah Tuhan Sudah disiapkan, bagi mereka yang MAMPU melewatinya.

Nah rencana Indah Tuhan itu bukan untuk mendapatkan balasan yang hanya sementara dibumi ini,

tetapi hal yang lebih besar dari itu, harta abadi yang ngengat dan karat tidak akan merusaknya, dan pencuri tidak akan mencurinya

Hidup dibumi adalah sekolah untuk persiapan kehidupan yang akan kita alami selanjutnya. Masing-masing Kita mempunyai Kurikulum yang berbeda untuk setiap kita. Jalani, dan terus pahami apa rencana Tuhan dalam Hidup singkat ini, 20-30-70-100 tahun kita terbatas hidup dibumi ini.. Jangan sampai tidak ada yang bisa kita Pelajari, atau bahkan kita tidak lulus dalam setiap ujian dari kurikulum hidup yang telah terjadi.

Jadi sekalipun sampai kita meninggal dunia kita tidak pernah mendapatkan balasan yang kita harapkan dari semua Penderitaan yang telah kita alami, janganlah menjadi kecewa, karena Tuhan tidak pernah mengharapkan kita menerima Semua hasil dari apa yang telah kita alami untuk sementara, tetapi untuk selama-lamanya, dan tidak mungkin hal Itu kita alami dibumi yang hanya sementara ini.

Jadi, apapun kepercayaan anda, siapapun anda, saya yakin semua percaya pada ajaran, ada kehidupan yang akan kita Jalani setelah ini, dan kumpulkan harta abadi selama kita hidup… nah itulah harta yang kita akan dapatkan hasil dari Apa yang kita lalui selama kita hidup dibumi ini..

Jadi semoga sekarang kita bisa Lebih mengerti.. Dan bisa berkata “IT’S OKAY, NOT TO BE OK”

spellnumber

Option Explicit

‘Main Function

Function SpellNumber(ByVal MyNumber)

Dim Dollars, Cents, Temp

Dim DecimalPlace, Count

ReDim Place(9) As String

Place(2) = ” Thousand “

Place(3) = ” Million “

Place(4) = ” Billion “

Place(5) = ” Trillion “

‘ String representation of amount.

MyNumber = Trim(Str(MyNumber))

‘ Position of decimal place 0 if none.

DecimalPlace = InStr(MyNumber, “.”)

‘ Convert cents and set MyNumber to dollar amount.

If DecimalPlace > 0 Then

Cents = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & “00”, 2))

MyNumber = Trim(Left(MyNumber, DecimalPlace – 1))

End If

Count = 1

Do While MyNumber “”

Temp = GetHundreds(Right(MyNumber, 3))

If Temp “” Then Dollars = Temp & Place(Count) & Dollars

If Len(MyNumber) > 3 Then

MyNumber = Left(MyNumber, Len(MyNumber) – 3)

Else

MyNumber = “”

End If

Count = Count + 1

Loop

Select Case Dollars

Case “”

Dollars = “No Dollars”

Case “One”

Dollars = “One Dollar”

Case Else

Dollars = Dollars & ” Dollars”

End Select

Select Case Cents

Case “”

Cents = ” ” ‘no cent



Case “One”

Cents = ” and One Cent”

Case Else

Cents = ” and ” & Cents & ” Cents”

End Select

SpellNumber = Dollars & Cents

End Function



‘ Converts a number from 100-999 into text

Function GetHundreds(ByVal MyNumber)

Dim Result As String

If Val(MyNumber) = 0 Then Exit Function

MyNumber = Right(“000” & MyNumber, 3)

‘ Convert the hundreds place.

If Mid(MyNumber, 1, 1) “0” Then

Result = GetDigit(Mid(MyNumber, 1, 1)) & ” Hundred “

End If

‘ Convert the tens and ones place.

If Mid(MyNumber, 2, 1) “0” Then

Result = Result & GetTens(Mid(MyNumber, 2))

Else

Result = Result & GetDigit(Mid(MyNumber, 3))

End If

GetHundreds = Result

End Function



‘ Converts a number from 10 to 99 into text.

Function GetTens(TensText)

Dim Result As String

Result = “” ‘ Null out the temporary function value.

If Val(Left(TensText, 1)) = 1 Then ‘ If value between 10-19…

Select Case Val(TensText)

Case 10: Result = “Ten”

Case 11: Result = “Eleven”

Case 12: Result = “Twelve”

Case 13: Result = “Thirteen”

Case 14: Result = “Fourteen”

Case 15: Result = “Fifteen”

Case 16: Result = “Sixteen”

Case 17: Result = “Seventeen”

Case 18: Result = “Eighteen”

Case 19: Result = “Nineteen”

Case Else

End Select

Else ‘ If value between 20-99…

Select Case Val(Left(TensText, 1))

Case 2: Result = “Twenty “

Case 3: Result = “Thirty “

Case 4: Result = “Forty “

Case 5: Result = “Fifty “

Case 6: Result = “Sixty “

Case 7: Result = “Seventy “

Case 8: Result = “Eighty “

Case 9: Result = “Ninety “

Case Else

End Select

Result = Result & GetDigit(Right(TensText, 1)) ‘ Retrieve ones place.

End If

GetTens = Result

End Function



‘ Converts a number from 1 to 9 into text.

Function GetDigit(Digit)

Select Case Val(Digit)

Case 1: GetDigit = “One”

Case 2: GetDigit = “Two”

Case 3: GetDigit = “Three”

Case 4: GetDigit = “Four”

Case 5: GetDigit = “Five”

Case 6: GetDigit = “Six”

Case 7: GetDigit = “Seven”

Case 8: GetDigit = “Eight”

Case 9: GetDigit = “Nine”

Case Else: GetDigit = “”

End Select

End Function

terbilang

Option Explicit

Function Terbilang(ByVal MyNumber)
Dim Rupiah, Sen, Temp
Dim Des, Desimal, Count, Tmp
Dim IsNeg

ReDim Place(9) As String
Place(2) = “RIBU “
Place(3) = “JUTA “
Place(4) = “MILYAR “
Place(5) = “TRILYUN “

‘Ubah angka menjadi string
MyNumber = Round(MyNumber, 2)
MyNumber = Trim(Str(MyNumber))

‘Cek bilangan negatif
If Mid(MyNumber, 1, 1) = “-” Then
MyNumber = Right(MyNumber, Len(MyNumber) – 1)
IsNeg = True
End If

‘Posisi desimal, 0 jika bil. bulat
Desimal = InStr(MyNumber, “.”)
‘Pembulatan sen, dua angka di belakang koma
Des = Mid(MyNumber, Desimal + 2)
If Desimal > 0 Then
Tmp = Left(Mid(MyNumber, Desimal + 1) & “00”, 2)
If Left(Tmp, 1) = “0” Then
Tmp = Mid(Tmp, 2)
Sen = Satuan(Tmp)
Else
Sen = Puluhan(Tmp)
End If
MyNumber = Trim(Left(MyNumber, Desimal – 1))
End If

Count = 1
Do While MyNumber “”
Temp = Ratusan(Right(MyNumber, 3), Count)
If Temp “” Then Rupiah = Temp & Place(Count) & Rupiah
If Len(MyNumber) > 3 Then
MyNumber = Left(MyNumber, Len(MyNumber) – 3)
Else
MyNumber = “”
End If
Count = Count + 1
Loop

Select Case Rupiah
Case “”
Rupiah = “NOL RUPIAH”
Case Else
Rupiah = Rupiah & “RUPIAH”
End Select

Select Case Sen
Case “”
Sen = “”
Case Else
Sen = ” DAN ” & Sen & “SENn”
End Select

If IsNeg = True Then
Terbilang = “MINUS ” & Rupiah & Sen
Else
Terbilang = Rupiah & Sen
End If

End Function


‘**************************************
‘ Mengubah angka 100-999 menjadi teks *
‘**************************************
Function Ratusan(ByVal MyNumber, Count)
Dim Result As String
Dim Tmp

If Val(MyNumber) = 0 Then Exit Function
MyNumber = Right(“000” & MyNumber, 3)

‘Mengubah seribu
If MyNumber = “001” And Count = 2 Then
Ratusan = “SE”
Exit Function
End If

‘Mengubah ratusan
If Mid(MyNumber, 1, 1) “0” Then
If Mid(MyNumber, 1, 1) = “1” Then
Result = “SERATUS “
Else
Result = Satuan(Mid(MyNumber, 1, 1)) & “RATUS “
End If
End If

‘Mengubah puluhan dan satuan
If Mid(MyNumber, 2, 1) “0” Then
Result = Result & Puluhan(Mid(MyNumber, 2))
Else
Result = Result & Satuan(Mid(MyNumber, 3))
End If

Ratusan = Result

End Function


‘*******************
‘ Mengubah puluhan *
‘*******************
Function Puluhan(TeksPuluhan)
Dim Result As String

Result = “”
‘ nilai antara 10-19
If Val(Left(TeksPuluhan, 1)) = 1 Then
Select Case Val(TeksPuluhan)
Case 10: Result = “SEPULUH “
Case 11: Result = “SEBELAS “
Case Else
Result = Satuan(Mid(TeksPuluhan, 2)) & “BELAS “
End Select
‘ nilai antara 20-99
Else
Result = Satuan(Mid(TeksPuluhan, 1, 1)) _
& “PULUH “
Result = Result & Satuan(Right(TeksPuluhan, 1))
‘satuan
End If
Puluhan = Result
End Function


‘********************************
‘ Mengubah satuan menjadi teks. *
‘********************************
Function Satuan(Digit)
Select Case Val(Digit)
Case 1: Satuan = “SATU “
Case 2: Satuan = “DUA “
Case 3: Satuan = “TIGA “
Case 4: Satuan = “EMPAT “
Case 5: Satuan = “LIMA “
Case 6: Satuan = “ENAM “
Case 7: Satuan = “TUJUH “
Case 8: Satuan = “DELAPAN “
Case 9: Satuan = “SEMBILAN “
Case Else: Satuan = “”
End Select
End Function

Bukan Iman Kristen Murahan

untuk teman-teman kristen:

banyak guru, pengajar dan pendeta yang memberikan pengajaran Cukup dengan percaya kepada Tuhan, kita akan selamat dan masuk surga.. mudah bukan, masuk surga itu mudah jangan dipersulit!

well.. saya mau bagikan pendapat saya bahwa ini salah besar!

Kepercayaan tentang masuk surga itu anugerah dan mudah, adalah penyesatan, itu adalah iman yang murahan dan palsu.

Jangan jadi kristen yang murahan, hanya dengan beragama kristen sudah berpikir selamat masuk surga, tidak semurah dan serendah itu. Seakan-akan di neraka gak ada orang kristen, jangan seenaknya yah..Hanya orang yang hidupnya kudus dan berkualitas yang ada disurga.

Tuhan berkata berjuanglah masuk ke dalam kerajaan Surga, paulus berkata, itu adalah pertandingan yang diwajibkan, artinya dalam pertandingan, ada yang menang dan kalah. jadi pastikan kita jadi pemenang, maka harus berjuang dengan keras. Bahkan Tuhan menantang orang kaya untuk menjual seluruh hartanya dan ikut dia…hingga orang tersebut menyerah.. sangat2lah sulit untuk masuk surga,

Sulit bukan berarti tidak bisa, dengan Anugerah dan kasih serta Roh kudus yang Tuhan berikan, jika kita mau dibimbing dan belajar, kita pasti bisa. Oleh karena itu kita harus memiliki keinginan yang keras dan berjuang dengan sepenuh hati

Dahulu orang berkta buat apa hidup suci/kudus toh pasti manusia mati juga. Buat apa punya pengetahuan, kepintaran, harta, jabatan, dan hal lainnya, toh mati gak dibawa.. akhirnya seenaknya hidup, gak mikirin orang lain, menyakiti diri sendiri bahkan merugikan orang lain. Bahkan berusaha hidup kekal di bumi, mau panjang umur sampe minum obat macem, operasi plastik awet muda, sampe keluar negeri berobat ngabisin harta Cuma buat nambah hidup sehari doang..tapi semua sia2

Baiknya kita harus semakin dewasa dan belajar kenapa Tuhan Yesus repot2 meninggalkan segalanya, dan turun ke bumi, menjadi manusia sepenuhnya sampai mati dikayu salib, Dia dibangkitkan, dan Diangkat Ke Surga.

Dia datang memberikan kita HIDUP, gak lagi hidup yang sia-sia dan seenaknya, karena hidup setelah kematian itu ada. Kalau Tuhan Yesus tidak naik ke surga, percuma kita sekarang ikut Tuhan, karena semua mati dan hilang gitu aja.. tapi dia bangKit, dan naik kesurga.

boleh memiliki segala hal, harta, jabatan, dan segala fasilitas hidup sebagai bukti hidup kita yang bertanggung jawab dan memaksimalkan kesempatan yang diberikan. Tapi bukan untuk terikat oleh semua hal itu, tapi kita membutuhkan semua itu untuk memuliakan Tuhan dan menolong Sesama kita. Gimana kita mo memberi klo kita gak punya apa2 untuk diberikan!!??

Berusahalah hidup kudus dan sempurna sebagai manusia, jangan sakiti sesama, jangan malas, dari hal kecil kita jaga hidup kita sehingga kapanpun kematian datang kita tidak takut, dan dapat menghadap Bapa disurga dengan penuh tanggung jawab.

Kematian bukanlah hal yang menyedihkan atau menakutkan bagi orang kudus, seperti tidur, menutup mata dibumi, membuka mata disurga. Bahkan mereka menunggu kematian datang atau Tuhan datang terlebih dahulu untuk menjemput kita semua. Karena merindukan hidup yang lebih berarti di kerajaan Surga.

Jadi tidak perlu kita sedih berkepanjangan jika ditinggal orang dibumi. Sedihlah seperlunya, dan terus jalani hidup dengan tanggungjawab. Kalau ada orang yang masih takut mati… itu pasti karena ada yang tidak beres dalam hidupnya, makanya, segera bereskan jangan tunggu2 nanti.

Pertobatan itu harus dimulai dengan pengakuan, dibereskan, dibuktikan perubahanya, tidak menyalahkan orang lain, rendahkan diri, terima dengan tanggung jawab segala konsekuensinya dan terus hidup dalam tuntunan Firman Tuhan  (ps. Gideon Simanjuntak)

Dan ini adalah proses yang terus harus kita jalani setiap hari bahkan setiap detiknya.

Gak perlu jadi pendeta buat ngomong ginian, karena Tuhan gak bilang jadilah pendeta…sekolah teologia dulu  jadilah guru… tidak, dia berkata jadilah Murid, artinya kita sesama murid saling belajar dan saling mendewasakan. Karena guru kita satu-satunya hanya Tuhan Yesus..Amin

pilihan kelas

sesuai Kelas / Porsi masing2

dalam menjalani hidup kita pasti semua punya kebutuhan dan keinginan, sebut saja keinginan punya rumah atau fasilitas lain, seperti kendaraan atau alat elektronik
namun sebaiknya kita bisa belajar lebih dewasa dan mengerti bagaimana memenuhi itu semua.

mau punya rumah, motor, mobil, hp itu tidak salah, memang kebutuhan dan wajib dipenuhi
tapi sebaiknnya, pilihlah semua sesuai kelas kita, da porsi kita masing2 pada saat pilihan itu dibuat.

jangan menjadikan kebutuhan sebagai beban hidup walau itu wajib dipenuhi.
contohnya punya rumah, harus beli cash atau cicil? semua tidak ada yang benar/salah
yang jadi salah adalah saat memilih tidak sesuai kelas kita.

maksudnya? ini bukan berarti ada pemisah antara si miskin dan si kaya, namun kelas kitaitu sama seperti sekolah, ada tingkatanya.

kalau kita blm cukup punya tabungan/penghasilan untuk membeli kendaraan, maka naiklah kendaraan umum, tidak usah di utamakan gengsi atau prestige
(maaf harus menyebut suatu merek untuk memperjelas tulisan)
klo belum bisa beli iphone/samsung, belilah xiaomi,
klo belum bisa beli PCX/Nmax, belilah Beat/mio,
klo belum bisa beli BMW, belilah agya

jangan bebani hidup karena keinginan yang terlalu tinggi diluar kemampuan, belajarlah menahan diri.

jangan sampai maksa nyicil sampe akhirnya terbelit dengan cicilan, 70% penghasilan buat bayar cicilan, 30 % buat biaya hidup hari2.
memang akan cukup, tapi jadi kehilangan kesempatan lain, semua dilakukan hanya karena prestige dan bukan hal yang utama.

boleh gak nyicil? silahkan, tidak dilarang, bukan berarti abis ini jadi anti cicilan, kasian yang kerja di bank/leasing, krn mereka butuh cicilan dari kita.

namun mindsetnya harus diubah dulu, SESUAI KELAS KITA saat ITU.

klo memang penghasilanya sudah mampu bayar cicilan beli motor/mobil/rumah tersebut,silahkan, makan di restoren mewah, dan beli barang branded, beli lah… jangan pelit,
nikmatin hidup, bantu para penjual barang mewah tersebut agar cepat laku.

buat rumah, prinsip orang tua jaman dulu tidak boleh dipegang/jalani lagi dimasa sekarang ini karena sudah tidak relevan! apa itu? kerja harus punya rumah, wajib beli rumah!
kenapa saya katakan tidak boleh? karena sudah tidak relevan saat ini. ngontrak itu seakan2 tabu dan hina, padahal lebih baik dalam beberapa sudut pandang.

sampai saat saya tulis ini, saya juga masih kontrak, dan saya banyak menikmati keuntungan dari ngontrak, yah memang ada kerugian juga, dibanding mereka yang sudah memaksa
untuk nyicil rumah… 15 tahun kerja saya masih ngontrak, sedang teman2 ada yg sudah punya rumah sendiri karena berhasil memaksakan diri untuk nyicil dan akhirnya punya sendiri

mungkin akan saya bahas selanjutnya mengenai pandangan kapan harus ngontrak/beli rumah, kapan harus cicil rmh atau kendaraan.. karena jadi panjang untuk saat ini.

kembali ke topik. Kita harus menyadari sekarang ini kita ada dikelas mana, dan turunkan ekspektasi kita terhadap keinginan kita sesuai keadaan kita.
boleh memiliki apapun, asal sudah sesuai dengan kemampuan dan penghasilan. apabila belum…sebaiknya di tahan, dan dijadikan motivasi untuk meningkatkan kelas kita
sehingga suatu hari kita bisa memiliki apa yang tertunda, karena sudah naik kelas.

jadi hidup ini tidak boleh stagnan ato menetap di 1 kelas, ibaratnya sekolah kagak naek2 kelas.
dikelas mana kita berada saat ini, harus kita sadari dulu sebelum memenuhi keinginan kita. dan jangan berhenti berusaha dan berjuang untuk naik kelas selama
masih ada napas hidup, hiduplah dengan maximal, tanpa asal usul kita dimasa lalu.

AHCI TO IDE WIN 10

BOOT TO SAFE MODE VIA RECOVERY/TROUBLESHOOT MODE

HKEY_LOCAL_MACHINE_System_CurrentControlSet_Services_iaStor
HKEY_LOCAL_MACHINE_System_CurrentControlSet_Services_iaStorV

FIND KEY  “START” change values from 0 To 1

Now navigate to

HKEY_LOCAL_MACHINE_System_CurrentControlSet_Services_PciIde
,then change the start value to “0”

ALSO

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\iaStorAVC\StartOverride

FIND KEY  “0” change values from 3 To 0

REBOOOT

Restore Missing List recent Document on taskbar

Check the recent document list within word application. If its fine then there might some corruption in the recent items stored in ‘AutomaticDestinations’ folder.

To resolve and fix the issue, follow these steps:

1)   Browse to the location mentioned : %AppData%\Microsoft\Windows\Recent\AutomaticDestinations

Note: the folder ‘AutomaticDestinations’ is hidden

2)   Delete all the files whose size is 1MB or more.

Note: If you cannot find any file sized 1MB or more then delete all the files. This will eventually remove the Jump Lists’ recent items for all the applications. The recent items on the Jump Lists will be re-added as the program is been used. If you delete all the files then ensure that the applications are pinned again to the taskbar.

 

credit : Somasundaram Pandiaraj ~Microsoft~

Enable Caps Lock & Num Lock Notification Windows 7

Jika anda kesulitan untuk mengetahui apakah num lock atau caps lock hidup atau mati di windows 7, karena tidak ada lampu indicator tertentu, dapat memanfaatkan fungsi notifokasi default dari windows.

Untuk memunculkan notifikasi  saat menekan tombol Caps Lockatau numlock di windows 7

Buka Regedit dan cari Key berikut :

HKEY_LOCAL_MACHINE > SOFTWARE > Widcomm > BTConfig > General > KeyIndication

Ganti value “KeyIndication” dari “0” ke “1”

Disable CD/DVD Auto Eject Windows 7 atau Saat Klik CD/DVDRoom Keluar Otomatis

Salah satu Feature dari windows 7 yang suka bikin kesel! CD/DVD room  keluar otomatis saat Drive CD/DVD di klik (ga sengaja padahal).

Buat disable  feature ini caranya adalah :

  1. Open Run (Start + R) atau klik start trus klik Run. ketik GPEDIT.MSC
  2. Masuk Ke >User Configuration>Administrative Templates>Windows Components>Windows Explorer
  3. Buka Remove CD Burning Feature
  4. pilih Enabled
  5. Klik Apply

Dan Voila…sekarang udah ga keluar otomatis lagi.. 😀 semoga membatu lol