Bahaya Merokok

Bahaya Merokok – Rokok sangat berbahaya bagi kesehatan sang perokok maupun orang disekitarnya. Namun masih banyak yang mengabaikan bahaya rokok tersebut dan tidak peduli akan akibat yang disebabkan rokok.

Menurut hasil penelitian oleh King’s College London, merokok bisa ”membusukkan” otak dengan merusak memori, kemampuan belajar dan daya nalar. Subjek penelitian dilakukan terhadap 8.800 orang dengan rentan usia berkisar 50 tahun keatas yang mengalami tekanan darah tinggi dan kelebihan berat badan. Penelitian tersebut juga menyatakan bahwa rokok juga mempengaruhi otak, meskipun dalam tingkat yang lebih rendah.

Bahaya rokok terhadap otak juga dikuatkan pendapat Komunitas Alzheimer yang mengatakan: ”Kami semua tahu, merokok, tekanan darah tinggi, kolesterol tinggi dan kelebihan berat badan adalah buruk untuk jantung. Penelitian ini menambah bukti bahwa mereka juga berpengaruh buruk untuk otak kita juga.”

bahaya rokok bagi kesehatan

Tidak hanya itu saja, menurut penelitian yang yang dipublikasikan oleh American Journal of Public Health, menunjukan hasil yang cukup mencengangkan.

Hasil penelitian tersebut menunjukan bahwa terdapat 42.000 perokok pasif yang meninggal setiap tahunnya, dari korban tersebut 900 diantaranya dalah bayi. Tidak berhenti sampai disitu, ada kemungkinan 600.000 orang lainya berpotensi meninggal. Kerugian materi pun meningkat sekitar 6,6 miliar USD akibat berkurangnya produktifitas SDM yang merokok.

Survey yang dilakukan oleh lembaga Gallup menunjukan bahwa para perokok aktif dan non-perokok (perokok pasif) sepertinya tidak menyadari bahay rokok tersebut.

Agar mendapatkan hasil yang akurat para peneliti tersebut memeriksa penanda toksin dari rokok dalam tubuh, yang disebut Cotinine. Para peneliti tersebut mengukur kadar cotinine dalam darah orang yang meninggal akibat rokok dan mendapati bahwa penyebab kematian paling tinggi lebih diakibatkan oleh dampak rokok terhadap paru-paru dibandingkan pada jantung.

Zat-zat Berbahaya pada Rokok

Hal yang harus benar benar dipahami yaitu ROKOK mengandungkurang lebih 4000 elemen-elemen, dan setidaknya 200 diantaranya dinyatakan bahaya bagi kesehatan. Racun utama pada rokok adalah tar,nikotin,dan karbon monoksida.

Tar adalah hirokarbon yang bersifat lengket dan menempel pada paru-paru. Nikotin adalah zat adiktif yang mempengaruhi syaraf dan peredaran darah. Zat ini bersifat karsinogen,dan mampu memicu terjadinya kangker paru-paru.

Selain yang disebutkan diatas berikut ini adalah sebagian dari bahaya akibat rokok:

Reproduksi dan Fertilitas

Dalam bungkus rokok tertera bahwa rokok dapat menyebabkan impoten. Hal ini benar adanya, dampak terhadap  reproduksi dan kesuburan sangat fatal. Merokok membuat seseorang beresiko lebih besar mangalami kerusakan sperma, mengurangi jumlah sperma dan menyebabkan kanker testis.

Paru-paru

Para perokok beresiko terserang Paru Obstruktif Kronik (PPOK), yaitu penyakit progresif yang berdampak membuat seseorang sulit bernapas. Banyak perokok tidak menyadari ketika terserang penyakit ini dan ketika mereka sadar semua sudah terlambat. Tidak ada obat untuk penyakit yang satu ini dan tidak ada cara untuk memperbaiki  kerusakan yang diakibatkanya.

Kanker

Perokok aktif maupun pasif berpotensi menimbulkan kanker seperti kanker paru, nasofaring, lidah sampai lambung. Kanker lambung bisa terjadi disebabkan asap rokok itu sebagian tertelan dan merusak sel-sel selaput lendir di lambung dan mengubahnya menjadi sel kanker

Jantung

