TUGAS VISUAL BASIC 5

Private Sub CmdBaru_Click()
Data1.Recordset.AddNew
TxtNama.SetFocus
End Sub
Private Sub CmdHapus_Click()
Data1.Recordset.Delete
End Sub

Private Sub CmdKeluar_Click()
Unload Me
End Sub

Private Sub CmdProses_Click()
Dim S As String
TxtTm.Text = “20” & Left(TxtNpm.Text, 2)
S = Mid(TxtNpm.Text, 3, 1)
If S = “1” Then
JUR = “Tehnik Komputer”
ElseIf S = “2” Then
JUR = “Manajemen Informatika”
ElseIf S = “3” Then
JUR = “Tehnik Informatika”
ElseIf S = “4” Then
JUR = “Manajemen & Komp. Akuntansi”
End If
TxtJur.Text = JUR
S = Mid(TxtNpm.Text, 4, 2)
If S = “00” Then
PS = “Strata Satu”
ElseIf S = “01” Then
PS = “Diploma Tiga”
ElseIf S = “02” Then
PS = “Diploma Empat”
ElseIf S = “03” Then
PS = “Diploma Dua”
End If
TxtPs.Text = PS
TxtNu.Text = Right(TxtNpm.Text, 3)
End Sub

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

TUGAS VB 4

1.

Private Sub Cmdpros_Click()

Dim T As String

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

T = Left(Txtkdbuk.Text, 1)

If T = “A” Then

Pnb = “Andi Offset Yogyakarta”

ElseIf T = “I” Then

Pnb = “Indah Surabaya”

ElseIf T = “S” Then

Pnb = “Salemba Empat”

ElseIf T = “E” Then

Pnb = “Elek Media Komputindo”

ElseIf T = “M” Then

Pnb = “Maxicom”

End If

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

If P = “SIM” Then

Jdlb = “Sisitem Informasi Manajemen”

Peng = “Andra Setiawan”

Hrg = “75900”

ElseIf P = “EDP” Then

Jdlb = “Elektronik Data Processing”

Peng = “Desi Istiqomah”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jdlb = “Manajemen”

Peng = “Sandy Fitrajaya”

Hrg = “42000”

ElseIf P = “CDR” Then

Jdlb = “Corel draw”

Peng = “Tri Indah Sari”

Hrg = “53000”

ElseIf P = “RPL” Then

Jdlb = “Rekayasa Perangkat Lunak”

Peng = “Ernita”

Hrg = “83000”

End If

Txtpnrb.Text = Pnb

Txtjdbk.Text = Jdlb

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub.

 

Private Sub Cmdlagi_Click()

Txtkdbuk.SetFocus

Txtkdbuk.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnrb.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkdbuk.SetFocus

Txtkdbuk.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnrb.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdout_Click()

End

End Sub

2.

Private Sub Cmdpros_Click()

Dim T As String

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

T = Right(Txtkdbuk.Text, 1)

If T = “A” Then

Pnb = “Andi Offset Yogyakarta”

ElseIf T = “I” Then

Pnb = “Indah Surabaya”

ElseIf T = “S” Then

Pnb = “Salemba Empat”

ElseIf T = “E” Then

Pnb = “Elek Media Komputindo”

ElseIf T = “M” Then

Pnb = “Maxicom”

End If

P = Left(Txtkdbuk.Text, 3)

If P = “SIM” Then

Jdlbk = “Sisitem Informasi Manajemen”

Peng = “Fadiya Ulfa”

Hrg = “75900”

ElseIf P = “EDP” Then

Jdlbk = “Elektronik Data Processing”

Peng = “Nurul Agustina”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jdlbk = “Manajemen”

Peng = “Rian Hidayat”

Hrg = “42000”

ElseIf P = “CDR” Then

Jdlbk = “Corel draw”

Peng = “Siti Nur Khotimah”

Hrg = “53000”

ElseIf P = “RPL” Then

Jdlbk = “Rekayasa Perangkat Lunak”

Peng = “Winda Erlianti”

