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

Belajar Bahasa Pemrograman

Tugas latihan dari Belajar Bahasa Pemrograman VB seperti kasus dibawah ini :

Soal dari kasus di atas adalah sebagai berikut:

Jika dipilih form NPM maka:
12110447 nama "Mimie"
12120445 nama"Dian"
Dua digit "11 / 12" untuk menunjukan Jenjang dan Jurusan.

Kode_Dosen
"D1" nama dosen "Mesran, M.Kom"
"D2" nama dosen "Tonny Limbong, S.Kom, M.Kom"

Kode_Matakuliah
"MK1" nama matakuliah "Pemograman Visual"
"MK2" nama matakuliah "Sistem Basis Data"

Nilai_Angka = 10% Nilai_Kehadiran + 15% Nilai_Tugas + 35% Nilai_UTS + 40% Nilai_UAS.
Dengan Keterangan lulus:
80 - 100 "A" keterangan "LULUS"
70 - 79 "B"  keterangan "LULUS"
60 - 69 "C" keterangan "LULUS"
50 - 59 "D" keterangan "GAGAL"
49 "E"  keterangan "GAGAL"

Berikut list program yang di input :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        NPM.Items.Add("12110447")
        NPM.Items.Add("12120445")
        Kode_Dosen.Items.Add("D1")
        Kode_Dosen.Items.Add("D2")
        Kode_Matakuliah.Items.Add("MK1")
        Kode_Matakuliah.Items.Add("MK2")


        Dim i As Integer
        For i = 1 To 100
            Nilai_Kehadiran.Items.Add(i)
        Next i
        i = 1
        Do While i <= 100
            Nilai_Tugas.Items.Add(i)
            i = i + 1
        Loop
        i = 100
        Do Until i = 0
            Nilai_UTS.Items.Add(i)
            i = i - 1
        Loop
        i = 100
        While i >= 1
            Nilai_UAS.Items.Add(i)
            i = i - 1
        End While
    End Sub

    Private Sub NPM_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NPM.SelectedIndexChanged
        Select Case NPM.Text
            Case "12110447"
                Nama.Text = "Mimie"
            Case "12120445"
                Nama.Text = "Dian Fadillah"
            Case "....."
                Nama.Text = "...."
            Case Else
                Nama.Text = "-"
        End Select

        Dim x As String
        x = Microsoft.VisualBasic.Mid(NPM.Text, 3, 2)
        Select Case x
            Case "11"
                Jenjang.Text = "SI"
                Jurusan.Text = "Sistem Informasi"
            Case "12"
                Jenjang.Text = "D3"
                Jurusan.Text = "Teknik Informatika"
            Case Else
                Jenjang.Text = "D1"
                Jurusan.Text = "Desain Grafis"
        End Select

    End Sub

    Private Sub Kode_Dosen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Dosen.SelectedIndexChanged
        Select Case Kode_Dosen.Text
            Case "D1"
                Nama_Dosen.Text = "Mesran m.kom"
            Case "D2"
                Nama_Dosen.Text = "Tonny Limbong,S.Kom,M.Kom"
            Case "....."
                Nama_Dosen.Text = "....."
            Case Else
                Nama_Dosen.Text = "-"
        End Select
    End Sub

    Private Sub Kode_Matakuliah_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kode_Matakuliah.SelectedIndexChanged
        Select Case Kode_Matakuliah.Text
            Case "MK1"
                Nama_Matakuliah.Text = "Pemograman Visual"
            Case "MK2"
                Nama_Matakuliah.Text = "Sistem Basis Data"
            Case "....."
                Nama_Matakuliah.Text = "....."
            Case Else
                Nama_Matakuliah.Text = "-"
        End Select
    End Sub

    Private Sub Btnhapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnhapus.Click
        NPM.Text = ""
        Nama.Text = ""
        Jenjang.Text = ""
        Jurusan.Text = ""
        Kode_Dosen.Text = ""
        Nama_Dosen.Text = ""
        Kode_Matakuliah.Text = ""
        Nama_Matakuliah.Text = ""
        Nilai_Kehadiran.Text = ""
        Nilai_Tugas.Text = ""
        Nilai_UTS.Text = ""
        Nilai_UAS.Text = ""
        Nilai_Angka.Text = ""
        Nilai_Huruf.Text = ""
        Keterangan.Text = ""
        NPM.Focus()
    End Sub

    Private Sub Btnkeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnkeluar.Click
        End
    End Sub

    Private Sub Btnproses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnproses.Click
        Nilai_Angka.Text = 0.1 * Val(Nilai_Kehadiran.Text) + 0.15 * Val(Nilai_Tugas.Text) + 0.35 * Val(Nilai_UTS.Text) + 0.4 * Val(Nilai_UAS.Text)
        Select Case Nilai_Angka.Text
            Case Is >= 100
                Nilai_Huruf.Text = "A"
                Keterangan.Text = "LULUS"
            Case 70 To 79
                Nilai_Huruf.Text = "B"
                Keterangan.Text = "LULUS"
            Case 60 To 69
                Nilai_Huruf.Text = "C"
                Keterangan.Text = "LULUS"
            Case 50 To 59
                Nilai_Huruf.Text = "D"
                Keterangan.Text = "GAGAL"
            Case Is <= 49
                Nilai_Huruf.Text = "E"
                Keterangan.Text = "GAGAL"
        End Select

    End Sub

