Ghiboo.com – Mengatasi rasa kantuk, mengonsumsi kafein merupakan cara terjitu. Namun, jangan biarkan tubuh menjadi pecandu kafein. Diantara banyak manfaat kafein, ternyata terdapat banyak efek negatif kebaikan kafein.

Agar Anda bisa menakar kadar kafein dalam tubuh, yuk kenali beberapa sinyal tubuh yang menandakan Anda kebanyakan mengonsumsi kafein.

Ingin Minum Soda Terus

Jika Anda tak bisa melewati hari tanpa diet coke, mungkin Anda kecanduan kafein. “Kandungan kafein dalam satu kaleng Diet Coke setara dengan segelas espresso,” ujar David J. Clayton, MD. Selain dapat memicu penurunan energi, kandungan asam pada minuman bersoda bisa merusak enamel gigi jika diminum setiap hari. Batasi minuman soda hingga sekaleng saja sehari, lalu gosoklah gigi untuk membantu mengurangi efek erosi pada enamel gigi.

Berdebar-debar Tak Karuan

Jantung akan terasa berdebar-debar bila terlalu banyak minum kopi, karena dalam kadar tertentu kafein dapat mempengaruhi susunan saraf pusat di otak. Kafein juga dapat meningkatkan tekanan darah sehingga tidak dianjurkan untuk penderita hipertensi dan sakit jantung.

Urin berwarna Kuning Gelap

Warna kuning gelap pada urin merupakan tanda tubuh mengalami dehidrasi. “Kopi bersifat diuretik yang bisa menyebabkan dehidrasi karena memicu Anda untuk banyak mengeluarkan jumlah urin, sehingga mengakibatkan tubuh kehilangan banyak cairan,” kata Amy Gross, MPH, RD, CDN, pakar diet klinis di New York Presbyterian Hospital. Namun, sebenarnya Anda tidak akan mengalami dehidrasi hanya dengan mengonsumsi kafein, bila mengonsumsinya tidak lebih dari 500 mg/hari. Jadi batasi konsumsi kopi, maksimal dua gelas per hari.

Selalu Gelisah

Tangan berkeringat, jantung berdebar-debar disertai perasaan gelisah adalah petunjuk bahwa Anda telah overdosis kafein. Kafein dapat memperburuk stres dan depresi karena mengganggu zat penenang kimia pada otak yang disebut adenosin. Kafein juga dapat bertindak sebagai stimulan yang memicu kelenjar adrenal untuk mengeluarkan lebih banyak hormon stres seperti adrenalin. Hormon ini dapat meningkatkan denyut jantung dan membuat Anda lebih mudah cemas
Baca lebih lanjut

Iklan

Ghiboo.com – Ketika mata Anda bertatapan dengan seseorang bisa mengirimkan arti yang besar. Mata memang mampu memberi sinyal terhadap perhatian dan minat seseorang terhadap Anda.

Karena itu yuk, kita lihat apa saja yang menurut Times of India menjadi hal pertama yang dilihat pria dari seorang wanita dibawah ini:

Rambut Anda

Sebenarnya Anda tidak harus memiliki rambut panjang sehingga mudah dibelai pria. Tapi yang terpenting adalah Anda bisa merawat rambut Anda dengan baik sehingga meski pendek tetap sehat dan menarik dilihat pria.

Senyuman tulus

Senyuman yang tulus atau tidak akan terlihat dan ini berpengaruh terhadap minat seorang pria terhadap Anda. Karena pria akan lebih senang melihat senyuman tulus dari wanita dan itu membuatnya tertarik kepada Anda.
Baca lebih lanjut

Private Sub Form_Activate()

Dim c As Integer

c = 1

Do While c < 20

c = c + 2

List1.AddItem c

Loop

End Sub

 

Private Sub Form_Activate()

Dim a As Integer

a = 0

Do While a < 20

a = a + 2

List1.AddItem a

Loop

End Sub

 

Private Sub Form_Activate()

Dim b As Integer

For b = 5 To 499 Step 27

List1.AddItem b + 3

Next b

End Sub

Tugas VB

 

 

 

 

 

 

 

 

Private Sub cmdcencel_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtkls.Text = “”

txtjur.Text = “”

txtprodi.Text = “”

txttm.Text = “”

txtnu.Text = “”

txtup.Text = “”

txtbps.Text = “”

txtub.Text = “”

txtbpa.Text = “”

txttotal.Text = “”

End Sub

 

Private Sub cmdexit_Click()

Unload Me

End Sub

 

Private Sub cmdentry_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtkls.Text = “”

txtjur.Text = “”

txtprodi.Text = “”

txttm.Text = “”

txtnu.Text = “”

txtup.Text = “”

txtbps.Text = “”

txtub.Text = “”

txtbpa.Text = “”

txttotal.Text = “”

End Sub

 

Private Sub cmdview_Click()

Dim jk As String

jk = Left(txtnpm.Text, 1)

If jk = “E” Then

txtkls.Text = “EKSEKUTIF”

ElseIf jk = “R” Then

txtkls.Text = “REGULER”

End If

 

jk = Mid(txtnpm.Text, 3, 2)

txttm.Text = “20” & Mid(txtnpm.Text, 3, 2)

 

jk = Mid(txtnpm.Text, 5, 1)

If jk = “1” Then

txtjur.Text = “Sistem Informasi”

ElseIf jk = “2” Then

txtjur.Text = “Manajemen Informatika”

ElseIf jk = “3” Then

txtjur.Text = “Manajemen & Komp. Akuntansi”

End If

 

jk = Mid(txtnpm.Text, 6, 2)

