Benitez: Chelsea Kini Kian Ditakuti

 

0000100663

Bola.net – Manajer Chelsea, Rafael Benitez merasa kini timnya lebih ditakuti oleh para rival mereka di Premier League, menyusul kemenangan 8-0 atas Aston Villa di Stamford Bridge.

The Blues mengamuk di kandang sendiri dengan mencatatkan tujuh pemain berbeda di papan skor – rekor Premier League musim ini. Itu menandai ritme Chelsea mulai membaik di bawah kepemimpinan Benitez meski sempat mengundang kritik di awal penunjukannya.

Manajer asal Spanyol itu menegaskan jika para lawan mereka sudah tahu betul kekuatan Chelsea, namun performa mereka kini akan membuat kubu rival makin waspada.

Saat ditanya apakah kini tim lain akan gentar pada mereka, Benitez mengatakan, “Tidak. Mereka tahu sebelumnya jika Chelsea adalah tim papan atas, dan masih begitu. Mungkin mereka akan lebih berhati-hati menghadapi kami, namun mereka sudah punya banyak respek sebelumnya.”

Meski sudah menggelontorkan delapan gol, Benitez merasa timnya masih punya ruang untuk berkembang. “Yang terpenting adalah memenangi pertandingan kami. Anda bisa melakukan itu jika Anda melihat tim Anda berkembang. Saya melihat tim ini sedikit berkembang, namun kami masih bisa berkembang lagi,” tutupnya. (espn/row)

Iklan
Categories: Uncategorized | Tinggalkan komentar

Tugas VB #Data Base#

db

Private Sub Cmdcancel_Click()

Data1.Recordset.Delete

Txtnama.SetFocus

End Sub

Private Sub Cmdexit_Click()

Unload Me

End Sub

Private Sub Cmdnew_Click()

Data1.Recordset.AddNew

End Sub

Private Sub Cmdproses_Click()

Dim jurusan, study As String

Dim th, no As Currency

th = “20” & Left(Txtnpm.Text, 2)

Txtth.Text = th

jurusan = Mid(Txtnpm.Text, 3, 1)

If jurusan = “1” Then

jurusan = “Sistem Informasi”

ElseIf jurusan = “2” Then

jurusan = “Manajemen Informatika”

ElseIf jurusan = “3” Then

jurusan = “Teknik Informatika”

ElseIf jurusan = “4” Then

jurusan = “Manajemen & Komp.Akutansi”

End If

Txtjurusan.Text = jurusan

study = Mid(Txtnpm.Text, 4, 2)

If study = “01” Then

study = “Strata Satu”

ElseIf study = “02” Then

study = “Diploma Empat”

ElseIf study = “03” Then

study = “Diploma Tiga”

ElseIf study = “04” Then

study = “Diploma Dua”

End If

Txtstudi.Text = study

no = Right(Txtnpm, 3)

Txtno.Text = no

End Sub

Private Sub Cmdsave_Click()

Data1.Recordset.Update

End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

Categories: Uncategorized | Tinggalkan komentar

TUGAS VISUAL BASIC 4

1.

no1

Private Sub Cmdproses_Click()

Dim P As String

Txtthn.Text = “20” & Right(Txtkbu.Text, 2)

P = Left(Txtkbu.Text, 1)

If P = “A” Then

Pn = “Andi Offset Yogyakarta”

ElseIf P = “I” Then

Pn = “Indah Surabaya”

ElseIf P = “S” Then

Pn = “Salemba Empat”

ElseIf P = “E” Then

Pn = “Elek Media Komputindo”

ElseIf P = “M” Then

Pn = “Maxicom”

End If

P = Mid(Txtkbu.Text, 3, 3)

If P = “SIM” Then

Jbk = “Sisitem Informasi Manajemen”

Png = “Andra Setiawan”

Hrg = “75900”

ElseIf P = “EDP” Then

Jbk = “Elektronik Data Processing”

Png = “Desi Istiqomah”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jbk = “Manajemen”

Png = “Sandy Fitrajaya”

Hrg = “42000”

ElseIf P = “CDR” Then

Jbk = “Corel draw”

Png = “Tri Indah Sari”

Hrg = “53000”