End Class

Untuk menjalankan program tekan tombol Debug atau F5, dan hasilnya dapat dilihat sebagai berikut:

Selamat mencoba di rumah....!!!

:)

MANFAAT KULIT MANGGIS UNTUK KESEHATAN

Sejak ratusan tahun yang lalu, penduduk Asia Tenggara terutama Indonesia, sudah sering menggunakan air rebusan kulit manggis sebagai ramuan untuk mengobati infeksi, luka, demam, diare, sariawan dan sembelit. Tak hanya air rebusannya, bubuk dari kulit manggis yang dikeringkan juga digunakan untuk mengobati disentri di China dan India. Kulit manggis juga diolah menjadi salep untuk mengobati eksim dan penyakit kulit lainnya.

Selain kulit manggis, daging buahnya dipercaya untuk mengobati diare, radang amandel, keputihan, wasir, peluruh dahak dan sakit gigi. Orang Filipina menggunakan ekstrak kulit batang manggis untuk mengatasi sariawan, diare, disentri dan nyeri perut. Di Malaysia, seduhan daun manggis yang dicampurkan dengan pisang muda dan sedikit kapur barus, digunakan sebagai pengobat luka sunat, sedangkan akarnya dimanfaatkan untuk mengatasi haid yang tidak teratur.

Kulit buah manggis juga digunakan untuk mengobati sariawan, disentri, nyeri urat dan sembelit. Kulit batang manggis digunakan untuk mengatasi nyeri perut. Akar manggis digunakan untuk mengatasi haid yang tidak teratur. Sementara dari segi rasa, buah manggis cukup potensial untuk dibuat sari buah.

Berbagai khasiat kulit manggis telah dibuktikan dalam berbagai pengobatan penyakit dan serta manfaat yang baik bagi tubuh dan kesehatan tubuh, antara lain :

