VB #Data Base#

herni

Private Sub Txtnama_keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

 

Private Sub Cmdpros_Click()

Dim M As String

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

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

If J = “1” Then

Jur = “Sistem Informasi”

ElseIf J = “2” Then

Jur = “Manajemen Informatika”

ElseIf J = “3” Then

Jur = “Tehnik Informatika”

ElseIf J = “4” Then

Jur = “Manajemen & Komp.Akuntansi”

End If

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

If S = “01” Then

Prost = “Strata Satu”

ElseIf S = “02” Then

Prost = “Diploma Empat”

ElseIf S = “03” Then

Prost = “Diploma Tiga”

ElseIf S = “04” Then

Prost = “Diploma Dua”

End If

No = Right(Txtnpm.Text, 3)

Txtjur.Text = Jur

Txtprost.Text = Prost

Txtno.Text = No

End Sub

 

Private Sub Cmdsave_Click()

Data1.Recordset.Update

End Sub

 

Private Sub Cmdcancel_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub Cmdexit_Click()

Unload Me

End Sub

 

Private Sub Cmdnew_Click()

Data1.Recordset.AddNew

Txtnpm.SetFocus

End Sub

Advertisements

Tugas VB #4#

1.

Her1

Private Sub Cmdpros_Click()

Dim T As String

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

T = Left(Txtkdbu.Text, 1)

If T = “A” Then

Pnr = “Andi Offset Yogyakarta”

ElseIf T = “I” Then

Pnr = “Indah Surabaya”

ElseIf T = “S” Then

Pnr = “Salemba Empat”

ElseIf T = “E” Then

Pnr = “Elek Media Komputindo”

ElseIf T = “M” Then

Pnr = “Maxicom”

End If

T = Mid(Txtkdbu.Text, 3, 3)

If T = “SIM” Then

Jdb = “Sisitem Informasi Manajemen”

Peng = “Andra Setiawan”

Hrg = “75900”

ElseIf T = “EDP” Then

Jdb = “Elektronik Data Processing”

Peng = “Desi Istiqomah”

Hrg = “62000”

ElseIf T = “MNJ” Then

Jdb = “Manajemen”

Peng = “Sandy Fitrajaya”

Hrg = “42000”

ElseIf T = “CDR” Then

Jdb = “Corel draw”

Peng = “Tri Indah Sari”

Hrg = “53000”

ElseIf T = “RPL” Then

Jdb = “Rekayasa Perangkat Lunak”

Peng = “Ernita”

Hrg = “83000”

End If

Txtpnr.Text = Pnr

Txtjdb.Text = Jdb

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub.

 

Private Sub Cmdlg_Click()

Txtkdbu.SetFocus

Txtkdbu.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkdbu.SetFocus

Txtkdbu.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

2.

Her2

Private Sub Cmdpros_Click()

Dim T As String

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

T = Right(Txtkdbu.Text, 1)

If T = “A” Then

Pnr = “Andi Offset Yogyakarta”

ElseIf T = “I” Then

Pnr = “Indah Surabaya”

ElseIf T = “S” Then

Pnr = “Salemba Empat”

ElseIf T = “E” Then

Pnr = “Elek Media Komputindo”

ElseIf T = “M” Then

Pnr = “Maxicom”

End If

T= Left(Txtkdbu.Text, 3)

If T = “SIM” Then

Jdb = “Sisitem Informasi Manajemen”

Peng = “Fadiya Ulfa”

Hrg = “75900”

ElseIf T = “EDP” Then

Jdb = “Elektronik Data Processing”

Peng = “Nurul Agustina”

Hrg = “62000”

ElseIf T = “MNJ” Then

Jdb = “Manajemen”

Peng = “Rian Hidayat”

Hrg = “42000”

ElseIf T = “CDR” Then

Jdb = “Corel draw”

Peng = “Siti Nur Khotimah”

Hrg = “53000”

ElseIf T = “RPL” Then

Jdb = “Rekayasa Perangkat Lunak”

Peng = “Winda Erlianti”

Hrg = “83000”

End If

Txtpnr.Text = Pnr

Txtjdb.Text = Jdb

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub

 

Private Sub Cmdlg_Click()

Txtkdbu.SetFocus

Txtkdbu.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkdbu.SetFocus

Txtkdbu.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

3.

Her3

Private Sub Txtnm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnik.SetFocus

End If

End Sub

 

Private Sub Cmdpros_Click()

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

Dim Gjp, Tnj, Tgj As Currency

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

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

If P = “A” Then

Gol = “A”