ElseIf P = “RPL” Then

Jbk = “Rekayasa Perangkat Lunak”

Png = “Ernita”

Hrg = “83000”

End If

Txtpnr.Text = Pn

Txtjbu.Text = Jbk

Txtpeng.Text = Png

Txthrg.Text = Hrg

End Sub.

Private Sub Cmdlagi_Click()

Txtkbu.SetFocus

Txtkbu.Text = “”

Txtjbu.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

Private Sub Cmdbtl_Click()

Txtkbu.SetFocus

Txtkbu.Text = “”

Txtjbu.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

Private Sub Cmdexit_Click()

Unload Me

End Sub

2.

no2

Private Sub Cmdproses_Click()

Dim P As String

Txtthn.Text = “20” & Mid(Txtkbu.Text, 5, 2)

P = Right(Txtkbu.Text, 1)

If P = “A” Then

Pn = “Andi Offset Yogyakarta”

ElseIf P = “I” Then

Pn = “Indah Surabaya”

ElseIf P = “S” Then

Pn = “Salemba Empat”

ElseIf P = “E” Then

Pn = “Elek Media Komputindo”

ElseIf P = “M” Then

Pn = “Maxicom”

End If

P = Left(Txtkbu.Text, 3)

If P = “SIM” Then

Jbk = “Sisitem Informasi Manajemen”

Png = “Fadiya Ulfa”

Hrg = “75900”

ElseIf P = “EDP” Then

Jbk = “Elektronik Data Processing”

Png = “Nurul Agustina”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jbk = “Manajemen”

Png = “Rian Hidayat”

Hrg = “42000”

ElseIf P = “CDR” Then

Jbk = “Corel draw”

Png = “Siti Nur Khotimah”

Hrg = “53000”

ElseIf P = “RPL” Then

Jbk = “Rekayasa Perangkat Lunak”

Png = “Winda Erlianti”

Hrg = “83000”

End If

Txtpnr.Text = Pn

Txtjbu.Text = Jbk

Txtpeng.Text = Png

Txthrg.Text = Hrg

End Sub

Private Sub Cmdlagi_Click()

Txtkbu.SetFocus

Txtkbu.Text = “”

Txtjbu.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

Private Sub Cmdbtl_Click()

Txtkbu.SetFocus

Txtkbu.Text = “”

Txtjbu.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

Private Sub Cmdexit_Click()

Unload Me

End Sub

3.

no3 (2)

Private Sub Txtnm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnik.SetFocus

End If

End Sub

Private Sub Cmdproses_Click()

Dim Jbt, Bag, Gol, Ks, St As String

Dim Gjp, Tnj, Tgj As Currency

Txtthn.Text = Left(Txtnik.Text, 4)

Pt = Mid(Txtnik.Text, 5, 1)

If Pt = “A” Then

Gol = “A”

Jbt = “Manajer”

Gjp = “4000000”

Tnj = “1025000”

ElseIf Pt = “B” Then

Gol = “B”

Jbt = “Ka.seksi”

Gjp = “3500000”

Tnj = “975000”

ElseIf Pt = “C” Then

Gol = “C”

Jbt = “Staff”

Gjp = “3000000”

Tnj = “925000”

End If

Pt = Mid(Txtnik.Text, 7, 1)

If Pt = “S” Then

Ks = “S”

St = “Single”

ElseIf Pt = “M” Then

Ks = “M”

St = “Menikah”

ElseIf Pt = “J” Then

Ks = “J”

St = “Janda”

ElseIf Pt = “D” Then

Ks = “D”

St = “Duda”

End If

Pt = Right(Txtnik.Text, 3)

If Pt = “KEU” Then

Bag = “Accounting”

ElseIf Pt = “ADM” Then

Bag = “Administrasi”

ElseIf Pt = “SDM” Then

Bag = “General Affair”

ElseIf Pt = “EDP” Then

Bag = “IT Unit”

ElseIf Pt = “SPM” Then

Bag = “Security”

End If

Tgj = Val(Gjp) + Val(Tnj)

Txtgpk.Text = Gjp

Txtjab.Text = Jbt

Txttun.Text = Tnj

Txtstat.Text = St

Txtbag.Text = Bag