1. Sebagai antioksidan, anti inflamasi, anti bakteri, abtibiotik, anti jamur dan antiradang.
2. Mencegah pertumbuhan sel kanker dan tumor
3. Memperlambat pertumbuhan sel leukemi (kanker darah)
4. Mengobati penyakit diabetes mellitus
5. Mengurangi berat badan bagi penderita diabetes
6. Menghambat pertumbuhan virus mematikan seperti virus HIV
7. Mencegah oksidasi kolesterol LDL yang dapat menyebabkan penyumbatan pembuluh darah
8. Meningkatkan penglihatan sewaktu malam dan mencegah proliferasi protein abnormal yang dapat menyebabkan kebutaan.
9. Menghambat serangan jantung
10. Melindungi membran sel lemak dari oksidasi, serta asam amino tirosin dari reaksi oksidan peroksi nitrit
11. Mengobati reaksi alergi dan menetralkan enzim yang dapat menyebabkan kerusakan jaringan
12. Memperbaiki protein yang rusak pada dinding pembuluh darah
13. Antibiotik alami, antivirus dan antijamur dalam manggis dapat menyembuhkan patogen penyebab sariawan
14. Efek antiperadangan manggis dapat melegakan tenggorokan atau menyejukkan luka tenggorokan
15. Kandungan antibakteri manggis dapat mengatasi sesak napas yang disebabkan oleh bakteri
16. Efek antiperadangan manggis dapat mengurangi sakit gigi
17. Ekstrak kulit manggis bersifat antiproliferasi untuk menghambat pertumbuhan sel kanker. Selain itu, ekstrak kulit manggis ini juga bersifat apoptosis penghancur sel kanker.

MANFAAT  KULIT MANGGIS UNTUK DIABETES

Walaupun tidak dijadikan sebagai bua santapan keseharian, tetapi buha manggis sangat mudah diperolehh di pasar tradisional maupun pasar modern. Namun, tahukah Anda bahwa di balik rasanya yang manis-asma dan menyegarkan itu terkandung senyawa yang berkhasiat bagi kesehatan?

Buah manggis yang sering disebut sebagai “ratu buah” mengandung senyawa aktif seperti vitamin, katekin (antioksidan), polisakarida dan stilbenes. Selain itu, terdapat senyawa aktif lain yang menjadi buah bibir dikalangan peneliti karena keunikannya. Senyawa aktif tersebut adalah xanthones yang terlah terbukti secara ilmiah memiliki beragam manfaat.Khasiat xanthones yang terdapat dalam kulit manggis memiliki manfaat antara lain sebagai anti aging (membantu memperlemabt penuaan), antioksidan (menangkal radikal bebas), membantu menurunkan tekanan darah tinggi atau hipertensi, modulator kekebalan tubuh (membantu meningkatkan respon kekebalan tubuh), cardio protectif (membantu melindungi jantung), mencegah osteoporosis (membantu mendukung masa atau kekompakan tulang), membantu sistem pencernaan, mamacu pertumbuhan sel darah merah, antivirus (membantu menanggulangi infeksi virus), antibiotik (membantu menanggulangi infeksi bakteri), antijamur (membantu menanggulangi infeksi jamur), membantu menurunkan berat badan, antiradang, antilesu, antitumor, hipoglikemik (menurunkan kadar gula darah) atau antidiabetes, antilipidemik (menurunkan kadar lemak darah), antiatherosklerosis (mengatasi penyumbatan pembuluh darah), antidepresan, anti-alzhmerian (membantu mencegah demensia atau pikun), anti artritis (mencegah artritis atau rematik), antipiretik (menurunkan demam), anitdiare dan anti neuralgik (mengurangi sakit saraf, misalnya neuropati diabetes).

Kulit manggis sebagai antidiabetes

Akhir-akhir ini penderita diabetes tipe 2 di Indonesia semakin meningkat. Bahkan, badan kesehatan dunia WHO menyebutkan bahwa Indonesia merupakan negara keempat dnegan jumlah penderita diabetes terbesar di dunia. Penelitian di Jepang pada tahun 2001 menyebutkan bahwa komponen mangiferin pada kulit manggis mampu menurunkan kadar gula darah pada tikus percobaan penderita diabetes. Mangiferin mampu menurunkan kejadian resistensis insulin.

Beberapa penelitian menyimpulkan ada korelasi positif antara penyakit diabetes melitus tipe 2 dengan antioksidan. Artinya pasien diabetes melltius akan membaik apabila mengonsumsi antioksidan dalam jumlah banyak. Meskipun mekanismenya belum jelas, tetapi mengingat xanthones dalam kulit manggis kaya akan antioksidan, maka sangat wajar jika ekstrak kulit manggis mampu memperbaiki kondisi penderita diabetes tipe 2.

