VB Data Base

Rindi

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 VB *4*

1.

Rin1

Private Sub Cmdprs_Click()

Dim K As String

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

K = Left(Txtkdbk.Text, 1)

If K = “A” Then

Pn = “Andi Offset Yogyakarta”

ElseIf K = “I” Then

Pn = “Indah Surabaya”

ElseIf K = “S” Then

Pn = “Salemba Empat”

ElseIf k = “E” Then

Pn = “Elek Media Komputindo”

ElseIf K = “M” Then

Pn = “Maxicom”

End If

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

If K = “SIM” Then

Jdb = “Sisitem Informasi Manajemen”

Peng = “Andra Setiawan”

Hrg = “75900”

ElseIf K = “EDP” Then

Jdb = “Elektronik Data Processing”

Peng = “Desi Istiqomah”

Hrg = “62000”

ElseIf K = “MNJ” Then

Jdb = “Manajemen”

Peng = “Sandy Fitrajaya”

Hrg = “42000”

ElseIf K = “CDR” Then

Jdb = “Corel draw”

Peng = “Tri Indah Sari”

Hrg = “53000”

ElseIf K = “RPL” Then

Jdb = “Rekayasa Perangkat Lunak”

Peng = “Ernita”

Hrg = “83000”

End If

Txtpn.Text = Pn

Txtjdb.Text = Jdb

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

2.

Rin2

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.

Rin3

Private Sub Txtnma_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnik.SetFocus

End If

End Sub

 

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

 

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

If K = “S” Then

Ks = “S”

St = “Single”

ElseIf K = “M” Then

Ks = “M”

St = “Menikah”

ElseIf K = “J” Then

Ks = “J”

St = “Janda”

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

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

Txtnma.SetFocus

Txtnma = “”

Txtgol = “”

Txtkds = “”

Txtstat = “”

Txtthn = “”

Txtjab = “”

Txtbag = “”

Txtgpk = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnma.SetFocus

Txtnma = “”

Txtgol = “”

Txtkds = “”

Txtstat = “”

Txtthn = “”

Txtjab = “”

Txtbag = “”

Txtgpk = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

4.

Rin4

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 3

1.

rindi1

Private Sub Cbonpm_DblClick()

Private Sub form_load()

Cbonpm.AddItem “12201102”

Cbonpm.AddItem “12100207”

Cbonpm.AddItem “12100217”

Cbonpm.AddItem “12201109”

Cbonpm.AddItem “12201265”

End Sub

 

Private Sub Cbonpm_Click()

Dim nama, jurusan, AsString

 

Select Case Cbonpm.Text

Case “12201102”

nama = “Rindi Antika”

jurusan = “Manajemen Informatika”

Case “12100207”

nama = “Linda”

jurusan = “Sistem Informasi”

Case “12100217”

nama = “Eko Mualip”

jurusan = “Sisitem Informasi”

Case “12201109”

nama = “Didi Sumantri”

jurusan = “Manajemen Informatika”

Case “12201265”

nama = “Lilik S”

jurusan = “Manajemen Informatika”

End Select

Txtnm.Text = nama

Txtjur.Text = jurusan

Txtnqu.SetFocus

End Sub

 

 

Private Sub Txtnqu_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtntgs.SetFocus

End If

End Sub

 

Private Sub Txtntgs_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(Txtnqu.Text)

tugas = Val(Txtntgs.Text)

uts = Val(Txtuts.Text)

uas = Val(Txtuas.Text)

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

Txtnla.Text = NilaiAkhir

 

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

Txthrfm.Text = HurufMutu

End Sub

 

Private Sub Cmdbtl_Click()

Cbonpm.SetFocus

Cbonpm = “”

Txtnm = “”

Txtjur = “”

Txtnqu = “”

Txtntgs = “”

Txtuts = “”

Txtuas = “”

Txtnla = “”

Txthrfm = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

2.

Rindi2

Private Sub Optmrh_Click()

Lbljudul.ForeColor = vbRed

End Sub

 

Private Sub Opthj_Click()

Lbljudul.ForeColor = vbGreen

End Sub

 

Private Sub Chkmrg_Click()

Lbljudul.FontItalic = Chkmrg.Value

End Sub

 

Private Sub Chktbl_Click()

Lbljudul.FontBold = Chktbl.Value

End Sub

 

Private Sub Cmdok_Click()

Lbljudul.Caption = Txtnma.Text

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

3.

rindi3

Private Sub Txtnidn_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 = 1500000

Tunjangan = 200000

Case “II”

Gajipokok = 2000000

Tunjangan = 400000

 

Case “III”

Gajipokok = 2500000

Tunjangan = 600000

Case “IV”

Gajipokok = 3000000

Tunjangan = 800000

Case Else

Gajipokok = 0

Tunjangan = 0

End Select

Total = Gajipokok + Tunjangan

Pajak = Total * 0.1

Txtgp.Text = Gajipokok

Txttj.Text = Tunjangan