Txtgol.Text = Gol

Txtkod.Text = Ks

Txttgj.Text = Tgj

End Sub

Private Sub Cmdlagi_Click()

Txtnm.SetFocus

Txtnm = “”

Txtgol = “”

Txtkod = “”

Txtstat = “”

Txtthn = “”

Txtjab = “”

Txtbag = “”

Txtgpk = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

Private Sub Cmdbtl_Click()

Txtnm.SetFocus

Txtnm = “”

Txtgol = “”

Txtkod = “”

Txtstat = “”

Txtthn = “”

Txtjab = “”

Txtbag = “”

Txtgpk = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

Private Sub Cmdexit_Click()

Unload Me

End Sub

4.

4

Private Sub Cbokod_DblClick()

Private Sub form_load()

Cbokod.AddItem “A-SIM-01”

Cbokod.AddItem “I-EDP-02”

Cbokod.AddItem “S-MNJ-03”

Cbokod.AddItem “E-CDR-O4”

Cbokod.AddItem “M-RPL-05”

End Sub

 

Private Sub Cmdproses_Click()

Dim P As String

Txtthn.Text = “20” & Right(Cbokod.Text, 2)

P = Left(Cbokod.Text, 1)

If P = “A” Then

Pn = “Andi Offset Yogyakarta”

ElseIf P = “I” Then

Pn = “Indah Surabaya”

ElseIf P = “S” Then

Pn = “Salemba Empat”

ElseIf P = “E” Then

Pn = “Elek Media Komputindo”

ElseIf P = “M” Then

Pn = “Maxicom”

End If

P = Mid(Cbokod.Text, 3, 3)

If P = “SIM” Then

Jbk = “Sisitem Informasi Manajemen”

Png = “Yati Nur Oktavia”

Hrg = “75900”

ElseIf P = “EDP” Then

Jbk = “Elektronik Data Processing”

Png = “Imam Tarmizi”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jbk = “Manajemen”

Png = “Valentina Mariana Adiwianti”

Hrg = “42000”

ElseIf P = “CDR” Then

Jbk = “Corel draw”

Png = “Riyan Suhadi”

Hrg = “53000”

ElseIf P = “RPL” Then

Jbk = “Rekayasa Perangkat Lunak”

Png = “Sinta Umpu Singa”

Hrg = “83000”

End If

Txtpnr.Text = Pn

Txtjbu.Text = Jbk

Txtpeng.Text = Png

Txthrg.Text = Hrg

End Sub

 

Private Sub Cmdlagi_Click()

Cbokod.SetFocus

Cbokod.Text = “”

Txtjbu.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Cbokod.SetFocus

Cbokod.Text = “”

Txtjbu.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdexit_Click()

Unload Me

End Sub

 

 

Categories: Uncategorized | Tinggalkan komentar

Tugas Visual Basic Pertemuan 3

1.

a1

a2

Private Sub Cbonpm_DblClick()

Private Sub form_load()

Cbonpm.AddItem “12100209”

Cbonpm.AddItem “12101210”

Cbonpm.AddItem “12102211”

Cbonpm.AddItem “12101212”

Cbonpm.AddItem “12100213”

End Sub

Private Sub Cbonpm_Click()

Dim nama, jurusan, AsString

Select Case Cbonpm.Text

Case “12100209”

nama = “Iqbal zulkarnain”

jurusan = “Sistem Informasi”

Case “12101210”

nama = “Rindi AntikA”

jurusan = “Manajemen Informatika”

Case “12102211”

nama = “Didi Sumantri”

jurusan = “Tehnik Informatika”

Case “12101212”

nama = “Eko Mualip”

jurusan = “Manajemen Informatika”

Case “12100213”

nama = “Yustika”

jurusan = “Sisitem Informasi”

End Select

Txtnm.Text = nama

Txtjur.Text = jurusan

Txtquiz.SetFocus

End Sub

Private Sub Txttugas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtuts.SetFocus

End If

End Sub

Private Sub Txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtuas.SetFocus

End If

End Sub

Private Sub Cmdpros_Click()

Dim NilaiAkhir As Integer

Dim HurufMutu As String

quiz = Val(Txtquiz.Text)