Hrg = “83000”

End If

Txtpnrb.Text = Pnb

Txtjdb.Text = Jdlbk

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub

 

Private Sub Cmdlagi_Click()

Txtkbuk.SetFocus

Txtkbuk.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnrb.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkbuk.SetFocus

Txtkbuk.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnrb.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

3.

Private Sub Txtnm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnik.SetFocus

End If

End Sub

 

Private Sub Cmdprs_Click()

Dim Jb, Bg, Gl, Ks, St As String

Dim Gp, Tj, Tgj As Currency

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

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

If G = “A” Then

Gl = “A”

Jb = “Manajer”

Gp = “4000000”

Tj = “1025000”

ElseIf G = “B” Then

Gl = “B”

Jb = “Ka.seksi”

Gp = “3500000”

Tj = “975000”

ElseIf G = “C” Then

Gl = “C”

Jb = “Staff”

Gp = “3000000”

Tj = “925000”

End If

 

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

If K = “S” Then

Ks = “S”

St = “Single”

ElseIf K = “M” Then

Ks = “M”

St = “Menikah”

ElseIf K = “J” Then

Ks = “J”

St = “Janda”

ElseIf K = “D” Then

Ks = “D”

St = “Duda”

End If

 

B = Right(Txtnik.Text, 3)

If B = “KEU” Then

Bg = “Accounting”

ElseIf B = “ADM” Then

Bg = “Administrasi”

ElseIf B = “SDM” Then

Bg = “General Affair”

ElseIf B = “EDP” Then

Bg = “IT Unit”

ElseIf B = “SPM” Then

Bg = “Security”

End If

Tgj = Val(Gp) + Val(Tj)

Txtgjpk.Text = Gp

Txtjbtn.Text = Jb

Txttun.Text = Tj

Txtsta.Text = St

Txtbag.Text = Bg

Txtgol.Text = Gl

Txtkds.Text = Ks

Txttgj.Text = Tgj

End Sub

 

Private Sub Cmdlagi_Click()

Txtnm.SetFocus

Txtnm = “”

Txtgol = “”

Txtkds = “”

Txtsta = “”

Txtthn = “”

Txtjbtn = “”

Txtbag = “”

Txtgjpk = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnm.SetFocus

Txtnm = “”

Txtgol = “”

Txtkds = “”

Txtsta = “”

Txtthn = “”

Txtjbtn = “”

Txtbag = “”

Txtgjpk = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

4.

Private Sub Cmdpros_Click()

Dim S As String

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

S = Left(Txtkdbuk.Text, 1)

If S = “A” Then

Pbt = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

Pbt = “Indah Surabaya”

ElseIf S = “S” Then

Pbt = “Salemba Empat”

ElseIf S = “E” Then

Pbt = “Elek Media Komputindo”

ElseIf S = “M” Then

Pnb = “Maxicom”

End If

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

If P = “SIM” Then

Jdlbk = “Sisitem Informasi Manajemen”

Peng = “Yati Nur Oktavia”

Hrg = “75900”

ElseIf P = “EDP” Then

Jdlbk = “Elektronik Data Processing”

Peng = “Imam Tarmizi”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jdlbk = “Manajemen”

Peng = “Valentina Mariana Adiwianti”

Hrg = “42000”

ElseIf P = “CDR” Then

Jdlbk = “Corel draw”

Peng = “Riyan Suhadi”

Hrg = “53000”

ElseIf P = “RPL” Then

Jdlbk = “Rekayasa Perangkat Lunak”

Peng = “Sinta Umpu Singa”

Hrg = “83000”

End If

Txtpnrb.Text = Pbt

Txtjdbk.Text = Jdlbk

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub

 

Private Sub Cmdlgi_Click()

Txtkdbuk.SetFocus

Txtkdbuk.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnrb.Text = “”

Txthrg.Text = “”

End Sub

Private Sub Cmdbtl_Click()

Txtkdbuk.SetFocus

Txtkdbuk.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnrb.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

 

Tugas Visual Basic

1.

