5 Efek Kecanduan Kopi Bagi Pria

Kopi adalah salah satu minuman yang bermanfaat untuk memberikan suntikan energi pada tubuh Anda. Sebab bahan utama di dalam kopi yaitu kafein mampu memicu hormon adrenal Anda untuk selalu bekerja. Sehingga Anda dapat terhindar dari rasa kantuk, lelah, dan meningkatkan konsentrasi Anda.

Karena efek itulah maka banyak orang yang mengandalkan kopi untuk membuat mereka bersemangat. Dan tidak jarang pula, ada beberapa orang terutama pria yang kecanduan akan kopi. Rasa gelisah, cemas, dan denyut jantung yang tidak teratur adalah efek samping dari kecanduan kopi.

Selain efek tersebut, ini efek samping lain kecanduan kopi bagi pria seperti:

Iritasi usus

Berbagai macam senyawa kimia yang ada di dalam kopi mampu membuat iritasi pada usus Anda terutama apabila Anda mengonsumsinya ketika perut Anda kosong. Sehingga produksi asam klorida di dalam perut akan bertambah. Akibatnya kecanduan kopi dapat membuat kadar asam di dalam perut meningkat dan bisa membuat iritasi.

Asam lambung

Asam lambung meningkat sebab kafein mampu melemaskan sfingter esofagus di perut bagian bawah. Padahal otot ini harus tertutup rapat untuk mencegah naiknya asam lambung.

Kekurangan mineral

Minum kopi secara berlebihan juga dapat membuat pria kekurangan mineral. Sebab kafein mampu mempengaruhi kemampuan ginjal untuk menyerap kalsium, zinc, dan magnesium. Sehingga ketika kerja ginjal tidak maksimal, maka tubuh Anda dapat kekurangan mineral.

Stres

Kecanduan kopi juga akan membuat pria menjadi stres. Sebab minum kopi akan meningkatkan kerja hormon kortisol, epinefrin, dan norepinefrin. Hormon ini akan meningkatkan denyut jantung Anda, tekanan darah, dan ketegangan di dalam tubuh.

Mengurangi kepadatan tulang

Karena tubuh Anda bisa kekurangan mineral akibat terlalu banyak minum kopi, maka kepadatan tulang pun bisa terpengaruhi. Sebab kafein adalah diuretik yang ringan yang dapat mempercepat siklus buang air kecil Anda. Sehingga kepadatan kalsium pun turut hilang.

Minum kopi memang bermanfaat untuk membuat Anda bersemangat. Namun konsumsilah dengan jumlah yang bijak agar tidak mengganggu kesehatan Anda.

Quis Online

Listening program Form Kendaraan

Imports System.Data.OleDb

Public Class Form1

    Public DB As OleDbConnection

    Public CMD As OleDbCommand

    Public ADP As OleDbDataAdapter

    Public DS As New DataSet

    Dim SQL As String

    Public DR As OleDbDataReader

    Public Sub OpenDB()

        Dim LOKASI = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = C:\VB2\produk.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub ButtonBaru()

        btnbaru.Enabled = True

        btnSimpan.Enabled = False

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = False

        btnkeluar.Enabled = True

    End Sub

    Sub ButtonEdit()

        btnbaru.Enabled = False

        btnSimpan.Enabled = False

        btnEdit.Enabled = True

        btnHapus.Enabled = True

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub ButtonSimpan()

        btnbaru.Enabled = False

        btnSimpan.Enabled = True

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub HapusText()

        nobk.Text = ""

        pemilik.Text = ""

        alamat.Text = ""

        tahun.Text = ""

        warna.Text = ""

        norangkamesin.Text = ""

        Call ButtonBaru()

    End Sub

    Sub TampilKaryawan()

        ADP = New OleDbDataAdapter("SELECT * FROM kendaraan", DB)

        DS = New DataSet

        ADP.Fill(DS, "kendaraan")

    End Sub

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

        Call OpenDB()

        Call HapusText()

    End Sub

    Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click

        Call HapusText()

        nobk.Focus()

    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

        SQL = "INSERT INTO kendaraan(nobk, pemilik, alamat, tahun, warna, norangkamesin)" & _

                        " VALUES ('" & nobk.Text & "','" & _

                                       pemilik.Text & "','" & _

                                       alamat.Text & "','" & _

                                       tahun.Text & "','" & _

                                       warna.Text & "','" & _

                                        norangkamesin.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        SQL = "DELETE FROM kendaraan Where nobk='" & nobk.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        Me.Close()

    End Sub

    Private Sub nobk_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles nobk.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "select * from kendaraan where nobk='" & nobk.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                pemilik.Text = DR.Item(1)

                alamat.Text = DR.Item(2)

                tahun.Text = DR.Item(3)

                warna.Text = DR.Item(4)

                norangkamesin.Text = DR.Item(5)

                Call ButtonEdit()

                MsgBox("data ditemukan !")

            Else

                xkode = nobk.Text

                Call HapusText()

                nobk.Text = xkode

                Call ButtonSimpan()

            End If

            pemilik.Focus()

        End If

    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click

        Call HapusText()

        nobk.Focus()

    End Sub

    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click

        SQL = "UPDATE kendaraan SET pemilik='" & pemilik.Text & "' " & _

                                ",alamat='" & alamat.Text & "' " & _

                                ",tahun='" & tahun.Text & "' " & _

                                ",warna='" & warna.Text & "' " & _

                                ",norangkamesin='" & norangkamesin.Text & "' " & _

                                "Where nobk='" & nobk.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

