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