Private Sub Cmdhitung_Click()

Txtdskn.Text = Val(Txtnil1.Text) * 0.1

Txtnil2.Text = Val(Txtnil1.Text) – Val(Txtdskn.Text)

End Sub

 

Private Sub Cmdlagi_Click()

Txtnil1 = “”

Txtdskn = “”

Txtnil2 = “”

End Sub

 

Private Sub Cmdklwr_Click()

End

End Sub

2.

Private Sub Txtak1_Change()

If KeyAscii = 13 Then

Txtak2.SetFocus

End If

End Sub

 

Private Sub Cmdbagi_Click()

Txtjml.Text = Val(Txtak1.Text) / Val(Txtak2)

End Sub

 

Private Sub Cmdkali_Click()

Txtjml.Text = Val(Txtak1.Text) * Val(Txtak2)

End Sub

 

 

Private Sub Cmdtmbh_Click()

Txtjml.Text = Val(Txtak1.Text) + Val(Txtak2.Text)

End Sub

 

Private Sub Cmdmin_Click()

Txtjml.Text = Val(Txtak1.Text) – Val(Txtak2.Text)

End Sub

 

Private Sub Cmdlagi_Click()

Txtak1 = “”

Txtak2 = “”

Txtjml = “”

End Sub

 

Private Sub Cmdklwr_Click()

End

End Sub

3.

Private Sub txtb1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtb2.SetFocus

End If

End Sub

 

Private Sub txtb2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtb3.SetFocus

End If

End Sub

 

Private Sub Txtb3_KeyPress(KeyAscii As Integer)

Txtb3.Text = Val(txtb1.Text) * Val(txtb2.Text)

End Sub

 

Private Sub Cmdhit_Click()

Txtb3.Text = Val(txtb1.Text) * Val(txtb2.Text)

End Sub

 

Private Sub Cmdbrsh_Click()

Txtb1 = “”

Txtb2 = “”

Txtb3 = ”

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

4.

Private Sub opthj_Click()

Lbltm.ForeColor = vbGreen

End Sub

 

Private Sub optbr_Click()

Lbltm.ForeColor = vbBlue

End Sub

 

Private Sub optmrh_Click()

Lbltm.ForeColor = vbRed

End Sub

 

Private Sub Optkng_Click()

Lbltm.ForeColor = vbYellow

End Sub

 

 

Private Sub Chkita_Click()

If Chkita.Value = 1 Then

Lbltm.FontItalic = True

Else

Lbltm.FontItalic = False

End If

End Sub

 

Private Sub Chkbl_Click()

If Chkbl.Value = 1 Then

Lbltm.FontBold = True

Else

Lbltm.FontBold = False

End If

End Sub

 

Private Sub Chkund_Click()

If Chkund.Value = 1 Then

Lbltm.FontUnderline = True

Else

Lbltm.FontUnderline = False

End If

End Sub

 

Private Sub Chkstr_Click()

If Chkstr.Value = 1 Then

Lbltm.FontStrikethru = True

Else

Lbltm.FontStrikethru = False

End If

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

5.

Private Sub Txtgpk_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttjg.SetFocus

End If

End Sub

 

Private Sub Txttjg_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtpot.SetFocus

End If

End Sub

 

 

Private Sub Cmdpros_Click()

Txtgjkt.Text = Val(Txtgpk.Text) + Val(Txttjg.Text) – Val(Txtpot.Text)

Txtpjak.Text = Val(Txtgjkt.Text) * 0.1

Txtgjbr.Text = Val(Txtgjkt.Text) – Val(Txtpjak.Text)

End Sub

 

Private Sub Cmdlg_Click()

Txtgpk = “”

Txttjg = “”

Txtpot = “”

Txtgjkt = “”

Txtpjak = “”

Txtgjbr= “”

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

Jokowi Dituntut Minta Maaf atas Kematian RI