tugas = Val(Txttugas.Text)

uts = Val(Txtuts.Text)

uas = Val(Txtuas.Text)

NilaiAkhir = (quiz + tugas + uts + uas) / 4

Txtniak.Text = NilaiAkhir

Select Case Txtniak.Text

Case Is > 80

HurufMutu = “A”

Case Is > 70

HurufMutu = “B”

Case Is > 60

HurufMutu = “C”

Case Is > 50

HurufMutu = “D”

Case Is > 40

HurufMutu = “E”

End Select

Txthrfmt.Text = HurufMutu

End Sub

Private Sub Cmdbtl_Click()

Cbonpm.SetFocus

Cbonpm = “”

Txtnm = “”

Txtjur = “”

Txtquiz = “”

Txttugas = “”

Txtuts = “”

Txtuas = “”

Txtniak = “”

Txthrfmt = “”

End Sub

Private Sub Cmdexit_Click()

End

End Sub

2.

b1

B2

Private Sub Optgreen_Click()

Lblnm.ForeColor = vbGreen

End Sub

Private Sub Optred_Click()

Lblnm.ForeColor = vbRed

End Sub

Private Sub Chkbold_Click()

Lblnm.FontBold = Chkbold.Value

End Sub

Private Sub Chkmrg_Click()

Lblnm.FontItalic = Chkmrg.Value

End Sub

Private Sub Cmdok_Click()

Lblnm.Caption = Txtnma.Text

End Sub

Private Sub CmdExit_Click()

End

End Sub

3.

C1

C2

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnp.SetFocus

End If

End Sub

Private Sub Cbogol_DblClick()

Private Sub form_load()

Cbogol.AddItem “I”

Cbogol.AddItem “II”

Cbogol.AddItem “III”

Cbogol.AddItem “IV”

End Sub

Private Sub Cbogol_Click()

Dim Gajipokok, Pajak, Tunjangan, Gajibersih As Variant

Select Case Cbogol.Text

Case “I”

Gajipokok = 1500000

Tunjangan = 400000

Case “II”

Gajipokok = 2000000

Tunjangan = 600000

Case “III”

Gajipokok = 2500000

Tunjangan = 800000

Case “IV”

Gajipokok = 3000000

Tunjangan = 1000000

Case Else

Gajipokok = 0

Tunjangan = 0

End Select

Gajibersih = Gajipokok + Tunjangan

Pajak = Gajibersih * 0.1

Txtgjpok.Text = Gajipokok

Txttun.Text = Tunjangan

Txtpjk.Text = Pajak

Txtgjtrm.Text = Gajibersih – Pajak

Private Sub Cmdlg_Click()

Txtnidn = “”

Txtnp = “”

Cbogol = “”

Txtgjpok = “”

Txttun = “”

Txtpjk = “”

Txtgjtrm = “”

End Sub

Private Sub Cmdbtl_Click()

Txtnidn = “”

Txtnp = “”

Cbogol = “”

Txtgjpok = “”

Txttun = “”

Txtpjk = “”

Txtgjtrm = “”

End Sub

Private Sub Cmdkel_Click()

Unload Me

End Sub

4.

D1

D2

Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

Private Sub Cmdpros_Click()

Dim Stdy As String

Txtthm.Text = “20” & Left(Txtnpm.Text, 2)

Stdy = Mid(Txtnpm.Text, 3, 1)

If Stdy = “1” Then

Txtjur.Text = “Sisitem Informasi”

ElseIf Stdy = “2” Then

Txtjur.Text = “Manajemen Informasi”

ElseIf Stdy = “3” Then

Txtjur.Text = “Tehnik Informatika”

ElseIf Stdy = “4” Then

Txtjur.Text = “Komputer Akuntansi”

End If

Stdy = Mid(Txtnpm.Text, 4, 2)

If Stdy = “00” Then

Txtprost.Text = “Strata Satu”

ElseIf Stdy = “01” Then

Txtprost.Text = “Diploma Dua”

ElseIf Stdy = “02” Then

Txtprost.Text = “Diploma Tiga”

ElseIf Stdy = “03” Then

Txtprost.Text = “Diploma Empat”

End If

Stdy = Right(Txtnpm.Text, 3)