Manfaat Kulit Manggis Bagi Kesehatan

Xanthones merupakan gabungan molekul yang terdiri atas berbagai senyawa kimia yang berpotensi sebagai antioksidan dan bermanfaat bagi kesehatan telah dimanfaatkan untuk pengobatan tradisional. Sekarang, berbagai penelitian mengenai khasiat dan manfaat xanthones dalam kulit manggis telah dilakukan di berbagai negara.Berikut ini beberapa hasil penelitian mengenai khasiat dan manfaat xanthone dari kulit manggis bagi kesehatan :

1. Sebagai Antiinflamasi

Inflamasi atau peradangan merupakan proses perlindungan sel darah putih bersama senyawa kimia lain dalam melindungi tubuh dari infeksi oleh benda asing, seperti bakteri dan virus. Lebih mudahnya, inflamasi adalah respon jaringan tubuh terhadap kerusakan. Saat terjadi inflamasi biasanya diikuti dengan peningkatan sel darah putih dengan cepat. Seiring dengan proses tersebut, timbul beberapa gejala, diantaranya terjadi peningkatan suhu tubuh, kemerahan di daerah yang mengalami peradangan, serta pembengkakan dan rasa sakit akibat peningkatan konsentrasi aliran darah. Akibat umum inflamasi adalagradang sendi, alergi dan sakit kepala.

a. Reaksi inflamasi biasanya diikuti peningkatan sel darah putih, peningkatan suhu tubuh, kemerahan, pembengkakan dan rasa sakit.

b. Akibat umum inflamasi adalah radang sendi, alergi dan sakit kepala.

Jenis reaksi inflamasi bermacam-macam. Ada inflamasi pada tulang sehingga menimbulkan rasa sakit, kekakuan, pembengkakan dan rasa panas. Ada pula reaksi inflamasi oleh udara yang disebabkan alergi, misalnya asma. Inflamasi ini menyebabkan kesulitan untuk bernapas secara normal.

Reaksi alergi merupakan proses inflamasi yang disebabkan gangguan sistem kekebalan tubuh. Saat pada alergen yag menyerang tubuh, sistem kekebalan merasakannya sebagai bahan berbahaya meskipun sebenarnya tidak. Tubuh bereaksi dengan mengeluarkan histamin untuk melawan bahan tersebut. Hal ini akan memicu munculnya inflamasi dan gejala alergi. Sebagai contoh, sakit kepala yang disebabkan oleh pilek, flu dan sinusitis atau mirgan yang disebabkan inflamasi arteri di leher dan kepala.

2. Sebagai Antibakteri

Kemampuan penting lain dari xanthones adalah mematikan bakteri. Beberapa penelitian tentang manfaat senyawa xanthones memperlihatkan bahwa xanthones bersifat anti mikroba terhadap MRSA (methcillin-resistant staphylococcus aureus) yaitu bakteri yang telah kebal terhadap obat antibiotik yang dapat menyebabkan infeksi parah.

Hasil penelitian tentang xanthones dari tepung kulit manggis membuktikan bahwa xanthones mampu mematikan bakteri Salmonella enteritidis yang sering menyebabkan penyakit melalui makanan (foodborne disease). Salmonella yang telah diinokulasikan dan berkembang biak di dalam medium agar (PDA) ditetesi dengan ekstrak kulit manggis. Hasilnya, ekstrak kulit manggis dapat merangsang produksi sel fagositik yang akan mematikan bakteri intraseluler.

3. Sebagai Antijamur

Xanthones juga memiliki kemampuan untuk menghambat aktivitas kapang atau jamur. Penyebab penyakit atau fitophatogenik. Beberapa contohnya adalah Fusarium oxysporum V, Altenaria tenius dan Dreschlera oryzae (Cochliobolus miyabeanu). Penelitian yang dilakukan oleh Geetha dan Gopalakrishnan juga membuktikan hal tersebut.

4. Sebagai Antivirus