TEMPO.CO, Jakarta – Komisi Perlindungan Anak Indonesia menuding Gubernur DKI Jakarta Joko Widodo bersalah dalam kasus meninggalnya RI, 11 tahun, siswi SDN 22 Pulo Gebang, Jakarta Timur, yang diduga korban perkosaan. “Gubernur harus sampaikan maaf dan kunjungi keluarga korban,” ujar Ketua Satgas Perlindungan Anak KPAI, M Ihsan, Ahad, 6 Januari 2013.

Alasannya, Jokowi dianggap membiarkan lambannya penanganan kesehatan dan ketidakmampuan pelayanan kesehatan dari tingkat puskesmas yang mendeteksi masalah medis RI sejak dini. “Inilah yang berujung maut,” ujar Ihsan.

Menurut Ihsan, RI sudah mengeluh sakit sejak tiga bulan lalu. “Keluhannya sakit kelenjar getah bening, tapi tak kunjung sembuh,” ujarnya. Keluarga tak berani untuk membawa RI ke tenaga medis yang lebih ahli dengan alasan ekonomi. Namun di sisi lain, pelayanan kesehatan di tingkat puskesmas tak memadai.

“Ini membuktikan bahwa puskesmas tidak mampu memberikan pelayanan yang optimal,” ujarnya. Setelah RI tak sadarkan diri, barulah keluarga berani membawa RI ke RS Persahabatan. Ia sempat divonis berbagai macam penyakit seperti sakit lambung dan thypus.

Saat dirawat di RS Persahabatan, keluarga menemukan fakta bahwa ada dugaan terjadi kekerasan seksual pada RI. “Ada pembengkakan di kelamin yang terinfeksi serta mengeluarkan belatung,” ujarnya.

Akhirnya, setelah berjuang melawan penyakitnya selama satu minggu, RI meninggal dunia tadi pagi di RS Persahabatan. Sekarang jenazahnya tengah diotopsi di RS Cipto Mangunkusumo. Atas dugaan kekerasan seksual itu, Ihsan meminta agar kasus ini diusut tuntas.

Rasyid Rajasa Tak Sadarkan Diri Selama 10 Menit

Laporan Wartawan Tribunnews.com, Theresia Felisiani

TRIBUNNEWS.COM, JAKARTA – Kuasa hukum Rasyid, Riri Purbasari Dewi, mengatakan, selama kurang lebih lima jam diperiksa penyidik di Subdit Gakum Ditlantas Polda Metro, Senin (7/1/2013), Rasyid sempat tak sadarkan diri selama 10 menit.

“Rasyid mengeluh pusing, mual, dan sempat tidak sadarkan diri selama kurang lebih 10 menit,” ungkap Riri.

Riri juga mengatakan, saat dilarikan ke ambulans dan dibawa ke RS Polri, seperti rujukan dari kepolisian, Rasyid sempat dibopong dan kesulitan mendapat oksigen.

“Tolong ya, jangan dikerubuti. Nanti kasian, dia kesulitan dapat oksigen,” kata Riri.

Riri menambahkan, meski rekam medik Rasyid ada di RS Pertamina, namun kepolisian merujuk ke RS Polri. Dan pihak Rasyid menurutinya.

Nissan Indonesia Siap Bikin Mesin 1.200 cc Livina

OTOSIA.COM – PT Nissan Motor Indonesia rupanya tidak hanya menyiapkan produksi dalam hal perakitan di pabriknya yang terletak di Cikampek, Jawa Barat. Mereka dalam keterangan selepas peluncuran New Serena menyebut juga akan memproduksi mesin.

“Pertengahan tahun ini, kami akan memproduksi mesin di pabrik kami,” ungkap Takayuki Kimura, Regional Vice President Nissan Motor Co, Ltd di Ciputra Marketing Gallery, Jakarta.

Sebanyak dua mesin yang akan dibangun yakni berkapasitas 1.200 dan 1.600 cc. Dua mesin itu sendiri akan digunakan pada MPV Evalia dan Livina. Mesin itu akan dibangun di pabrik yang memiliki kapasitas 180.000 unit per tahun.

