Mandi Sehabis Begadang Dapat Menyebabkan Kematian !

   Buat yang suka begadang, pasti tahu kan kalau begadang sangat tidak baik buat kesehatan. Bahkan kurang tidur bisa menyebabkan kematian, di tambah lagi kalau setelah begadang langsung mandi. Katanya bisa kena "Masuk Angin Stadium 5? loh..!! 

   Dampak kurang tidur dan mandi setelah begadang bisa menyebabkan kematian. Selain itu, kalau mandi sehabis begadang juga beresiko terkena paru-paru basah dan "Angin Duduk" yang bisa berakibat fatal, bahkan meninggal mendadak. Habis mandi lemes, pusing terus tidur tapi tidak bangun lagi, serem kan..? 

   Untuk penjelasan secara logis tentang sehabis begadang langsung mandi sederhananya adalah seperti ini : Tubuh kamu yang begadang itu sebenarnya melakukan banyak aktivitas yang seharusnya pada waktu itu harus segera di istirahatkan. Karena banyak aktivitas yang terjadi di dalam tubuh kita, tanpa kita sadari terjadi pemanasan dari dalam tubuh kita. Nah, bayangkan kalau dari suhu tubuh yang panas tiba-tiba disiram dengan air di pagi hari yang suhunya jauh lebih dingin ketimbang suhu tubuh kamu, apa yang akan terjadi? 

   Penurunan suhu tubuh yang sangat drastis dan spontan, sedangkan tubuh kita tidak dirancang untuk itu. Kejadian itu mempunyai logis yang sama halnya dengan "Terjun dari ketinggian yang menggunakan parasut" dan "Terjun tanpa menggunakan parasut". Bisa membayangkan apa akibatnya, sangat jauh berbeda bukan? Makanya sangat disarankan untuk tidak langsung mandi sesaat setelah begadang, karena dapat membahayakan untuk kondisi tubuh.

Melihat Kepribadian Seseorang Dari Sidik Jari

Berbagai cara dalam ilmu psikologi untuk mengetahui sifat dan kepribadian seseorang. Misalnya saja dengan golongan darah. Satu metoda lain yakni melihat pola sidik jari.

Untuk mengetahui cara membaca kepribadian seseorang lewat sidik jari, kita harus mengetahui bahwa ada beberapa bentuk pola dasar Dermatoglyphic tentang sidik jari yaitu:


1. Whorl
Whorl bisa berbentuk sebuah Spiral, Bulls-eye, atau Double Loop.  Whorl adalah titik-titik menonjol dan kontras, dan bisa dilihat dengan mudah.

Cetakan Spiral dan Bulls-eye adalah persis sebangun dalam interpretasinya, namun yang kedua memberikan sedikit lebih banyak fokus.  Di mana pun di bagian tangan, Whorl menyoroti dan menekankan kepada daerah tertentu, menjadikannya sebuah wilayah fokus di dalam kehidupan subyek.


2. Arch

Pola ini bisa terlihat sebagai sebuah Flat Arch, atau Tented Arch.  Perhatikan setiap pola Arch menaik sangat tinggi.


3. Loop

Loop dapat menaik ke arah ujung jari, atau menjatuh ke arah pergelangan tangan.  Common Loop bergerak ke arah ibu jari, sementara Radial Loop (Loop terbalik) bergerak mengarahkan ujung pemukulnya ke sisi lengan.

Ada empat klasifikasi Loop:

3.1. Loop Umum (Common Loop)

Tipe paling umum dari sidik jari adalah Common Loop.  Cetakan ini mengungkap kemampuan untuk menggunakan berbagai ide dari berbagai sumber ide, dan mencampurnya dengan gaya yang unik.


3.2. Loop Memusat (Radial Loop)
Sebuah cetakan menukik yang memasuki dan berangkat dari sisi ibu jari tangan disebut Radial Loop (kadang-kadang disebut Reverse Loop, atau Inventor Loop).  Jika Common Loop menunjukkan campuran gaya-gaya lain, Radial Loop mengungkapkan kemampuan untuk menciptakan sebuah gaya atau sistem yang sama sekali baru.


3.3. Double Loop
Double Loop kebanyakan disalahpahami oleh hampir semua penandaan Dermatoglyphic.  Pada umumnya, menginterpretasikan Double Loop sama seperti dengan Whorl-whorl yang lain, dengan perbedaan utama.