Jbt = “Manajer”

Gjp = “4000000”

Tnj = “1025000”

ElseIf P = “B” Then

Gol = “B”

Jbt = “Ka.seksi”

Gjp = “3500000”

Tnj = “975000”

ElseIf P = “C” Then

Gol = “C”

Jbt = “Staff”

Gjp = “3000000”

Tnj = “925000”

End If

 

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

If P = “S” Then

Ks = “S”

St = “Single”

ElseIf P = “M” Then

Ks = “M”

St = “Menikah”

ElseIf P = “J” Then

Ks = “J”

St = “Janda”

ElseIf P = “D” Then

Ks = “D”

St = “Duda”

End If

 

P = Right(Txtnik.Text, 3)

If P = “KEU” Then

Bag = “Accounting”

ElseIf P = “ADM” Then

Bag = “Administrasi”

ElseIf P = “SDM” Then

Bag = “General Affair”

ElseIf P = “EDP” Then

Bag = “IT Unit”

ElseIf P = “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

Txtkds.Text = Ks

Txttgj.Text = Tgj

End Sub

 

Private Sub Cmdlg_Click()

Txtnm.SetFocus

Txtnm = “”

Txtgol = “”

Txtkds = “”

Txtstat = “”

Txtthn = “”

Txtjab = “”

Txtbag = “”

Txtgpk = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnm.SetFocus

Txtnm = “”

Txtgol = “”

Txtkds = “”

Txtstat = “”

Txtthn = “”

Txtjab = “”

Txtbag = “”

Txtgpk = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

4.

Her4

Private Sub Cmdpros_Click()

Dim T As String

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

T = Left(Txtkdbu.Text, 1)

If T = “A” Then

Pnr = “Andi Offset Yogyakarta”

ElseIf T = “I” Then

Pnr = “Indah Surabaya”

ElseIf T = “S” Then

Pnr = “Salemba Empat”

ElseIf T = “E” Then

Pnr = “Elek Media Komputindo”

ElseIf T = “M” Then

Pnr = “Maxicom”

End If

T = Mid(Txtkdbu.Text, 3, 3)

If T = “SIM” Then

Jdb = “Sisitem Informasi Manajemen”

Peng = “Yati Nur Oktavia”

Hrg = “75900”

ElseIf T = “EDP” Then

Jdb = “Elektronik Data Processing”

Peng = “Imam Tarmizi”

Hrg = “62000”

ElseIf T = “MNJ” Then

Jdb = “Manajemen”

Peng = “Valentina Mariana Adiwianti”

Hrg = “42000”

ElseIf T = “CDR” Then

Jdb = “Corel draw”

Peng = “Riyan Suhadi”

Hrg = “53000”

ElseIf T = “RPL” Then

Jdb = “Rekayasa Perangkat Lunak”

Peng = “Sinta Umpu Singa”

Hrg = “83000”

End If

Txtpnr.Text = Pnr

Txtjdbk.Text = Jdb

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub

 

Private Sub Cmdlg_Click()

Txtkdbu.SetFocus

Txtkdbu.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

Private Sub Cmdbtl_Click()

Txtkdbu.SetFocus

Txtkdbu.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

 

Tugas Visual Basic #

1.

Herni1

Private Sub Cbonpm_DblClick()

Private Sub form_load()

Cbonpm.AddItem “12201048”

Cbonpm.AddItem “12100205”

Cbonpm.AddItem “12100217”

Cbonpm.AddItem “12201109”

Cbonpm.AddItem “12201265”

End Sub

 

Private Sub Cbonpm_Click()

Dim nama, jurusan, AsString

 

Select Case Cbonpm.Text

Case “12201048”

nama = “Hernika”

jurusan = “Manajemen Informatika”

Case “12100205”

nama = “Eko Mualip”

jurusan = “Sistem Informasi”

Case “12100217”

nama = “Afita Sari”

jurusan = “Sisitem Informasi”

Case “12201109”

nama = “Didi Sumantri”

jurusan = “Manajemen Informatika”

Case “12201265”

nama = “Rindi Antika”

jurusan = “Manajemen Informatika”

End Select

Txtnm.Text = nama

Txtjrs.Text = jurusan

Txtnqz.SetFocus

End Sub

 

 

Private Sub Txtnqz_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtntg.SetFocus

End If

End Sub

 

Private Sub Txtntg_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 Cmdproses_Click()

Dim NilaiAkhir As Integer

Dim HurufMutu As String

quiz = Val(Txtnqz.Text)

tugas = Val(Txtntg.Text)