Livina sendiri hingga kini masih menjadi mobil terlaris buat Nissan Indonesia. Berdasarkan data penjualan hingga November dari Gaikindo, Livina masuk dalam daftar mobil-mobil terlaris dalam setahun belakangan.

Tak perlu lagi menyangsikan Toyota dan Daihatsu lewat produk-produk mini-MPV-nya. Namun yang menarik, Nissan Grand Livina terdata lebih laris dari Suzuki Ertiga yang disebut-sebut mulai menggoyang penjualan mini-MPV grup Astra tersebut.

Penjualan Nissan Grand Livina sendiri digabung untuk model mesin 1,5 liter dan 1,8 liter dengan raihan total selama setahun sebanyak 27.621 unit.

(kpl/why/bun)

Jalan panjang Jokowi di pemilihan wali kota terbaik sejagat

MERDEKA.COM, Akhirnya situs worldmayor.com mengumumkan 10 nama wali kota terbaik sejagat, Selasa (8/1), dan secara mengejutkan Joko Widodo keluar menjadi pemenang ketiga.

Prestasi ini tidak main-main. Lelaki akrab dipanggil Jokowi awalnya bersaing ketat dengan 77 kandidat, termasuk Wali Kota Tel Aviv, Israel, Ron Huldai. Setelah menjalani tes kelayakan juga kesaksian dari warga masing-masing kota, nama jokowi pun masuk menjadi finalis.

Sebelum berada di posisi finalis, Jokowi menyisihkan dua nama lain dari Indonesia yakni Wali Kota Surabaya Tri Rismaharani dan Gubernur Sulawesi Selatan Syahrul Yasin Limpo. Namun keduanya kalah tenar dari sepak terjang Jokowi saat membangun Surakarta. Di tangan dia, kota itu memang berubah lebih baik, terutama kepiawaiannya mengorganisir pedagang kaki lima agar lebih tertib.

Dalam memimpin, Jokowi melakukan pendekatan pribadi dengan mendatangi warga. Banyak orang menudingnya pencitraan tapi langkah ini paling berhasil sebab penduduk jadi lebih mengenal pemimpinnya. Media internasional seperti majalah Time hingga surat kabar New York Post bahkan sering mengulas sepak terjang lelaki berperawakan kecil ini hingga namanya cukup akrab di mata dunia. Pencalonannya menjadi wali kota terbaik sejagat dibanjiri testimoni memuji cara Jokowi mengatur kotanya.

Banyak pihak mengaku kesengsem pada Jokowi. Menurut beberapa komentar masuk di situs itu, lelaki kini menjabat gubernur Ibu Kota Jakarta, Indonesia, merupakan pemimpin generasi baru yang lepas dari dosa masa lalu seperti korupsi, kolusi, dan nepotisme.

Meski tak berada di peringkat pertama, nama Indonesia kembali harum dengan terpilihnya Jokowi di peringkat ketiga pemilihan bergengsi ini.

The City Mayors Foundation mengadakan pemilihan ini merupakan organisasi nirlaba yang didirikan pada 2003 untuk mempromosikan, mendorong, dan memfasilitasi pemerintahan lokal terbuka dan kuat. Dimulai pada 2004, organisasi ini meluncurkan penghargaan World Mayor Prize.

Sumber: Merdeka.com

17 Pasangan kumpul kebo, mesum di lokalisasi Kermil

MERDEKA.COM, Polisi mengamankan 17 pasangan mesum di lokalisasi Bangunsari, Surabaya, Jawa Timur. Padahal, tempat yang dikenal dengan kawasan prostitusi Kermil itu sejak lama ditutup pemerintah setempat karena sering dijadikan lokasi ‘kumpul kebo.’

Menurut Kasubbag Humas Polres Pelabuhan Tanjung Perak Surabaya, AKP Lily Djafar, razia itu dilakukan dini hari tadi. “Mereka kami amankan dari dua losmen yang ada di kawasan Bangunsari yakni Losmen Lestari dan Srikandi,” ungkap Lily kepada wartawan, Selasa (8/1) siang.

