TGS bener vb

 

 

NIDN

Private Sub cbogol_Click()

Dim gapok, tunjangan, pajak, total As Variant

Select Case cbogol.Text

Case “I”

gapok = 2000000

tunjangan = 200000

Case “II”

gapok = 3000000

tunjangan = 300000

Case “III”

gapok = 4000000

tunjangan = 400000

Case “IV”

gapok = 5000000

tunjangan = 500000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok.Text = gapok

txttunj.Text = tunjangan

txtpajak.Text = pajak

txtterima.Text = total – pajak

End Sub

 

Private Sub cmdbatal_Click()

txtnidn.SetFocus

txtnidn.Text = “”

txtnama.Text = “”

cbogol.Text = “”

txtgapok.Text = “”

txttunj.Text = “”

txtpajak.Text = “”

txtterima.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdlagi_Click()

txtnidn.SetFocus

txtnidn.Text = “”

txtnama.Text = “”

cbogol.Text = “”

txtgapok.Text = “”

txttunj.Text = “”

txtpajak.Text = “”

txtterima.Text = “”

End Sub

 

Private Sub Form_Load()

cbogol.AddItem “I”

cbogol.AddItem “II”

cbogol.AddItem “III”

cbogol.AddItem “IV”

End Sub

 

Private Sub txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

 

NPM

Private Sub cbonpm_Click()i

Dim nama, jurusan, hm As String

Select Case cbonpm.Text

Case “12100089″

nama = “ratna sari”

jurusan = “manajemen informatika”

Case “12100472″

nama = ” imam mustakim”

jurusan = “manajemen informatika”

Case “12201138″

nama = “Muhlisin”

jurusan = “Manajemen Informatika”

Case “12201009″

nama = “arif bestari”

jurusan = “system informasi”

Case “12100083″

nama = “imam mustakim”

jurusan = “Sistem Informasi”

End Select

txtnama.Text = nama

txtjur.Text = jurusan

txtquis.SetFocus

End Sub

 

Private Sub cmdbatal_Click()

cbonpm.SetFocus

cbonpm.Text = ” “

txtnama.Text = ” “

txtjur.Text = ” “

txtquis.Text = ” “

txttugas.Text = ” “

txtuts.Text = ” “

txtuas.Text = ” “

txtna.Text = ” “

txthm.Text = ” “

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdproses_Click()

Dim na As Integer

Dim hm As String

quis = Val(txtquis.Text)

tugas = Val(txttugas.Text)

uts = Val(txtuts.Text)

uas = Val(txtuas.Text)

na = (quis + tugas + uts + uas) / 4

txtna.Text = na

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

txthm.Text = hm

End Sub

 

Private Sub Form_Load()

cbonpm.AddItem “12100089″

cbonpm.AddItem “12100472″

cbonpm.AddItem “12200042″

cbonpm.AddItem “12201009″

cbonpm.AddItem “12100083″

End Sub

 

Private Sub txtquis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttugas.SetFocus

End If

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

 

KODE BUKU

Private Sub Cmdbatal_Click()

Cbokb.SetFocus

Cbokb = “”

Txtpeng = “”

TxtJB = “”

txttt = “”

Txtpenerbit = “”

Txthg = “”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Cmdlagi_Click()

Cbokb.SetFocus

Cbokb = “”

Txtpeng = “”

TxtJB = “”

txttt = “”

Txtpenerbit = “”

Txthg = “”

End Sub

 

Private Sub Form_Load()

Cbokb.AddItem = “a-sim-01″

Cbokb.AddItem = “s-edp-05″

Cbokb.AddItem = “m-cdr-02″

Cbokb.AddItem = “i-sim-12″

Cbokb.AddItem = “s-rpl-02″

Cbokb.AddItem = “a-mnj-11″

Cbokb.AddItem = “e-cdr-13″

 

End Sub

 

Private Sub Cmdproses_Click()

Dim k, j, p, h, n As String

k = Mid(Cbokb.Text, 3, 3)

If k = “sim” Then

j = “sistem informasi manajemen”

p = “Yati nur oktavia”

h = “75900″

ElseIf k = “edp” Then

j = “elektronic data processing”

p = “Imam tarmizi”

h = “62000″

ElseIf k = “mnj” Then

