Melewati Masa Krisis Indentitas

          Banyak banget remaja yang kurang kenal sama dirinya sendiri. Khususnya pas mulai masuk masa purbertas. Purbertas adalah masa ketika seseorang  anak mengalami perubahan fisik, psikis dan pemandangan fungsi seksual. Masa purbertas biasanya dimulai pada usia 8-10 tahun dan berakhir kurang usia 15 tahun samapi 16 tahun. Pada masa ini pertumbuhan dan perkembangan berlangsung cepat.
        Pada masa ini. remaja mengalami banyak perubahan  fisik, emosi, dan sosial. beberapa ciri atau tanda yang menyertai. Cowok akan mengalami mimpi basah for the first time, suara jadi rendah, dada tambah lebar dan tumbuh rambut di bagian-bagian tertentu, serta kumis. pada cewek pinggul tambah lebar, tumbuh rambut di sekitar ketiak. mengalami menstruasi. usia purbertas pada remaja juga ditandai dengan  mulai tertarik sama lawan jenis. Perubahan ini terjadi pada saat remaja.
       Nah, meskipun mau nggak mau perubahan itu pasti terjadi di masa purbertas, seringkali ada beberapa remaja atau anak muda nggak nyaman sama perubahan-perubahan ini. nggak sedikit yang bertanya mengapa kenapa dirinya berubah sangat drastis. Keadaan secara fisik berubah disertai emosi yang berubah pula. Kamu akan bertanya-tanya kenapa kamu ada di dunia ini. apa yang harus kamu lakukan dan ketakutan-ketakutan tertentu yang muncul karena kamu nggak tahu apa yang harus kamu perbuat selanjutnya. itulah yang dinamakan krisis indentitas yang dialami pada saat purbertas.
      Krisis indentita ini muncul karena ada tuntutan dari lingkunganmu untuk bersikap kaya orang dewasa tapi kamu merasa nggak bisa. kalo krisis ini nggak terlewati dengan baik. maka kamu akan terus menyadari mencari siapakah dirimu yang sebenarnya hingga dewasa kelak, Krisis ini seharusnya berakhir pas berusia 20 tahun awal. Pada masa ini kamu seharusnya sudah menemukan kemampuan dan bisa mengembangkan dengan baik pula.
     
Bersambung....!!!
     

JAdilah Pelita

         Pada suatu malam, seorang buta berpamitan pulang dari rumah sahabatnya. Sang sahabat membekalinya dengan sebuah lentera pelita. Orang buta itu terbahak berkata: “Buat apa saya bawa pelita? Kan sama saja buat saya! Saya bisa pulang kok.”

Dengan lembut sahabatnya menjawab, “Ini agar orang lain bisa melihat kamu, biar mereka tidak menabrakmu.”

Akhirnya orang buta itu setuju untuk membawa pelita tersebut. Tak berapa lama, dalam perjalanan, seorang pejalan menabrak si buta.

Dalam kagetnya, ia mengomel, “Hei, kamu kan punya mata! Beri jalan buat orang buta dong!”

Tanpa berbalas sapa, mereka pun saling berlalu.

Lebih lanjut, seorang pejalan lainnya menabrak si buta.

Kali ini si buta bertambah marah, “Apa kamu buta? Tidak bisa lihat ya? Aku bawa pelita ini supaya kamu bisa lihat!”

Pejalan itu menukas, “Kamu yang buta! Apa kamu tidak lihat, pelitamu sudah padam!”

Si buta tertegun..

Menyadari situasi itu, penabraknya meminta maaf, “Oh, maaf, sayalah yang ‘buta’, saya tidak melihat bahwa Anda adalah orang buta.”
Si buta tersipu menjawab, “Tidak apa-apa, maafkan saya juga atas kata-kata kasar saya.”

Pemimpin dan Pengambilan Keputusan

Pemimpin dan Pengambilan Keputusan

Pengertian dan Tugas Pemimpin

Menurut  pendapat para ahli

• Drs. H. Malayu S.P Hasibuan

Pemimpin adalah seorang dengan wewenang kepemimpinannya mengarahkan bawahannya untuk mengerjakan sebagian dari pekerjaan dalam mencapai tujuan. 

•  Robert Tanembaum