End Class

 

Listening program Form Produk

Imports System.Data.OleDb

Public Class Formproduk

    Public DB As OleDbConnection

    Public CMD As OleDbCommand

    Public ADP As OleDbDataAdapter

    Public DS As New DataSet

    Dim SQL As String

    Public DR As OleDbDataReader

    Public Sub OpenDB()

        Dim LOKASI = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = C:\VB2\produk.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub ButtonBaru()

        btnbaru.Enabled = True

        btnSimpan.Enabled = False

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = False

        btnkeluar.Enabled = True

    End Sub

    Sub ButtonEdit()

        btnbaru.Enabled = False

        btnSimpan.Enabled = False

        btnEdit.Enabled = True

        btnHapus.Enabled = True

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub ButtonSimpan()

        btnbaru.Enabled = False

        btnSimpan.Enabled = True

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub HapusText()

        kode.Text = ""

        nama.Text = ""

        satuan.Text = ""

        harga.Text = ""

        jumlah.Text = ""

        Call ButtonBaru()

    End Sub

    Sub TampilKaryawan()

        ADP = New OleDbDataAdapter("SELECT * FROM produk", DB)

        DS = New DataSet

        ADP.Fill(DS, "produk")

    End Sub

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

        Call OpenDB()

        Call HapusText()

    End Sub

    Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click

        Call HapusText()

        kode.Focus()

    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

        SQL = "INSERT INTO produk(kodeproduk, namaproduk, satuan, harga, jumlah)" & _

                        " VALUES ('" & kode.Text & "','" & _

                                       nama.Text & "','" & _

                                       satuan.Text & "','" & _

                                       harga.Text & "','" & _

                                        jumlah.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        SQL = "DELETE FROM produk Where kodeproduk='" & kode.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        Me.Close()

    End Sub

    Private Sub kode_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles kode.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "select * from produk where kodeproduk='" & kode.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                nama.Text = DR.Item(1)

                satuan.Text = DR.Item(2)

                harga.Text = DR.Item(3)

                jumlah.Text = DR.Item(4)

                Call ButtonEdit()

                MsgBox("data ditemukan !")

            Else

                xkode = kode.Text

                Call HapusText()

                kode.Text = xkode

                Call ButtonSimpan()

            End If

            nama.Focus()

        End If

    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click

        Call HapusText()

        kode.Focus()

    End Sub

    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click

        SQL = "UPDATE produk SET nama='" & nama.Text & "' " & _

                                ",satuan='" & satuan.Text & "' " & _

                                ",harga='" & harga.Text & "' " & _

                                ",jumlah='" & jumlah.Text & "' " & _

                                "Where kode='" & kode.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

End Class

 

1Listening program Form Siswa

Imports System.Data.OleDb