j = “Manajemen”

p = “Valentina mariana Adiwianti”

h = “42000″

ElseIf k = “cdr” Then

j = “Corel Draw”

p = “Rian Suhandi”

h = “53000″

ElseIf k = “rpl” Then

j = “Rekayasa Perangkat Lunak”

p = “sinta umpu singa’”

h = “83000″

End If

TxtJB.Text = j

Txtpeng.Text = p

Txthg.Text = h

txttt = “20″ & Right(Cbokb.Text, 2)

k = Left(Cbokb.Text, 1)

If k = “a” Then

n = “Andi Offset Yogyakarta”

ElseIf k = “i” Then

n = “Indah Surabaya”

ElseIf k = “S” Then

n = “Salemba Empat”

ElseIf k = “e” Then

n = “Elek Media Komputindo”

ElseIf k = “m” Then

n = “maxicom”

End If

Txtpenerbit.Text = n

End Sub

 

 

Iklan

TUGAS VB 03/04/2013

Gambar

ANITA

NIDN

Private Sub cbogol_Click()

Dim gapok, tunjangan, pajak, total As Variant

Select Case cbogol.Text

Case “I”

gapok = 2000000

tunjangan = 200000

Case “II”

gapok = 3000000

tunjangan = 300000

Case “III”

gapok = 4000000

tunjangan = 400000

Case “IV”

gapok = 5000000

tunjangan = 500000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok.Text = gapok

txttunj.Text = tunjangan

txtpajak.Text = pajak

txtterima.Text = total – pajak

End Sub

Private Sub cmdbatal_Click()

txtnidn.SetFocus

txtnidn.Text = “”

txtnama.Text = “”

cbogol.Text = “”

txtgapok.Text = “”

txttunj.Text = “”

txtpajak.Text = “”

txtterima.Text = “”

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdlagi_Click()

txtnidn.SetFocus

txtnidn.Text = “”

txtnama.Text = “”

cbogol.Text = “”

txtgapok.Text = “”

txttunj.Text = “”

txtpajak.Text = “”

txtterima.Text = “”

End Sub

Private Sub Form_Load()

cbogol.AddItem “I”

cbogol.AddItem “II”

cbogol.AddItem “III”

cbogol.AddItem “IV”

End Sub

Private Sub txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

NPM

Private Sub cbonpm_Click()i

Dim nama, jurusan, hm As String

Select Case cbonpm.Text

Case “12100089″

nama = “ratna sari”

jurusan = “manajemen informatika”

Case “12100472″

nama = ” imam mustakim”

jurusan = “manajemen informatika”

Case “12201138″

nama = “Muhlisin”

jurusan = “Manajemen Informatika”

Case “12201009″

nama = “arif bestari”

jurusan = “system informasi”

Case “12100083″

nama = “imam mustakim”

jurusan = “Sistem Informasi”

End Select

txtnama.Text = nama

txtjur.Text = jurusan

txtquis.SetFocus

End Sub

Private Sub cmdbatal_Click()

cbonpm.SetFocus

cbonpm.Text = ” “

txtnama.Text = ” “

txtjur.Text = ” “

txtquis.Text = ” “

txttugas.Text = ” “

txtuts.Text = ” “

txtuas.Text = ” “

txtna.Text = ” “

txthm.Text = ” “

End Sub

Private Sub cmdkeluar_Click()

Unload Me

End Sub

Private Sub cmdproses_Click()

Dim na As Integer

Dim hm As String

quis = Val(txtquis.Text)

tugas = Val(txttugas.Text)

uts = Val(txtuts.Text)

uas = Val(txtuas.Text)

na = (quis + tugas + uts + uas) / 4

txtna.Text = na

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

txthm.Text = hm

End Sub

Private Sub Form_Load()

cbonpm.AddItem “12100089″

cbonpm.AddItem “12100472″

cbonpm.AddItem “12200042″

cbonpm.AddItem “12201009″

cbonpm.AddItem “12100083″

End Sub

Private Sub txtquis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttugas.SetFocus

End If

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

KODE BUKU

Private Sub Cmdbatal_Click()

Cbokb.SetFocus

Cbokb = “”

Txtpeng = “”

TxtJB = “”

txttt = “”

Txtpenerbit = “”

