TUGAS DATA BASE NPM

Gambar

Private Sub cmdsimpan_Click()

 

Data1.Recordset.Update

 

End Sub

 

 

 

Private Sub Command1_Click()

 

kode = Mid(txtnpm.Text, 3, 1)

 

If kode = “1” Then

 

txtjur.Text = “Sistem Informasi”

 

ElseIf kode = “2” Then

 

txtjur.Text = “Manajemen Informatika”

 

ElseIf kode = “3” Then

 

txtjur.Text = “Tehnik Informatika”

 

End If

 

 

 

kode = Mid(txtnpm.Text, 4, 2)

 

If kode = “01” Then

 

txtprodi.Text = “Strata Satu”

 

ElseIf kode = “02” Then

 

txtprodi.Text = “Diploma Empat”

 

ElseIf kode = “03” Then

 

txtprodi.Text = “Diploma Tiga”

 

End If

 

txtno.Text = Right(txtnpm.Text, 3)

 

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

 

End Sub

 

 

 

 

 

Private Sub Command2_Click()

 

Data1.Recordset.AddNew

 

txtnpm.SetFocus

 

End Sub

 

 

 

 

 

Private Sub Command4_Click()

 

Data1.Recordset.Delete

 

End Sub

 

 

 

Private Sub Command5_Click()

 

End

 

End Sub

 

TABEL KODE ASCII 7bit

ASCII Table: 7-bit

Decimal   Octal   Hex    Binary     Value

——-   —–   —    ——     —–

000      000    000   00000000      NUL    (Null char.)

001      001    001   00000001      SOH    (Start of Header)

002      002    002   00000010      STX    (Start of Text)

003      003    003   00000011      ETX    (End of Text)

004      004    004   00000100      EOT    (End of Transmission)

005      005    005   00000101      ENQ    (Enquiry)

006      006    006   00000110      ACK    (Acknowledgment)

007      007    007   00000111      BEL    (Bell)

008      010    008   00001000       BS    (Backspace)

009      011    009   00001001       HT    (Horizontal Tab)

010      012    00A   00001010       LF    (Line Feed)

011      013    00B   00001011       VT    (Vertical Tab)

012      014    00C   00001100       FF    (Form Feed)

013      015    00D   00001101       CR    (Carriage Return)

014      016    00E   00001110       SO    (Shift Out)

015      017    00F   00001111       SI    (Shift In)

016      020    010   00010000      DLE    (Data Link Escape)

017      021    011   00010001      DC1    (XON) (Device Control 1)

018      022    012   00010010      DC2          (Device Control 2)

019      023    013   00010011      DC3    (XOFF)(Device Control 3)

020      024    014   00010100      DC4          (Device Control 4)

021      025    015   00010101      NAK    (Negative Acknowledgement)

022      026    016   00010110      SYN    (Synchronous Idle)

023      027    017   00010111      ETB    (End of Trans. Block)

024      030    018   00011000      CAN    (Cancel)

025      031    019   00011001       EM    (End of Medium)

026      032    01A   00011010      SUB    (Substitute)

027      033    01B   00011011      ESC    (Escape)

028      034    01C   00011100       FS    (File Separator)

029      035    01D   00011101       GS    (Group Separator)

030      036    01E   00011110       RS    (Request to Send)(Record Separator)

031      037    01F   00011111       US    (Unit Separator)

032      040    020   00100000       SP    (Space)

033      041    021   00100001        !    (exclamation mark)

034      042    022   00100010        ”    (double quote)

035      043    023   00100011        #    (number sign)

036      044    024   00100100        $    (dollar sign)

037      045    025   00100101        %    (percent)

038      046    026   00100110        &    (ampersand)

039      047    027   00100111        ‘    (single quote)

040      050    028   00101000        (    (left/opening parenthesis)

041      051    029   00101001        )    (right/closing parenthesis)

042      052    02A   00101010        *    (asterisk)

043      053    02B   00101011        +    (plus)

044      054    02C   00101100        ,    (comma)

