SOAL QUIZ NO 3

LISTING PROGRAM LOGIN

Public Class Form1

    Private Sub btnok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnok.Click
        If username.Text = "anjaz" And password.Text = "123" Then
            Formmenu.Show()
            Me.Hide()
        Else
            MsgBox("Maaf! Password salah!")
            username.Text = ""
            password.Text = ""
        End If
    End Sub

    Private Sub password_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles password.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            btnok_Click(sender, e)
        End If
    End Sub

    Private Sub password_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles password.TextChanged

    End Sub

    Private Sub btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnkeluar.Click
        End
    End Sub
End Class

Hasil Program

LISTING PROGRAM FORMMENU

Public Class formmenu

    Private Sub DataPenggajianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataPenggajianToolStripMenuItem.Click
        Penggajian.Show()

    End Sub
End Class

Hasil Program

LISTING PROGRAM PENGGAJIAN KARYAWAN

Public Class Penggajian

    Sub clearisian()
        No.Text = ""
        Kode.Text = ""
        Nama.Text = ""
        Jabatan.Text = ""
        Gaji.Text = ""
        Status.Text = ""
        Tistri.Text = ""
        Janak.Text = ""
        Tanak.Text = ""
        Jam.Text = ""
        Lembur.Text = ""
        Pajak.Text = ""
        Total.Text = ""
        No.Focus()

    End Sub

    Sub buattabel()
        Lv.Columns.Add("No", 30, HorizontalAlignment.Center)
        Lv.Columns.Add("Kode Pegawai", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Nama Pegawai", 180, HorizontalAlignment.Left)
        Lv.Columns.Add("Jabatan", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Gaji", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Status", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Tunj Istri", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Jumlah Anak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Tunj Anak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Jam", 50, HorizontalAlignment.Left)
        Lv.Columns.Add("Lembur", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Pajak", 80, HorizontalAlignment.Left)
        Lv.Columns.Add("Total Gaji", 80, HorizontalAlignment.Left)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True
    End Sub

    Sub isitabel()
        Dim Lst As New ListViewItem
        Lst.Text = No.Text
        Lst.SubItems.Add(Kode.Text)
        Lst.SubItems.Add(Nama.Text)
        Lst.SubItems.Add(Jabatan.Text)
        Lst.SubItems.Add(Gaji.Text)
        Lst.SubItems.Add(Status.Text)
        Lst.SubItems.Add(Tistri.Text)
        Lst.SubItems.Add(Janak.Text)
        Lst.SubItems.Add(Tanak.Text)
        Lst.SubItems.Add(Jam.Text)
        Lst.SubItems.Add(Lembur.Text)
        Lst.SubItems.Add(Pajak.Text)
        Lst.SubItems.Add(Total.Text)
        Lv.Items.Add(Lst)
    End Sub

    Private Sub Penggajian_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()
        Kode.Items.Add("A001")
        Kode.Items.Add("A002")
        Kode.Items.Add("B001")
        Kode.Items.Add("B002")
        Jabatan.Items.Add("MANDOR")
        Jabatan.Items.Add("KEPALA BAGIAN")
        Jabatan.Items.Add("STAF")
        Status.Items.Add("MENIKAH")
        Status.Items.Add("TIDAK MENIKAH")
        Jam.Items.Add("1")
        Jam.Items.Add("2")
        Jam.Items.Add("3")
    End Sub

    Private Sub Keluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Keluar.Click
        Me.Close()
    End Sub

    Private Sub Bersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bersih.Click
        Call clearisian()
    End Sub

    Private Sub Simpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Simpan.Click
        isitabel()
    End Sub

    Private Sub Kode_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode.SelectedIndexChanged
        If Kode.Text = "A001" Then
            Nama.Text = "Nur Anjas"
        ElseIf Kode.Text = "A002" Then
            Nama.Text = "Nanda"
        ElseIf Kode.Text = "B001" Then
            Nama.Text = "Dika"
        ElseIf Kode.Text = "B002" Then
            Nama.Text = "Putri"
        End If
    End Sub

    Private Sub Jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jabatan.SelectedIndexChanged
        If Jabatan.Text = "MANDOR" Then
            Gaji.Text = 1750000
        ElseIf Jabatan.Text = "KEPALA BAGIAN" Then
            Gaji.Text = 2500000
        ElseIf Jabatan.Text = "STAF" Then
            Gaji.Text = 1250000
        End If
    End Sub

    Private Sub Status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Status.SelectedIndexChanged
        If Status.Text = "MENIKAH" Then
            Tistri.Text = (0.09 * Gaji.Text)
        ElseIf Status.Text = "TIDAK MENIKAH" Then
            Tistri.Text = 0
        End If
    End Sub

    Private Sub proses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles proses.Click
        If Janak.Text = 1 Then
            Tanak.Text = (0.03 * Gaji.Text)
        ElseIf Janak.Text >= 2 Then
            Tanak.Text = (0.07 * Gaji.Text)
        End If


        If Jabatan.Text = "STAF" And Jam.Text = 1 Then
            Lembur.Text = 5000
        ElseIf Jabatan.Text = "STAF" And Jam.Text = 2 Then
            Lembur.Text = 10000
        ElseIf Jabatan.Text = "STAF" And Jam.Text = 3 Then
            Lembur.Text = 15000

        ElseIf Jabatan.Text = "MANDOR" And Jam.Text = 1 Then
            Lembur.Text = 7500
        ElseIf Jabatan.Text = "MANDOR" And Jam.Text = 2 Then
            Lembur.Text = 15000
        ElseIf Jabatan.Text = "MANDOR" And Jam.Text = 3 Then
            Lembur.Text = 22500

        ElseIf Jabatan.Text = "KEPALA BAGIAN" And Jam.Text = 1 Then
            Lembur.Text = 10000
        ElseIf Jabatan.Text = "KEPALA BAGIAN" And Jam.Text = 2 Then
            Lembur.Text = 20000
        ElseIf Jabatan.Text = "KEPALA BAGIAN" And Jam.Text = 3 Then
            Lembur.Text = 30000
        End If


        Pajak.Text = (0.015 * Gaji.Text)

        Total.Text = Val(Gaji.Text) + Val(Tistri.Text) + Val(Tanak.Text) + Val(Lembur.Text) - Val(Pajak.Text)

    End Sub

    Private Sub Hapussemua_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapussemua.Click
        Lv.Items.Clear()
    End Sub

    Private Sub Hapuspilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Hapuspilih.Click
        Lv.Items.Remove(Lv.SelectedItems(0))
    End Sub
End Class

Hasil Program

LINK SOAL QUIZ

SOAL QUIZ NO 2

LISTING PROGRAM

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        buattabel()

    End Sub

    Sub buattabel()
        Lv.Columns.Add("NPM", 80, HorizontalAlignment.Center)
        Lv.Columns.Add("Nama", 100, HorizontalAlignment.Center)
        Lv.View = View.Details
        Lv.GridLines = True
        Lv.FullRowSelect = True


    End Sub
    Sub isitabel()
        Dim lst As New ListViewItem
        lst.Text = npm.Text
        lst.SubItems.Add(nama.Text)
        Lv.Items.Add(lst)
    End Sub

    Private Sub btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhapus.Click
        Lv.Items.Clear()

    End Sub

    Private Sub btndatadipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndatadipilih.Click
        Lv.Items.Remove(Lv.SelectedItems(0))

    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpan.Click
        isitabel()
        npm.Text = ""
        nama.Text = ""

    End Sub
End Class

Hasil Program

LINK SOAL QUIZ

Muhasabah Cinta

Mencintaimu dalam diam-diam
inilah caraku mencintaimu
dengan tidak menghubungimu
tak juga mengirim pesan
untuk menanyakan kabarmu

Aku mencintaimu dengan menjauh darimu
bukan karna aku membencimu
namun karna aku ingin menjaga mu
dan menjaga diri ku sendiri dari khalwat yang menjebak


Aku mencintaimu dengan menjaga diriku & dirimu
menjaga kesucianku & kesucianmu
menjaga kehormatan ku & kehormatanmu
menjaga kebeningan hatiku dan hatimu

Yaaaah....
Beginilah caraku mencintaimu
mencintaimu dalam diam
karena diamku adalah bukti cintaku padamu
dan sekarang keadaanku menegurku
sehingga dapat membantu menyadarkanku
dari kesalahan yang telah aku perbuat
meskipun pesonamu terhadapku belum pulih
aku tak bisa memungkiri bahwa setiap manusia pasti akan merasakan fitrahnya
termasuk maslah ketertarikannya terhadap lawan jenis
maka jika harus demikian
untuk apa jika hati ini aku tambatkan kepada siapa yang bukan orangnya nanti
jika hati ini sangat peka  terhadap pengaruh diri yang memilikinya
ketika hati ini salah dalam pengolahannya,
oelh karenanya jika aku harus mencintai lawan jenis adalah fitrahku sebagai manusia
maka aku akan mencoba mencintai siapa yang akan menikah dengan ku nanti
walaupun aku belum pernah bertemu dengannya pasti Allah akan mempertemukanku dengannya
sehingga usahaku yang sia-sia akan cenderung berkurang di dalam lingkup fitrahku

Insya Allah....
kalau saja Allah menjadikanku menikah dengan seorang lelaki yang di takdirkan Allah kepadaku
maka untuk apa aku berharap dan menghabiskan waktuku kepada yang lain, yang belum tentu akan menjadi suami ku kelak


Sedangkan hati ini mudah terdominasi dengan suatu yang lain
dan rasa ketertarikan ku cukuplah akan kutumpahkan kepada suamiku kelak

Yaa Allah...
Sucikanlah hatiku hanya untuk siapa yang pantas menempatinya dengan kerhidoanmu
supaya dia sajalah yang aku cintai, karena aku tidak menginginkan keburukan ketika aku berbuat
salah pada hatiku.

Cara Membuat Kalkulator dengan Visual Basic 6.0

Program kalkulator adalah program standar yang sudah tersedia di Microsoft Windows. Tetapi, tak ada salahnya jika kita mencoba membuat kalkulator sendiri dengan Microsoft Visual Basic 6.0.
Pertama-tama, buatlah sebuah form sesuai selera Anda, yang bentuknya kurang lebih seperti
kalkulator standar Windows, seperti ini:

Untuk properties dari masing-masing objek, saya contohkan seperti dibawah ini, dengan letak
masing-masing objek disesuaikan dengan gambar diatas.
Textbox 1:
(Name) : txtDisplay
Alignment: 1-Right Justify
Text : (kosongkan)
Maxlength : 12


Command Button 1:
(Name) : cmdAngka
Index : 1
Caption : 1


Command Button 2:
(Name) : cmdAngka
Index : 2
Caption : 2


Command Button 3:
(Name) : cmdAngka
Index : 3
Caption : 3


Command Button 4:
(Name) : cmdAngka
Index : 4
Caption : 4


Command Button 5:
(Name) : cmdAngka
Index : 5
Caption : 5


Command Button 6:
(Name) : cmdAngka
Index : 6
Caption : 6


Command Button 7:
(Name) : cmdAngka
Index : 7
Caption : 7


Command Button 8:
(Name) : cmdAngka
Index : 8
Caption : 8


Command Button 9:
(Name) : cmdAngka
Index : 9
Caption : 9


Command Button 10:
(Name) : cmdAngka
Index : 0
Caption : 0


Command Button 11:
(Name) : cmdPlusMinus
Caption : +/-


Command Button 12:
(Name) : cmdKoma
Caption : .


Command Button 13:
(Name) : cmdOperator
Index : 1
Caption : +


Command Button 14:
(Name) : cmdOperator
Index : 2
Caption : -


Command Button 15:
(Name) : cmdOperator
Index : 3
Caption : x


Command Button 16:
(Name) : cmdOperator
Index : 4
Caption : /


Command Button 17:
(Name) : cmdClearEntry
Caption : CE


Command Button 18:
(Name) : cmdClear
Caption : C


Command Button 19:
(Name) : cmdSamaDengan
Caption : =


Berikutnya, Anda tinggal membuat coding dari kalkulator tersebut. Jika Anda mengikuti semua
setting properties seperti diatas, maka codingnya saya contohkan seperti ini:

Option Explicit
Private Hasil As Double
Private Const opNol = 0
Private Const opTambah = 1
Private Const opKurang = 2
Private Const opKali = 3
Private Const opBagi = 4
Private Operator As Integer
Private NilaiBaru As Boolean

' untuk menghapus karakter terakhir
Private Sub Hapus()
Dim txt As String
Dim min_len As Integer
txt = txtDisplay.Text
If Left$(txt, 1) = "-" Then
min_len = 2
Else
min_len = 1
End If
If Len(txt) > min_len Then
txtDisplay.Text = Left$(txt, Len(txt) - 1)
Else
txtDisplay.Text = "0"
End If
End Sub

' hapus angka, hasil terakhir dan operator
Private Sub cmdClear_Click()
cmdClearEntry_Click
Hasil = 0
Operator = opNol
End Sub
' hapus angka
Private Sub cmdClearEntry_Click()
txtDisplay.Text = ""
End Sub
' menambahkan koma (desimal)
Private Sub cmdKoma_Click()
If InStr(txtDisplay.Text, ".") Then
Beep
Else
If NilaiBaru Then
txtDisplay.Text = "."
NilaiBaru = False
Else
txtDisplay.Text = txtDisplay.Text & "."
End If
End If
End Sub

' Menghitung
Private Sub cmdSamaDengan_Click()
Dim HasilBaru As Double
If txtDisplay.Text = "" Then
HasilBaru = 0
Else
HasilBaru = CDbl(txtDisplay.Text)
End If
Select Case Operator
Case opNol
Hasil = HasilBaru
Case opTambah
Hasil = Hasil + HasilBaru
Case opKurang
Hasil = Hasil - HasilBaru
Case opKali
Hasil = Hasil * HasilBaru
Case opBagi
'Tidak bisa dibagi nol
If HasilBaru = 0 Then
MsgBox "Tidak bisa dibagi 0", vbOKOnly + vbCritical, "Kalku ERROR"
Call cmdClear_Click
Else
Hasil = Hasil / HasilBaru
End If
End Select
Operator = opNol
NilaiBaru = True
txtDisplay.Text = Format$(Hasil)
End Sub

' menuliskan angka
Private Sub cmdAngka_Click(Index As Integer)
If NilaiBaru Then
txtDisplay.Text = Format$(Index)
NilaiBaru = False
Else
txtDisplay.Text = _
txtDisplay.Text & Format$(Index)
End If
End Sub
' tombol tambah/kurang/bagi/kali
Private Sub cmdOperator_Click(Index As Integer)
cmdSamaDengan_Click
Operator = Index
NilaiBaru = True
End Sub

' merubah tanda +/-
Private Sub cmdPlusMinus_Click()
If NilaiBaru Then
txtDisplay.Text = "-"
ElseIf Left$(txtDisplay.Text, 1) = "-" Then
txtDisplay.Text = Right$(txtDisplay.Text, 2)
Else
txtDisplay.Text = "-" & txtDisplay.Text
End If
End Sub

' filter untuk angka saja yg dapat diketikkan
Private Sub Form_KeyPress(KeyAscii As Integer)
txtDisplay_KeyPress KeyAscii
End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
txtDisplay_KeyUp KeyCode, Shift
End Sub
' supaya kursor tetap di kanan
Private Sub txtDisplay_Change()
txtDisplay.SelStart = Len(txtDisplay.Text)
End Sub
Private Sub txtDisplay_GotFocus()
txtDisplay_Change
End Sub

' untuk mengetikkan angka di keyboard
Private Sub txtDisplay_KeyPress(KeyAscii As Integer)
Dim ch As String
ch = Chr$(KeyAscii)
Select Case ch
Case "0"
cmdAngka_Click 0
Case "1"
cmdAngka_Click 1
Case "2"
cmdAngka_Click 2
Case "3"
cmdAngka_Click 3
Case "4"
cmdAngka_Click 4
Case "5"
cmdAngka_Click 5
Case "6"
cmdAngka_Click 6
Case "7"
cmdAngka_Click 7
Case "8"
cmdAngka_Click 8
Case "9"
cmdAngka_Click 9
Case "*", "x", "X"
cmdOperator_Click opKali
Case "+"
cmdOperator_Click opTambah
Case vbCrLf, vbCr, "="
cmdSamaDengan_Click
Case "-"
cmdOperator_Click opKurang
Case "."
cmdKoma_Click
Case "/"
cmdOperator_Click opBagi
Case "C", "c"
cmdClearEntry_Click
End Select
KeyAscii = 0
End Sub

' untuk ketikan angka di numpad
Private Sub txtDisplay_KeyUp(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyNumpad0
cmdAngka_Click 0
Case vbKeyNumpad1
cmdAngka_Click 1
Case vbKeyNumpad2
cmdAngka_Click 2
Case vbKeyNumpad3
cmdAngka_Click 3
Case vbKeyNumpad4
cmdAngka_Click 4
Case vbKeyNumpad5
cmdAngka_Click 5
Case vbKeyNumpad6
cmdAngka_Click 6
Case vbKeyNumpad7
cmdAngka_Click 7
Case vbKeyNumpad8
cmdAngka_Click 8
Case vbKeyNumpad9
cmdAngka_Click 9
Case vbKeyMultiply
cmdOperator_Click opKali
Case vbKeyAdd
cmdOperator_Click opTambah
Case vbKeySeparator
cmdSamaDengan_Click
Case vbKeySubtract
cmdOperator_Click opKurang
Case vbKeyDivide
cmdOperator_Click opBagi
Case vbKeyDecimal
cmdKoma_Click
Case vbKeyBack, vbKeyDelete
Hapus
End Select
KeyCode = 0
End Sub

My Activity

Assalamualaikum,hai semua teman-temen yang baik hati yang sudah mengunjungi blog saya,kali ini saya akan 


menulis tentang aktifitas saya sehari-hari sebagai mahasiswa,baiklah sebelumnya saya ingin memperkenalkan 


diri saya agar teman-temen bisa lebih mengenal saya. 

Nama                      : Nur Anjas Sari

Tempat/tlg Lahir         : Aceh Utara, 26 juni 1991

Pendidikan                : Sistem Informasi , STMIK Budidarma

Hobby                     : Dengerin musik, Membaca

Buku                      : cyber Love(Romantika Cinta Remaja Dunia Maya),Ketika Cinta Bertasbih, ku temukan kau dalam tahajudku

Kutipan                   : Jika kamu pernah melakukan kesalahan belajarlah dari kesalahan itu,kemudian tinggalkan lah kesalahan itu setelah kamu mengambil pelajaran darinya.

 

Itulah sedikitnya tentang prifil saya dan sekarang saya akan menceritakan sedikit aktivitas saya sehari-hari

senin,

    Pukul 05:15,shalat shubuh

    Pukul 07:00 melakukan pekerjaan rumah dan sarapan

    Pukul 10:15 saya memebaca buku, hanya sekedar ngilangin suntuk

    Pukul 12:30 shala dzuhur

    Pukul 13:15 makan siang dan 14:20 saya tidur siang

    Pukul 15:35 mandi dan shalat ashar

    Pukul 17:00 nonton Tv atau ngumpul bareng teman2

    Pukul 18:45 shalat maghrib dan 19:00 membaca Al-Qur’an

    Pukul 19:30 shalat isya dan setelah shalat isya saya belajar,mengerjakan tugas dan membaca buku motivasi atau buku lanjutan

    Pukul 10:35 tidur…

*)Selasa,hari selasa aktifitas saya tidak berbeda jauh dengan hari senin,bedanya kalau hari senin saya  di kos 


dan tidak ada jadwal  kuliah,sedang hari selasa saya ada jadwal kuliah…

*)rabu,kamis, jum’at dan saptu,aktifitas saya hari tersebut  juga hanya sebatas kampus dan kost saja selain itu 


tidak ada akrifitas yang lain di luar rumah

*)migggu,saya beristirahat & kadang pergi ngumpul ma temen-temen