Salah satu penyakit akibat infeksi virus yang ditakuti banyak orang karena belum ada obatnya adalah HIV. HIV merupakan penyakit yang menyerang seistem kekebalan tubuh manusia. Mangostin xanthones yang terkandung dalam kulit manggis telah dibuktikan mampu menghambat sikulus replikasi virus HIV.

Hasil penelitian Vlietinch (1998) memperkuat penelitian sebelumnya yang dilakukan di Cina yang juga menyimpulkan bahwa ekstrak kulit manggis menunjukkan potensi dalam menghambat HIV -1 protase yang mempengaruhi replikasi HIV. Tampaknya mekanisme kerja xanthones berbeda dengan obat antiretroviral (ARV).

Selain penyakit HIV, hasil penelitian Ignatushchenko et al. (1999) menyimpulkan bahwa xantohnes mempunyai potensi tinggi dalam aktivitas anti malaria yang dilakukan pada hewan percobaan. Meskipun belum diuji klinis, xanthones secara empiris terbuukti mampu menyembuhkan beberap penderia malaria kronik.

Semoga Bermanfaat bagi kita semua.. Aaammiiiinnn... :)

3 Aplikasi yang Perlu Dipasang Pertama Kali Setelah Beli Android

Mungkin anda sudah tidak asing lagi dengan yang namanya Android. Sekarang hampir semua gadget mulai dari tablet, handpone, dan smartphone memangai sistem operasi Android. Android adalah sistem operasi untuk gadget yang berbasis Linux. Android menyediakan platform terbuka bagi para pengembang buat menciptakan aplikasi mereka sendiri untuk digunakan oleh bermacam peranti bergerak. Di dunia ini terdapat dua jenis distributor sistem operasi Android. Pertama yang mendapat dukungan penuh dari Google atau Google Mail Services (GMS) dan kedua adalah yang benar–benar bebas distribusinya tanpa dukungan langsung Google atau dikenal sebagai Open Handset Distribution (OHD).

Sistem operasi Android sekarang sudah delapan generasi yang sudah dikeluarkan yaitu, Android versi 1.1, Android versi 1.5 (Cupcake), Android versi 1.6 (Donut), Android versi 2.0/2.1 (Eclair), Android versi 2.2 (Froyo: Frozen Yoghurt), Android versi 2.3 (Gingerbread), Android versi 3.0/3.1 (Honeycomb), dan Android versi 4.0 (ICS :Ice Cream Sandwich) yang dirilis pada 19 Oktober 2011 lalu. Gadget atau ponsel yang menggunakan sistem operasi Android akan diberikan kemudahan dalam mendapatkan aplikasinya, hal tersebut karena tersedianya 400 ribu aplikasi yang dibagikan dan dapat didownload secara gratis melalui website Android Market. Selain itu harga ponsel yang murah yang dilengkapi sistem operasi Android membuat penggunanya melonjak tinggi di tahunh-tahun ini. Namun banyaknya pengguna tersebut belum tahu tentang aplikasi dasar yang perlu dipasang setelah beli Android. Tak jarang apabila setelah membeli hape Android, seseorang malahan men-download banyak aplikasi tanpa tahu mana apikasi utama yang menjadi dasar. Aplikasi favorit pertama yang di-download umumnya adalah Facebook, Twitter, game Angry Birds, dan beragam game-game menarik yang tersedia ribuan dan gratis di Android Market. Berikut ada 3 Aplikasi yang perlu dipasang di HP Android anda dalam rangka meningkatkan stamina HP anda:

1. Download Browser
 Baru Pastilah saat anda mendownload dengan menggunakan HP pasti menggunakan browser. Lebih baik anda mendownload aplikasi browser terbaru seperti Dolphin HD, Firefox, dan Skyfire. Dengan aplikasi tersebut akan meningkatkan kecepatan koneksi daripade memakai browser default.

 2. Download 3G Counter
 Instal aplikasi data counter, ada banyak aplikasi bergenre ini yang tersedia gratis di Android Market. Salah satu yang terbaik adalah 3G Watchdog, aplikasi dilengkapi status ikon berwarna hijau/kuning dan merah dalam notifikasi bar bila akses 3G/GPRS Anda telah mendekati atau bahkan melewati limit kapasitas yang ditentukan. Dengan aplikasi tersebut anda dapat mengetahui batas akses anda menggunakan jasa koneksi operator seluler.

 3. Download Anti Virus
Virus dapat juga menyerang operasi sistem ponsel anda, untuk antisipasi, jangan ragu-ragu untuk download aplikasi anti virus di Android Market, contohnya seperti AVG , Trend Micro, dan Symantec guna melindungi ponsel anda. Pengguna smartphone Android di Indonesia memang harus ekstra waspada terhadap serangan malware. Malware merupakan istilah yang umum digunakan untuk software atau program yang dibuat untuk merusak sebuah sistem komputer secara diam-diam. NetQin Mobile, perusahaan antivirus mobile asal Cina, melaporkan bahwa Indonesia berada di peringkat kelima dari tingkat penyerangan malware dan virus pada Android diseluruh dunia pada kuartal pertama 2011. NetQin juga melaporkan bahwa 58 persen serangan terhadap smartphone Android terjadi akibat pengguna menunduh aplikasi bervirus via Android Market. 

Demikian tips 3 Aplikasi yang Perlu Dipasang Pertama Kali Saat Beli Android semoga bermanfaat bagi anda, selamat mencoba.. :)

MEMBUAT PROGRAM CALCULATOR DENGAN VISUAL BASIC

Bagi anda yang sering memanfaatkan kalkulator yang merupakan bagian adri aksesoris Windows, mungkin pernah berkeinginan untuk membuat kalkulator sendiri dan mungkin pula keinginan anda tersebut belum terwujud, karena anda belum tahu cara membuatnya. Dengan Tip berikut ini, anda akan dapat mewujudkan keinginan tersebut, karena membuat kalkulator dengan visual basic tidak sesulit bayangan anda. 

1. Buat project baru, kemudian TextBox dan sebuah commandButton seperti berikut:

2. Klik kanan pada tombol command1, kemudian pilih copy, lalu klik kanan lagi dan pilih paste. Ketika muncul pesan “You already have a control named ’Command1’. Do you want to create a control array ?”, pilih yes. Akan muncul kontrol commandButton baru dengan nama Command1

(1). Kemudian klik kanan lalu paste lagi sehingga muncul kontrol command1

(2). Lakukan proses tersebut teru-menerus sampai kontrol CommandButton berjumlah sepuluh buah.

 3. Atur posisi kontrol-kontrol Command tersebut sehingga tampilan form menjadi seperti berikut.

4. Kemudian atur properti caption untuk commandButton sehingga tampilannya menjadi seperti berikut.

5. Agar kalkulator dapat dioperasikan, tambahkan sepuluh buah commanButton baru.

6. Atur properti kontrol TextBox dan CommandButton baru seperti berikut. Untuk Textbox1 diberi nama Angka Untuk Command Button 0-9 di beri nama BTN (sehingga membentuk index array) 

 Untuk Command Button C di beri nama BtnC Untuk Command Button +/- di beri nama BtnMinus

 Untuk Command Button . di beri nama BtnKoma Untuk Command Button = di beri nama BtnHasil

 Untuk Command Button Backspace di beri nama BtnBack 

 Untuk Command Button +,/,*,- di beri nama BtnProses 

 7. Setelah itu Atur posisi kontrol-kontrol tersebut sehingga menjadi seperti berikut :

8. Buka jendela kode, lalu ketikkan kode berikut ini:
 Berikut listing program VB untuk membuat calculator pada Visual Basic

Dim OPnya As String
Dim a As Double
Dim b As Double
Dim c As Double
Dim bil As String

Function Proseskan(op As String)
Dim xhasil As Double
Select Case op
Case "+": xhasil = a + b
Case "-": xhasil = a - b
Case "/": xhasil = a / b
Case "*": xhasil = a * b
End Select
Proseskan = xhasil
End Function