Txthg = “”

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

Cbokb.SetFocus

Cbokb = “”

Txtpeng = “”

TxtJB = “”

txttt = “”

Txtpenerbit = “”

Txthg = “”

End Sub

Private Sub Form_Load()

Cbokb.AddItem = “a-sim-01″

Cbokb.AddItem = “s-edp-05″

Cbokb.AddItem = “m-cdr-02″

Cbokb.AddItem = “i-sim-12″

Cbokb.AddItem = “s-rpl-02″

Cbokb.AddItem = “a-mnj-11″

Cbokb.AddItem = “e-cdr-13″

End Sub

Private Sub Cmdproses_Click()

Dim k, j, p, h, n As String

k = Mid(Cbokb.Text, 3, 3)

If k = “sim” Then

j = “sistem informasi manajemen”

p = “Yati nur oktavia”

h = “75900″

ElseIf k = “edp” Then

j = “elektronic data processing”

p = “Imam tarmizi”

h = “62000″

ElseIf k = “mnj” Then

j = “Manajemen”

p = “Valentina mariana Adiwianti”

h = “42000″

ElseIf k = “cdr” Then

j = “Corel Draw”

p = “Rian Suhandi”

h = “53000″

ElseIf k = “rpl” Then

j = “Rekayasa Perangkat Lunak”

p = “sinta umpu singa’”

h = “83000″

End If

TxtJB.Text = j

Txtpeng.Text = p

Txthg.Text = h

txttt = “20″ & Right(Cbokb.Text, 2)

k = Left(Cbokb.Text, 1)

If k = “a” Then

n = “Andi Offset Yogyakarta”

ElseIf k = “i” Then

n = “Indah Surabaya”

ElseIf k = “S” Then

n = “Salemba Empat”

ElseIf k = “e” Then

n = “Elek Media Komputindo”

ElseIf k = “m” Then

n = “maxicom”

End If

Txtpenerbit.Text = n

End Sub

Tugas TGL 03-04-2013

 

NIDN

Private Sub cbogol_Click()

Dim gapok, tunjangan, pajak, total As Variant

Select Case cbogol.Text

Case “I”

gapok = 2000000

tunjangan = 200000

Case “II”

gapok = 3000000

tunjangan = 300000

Case “III”

gapok = 4000000

tunjangan = 400000

Case “IV”

gapok = 5000000

tunjangan = 500000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

txtgapok.Text = gapok

txttunj.Text = tunjangan

txtpajak.Text = pajak

txtterima.Text = total – pajak

End Sub

 

Private Sub cmdbatal_Click()

txtnidn.SetFocus

txtnidn.Text = “”

txtnama.Text = “”

cbogol.Text = “”

txtgapok.Text = “”

txttunj.Text = “”

txtpajak.Text = “”

txtterima.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdlagi_Click()

txtnidn.SetFocus

txtnidn.Text = “”

txtnama.Text = “”

cbogol.Text = “”

txtgapok.Text = “”

txttunj.Text = “”

txtpajak.Text = “”

txtterima.Text = “”

End Sub

 

Private Sub Form_Load()

cbogol.AddItem “I”

cbogol.AddItem “II”

cbogol.AddItem “III”

cbogol.AddItem “IV”

End Sub

 

Private Sub txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

 

NPM

Private Sub cbonpm_Click()i

Dim nama, jurusan, hm As String

Select Case cbonpm.Text

Case “12100089″

nama = “ratna sari”

jurusan = “manajemen informatika”

Case “12100472″

nama = ” imam mustakim”

jurusan = “manajemen informatika”

Case “12201138″

nama = “Muhlisin”

jurusan = “Manajemen Informatika”

Case “12201009″

nama = “arif bestari”

jurusan = “system informasi”

Case “12100083″

nama = “imam mustakim”

jurusan = “Sistem Informasi”

End Select

txtnama.Text = nama

txtjur.Text = jurusan

txtquis.SetFocus

End Sub

 

Private Sub cmdbatal_Click()

cbonpm.SetFocus

cbonpm.Text = ” “

txtnama.Text = ” “

txtjur.Text = ” “

txtquis.Text = ” “

txttugas.Text = ” “

txtuts.Text = ” “

txtuas.Text = ” “

txtna.Text = ” “