Txtpj.Text = Pajak

Txttl.Text = Total – Pajak

 

 

Private Sub Cmdlgi_Click()

Txtnidn = “”

Txtnpg = “”

Cbogol = “”

Txtgp = “”

Txttj = “”

Txtpj = “”

Txttl = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnidn = “”

Txtnpg = “”

Cbogol = “”

Txtgp = “”

Txttj = “”

Txtpj = “”

Txttl = “”

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

4.

Rindi4

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

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

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

If S = “1” Then

Txtjrsn.Text = “Sisitem Informasi”

ElseIf S = “2” Then

Txtjrsn.Text = “Manajemen Informatika”

ElseIf S = “3” Then

Txtjrsn.Text = “Komputer Akuntansi Manajemen”

ElseIf S = “4” Then

Txtjrsn.Text = “Tehnik Informatika”

End If

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

If S = “00” Then

Txtpst.Text = “Strata Satu”

ElseIf S = “01” Then

Txtpst.Text = “Diploma Tiga”

ElseIf S = “02” Then

Txtpst.Text = “Diploma Dua”

ElseIf S = “03” Then

Txtpst.Text = “Diploma Empat”

End If

S = Right(Txtnpm.Text, 3)

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

End Sub

 

Private Sub Cmdlgi_Click()

Txtnm.SetFocus

Txtnm = “”

Txtnpm = “”

Txtjrsn = “”

Txtpst = “”

Txtthnm = “”

Txtrut = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnama.SetFocus

Txtnm = “”

Txtnpm = “”

Txtjrsn = “”

Txtpst = “”

Txtthnm = “”

Txtrut = “”

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

TUGAS VISUAL BASIC

rnd1

Private Sub txtbl1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtbl2.SetFocus

End If

End Sub

Private Sub txtbl2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtbl3.SetFocus

End If

End Sub

Private Sub Txtbl3_KeyPress(KeyAscii As Integer)

Txtbl3.Text = Val(txtbl1.Text) * Val(txtbl2.Text)

End Sub

Private Sub CmdPros_Click()

Txtbl3.Text = Val(txtbl1.Text) * Val(txtbl2.Text)

End Sub

Private Sub Cmddel_Click()

Txtbl1 = “”

Txtbl2 = “”

Txtbl3 = “”

End Sub

Private Sub Cmdklr_Click()

End

End Sub

2.

rnd4

Private Sub Cmdpros_Click()

Txtdsk.Text = Val(Txthrg1.Text) * 0.1

Txthrg2.Text = Val(Txthrg1.Text) – Val(Txtdsk.Text)

End Sub

Private Sub Cmdlgi_Click()

Txthrg1 = “”

Txtdsk = “”

Txthrg2 = “”

End Sub

Private Sub Cmdklwr_Click()

End

End Sub

3.

rnd5

Private Sub Txtnil1_Change()

If KeyAscii = 13 Then

Txtnil2.SetFocus

End If

End Sub

Private Sub Cmdbagi_Click()

Txtjml.Text = Val(Txtnil1.Text) / Val(Txtnil2)

End Sub

Private Sub Cmdkali_Click()

Txtjml.Text = Val(Txtnil1.Text) * Val(Txtnil2)

End Sub

Private Sub Cmdples_Click()

Txtjml.Text = Val(Txtnil1.Text) + Val(Txtnil2.Text)

End Sub

Private Sub Cmdmin_Click()

Txtjml.Text = Val(Txtnil1.Text) – Val(Txtnil2.Text)

End Sub

Private Sub Cmdlagi_Click()

Txtnil1 = “”

Txtnil2 = “”

Txtjml = “”

End Sub

Private Sub Cmdklr_Click()

End

End Sub

4.

rnd2

Private Sub optgrn_Click()

Lbltema.ForeColor = vbGreen

End Sub

Private Sub optblu_Click()

Lbltema.ForeColor = vbBlue

End Sub

Private Sub optred_Click()

Lbltema.ForeColor = vbRed

End Sub

Private Sub Optyel_Click()

Lbltema.ForeColor = vbYellow

End Sub

Private Sub Chkitalic_Click()

If Chkitalic.Value = 1 Then

Lbltema.FontItalic = True

Else

Lbltema.FontItalic = False

End If

End Sub

Private Sub Chkbold_Click()

If Chkbold.Value = 1 Then

Lbltema.FontBold = True

Else

Lbltema.FontBold = False

End If

End Sub

Private Sub Chkundr_Click()

If Chkundr.Value = 1 Then

Lbltema.FontUnderline = True

Else

Lbltema.FontUnderline = False

End If

End Sub

Private Sub Chkstrike_Click()

If Chkstrike.Value = 1 Then

Lbltema.FontStrikethru = True

Else

Lbltema.FontStrikethru = False

End If

End Sub

Private Sub Cmdklr_Click()

End

End Sub

5.

rnd3

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

Txtpot.SetFocus

End If

End Sub

Private Sub Cmdpros_Click()