Perokok juga akan rentan terkena penyakit jantung dan stroke. Hal ini disebabkan oleh karbon monoksida dari rokok mengambil oksigen pada darah dan berdampak pada pengembangan kolesterol yang mengendap di dinding arteri.

Mulut dan Gigi

Zat zat berbahaya pada rokok juga dapat menyebabkan bau mulut dan gigi bernoda. Dalam kondisi yang semakin lama pada area ini akan peningkatan risiko mengembangkan kanker pada lidah, tenggorokan, dan bibir.

Kulit

Rokok dapat mengakibatkan kurangnya suplay jumlah oksigen ke kulit sehingga dapat mempercepat penuaan dan lama kelamaan kulit akan tampak abu-abu.

Tulang

Bahaya rokok pun berpengaruh pada tulang tubuh, tulang akan cepat lemah dan rapuh. Hal ini lebih berbahaya pada kaum hawa, 5-10% wanita peroko lebih memiliki resiko lebih besar mengalami osteoporosis dibandingkan wanita non-perokok.

 
by Sahabat Sehat 

tugas vb

Image

Private Sub cmdbaru_Click()
Data1.Recordset.AddNew
txtnama.SetFocus
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdproses_Click()
Dim A As String
txttm.Text = “20” & Left(txtnpm.Text, 2)
txtnu.Text = Right(txtnpm.Text, 3)
A = Mid(txtnpm.Text, 3, 1)
If A = “1” Then
txtjur.Text = “Sistem Informasi”
ElseIf A = “2” Then
txtjur.Text = “Manajemen Informatika”
ElseIf A = “3” Then
txtjur.Text = “Tehnik Komputer”
End If
A = Mid(txtnpm.Text, 4, 2)
If A = “00” Then
txtprodi.Text = “Strata1”
ElseIf A = “01” Then
txtprodi.Text = “Diploma4”
ElseIf A = “02” Then
txtprodi.Text = “Diploma3”
End If
End Sub

Private Sub Cmdsimpan_Click()
Data1.Recordset.Update
End Sub

Private Sub Cmddelete_Click()
Data1.Recordset.Delete
End Sub

Private Sub Form_Load()

End Sub

 

TGAS VB

Image

Private Sub Command1_Click(Index As Integer)
Dim s As String
txtth.Text = Left(Text2.Text, 4)
s = Mid(Text2.Text, 5, 1)
If s = “A” Then
txtgol.Text = “A”
txtjb.Text = “Manager”
txtgp.Text = “4000000”
txttj.Text = “1025000”
ElseIf s = “B” Then
txtgol.Text = “B”
txtjb.Text = ” Ka. Seksi”
txtgp.Text = “3500000”
txttj.Text = “975000”
ElseIf s = “C” Then
txtgol.Text = “C”
txtjb.Text = “Staff”
txtgp.Text = “3000000”
txttj.Text = “925000”
End If
s = Mid(Text2.Text, 7, 1)
If s = “S” Then
txtkod.Text = “S”
txtst.Text = “Singel”
ElseIf s = “M” Then
txtkod.Text = “M”
txtst.Text = “Menikah”
ElseIf s = “J” Then
txtkod.Text = “J”
txtst.Text = “Janda”
ElseIf s = “D” Then
txtkod.Text = “D”
txtst.Text = “Duda”
End If
s = Mid(Text2.Text, 9, 3)
If s = “KEU” Then
txtbg.Text = “Accounting”
ElseIf s = “ADM” Then
txtbg.Text = “Administrasi”
ElseIf s = “SDM” Then
txtbg.Text = “General Affair”
ElseIf s = “EDP” Then
txtbg = “IT Unit”
ElseIf s = “Spm” Then
txtbg.Text = “Security”
End If
txttg.Text = Val(txtgp.Text) + Val(txttj.Text)
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
txtgol.Text = “”
txtkod.Text = “”
txtst.Text = “”
txtth.Text = “”
txtjb.Text = “”
txtbg.Text = “”
txtgp.Text = “”
txttj.Text = “”
txttg.Text = “”
End Sub

Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
txtgol.Text = “”
txtkod.Text = “”
txtst.Text = “”
txtth.Text = “”
txtjb.Text = “”
txtbg.Text = “”
txtgp.Text = “”
txttj.Text = “”
txttg.Text = “”
End Sub