3.4.Triradius
Triradius (juga disebut “Delta”) dapat digunakan untuk menunjuk dengan tepat pusat dari setiap gunung.  Gunung-gunung itu kemudian bisa dilihat sebagai terpusat, kecenderungan, atau berpindah.

***

Ok, sekarang amati sidik jari kamu dengan ban tuan kaca pembesar (loup). Termasuk yang mana? Berikut uraian kepribadian yang mungkin dimiliki sesuai pola sidik jari kamu

Foto: globalsecurity.org

1. Sidik jari berpola Whorl
Jari telunjuk â€" â€œAnugerah Persepsi”. Individu dengan pola ini hampir mustahil untuk menipu atau berbohong.  Mereka secara umum mengalami masa kanak-kanak yang sangat tidak bahagia.  Mereka hanya bisa melihat dengan sangat jelas penipuan-penipuan dan kepura-puraan orang lain, termasuk orang tua mereka sendiri.

Jari Tengah â€" â€œAnugerah Organisasi”.  Pemilik pola ini dapat melihat penggolongan-penggolongan dan hubungan-hubungannya pada hampir semua orang.  Mereka akan menggolongkan orang-orang dan kejadian dalam tipe-tipe khusus tertentu.  Mereka bersifat sangat curiga, dan senang membongkar atau menyelidiki “rahasia-rahasia.

Jari Manis â€" â€œAnugerah Pembedaan”.  Sebuah kemampuan untuk menyoroti kekurangan-kekurangan di dalam setiap rencana, desain, konsep, atau orang per orang.  Suatu kecenderungan yang kuat ke arah kesempurnaan (perfeksionis), terutama dalam pekerjaannya sendiri.  Orang ini tidak bisa memaklumi sebuah gambar yang tergantung sedikit miring.

Jari Kelingking â€" â€œAnugerah Komunikasi”.  Meski biasanya malu sendiri dan menahan diri, mereka ini mempunyai anugerah berupa kepandaian berbicara dan menulis kata.  Ahli pidato alami, yang mempunyai kemampuan untuk bergerak dan mengilhami orang lain dengan kekuatan suaranya.  Satu karateristik yang menarik adalah penempatan pandangan-pandangan spiritualnya.  Mereka tidak akan pernah mengikuti dogma dari agama apa pun, tetapi mempunyai filsafat sendiri yang unik di mana mereka sangat meyakininya.

Ibu Jari â€" â€œAnugerah Kekuatan Kehendak”.  Pola ini mengungkapkan kepemimpinan alami dengan kemampuan yang kuat untuk memerintah orang lain.  Mereka akan mendominasi setiap situasi dengan kemampuan memikat yang tak bisa dipisahkan.  Terdapat kecenderungan yang kuat ke arah pandangan totaliter atau diktator, terutama terhadap anak-anak mereka.


2. Sidik jari berpola Radial Loop

Jari telunjuk - Seseorang yang mengekspresikan Ego mereka dengan cara yang unik.  Cetakan tunggal di tangan yang dominan mengungkapkan sifat bekerja mandiri adalah satu-satunya jalan untuk pemenuhan pribadi.

Jari Tengah - Orang yang menggunakan pikirannya dengan cara uniknya sendiri.  Mereka adalah pencipta yang besar, dengan kreativitas yang tinggi, juga mempunyai kemampuan untuk mengendalikan sistem otonom mereka sendiri, seperti denyut jantung, pencernaan, dan lain-lain dengan pikiran mereka.

Jari Manis - S eseorang yang menciptakan emosi mereka sendiri serta respon-respon emosionalnya.  Orang lain tidak pernah benar-benar bisa memahami individu ini, karena tidak bisa memahami emosi atau respon-responnya yang tidak pernah dialami orang lain.  Akhirnya, mereka tidak pernah merasa “sesuai” dengan masyarakatnya, tetapi hidup mereka diatur oleh usaha yang tetap.  Isu ketakutan dan kesepian harus diberdayakan untuk mencapai pemenuhan.

Jari kelingking - Sangat jarang sekali.  Pola ini mengindikasikan seseorang yang menciptakan pandangan-pandangan religius dan kerohanian mereka sendiri.  Dan ini tidak akan bercampur dengan filsafat-filsafat lain yang paling umum, tetapi akan menjadi sebuah agama yang didasarkan pada konsep-konsep yang sama sekali baru.

