Tampilkan postingan dengan label tips and trik. Tampilkan semua postingan
Tampilkan postingan dengan label tips and trik. Tampilkan semua postingan

Lima Alasan Jangan Musuhi Kopi

Diposting oleh Titik Saefur

VIVAnews - Bagi pencinta kopi, minuman ini adalah pendongkrak energi. Tak mengherankan jika mereka bisa minum lebih dari satu cangkir kopi sehari.
Jika Anda mengetahui cara minum kopi yang baik dan bisa mengendalikan asupan kopi setiap harinya, minuman ini memang bisa memberikan dampak positif bagi tubuh. Antara lain:
1. Melindungi jantung.
Peminum kopi yang mengonsumsi 1-2 cangkir kopi hitam per hari memiliki risiko terkena stroke lebih rendah dibandingkan mereka yang tidak minum kopi. Hal ini disebabkan oleh adanya antioksidan yang terkandung dalam kopi.
Kopi memiliki antioksidan lebih banyak dibandingkan blueberry. Antioksidan yang terkandung di dalamnya membantu menahan efek buruk dari peradangan pada arteri. Sesaat setelah meminumnya, kopi meningkatkan tekanan pada darah dan denyut jantung. Namun setelah beberapa lama, kopi justru menurunkan tekanan darah, karena antioksidan pada kopi mengaktifkan asam nitrat pada tubuh sehingga terjadi pelebaran pembuluh darah.
2. Mencegah diebetes
Antioksidan kopi, khususnya asam klorogenat dan guinides, memainkan peranan untuk meningkatkan sel tubuh terhadap insulin yang membantu mengatur gula darah. Faktanya, orang yang minum kopi setiap harinya memiliki risiko lebih rendah terkena 2 tipe diabetes, menurut beberapa penelitian.
3. Menjaga kesehatan hati
Kopi juga bisa meminimalkan risiko munculnya sirosis dan penyakit hati lainnya. Satu analisa dari sembilan penelitian menemukan bahwa kopi bisa menurunkan risiko kanker hari sebanyak 43%. Hal ini karena peran antioksidan dan kafein di dalamnya.
4. Meningkatkan kekuatan otak
Minum kopi secara teratur juga dapat membantu mengurangi risiko demensia dan Alzheimer, sama halnya seperti Parkinson. Antioksidan yang terkandung di dalam kopi menangkal kerusakan sel otak dan membantu jaringan saraf untuk bekerja lebih maksimal sehingga otak bekerja lebih baik.
5. Membantu menghilangkan sakit kepala
Penelitian membuktikan, 200 miligram kafein dapat membantu menghilangkan sakit kepala, termasuk migrain. Walaupun begitu belum ada penelitian yang membuktikan bagaimana cara kafein menghilangkan sakit kepala, namun para peneliti meyakini bahwa kafein meningkatkan aktivitas sel otak yang mengakibatkan pembuluh darah di sekitarnya menegang.
"Penegangan pembuluh darah ini membantu menghilangkan tekanan yang mengakibatkan rasa sakit," ujar Robert Shapiro, M.D., Ph.D., profesor saraf dan Director the Headache Clinic dari Universitas Vermont Medical School, seperti dikutip oleh laman Yahoo! Shine.
Namun, di balik kenikmatannya, kopi menyimpan efek negatif bagi mereka yang tidak mengetahui cara minum kopi yang baik. Minum kopi berlebihan bisa menimbulkan dampak buruk, antara lain, meningkatnya kadar kolesterol jahat dan trigliserida yang akan membuat darah lebih pekat.
Selain itu, kopi akan sangat berbahaya bagi penderita tekanan darah tinggi, karena kafein dapat meningkatkan tekanan darah secara tiba-tiba. Bagi wanita hamil, kopi dapat meningkatkan risiko kematian pada bayi. Kopi pun mengakibatkan tulang keropos. Bagi penderita maag, kopi adalah musuh besar yang harus dihindari karena kafein meningkatkan produksi asam lambung. Kopi pun membuat gelisah, insomnia, dan tremor (tangan bergetar).
Untuk dapat menghindari efek negatif pada kopi, pilih racikan kopi tanpa tambahan gula dan susu, serta mengurangi dosis kopi yang Anda minum setiap harinya. Selain itu, pilih juga jenis kopi yang tanpa kafein. Dan agar 'racun' dalam kopi bisa diminimalisasi, jangan lupa untuk selalu konsumsi 2 gelas air putih untuk setiap satu cangkir kopi yang Anda minum.

Category: , , 0 komentar

Jawaban Tugas VB.NET bab 3

Diposting oleh Titik Saefur

Public Class ClsGAJI
    Private noslip As String
    Private tglslip As Date
    Private gaji As Double
    Public Property nomorslip() As String
        Get
            Return noslip
        End Get
        Set(ByVal value As String)
            noslip = value
        End Set
    End Property
    Public Property tglgaji() As Date
        Get
            Return tglslip
        End Get
        Set(ByVal value As Date)
            tglslip = value
        End Set
    End Property
    Public Property gapok() As Double
        Get
            Return gaji
        End Get
        Set(ByVal value As Double)
            gaji = value

        End Set
    End Property
End Class