Txtno.Text = Right(Txtnpm.Text, 3)

End Sub

Private Sub Cmdlgi_Click()

Txtnama.SetFocus

Txtnama = “”

Txtnpm = “”

Txtjur = “”

Txtprost = “”

Txtthm = “”

Txtno = “”

End Sub

Private Sub Cmdbtl_Click()

Txtnama.SetFocus

Txtnama = “”

Txtnpm = “”

Txtjur = “”

Txtprost = “”

Txtthm = “”

Txtno = “”

End Sub

Private Sub Cmdout_Click()

Unload Me

End Sub

Categories: Uncategorized | Tinggalkan komentar

TUGAS VISUAL BASIC NO 5

Untitled3

Private Sub Txtgjp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttnj.SetFocus

End If

End Sub

 

Private Sub Txttnj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtpot.SetFocus

End If

End Sub

 

Sub Cmdprs_Click()

Txtgjk.Text = Val(Txtgjp.Text) + Val(Txttnj.Text) – Val(Txtpot.Text)

Txtpjk.Text = Val(Txtgjk.Text) * 0.1

Txtgjb.Text = Val(Txtgjk.Text) – Val(Txtpjk.Text)

End Sub

 

Private Sub Cmdlgi_Click()

Txtgjp = “”

Txttnj = “”

Txtpot = “”

Txtgjk = “”

Txtpjk = “”

Txtgjb = “”

End Sub

 

Private Sub Cmdout_Click()

End

End Sub

Categories: Uncategorized | Tinggalkan komentar

TUGAS VISUAL BASIC NO 4

Untitled5

Private Sub Cmdhtg_Click()

Txtdskn.Text = Val(Txthrg.Text) * 0.2

Txtbyr.Text = Val(Txthrg.Text) – Val(Txtdskn.Text)

End Sub

 

Private Sub Cmdagain_Click()

Txthrg = “”

Txtdskn = “”

Txtbyr = “”

End Sub

 

Private Sub Cmdout_Click()

End

End Sub

 

Categories: Uncategorized | Tinggalkan komentar

TUGAS VISUAL BASIC NO 2

Untitled7

Private Sub Txtnl1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnl2.SetFocus

End If

End Sub

 

Private Sub Cmdbg_Click()

Txtttl.Text = Val(Txtnl1.Text) / Val(Txtnl2)

End Sub

 

Private Sub Cmdkl_Click()

Txtttl.Text = Val(Txtnl1.Text) * Val(Txtnl2)

End Sub

 

Private Sub Cmdkrg_Click()

Txtttl.Text = Val(Txtnl1.Text) – Val(Txtnl2)

End Sub

 

Private Sub Cmdtmbh_Click()

Txtttl.Text = Val(Txtnl1.Text) + Val(Txtnl2)

End Sub

 

Private Sub Cmdlgi_Click()

Txtnl1 = “”

Txtnl2 = “”

Txtttl = “”

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

Categories: Uncategorized | Tinggalkan komentar

TUGAS VISUAL BASIC NO 3

Untitled3

Private Sub optblue_Click()

Lbljudul.ForeColor = vbBlue

End Sub

 

Private Sub Optgreen_Click()

Lbljudul.ForeColor = vbGreen

End Sub

 

Private Sub optred_Click()

Lbljudul.ForeColor = vbRed

End Sub

 

Private Sub Optyellow_Click()

Lbljudul.ForeColor = vbYellow

End Sub

 

Private Sub Chkbold_Click()

If Chkbold.Value = 1 Then

Lbljudul.FontBold = True

Else

Lbljudul.FontBold = False

End If

End Sub

Private Sub Chkitalic_Click()

If Chkitalic.Value = 1 Then

Lbljudul.FontItalic = True

Else

Lbljudul.FontItalic = False

End If

End Sub

 

Private Sub Chkstrik_Click()

If Chkstrik.Value = 1 Then

Lbljudul.FontStrikethru = True

Else

Lbljudul.FontStrikethru = False

End If

End Sub

 

Private Sub Chkunder_Click()

If Chkunder.Value = 1 Then

Lbljudul.FontUnderline = True

Else

Lbljudul.FontUnderline = False

End If

End Sub

 