If jk = “01” Then

txtprodi.Text = “Strata Satu”

ElseIf jk = “02” Then

txtprodi.Text = “Diploma Tiga”

ElseIf jk = “03” Then

txtprodi.Text = “Diploma Satu”

End If

 

jk = Right(txtnpm.Text, 3)

txtnom.Text = jk

 

If txtkls.Text = “Eksekutif” Or txtkls.Text = “Reguler” Or txtprodi.Text = “Strata Satu” Then

txtdaftar.Text = 200000

ElseIf txtprodi.Text = “Diploma Tiga” Or txtprodi.Text = “Diploma Satu” Then

txtdaftar.Text = 150000

End If

 

If txtkls.Text = “Eksekutif” Or txtprodi.Text = “Strata Satu” Then

txtbps.Text = 1900000

ElseIf txtprodi.Text = “Diploma Tiga” Then

txtbps.Text = 1650000

ElseIf txtprodi.Text = “Diploma Satu” Then

txtbps.Text = 1350000

End If

 

 

If txtkls.Text = “Reguler” Or txtprodi.Text = “Strata Satu” Then

txtbps.Text = 1500000

ElseIf txtprodi.Text = “Diploma Tiga” Or txtprodi.Text = “Diploma Satu” Then

txtbps.Text = 1250000

End If

 

If txtkls.Text = “Eksekutif” Or txtprodi.Text = “Strata Satu” Or txtprodi.Text = “Diploma Tiga” Or txtprodi.Text = “Diploma Satu” Then

txtub.Text = 1250000

ElseIf txtkls.Text = “Reguler” Or txtprodi.Text = “Strata Satu” Or txtprodi.Text = “Diploma Tiga” Or txtprodi.Text = “Diploma Satu” Then

txtub.Text = 1000000

End If

 

If txtkls.Text = “Eksekutif” Or txtkls.Text = “Reguler” Or txtprodi.Text = “Strata Satu” Or txtprodi.Text = “Diploma Tiga” Or txtprodi.Text = “Diploma Satu” Then

txtbpa.Text = 600000

End If

 

txttotal.Text = Val(txtup.Text) + Val(txtbps.Text) + Val(txtub.Text) + Val(txtbpa.Text)

txttotal.SetFocus

End Sub

 

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

 

BERITASATU.COM – Muncul Gerakan Indonesia Tanpa FPI yang akan menggelar aksi pada 14 Februari 2012 di Bundaran HI.

Terinspirasi oleh aksi masyarakat Dayak di Kalimantan Tengah yang menolak kehadiran Front Pembela Islam (FPI) di wilayahnya, puluhan aktivis di Jakarta berencana membuat Gerakan Indonesia Tanpa FPI.

“Semua elemen masyarakat sudah merasa terganggu dan gerah dengan aktivitas anarkis FPI. Selama ini hanya sebatas petisi protes di sosial media. Kalau Kalimantan saja bisa kenapa Jakarta tidak melakukan,” kata Tunggal Pawestri, juru bicara gerakan, usai konsolidasi di Cikini Jakarta, hari ini (12/2).

Fokus dari Gerakan Indonesia Tanpa FPI adalah menolak segala bentuk penggunaan kekerasan yang biasa dilakukan oleh FPI dalam penyelesaian kasus. Kasus terakhir kekerasan yang dilakukan FPI adalah perusakan kantor Kementerian Dalam Negeri 12 Januari 2012 lalu.

Dalam konsolidasi yang digelar di Cikini Jakarta sore tadi, terkumpul hampir 40-an aktivis dari berbagai latar belakang organisasi baik LSM, buruh, perempuan, masyarakat adat dan lainnya. Mereka sepakat untuk menggelar kegiatan. Dalam waktu dekat gerakan ini akan menggelar aksi massa pada 14 Februari 2012. “Aksi akan dimulai dari Bundaran Hotel Indonesia Pukul 16.00,” ujar Tunggal.

Gerakan ini menyiapkan petisi masyarakat yang akan diserahkan ke penyelenggara negara. “Negara abai dan tidak bisa mengambil tindakan dengan aksi-aksi kekerasan yang dipertontonkan FPI selama ini,” ujar Tunggal. Selain membuat petisi dan aksi, gerakan ini juga mengajak masyarakat untuk memenuhi ruang sosial media di twitter dengan menggunakan hashtag #IndonesiaTanpaFPI.

“Tidak semua orang yang setuju gerakan ini punya kesempatan dan keberanian untuk turun ke jalan menolak keberaan FPI. Sosial media menjadi solusi,” kata Tunggal.

Tampak hadir dalam pertemuan itu peneliti ekonomi politik George Junus Aditjondro.

QUIZ 1 djaka

NOER MUHAMMAD DJAKA SATRIA

YAHOO3

 

 

 

 

KODE PROGRAM

 

Private Sub CmdBatal_Click(Index As Integer)

Unload Me

End Sub

 

Private Sub cmdKeluar_Click(Index As Integer)

End

End Sub

 

Private Sub CmdProses_Click(Index As Integer)

Dim A As String

A = Right(txtKB.Text, 1)

If A = “T” Then

txtNB.Text = “TAPE”

txtHT.Text = “275000”

 

elself A = “S” Then

txtNB.Text = “SOUD SYSTEM”

txtHT.Text = “350000”

 

elself A = “C” Then

txtNB.Text = “COMPACT”

txtHT.Text = “480000”

 

txtSISA.Text = Val(txtJS.Text) – Val(txtTerjual.Text)

txtTOTALHARGA.Text = Val(txtTerjual.Text) + Val(txtHT.Text)

 

End If

End Sub