txthm.Text = ” “

End Sub

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdproses_Click()

Dim na As Integer

Dim hm As String

quis = Val(txtquis.Text)

tugas = Val(txttugas.Text)

uts = Val(txtuts.Text)

uas = Val(txtuas.Text)

na = (quis + tugas + uts + uas) / 4

txtna.Text = na

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

txthm.Text = hm

End Sub

 

Private Sub Form_Load()

cbonpm.AddItem “12100089″

cbonpm.AddItem “12100472″

cbonpm.AddItem “12200042″

cbonpm.AddItem “12201009″

cbonpm.AddItem “12100083″

End Sub

 

Private Sub txtquis_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttugas.SetFocus

End If

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

 

KODE BUKU

Private Sub Cmdbatal_Click()

Cbokb.SetFocus

Cbokb = “”

Txtpeng = “”

TxtJB = “”

txttt = “”

Txtpenerbit = “”

Txthg = “”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Cmdlagi_Click()

Cbokb.SetFocus

Cbokb = “”

Txtpeng = “”

TxtJB = “”

txttt = “”

Txtpenerbit = “”

Txthg = “”

End Sub

 

Private Sub Form_Load()

Cbokb.AddItem = “a-sim-01″

Cbokb.AddItem = “s-edp-05″

Cbokb.AddItem = “m-cdr-02″

Cbokb.AddItem = “i-sim-12″

Cbokb.AddItem = “s-rpl-02″

Cbokb.AddItem = “a-mnj-11″

Cbokb.AddItem = “e-cdr-13″

 

End Sub

 

Private Sub Cmdproses_Click()

Dim k, j, p, h, n As String

k = Mid(Cbokb.Text, 3, 3)

If k = “sim” Then

j = “sistem informasi manajemen”

p = “Yati nur oktavia”

h = “75900″

ElseIf k = “edp” Then

j = “elektronic data processing”

p = “Imam tarmizi”

h = “62000″

ElseIf k = “mnj” Then

j = “Manajemen”

p = “Valentina mariana Adiwianti”

h = “42000″

ElseIf k = “cdr” Then

j = “Corel Draw”

p = “Rian Suhandi”

h = “53000″

ElseIf k = “rpl” Then

j = “Rekayasa Perangkat Lunak”

p = “sinta umpu singa’”

h = “83000″

End If

TxtJB.Text = j

Txtpeng.Text = p

Txthg.Text = h

txttt = “20″ & Right(Cbokb.Text, 2)

k = Left(Cbokb.Text, 1)

If k = “a” Then

n = “Andi Offset Yogyakarta”

ElseIf k = “i” Then

n = “Indah Surabaya”

ElseIf k = “S” Then

n = “Salemba Empat”

ElseIf k = “e” Then

n = “Elek Media Komputindo”

ElseIf k = “m” Then

n = “maxicom”

End If

Txtpenerbit.Text = n

End Sub

 

 

SBY

Mantan Ketua Umum Partai Demokrat, Anas Urbaningrum, kembali melancarkan sindirannya melalui Twitter. Kali ini dia menyinggung soal rumor kudeta yang dikaitkan dengan melambungnya harga bawang.

Urus bawang lebih utama ketimbang urus rumor kudeta. #pesanemak,” kicau Anas lewat akun Twitter-nya, @anasurbaningrum, kemarin.

Anas memang tidak menyebut kepada siapa kicauan tersebut diarahkan. Tapi siapa lagi jika bicara soal kudeta kalau bukan tentang orang nomor satu negeri ini, yakni Presiden Susilo Bambang Yudhoyono (SBY). Jamak diketahui, ketua Dewan Pembina Partai Demokrat itu memang berlawanan dengan Anas dalam kemelut partai belakangan ini.

Presiden SBY disebut-sebut tengah resah dengan rumor penggulingan kekuasaan yang direncanakan beberapa pihak lewat demonstrasi besar-besaran 25 Maret mendatang. Sebelum terbang ke Jerman pada 3 Maret lalu, SBY juga mengaku mendapat laporan intelijen soal gonjang-ganjing politik ini.

“Tentu saya tahu, saya mendapatkan info bahkan sebagian dari intelijen. Saya hanya berharap kepada elite politik dan kelompok-kelompok tertentu tetaplah pada koridor demokrasi. Itu sah. Tetapi kalau lebih dari itu, apalagi dengan sebuah rencana untuk membuat negara kita gonjang ganjing, untuk membikin pemerintah tidak bisa bekerja, justru akan membuat rakyat kita susah,” kata SBY saat itu.

Hal ini juga yang mungkin disindir Anas lewat Twitter dua hari yang lalu. “Menurut laporan intelijen : bawang putih langka di pasaran karena diusir oleh bawang merah dan ibunya. #rakyatsusah,” kicau Anas.

berita (www.merdeka.com)

Selasa, 19 Maret 2013 22:07:51

Saat itu pelaku yang diduga di bawah pengaruh alkohol, menghantamkan benda tumpul ke korban.

Selasa, 19 Maret 2013 22:07:00

Label makanan yang memiliki keterangan lebih detail mampu memotivasi responden untuk membatasi konsumsi kalorinya.

Selasa, 19 Maret 2013 22:06:00

Tak terpilih sebagai salah satu dari 28 nama pemain yang disiapkan menghadapi Arab Saudi di lanjutan Pra Piala Asia 2015, Ferdinand Sinaga mengaku legowo dan menerima keputusan tersebut.

Selasa, 19 Maret 2013 22:04:00

Kementerian Keuangan memberikan tenggat waktu penyelesaian pembukaan blokir hingga bulan ini.

Selasa, 19 Maret 2013 22:02:00

Barcelona akan kehilangan Carles Puyol dan Adriano setidaknya selama enam minggu ke depan.

Selasa, 19 Maret 2013 21:57:00

Setelah dirawat selama 6 hari di ICU rumah sakit karena overdosis obat batuk, Lil Wayne akhirnya diperbolehkan pulang.

Selasa, 19 Maret 2013 21:53:00

Wakil Ketua Umum Badan Tim Nasional (BTN) Harbiansyah Hanafiah, telah mendepak posisi Luis Manuel Blanco sebagai pelatih tim nasional Indonesia.

Selasa, 19 Maret 2013 21:45:00

Selama menjalani tahanan, Adam Wilson diketahui tetap mengendalikan bisnisnya dari balik jeruji.

Selasa, 19 Maret 2013 21:32:00

Defisit anggaran tahun ini berpotensi meleset di atas 2 persen.

Selasa, 19 Maret 2013 21:29:00

Diego Michiels, dipastikan tidak akan memperkuat tim nasional Indonesia ketika menghadapi Arab Saudi dalam lanjutan Pra Piala Asia 2015, di Stadion Utama Gelora Bung Karno (SUGBK), Senayan, Jakarta, Sabtu (23/3).

Selasa, 19 Maret 2013 21:27:08

Belum diketahui pasti penyebab jatuhnya sebuah bus berkapasitas 55 penumpang yang melaju dari arah Goa menuju Mumbai.

Selasa, 19 Maret 2013 21:27:00

Dirk Kuyt menegaskan bahwa Wesley Sneijder adalah kapten yang sesungguhnya bagi timnas Belanda.

Selasa, 19 Maret 2013 21:24:00

Presiden Republik Indonesia, Susilo Bambang Yudhoyono diagendakan akan melihat langsung suasana latihan timnas Indonesia di Stadion Utama Gelora Bung Karno Senayan Jakarta, Kamis (21/3).

Selasa, 19 Maret 2013 21:21:00

Alangkah lebih baik jika Anda mengonsumsi sayur dan buah-buahan segar untuk mendapatkan nutrisi yang lebih maksimal.

Selasa, 19 Maret 2013 21:17:00

Kemarin malam (18/03) Selena Gomez mengaku hampir saja ‘menculik fansnya.

Selasa, 19 Maret 2013 21:08:49

Info pertama berasal dari orang yang mengaku bernama Beny di frekuensi handy talkie (HT) 970.

Selasa, 19 Maret 2013 21:07:15

Anggota Komisi I DPR, Gus Choi dan Lily Wahid dinilai sudah tidak sejalan lagi dengan titah Fraksi PKB di Parlemen.

Selasa, 19 Maret 2013 21:07:00

Penyanyi internasional PSY baru-baru ini mengungkapkan bahwa lagu terbaru untuk album globalnya ditunda perilisan sampai bulan April.

Selasa, 19 Maret 2013 21:06:00

BTN telah mengumumkan 28 nama yang disiapkan untuk menghadapi Arab Saudi dalam lanjutan Pra Piala Asia 2015.

Selasa, 19 Maret 2013 21:01:00

Jutaan rakyat Indonesia pun terancam seumur hidup ngontrak atau tinggal di rumah mertua indah.

Selasa, 19 Maret 2013 21:00:37

Lelaki ini hanya memiliki kemaluan sepanjang lima sentimeter.

Selasa, 19 Maret 2013 20:59:00

Saat ini Real Madrid dikabarkan tengah gencar mendekati midfielder PSG, Marco Veratti.

Selasa, 19 Maret 2013 20:57:00

Kubu Barcelona FC lewat situs resminya menuturkan bahwa pemain andalan mereka Lionel Messi tengah mengejar rekor gol Cristiano Ronaldo.

Selasa, 19 Maret 2013 20:56:00

Harga tersebut merupakan komitmen pengusaha agar barang yang sejak 5 Februari di tahan bisa lepas ke pasar.

Selasa, 19 Maret 2013 20:54:00

“Yang pasti sekarang saya harus melihat kebutuhan, jangan cuman tambah-tambah, ya kan,” tegas Jokowi.

Selasa, 19 Maret 2013 20:49:00

Sampai sekarang, penjualan Chromebooks masih di bawah 500 ribu unit.

Selasa, 19 Maret 2013 20:48:42

Hari ini, penyidik KPK menggeledah ruangan Fraksi Partai Golkar di DPR Setya Novanto serta Kahar Muzakir.

Selasa, 19 Maret 2013 20:48:00

Rahmad Darmawan dan Jacksen Ferreira Tiago kini dipercaya menangani tim nasional Indonesia.

Selasa, 19 Maret 2013 20:47:00

Anelka ingin memenangkan Scudetto dan Liga Champions bersama Juventus.

Selasa, 19 Maret 2013 20:38:00

Meski usianya terbilang masih anak-anak, penampilan sering memukau penonton dengan kemampuan mereka memainkan alat musik perkusi.

Selasa, 19 Maret 2013 20:37:00

Sebelum menggelar konsernya di Jogja 11 Januari 2008 silam, vokalis band Gigi, Armand Maulana mengaku sempat meminjam kostum dari Tata Dado.

Selasa, 19 Maret 2013 20:34:00

Salah satu pelatih tim nasional Indonesia, Jacksen Ferreira Tiago, mengaku tidak gentar menghadapi Arab Saudi dalam lanjutan Pra Piala Asia 2015, di Stadion Utama Gelora Bung Karno (SUGBK), Senayan, Jakarta, Sabtu (23/3) mendatang.

Selasa, 19 Maret 2013 20:33:00

Berkebun tidak harus dilakukan di lahan yang luas. Sebab Anda juga bisa menciptakan kebun vertikal.

Selasa, 19 Maret 2013 20:32:00

Harus menjalani hukuman kurungan 3 bulan tidak membuat Jupe khawatir Gaston akan selingkuh.

Selasa, 19 Maret 2013 20:30:00

Indonesia membeli sistem remote control dan persenjataan untuk Panser Anoa buatan Pindad.

Selasa, 19 Maret 2013 20:27:00

Mendapat piala Oscar sebagai Aktris Terbaik tak membuat Jennifer Lawrence lantas bersikap jaim karenanya.

Selasa, 19 Maret 2013 20:21:00

Perubahan jadwal yang acap kali terjadi di kompetisi Divisi Utama PT Liga Indonesia, membuat Tony Ho merasa geram.

Selasa, 19 Maret 2013 20:17:00

Band rock FT Island resmi menyelesaikan fan meeting mereka di Tokyo pada Minggu (17/3) kemarin.

Selasa, 19 Maret 2013 20:16:17

Seorang ibu asal Oklahoma, Amerika Serikat, tega menawarkan 2 anak balitanya melalui Facebook.

Selasa, 19 Maret 2013 20:07:00

Meski mengenal dekat secara personal, tidak banyak yang dapat dilakukan Charly Van Houten atas musibah yang dialami Julia Perez.

 1  2  3  4  5  >>