yAchhh…begitulah aktifitas saya sehari2 selama seminggu,tidak ada aktifitas yang lain yang saya lakukan sehari2


selain ke kampus dan di kost

10 Trik Jitu Mendapatkan & Mempertahankan Persahabatan

Sahabat itu memang bukan sekadar menjadi teman curhat, teman gaul, tapi juga teman kita di segala suasana, suka maupun duka. Nggak heran, saking pentingnya, maka harga persahabatan itu tak bisa ditawar-tawar. Bahkan tidak pernah bisa tergantikan.


Ada beberapa cara untuk mendapatkan persahabatan yang solid :


1. Jadilah diri sendiri. Jika Anda percaya kalau diri Anda cukup worthy bagi sebuah persahabatan, maka sikap dan perilaku Anda akan terlihat dari segala hal yang Anda lakukan. Nah, banyak orang yang merasa nyaman dan berpikir positif bila berkawan dengan mereka yang memiliki rasa percaya diri yang cukup baik.


2. Loyal. Sifat loyal merupakan salah satu pilar utama dalam sebuah persahabatan yang solid. Bagaimana tidak. Anda tentunya ingin dipercaya dan bisa mempercayai sahabat Anda bukan? Pun Anda tentu ingin sahabat Anda tetap bersama Anda di saat Anda tengah dalam kesulitan, begitu juga sebaliknya. Untuk itulah dibutuhkan yang namanya rasa setia.