Private Sub Cmdexit_Click()

End

End Sub

Categories: Uncategorized | Tinggalkan komentar

TUGAS VISUAL BASIC NO1

Untitled1

Private Sub txtang1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtang2.SetFocus

End If

End Sub

 

Private Sub txtang2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtang3.SetFocus

End If

End Sub

 

Private Sub Txtang3_KeyPress(KeyAscii As Integer)

Txtang3.Text = Val(txtang1.Text) * Val(txtang2.Text)

End Sub

 

Private Sub Cmdhtg_Click()

Txtang3.Text = Val(txtang1.Text) * Val(txtang2.Text)

End Sub

 

Private Sub Cmddel_Click()

txtang1 = “”

txtang2 = “”

Txtang3 = “”

End Sub

 

Private Sub CmdOut_Click()

End

End Sub

Categories: Uncategorized | Tinggalkan komentar

Korban Serangan Zat Asam Jadi Jutawan Televisi

392afp_acidattack

Saat Sonali Mukherjee menolak godaan dari tiga rekan pelajar, mereka membalas dengan menyiramkan zat asam ke mukanya.

Sonali tak mau menyembunyikan diri. Perempuan berusia 27 tahun ini kemudian muncul di acara kuis televisi paling terkenal di India–dan menjadi jutawan.

“Jika kamu bisa melihat foto perempuan cantik, maka kamu seharusnya juga bisa melihat wajahku yang terbakar,” kata Mukherjee pada AFP di rumahnya yang kecil di ibu kota India, New Delhi.

“Sangat mudah bagi korban serangan asam untuk menelan racun, tapi saya memilih untuk berdiri dan berteriak melawan kekerasan.”

Pemerkosaan yang baru-baru ini terjadi di sebuah bus di New Delhi — dan memicu protes di India — menyoroti lagi tingkat kekerasan terhadap perempuan di India, di mana pelecehan seksual hanya dianggap sebagai godaan biasa.

Angka kriminalitas nasional mencatat bahwa dari 256 ribu kasus yang terjadi, 228 ribu terjadi pada perempuan.

Sembilan tahun lalu, Mukherjee adalah mahasiswi menjanjikan di sebuah kampus di timur kota Dhanbad saat tiga pelajar lain masuk ke rumahnya saat ia sedang tidur dan menyiramkan asam ke mukanya karena menolak mereka.

Mereka menggunakan cairan bernama “Tezaab”, yang biasanya digunakan untuk membersihkan besi berkarat. Akibatnya, kelopak mata, hidung, dan telinga Mukherjee pun terbakar.

Setelah 22 prosedur operasi, Mukherjee tetap tak bisa melihat dan masih setengah tuli. Sampai sekarang, tak ada satupun pelaku yang dituntut.

Ketiga pelaku pernah ditangkap, dan dipenjara, tapi kemudian bebas setelah membayar jaminan dan kasusnya pun tenggelam dalam sistem kehakiman India yang sangat lambat.

“Mereka tak bisa menerima penolakan dari saya, maka mereka pun memutuskan untuk mengambil wajah saya dan mencuri hidup saya,” ujar dia sambil mencari air untuk minum obat yang diberikan oleh ayahnya.

Pemerintah India tak punya data resmi penyerangan menggunakan zat asam.

Menurut lembaga amal London, Acid Survivors Trust International, sekitar 1500 serangan zat asam terjadi di seluruh dunia setiap tahunnya. Tapi masih lebih banyak korban yang memilih untuk tidak melapor ke aparat dan menderita dalam diam.

Menurut Mukherjee, berbagai upaya tak berhasil memunculkan dukungan finansial atau hukum dari negara. Bahkan keluarganya harus menjual rumah dua lantai mereka, lahan pertanian, emas, dan ternak untuk membayar biaya kesehatan.

Dalam sebuah surat kepada pemerintah, Mukherjee bilang ia memilih untuk bunuh diri — ilegal di India — daripada terus-terusan hidup dalam kesakitan.

Namun, saat ia sedih karena berupaya membayar pengobatannya, Mukherjee mencoba ikut dalam “Kaun Banega Crorepati”, versi India dari kuis “Who Wants to be a Millionaire” yang juga muncul dalam film “Slumdog Millionaire”.