Public Class ClsPEGAWAI
    Private nip, nama, jabatan As String
    Private tglahir As Date
    Public Property nomor() As String
        Get
            Return nip
        End Get
        Set(ByVal value As String)
            nip = value
        End Set
    End Property
    Public Property nmpeg() As String
        Get
            Return nama
        End Get
        Set(ByVal value As String)
            nama = value
        End Set
    End Property
    Public Property jabatanpgw() As String
        Get
            Return jabatan
        End Get
        Set(ByVal value As String)
            jabatan = value
        End Set
    End Property
    Public Property tanggal() As String
        Get
            Return tglahir
        End Get
        Set(ByVal value As String)
            tglahir = value
        End Set
    End Property
End Class


Public Class FrmSlipGaji
    Dim objslip As New ClsGAJI
    Dim objPGW As New ClsPegawai
    Dim objGAJI As New ClsGAJI


    Private Sub FrmSlipGaji_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Load
        With CBJabatan
            .Items.Add("Director")
            .Items.Add("Manager")
            .Items.Add("Supervisor")
            .Items.Add("Officer")
            .SelectedIndex = 0


        End With
    End Sub

    Private Sub BBatal_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BBatal.Click
        TxtNoSlip.Text = ""
        DTglSlip.Value = Now
        TxtNama.Text = ""
        CBJabatan.Text = ""
        TxtGAPOK.Text = ""

    End Sub

    Private Sub BCetak_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BCetak.Click
        Dim data As String
        With objPGW
            .nmpeg = TxtNama.Text
            .jabatanpgw = CBJabatan.Text
        End With
        With objGaJI
            .nomorslip = TxtNoSlip.Text
            .tglgaji = DTglSlip.Value
            .gapok = TxtGAPOK.Text
        End With
        data = "Nomor Slip : " + objGAJI.nomorslip + Chr(13) + _
             "tanggal Slip : " + Format(objGAJI.tglgaji, "dd/MM/yyyy") + Chr(13) + _
             "Nama Pegawai : " + objPGW.nmpeg + Chr(13) + _
             "Jabatan : " + objPGW.jabatanpgw + Chr(13) + _
             "Gaji Pokok : " + Format(objGAJI.gapok, "###,###")

        MsgBox(data, MsgBoxStyle.OkOnly, "Data Slip Pegawai")

    End Sub
End Class

Category: , , , 0 komentar

Algoritma Menyusun Segitiga Pascal dengan C

Diposting oleh Titik Saefur

Menyusun algoritma untuk mencetak bilangan segitiga pascal dengan memanfaatkan array satu dimensi ;



Konsep :
Gunakan array A dan array B. Setelah B diisi dan dicetak, salin B ke A. Lakukan terus sampai batas nilai yang ditentukan



Tercetak :


Category: , , 0 komentar

Cara menghilangkan Windows Genuine Victim di XP

Diposting oleh Titik Saefur

Mungkin anda sering browsing - browsing di internet. dan anda lupa untuk mematikan Automatic Updates pada windows anda. Sehingga ketika anda sedang asik browsing tiba-tiba windows anda melakukan update secara otomatis, jika windows anda Asli/Genuine tidak masalah. Tapi jika windowsnya bajakan???? Dia akan berhenti ditengah jalan. Ya terpaksa deh setiap start up anda harus menunggu beberapa detik lebih lama dari biasanya… karena saat start up akan muncul notifikasi yang memberitahukan bahwa windows anda bajakan atau istilahnya minta windows yang asli.
Untuk mengatasinya berikut ini ada trik untuk menghilangkan tampilan tersebut saat start up.

Menghilangkan Peringatan Windows Genuine Advance (WGA)
  • Langkah2nya adalah sebagai berikut :
  • Buka Task Manager dengan menekan “Ctrl+Alt+Del”
  • Matikan proses yang bernama “wgatray.exe”
  • Restart computer dan masuklah ke dalam Safe Mode (biasanya dengan menekan tombol F8)Pada Safe Mode, buka registry editor dengan cara klik Start \\ Run. Ketik “regedit” kemudian ENTER
  • Pada regedit, carilah: HKEY_LOCAL_MACHINE \\ SOFTWARE \\ Microsoft \\ windowsNT \\ CurrentVersion \\ Winlogon \\ Notify
  • Kemudian hapus folder/directory “WGALOGON”
  •  Restart kembali komputer seperti biasa
Uninstall Windows Genuine Advance (WGA)
Caranya:
  • Matikan process “wgatray.exe” di Task Manager
  • Restart Windows XP dan masuk safe mode
  • Delete WgaTray.exe dari c:\Windows\System32
  • Delete WgaTray.exe dari c:\Windows\System32\dllcache
  • Buka RegEdit, cari: HKEY_LOCAL_MACHINE \\ SOFTWARE \\ Microsoft \\ Windows NT \\ CurrentVersion \\ Winlogon \\ Notify
  • Delete folder “WgaLogon” dan seluruh isinya
  • Reboot Windows XP
Maaf  tips ini bukan bermaksud untuk mendukung legalitas pembajakan, tetapi hanya sekedar bagi informasi yang bertujuan untuk pendidikan. semoga bermanfaat..

Category: , , , 0 komentar
Langganan: Postingan (Atom)