Public Class Formsiswa

    Public DB As OleDbConnection

    Public CMD As OleDbCommand

    Public ADP As OleDbDataAdapter

    Public DS As New DataSet

    Dim SQL As String

    Public DR As OleDbDataReader

    Public Sub OpenDB()

        Dim LOKASI = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = C:\VB2\produk.mdb"

        DB = New OleDbConnection(LOKASI)

        If DB.State = ConnectionState.Closed Then

            DB.Open()

        End If

    End Sub

    Sub ButtonBaru()

        btnbaru.Enabled = True

        btnSimpan.Enabled = False

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = False

        btnkeluar.Enabled = True

    End Sub

    Sub ButtonEdit()

        btnbaru.Enabled = False

        btnSimpan.Enabled = False

        btnEdit.Enabled = True

        btnHapus.Enabled = True

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub ButtonSimpan()

        btnbaru.Enabled = False

        btnSimpan.Enabled = True

        btnEdit.Enabled = False

        btnHapus.Enabled = False

        btnBatal.Enabled = True

        btnkeluar.Enabled = False

    End Sub

    Sub HapusText()

        NIS.Text = ""

        namasiswa.Text = ""

        alamat.Text = ""

        namawali.Text = ""

        tanggallahir.Text = ""

        agama.Text = ""

        jeniskelamin.Text = ""

        Call ButtonBaru()

    End Sub

    Sub TampilKaryawan()

        ADP = New OleDbDataAdapter("SELECT * FROM siswa", DB)

        DS = New DataSet

        ADP.Fill(DS, "siswa")

    End Sub

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

        Call OpenDB()

        Call HapusText()

    End Sub

    Private Sub btnBaru_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBaru.Click

        Call HapusText()

        NIS.Focus()

    End Sub

    Private Sub btnSimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSimpan.Click

        SQL = "INSERT INTO siswa(NIS, namasiswa, alamat, namawali, tanggallahir, agama, jeniskelamin)" & _

                        " VALUES ('" & NIS.Text & "','" & _

                                       namasiswa.Text & "','" & _

                                       alamat.Text & "','" & _

                                       namawali.Text & "','" & _

                                       tanggallahir.Text & "','" & _

                                       agama.Text & "','" & _

                                        jeniskelamin.Text & "')"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnHapus_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHapus.Click

        SQL = "DELETE FROM produk Where NIS='" & NIS.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

    Private Sub btnKeluar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKeluar.Click

        Me.Close()

    End Sub

    Private Sub NIS_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles NIS.KeyPress

        Dim tombol As Integer = Asc(e.KeyChar)

        Dim xkode As String

        If tombol = 13 Then

            SQL = "select * from siswa where NIS='" & NIS.Text & "'"

            CMD = New OleDbCommand(SQL, DB)

            DR = CMD.ExecuteReader

            DR.Read()

            If DR.HasRows = True Then

                namasiswa.Text = DR.Item(1)

                alamat.Text = DR.Item(2)

                namawali.Text = DR.Item(3)

                tanggallahir.Text = DR.Item(4)

                agama.Text = DR.Item(5)

                jeniskelamin.Text = DR.Item(6)

                Call ButtonEdit()

                MsgBox("data ditemukan !")

            Else

                xkode = NIS.Text

                Call HapusText()

                NIS.Text = xkode

                Call ButtonSimpan()

            End If

            namasiswa.Focus()

        End If

    End Sub

    Private Sub btnBatal_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBatal.Click

        Call HapusText()

        NIS.Focus()

    End Sub

    Private Sub btnEdit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEdit.Click

        SQL = "UPDATE siswa SET namasiswa='" & namasiswa.Text & "' " & _

                                ",alamat='" & alamat.Text & "' " & _

                                ",namawali='" & namawali.Text & "' " & _

                                ",tanggallahir='" & tanggallahir.Text & "' " & _

                                ",agama='" & agama.Text & "' " & _

                                ",jeniskelamin='" & jeniskelamin.Text & "' " & _

                                "Where NIS='" & NIS.Text & "'"

        CMD = New OleDbCommand(SQL, DB)

        CMD.ExecuteNonQuery()

        Call btnBaru_Click(sender, e)

    End Sub

End Class

 

 

1 Listening program Form Menu

Public Class Menu

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

    End Sub

    Private Sub KaryawanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KaryawanToolStripMenuItem.Click

        Form1.MdiParent = Me

        Form1.Show()

    End Sub

    Private Sub BagianToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BagianToolStripMenuItem.Click

        Formproduk.MdiParent = Me

        Formproduk.Show()

    End Sub

    Private Sub JabatanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles JabatanToolStripMenuItem.Click

        Formsiswa.MdiParent = Me

        Formsiswa.Show()

    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

        End

    End Sub

End Class