3. Tidak anti kritikan. Sahabat yang sebenarnya konon adalah mereka yang tidak cuma rajin memuji tapi gemar pula memberi kritikan positif. Untuk itu Anda tak perlu anti dengan kritikan mereka karena toh tujuannya demi kebaikan Anda juga bukan?


4. Ringan tangan. Sahabat Anda akan sangat menghargai segala kebaikan dan pertolongan yang Anda berikan. Terlebih jika Anda melakukannya dengan ketulusan hati tanpa embel-embel sesuatu dan tanpa harus diminta olehnya.


5. Fair-minded. Sebagai sahabat, tentunya akan lebih baik jika Anda menelaah sebuah persoalan bersama dari sudut pandang yang berbeda. Cara tersebut kemungkinan akan lebih cepat menyelesaikan permasalahan.


6. Mau mendengar. Dalam menjalin persahabatan, Anda sebaiknya bukan cuma asal mendengar curhat-nya, tapi cobalah untuk memberikan perhatian dan jangan memonopoli pembicaraan.


7. Jangan gunakan teman Anda sebagai penasihat pribadi. Kenapa? Dikit-dikit, curhat, pasti bikin Anda jadi teman yang membosankan. Lain halnya bila Anda telah bertanya pada sahabat Anda apakah ia mau mendengarkan masalah Anda.


8. Berbagi kebahagiaan dengan sahabat. Jangan cuma waktu curhat saja Anda ingat teman, tapi waktu lagi bahagia juga perlu.


9. Jangan lupa ultah teman. Mengingat hari-hari khusus teman adalah keharusan. Kirim kartu atau bunga, untuk menunjukkan bahwa sahabat Anda bernilai besar.


10. Tunjukkan bahwa Anda memikirkan dia ketika Anda tidak bersamanya. Caranya macam-macam, bisa kirim kartu, e-mail, SMS, atau tinggalkan pesan di teleponnya, bila tidak sempat bertemu. Atau, bisa juga Anda kirim artikel dari majalah yang dia sukai

Kata-Kata Mutiara

Tinggalkan kepura-puraan dalam hidup, nyatakan isi hatimu,keluarkan uneg-uneg mu, sampaikan kepada siapapun apa yang kamu inginkan, jangan pendam kekuatan mu, jangan gunakan topeng kepalsuanmu, engkau adlah dirimu sendiri.

Jangan kecilkan kemampuan mu, kekuatan itu sesungguhnya bukan pada fisikmu, tapi pada mentalmu. Berapa banyak orang yang sehat fisiknya tapi mentalnya sakit.

Hidup membutuhkan kesabaran untuk memetik hasil, kejelian untuk memilih tempat mengubah nasib hidup dan daya tahan yang tangguh untuk sampai kepada apa yang anda impikan.

Hidup membutuhkan teman, sahabat. Sahabat dan teman adlah penguat langkah, peneguh keyakinan. Carilah sahabat yang membuat keyakinan anda teguh.

Hidupmu tak selamanya berada di atas jalan yang keras, kadang di atas jalan yang licin engkau lalui. Gunakan mata yang tajam agar engkau tidak tergelincir. Dan seimbangkan selalu lahir dan batin. Engkau pasti selamat.

Terbangkan impianmu ke angkasa bebas, jangan batasi impian mu, arungilah angkasa impian dengan rasa syukur akan kebesarannya, niscaya engkau akan menemukan kenikmatan tak terkira.