3. Sidik jari berpola Arch

Jari telunjuk - Orang yang mempunyai pandangan tradisional mengenai ambisi, karier, dan kepemimpinan mereka sendiri.  Mereka percaya bahwa mereka harus bekerja keras untuk mendapatkan uang, menyimpan uangnya, dan menginvestasikannya untuk masa depan mereka. “Masa lampau” mereka berada dalam bidang-bidang seperti hidup tanpa dengan banyak partner dan tingkat kekaguman pada diri sendiri yang ren dah (memiliki kecenderungan untuk bunuh diri, gangguan mental karena makanan, dan wujud-wujud lain dari penganiayaan terhadap diri sendiri).

Jari Tengah â€" Nilai-nilai tradisional mengenai pikiran.  Untuk orang-orang ini, pendidikan adalah satu-satunya cara menuju sukses. “Masa lampau" mereka berada dalam bidang-bidang seperti penyalahgunaan obat dan memanipulasi orang lain.

Jari Manis â€" Nilai-nilai tradisional yang bersinggungan kepada emosi (laki-laki tidak boleh menangis, dan lain-lain). “Masa lampau" mereka adalah ketiadaan stabilitas emosional mereka sebelumnya.

Jari kelingking â€" Nilai-nilai tradisional mengenai komunikasi, agama, dan seks.  Mereka adalah satu-satunya kelompok orang yang akan sungguh mengikuti dogma setiap agama tertentu, tanpa menyesuaikannya pada standar mereka sendiri.  “Masa lampau” mereka adalah hidup dengan banyak partner atau ketiadaan kerohanian, tetapi hanya karen a dipersepsikan sebagai “pewarnaan” jiwa.

Ibu jari â€" Nilai-nilai tradisional dalam menerima nafsu dan keinginan.  Bahkan setelah kepribadian berkembang, masih ada kecenderungan yang kuat ke arah sikap-sikap dominasi. “Masa lampau” mereka adalah ketika mereka terjatuh menjadi mangsa nafsu dan keinginan-keinginan mereka, dengan sedikit pemikiran untuk menolak masa depan.

Ketika pola arch ditemukan pada jari telunjuk dan jari tengah, maka terdapat akal yang sangat dalam.  Namun kadang-kadang melambat untuk menyerap konsep-konsep, hal ini karena kerinduan pokok materi suatu pemahaman yang lengkap, daripada sekedar suatu genggaman dangkal dari pengetahuan.

Program Harga PhotoCopy Menggunakan Pemrograman Visual Basic 2008

PROGRAM INPUT HARGA FOTO COPY

___________________________________
Jumlah Lembar    : 999
Harga per lembar: 999
Total Harga    : 999999    
Discount   : 9999999
Pembayaran : 9999999

Proses    

Jika Jumlah lembar >= 200  HpL = 90 atau HpL = 100
Total Harga = HPL * Jumlah
Jika total harga >500000 discount 15%
Pembayaran = total harga - discount

HpL = Harga per Lembar

Listing Programnya sebagai berikut :

Private Sub BtnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnProses.Click
        If Jumlah_Lembar.Text >= 200 Then
            HPL.Text = 90
        Else
            HPL.Text = 100
        End If
        Total_Harga.Text = HPL.Text * Jumlah_Lembar.Text
        If Total_Harga.Text > 500000 Then
            Discount.Text = 0.15 * Total_Harga.Text
        Else
            Discount.Text = 0
        End If
        Pembayaran.Text = Total_Harga.Text - Discount.Text
    End Sub

    Private Sub BtnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus.Click
        Jumlah_Lembar.Text = ""
        HPL.Text = ""
        Total_Harga.Text = ""
        Discount.Text = ""
        Pembayaran.Text = ""
    End Sub

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

Tekan tombol F5 untuk menjalankan program dengan hasil sebagai berikut :

Good luck :)

Yuk! Belajar Pemrograman Visual Basic dot Net di Mesran.Net

Selesaikan lah Kasus Berikut:
Latihan ListView Perhitungan Penjualan Barang

Desain form VB 2008

Ketentuan :
-    Kode barang menentukan nama barang dan merk
-    2 digit karakter dari sebelah kiri menentukan merk barang.
-    3 digit karakter dari sebelah kanan adalah menentukan nama barang.
-    Total harga muncul ketika terjadi penekanan Enter di jumlah beli.
-    Total Harga = Harga * Jumlah Beli