045      055    02D   00101101        –    (minus or dash)

046      056    02E   00101110        .    (dot)

047      057    02F   00101111        /    (forward slash)

048      060    030   00110000        0

049      061    031   00110001        1

050      062    032   00110010        2

051      063    033   00110011        3

052      064    034   00110100        4

053      065    035   00110101        5

054      066    036   00110110        6

055      067    037   00110111        7

056      070    038   00111000        8

057      071    039   00111001        9

058      072    03A   00111010        :    (colon)

059      073    03B   00111011        ;    (semi-colon)

060      074    03C   00111100        <    (less than)

061      075    03D   00111101        =    (equal sign)

062      076    03E   00111110        >    (greater than)

063      077    03F   00111111        ?    (question mark)

064      100    040   01000000        @    (AT symbol)

065      101    041   01000001        A

066      102    042   01000010        B

067      103    043   01000011        C

068      104    044   01000100        D

069      105    045   01000101        E

070      106    046   01000110        F

071      107    047   01000111        G

072      110    048   01001000        H

073      111    049   01001001        I

074      112    04A   01001010        J

075      113    04B   01001011        K

076      114    04C   01001100        L

077      115    04D   01001101        M

078      116    04E   01001110        N

079      117    04F   01001111        O

080      120    050   01010000        P

081      121    051   01010001        Q

082      122    052   01010010        R

083      123    053   01010011        S

084      124    054   01010100        T

085      125    055   01010101        U

086      126    056   01010110        V

087      127    057   01010111        W

088      130    058   01011000        X

089      131    059   01011001        Y

090      132    05A   01011010        Z

091      133    05B   01011011        [    (left/opening bracket)

092      134    05C   01011100        \    (back slash)

093      135    05D   01011101        ]    (right/closing bracket)

094      136    05E   01011110        ^    (caret/circumflex)

095      137    05F   01011111        _    (underscore)