uts = Val(Txtuts.Text)

uas = Val(Txtuas.Text)

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

Txtna.Text = NilaiAkhir

 

Select Case Txtna.Text

Case Is > 80

HurufMutu = “A”

Case Is > 70

HurufMutu = “B”

Case Is > 60

HurufMutu = “C”

Case Is > 50

HurufMutu = “D”

Case Is <50

HurufMutu = “E”

End Select

Txthmt.Text = HurufMutu

End Sub

 

Private Sub Cmdbtl_Click()

Cbonpm.SetFocus

Cbonpm = “”

Txtnm = “”

Txtjrs = “”

Txtnqz = “”

Txtntg = “”

Txtuts = “”

Txtuas = “”

Txtna = “”

Txthmt = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

2.

Herni2

Private Sub Optmrh_Click()

Lbljdl.ForeColor = vbRed

End Sub

 

Private Sub Opthij_Click()

Lbljdl.ForeColor = vbGreen

End Sub

 

Private Sub Chkmrng_Click()

Lbljdl.FontItalic = Chkmrng.Value

End Sub

 

Private Sub Chktbl_Click()

Lbljdl.FontBold = Chktbl.Value

End Sub

 

Private Sub Cmdok_Click()

Lbljdl.Caption = Txtnam.Text

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

3.

herni3

Private Sub Txtnid_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpg.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, Total As Variant

Select Case Cbogol.Text

Case “I”

Gajipokok = 2000000

Tunjangan = 200000

Case “II”

Gajipokok = 3000000

Tunjangan = 400000

 

Case “III”

Gajipokok = 4000000

Tunjangan = 600000

Case “IV”

Gajipokok = 5000000

Tunjangan = 800000

Case Else

Gajipokok = 0

Tunjangan = 0

End Select

Total = Gajipokok + Tunjangan

Pajak = Total * 0.1

Txtgpk.Text = Gajipokok

Txttnj.Text = Tunjangan

Txtpjk.Text = Pajak

Txtttl.Text = Total – Pajak

 

 

Private Sub Cmdlgi_Click()

Txtnid = “”

Txtnpg = “”

Cbogol = “”

Txtgpk = “”

Txttnj = “”

Txtpjk = “”

Txtttl = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnid = “”

Txtnpg = “”

Cbogol = “”

Txtgpk = “”

Txttnj = “”

Txtpjk = “”

Txtttl = “”

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

4.

Herni4

Private Sub Txtnam_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

 

 

Private Sub Cmdpros_Click()

Dim S As String

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

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

If S = “1” Then

Txtjrs.Text = “Sisitem Informasi”

ElseIf S = “2” Then

Txtjrs.Text = “Manajemen Informatika”

ElseIf S = “3” Then

Txtjrs.Text = “Komputer Akuntansi Manajemen”

ElseIf S = “4” Then

Txtjrs.Text = “Tehnik Informatika”

End If

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

If S = “00” Then

Txtps.Text = “Strata Satu”

ElseIf S = “01” Then

Txtps.Text = “Diploma Tiga”

ElseIf S = “02” Then

Txtps.Text = “Diploma Dua”

ElseIf S = “03” Then

Txtps.Text = “Diploma Satu”

End If

S = Right(Txtnpm.Text, 3)

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

End Sub

 

Private Sub Cmdlgi_Click()

Txtnam.SetFocus

Txtnam = “”

Txtnpm = “”

Txtjrs = “”

Txtps = “”

Txtth = “”

Txtnou = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnama.SetFocus

Txtnam = “”

Txtnpm = “”

Txtjrs = “”

Txtps = “”

Txtth = “”

Txtnou = “”

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

TUGAS VISUAL BASIC

1.

hrni1

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 CmdPrs_Click()

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

End Sub

Private Sub Cmdbrsh_Click()

txtb1 = “”

txtb2 = “”

Txtb3 = “”

End Sub

Private Sub Cmdkelwr_Click()

End

End Sub

2.

hrni5

Private Sub Txtbl1_Change()

If KeyAscii = 13 Then

Txtbl2.SetFocus

End If

End Sub

Private Sub Cmdbg_Click()

Txtjum.Text = Val(Txtbl1.Text) / Val(Txtbl2)

End Sub

Private Sub Cmdkl_Click()

Txtjum.Text = Val(Txtbl1.Text) * Val(Txtbl2)

End Sub

Private Sub Cmdtb_Click()

Txtjum.Text = Val(Txtbl1.Text) + Val(Txtbl2.Text)

End Sub