Sub Normalkan( )
operatornya = ""
 bil = ""
 a = 0
 b = 0
 c = 0
Angka = "0"
End Sub

Private Sub btn_Click(Index As Integer)
Dim x As String x
= btn(Index).Caption If
 bil <> "0" Or OPnya = "" Then
 bil = bil + x
 Else
 bil = x
 End If
 Angka = bil
End Sub

Private Sub btnback_Click()
 Dim jml As Byte
 jml = Len(bil)
 If jml > 0 Then
 bil = Left(bil, jml - 1)
 Angka = bil
 End If
End Sub

Private Sub btnC_Click()
Call Normalkan
 End Sub

Private Sub btnhasil_Click()
b = CCur(bil)
 Angka = Proseskan(OPnya)
 bil = "0"
 a = 0
 b = 0
End Sub

 Private Sub btnkoma_Click()
If bil <> "" Then
 bil = bil + ","
 Else bil = "0"
 End If
 Angka = bil
End Sub 

Private Sub btnminus_Click()
 bil = CCur(bil) * -1
 Angka = bil
End Sub

Private Sub btnProses_Click(Index As Integer)
 OPnya = btnProses(Index).Caption
 If bil <> "" Then
 If a = 0 Then
 a = CCur(bil)
 Else
 b = CCur(bil)
 a = Proseskan(OPnya)
 End If
 bil = ""
 End If
End Sub

Private Sub Form_Load()
Call Normalkan
End Sub


SELAMAT MENCOBA !!!!!!

Kasus Pemrogramam Perulangan Untuk Menampilkan Informasi Penjualan dan Discoun Dengan Bahasa C

http://mesran.blogspot.com
http://mesran.blogspot.com/2013/05/tugas-si-m1206.html

#include "stdio.h"
#include "conio.h"
void main(){
     int i, kode[5], jumlah[5], jumdata=5;
     char * produk ;
     float diskon,harga,tohar,bayar;

     printf ("\n Input Data Penjualan") ;
     for(i=0 ; i<jumdata ; i++ ){
          printf ( "\nKode Produk   : " ) ; scanf("%d", &kode[i]) ;
          printf ( "Jumlah Produk : ") ; scanf("%d", &jumlah[i]) ;
     }
     clrscr() ;
     printf ("\n Informasi Penjualan Produk") ;
     printf ("\n----------------------------------------------------------------------------") ;
     printf ("\n No  Kode    Produk               Harga Jumlah Total     Diskon   Pembayaran") ;
     printf ("\n----------------------------------------------------------------------------") ;
     for(i=0 ; i<jumdata ; i++ ){
          if(kode[i]==1){
                produk = "TV" ; harga = 2000000 ;
          }else if(kode[i]==2){
                produk = "DVD" ; harga = 650000 ;
          }else if(kode[i]==3){
                produk = "CD ROOM" ; harga = 450000 ;
          }

          gotoxy(1,6+i) ; printf("  %i   %d     %s", i+1, kode[i], produk) ;
          gotoxy(30,6+i) ; printf("%10.0f    %i %10.0f", harga, jumlah[i], tohar) ;
          tohar = harga * jumlah[i] ;
          if (tohar <2000000 && tohar>=1000000)
          diskon=0.1*tohar;
      else
      if (tohar <4000000 && tohar>=2000000)
          diskon=0.15*tohar;
      else
      if (tohar>=4000000)
          diskon=0.2*tohar;
          else
          diskon=0;
          bayar=tohar-diskon;
          gotoxy(54,6+i) ; printf("%10.0f", diskon) ;
          gotoxy(65,6+i) ; printf("%10.0f", bayar) ;

     }
     printf ("\n---------------------------------------------------------------------------") ;


}

Untuk menjalankan program tekan tombol Ctrl + F9 pada keyboard, maka akan tampil menu seperti berikut:




Masukkan kode barang dan jumlah barang, Lalu tekan tombol Enter maka akan muncul program penjualan dan discount pembayaran.

Sekian.... :)
SELAMAT MENCOBA...!!!!