VB Data Base

lilik

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

Tugas Visual Basic 4

1.

li1

Private Sub Cmdproses_Click()

Dim P As String

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

P = Left(Txtkbu.Text, 1)

If P = “A” Then

Pnr = “Andi Offset Yogyakarta”

ElseIf P = “I” Then

Pnr = “Indah Surabaya”

ElseIf P = “S” Then

Pnr = “Salemba Empat”

ElseIf P = “E” Then

Pnr = “Elek Media Komputindo”

ElseIf P = “M” Then

Pnr = “Maxicom”

End If

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

If P = “SIM” Then

Jdb = “Sisitem Informasi Manajemen”

Peng = “Andra Setiawan”

Hrg = “75900”

ElseIf P = “EDP” Then

Jdb = “Elektronik Data Processing”

Peng = “Desi Istiqomah”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jdb = “Manajemen”

Peng = “Sandy Fitrajaya”

Hrg = “42000”

ElseIf P = “CDR” Then

Jdb = “Corel draw”

Peng = “Tri Indah Sari”

Hrg = “53000”

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

Txtkbu.SetFocus

Txtkbu.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkbu.SetFocus

Txtkbu.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

2.

li2

Private Sub Cmdprs_Click()

Dim T As String

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

T = Right(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

T= Left(Txtkdbk.Text, 3)

If T = “SIM” Then

Jbk = “Sisitem Informasi Manajemen”

Peng = “Fadiya Ulfa”

Hrg = “75900”

ElseIf T = “EDP” Then

Jbk = “Elektronik Data Processing”

Peng = “Nurul Agustina”

Hrg = “62000”

ElseIf T = “MNJ” Then

Jbk = “Manajemen”

Peng = “Rian Hidayat”

Hrg = “42000”

ElseIf T = “CDR” Then

Jbk = “Corel draw”

Peng = “Siti Nur Khotimah”

Hrg = “53000”

ElseIf T = “RPL” Then

Jbk = “Rekayasa Perangkat Lunak”

Peng = “Winda Erlianti”

Hrg = “83000”

End If

Txtpn.Text = Pn

Txtjdb.Text = Jbk

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub

 

Private Sub Cmdlg_Click()

Txtkdbk.SetFocus

Txtkdbk.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpn.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkdbk.SetFocus

Txtkdbk.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpn.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

3.

LI3

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

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

If G = “A” Then

Gol = “A”

Jbt = “Manajer”

Gjp = “4000000”

Tnj = “1025000”

ElseIf G = “B” Then

Gol = “B”

Jbt = “Ka.seksi”

Gjp = “3500000”

Tnj = “975000”

ElseIf G = “C” Then

Gol = “C”

Jbt = “Staff”

Gjp = “3000000”

Tnj = “925000”

End If

 

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

If T = “S” Then

Ks = “S”

St = “Single”

ElseIf T = “M” Then

Ks = “M”

St = “Menikah”

ElseIf T = “J” Then

Ks = “J”

St = “Janda”

ElseIf T = “D” Then

Ks = “D”

St = “Duda”

End If

 

B = Right(Txtnik.Text, 3)

If B = “KEU” Then

Bag = “Accounting”

ElseIf B = “ADM” Then

Bag = “Administrasi”

ElseIf B = “SDM” Then

Bag = “General Affair”

ElseIf B = “EDP” Then

Bag = “IT Unit”

ElseIf B = “SPM” Then

Bag = “Security”

End If

Tgj = Val(Gjp) + Val(Tnj)

Txtgpk.Text = Gjp

Txtjbt.Text = Jbt

Txttnj.Text = Tnj

Txtsta.Text = St

Txtbag.Text = Bag

Txtgol.Text = Gol

Txtkst.Text = Ks

Txttgj.Text = Tgj

End Sub

 

Private Sub Cmdlgi_Click()

Txtnama.SetFocus

Txtnama = “”

Txtgol = “”

Txtkst = “”

Txtsta = “”

Txtthn = “”

Txtjbt = “”

Txtbag = “”

Txtgpk = “”

Txttnj = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnama.SetFocus

Txtnama = “”

Txtgol = “”

Txtkod = “”

Txtsta = “”

Txtthn = “”

Txtjbt = “”

Txtbag = “”

Txtgpk = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

4.

li4

Private Sub Cmdpros_Click()

Dim P As String

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

P = Left(Txtkobu.Text, 1)

If P = “A” Then

Pnr = “Andi Offset Yogyakarta”

ElseIf P = “I” Then

Pnr = “Indah Surabaya”

ElseIf P = “S” Then

Pnr = “Salemba Empat”

ElseIf P = “E” Then

Pnr = “Elek Media Komputindo”

ElseIf P = “M” Then

Pnr = “Maxicom”

End If

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

If P = “SIM” Then

Jdb = “Sisitem Informasi Manajemen”

Peng = “Yati Nur Oktavia”

Hrg = “75900”

ElseIf P = “EDP” Then

Jdb = “Elektronik Data Processing”

Peng = “Imam Tarmizi”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jdb = “Manajemen”

Peng = “Valentina Mariana Adiwianti”

Hrg = “42000”

ElseIf P = “CDR” Then

Jdb = “Corel draw”

Peng = “Riyan Suhadi”

Hrg = “53000”

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

Txtkobu.SetFocus

Txtkobu.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

Private Sub Cmdbtl_Click()

Txtkobu.SetFocus

Txtkobu.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnr.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

Visual Basic Pertemuan 3

1.

lili1

Private Sub Cbonpm_DblClick()

Private Sub form_load()

Cbonpm.AddItem “12100425”

Cbonpm.AddItem “12101310”

Cbonpm.AddItem “12102201”

Cbonpm.AddItem “12101412”

Cbonpm.AddItem “12100513”

End Sub

 

Private Sub Cbonpm_Click()

Dim nama, jurusan, AsString

 

Select Case Cbonpm.Text

Case “12100425”

nama = “LIlik Suryani”

jurusan = “Sistem Informasi”

Case “12101310”

nama = “Ruli Setiawan”

jurusan = “Manajemen Informatika”

Case “12102201”

nama = “Mulyani”

jurusan = “Tehnik Informatika”

Case “12101412”

nama = “Desi Anita”

jurusan = “Manajemen Informatika”

Case “12100513”

nama = “Amrinasari”

jurusan = “Sisitem Informasi”

End Select

Txtnm.Text = nama

Txtjur.Text = jurusan

Txtquiz.SetFocus

End Sub

 

 

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

 

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

Txtnak.Text = NilaiAkhir

 

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

Txthm.Text = HurufMutu

End Sub

 

Private Sub Cmdbtl_Click()

Cbonpm.SetFocus

Cbonpm = “”

Txtnm = “”

Txtjur = “”

Txtquiz = “”

Txttugas = “”

Txtuts = “”

Txtuas = “”

Txtnak = “”

Txthm = “”

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

2.

lili2

Private Sub Opthj_Click()

Lblnam.ForeColor = vbGreen

End Sub

 

Private Sub Optmr_Click()

Lblnam.ForeColor = vbRed

End Sub

 

Private Sub Chktb_Click()

Lblnam.FontBold = Chktb.Value

End Sub

 

Private Sub Chkmrg_Click()

Lblnam.FontItalic = Chkmrg.Value

End Sub

Private Sub Cmdok_Click()

Lblnam.Caption = Txtnam.Text

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

3.

lili3

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnm.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 = 2500000

Tunjangan = 500000

Case “II”

Gajipokok = 3000000

Tunjangan = 700000

Case “III”

Gajipokok = 3500000

Tunjangan = 900000

Case “IV”

Gajipokok = 4000000

Tunjangan = 1100000

Case Else

Gajipokok = 0

Tunjangan = 0

End Select

Gajibersih = Gajipokok + Tunjangan

Pajak = Gajibersih * 0.1

Txtgp.Text = Gajipokok

Txttun.Text = Tunjangan

Txtpjk.Text = Pajak

Txtgt = Gajibersih – Pajak

 

 

Private Sub Cmdlg_Click()

Txtnidn = “”

Txtnm = “”

Cbogol = “”

Txtgp = “”

Txttun = “”

Txtpjk = “”

Txtgt = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnidn = “”

Txtnm = “”

Cbogol = “”

Txtgp = “”

Txttun = “”

Txtpjk = “”

Txtgt = “”

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

4.

lili4

Private Sub Txtnm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnpm.SetFocus

End If

End Sub

 

Private Sub Cmdproses_Click()

Dim S As String

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

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

If S = “1” Then

Txtjur.Text = “Sistem Informasi”

ElseIf S = “2” Then

Txtjur.Text = “Manajemen Informasi”

ElseIf S = “3” Then

Txtjur.Text = “Tehnik Informatika”

ElseIf S = “4” Then

Txtjur.Text = “Manajemen Komputer Akuntansi”

End If

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

If Stdy = “00” Then

Txtpst.Text = “Strata Satu”

ElseIf S = “01” Then

Txtpst.Text = “Diploma Dua”

ElseIf S = “02” Then

Txtpst.Text = “Diploma Tiga”

ElseIf S = “03” Then

Txtpst.Text = “Diploma Empat”

End If

S = Right(Txtnpm.Text, 3)

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

End Sub

 

Private Sub Cmdlgi_Click()

Txtnm.SetFocus

Txtnm = “”

Txtnpm = “”

Txtjur = “”

Txtpst = “”

Txtthn = “”

Txtno = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnm.SetFocus

Txtnm = “”

Txtnpm = “”

Txtjur = “”

Txtpst = “”

Txtthn = “”

Txtno = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

TUGAS VISUAL BASIC

Am1

Private Sub txtnli1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnli2.SetFocus

End If

End Sub

 

Private Sub txtnli2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnli3.SetFocus

End If

End Sub

 

Private Sub Txtnli3_KeyPress(KeyAscii As Integer)

Txtnli3.Text = Val(txtnli1.Text) * Val(txtnli2.Text)

End Sub

 

Private Sub Cmdhit_Click()

Txtnli3.Text = Val(txtnli1.Text) * Val(txtnli2.Text)

End Sub

2.

lili

Private Sub Txta1_Change()

If KeyAscii = 13 Then

Txta2.SetFocus

End If

End Sub

 

Private Sub Cmdbagi_Click()

Txtjmlh.Text = Val(Txta1.Text) / Val(Txta2)

End Sub

 

Private Sub Cmdkali_Click()

Txtjmlh.Text = Val(Txta1.Text) * Val(Txta2)

End Sub

 

 

Private Sub Cmdtmbh_Click()

Txtjmlh.Text = Val(Txta1.Text) + Val(Txta2.Text)

End Sub

 

Private Sub Cmdkrng_Click()

Txtjmlh.Text = Val(Txta1.Text) – Val(Txta2.Text)

End Sub

 

Private Sub Cmdlagi_Click()

Txta1 = “”

Txta2 = “”

Txtjmlh = “”

End Sub

 

Private Sub Cmdklwr_Click()

End

End Sub

3.

lili1

Private Sub opthij_Click()

Lbltem.ForeColor = vbGreen

End Sub

 

Private Sub optbru_Click()

Lbltem.ForeColor = vbBlue

End Sub

 

Private Sub optmrh_Click()

Lbltem.ForeColor = vbRed

End Sub

 

Private Sub Optkng_Click()

Lbltem.ForeColor = vbYellow

End Sub

 

 

Private Sub Chkital_Click()

If Chkital.Value = 1 Then

Lbltem.FontItalic = True

Else

Lbltem.FontItalic = False

End If

End Sub

 

Private Sub Chkbl_Click()

If Chkbl.Value = 1 Then

Lbltem.FontBold = True

Else

Lbltem.FontBold = False

End If

End Sub

 

Private Sub Chkundr_Click()

If Chkundr.Value = 1 Then

Lbltem.FontUnderline = True

Else

Lbltem.FontUnderline = False

End If

End Sub

 

Private Sub Chkstri_Click()

If Chkstri.Value = 1 Then

Lbltem.FontStrikethru = True

Else

Lbltem.FontStrikethru = False

End If

End Sub

 

Private Sub Cmdklwr_Click()

End

End Sub

4.

lili4

Private Sub Cmdhitung_Click()

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

Txthg2.Text = Val(Txthg1.Text) – Val(Txtdskn.Text)

End Sub

 

Private Sub Cmdlagi_Click()

Txthg1 = “”

Txtdskn = “”

Txthg2 = “”

End Sub

 

Private Sub Cmdklwr_Click()

End

End Sub

5.

Lili 3

Private Sub Txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttj.SetFocus

End If

End Sub

 

Private Sub Txttj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtpt.SetFocus

End If

End Sub

 

 

Private Sub Cmdhitung_Click()

Txtgk.Text = Val(Txtgp.Text) + Val(Txttj.Text) – Val(Txtpt.Text)

Txtpj.Text = Val(Txtgk.Text) * 0.1

Txtgb.Text = Val(Txtgk.Text) – Val(Txtpj.Text)

End Sub

 

Private Sub Cmdlag_Click()

Txtgp = “”

Txttj = “”

Txtpt = “”

Txtgk = “”

Txtpj= “”

Txtgb= “”

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

 

 

2013, Samsung Target Kapalkan 510 Juta Perangkat

153264

Di luar kekalahannya atas Apple di pengadilan, 2012 merupakan tahun yang gemilang bagi Samsung. Berdasarkan data terbaru IHS iSuppli, raksasa teknologi asal Korea Selatan ini berhasil menedang Nokia dari kursi produsen ponsel terbesar dunia yang telah dipegang vendor asal Finlandia tersebut selama 14 tahun.

Dan Samsung tampaknya masing optimis tahun 2013 nanti mereka dapat melaju lebih kencang.

Dikutip dari situs teknologi CNET, Kamis, 27 Desember 2012, media lokal The Korea Times menyebutkan bahwa Samsung menargetkan dapat mengapalkan 510 juta perangkat pada tahun depan. Dari angka ini, diharapkan 390 juta unit perangkat berasal dari kategori smartphone dan 120 juta unit sisanya dari feature phone.

Sebagai pembanding, pada tahun ini pengapalan perangkat yang dilakukan oleh Samsung diperkirakan mencapai angka 420 juta unit.

Hasil ini disokong oleh berbagai produknya yang laku keras di pasar, termasuk Galaxy S III, lini smartphone premium milik Samsung. Produk ini berhasil dikapalkan sebanyak 30 juta unit hanya dalam waktu lima bulan, setara dengan 190 ribu unit per hari. Ini memecahkan rekor dari dua produk Galaxy S sebelumnya.

Galaxy Note 2, lini smartphone berlayar jumbo milik Samsung juga meraih kesuksesan yang tidak jauh berbeda. Smartphone ini berhasil dikapalkan sebanyak 20 juta unit, seratus hari setelah resmi dilepas ke pasar.

Untuk tahun depan, Samsung dikabarkan tengah menyiapkan Samsung Galaxy S IV dengan resolusi layar 1080 piksel, dan juga smartphone yang dilengkapi panel display yang fleksibel.

Usai Reses Komisi IX DPR Panggil Dirut RSAB Harapan Kita

Rumah-Sakit-Harapan-Kita-1

TRIBUNNEWS.COM, JAKARTA – Komisi IX DPR yang membidangi kesehatan berencana memanggil Dirut RSAB Harapan Kita Achmad Subagyo menyusul meninggalnya pasien penderita Leukimia karena ruangan Intensive Care Unit(ICU) dipergunakan untuk syuting film ‘Love in Paris’.

“Nanti begitu masa sidang Komisi IX DPR akan rapat internal dan saya pribadi akan mengajukan pemanggilan direksi RS Harapan Kita dalam rapat internal,” kata Wakil Ketua Komisi IX DPR, Nova Riyanti Yusuf kepada Tribunnews.com, Jumat(28/12/2012).

Menurut Nova, pihaknya akan meminta penjelasan kepada sang Dirut mengenai adanya kegiatan syuting film di ruang ICU.

“Setelah jelas duduk perkaranya, kami sebagai komisi yang membidangi kesehatan akan dapat menjalankan fungsi pengawasan kami dengan lebih optimal,” katanya.

Peristiwa di RSAB Harapan Kita bermula ketika Kurnianto Ahmad Syaiful (47) dan Roasih (36) membawa buah hatinya ke RSAB Harapan Kita akibat kondisinya yang drop. Saat itu Kurnianti mengaku sedikit tidak nyaman karena dalam ruangan ICU dipakai syuting.

Menurut Kurnianto, kegiatan syuting mengganggu jalan keluar masuk ke ICU, lampu sorot dan peralatan syuting menghalangi jalan dari UGD ke ICU sehingga orang yang ingin masuk jadi terganggu.

Puan: Tak ada harta Bung Karno Rp 1,74 triliun di Swiss

puan-tak-ada-harta-bung-karno-rp-174-triliun-di-swiss

MERDEKA.COM, Sejumlah media di Austria ramai-ramai memberitakan keberadaan harta milik presiden pertama Indonesia, Soekarno. Dalam pemberitaan itu, Soekarno disebut-sebut memiliki warisan senilai USD 180 juta atau Rp 1,74 triliun yang tersimpan di sebuah bank di Swiss.

Situs surat kabar Austria Krone melaporkan, Rabu (19/12), seorang mediator keuangan bernama Gustav Jobstmann, asal Austria mengaku dapat mencairkan dana itu, asal bisa diinvestasikan di negaranya. Dia mengaku juga dibantu oleh salah satu pewaris harta itu bernama Edy Sukanto.

Terkait pemberitaan tersebut, Puan Maharani yang juga cucu Bung Karno mengaku tidak tahu ada harta milik kakeknya yang disimpan di Swiss. Kalau pun ada yang mengatasnamakan keluarga, belum tentu keturunan dari Soekarno.

“Sepengetahuan yang saya tahu dari ibu saya, Ibu Megawati, bahwa hal itu tidak ada, dan belum bisa dikatakan ada, dan belum terbukti, jadi itu yang bisa saya katakan,” ujar Puan Maharani di kantor Presiden, Rabu (26/12).

Tidak hanya soal harta, pihak yang disebut-sebut Jobstmann sebagai salah satu pewaris harta bernama Edy Sukanto juga tidak dikenalnya. Bahkan, dia mengaku tidak pernah mengetahui nama tersebut sejak kecil hingga beranjak dewasa.

“Kami tidak mengenal siapa dia, dan dia tidak masuk dalam keluarga Soekarno, sepengetahuan saya sejak saya lahir sebagai cucu Bung Karno, saya tidak pernah tahu dan mengenal siapa dia,” tandasnya.

Soal kabar ini, Puan mengaku tidak ingin menyelidikinya. “Kami enggak mau terlibat, dan kami tidak mau ikut campur dalam urusan tersebut karena memang enggak ada hubungannya dengan keluarga kami,” tutupnya.

Sumber: Merdeka.com

Rhoma Soal Mata Najwa: Itu Lebih ke Pengadilan

392merdeka_rhomairama

TEMPO.CO, Jakarta -Kemunculan Rhoma Irama di acara bincang-bincang Mata Najwa mendapat banyak komentar masyarakat. Komentar pedas terutama muncul di jejaring sosial, saat dan seusai acara yang tayang pada, Rabu 28 November 2012.Banyak yang mempertanyakan kompetensi Rhoma ketika  memutuskan untuk maju jadi calon presiden di 2014.

 

Lalu bagaimana pendapat Rhoma tentang wawancara tersebut. “Itu wawancara (Mata Najwa) sekian menit saya rasa kurang ya,” ujar Pentolan Grup Soneta ini ketika ditemui Tempo di kediamannya, Senin, 24 Desember 2012.

 

Menurut pria 66 tahun itu, apa yang diajukan presenter Najwa Shihab bukanlah sebuah wawancara. “Tapi lebih kepada pengadilan,” kata dia. Rhoma menuturkan bahwa, meski banyak reaksi dari hasil wawancara itu, bagi dia itu biasa saja. “Selesai itu, tidak memberikan kesan apa-apa.”

 

Video tayangan wawancara Rhoma tersebut juga diunggah di situs youtube. Hingga 24 Desember sudah sekitar 300 ribu yang melihat dua tayangan wawancara berjudul Rhoma Irama Mendadak Capres. Rhoma yang mengenakan kacamata hitam dalam wawancara tersebut, ternyata menarik banyak perhatian peselancar dunia maya.

 

Bahkan muncul pula ulasan-ulasan tentang wawancara tersebut dalam blog, forum online hingga kuliah tweet, dan tentunya berita. Rhoma memang tidak ada duanya sebagai pembuat berita.

Britney Spears Selingkuh Dengan Adik Kevin Federline?

392GI_Marc_Andrew_Deley_Britney_Spears

KAPANLAGI.COM – Sebuah kabar mengejutkan tiba-tiba mengguncang Britney Spears. Dia dikabarkan telah berselingkuh dengan adik mantan suaminya, Kevin Federline, sehingga hamil dan melahirkan. Benarkah?

Hal itulah yang diungkapkan oleh Christopher Federline. Pria ini mengaku pernah tidur dengan Britney, saat penyanyi tersebut masih berstatus istri Kevin Federline.

 

Pria yang akrab dipanggil Chris ini juga mengungkapkan bahwa anak pertama Britney, Sean Preston bukan anak Kevin. Dia mengaku bahwa bocah tujuh tahun itu adalah hasil perselingkuhan Britney dengan dirinya.

Beberapa waktu lalu, Chris juga mengajukan restraining order untuk menjauhkan Britney darinya. Dia mengungkapkan bahwa ibu dua anak itu telah membuat hidup Chris tidak tenang.

“Dia mengirimkan black mail dan mengancam kalau aku bila aku lapor polisi dan mengatakan bahwa dia telah mencuri kartu kreditku, maka dia akan buka mulut bahwa aku adalah ayah biologis Sean Preston, bukan Kevin. Aku mengaku: Aku pernah tidur dengan Britney, dan aku adalah ayahnya, tapi orang tak perlu tahu,” ungkap Chris. (dgs/ris)

Penemuan Luar Angkasa Paling Ekstrem Pada 2012

392reuters_badaimatahari

Penemuan astronomis pada 2012 telah mengubah apa yang kita ketahui mengenai alam semesta dan mendorong beberapa instrumen hingga batas kemampuan mereka untuk mengamati.

Para ilmuwan menemukan sebuah galaksi yang menyimpan lubang hitam yang sangat besar, dengan pusatnya yang berukuran 17 miliar kali lebih besar dari Matahari. Kelompok peneliti lain melihat sebuah planet berbatu panas di sistem bintang terdekat dengan sistem tata surya kita. Sementara itu, rekor untuk kelompok galaksi yang paling besar dan paling jauh akhirnya terpecahkan.

Berikut adalah ringkasan dari beberapa penemuan yang paling ekstrem dan kosmik paling menarik tahun ini.

Lubang hitam paling mengerikan
Pengamat mungkin tidak ingin terlalu dekat dengan NGC 1277 atau lubang hitam sangat besar, yang memakan sebagian besar dari galaksi itu sendiri. Pusat lubang hitam itu besarnya 17 miliar kali lebih besar dari Matahari dan menempati 14 persen massa galaksi tempatnya berada, dibandingkan dengan 0,1 persen dari ukuran biasa.

Peneliti sangat bingung dengan ukuran lubang hitam tersebut, sampai-sampai mereka menunda satu tahun untuk memeriksa perhitungan mereka sebelum menerbitkan hasilnya.

Planet luar yang terdekat dengan Bumi
Dalam sebuah penemuan mengejutkan, para astronom menemukan sebuah planet dengan ukuran yang sama seperti Bumi di sistem bintang sebelah. Planet berbatu itu ditemukan di Alpha Centauri, sistem dengan tiga bintang yang hanya berjarak 4,3 tahun cahaya dari kita.

Tidak mungkin ada kehidupan di planet tersebut. Permukaan berbatu yang mungkin cair, karena planet ini mengorbit hanya dengan jarak 3,6 juta mil (6 juta kilometer) dari bintang seperti Matahari. (Bumi, untuk perbandingan, berputar di jarak 93 juta mil, atau 150 juta km, dari Matahari).

Alpha Centauri Bb, adalah nama planet tersebut, ditemukan melalui pelacakan getaran gravitasi planet di sekitar bintang tersebut. Getaran dalam kasus ini sangat halus, membuat bintang itu bergerak maju mundur di tidak lebih dari 1,1 mph (1,8 km/jam). Tim peneliti menyatakan hal itu “mendorong teknik kami hingga batas maksimal,” dan beberapa astronom skeptis bahwa planet itu ada.

Dan pada bulan ini, sebuah tim peneliti yang berbeda mendeteksi lima planet potensial yang mengorbiti bintang Tau Ceti, yang terletak hanya 11,9 tahun cahaya dari Bumi. Salah satu kandidat dunia baru yang mungkin mampu mendukung kehidupan seperti yang kita tahu, ujar para ilmuwan.

Dunia alien terkecil
Para astronom menggunakan NASA Kepler Space Telescope dan menemukan tiga planet kecil berjarak 120 tahun cahaya dari Bumi. Mengelilingi bintang KOI-961, yang terkecil dari tiga planet seukuran Mars, dan semua yang lebih kecil dari Bumi. Bahkan bintang itu sendiri kecil — hanya 70 persen lebih besar dari Jupiter.

“Ini adalah sistem yang paling kompak dari planet,” ujar John Johnson, dari California Institute of Technology di Pasadena. “Ini seperti Anda memiliki pistol laser penyusut dan ubah pengaturannya hingga tujuh kali lebih kecil dan menembaki sebuah sistem planet.”

Tata surya terkecil
KOI-500 memiliki lima planet begitu berdempetan sehingga gravitasi mereka saling bersentuhan satu sama lain pada orbitnya. “Tahun” dalam sistem tersebut hanya sepanjang 1, 3, 4,6, 7,1 dan 9,5 hari. Selain itu, planet-planet kecil: hanya 1,3 hingga 2,6 kali dari ukuran Bumi.

Semua kejadian ini terjadi di wilayah yang 150 kali lebih kecil dari orbit Bumi, ujar para astronom.

“Pada tingkat ini, Anda dengan mudah bisa memasukan di 10 planet lebih banyak, dan mereka masih muat dengan nyaman di dalam orbit bumi,” ujar Darin Ragozzine, seorang ilmuwan planet di University of Florida di Gainesville, dalam sebuah pernyataan.

Galaksi paling jauh 

Sama seperti rekor dunia lari 100 meter, rekor galaksi terjauh yang diketahui sering berubah. Pemegang terbaru rekor potensial terbaru adalah UDFj-39546284, yang telah terbentuk ketika alam semesta hanya 380 juta tahun. Usia ekstrem itu ditemukan pada tahun 2012 menggunakan pengamatan baru dari Hubble Space Telescope NASA.

Galaksi ini merupakan bagian dari kelompok tujuh yang diperiksa astronom, mungkin membentuk pengamatan pertama yang dapat diandalkan galaksi yang terbentuk 400 juta dan 600 juta tahun setelah Big Bang menciptakan alam semesta 13,7 miliar tahun yang lalu.

Supernova tertua yang paling jauh
Pada 2012, astronom menggambarkan apa yang menurut mereka menyebabkan supernova tertua yang paling jauh di alam semesta. Para ilmuwan percaya bahwa beberapa supernova “super-terang” berasal dari bintang-bintang besar — 100 sampai 250 kali massa Matahari — yang meledak dan memuntahkan materi mereka ke ruang angkasa.

Para astronom menyatakan bahwa di dalam bintang-bintang besar, perubahan sinar gamma menjadi pasangan elektron serta positron antimateri. Sinar gamma biasanya menghentikan bintang dari keruntuhan karena gravitasi, tapi cengkeramannya melemah saat sinar gamma dikonversi menjadi materi. Pada titik inilah bintang meletup, memicu ledakan.

Kelompok galaksi paling besar
Sekitar 2.000 kali lebih besar dari Bima Sakti, sekelompok besar galaksi sekitar 7 miliar tahun cahaya mempunyai hampir setiap materi yang dikenal. Para astronom mengatakan kelompok itu (yang dikenal sebagai SPT-CLJ2344-4243 dan dijuluki kelompok Phoenix) sepertinya berisi ribuan galaksi dari berbagai ukuran.

Para astronom pertama kali melihat kelompok Phoenix pada 2010, tapi tidak menyadari luasnya sampai mereka melakukan pengamatan lanjutan dengan Chandra X-ray Observatory NASA. Energi cahaya yang sangat tinggi mengalir keluar dari kelompok itu, yang membuatnya menjadi sinar X paling bercahaya yang pernah ditemukan, 35 persen lebih terang dari yang pemegang rekor sebelumnya.

Peta alam semesta terbesar
Para astronom selangkah lebih dekat untuk memahami bagaimana awal mula alam semesta. The Sloan Digital Sky Survey III merilis peta dengan grafik yang memiliki lebih dari 1 juta galaksi dalam volume total 70 miliar kubik tahun cahaya.

Peta ini dapat membantu astronom lebih memahami materi gelap dan energi gelap misterius yang membentuk sebagian besar alam semesta, ujar para peneliti.

Pandangan terjauh alam semesta
Teleskop luar angkasa Hubble bisa mengintip jauh lebih dalam menembus batas waktu. Observatorium terkenal yang mengorbit itu berhasil menangkap cahaya yang dipancarkan 13,2 miliar tahun yang lalu, ketika alam semesta hanya berusia 500 juta tahun atau lebih.

Gambar Hubble, yang disebut Deep Field eXtreme, menunjukkan galaksi dan cahaya terakumulasi selama 10 tahun dalam bentuk yang sedikit kecil dari langit, ini adalah metode terbaik yang kita miliki untuk melihat benda-benda begitu jauh. Foto ini adalah penerus Hubble “Ultra Deep Field”, yang diambil teleskop tersebut pada 2003 dan 2004.

Bintang magnetik terkuat
Ada bintang sejauh 20.000 tahun cahaya dari Bumi dengan karakter magnetik. NGC 1624-2, sekitar 35 kali lebih besar seperti Matahari, terlihat di konstelasi Perseus. Dengan medan magnet 20.000 kali lebih kuat dari Matahari-dan 10 kali lebih kuat daripada setiap bintang yang dikenal — NGC 1624-2 menyeret selimut partikel bermuatan terperangkap di sekitarnya.

“Medan magnet dengan kekuatan seperti ini sangatlah langka, yang diketahui hanyalah beberapa di bintang lain dengan massa yang jauh lebih rendah,” ujar pemimpin penulis studi Gregg Wade, seorang astronom di Royal Military College of Canada pada SPACE.com dalam wawancara bulan September. “Perlu keberuntungan untuk menemukan medan yang kuat.”

Ledakan sinar X saat dunia masih muda
Seberkas sinar-X yang berasal dari quasar GB 1.428 (sebuah galaksi yang memiliki lubang hitam besar di pusatnya) ditemukan sekitar 12,4 miliar tahun cahaya dari Bumi. Jangkauan radiasinya diperkirakan sekitar dua kali diameter Bima Sakti.

Dengan pemegang rekor sebelumnya pada 12,2 miliar tahun cahaya, astronom mengatakan mereka mendapatkan informasi lebih lanjut tentang bagaimana perilaku lubang hitam di awal alam semesta.

Inti terbesar ditemukan di galaksi super besar

Bersembunyi di sebuah galaksi sekitar 10 kali lebar Bima Sakti terletak inti galaksi besar yang beragam yang tampaknya tidak memiliki lubang hitam yang terkait dengannya.

Inti yang sangat tipis dari A2261-BCG, yaitu sekitar 10.000 tahun cahaya, membuat bingung para astronom karena diperkirakan lubang hitam super besar semestinya berada di jantung sebagian besar galaksi. pengamatan dari Hubble Space Telescope menunjukkan inti tersebut mungkin telah dibangun ketika dua galaksi bergabung.