Txtgktr.Text = Val(Txtgp.Text) + Val(Txttjg.Text) – Val(Txtpot.Text)

Txtpjk.Text = Val(Txtgktr.Text) * 0.1

Txtgjbr.Text = Val(Txtgktr.Text) – Val(Txtpjk.Text)

End Sub

Private Sub Cmdlg_Click()

Txtgp = “”

Txttjg = “”

Txtpot = “”

Txtgktr = “”

Txtpjk = “”

Txtgjbr= “”

End Sub

Private Sub Cmdklwr_Click()

End

End Sub

Jokowi: Kalau Ada Banjir, Lurahnya Keduluan Saya Datang, Awas!

jokowi8jhonihluardalam

Jakarta – Lagi-lagi Gubernur DKI Jakarta Joko Widodo mengkritik keras kinerja jajarannya yang dinilai lamban merespons banjir di sejumlah wilayah DKI saat hujan deras melanda beberapa waktu lalu. Di hadapan jajaran pejabat wali kota, sudin, camat, dan lurah se-Jakarta Selatan, Jokowi mewanti-wanti jajarannya agar merespon lebih cekatan jika banjir terjadi lagi.

“Kalau misalnya ada banjir, kalau saya datang lurahnya keduluan saya, awas!” ujar Jokowi dalam sambutannya dihadapan pejabat se-Jaksel di kantor Wali Kota Jakarta Selatan, Jalan Prapanca Raya, Jumat (28/12/2012).

Jokowi mengatakan saat ini dengan zaman yang berubah cepat, jangan sampai berada pada rutinitas harian yang monoton.

“Kita bisa ditinggal zaman. Saya harap, cara bergaul kita yang dulu eksklusif dan vertikal itu harus berubah. Sekarang zamannya demokrasi, horizontal, inklusif. Pak Lurah jangan di kantor saja. Tengok di kampung, lihat masalah yang ada,” cetusnya.

“Jangan sampai ada masalah tidak beres di bawahnya. Kemarin ada genangan di HI. Pertama saya diam. Pikiran saya, dari dinas yang ada itu sudah bergerak. Dari dinas PU urusan air, Dishub masalah kemacetan. Tapi saya tunggu tidak ada,” tuturnya.

Menurut mantan wali kota Solo ini, respon lamban jajarannya akan membentuk persepsi publik jika Pemprov DKI Jakarta tidak mampu mengatasi persoalan.

“Sehingga persepsi masyarakat bilang kita ini diam saja. Banyak yang mencaci-maki kita. Percuma kita kalau kita bekerja bertahun-tahun tapi hancur dalam dua hari karena salah persepsi. Setiap ada masalah, turun! Jangan keduluan saya!” tegas Jokowi.

10 Aplikasi Android Terbaik Versi Google di 2012

desire300

Jakarta – Google baru saja merilis daftar aplikasi yang dianggap sebagai yang terbaik untuk Android sepanjang tahun 2012.

Beberapa di antaranya memang baru diluncurkan di 2012, tapi ada juga yang dinilai melakukan update besar-besaran tahun ini.

Ada beberapa faktor yang menjadi penilaian Google, salah satunya soal experience pengguna saat dijajal di ponsel ataupun pada tablet PC. Apilikasi yang dianggap terbaik juga harus tersedia untuk berbagai jenis perangkat Android.

Nah, berikut 10 aplikasi Android terbaik versi Google yang dikutip detikINET dari Play Store, Jumat (28/12/2012).

Mobil Dinas Jokowi Dilelang Rp 24 Jutaan

OTOSIA.COM – Mobil dinas mantan Wali Kota Solo Jokowi tahun 2005, KIA Sedona buatan tahun 2004 akan segera dilelang oleh Pemerintah Kota (Pemkot) Solo. Menurut rencana, mobil dinas kedua Jokowi tersebut akan ditawarkan dengan harga cukup murah, yakni Rp 24,8 juta dengan nilai jaminan Rp 6 juta.

KIA SedonaKIA Sedona

Wali Kota Solo FX Hadi Rudyatmo (Rudy) mengatakan, mobil KIA Sedona dilelang karena dianggap sudah tua dan tak efisien untuk kegiatan operasional kedinasan.

KIA SedonaKIA Sedona

Sekretaris Daerah (Sekda) Pemkot Solo, Budi Suharto mengakui bahwa akan melelang mobil dinas wali kota berjenis KIA Sedona. “Ada bekas mobil wali kota yang akan dilelang. Jenisnya KIA Sedona,” katanya.

KIA SedonaKIA Sedona

Mobil Dinas KIA Sedona bernomor polisi AD 45 A, yang dipakai Jokowi dari tahun 2005 masuk dalam daftar mobil dan sepeda motor dinas yang bakal dihapuskan dari neraca aset Pemkot Solo.

KIA SedonaKIA Sedona

Mobil dengan tipe serupa saat ini pada kisaran harga Rp 95-130 jutaan.