Setelah terpilih sebagai peserta, Mukherjee memenangkan 2,5 juta rupee atau Rp436 juta bulan lalu karena berhasil menjawab 10 pertanyaan.

Uang itu akan digunakan untuk membiayai operasi plastik tahun depan. Mukherjee masih menyimpan fotonya saat masih remaja.

Kata Mukherjee, permintaan bantuan tak menghasilkan dukungan namun luka wajahnya memiliki dampak mendalam. “Saat semuanya gagal, saya memutuskan untuk menggunakan wajah saya.”

Kemenangan yang diraih Mukherjee memang membantu, tapi masih banyak biaya kesehatan yang harus ia bayar. “Saya mendapat uang, tapi saya masih butuh banyak lagi untuk pengobatan saya,” ujar dia.

Kegigihannya untuk tidak terus menjadi korban menginspirasi pemirsa, penonton di studio pun menangis saat ia memenangkan kontes tersebut.

Pembawa acara kuis, legenda Bollywood Amitabh Bachchan, menyebut dia “arti keberanian” karena “terus berjuang melawan segalanya”.

“Kadang kita berpikir bahwa hidup kita sengsara, semuanya tak mendukung kita dan kemudian kita bertemu orang seperti Sonali, kita lalu sadar betapa beruntungnya kita dan betapa banyaknya hal yang kita miliki,” ujar dia dalam acara tersebut.

Mukherjee ingin menggunakan kasusnya untuk berkampanye bagi sesama korban serangan asam lainnya untuk mendorong undang-undang terhadap serangan serupa. Saat ini undang-undang untuk kejahatan ini berada di bawah UU KDRT dengan hukuman yang relatif ringan.

Pada 2001, negara tetangga Pakistan mengadopsi undang-undang yang memperberat hukuman antara 14 tahun sampai seumur hidup untuk serangan zat asam dan denda minimum satu juta rupee Pakistan atau Rp 98,6 juta.

“Para pria yang menyiramkan zat asam ke muka saya bebas berkeliaran, tapi jika ada hukuman yang lebih keras maka mereka akan berada di balik terali penjara,” kata Mukherjee.

Pengacara India Aparna Bhatt yang juga mewakili korban serangan asam sampai ke Mahkamah Agung sudah menyebar petisi publik untuk meminta perawatan medis gratis buat para korban serangan ini dan mengatur penjualan zat asam.

“India butuh hukum baru untuk mendefinisikan kejahatan zat asam dalam cara yang lebih komprehensif. Seharusnya ada perawatan medis gratis dan rehabilitasi untuk para korba,” kata Bhatt. “Asam adalah senjata berbahaya.

Categories: Uncategorized | Tinggalkan komentar

Soal Pato, Milan dan Corinthians Capai Kesepakatan

p

Kabar mengejutkan datang dari AC Milan. Seperti dilansir La Gazzetta dello Sport , Wakil Presiden Milan, Adriano Galliani sudah mencapai kesepakatan dengan Corinthians perihal transfer Alexandre Pato.

Setelah berpetualang selama lima tahun di Italia, Pato memang mulai menemui kendala untuk bertahan lebih lama di San Siro. Dia bersama Robinho sudah mengisyaratkan bakal hengkang dari Milan pada Januari 2013.

Galliani sendiri sudah terbang ke Brasil guna menjajak negosiasi transfer Robinho dan Pato dengan beberapa klub lokal. Dan kabar terbaru menyebutkan, Milan dan Corinthians sudah sepakat dengan nilai transfer Pato sebesar 15 juta euro.

Jika kesepakatan benar-benar tercapai, Pato bakal menjadi rekrutan kedua Corinthians sejak menjadi juara Piala Dunia Antarklub, setelah Renato Augusto dari Bayer Leverkusen.

Selain menyelesaikan transfer Pato, Galliani juga bakal mengupayakan mencari klub baru untuk Robinho. Setelah Flamengo mengundurkan diri, kini peluang besar dimiliki Santos, Fluminense dan Sao Paulo.

Categories: Uncategorized | Tinggalkan komentar

Blog di WordPress.com.

%d blogger menyukai ini: