riyono

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

Iklan

Tugas VB Pertemuan 4

1.

pri1

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.

pri2

Private Sub Cmdpros_Click()

Dim K As String

Txtth.Text = “20” & Mid(Txtkb.Text, 5, 2)

K = Right(Txtkb.Text, 1)

If K = “A” Then

Pnr = “Andi Offset Yogyakarta”

ElseIf K = “I” Then

Pnr = “Indah Surabaya”

ElseIf K = “S” Then

Pnr = “Salemba Empat”

ElseIf K = “E” Then

Pnr = “Elek Media Komputindo”

ElseIf K = “M” Then

Pnr = “Maxicom”

End If

P = Left(Txtkb.Text, 3)

If P = “SIM” Then

Jb = “Sisitem Informasi Manajemen”

Png = “Fadiya Ulfa”

Hg = “75900”

ElseIf P = “EDP” Then

Jb = “Elektronik Data Processing”

Png = “Nurul Agustina”

Hg = “62000”

ElseIf P = “MNJ” Then

Jb = “Manajemen”

Png = “Rian Hidayat”

Hg = “42000”

ElseIf P = “CDR” Then

Jb = “Corel draw”

Png = “Siti Nur Khotimah”

Hg = “53000”

ElseIf P = “RPL” Then

Jb = “Rekayasa Perangkat Lunak”

Png = “Winda Erlianti”

Hg = “83000”

End If

Txtpnr.Text = Pnr

Txtjbk.Text = Jb

Txtpng.Text = Png

Txthrg.Text = Hg

End Sub

 

Private Sub Cmdlgi_Click()

Txtkb.SetFocus

Txtkb.Text = “”

Txtjbk.Text = “”

Txtpng.Text = “”

Txtth.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkb.SetFocus

Txtkb.Text = “”

Txtjbk.Text = “”

Txtpng.Text = “”

Txtth.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

3.

pri3

Private Sub Txtnam_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)

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

If GL = “A” Then

Gol = “A”

Jbt = “Manajer”

Gjp = “4000000”

Tnj = “1025000”

ElseIf GL = “B” Then

Gol = “B”

Jbt = “Ka.seksi”

Gjp = “3500000”

Tnj = “975000”

ElseIf GL = “C” Then

Gol = “C”

Jbt = “Staff”

Gjp = “3000000”

Tnj = “925000”

End If

 

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

If GL = “S” Then

Ks = “S”

St = “Single”

ElseIf GL = “M” Then

Ks = “M”

St = “Menikah”

ElseIf GL = “J” Then

Ks = “J”

St = “Janda”

ElseIf GL = “D” Then

Ks = “D”

St = “Duda”

End If

 

GL = Right(Txtnik.Text, 3)

If GL = “KEU” Then

Bag = “Accounting”

ElseIf GL = “ADM” Then

Bag = “Administrasi”

ElseIf GL = “SDM” Then

Bag = “General Affair”

ElseIf GL = “EDP” Then

Bag = “IT Unit”

ElseIf GL = “SPM” Then

Bag = “Security”

End If

Tgj = Val(Gjp) + Val(Tnj)

Txtgpk.Text = Gjp

Txtjab.Text = Jbt

Txttnj.Text = Tnj

Txtstat.Text = St

Txtbag.Text = Bag

Txtgol.Text = Gol

Txtkst.Text = Ks

Txttgj.Text = Tgj

End Sub

 

Private Sub Cmdlgi_Click()

Txtnam.SetFocus

Txtnam = “”

Txtgol = “”

Txtkst = “”

Txtstat = “”

Txtthn = “”

Txtjab = “”

Txtbag = “”

Txtgpk = “”

Txttnj = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnam.SetFocus

Txtnam = “”

Txtgol = “”

Txtkod = “”

Txtstat = “”

Txtthn = “”

Txtjab = “”

Txtbag = “”

Txtgpk = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdklw_Click()

End

End Sub

4.

pri4

Private Sub Cmdprs_Click()

Dim T As String

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

T = Left(Txtkdbk.Text, 1)

If T = “A” Then

Pn = “Andi Offset Yogyakarta”

ElseIf T = “I” Then

Pn = “Indah Surabaya”

ElseIf T = “S” Then

Pn = “Salemba Empat”

ElseIf T = “E” Then

Pn = “Elek Media Komputindo”

ElseIf T = “M” Then

Pn = “Maxicom”

End If

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

If P = “SIM” Then

Jbk = “Sisitem Informasi Manajemen”

Peng = “Yati Nur Oktavia”

Hrg = “75900”

ElseIf P = “EDP” Then

Jbk = “Elektronik Data Processing”

Peng = “Imam Tarmizi”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jbk = “Manajemen”

Peng = “Valentina Mariana Adiwianti”

Hrg = “42000”

ElseIf P = “CDR” Then

Jbk = “Corel draw”

Peng = “Riyan Suhadi”

Hrg = “53000”

ElseIf P = “RPL” Then

Jbk = “Rekayasa Perangkat Lunak”

Peng = “Sinta Umpu Singa”

Hrg = “83000”

End If

Txtpn.Text = Pn

Txtjdbk.Text = Jbk

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub

 

Private Sub Cmdlg_Click()

Txtkdbk.SetFocus

Txtkdbk.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpn.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkdbk.SetFocus

Txtkdbk.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpn.Text = “”

Txthrg.Text = “”

End Sub

Private Sub Cmdkel_Click()

End

End Sub

Tugas Visual Basic Pertemuan ke III

1.

1

Private Sub Cbonpm_DblClick()

Private Sub form_load()

Cbonpm.AddItem “12100374”

Cbonpm.AddItem “12100375”

Cbonpm.AddItem “12100376”

Cbonpm.AddItem “12100377”

Cbonpm.AddItem “12100378”

End Sub

—————————————————————————–

Private Sub Cbonpm_Click()

Dim nama, jurusan, HM As String

Select Case Cbonpm.Text

Case “12100374”

nama = “priyono”

jurusan = “sistem informasi”

Case “12100375”

nama = “yona”

jurusan = “sistem informasi”

Case “12100376”

nama = “adi sunaryo”

jurusan = “sistem informasi”

Case “12100377”

nama = “kristin”

jurusan = “sistem informasi”

Case “12100378”

nama = “adi”

jurusan = “sistem informasi”

End Select

TextNM.Text = nama

Textj.Text = jurusan

End Sub

————————————————————————–

Private Sub Textnk_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnt.SetFocus

End If

End Sub

———————————————————————–

Private Sub Textnt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textuts.SetFocus

End If

End Sub

——————————————————————

Private Sub Textuts_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textuas.SetFocus

End If

End Sub

——————————————————————

Private Sub cmdb_Click()

Cbonpm.SetFocus

Cbonpm = “”

TextNM = “”

Textj = “”

Textnk = “”

Textnt = “”

Textuts = “”

Textuas = “”

Textna = “”

Textam = “”

End Sub

——————————————————————-

Private Sub Cmdp_Click()

Dim NilaiAkhir As Integer

Dim HurufMutu As String

kuis = Val(Textnk.Text)

tugas = Val(Textnt.Text)

uts = Val(Textuts.Text)

uas = Val(Textuas.Text)

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

Textna.Text = NilaiAkhir

Select Case Textna.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

Textam.Text = HurufMutu

End Sub

———————————————————————–

Private Sub cmdb_Click()

Cbonpm.SetFocus

Cbonpm = “”

TextNM = “”

Textj = “”

Textnk = “”

Textnt = “”

Textuts = “”

Textuas = “”

Textna = “”

Textam = “”

End Sub

———————————————————————-

Private Sub cmdk_Click()

End

End Sub

 

2.

2

Private Sub Optiongreen_Click()

Labelnm.ForeColor = vbGreen

End Sub

———————————————————————-

Private Sub Optionred_Click()

Labelnm.ForeColor = vbRed

End Sub

————————————————————————-

Private Sub Checkbold_Click()

Labelnm.FontBold = Checkbold.Value

End Sub

—————————————————————————-

Private Sub Checkmrg_Click()

Labelnm.FontItalic = Checkmrg.Value

End Sub

——————————————————————————-

Private Sub Cmdok_Click()

Labelnm.Caption = Textnm.Text

End Sub

——————————————————————————–

Private Sub Cmdkel_Click()

End

End Sub

 

3.

3

Private Sub Textnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnp.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 = 2000000

Tunjangan = 500000

Case “II”

Gajipokok = 2500000

Tunjangan = 700000

Case “III”

Gajipokok = 3000000

Tunjangan = 900000

Case “IV”

Gajipokok = 3500000

Tunjangan = 1100000

Case Else

Gajipokok = 0

Tunjangan = 0

End Select

Gajibersih = Gajipokok + Tunjangan

Pajak = Gajibersih * 0.1

Textgapok.Text = Gajipokok

Texttun.Text = Tunjangan

Textpjk.Text = Pajak

Textgater = Gajibersih – Pajak

End Sub

————————————————————————-

Private Sub Cmdb_Click()

Textnidn = “”

Textnp = “”

Cbogol = “”

Textgapok = “”

Texttun = “”

Textpjk = “”

Textgater = “”

End Sub

———————————————————————

Private Sub Cmdl_Click()

Textnidn = “”

Textnp = “”

Cbogol = “”

Textgapok = “”

Texttun = “”

Textpjk = “”

Txtgater = “”

End Sub

————————————————————————-

Private Sub Cmdk_Click()

Unload Me

End Sub

 

4.

4

Private Sub Textnm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Textnpm.SetFocus

End If

End Sub

————————————————————————————-

Private Sub Cmdproses_Click()

Dim Stdy As String

Texttm.Text = “20” & Left(Textnpm.Text, 2)

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

If Stdy = “1” Then

Textj.Text = “Sisitem Informasi”

ElseIf Stdy = “2” Then

Textj.Text = “Manajemen Informasi”

ElseIf Stdy = “3” Then

Textj.Text = “Tehnik Informatika”

ElseIf Stdy = “4” Then

Textj.Text = “Komputer Akuntansi”

End If

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

If Stdy = “00” Then

Textps.Text = “Strata Satu”

ElseIf Stdy = “01” Then

Textps.Text = “Diploma Dua”

ElseIf Stdy = “02” Then

Textps.Text = “Diploma Tiga”

ElseIf Stdy = “03” Then

Textps.Text = “Diploma Empat”

End If

Stdy = Right(Textnpm.Text, 3)

Textnu.Text = Right(Textnpm.Text, 3)

End Sub

—————————————————————————————

Private Sub Cmdl_Click()

Textnm.SetFocus

Textnm = “”

Textnpm = “”

Textj = “”

Textps = “”

Texttm = “”

Textnu = “”

End Sub

———————————————————————-

Private Sub Cmdb_Click()

Textnm.SetFocus

Textnm = “”

Textnpm = “”

Textj = “”

Textps = “”

Texttm = “”

Textnu = “”

End Sub

————————————————————————-

Private Sub Cmdk_Click()

Unload Me

End Sub

Tugas Visual Basic 6

Tugas Visual Basic 6

1. Perkalian 2 Bilangan

Penyelesaian

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

—————————————————————–

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

End

End Sub

——————————————————————-

 2. Font Style dan Font Colour

 

Penyelesaian

Private Sub Option1_Click()

lbljudul.ForeColor = vbRed

End Sub

——————————————-

Private Sub Option2_Click()

lbljudul.ForeColor = vbBlue

End Sub

——————————————–

Private Sub Option3_Click()

lbljudul.ForeColor = vbGreen

End Sub

———————————————

Private Sub Option4_Click()

lbljudul.ForeColor = vbYellow

End Sub

———————————————-

Private Sub Option5_Click()

lbljudul.ForeColor = vbWhite

End Sub

———————————————–

Private Sub Option6_Click()

lbljudul.ForeColor = vbBlack

End Sub

———————————————–

Private Sub Check1_Click()

If Check1.Value = 1 Then

lbljudul.FontBold = True

Else

lbljudul.FontBold = False

End If

End Sub

————————————————

Private Sub Check2_Click()

If Check2.Value = 1 Then

lbljudul.FontItalic = True

Else

lbljudul.FontItalic = False

End If

End Sub

————————————————-

Private Sub Check3_Click()

If Check3.Value = 1 Then

lbljudul.FontUnderline = True

Else

lbljudul.FontUnderline = False

End If

End Sub

—————————————————–

3. Perhitungan Harga Setelah Diskon

Penyelesaian

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.Text = Val(Text1.Text) * 0.2

Text3.Text = Val(Text1.Text) – Val(Text2.Text)

End If

End Sub

————————————————————-

Private Sub Command1_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

End Sub

————————————————————-

Private Sub Command2_Click()

End

End Sub

————————————————————–

4. Aplikasi Perhitungan Gaji

Penyelesaian

a. Text 1 sampai text 3

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.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 If

End Sub

———————————————————————–

b. Command 1 dan 2

Private Sub Command1_Click()

Text1.SetFocus

Text1 = ” “

Text2 = ” “

Text3 = ” “

Text4 = ” “

Text5 = ” “

Text6 = ” “

End Sub

————————————————————–

Private Sub Command2_Click()

End

End Sub

—————————————————————

5. Program 2 Bilangan Kalkulator

Penyelesaian

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

————————————————————-

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

End

End Sub

——————————————————————–

Striker MU Dipinjamkan ke Klub Rio Ave

Striker MU Dipinjamkan ke Klub Rio Ave

REPUBLIKA.CO.ID, LONDON — Striker Manchester United Bebe beralih dengan status sewa ke klub Portugal, Rio Ave, demikian dilaporkan Kamis.

Klub Portugal itu, urutan kelima dalam klasemen sementara kompetisi negara itu, mengumumkan beralih klub dalam laman mereka.

Pemain berusia 22 tahun itu bergabung dengan United pada 2010 dan pelatih Alex Ferguson mengatakan Bebe merupakan satu-satunya pemain yang dikontrak tapi tidak pernah bermain.

Ia tidak pernah berusaha untuk dapat bermain dalam tim inti setelah selama ini disewakan kepada klub Turki, Besiktas, untuk musim kompetisi 2011/12.

Beberapa saat setelah tiba di Turki, Bebe mengalami cedera kaki ketika bermain untuk tim U-21 Portugal sehingga ia harus beristirahat hampir sepanjang musim.

“Amat mengenaskan mengalami cedera di hampir sepanjang karir saya musim lalu. Saya mengalami cedera dan kini saya beruntung karena saya sudah merasa pulih,” kata Bebe dalam laman klub Rio Ave.

“Saya gembira berada di klub ini dan saya merasa berharga,” katanya.

Updated: Fri, 28 Dec 2012 11:13:11 GM

2013, Fesyen Ruben Bakal Berubah

2013, Fesyen Ruben Bakal Berubah

TAHUN baru tinggal menghitung hari. Berbagai rencana disusun untuk mencapai tujuan hidup yang lebih baik.

Begitu pula dengan Ruben Onsu. Presenter ramah ini bahkan punya resolusi baru untuk menghadirkan gaya penampilan terbarunya.

“Resolusi tahun depan pasti ada, masih berhubungan dengan fesyen. Saya kan pecinta fesyeb,” tuturnya saat berbincang dengan Okezone di MNC Plaza, Kebon Sirih, Jakarta Pusat, Jumat, (28/12/2012).

Meski demikian, tunangan Wenda eks Cherry Belle ini enggan membocorkannya. Sebab, ini akan menjadi sebuah kejutan bagi masyarakat Indonesia, terutama penggemarnya.

“Nanti kita lihat yah, karena kan harus disesuaikan, cocok apa tidak dengan saya. Kita tunggu saja karena ada kejutan,” tutupnya.

Updated: Fri, 28 Dec 2012 12:20:21 GMT | By tuty, okezone.com

Sepanjang 2012, Jumlah ‘Kiriman’ Drone AS ke Palestina Berkurang

Sepanjang 2012, Jumlah 'Kiriman' Drone AS ke Palestina Berkurang

REPUBLIKA.CO.ID,WASHINGTON — Sepanjang tahun 2012, jumlah serangan militer Amerika melalui pesawat tanpa awak atau drone di Palestina berkurang. Tapi, jumlah penyerangan Amerika terhadap masyakat Muslim melalui drone justru mengalami peningkatan di Yaman.

Dikutip dari Al Arabiya, Jumat (28/12), di Pakistan, sepanjang tahun 2012 terdapat 46 serangan yang dilakukan. Tahun sebelumnya, Amerika meNgirimkan serangan sebanyak 72 serangan pada tahun 2011 dan 122 serangan pada tahun 2010,

Yayasan New America Foundation mengungkapkan fakta, di Yaman terjadi peningkatan serangan signifikan yang dilakukan militer Amerika kepada komunitas Muslim, Dari 18 serangan yang terjadi 2011, tahun ini Yaman harus menerima 53 serangan sepanjang tahun 2012.

Di Yaman, diperkirakan terdapat 397 hingga 539 militan tewas oleh serangan pesawat tak berawak sepanjang tahun ini. Jumlah korban yang hanya dari kalangan militer, belum memperhitungkan adanya korban jiwa dari kalangan sipil Yaman.

Selama memimpin Amerika, Presiden Barack Obama memang lebih agresif mengirimkan pesawat perang tak berawak di berbagai kawasan Timur Tengah. Bahkan apabila dibandingkan dengan pendahulunya George w Bush.

Updated: Fri, 28 Dec 2012 14:26:18 GM