Lily menambahkan, meskipun kawasan lokalisasi itu telah ditutup, pihaknya terus melakukan pengawasan di daerah itu. Dan sejauh ini hasilnya cukup menggembirakan.

“Sejak diberlakukan peraturan dari Pemerintah Kota Surabaya yang menyatakan tempat ini, sudah tidak ada praktik prostitusi dalam bentuk apapun, maka kami berkewajiban untuk terus mengawasi lokalisasi Bangunsari ini,” tegas Lily.

Lily menambahkan, berdasarkan laporan warga setempat, praktik prostitusi di Bangunsari kini tidak dilakukan di wisma. Melainkan di beberapa losmen.

“Hasilnya memang banyak pasangan mesum yang menginap di losmen-losmen tersebut,” ujarnya.

Meski terjaring razia, 17 pasangan ini hanya dikenakan sanksi Tipiring (tindak pidana ringan). Mereka tidak ditahan, hanya dilakukan pendataan saja.

Sejak seminggu dilakukan razia, tercatat ada 55 pasangan mesum yang terjaring. “Ini sebagai tindak lanjut pasca lokalisasi tersebut tutup pemerintah setempat,” jelas Lily.

Sumber: Merdeka.com

Ahmad Dhani Pamer Anak, Ini Komentar Maia

TRIBUNNEWS.COM-JAKARTA – Maia Estianty tampak sumringah setelah tahu mantan suaminya, musisi Ahmad Dhani mulai berani pamerkan anak perempuan yang diduga putrinya, saat tampil dalam acara X Factor, pada Jumat pekan lalu.

Wanita kelahiran Surabaya, 27 Januari 1976 tersebut, salut terhadap keberanian mantan suaminya. Bahkan, dia menyebut perbuatan sebagai tindakan yang gentle.

“Baguslah, Alhamdulilah. Harusnya dari dulu dong gentle. Padahal mereka menikah, kecuali kalau mereka berzina, maksiat, kan malu,” ucap Maia, Senin, (7/1/2013), saat ditemui di sela-sela syuting video klip “Rindu Kamu, di Villa Delima, Jalan Raya Karang Tengah, Lebak Bulus, Jakarta Selatan.

Pentolan Duo Maia itu memang sudah mengetahui mantan suaminya dan Mulan Jameela telah menikah dan memiliki anak. Seharusnya, lanjut Maia, tidak perlu lagi malu lagi untuk menunjukkannya supaya menghindari fitnah.

“Kalau menikah, jangan anaknya saja dipamerkan, tapi istrinya juga. Kalau saya sih tahu mereka menikah dan punya anak. Saya sih berbahagia pada akhirnya mantan saya menunjukkan anaknya,” tukasnya.

Satu Tewas Saat Kereta Bawah China Anjlok

Beijing (AFP/ANTARA) – Sebuah kereta bawah tanah anjlok pada Selasa dalam sebuah uji coba jalur baru di barat daya China, menewaskan satu masinis dan melukai lainnya, seperti dilaporkan media pemerintah.

 

Gerbong pertama kereta itu anjlok keluar jalur di kota Kunming di provinsi Yunnan pada 0109 GMT, tutur China News Service. Tidak ada penumpang yang naik kereta tersebut.

 

Satu masinis tertimpa peralatan panas yang jatuh di kabin masinis dan tewas, sedang lainnya terluka ringan dan dibawa ke rumah sakit, ujar laporan itu, mengutip operator kereta bawah tanah, Kunming Rail Transit Co milik negara.

 

Pemerintah kota sedang menyelidiki penyebab kecelakaan itu, tambahnya.

 

Otoritas China sudah lama dituduh mengabaikan keselamatan dengan mempercepat pengembangan jalur transportasi yang luas tersebut.

 

Dua kereta bawah tanah di Shanghai bertabrakan pada September 2011, melukai 284 orang, beberapa bulan setelah sebuah tabrakan kereta berkecepatan tinggi di timur kota Wenzhou menewaskan sedikitnya 40 orang dalam kecelakaan terburuk di China sejak 2008.(ac/ik)