Jumat, 07 Juni 2013

Memaknai Arti Tertawa, Menangis dan Marah

Kalau selama ini Anda percaya marah bikin cepat tua, maka menangis hanya buang-buang air mata, dan tertawa itu tidak penting, wah pikirkan lagi terlebih dahulu anggapan itu. Ketiga hal tersebut mungkin justru membuat tubuh Anda makin sehat.
 Tertawa
 - Tertawa sangat bermanfaat bagi kesehatan
 Tertawa melepaskan energi positif yang menstimulasi otak untuk melepaskan pemikiran-pemikiran negatif maupun depresi yang dialami tubuh. Menurunnya tingkat depresi pada tubuh menyebabkan sistem kekebalan tubuh pun meningkat secara otomatis sehingga tubuh terasa lebih segar dan sehat.
 - Tubuh akan menghasilkan hormon ketika ketawa 
Tubuh kita akan menghasilkan hormon endorphine yang memberikan rasa nyaman bagi tubuh. Tertawa juga dapat meredakan stres bahkan dipercaya dapat membuat orang lebih awet muda.
 - Tertawa dapat membantu proses penyembuhan penyakit 
Tertawa juga dipercaya dapat bermanfaat untuk membantu proses penyembuhan atas suatu penyakit yang tengah diderita. Dengan tertawa peredaran darah dalam tubuh akan lancar, kadar oksigen dalam darah meningkat. Selain itu, tekanan darah akan normal.
 - Tertawa itu sehat
 Tertawa yang sehat adalah yang lepas, gembira dan dilakukan dengan sepenuh hati. Ketika tertawa, otot-otot di sekitar wajah pun mendapatkan stimulasi. Sehingga dapat sekaligus untuk senam wajah, mengendurkan ketegangan otot-otot di wajah.
 Menangis
 - Menangis dapat meningkatkan kesehatan Menangis adalah ekspresi dari emosi yang dipercaya dapat meningkatkan kesehatan. Hal ini dipicu karena air mata yang keluar saat menangis mengandung zat mangan dan hormon prolaktin yang cenderung meningkat ketika seseorang dilanda frustrasi/depresi. Keluarnya kedua zat tersebut dari tubuh secara otomatis menurunkan depresi yang tengah diderita.
 - Ada tiga jenis air mata
   * Pertama: Air mata basal yang diproduksi untuk melubrikasi mata secara teratur. 
   * Kedua: air mata yang keluar secara refleks karena dipicu oleh iritasi yang dapat terjadi oleh pengaruh         bawang atau lainnya. 
   * Ketiga: air mata yang keluar karena pengaruh emosi. Jenis air mata terakhir inilah yang memiliki zat mangan dan hormon prolaktin tertinggi. Jadi, ketika seseorang menangis karena emosi yang melanda dirinya, keluarnya air mata tersebut secara naluriah mengurangi perasaan depresi yang ada hingga tubuh mencapai kondisi stabil.
 - Menangis sepuasnya menagis sehat
 Air mata yang keluar karena pengaruh emosi. Jenis air mata terakhir inilah yang memiliki zat mangan dan hormon prolaktin tertinggi. Jadi, ketika seseorang menangis karena emosi yang melanda dirinya, keluarnya air mata tersebut secara naluriah mengurangi perasaan depresi yang ada hingga tubuh mencapai kondisi stabil.
 Marah
 - Ekspresi emosi manusia 
Menurut Charles Spielberger, Ph.D., seorang ahli psikologi yang mengambil spesialisasi studi tentang marah. Marah adalah suatu perilaku yang normal dan sehat yakni sebagai salah satu bentuk ekspresi emosi manusia. Seperti bentuk emosi lainnya, marah juga diikuti dengan perubahan psikologis dan biologis. Ketika Anda marah, denyut nadi dan tekanan darah meningkat, begitu juga dengan level hormon, adrenalin dan noradrenalin.
 - Marah yang disengaja, marah spontan, marah konstruktif,
 marah destruktif Seorang konsultan pencegahan stres dan kekerasan—Mark Gorkin membagi marah dalam empat kategori; marah yang disengaja, marah spontan marah y


g dilakukan secara tiba-tiba, marah konstruktif (marah yang disertai ancaman terhadap orang lain) dan marah destruktif (marah yang ditumpahkan tanpa rasa bersalah).
 - Marah juga merupakan satu bentuk komunikasi
 Karena adakalanya orang lain baru mengerti maksud yang ingin disampaikan ketika kita marah. . Di Jepang, orang sering diam saat marah karena memang orang-orang Jepang tidak terbiasa mengekspresikan perasaannya. Berbeda dengan orang Amerika yang lebih berterus terang mengungkapkan perasaannya atau sama halnya dengan Suku Batak di tanah air kita.
 - Marah juga membuat manusiawi
 Marah yang bisa berdampak buruk adalah marah yang tidak dikelola. Sebaliknya bila Anda mampu mengelola amarah dengan tepat, maka ekspresi kemarahan Anda justru akan menyehatkan. Hal ini sudah terbukti pada sebuah penelitian yang menyatakan marah akan lebih baik daripada memendam perasaan jengkel.

Jumat, 31 Mei 2013

Penggajian Karyawan dengan List View

Coding Program.::Penggajian Karyawan::. Public Class Form1 Sub buattabel() LV.GridLines = True LV.View = View.Details LV.FullRowSelect = True LV.Columns.Add("NIK", 50, HorizontalAlignment.Center) LV.Columns.Add("Nama", 150, HorizontalAlignment.Left) LV.Columns.Add("Jabatan", 85, HorizontalAlignment.Center) LV.Columns.Add("Gaji", 85, HorizontalAlignment.Center) LV.Columns.Add("Status", 85, HorizontalAlignment.Center) LV.Columns.Add("Tunj.Keluarga", 85, HorizontalAlignment.Left) LV.Columns.Add("Pajak", 85, HorizontalAlignment.Center) LV.Columns.Add("Total Gaji", 85, HorizontalAlignment.Center) End Sub Private Sub cmdSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSimpan.Click Dim lst As New ListViewItem lst.Text = NIK.Text lst.SubItems.Add(nama.Text) lst.SubItems.Add(jabatan.Text) lst.SubItems.Add(gaji.Text) lst.SubItems.Add(status.Text) lst.SubItems.Add(tunj_Kel.Text) lst.SubItems.Add(pajak.Text) lst.SubItems.Add(total.Text) LV.Items.Add(lst) End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Call buattabel() Call items() End Sub Sub items() NIK.Items.Add("001") NIK.Items.Add("002") NIK.Items.Add("003") jabatan.Items.Add("Mandor") jabatan.Items.Add("Kepala Bagian") jabatan.Items.Add("Staf") status.Items.Add("Menikah") status.Items.Add("Tidak Menikah") End Sub Private Sub NIK_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NIK.SelectedIndexChanged Select Case NIK.Text Case "001" : nama.Text = "Oncom" Case "002" : nama.Text = "Udin" Case "003" : nama.Text = "Ujang" End Select End Sub Private Sub status_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles status.SelectedIndexChanged Select Case status.Text Case "Menikah" : tunj_Kel.Text = 0.15 * gaji.Text Case "Tidak Menikah" : tunj_Kel.Text = 0 End Select End Sub Private Sub jabatan_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles jabatan.SelectedIndexChanged Select Case jabatan.Text Case "Mandor" : gaji.Text = 1750000 Case "Kepala Bagian" : gaji.Text = 2500000 Case "Staf" : gaji.Text = 1250000 End Select pajak.Text = 0.15 * gaji.Text End Sub Private Sub cmdProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdProses.Click total.Text = Val(gaji.Text) + Val(tunj_Kel.Text) - Val(pajak.Text) End Sub Private Sub cmdHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdHapus.Click LV.Items.Remove(LV.SelectedItems(0)) End Sub Private Sub cmdKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdKeluar.Click End End Sub Private Sub cmdBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdBaru.Click Call bersih() End Sub Sub bersih() NIK.Text = "" nama.Text = "" jabatan.Text = "" gaji.Text = "" status.Text = "" tunj_Kel.Text = "" pajak.Text = "" total.Text = "" End Sub End Class HASIL AKHIR :