Private Sub Command4_Click()
Unload Me
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

 

TGS

Image

Private Sub Form_load()
Combo1.AddItem “I”
Combo1.AddItem “II”
Combo1.AddItem “III”
Combo1.AddItem “IV”
End Sub

Private Sub Command1_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub combo1_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case Combo1.Text
Case “1”
Text3 = 1500000
Text4 = 150000
Case “II”
Text3 = 2000000
Text4 = 200000
Case “III”
Text3 = 2500000
Text4 = 250000
Case “IV”
Text3 = 3000000
Text4 = 300000
Case Else
Text3 = 0
Text4 = 0
End Select
Text6 = Val(Text3.Text) + Val(Text4.Text)
Text5 = Val(Text6.Text) * 0.1
Text6.Text = Val(Text6.Text) – Val(Text5.Text)
End Sub

Private Sub text1_keypress(keyascii As Integer)
If keyascii = 13 Then
Text2.SetFocus
End If
End Sub

VB

Image

Private Sub cmdbatal_Click()
txtnama.SetFocus
    txtnama = “”
    Txtnpm = “”
    txtjurusan = “”
    txtprogramstudy = “”
    txttahunmasuk = “”
    txtnomorurut = “”
End Sub

Private Sub cmdkeluar_Click()
    End
End Sub

Private Sub cmdlagi_Click()
    txtnama.SetFocus
    txtnama = “”
    Txtnpm = “”
    txtjurusan = “”
    txtprogramstudy = “”
    txttahunmasuk = “”
    txtnomorurut = “”
End Sub

Private Sub cmdproses_Click()
    Dim A, jr, ps As String
    txttahunmasuk.Text = “20” & Left(Txtnpm.Text, 2)
    A = Mid(Txtnpm.Text, 3, 1)
    If A = “1” Then
    jr = “sistem informasi”
    ElseIf A = “2” Then
    jr = “manajemen informatika”
    ElseIf A = “3” Then
    jr = “teknik informatika”
    ElseIf A = “4” Then
    jr = “komputer akutansi”
    End If
    txtjurusan.Text = jr
    A = Mid(Txtnpm.Text, 4, 2)
    If A = “00” Then
    ps = “strata satu”
    ElseIf A = “01” Then
    ps = “diploma empat”
     ElseIf A = “02” Then
    ps = “diploma tiga”
     ElseIf A = “03” Then
    ps = “diploma dua”
    End If
    txtprogramstudy.Text = ps
    txtnomorurut.Text = Right(Txtnpm.Text, 3)
End Sub

Private Sub txtnama_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Txtnpm.SetFocus
    End If
End Sub

tgs vb

Image

Private Sub ckbold_Click()
If ckbold.Value = 1 Then
Label1.FontBold = True
ElseIf ckbold.FontBold = 0 Then
Label1.FontBold = False
End If
End Sub

Private Sub ckitalic_Click()
If ckitalic.Value = 1 Then
Label1.FontItalic = True
ElseIf ckitalic.Value = 0 Then
Label1.FontItalic = False
End If
End Sub

Private Sub ckstriketout_Click()
If ckstriketout.Value = 1 Then
Label1.FontStrikethru = True
ElseIf ckstriketout.Value = 0 Then
Label1.FontStrikethru = False
End If
End Sub

Private Sub ckunderline_Click()
If ckunderline.Value = 1 Then
Label1.FontUnderline = True
ElseIf ckunderline.Value = 0 Then
Label1.FontUnderline = False
End If
End Sub

Private Sub cmd_Click()
Unload Me
End Sub

Private Sub optblue_Click()
If optblue.Value = True Then
Label1.ForeColor = vbBlue
End If
End Sub

Private Sub optgreen_Click()
If optgreen.Value = True Then
Label1.ForeColor = vbGreen
End If
End Sub

Private Sub optred_Click()
If optred.Value = True Then
Label1.ForeColor = vbRed
End If
End Sub

Private Sub optyellow_Click()
If optyellow.Value = True Then
Label1.ForeColor = vbYellow
End If
End Sub

Image

Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub

Private Sub Check2_Click()
Label2.FontItalic = Check1.Value
End Sub

Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Option1_Click()
Label2.ForeColor = vblue
End Sub

Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub

TUGAS VB

Image