Pemimpin adalah mereka yang menggunakan wwenang formal untuk mengorganisasi, mengarahkan dan mengontrol para bawahan yang bertanggung jawab, supaya semua bagian pekerjaan dikoodinasi demi mencapai tujuan perusahaan.

• Prof. Maccoby 

 Pemimpin adalah seseorang yang mampu menumbuhkan dan mengembangkan segala yang terbaik dalam para bawahannya.

•  Lao Tzu 

Pemimpin adalah seorang yang membantu mengembangkan orang lain sehingga akhirnya mereka menjadi mandiri.

• David and Filley
  Pemimpin adalah seseorang yang menduduki suatu posisi manajemen atau seseorang yang melakukan suatu pekerjaan  pemimpin

• PancasilaPemimpin adalah seseorang yang bisa bersikap sebagai pengasuh yang mendorong, menuntu dan membimbing asuhannya sesuai dengan asas:

Berani Jujur

               Pada Tahun 2009 lalu, di Bandung, semua murid salah satu kelas batal belajar gara-gara ulah salah satu murid yang ngga sopan memberi salam gurunya yang akan mengajar di kelas tersebut. mereka harus berdiri di depan ruang guru sampai ada yang ngaku sebagai pelakunya. Berbagai cara dilakukan agar ada yang mengaku tapi hasilnya nothing. ngga ada satu pun dari mereka yang mau buka mulut. bahkan semua guru pun ikut turun tangan cuma buat ngungkap pelakunya, tapi lagi-lagi nihil. setelah lama kemudian akhirnya salah satu dari mereka mengaku sebagai pelakunya.

         Cerita diatas mengingatkan kita buat berani berkata jujur, karena kejujuran itu penting. namun, faktanya dalam kehidupan kita sehari-hari masih banyak orang yang ngga mau berkata jujur. takut dihukum atau mendapat sanksi adalah salah satu alasan orang ngga berani berkata jujur, alias bohong. Pertanyaanya, kira-kira apasih yang jadi alasan orang ngga berani berkata jujur?? Yaps, karena dampak dari dosa turunan yang kita warisi dari Adam dan Hawa, simanusia pertama yang telah di bohongi oleh iblis berwujud ular. Bohong adalah bukti bahwa dosa yang masih melekat dalam diri manusia. Tau ngga sahabat, kalo kita itu punya dosa keturunan, yaitu dosa dari manusia pertama dan berbohong adalah salah satunya. Dosa tersebut bisa kita hentikan hanya dengan melekat kepada Yesus saja.

Wujud Syukur

       Siapa yang ga tahu Shinkansen si kereta api super cepat dengan kecepatan 200 km/jam. kemunculannya sebagai pembuktian kebangkitan Jepang yang sempat terpuruk akibat perang dunia ke II. Sejarah terciptannya adalah wujud syukur Tadano Miki kepada Yesus Kristus sebagai Tuhan dan Jurus Slamatnya. Pria mantan insinyur militer yang pernah mengalami depresi berat karena pesawat buatannya yang dipake waktu perang dunia ke II membunuh banyak orang, bahkan digunakan untuk misi bunuh diri (kamikaze), bersama Tadashi matsudaiira dan Hajime Kawanabe membidani kelahiran kereta api Shinkansen yang pertama.

            hal yang sama juga dialami oleh paulus. paulus adalah saulus, selalu menganiaya pengikut Kristus yang rajin. ia ngga pernah lelah mencari jemaat Tuhan buat ditangkap dan dipenjarakan. namun, semuanya berubah total waktu ia mengalami kasih Tuhan dalam hidupnya secara pribadi. Semuanya berbalik 180 derajat, ia malah giat melayani Tuhan. hal ini dilakukannya sebagai syukur, karena pekerjaannya yang udah ngubah kesalahnnya yang begitu banyak jadi semangat yang berapi-api untuk melayani Tuhan. selain itu, karena Dia udah melayakkan hidupnya yang penuh dosa. dengan cara demikian, paulus memberi kesempatan kepada Tuhan buat menunjukkan kebesaran-Nya melalui hidupnya.

Cheat Lostsaga 10 Juli

Download disini

Cara Pakai