Private Sub Cmdkr_Click()

Txtjum.Text = Val(Txtbl1.Text) – Val(Txtbl2.Text)

End Sub

Private Sub Cmdlgi_Click()

Txtbl1 = “”

Txtbl2 = “”

Txtjum = “”

End Sub

Private Sub Cmdklwr_Click()

End

End Sub

3.

HRNIX

Private Sub Cmdproses_Click()

Txtdiskn.Text = Val(TxtnlA.Text) * 0.1

TxtnlB.Text = Val(TxtnlA.Text) – Val(Txtdiskn.Text)

End Sub

 

Private Sub Cmdlagi_Click()

TxtnlA = “”

Txtdiskn = “”

TxtnlB = “”

End Sub

 

Private Sub Cmdklwr_Click()

End

End Sub

4.

hrni2

Private Sub Chkitalic_Click()

If Chkitalic.Value = 1 Then

Lblvb6.FontItalic = True

Else

Lblvb6.FontItalic = False

End If

End Sub

 

Private Sub Chkbold_Click()

If Chkbold.Value = 1 Then

Lblvb6.FontBold = True

Else

Lblvb6.FontBold = False

End If

End Sub

 

Private Sub Chkunder_Click()

If Chkunder.Value = 1 Then

Lblvb6.FontUnderline = True

Else

Lblvb6.FontUnderline = False

End If

End Sub

 

Private Sub Chkstrike_Click()

If Chkstrike.Value = 1 Then

Lblvb6.FontStrikethru = True

Else

Lblvb6.FontStrikethru = False

End If

End Sub

 

Private Sub optred_Click()

Lblvb6.ForeColor = vbRed

End Sub

 

Private Sub optgrn_Click()

Lblvb6.ForeColor = vbGreen

End Sub

 

Private Sub Optylw_Click()

Lblvb6.ForeColor = vbYellow

End Sub

 

Private Sub optblu_Click()

Lblvb6.ForeColor = vbBlue

End Sub

 

Private Sub Cmdklwr_Click()

End

End Sub

5.

herni3

Private Sub Txtgp_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

Txtptg.SetFocus

End If

End Sub

 

 

Private Sub Cmdpros_Click()

Txtgjktr.Text = Val(Txtgp.Text) + Val(Txttjg.Text) – Val(Txtptg.Text)

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

Txtgjbrs.Text = Val(Txtgjktr.Text) – Val(Txtpjak.Text)

End Sub

 

Private Sub Cmdlg_Click()

Txtgp = “”

Txttjg = “”

Txtptg = “”

Txtgjktr = “”

Txtpjak = “”

Txtgjbrs = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

 

KY: Banyak Hakim Cantik, yang Direkomendasikan Dipecat Bukan Deva

152525_deva

Jakarta – Menanggapi berbagai informasi tidak akurat di dunia maya soal hakim cantik yang direkomendasikan dipecat, Komisi Yudisial (KY) prihatin. KY menegaskan yang akan direkomendasikan bukan Deva Indah, hakim yang juga finalis Miss Indonesia 2006.

“Bukan hakim Deva! Hakim yang cantik kan bukan hanya Deva,” kata Wakil Ketua KY Imam Anshori Saleh saat berbincang dengan detikcom, Selasa (25/12/2012).

KY membenarkan merekomendasikan seorang hakim perempuan untuk diberhentikan dengan tidak hormat. Namun KY tidak pernah menyebut identitas hakim cantik tersebut.

“Saya nggak pernah mengait-ngaitkan ke dia,” papar Imam.

Hingga hari ini Deva bersih dari berbagai masalah. Dia juga tak pernah dilaporkan satu kali pun ke KY.

“Tidak mungkin hakim yang tak pernah dilaporkan ke KY, apalagi juga tak pernah dipanggil, sampai diusulkan sanksi pemecatan,” papar mantan anggota DPR ini.

“Hakim yang cantik kan bukan hanya Deva,” tandas Imam lagi.

Hakim Deva Indah yang bertugas di Pengadilan Negeri (PN) Sumedang, Jawa Barat, sangat kaget dirinya dikaitkan dengan isu itu. “Saya sangat kaget kok ada foto saya di internet? Kok bisa saya dikaitkan, yang jelas itu bukan saya,” kata Deva saat berbincang dengan detikcom.

Menurut finalis Miss Indonesia 2006 ini, hakim yang akan dipecat adalah hakim yang bertugas di Sumatera Utara. Hal ini sesuai pernyataan Wakil Ketua Komisi Yudisial (KY) Imam Ansori Saleh, yang menyatakan hakim selingkuh terancam dipecat itu berasal dari PN daerah Sumatera Utara.