096      140    060   01100000        `

097      141    061   01100001        a

098      142    062   01100010        b

099      143    063   01100011        c

100      144    064   01100100        d

101      145    065   01100101        e

102      146    066   01100110        f

103      147    067   01100111        g

104      150    068   01101000        h

105      151    069   01101001        i

106      152    06A   01101010        j

107      153    06B   01101011        k

108      154    06C   01101100        l

109      155    06D   01101101        m

110      156    06E   01101110        n

111      157    06F   01101111        o

112      160    070   01110000        p

113      161    071   01110001        q

114      162    072   01110010        r

115      163    073   01110011        s

116      164    074   01110100        t

117      165    075   01110101        u

118      166    076   01110110        v

119      167    077   01110111        w

120      170    078   01111000        x

121      171    079   01111001        y

122      172    07A   01111010        z

123      173    07B   01111011        {    (left/opening brace)

124      174    07C   01111100        |    (vertical bar)

125      175    07D   01111101        }    (right/closing brace)

126      176    07E   01111110        ~    (tilde)

127      177    07F   01111111      DEL    (delete)

 

Tugas Gambar

Tugas Gambar

Private Sub Check1_Click()
If Check1.Value = 1 Then
Label1.FontBold = True
Else
Label1.FontBold = False
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then
Label1.FontItalic = True
Else
Label1.FontItalic = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Label1.FontUnderline = True
Else
Label1.FontUnderline = False
End If
End Sub
Private Sub Check4_Click()
If Check4.Value = 1 Then
Label1.FontStrikethru = True
Else
Label1.FontStrikethru = False
End If
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Option1_Click()
Label1.ForeColor = vbRed
End Sub
Private Sub Option2_Click()
Label1.ForeColor = vbGreen
End Sub
Private Sub Option3_Click()
Label1.ForeColor = vbBlue
End Sub
Private Sub Option4_Click()
Label1.ForeColor = vbYellow
End Sub

Program Studi

Program Studi

Private Sub Command1_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text7 = “”
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1 = “”
Text2 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text7 = “”
End Sub
Private Sub Command3_Click()
End
End Sub

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

Private Sub Command4_Click()
Dim A, JS, PS, ASSTRING
Text6.Text = “20” & Left(Text2.Text, 2)
A = Mid(Text2.Text, 3, 1)
If A = “1” Then
jr = “SISTEM INFORMASI”
ElseIf A = “2” Then
jr = “manajemen informatiaka”
ElseIf A = “3” Then
jr = “teknik informasi”
ElseIf A = “4” Then
jr = “komputer akutansi”
End If
Text4.Text = jr
A = Mid(Text2.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
Text5.Text = PS
Text7.Text = Right(Text2.Text, 3)
End Sub

NIDN

NIDN

Private Sub Combo1_CLICK()
Dim GAPOK, PAJAK, TUNJANGAN, TOTAL As Variant
Select Case Combo1.Text
Case “I”
GAPOK = 1500000
TUNJANGAN = 150000
Case “II”
GAPOK = 2000000
TUNJANGAN = 200000
Case “III”
GAPOK = 2500000
TUNJANGAN = 250000
Case “IV”
GAPOK = 3000000
TUNJANGAN = 300000
Case Else
GAPOK = 0
TUNJANGAN = 0
End Select
TOTAL = GAPOK + TUNJANGAN
PAJAK = TOTAL * 0.1
Text3.Text = GAPOK
Text4.Text = TUNJANGAN
Text5.Text = PAJAK
Text6.Text = TOTAL – PAJAK
End Sub

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

Private Sub Command3_Click()
End
End Sub

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

Private Sub Text1_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text3_Change()

End Sub

Huruf Warna

Huruf Warna

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 = vbBlue
End Sub
Private Sub Option2_Click()
Label2.ForeColor = vbRed
End Sub

Huruf Mutu

Huruf Mutu

Private Sub Combo1_CLICK()
Dim NAMA, JURUSAN As String
Select Case Combo1.Text
Case “12100113”
NAMA = “M.RIZAL SOBRI”
JURUSAN = “SISTEM INFORMASI”
Case “12201012”
NAMA = “AHMAD TOHIR”
JURUSAN = “MANAJEMEN INFORMATIKA”
Case “12201018”
NAMA = “SITI FATHONAH”
JURUSAN = “TEKNIK INFORMATIKA”
End Select
Text1.Text = “SITI FATHONAH”
Text2.Text = “TEKNIK INFORMATIKA”
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 Text8.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 = “”
Text8.Text = “”
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub FORM_LOAD()
Combo1.AddItem “12100113”
Combo1.AddItem “12201012”
Combo1.AddItem “12201018”
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

Private Sub Text6_KEYPRESS(KEYASCII As Integer)
If KEYASCII = 13 Then
Dim NA As Integer
Dim HA 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 Text8.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 If
End Sub

Aplikasi Gaji

Private Sub Command1_Click()
Text4.Text = Val(Text1.Text) + Val(Text2.Text) – Val(Text3.Text)
Text5.Text = Val(Text4.Text) * 0.1
Text6.Text = Val(Text4.Text) – Val(Text5.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 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

Bahaya! Komplikasi Tifus Bisa Sebabkan Kematian

TRIBUNKALTIM.co.id – Penyakit tifus harus tertangani dengan baik, dan diketahui perkembangannya sejak dini. Jika  keadaan sudah parah dapat menimbulkan komplikasi yang cukup berbahaya, baik di usus maupun di organ selain usus.

Menurut dr dr Bellza Rizki Ananta komplikasi ini misalnya terjadi perdarahan usus, atau bahkan usus bisa berlubang. Sementara pada organ di luar usus dapat menimbulkan komplikasi pada sistem peredaran darah, gangguan paru, ginjal, hati, dan juga sistem kesadaran yang bisa menyebabkan kematian

Cara terbaik untuk penyembuhan tifus adalah istirahat total (full bedrest) dan diet makanan. Adapun waktu yang dibutuhkan untuk istirahat, setidaknya selama tujuh hari. Hal ini, sebagai cara tepat untuk mencegah perkembangan kuman dan penyebarannya. Selain dari pemberian obat antibiotik pembunuh bakteri.

Adapun, cara pencegahan yang baik adalah dengan menjaga kebersihan lingkungan, menyediakan sarana air minum yang memenuhi syarat, pembuatan jamban yang hygienis, dan menciptakan lingkungan yang bersih dan sehat.

Terhadap manusia, dapat dilakukan upaya imunisasi untuk memberikan kekebalan tubuh yang kuat. Selain itu memberikan pemahaman kepada masyarakat tentang bahaya penyakit ini, sehingga masyarakat akan berusaha untuk menjaga dirinya dan lingkungannya untuk selalu bersih dan sehat.

7 Penyakit Paling Berbahaya di Dunia

7 Penyakit paling mematikan dan paling membunuh di dunia ini saya copy paste dari berbagai artikel, karena saya bukan dokter atau orang yang paham tentang penyakit. Artikel ini cuma mengingatkan tentang pentingnya mewaspadai ancaman penyakit yang hidup bersama di sekitar kita.

  • Kanker

Setiap orang mempunyai sel kanker di dalam tubuh. Sel-sel kanker ini tidak terlihat dalam tes standard hingga mereka berkembang biak menjadi bermilyar milyar. Ketika dokter mengatakan kepada pasien kanker bahwa tidak ada lagi sel kanker di tubuh mereka setelah perawatan, itu berarti bahwa tes yang dilakukan tidak mampu mendeteksi sel kanker karena sel kanker tersebut tidak sampai pada jumlah yang dapat diprediksi.

Tembakau menjadi pemicu peningkatan resiko kanker terbesar terutama di negara berkembang, seperti Cina dan India. Kedua negara ini 40 persen penduduknya adalah perokok. Di Indonesia ancaman akibat rokok juga sangat besar karena semakin banyaknya orang merokok dan begitu banyaknya produsen rokok di negara ini. Jumlah perokok di Indonesia menempati peringkat pertama di kawasan ASEAN, yakni 46,16 persen dari perkiraan total jumlah perokok di kawasan ini pada tahun 2007 sebanyak 125, 8 juta orang.

Organisasi Kesehatan Dunia (WHO) menyatakan bahwa diagnosa kanker di seluruh dunia diperkirakan akan menemukan 12 juta penderita dalam tahun ini. Sedang kematian akibat kanker secara global akan mencapai tujuh juta.Tren penyakit ini akan meningkat dua kali lipat dan lebih mematikan pada tahun 2030.kemungkinan 75 juta penderita bakal menghuni dunia ini.

Setiap tahun kasus dan kematian karena kanker meningkat satu persen. Angka ini akan meningkat lebih tajam khususnya di Negara Cina, Rusia dan India. Artinya, kasus kanker akan seperti ‘jamur di musim hujan’ dengan mencapai 27 juta penderita di tahun 2030, dengan angka kematian 17 juta orang.

Kanker merupakan penyebab utama kedua kematian orang dewasa di belahan Barat, dan merupakan salah satu penyebab utama kematian anak-anak akibat penyakit yang berumur antara 1 hingga 14 tahun. Meskipun demikian, penyakit ini jarang menyerang orang muda. Di Inggris Raya, kanker menyerang kira-kira 1 dari antara 650 anak-anak.

Laju kematian sesuai umur per 100.000 jumlah penduduk dari semua penderita kanker laki-laki adalah 246,5 di Hungaria (salah satu yang tertinggi), sedangkan di Meksiko laju ini hanya mencapai 83,5 (salah satu yang terendah). Bagi wanita, lajunya adalah 139,8 di Denmark dan 62,3 di Mauritius. Laju bagi Inggris dan Wales adalah 179,2 bagi laki-laki dan 125,7 bagi wanita; di Amerika Serikat, laju ini adalah 164,4 bagi laki-laki dan 110,6 bagi wanita. Untuk bentuk kanker tertentu, perbedaan laju antar negara dapat mencapai 40 kali lipat. Penelitian terhadap populasi yang bermigrasi dari satu wilayah geografis ke yang lainnya memperlihatkan bahwa perbedaan ini adalah sebagai akibat dari perbedaan gaya hidup, dan bukan karena faktor etnis. Hal ini konsisten dengan temuan lainnya yang memperlihatkan bahwa kebanyakan kanker terutama berhubungan dengan penyebab yang berasal dari lingkungan dan bukan diakibatkan faktor keturunan, meskipun keduanya dapat saling berinteraksi.

Kanker yang paling banyak menimbulkan korban di Eropa dan Amerika Serikat adalah kanker paru-paru, usus besar (kolorektal), payudara, prostat, dan perut. Jika digabungkan, setengah dari seluruh jumlah kematian akibat kanker disebabkan kanker jenis ini. Mereka sekaligus, bersama-sama dengan kanker kulit, merupakan jenis kanker yang paling umum menyerang manusia. Kanker kulit adalah kanker pertama atau kedua yang paling umum di banyak negara Barat seperti Amerika Serikat, Australia, dan Inggris Raya. Untung saja kanker kulit, kecuali melanoma maligna (jenis yang paling jarang tetapi yang paling hebat), jarang berakibat fatal.

  • Jantung

Penyakit kardiovaskular (CVD) adalah istilah bagi serangkaian gangguan yang menyerang jantung dan pembukuh darah, termasuk penyakit jantung koroner (CHD), penyakit serebrovaskular, hipertensi (tekanan darah tinggi), dan penyakit vaskular perifer (PVD).

Definisi CVD juga menyangkut penyakit lain seperti rheumatic heart disease (kerusakan jantung akibat rematik) dan penyakit jantung congenital (kerusakan bentuk struktur jantung sejak lahir). CVD berhubungan dengan kondisi seperti serangan jantung (MI), angina dan stroke.

Pada penyakit CHD dalam arteri koroner yang menyuplai darah ke jantung mengalami penyempitan dan beberapa kasus aliran darah terblokir.

Hal ini menyebabkan darah tidak dapat disalurkan dengan baik ke otot-otot jantung. Apabila oksigen tidak dapat disalurkan dengan baik ke otot-otot jantung, jantung akan menjadi lemah dan tidak dapat menyediakan darah ke seluruh bagian tubuh, akibatnya orang tersebut akan meninggal.

Diperkirakan 17 juta orang meninggal setiap tahun akibat CVD. Satu kematian terjadi akibat CVD setiap dua detik, satu orang meninggal dalam setiap lima detik akibat serangan jantung. Dari 17,5 juta kematian akibat CVD yang terjadi pada tahun 2005, sekitar 7,6 juta diantaranya terjadi karena penyakit jantung koroner dan 5,7 juta karena stroke.

Dari sekitar 10 juta orang di seluruh dunia yang selamat dari stroke setiap tahunnya, lebih dari 5 juta diantaranya mengalami cacat permanen sehingga membebani keluarga dan masyarakat. Kematian global akibat CVD diperkirakan mencapai sekitar 25 juta pada tahun 2020.

  • AIDS

Organisasi Kesehatan Dunia (WHO) dan lembaga khusus untuk menanggulangi AIDS dari PBB (UNAIDS), melaporkan estimasi jumlah penderita HIV/AIDS di seluruh dunia pada tahun 1990 adalah 7,8 juta dan pada akhir Desember 2007 mencapai 33,2 juta, dimana 90% berasal dari negara berkembang. Estimasi jumlah kematian yang disebabkan oleh HIV/AIDS mencapai 2,1 juta orang, dimana 76% terjadi di wilayah Sub Sahara Afrika yang merupakan penyebab kematian utama di wilayah tersebut. Sedangkan jumlah infeksi baru HIV/AIDS adalah 2,5 juta dan 68% terjadi di Sub Sahara Afrika.

Benua Asia diindikasikan memiliki laju infeksi HIV tertinggi di dunia, sedangkan Afrika tengah mengalami perluasan dampak buruk HIV/AIDS di berbagai sektor pembangunan ( Beni, 2004). Prevalensi HIV tertinggi terdapat di wilayah Asia Tenggara dengan tren epidemik yang bervariasi di setiap negara. Tren epidemik di Kamboja, Myanmar dan Thailand menunjukkan penurunan, sedangkan di Indonesia dan Vietnam malah semakin meningkat. Secara keseluruhan estimasi jumlah orang yang mengidap HIV/ AIDS pada akhir 2007 di Asia adalah 4,9 juta orang, termasuk 440.000 orang yang merupakan kasus baru dan mencapai 300.000 orang meninggal karena AIDS

Kini di seluruh dunia diperkirakan lebih dari 40 juta orang mengidap HIV/AIDS. Sekitar 75% yang tertular HIV/AIDS berada di kawasan Asia Pasifik dan Afrika. Lebih dari 20 juta jiwa telah meninggal karena AIDS. Jumlah itu bukanlah jumlah yang kecil. Pada peringatan Hari AIDS sedunia tanggal 1 Desember 2003, WHO dan UNAIDS telah memberi warning. Kedua organisasi dunia itu memberi peringatan bahaya kepada 3 negara di Asia yang saat ini disebut-sebut berada pada titik infeksi HIV. Bahkan bisa dikatakan ketiga negara tersebut berada dalam posisi serius. Berdasarkan laporan WHO dan UNAIDS ketiga negara itu adalah China, India, dan Indonesia. Apalagi ketiga negara itu memiliki populasi penduduk besar di dunia.

  • Diabetes

Bisa dimaklumi jika banyak orang khawatir dengan penyakit Diabetes. Karena penyakit tersebut telah menjadi penyebab kematian terbesar nomor lima di dunia. WHO melaporkan, jumlah kematian akibat penyakit tersebut di seluruh dunia adalah 3,2 juta orang per tahun. Itu artinya, setiap menit, 6 orang meninggal dunia akibat diabetes.

Diabetes melitus adalah kondisi ketika tubuh tak bisa mengendalikan kadar gula dalam darah (glukosa), yang normalnya 60-120 mg/dl. Glukosa merupakan hasil penyerapan makanan oleh tubuh, yang kemudian menjadi sumber energi. Tapi, pada penderita DM, kadar glukosa ini terus meningkat sehingga terjadi penumpukan.

Mengapa pengaturan glukosa ini tak terkendali? Penyebabnya, karena terjadi gangguan pada kelenjar pankreas. Pada pankreas terdapat sel kecil khusus yang dinamakan sel beta atau dikenal juga sebagai ‘pulau-pulau Langerhans’, yang menghasilkan hormon insulin. Hormon inilah yang menjadi kunci pengatur pengiriman glukosa ke seluruh tubuh.

Penyakit diabetes melitus (DM) atau akrab disebut kencing manis khususnya tipe 2 yang bukan faktor keturunan kini tak hanya menyerang orang dewasa, tetapi juga anak-anak dan remaja. Ironisnya lagi, diabetes pada anak sulit dideteksi, sehingga tidak bisa dicegah sejak dini.

Tingginya jumlah penderita diabetes mellitus (DM) di Indonesia diakibatkan pola makan orang Indonesia yang terlalu banyak mengonsumsi karbohidrat.

  • TB (Tuberculosis)

Tuberculosis disebabkan oleh bakteri bernama mycobacterium tuberculosis. Gejala-gejala penderita TB diantaranya batuk-batuk, sakit dada, nafas pendek, hilang nafsu makan, berat badan turun, demam, kedinginan, dan kelelahan. Objek TB biasanya anak-anak dan orang yang lemah sistem kekebalan tubuhnya.Transmisi bakteri tuberculosis biasanya melalui inhalasi, misalnya penularan dengan dahak penderita TB, dan lewat kulit. Beberapa diagnosa kasus TB diantaranya tes tuberculin di kulit, identifikasi bakteria di sputum (dahak), dan rontgen paru-paru.

Micobacterium tuberculosis (TB) telah menginfeksi sepertiga penduduk dunia, menurut WHO sekitar 8 juta penduduk dunia diserang TB dengan kematian 3 juta orang per tahun (WHO, 1993). Di negara berkembang kematian ini merupakan 25% dari kematian penyakit yang sebenarnya dapat diadakan pencegahan. Diperkirakan 95% penderita TB berada di negara-negara berkembang Dengan munculnya epidemi HIV/AIDS di dunia jumlah penderita TB akan meningkat. Kematian wanita karena TB lebih banyak dari pada kematian karena kehamilan, persalinan serta nifas (WHO). WHO mencanangkan keadaan darurat global untuk penyakit TB pada tahun 1993 karena diperkirakan sepertiga penduduk dunia telah terinfeksi kuman TB.

  • Vector Borne

Penyakit yang disebabkan oleh nyamuk dan lalat (vector borne) yaitu Malaria, telah membunuh lebih dari 1.2 juta orang, kebanyakan pada anak-anak di Afrika dibawah umur 5 tahun. Kemudian DBD (Demam Berdarah Dengue) menjadi penyakit yang tercepat pertumbuhannya di dunia,

Jumlah kematian akibat demam berdarah di Indonesia sudah melebihi 400 orang dan berjangkit di hampir semua propinsi. Sedangkan lebih dari 28.000 orang terkena penyakit itu. Demikian dikemukakan jurubicara Departemen Kesehatan, Mariani Reksoprojo. Pemerintah menyediakan dana 50 milyar Rupiah untuk menanggulangi penyakit tsb. Demam berdarah timbul pada setiap musim hujan

Sistem irigasi dan buruknya sanitasi, suplai air, kondisi rumah dan penanganan sampah, penebangan hutan dan hilangnya biodiversity, menjadi pemicu utama.

Hepatitis

  • Virus hepatitis A

Virus hepatitis A terutama menyebar melalui tinja. Penyebaran ini terjadi akibat buruknya tingkat kebersihan. Di negara-negara berkembang sering terjadi wabah yang penyebarannya terjadi melalui air dan makanan.

  • Virus hepatitis B

Penularannya tidak semudah virus hepatitis A. Virus hepatitis B ditularkan melalui darah atau produk darah. Penularan biasanya terjadi diantara para pemakai obat yang menggunakan jarum suntik bersama-sama, atau diantara mitra seksual (baik heteroseksual maupun pria homoseksual).

Ibu hamil yang terinfeksi oleh hepatitis B bisa menularkan virus kepada bayi selama proses persalinan. Hepatitis B bisa ditularkan oleh orang sehat yang membawa virus hepatitis B. Di daerah Timur Jauh dan Afrika, beberapa kasus hepatitis B berkembang menjadi hepatitis menahun, sirosis dan kanker hati.

  • Virus hepatitis C

Menyebabkan minimal 80% kasus hepatitis akibat transfusi darah. Virus hepatitis C ini paling sering ditularkan melalui pemakai obat yang menggunakan jarum bersama-sama. Jarang terjadi penularan melalui hubungan seksual. Untuk alasan yang masih belum jelas, penderita “penyakit hati alkoholik” seringkali menderita hepatitis C.

  • Virus hepatitis D

Hanya terjadi sebagai rekan-infeksi dari virus hepatitis B dan virus hepatitis D ini menyebabkan infeksi hepatitis B menjadi lebih berat. Yang memiliki resiko tinggi terhadap virus ini adalah pecandu obat.

  • Virus hepatitis E

Virus hepatitis E kadang menyebabkan wabah yang menyerupai hepatitis A, yang hanya terjadi di negara-negara terbelakang.

  • Virus hepatitis G

Jenis baru dari virus hepatitis yang telah terdeteksi baru-baru ini.