Contoh : Kode Barang = TS001, Merk = Toshiba, Nama Barang = Flashdisk 4GB.
Kode Barang = TS002, Merk = Toshiba, Nama Barang = Flashdisk 2GB. 
Kode Barang = VG001, Merk = V-Gen, Nama Barang = Flashdisk 4GB.
Kode Barang = VG002, Merk = V-Gen, Nama Barang = Flashdisk 2GB.

Ketentuan Harga :

Kode Barang	001	002
TS	105000	75000
VG	90000	60000

Listing Program sebagai Berikut:

Public Class Form1
    Sub BuatTabel()
        LV.Columns.Add("No Pembelian", 50, HorizontalAlignment.Left)
        LV.Columns.Add("Kode Barang", 80, HorizontalAlignment.Left)
        LV.Columns.Add("Nama Barang", 120, HorizontalAlignment.Left)
        LV.Columns.Add("Merk", 120, HorizontalAlignment.Left)
        LV.Columns.Add("Harga", 120, HorizontalAlignment.Left)
        LV.Columns.Add("Jumlah Pembelian", 120, HorizontalAlignment.Left)
        LV.Columns.Add("Total Harga", 120, HorizontalAlignment.Left)
        LV.View = View.Details
        LV.GridLines = True
        LV.FullRowSelect = True
    End Sub
    Sub IsiTabel()
        Dim lst As New ListViewItem
        lst.Text = No_Pembelian.Text()
        lst.SubItems.Add(Kode_Barang.Text)
        lst.SubItems.Add(Nama_Barang.Text)
        lst.SubItems.Add(Merk.Text)
        lst.SubItems.Add(Harga.Text)
        lst.SubItems.Add(Jumlah_Beli.Text)
        lst.SubItems.Add(Total_Harga.Text)
        LV.Items.Add(lst)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        BuatTabel()
        Kode_Barang.Items.Add("TS001")
        Kode_Barang.Items.Add("TS002")
        Kode_Barang.Items.Add("VG001")
        Kode_Barang.Items.Add("VG002")
    End Sub
    Private Sub Kode_Barang_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Barang.SelectedIndexChanged
        Dim x As String
        x = Microsoft.VisualBasic.Left(Kode_Barang.Text, 2)
        Select Case x
            Case "TS"
                Merk.Text = "Toshiba"
            Case "VG"
                Merk.Text = "V-GEN"
        End Select

        x = Microsoft.VisualBasic.Right(Kode_Barang.Text, 3)
        Select Case x
            Case "001"
                Nama_Barang.Text = "FlashDisk 4GB"
            Case "002"
                Nama_Barang.Text = "Flashdisk 2GB"
        End Select

        Select Case Kode_Barang.Text
            Case "TS001"
                Harga.Text = "105000"
            Case "TS002"
                Harga.Text = "75000"
            Case "VG001"
                Harga.Text = "90000"
            Case "VG002"
                Harga.Text = "60000"
        End Select
    End Sub

    Private Sub Jumlah_Beli_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Jumlah_Beli.KeyPress
        Dim tombol As Integer = Asc(e.KeyChar)
        If tombol = 13 Then
            Total_Harga.Text = Val(Harga.Text) * Val(Jumlah_Beli.Text)
        End If
    End Sub

    Private Sub Jumlah_Beli_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Jumlah_Beli.TextChanged

    End Sub

    Private Sub BtnSimpan_ke_Listview_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSimpan_ke_Listview.Click
        IsiTabel()
    End Sub
    Sub bersih()
        No_Pembelian.Text = ""
        Kode_Barang.Text = ""
        Nama_Barang.Text = ""
        Merk.Text = ""
        Harga.Text = ""
        Jumlah_Beli.Text = ""
        Total_Harga.Text = ""
    End Sub

    Private Sub BtnBersih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnBersih.Click
        bersih()
    End Sub

    Private Sub BtnHapus_Semua_Data_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus_Semua_Data.Click
        LV.Items.Clear()
    End Sub

    Private Sub BtnHapus_Data_Yang_Dipilih_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnHapus_Data_Yang_Dipilih.Click
        LV.Items.Remove(LV.SelectedItems(0))
    End Sub

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

Dengan Hasil Sebagai Berikut :

Demikianlah postingan saya Nama: Suratmi   NPM: 12110447
Selamat mencoba Pemrograman VB NET