Private Sub Combo1_Click()
Dim nama, jurusan, HM As String
Select Case Combo1.Text
Case “12100145”
nama = “MUHAMMAD MIFTAHUDIN”
jurusan = “Diploma empat”
Case “12100146”
nama = “RINI NURHAYATI”
jurusan = “Sistem Informasi”
Case “12100147”
nama = “ISTIQOMAH”
jurusan = “Diploma Tiga”
Case “12100148”
nama = “M FUAD HASYIM”
jurusan = “Diploma Dua”
Case “12100149”
nama = “HARIS PURBIANTO”
jurusan = “Diploma Satu”
End Select
Text1.Text = nama
Text2.Text = jurusan
Text3.SetFocus
End Sub

Private Sub command1_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(Text3.Text)
TUGAS = Val(Text4.Text)
UTS = Val(Text5.Text)
UAS = Val(Text6.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
Text7.Text = NA

Select Case Text7.Text
Case Is > 80
HM = “A”
Case Is > 70
HM = “B”
Case Is > 60
HM = “C”
Case Is > 50
HM = “D”
Case Is < 50
HM = “E”
End Select
Text8.Text = HM
End Sub

Private Sub Command2_Click()
Combo1.SetFocus
Combo1.Text = “”
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem “12100145”
Combo1.AddItem “12100146”
Combo1.AddItem “12100147”
Combo1.AddItem “12100148”
Combo1.AddItem “12100149”
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text4.SetFocus
End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.SetFocus
End If
End Sub

tugas visual basic

TUGAS 1

Image

Private Sub Command1_Click()
    Text1.SetFocus
    Text1 = “”
    Text2 = “”
    Text3 = “”

End Sub

Private Sub Command2_Click()
  Text1.SetFocus
    Text1 = “”
    Text2 = “”
    Text3 = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Form_Load()

End Sub

Private Sub text1_keypress(keyASCII As Integer)

    If keyASCII = 13 Then
    Text2.SetFocus
    End If
End Sub

Private Sub text2_keypress(keyASCII As Integer)
    If keyASCII = 13 Then
    Text3.Text = Val(Text1.Text) * Val(Text2.Text)
    End If
End Sub

TUGAS 2

Image

Private Sub Command1_Click()
    Text3.Text = Val(Text1.Text) * Val(Text2.Text)
    
End Sub

Private Sub Command2_Click()
    Text3.SetFocus
    Text1 = “”
    Text2 = “”
    Text3 = “”
End Sub

Private Sub Command3_Click()
    Unload Me
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Text2.SetFocus
    End If

End Sub

TUGAS 3

Image

Private Sub Command1_Click()
    Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub

Private Sub Command2_Click()
    Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub

Private Sub Command3_Click()
    Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

Private Sub Command4_Click()
    Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub

Private Sub Command5_Click()
    Text1.SetFocus
    Text1 = “”
    Text2 = “”
    Text3 = “”
End Sub

Private Sub Command6_Click()
Unload Me
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Text2.SetFocus
    End If
End Sub

TUGAS 4

Image

Private Sub Command1_Click()
    Text7.Text = Val((Text3.Text) + Val(Text4.Text) + Val(Text5.Text) + Val(Text6.Text)) / 4
End Sub

Private Sub Command2_Click()
    Text1 = “”
    Text2 = “”
    Text3 = “”
    Text4 = “”
    Text5 = “”
    Text6 = “”
    Text7 = “”
End Sub

Private Sub Command3_Click()
Text1 = “”
    Text2 = “”
    Text3 = “”
    Text4 = “”
    Text5 = “”
    Text6 = “”
    Text7 = “”
End Sub

Private Sub Command4_Click()
    Unload Me
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Text2.SetFocus
    End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Text3.SetFocus
    End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Text4.SetFocus
    End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Text5.SetFocus
    End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Text6.SetFocus
    End If
End Sub

TUGAS 5

Image

Private Sub Command1_Click()
    Text3.Text = Val(Text1.Text) – Val(Text2.Text)
End Sub

Private Sub Command2_Click()
    Text1.SetFocus
    Text1 = “”
    Text2 = “”
    Text3 = “”
End Sub

Private Sub Command3_Click()
    Unload Me
End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
    Text2.Text = Val(Text1.Text) * 0.1
    End If
End Sub