Kereta Masa Depan Ada di Jepang!

keretacepatjepang123

Tokyo – Nantinya, turis bakal makin dimanjakan saat traveling ke Jepang. Negeri Sakura ini berencana meluncurkan kereta peluru untuk masa mendatang. Tak tanggung-tanggung, kereta ini bisa mencapai kecepatan hingga 500 km/jam. Wush!

Perusahaan kereta api di Jepang, Japan Railways, punya prototipe kereta peluru Series LO berteknologi Maglev alias magnetic levitation. Kereta yang bisa menempuh kecepatan hingga 500 km/jam ini dirancang oleh JR Tokai. Untuk bisa menempuh jarak sejauh 322 km, kereta canggih ini cukup memerlukan waktu sekitar 40 menit saja.

Diberitakan oleh News Australia beberapa waktu lalu, kereta ini tidak memiliki roda. Bantalannya menggunakan elektromagnetik untuk kecepatan super tinggi. Nantinya, setiap rangkaian kereta akan terdiri atas 14 gerbong. Masing-masing gerbong bisa diisi oleh 68 penumpang.

Nantinya, wisatawan yang akan sedang berlibur di Tokyo dan ingin menuju Nagoya atau Osaka, bisa menggunakan jasa kereta peluru ini. Selain cepat, kereta Maglev sudah pasti nyaman.

Sayangnya, proyek ini baru sekadar rencana. Kementerian Pertanahan, Infrastruktur, Transportasi, dan Pariwisata Jepang sedang mempelajari proposal tentang pembangunan kereta super cepat ini. Targetnya, untuk jurusan Tokyo-Osaka, kereta akan rampung dan bisa dioperasikan mulai tahun 2027. Sedangkan kereta dari Tokyo-Nagoya baru bisa digunakan pada tahun 2045.

Sebelumnya, China sudah terlebih dulu membuat kereta Maglev. Kereta tersebut sudah melayani rute dari Kota Shanghai ke Bandara Internasional Shanghai Pudong. Kereta tersebut mampu mencapai kecepatan hingga 431 km/jam dan menjadi yang tercepat saat ini.

 

Majelis Umum PBB Setujui Resolusi Tentang Pelarangan Sunat Perempuan

155916_gunting2ts

akarta, Selama ini sunat pada perempuan kerap menjadi kontroversi karena adanya kecaman dari berbagai pihak. Kini PBB telah menyetujui resolusi larangan sunat perempuan secara global.

Praktik female genital mutilation (FGM) atau sunat perempuan diyakini bisa membantu mengontrol seksualitas dan meningkatkan kesuburan seorang perempuan. Namun Majelis Umum PBB telah secara bulat menyetujui resolusi larangan secara global terhadap praktik ini.

Praktik sunat perempuan ini dikaitkan dengan agama dan budaya tertentu. Meski tidak mengikat secara hukum, tapi resolusi Majelis Umum PBB ini mencerminkan adanya keprihatinan secara internasional.

PBB mengatakan pada tahun 2010 ada sekitar 70 juta anak perempuan yang telah menjalani prosedur ini, dan Organisasi Kesehatan Dunia (WHO) mengatakan sekitar 6.000 perempuan disunat setiap hari.

Resolusi ini disponsori oleh lebih dari 100 negara yang menyebut praktik tersebut berbahaya dan merupakan ancaman serius bagi kesehatan psikologis, seksual dan reproduksi perempuan, seperti dikutip dari Health24, Selasa (25/12/2012).

Berdasarkan Amnesty International, sunat perempuan adalah hal yang lumrah di 28 negara di Afrika, serta di Yaman, Irak, Malaysia, Indonesia dan beberapa etnis tertentu di Amerika Selatan.

Sedangkan Organisasi Kesehatan Dunia (WHO) membagi definisi sunat perempuan menjadi 4 tipe, yaitu:
Tipe I : memotong seluruh bagian klitoris
Tipe II : memotong sebagian klitoris
Tipe III : menjahit atau menyempitkan mulut vagina (infibulasi)
Tipe IV : menindik, menggores jaringan sekitar lubang vagina, atau memasukkan sesuatu ke dalam vagina agar terjadi perdarahan.

Jose Luis Diaz, perwakilan Amnesty International PBB menyebutkan resolusi ini adalah yang pertama bagi Majelis Umum PBB dan menjadi momen yang penting dalam melawan kampanye praktik sunat perempuan.