[-] Drag / Extrat semua file atau di copy buat folder yang baru
[-] Buka LS
[-] Buka PerX Injector
[-] Ubah "lostsaga.exe"
[-] Browse DLL yang di Desktop "Y2LSN3.dll"
[-] Start LS
[-] ada Notice Klik Ok
[-] Saat ada Gambar Cowboy jangan tekan apa-apa
[-] Saat hilang cepat tekan Hotkey Insert
[-] Kemudian di loading Jin Kisaragi Penuh Langsung tekan Hotkeys Delete
[-[ Happy Cheating

Jangan lupa Di Like Facebook nya,, and Comment nya. Okey

Cheat Lostsaga No Delay 9 Juli

                                                                  Download Disini

Cara Pakai

[-] Drag / Extrat semua file atau di copy buat folder yang baru
[-] Buka LS
[-] Buka PerX Injector
[-] Ubah "lostsaga.exe"
[-] Browse DLL yang di Desktop "LS__F2F.dll"
[-] Start LS
[-] ada Notice Klik Ok
[-] Saat ada Gambar Cowboy jangan tekan apa-apa
[-] Saat hilang cepat tekan Hotkey F1
[-] Kemudian di loading Jin Kisaragi Penuh Langsung tekan Hotkeys F2
[-[ Happy Cheating

Jangan lupa Di Like Facebook nya,, and Comment nya. Okey

Cara Mematikan Wifi Komputer / Laptop saat berada di jaringan yang sama

kali Ini Brayn akan membagikan tips buat sahabat" yang ingin tau cara mematikan jaringan Wifi yang terkoneksi di Laptop orang lain saat berada di jaringan yang sama,

Sekilas tentang NetCut

1. Netcut menjadikan laptop/komputer sebagai Gateway, jadi dia bisa mengatur siapa yang masuk dan siapa yang ingin ditendang,, hehehehe
2. Bekerja berdasarkan ARp (Address Resolution Protocol) Spoofing. jadi dia mengelabui Mac Adress komputer satu dengan IP adress komputer lain. Misal, komputer A mau komunikasi ke B. Tapi, Tiba tiba si C menggangu komunikasi. kerena sebelumnya si C sudah melakukan penyusupan di bagian ARP. Jadi si C bisa suka aja mau diapain mau diputus atau disambung, terserah padanya. wkwkwkwk.
3. Jaringan Internet Laptop kita semakin bertambah jika semakin banyak yang kita Off kan.

Cara menggunakannya.

• Pertama, Anda harus punya Softtware yang namanya NetCut anda bisa Download disini
• Install Aplikasinya klo ada Antivirus yang menghalangi instalasi DImatikan aja dulu Antivirusnya
• Setelah beres Instalasinya jalankan Aplikasinya pada desktop netcut

• Plih IP yang akan anda jadikan mangsa, senjutnya klik Cut Off. creggg

Disini, saya hanya share aja tentang ilmu yang saya dapat, tidak ada maksud untuk mengajari hal-hal yang buruk. Selebihnya tergantung dari setiap individu masing-masing. Mau digunakan untuk kebaikan apa kejahatan. Saya tidak bertanggung jawab dengan segala hal yang akan terjadi setelah anda mencoba trik Cara Mencuri Bandwidth Wifi/Lan Menggunakan NetCut ini.

Selamat Mencoba

Tips Mengatasi Gangguan koneksi Internet Putus nyambung

Internet putus nyambung siapa yang ga keselll kalau lihat jaringan internet yang suka putus nyambung, apalagi lagi pas Download file yang lumayan besar tiba tiba jadi gagal hanya karena jaringan internet yang ga stabil, wkwkwkww. jadi ingat pengalaman sendiri. hehehehe

Koneksi internet putus sendiri  terjadi disebabkan banyak factor, namun berdasarkan kasus yang saya sering alami penyebab koneksi internet putus sendiri dikarenakan modem yang sudah rusak , gangguan cuaca, sinyal wireless lemah dan tidak ada aktivitas dari user dalam waktu lama pada saat browsing di internet.


Nah untuk itu brayn akan membagikan Tips buat sahabat bagaimana cara mengatasi hal tersebut dan juga meruapakan pengalaman saya.
Cara ini dengan melakukan ping pada web tertentu dengan maksud agar tetap terjadi adanya aktivitas koneksi di internet dan menjaga koneksi internet tetap stabil, berikut langkahnya:

• Klik Star dan pilih Run
• Ketikan Ping www.google.com -t , lihat gambar dibawah.

• Setelah itu di ok dan cek apakah sudah terkoneksi, lihat gambar 

• Bila saat pertama kali di ping muncul pesan “request timeout” artinya port belum stabil terkoneksi ke internet, restart koneksi internet kamu dan ulangi langkah ini sampai koneksi internet yang di dapat stabil
• Jangan di close kecuali anda sudah disconnect dari internet

Okey, Mudah-mudahan Tips ini dapat bermanfaat buat sahabat", Selamat Mencoba

Program Sewa Kamar Dengan Visual Basic

Buatlah satu Form, tujuh textbox dan empat command botton. Seperti Gambar dibawah ini

Program Sewa Kamar

Codingnya Sbb:

Private Sub cmdbersih_Click()

    txtsewa.Text = " "

    txtbiayaa.Text = " "

    txttotall.Text = " "

    txtdiskon.Text = " "

    txtharga.Text = " "

    txtbayar.Text = " "

    txtkembalian.Text = " "

    txtsewa.SetFocus

End Sub

Private Sub cmdhasil_Click()

    txtkembalian.Text = Val(txtbayar.Text) - Val(txtharga.Text)

End Sub

Private Sub cmdHitung_Click()

    txttotall.Text = Val(txtsewa.Text) * Val(txtbiayaa.Text)

    If txtsewa.Text > 4 Then

        txtdiskon.Text = 0.1 * Val(txttotall.Text)

    Else

        txtdiskon.Text = 0.05 * Val(txttotall.Text)

    

    End If

    txtharga.Text = Val(txttotall.Text) - Val(txtdiskon.Text)

End Sub

Private Sub cmdkeluar_Click()

   Y = MsgBox("benar Anda Ingin Keluar ?", vbYesNo + 16, "Perigatan")

If Y = 6 Then

Unload Me

Else

Cancel = 7

End If

End Sub

Private Sub Timer1_Timer()

Label1 = Time

End Sub

Selengkapnya Download disini 

anda bisa mengubahnya sesuai dengan yang anda inginkan,,  Selamat mencoba

Kata -kata Bijak

Setiap saat dalam hidupmu adalah ibarat gambar yang belum pernah terlihat, dan gambar yang tidak akan pernah terlihat lagi. Jadi, nikmati hidupmu dan jadikan setiap momen menjadi indah.


Jika kamu berdoa, jangan meminta kehidupan yang mudah, tetapi mintalah kepada tuhan untuk menjadikanmu pribadi yang kuat.

Hidup itu seperti mengendaradi sepeda. Untuk menjaga keseimbangan, sepeda harus terus berjalan. Demikian pula hidup ini.

Tidak ada hal yang lebih lembut dari kekuatan, dan tidak ada hal yang lebih kuat dari kelembutan.

“Saya memiliki tiga harta. Jaga dan peliharalah: cinta yang dalam, kesederhanaan, ketidakberanian memenangkan dunia. Dengan cinta yang dalam, seseorang akan jadi pemberani. Dengan kesederhanaan, seseorang akan menjadi dermawan. Dengan ketidakberanian memenangkan dunia, seseorang akan menjadi pemimpin dunia” (Lao-tzu, Filsuf China)

“Keyakinan merupakan suatu pengetahuan di dalam hati, jauh tak terjangkau oleh bukti” (Kahlil Gibran, Pujangga)

Banyak kegagalan dalam hidup ini dikarenakan orang-orang tidak menyadari betapa dekatnya mereka dengan keberhasilan saat mereka menyerah. – Thomas Alva Edison
Jadilah diri anda sendiri. Siapa lagi yang bisa melakukannya lebih baik ketimbang diri anda sendiri? – Frank Giblin, Ii

Kesempatan anda untuk sukses di setiap kondisi selalu dapat diukur oleh seberapa besar kepercayaan anda pada diri sendiri. – Robert Collier

Membuat Calculator sederhana di Visual Basic

Siapkan 1 Form, dan 17 command botton

Dim kal, operator As String

Dim tanda As Boolean

Dim bil As Double

Private Sub cmdangka_Click(Index As Integer)

    If txtbil.Text = "0" And Index = 0 Then Exit Sub

    kal = kal + Trim(Str(Index))

    txtbil.Text = kal

End Sub

Private Sub cmdclear_Click()

 tanda = False

    kal = ""

    operator = ""

    txtbil.Text = "0"

End Sub

Private Sub cmdoperator_Click(Index As Integer)

Select Case Index

Case 0

bil2 = Val(kal)

If operator = "+" Then bil = bil + bil2

If operator = "-" Then bil = bil - bil2

If operator = "*" Then bil = bil * bil2

If operator = "/" Then bil = bil / bil2

txtbil.Text = bil

kal = Trim(Str(bil))

titik = False

Case 1

bil = Val(kal)

operator = "+"

kal = ""

titik = False

Case 2

    bil = Val(kal)

    operator = "-"

    kal = ""

    titik = False

Case 3

    bil = Val(kal)

    operator = "*"

    kal = ""

    titik = False

Case 4

    bil = Val(kal)

    operator = "/"

    kal = ""

    titik = False

Case 5

    If tanda = False And txtbil.Text = "0" Then kal = "0."

    If tanda = False And txtbil.Text <> "0" Then kal = kal & "."

    If tanda = True Then Exit Sub

    tanda = True

End Select

End Sub

Private Sub Form_Load()

    tanda = False

    kal = ""

    operator = ""

    txtbil.Text = "0"

    End Sub

Selengkapnya Download disini

Menghitung bulan kabisat di Visual basic

Siapkan satu Form, 1 Textbox, 1 label dan 1 ComamndBotton

Codingnya :


Private Sub Command1_Click()
If Val(Text1.Text) Mod 4 = 0 Then
If Val(Text1.Text) Mod 100 = 0 Then
If Val(Text1.Text) Mod 400 = 0 Then
Label1.Caption = "Kabisat"
Else
Label1.Caption = "Bukan Kabisat"
End If
Else
Label1.Caption = "Kabisat"
End If
Else
Label1.Caption = "BUkan Kabisat"
End If

End Sub


Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If

End Sub

selengkapnya Download disini

Cara Membuat Zodiak Games di Visual Basic

Berikut cara membuat Games Zodiak dan berserta Codingnya

Gambar Menu Zodiak

Codingnya Sbb:

Private Sub Timer1_Timer()

Label5.Caption = Time

End Sub

Private Sub txtexit_Click()

y = MsgBox("benar Anda Ingin Keluar ?", vbYesNo + 16, "Perigatan")

If y = 6 Then

Unload Me

Else

Cancel = 7

End If

End Sub

Private Sub txtnew_Click()

txtnama.Text = ""

txttgl.Text = ""

txtbln.Text = ""

txttahun.Text = ""

ckelamin.Text = ""

txtumur.Text = ""

Label8 = ""

Label10 = ""

Label6 = ""

txtnama.SetFocus

End Sub

Private Sub txtzodiak_Click()

Day (txttgl.Text)

Month (txtbln.Text)

Year (txttahun.Text)

If (txttgl.Text >= 20 And txtbln.Text = 1) Or (txttgl.Text <= 18 And txtbln.Text = 2) Then

Label8 = "AQUARIUS"

Label10 = "Peluang yang ada masih bisa diraih dengan seoptimal mungkin.Dihari ini banyak yang bisa anda kerjakan, untuk itu tak baik menunda pekerjaan kalau hanya rasa malas yang menjadi alasan. "

Label6 = "Tidak ada masalah yang berhubungan dengan masalah badan anda, semuanya tanpa baik dan terjaga."

Image1.Picture = LoadPicture(App.Path & "/" & "aquarius.jpg")

ElseIf (txttgl.Text >= 19 And txtbln.Text = 2) Or (txttgl.Text <= 20 And txtbln.Text = 3) Then

Label8 = "PISCES"

Label10 = "Jangan membesar-besarkan masalah, apalagi jika sudah hampir beres,Usaha boleh dibilang lancar dan tidak mengalami hambatan yang terlalu signifikan."

Label6 = "Di kala beristirahat sebaiknya Anda lupakan sejenak urusan di kantor walaupun sebenarnya masalah yang Anda tanggung saat ini lumayan berat"

Image1.Picture = LoadPicture(App.Path & "/" & "pisces.jpg")

ElseIf (txttgl.Text >= 21 And txtbln.Text = 3) Or (txttgl.Text <= 20 And txtbln.Text = 4) Then

Label8 = "ARIES"

Label10 = "Di kala beristirahat sebaiknya Anda lupakan sejenak urusan di kantor walaupun sebenarnya masalah yang Anda tanggung saat ini lumayan berat."

Label6 = "Kepala terasa pening walau tak terlalu parah akan tetapi cukup mengganggu kinerja Anda."

Image1.Picture = LoadPicture(App.Path & "/" & "aries.jpg")

ElseIf (txttgl.Text >= 21 And txtbln.Text = 4) Or (txttgl.Text <= 20 And txtbln.Text = 5) Then

Label8 = "TAURUS"

Label10 = "Jangan cemas karena masih ada yang mau membantu di kala Anda mengalami kesulitan."

Label6 = "Batuk yang Anda derita bukanlah batuk sepele. Segera pergi ke dokter, jangan menundanya jika tak ingin ada masalah di kemudian hari."

Image1.Picture = LoadPicture(App.Path & "/" & "taurus.jpg")

ElseIf (txttgl.Text >= 21 And txtbln.Text = 5) Or (txttgl.Text <= 20 And txtbln.Text = 6) Then

Label8 = "GEMINI"

Label10 = "Jangan ambil resiko jika memang saran yang muncul dari rekan-rekan hanya akan mendatangkan masalah saja."

Label6 = "Flu tampak tidak dapat diajak kompromi sehingga cukup mengganggu."

Image1.Picture = LoadPicture(App.Path & "/" & "gemini.jpg")

ElseIf (txttgl.Text >= 21 And txtbln.Text = 6) Or (txttgl.Text <= 20 And txtbln.Text = 7) Then

Label8 = "CANCER"

Label10 = "Buat daftar pekerjaan begitu bangun di pagi hari. Dengan begitu, Anda tak lagi menunda pekerjaan dan mengkhawatirkan pekerjaan setelah jam kerja usai."

Image1.Picture = LoadPicture(App.Path & "/" & "cancer.jpg")

ElseIf (txttgl.Text >= 21 And txtbln.Text = 7) Or (txttgl.Text <= 21 And txtbln.Text = 8) Then

Label8 = "LEO"

Label10 = "Jika seseorang terlihat sangat luar biasa, cobalah untuk melihat pada kredibilitasnya."

Label6 = "Memang sulit untuk memulai sesuatu yang positif, akan tetapi setelah berjalan maka semua itu akan terasa ringan."

Image1.Picture = LoadPicture(App.Path & "/" & "leo.jpg")

ElseIf (txttgl.Text >= 21 And txtbln.Text = 8) Or (txttgl.Text <= 21 And txtbln.Text = 9) Then

Label8 = "VIRGO"

Label10 = "Bersiaplah untuk melakukan aksi dan katakan apa yang ada dalam pikiran Anda."

Label6 = "Kurangi makan terlalu pedas dan terlalu banyak. Makanlah sesuai dengan porsi yang ada. Jangan sampai melebihi batas."

Image1.Picture = LoadPicture(App.Path & "/" & "virgo.jpg")

ElseIf (txttgl.Text >= 22 And txtbln.Text = 9) Or (txttgl.Text <= 22 And txtbln.Text = 10) Then

Label8 = "LIBRA"

Label10 = "Anda membuat pernyataan atau pergerakan besar pada minggu ini. Anda juga membuat sesuatu yang berbeda dan lebih baik."

Label6 = "Udara segar dan lingkungan yang nyaman akan sangat membantu untuk menghilangkan segala kepenatan yang ada dalam pikiran dan badan Anda, untuk itu mulai dipersiapkan rencana jalan-jalan di daerah yang bebas polusi."

Image1.Picture = LoadPicture(App.Path & "/" & "libra.jpg")

ElseIf (txttgl.Text >= 23 And txtbln.Text = 10) Or (txttgl.Text <= 22 And txtbln.Text = 11) Then

Label8 = "SCORPIO"

Label10 = "Profesionalitas dan cinta kadang sulit untuk berjalan bersamaan tanpa ada usaha yang keras dari dalam diri."

Label6 = "Kurangilah begadang di malam hari karena selain menguras stamina juga biaya yang dikeluarkan untuk itu lumayan besar."

Image1.Picture = LoadPicture(App.Path & "/" & "scorpio.jpg")

ElseIf (txttgl.Text >= 23 And txtbln.Text = 11) Or (txttgl.Text <= 20 And txtbln.Text = 12) Then

Label8 = "SAGITARIUS"

Label10 = "Ada peningkatan, hanya saja semua itu masih butuh kreasi dan inovasi baru sehingga tidak terkesan monoton."

Label6 = "Income di hari ini lumayan tinggi karena ada pemasukan yang tidak Anda sangka sebelumnya."

Image1.Picture = LoadPicture(App.Path & "/" & "sagitarius.jpg")

ElseIf (txttgl.Text >= 21 And txtbln.Text = 12) Or (txttgl.Text <= 19 And txtbln.Text = 1) Then

Label8 = "CAPRICON"

Label10 = "Jangan lawan perintah atasan karena posisi Anda masih belum begitu kuat."

Label6 = "Kondisi badan perlu dijaga, hindari keluar malam."

Image1.Picture = LoadPicture(App.Path & "/" & "capricon.jpg")

Else

Label8 = "ERROR"

Label10 = "ERROR"

Label6 = "ERROR"

txtumur = "ERROR"

End If

txtumur = Year(Date) - txttahun.Text

End Sub

Okey. Selamat Mencoba

Download disini

Cara mengetahui Keylogger di Komputer / PC

     Keylogger memang sangat berbahaya, terutama apabila sudah menginfeksi komputer yang terkoneksi ke internet dan enggak menyadarinya. Bisa-bisa semua password yang penting seperti password paypal, libertyreserve, klikbca, Facebook dicuri (Kan bisa berabe). Tetapi, sekarang ada kok cara mudah untuk tahu. 

Penasaran? . . .

Oke langsung aja yuk ikuti step by stepnya :

• Buka command prompt. Masuk ke accessories >> command prompt
• Ketikkan dir kemudian tekan enter (Lihat gambar 1)

Gambar 1.

• Jika sudah sekarang, ingat angka yang muncul di command prompt (Bisa tuliskan angkanya di kertas supaya enggak lupa). (Lihat gambar 2)

Gambar 2.

• Kemudian sekarang buka program notepad ketik sembarangan dan usahakan agak banyak, tetapi jangan disave
• Ulangi langkah 1 s/d 3, setelah itu lihat angka yang muncul. Apakah angkanya berubah atau enggak? Bilamana angkanya berubah berarti komputer atau PC terkena serangan keylogger.

Sebenarnya ini adalah cara tersimpel dan termudah untuk mengetahui keylogger di PC atau komputer. Keylogger yang aktif akan memakan memori komputer saat mengetik, walaupun hasil ketikan itu enggak disave, karena programnya tersembunyi dan langsung otomatis eksekusi begitu komputer dinyalakan. Selamat mencoba!

Persahabatan

Mempunyai sahabat dalam kehidupan adalah sesuatu yang sangat menyenangkan. Bagaimana tidak, dia selalu bersama kita baik itu kala kita dalam suka maupun duka.  Mempunyai seorang sahabat sejati merupakan impian setiap manusia dalam bergaul dengan sesamanya. Seorang sahabat sejati adalah seorang sahabat yang tidak hanya ada saat dia membutuhkan kita, tapi dia juga selalu ada saat kita membutuhkan dia.

Kata - kata Mutiara

Sayang engkau bukanlah yang terbaik untuku, begitu pula denganku aku bukan yang terbaik untukmu
Engkau adalah wanita yang paling tepat untuk mendampingiku menjadi yang terbaik.



Kita harus sedikit menyerupai satu sama lain
untuk mengerti satu sama lain
Tetapi kita harus sedikit berbeda
Untuk mencintai satu sama lain


Cinta yang belum matang berkata:
"Aku cinta kamu karena aku butuh kamu"
Cinta yang sudah matang berkata:
"Aku butuh kamu karena aku cinta kamu"


Jika kita mencintai seseorang
Berusahalan untuk tampil apa adanya
karena Cinta sejati selalu dapat
Menerima Kelebihan dan Kekurangan


Bahagialah bagi orang yang mengerti akan arti cinta,
Karena Cinta itu akan memberikan warna bagi kehidupannya