TUGAS4

TUGAS1

1 rahma

rumus:

Private Sub cboKode_Click()
Dim mt, hs, TB As Integer
Select Case cboKode.Text
Case “Apple MC965 MacBook Air”
mt = “Apple MacBook Air MC965”
hs = “12800000”
Case “Apple MC966 MacBook Air”
mt = “Apple MacBook Air MC966”
hs = “15800000”
Case “Apple MC968 MacBook Air”
mt = “Apple MacBook Air MC968”
hs = “9900000”
Case “Apple MC969 MacBook Air”
mt = “Apple MacBook Air MC969”
hs = “11900000”
Case “Apple MC700 MacBook Pro”
mt = “Apple MacBook Pro MC700”
hs = “10800000”
Case “Apple MC721 MacBook Pro”
mt = “Apple MacBook Pro MC721”
hs = “15900000”
Case “Apple MC723 MacBook Pro”
mt = “Apple MacBook Pro MC723”
hs = “19300000”
Case “Apple MC724 MacBook Pro”
mt = “Apple MacBook Pro MC724”
hs = “13700000”
Case “Apple MC311 MacBook Pro”
mt = “Apple MacBook Pro MC311”
hs = “24200000”
Case “Apple MC313 MacBook Pro”
mt = “Apple MacBook Pro MC313”
hs = “11900000”
Case “Apple MC314 MacBook Pro”
mt = “Apple MacBook Pro MC314”
hs = “14700000”
Case “Apple MC318 MacBook Pro”
mt = “Apple MacBook Pro MC318”
hs = “17600000”
Case “Apple MC322 MacBook Pro”
mt = “Apple MacBook Pro MC322”
hs = “21300000”
Case “Apple MC965 MacBook Air”
mt = “Apple MacBook Air MC965”
hs = “12800000”
Case “Apple MC966 MacBook Air”
mt = “Apple MacBook Air MC966”
hs = “15800000”
End Select
txtmerk.Text = mt
txtharga.Text = hs
txtjumlah.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
cboKode.SetFocus
cboKode.Text = “”
txtmerk.Text = “”
txtharga.Text = “”
txtjumlah.Text = “”
txtharpen.Text = “”
txtdiskon.Text = “”
txttotal.Text = “”
End Sub

Private Sub cmdproses_Click()
txtharpen.Text = Val(txtharga) * Val(txtjumlah)
Select Case txtharpen.Text
Case Is > 140000000
txtdiskon.Text = Val(txtharpen) * 0.15
Case Is > 135000000
txtdiskon.Text = Val(txtharpen) * 0.1
Case Is > 130000000
txtdiskon.Text = Val(txtharpen) * 0.05
Case Is > 125000000
txtdiskon.Text = Val(txtharpen) * 0.02
End Select
txttotal.Text = Val(txtharpen) – Val(txtdiskon)
End Sub

Private Sub Form_Load()
cboKode.AddItem “Apple MC965 MacBook Air”
cboKode.AddItem “Apple MC966 MacBook Air”
cboKode.AddItem “Apple MC968 MacBook Air”
cboKode.AddItem “Apple MC969 MacBook Air”
cboKode.AddItem “Apple MC700 MacBook Pro”
cboKode.AddItem “Apple MC721 MacBook Pro”
cboKode.AddItem “Apple MC723 MacBook Pro”
cboKode.AddItem “Apple MC724 MacBook Pro”
cboKode.AddItem “Apple MC311 MacBook Pro”
cboKode.AddItem “Apple MC313 MacBook Pro”
cboKode.AddItem “Apple MC314 MacBook Pro”
cboKode.AddItem “Apple MC318 MacBook Pro”
cboKode.AddItem “Apple MC322 MacBook Pro”
cboKode.AddItem “Apple MC965 MacBook Air”
cboKode.AddItem “Apple MC966 MacBook Air”
End Sub

tugas2

2rahma

rumus:

Private Sub cbokode_Click()
Dim jk, hs, HB As Integer
Select Case cbokode.Text
Case “P205”
jk = “Pentium II 500 Mega Hz”
hs = “1500000”
Case “P308”
jk = “Pentium III 800 Mega Hz”
hs = “2100000”
Case “P310”
jk = “Pentium III 1.0 Giga Hz”
hs = “3500000”
Case “P415”
jk = “Pentium IV 1.5 Giga Hz”
hs = “4000000”
Case “P417”
jk = “Pentium IV 1.7 Giga Hz”
hs = “4200000”
Case “P419”
jk = “Pentium IV 1.9 Giga Hz”
hs = “5500000”
End Select
txtjenis.Text = jk
txtharga.Text = hs
txtjumlah.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
cbokode.SetFocus
cbokode.Text = “”
txtjenis.Text = “”
txtharga.Text = “”
txtjumlah.Text = “”
txtharpen.Text = “”
txtdiskon.Text = “”
txtbayar.Text = “”
End Sub

Private Sub cmdproses_Click()
txtharpen.Text = Val(txtharga) * Val(txtjumlah)
Select Case txtharpen.Text
Case Is > 30000000
txtdiskon.Text = Val(txtharpen) * 0.15
Case Is > 25000000
txtdiskon.Text = Val(txtharpen) * 0.1
Case Is > 20000000
txtdiskon.Text = Val(txtharpen) * 0.05
Case Is > 15000000
txtdiskon.Text = Val(txtharpen) * 0.02
End Select
txtbayar.Text = Val(txtharpen) – Val(txtdiskon)
End Sub

Private Sub Form_Load()
cbokode.AddItem “P205”
cbokode.AddItem “P308”
cbokode.AddItem “P310”
cbokode.AddItem “P415”
cbokode.AddItem “P417”
cbokode.AddItem “P419”

End Sub

tugas3

3rahma

rumus:

Private Sub cmdbatal_Click()
cbokode.SetFocus
cbokode.Text = “”
txtjudul.Text = “”
txtpengarang.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
cbokode.SetFocus
cbokode.Text = “”
txtjudul.Text = “”
txtpengarang.Text = “”
txttahun.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim jb, pg, pn, hg As String
txttahun.Text = “20” & Right(cbokode, 2)
s = Mid(cbokode, 3, 3)
If s = “SIM” Then
jb = “SistemInformasiManajeme”
pg = “YatiNurOktavia”
hg = “75900”
ElseIf s = “EDP” Then
jb = “ElektronikData Processing”
pg = “Imam Tarmizi”
hg = “62000”
ElseIf s = “MNJ” Then
jb = “Manajemen”
pg = “Valentina Mariana Adiwianti”
hg = “42000”
ElseIf s = “CDR” Then
jb = “Corel Draw”
pg = “RiyanSuhandi”
hg = “53000”
ElseIf s = “RPL” Then
jb = “RekayasaPerangkatLunak”
pg = “SintaUmpuSinga”
hg = “83000”
End If
txtjudul.Text = jb
txtpengarang.Text = pg
txtharga.Text = hg
s = Mid(cbokode, 1, 1)
If s = “A” Then
pn = “Andi Offset Yogyakarta”
ElseIf s = “I” Then
pn = “Indah Surabaya”
ElseIf s = “S” Then
pn = “SalembaEmpat”
ElseIf s = “E” Then
pn = “Elek Media Komputindo”
ElseIf s = “M” Then
pn = “Maxicom”
End If
txtpenerbit.Text = pn
End Sub

Private Sub Form_Load()
cbokode.AddItem “A-SIM-01”
cbokode.AddItem “I-EDP-02”
cbokode.AddItem “S-MNJ-03”
cbokode.AddItem “E-CDR-04”
cbokode.AddItem “M-RPL-05”
End Sub

tugas4

4rahma

rumus:

Private Sub Command2_Click()
Text1 = “”
Text2 = “”
Text3 = “”
Text4 = “”
Text5 = “”
Text6 = “”
Text1.SetFocus
End Sub

Private Sub Command3_Click()
Unload Me
End Sub

Private Sub Command1_Click()
If Text1.Text = “BIM” Then
Text2.Text = 50000
Text3.Text = “BIMA”
Text4.Text = “16.00 WIB”
Text6.Text = Val(Text2.Text) * Val(Text5.Text)
ElseIf Text1.Text = “EKO” Then
Text2.Text = 35000
Text3.Text = “EKONOMI”
Text4.Text = “19.00 WIB”
Text6.Text = Val(Text2.Text) * Val(Text5.Text)
ElseIf Text1.Text = “MUT” Then
Text2.Text = 23000
Text3.Text = “MUTIARA”
Text4.Text = “17.00 WIB”
Text6.Text = Val(Text2.Text) * Val(Text5.Text)
ElseIf Text1.Text = “SEN” Then
Text2.Text = 35000
Text3.Text = “SENJA”
Text4.Text = “20.00 WIB”
Text6.Text = Val(Text2.Text) * Val(Text5.Text)
End If
End Sub

tugas5

5rahma

rumus:

Private Sub cmdbatal_Click()
cbokb.SetFocus
cbokb.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttt.Text = “”
txtpen.Text = “”
txth.Text = “”
End Sub
Private Sub cmdkeluar_Click()
End
End Sub
Private Sub cmdlagi_Click()
cbokb.SetFocus
cbokb.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttt.Text = “”
txtpen.Text = “”
txth.Text = “”
End Sub
Private Sub cmdproses_Click()
Dim a, b, c, d As String
Dim h As Double
txttt.Text = “20” & Right(cbokb.Text, 2)
a = Mid(cbokb.Text, 3, 3)
If a = “SIM” Then
b = “SISTEM INFORMASI MANAJEMEN”
c = “YATI NUR OKTAVIA”
h = “75900”
ElseIf a = “MNJ” Then
b = “MANAJEMEN”
c = “VALENTINA MARIANA ADIWIANTI”
h = “42000”
ElseIf a = “EDP” Then
b = “ELECTRONIK DATA PROCESSING”
c = “IMAM TARMIZI”
h = “62000”
ElseIf a = “CDR” Then
b = “COREL DRAW”
c = “RIYAN SUHANDI”
h = “53000”
ElseIf a = “RPL” Then
b = “REKAYASA PERANGKAT LUNAK”
c = “SINTA UMPUL SINGA”
h = “83000”
End If
txtjb.Text = b
txtpeng.Text = c
txth.Text = h
d = Left(cbokb.Text, 1)
If d = “A” Then
txtpen.Text = “ANDI OFFSET YOGYAKARTA”
ElseIf d = “I” Then
txtpen.Text = “INDAH SURABAYA”
ElseIf d = “M” Then
txtpen.Text = “MAXICOM”
ElseIf d = “S” Then
txtpen.Text = “SURYA PERMAI”
ElseIf d = “E” Then
txtpen.Text = “ELEK MEDIA KOMPUTINDO”
End If
End Sub
Private Sub Form_Load()
cbokb.AddItem “A-SIM-01”
cbokb.AddItem “I-EDP-02”
cbokb.AddItem “S-MNJ-03”
cbokb.AddItem “E-CDR-04”
cbokb.AddItem “M-RPL-05”
End Sub

tugas6

6rahma

rumus:

Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
txtkelas.Text = “”
txtjur.Text = “”
txtprodi.Text = “”
txttm.Text = “”
txtnu.Text = “”
txtup.Text = “”
txtbps.Text = “”
txtub.Text = “”
txtbp.Text = “”
txttotal.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
txtkelas.Text = “”
txtjur.Text = “”
txtprodi.Text = “”
txttm.Text = “”
txtnu.Text = “”
txtup.Text = “”
txtbps.Text = “”
txtub.Text = “”
txtbp.Text = “”
txttotal.Text = “”
End Sub

Private Sub Cmdproses_Click()
Dim S As String

S = Left(Txtnpm, 1)
If S = “E” Then
txtkelas.Text = “Eksekutif”
txtub.Text = “1250000”
ElseIf S = “R” Then
txtkelas.Text = “Reguler”
txtub.Text = “1000000”
End If
S = Mid(Txtnpm, 6, 2)
If S = “00” Then
txtprodi.Text = “Strata Satu”
If txtkelas.Text = “Reguler” Then
txtbps.Text = “1500000”
Else
txtbps.Text = “1900000”
End If
ElseIf S = “01” Then
txtprodi.Text = “Diploma Tiga”
If txtkelas.Text = “Reguler” Then
txtbps.Text = “1250000”
Else
txtbps.Text = “1650000”
End If
ElseIf S = “02” Then
txtprodi.Text = “Diploma Satu”
If txtkelas.Text = “Reguler” Then
txtbps.Text = “1250000”
Else
txtbps.Text = “1350000”
End If
End If

S = Mid(Txtnpm, 5, 1)
If S = “1” Then
txtjur.Text = “Sistem Informasi”
ElseIf S = “2” Then
txtjur.Text = “Manajemen Informatika”
ElseIf S = “3” Then
txtjur.Text = “Manajemendan Komp. Akuntansi”
End If

txttm.Text = “20” & Mid(Txtnpm.Text, 3, 2)
txtnu.Text = Right(Txtnpm, 3)
If txtprodi.Text = “Strata Satu” Then
txtup.Text = “200000”
txtbp.Text = “600000”
Else
If txtprodi.Text = “Diploma Tiga” Then
txtup.Text = “150000”
txtbp.Text = “600000”
Else
If txtprodi.Text = “Diploma Satu” Then
txtup.Text = “150000”
txtbp.Text = “600000”
End If
End If
End If
txttotal.Text = Val(txtup.Text) + Val(txtbps.Text) + Val(txtub.Text) + Val(txtbp.Text)
End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub

tugas7

7rahma

rumus:

Private Sub Cmdbatal_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtprodi.Text = “”
txttm.Text = “”
txtnu.Text = “”
txtbp.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtprodi.Text = “”
txttm.Text = “”
txtnu.Text = “”
txtbp.Text = “”
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
txtjur.Text = “Sistem Informasi”
ElseIf S = “2” Then
txtjur.Text = “Teknik Informatika”
ElseIf S = “3” Then
txtjur.Text = “Manajemen Informatika”
ElseIf S = “4” Then
txtjur.Text = “Manajemen & Komp. Akuntansi”
End If
S = Mid(txtnpm.Text, 4, 2)
If S = “00” Then
txtprodi.Text = “Strata Satu”
txtbp.Text = “1950000”
ElseIf S = “01” Then
txtprodi.Text = “Diploma Empat”
txtbp.Text = “1750000”
ElseIf S = “02” Then
txtprodi.Text = “Diploma Tiga”
txtbp.Text = “1650000”
ElseIf S = “03” Then
txtprodi.Text = “Diploma Dua”
txtbp.Text = “1450000”
End If
txtnu.Text = Right(txtnpm.Text, 3)

End Sub

Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub

tugas8

8rahma

rumus:

Private Sub Cbokode_Click()
Dim kk, jk, hs As String
Select Case Cbokode.Text
Case “Asus A43SA”
Txtjk.Text = “Asus A53SA-VX090D”
Txths.Text = “5500000”
Case “Asus A43SD”
Txtjk.Text = “Asus A43SD-VX052D”
Txths.Text = “4500000”
Case “Asus A43SJ”
Txtjk.Text = “Asus A43SJ-VX792D”
Txths.Text = “4300000”
Case “Asus A43TA”
Txtjk.Text = “Asus A43TA-VX034D ”
Txths.Text = “4900000”
Case “Asus A43SL”
Txtjk.Text = “Asus A43SL-VX264SL”
Txths.Text = “4300000”
Case “Apple MD311”
Txtjk.Text = “Apple MacBook Pro MD311”
Txths.Text = “19300000”
Case “Apple MD313”
Txtjk.Text = “Apple MacBook Pro MD313”
Txths.Text = “24200000”
Case “Apple MD314”
Txtjk.Text = “Apple MacBook Pro MD314”
Txths.Text = “11900000”
Case “Apple MD322”
Txtjk.Text = “Apple MacBook Pro MD322”
Txths.Text = “14700000”
Case “Apple MC965”
Txtjk.Text = “Apple MacBook Air MC965”
Txths.Text = “19300000”
End Select
End Sub

Private Sub Cmdhitunglagi_Click()
Cbokode.SetFocus
Cbokode.Text = “”
Txtjk.Text = “”
Txths.Text = “”
Txtjj.Text = “”
Txthp.Text = “”
Txtdiscn.Text = “”
Txttotal.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdproses_Click()
Txthp.Text = Val(Txtjj.Text) * Val(Txths.Text)
If Txthp.Text > 40000000 Then
Txtdiscn.Text = Val(Txthp.Text) * 0.15
ElseIf Txthp.Text > 35000000 Then
Txtdiscn.Text = Val(Txthp.Text) * 0.1
ElseIf Txthp.Text > 30000000 Then
Txtdiscn.Text = Val(Txthp.Text) * 0.5
ElseIf Txthp.Text > 25000000 Then
Txtdiscn.Text = Val(Txthp.Text) * 0.2
End If
Txttotal.Text = Val(Txthp.Text) – Val(Txtdiscn.Text)
End Sub

Private Sub Form_Load()
Cbokode.AddItem “Asus A43SA”
Cbokode.AddItem “Asus A43SD”
Cbokode.AddItem “Asus A43SJ”
Cbokode.AddItem “Asus A43TA”
Cbokode.AddItem “Asus A43SL”
Cbokode.AddItem “Apple MD311”
Cbokode.AddItem “Apple MD313”
Cbokode.AddItem “Apple MD314”
Cbokode.AddItem “Apple MD322”
Cbokode.AddItem “Apple MC965”
End Sub

tugas9

9rahma

rumus:

Private Sub Cmdbatal_Click()
txtkode.SetFocus
txtkode.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttt.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
txtkode.SetFocus
txtkode.Text = “”
txtjb.Text = “”
txtpeng.Text = “”
txttt.Text = “”
txtpenerbit.Text = “”
txtharga.Text = “”
End Sub
Private Sub Cmdproses_Click()
Dim S As String
txttt.Text = “20” & Right(txtkode, 2)
S = Mid(txtkode, 3, 3)
If S = “SIM” Then
txtjb.Text = “Sistem Informasi Manajemen”
txtpeng.Text = “Andra Setiawan”
txtharga.Text = “75900”

ElseIf S = “EDP” Then
txtjb.Text = “Elektronik Data Processing”
txtpeng.Text = “Desi Istiqomah”
txtharga.Text = “62000”

ElseIf S = “MNJ” Then
txtjb.Text = “Manajemen”
txtpeng.Text = “Sandy Fitra jaya”
txtharga.Text = “42000”

ElseIf S = “CDR” Then
txtjb.Text = “Corel Draw”
txtpeng.Text = “Tri Indah Sari”
txtharga.Text = “53000”

ElseIf S = “RPL” Then
txtjb.Text = “Rekayasa Perangkat Lunak”
txtpeng.Text = “Ernita Sari”
txtharga.Text = “83000”
End If
S = Left(txtkode, 1)
If S = “A” Then
txtpenerbit.Text = “Andi Offset Yogyakarta”
ElseIf S = “I” Then
txtpenerbit.Text = “Indah Surabaya”
ElseIf S = “S” Then
txtpenerbit.Text = “Salemba Empat”
ElseIf S = “E” Then
txtpenerbit.Text = “Elek Media Komputindo”
ElseIf S = “M” Then
txtpenerbit.Text = “Maxicom”
End If
End Sub

tugas10

10rahma

rumus:

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
Txtmnk.SetFocus
Txtmnk.Text = “”
Txtmn.Text = “”
Txtgol.Text = “”
Txtks.Text = “”
Txts.Text = “”
Txtt.Text = “”
Txtj.Text = “”
Txtb.Text = “”
Txtgapok.Text = “”
Txttnj.Text = “”
Txttotal.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim r As String

r = Mid(Txtmn.Text, 5, 1)
If r = “A” Then
Txtgol = “A”
Txtj.Text = “MANAGER”
Txtgapok.Text = “4000000”
Txttnj.Text = “1025000”
ElseIf r = “B” Then
Txtgol.Text = “B”
Txtj.Text = “Ka.SEKSI”
Txtgapok.Text = “3500000”
Txttnj.Text = “975000”
ElseIf r = “C” Then
Txtgol.Text = “C”
Txtj.Text = “STAFF”
Txtgapok.Text = “3000000”
Txttnj.Text = “925000”
End If
r = Right(Txtmn.Text, 3)
If r = “KEU” Then
Txtb.Text = “ACCOUNTING”
ElseIf r = “ADM” Then
Txtb.Text = “ADMINISTRASI”
ElseIf r = “SDM” Then
Txtb.Text = “GENERAL AFFAIR”
ElseIf r = “EDP” Then
Txtb.Text = “IT UNIT”
ElseIf r = “SPM” Then
Txtb.Text = “SECURITY”
End If
r = Mid(Txtmn.Text, 7, 1)
If r = “S” Then
kode = “S”
Status = “SINGEL”
ElseIf r = “M” Then
kode = “M”
Status = “MENIKAH”
ElseIf r = “J” Then
kode = “J”
Status = “JANDA”
ElseIf r = “D” Then
kode = “D”
Status = “DUDA”
End If
Txtks.Text = kode
Txts.Text = Status
Txtt.Text = Left(Txtmn.Text, 4)
Txttotal.Text = Val(Txtgapok.Text) + Val(Txttnj.Text)
End Sub

Private Sub Form_Activate()
Txtmnk.SetFocus
End Sub

Private Sub txtmnk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtmn.SetFocus
End If
End Sub

Private Sub cmdbatal_Click()
Txtmnk.SetFocus
Txtmnk.Text = “”
Txtmn.Text = “”
Txtgol.Text = “”
Txtks.Text = “”
Txts.Text = “”
Txtt.Text = “”
Txtj.Text = “”
Txtb.Text = “”
Txtgapok.Text = “”
Txttnj.Text = “”
Txttotal.Text = “”
End Sub

Advertisements

tugas 3

tugas 1

1

Private Sub Check1_Click()

If Check1.Value = 1 Then

Label1.FontBold = True

Else

Label1.FontBold = False

End If

End Sub

Private Sub Check2_Click()

If Check2.Value = 1 Then

Label1.FontItalic = True

Else

Label1.FontItalic = False

End If

End Sub

Private Sub Check3_Click()

If Check3.Value = 1 Then

Label1.FontUnderline = True

Else

Label1.FontUnderline = False

End If

End Sub

Private Sub Check4_Click()

If Check4.Value = 1 Then

Label1.FontStrikethru = True

Else

Label1.FontStrikethru = False

End If

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub Option1_Click()

‘membuatteks berwarna merah

Label1.ForeColor = vbRed

End Sub

Private Sub Option2_Click()

‘membuatteks berwarna hijau

Label1.ForeColor = vbGreen

End Sub

Private Sub Option3_Click()

‘membuatteks berwarna biru

Label1.ForeColor = vbBlue

End Sub

Private Sub Option4_Click()

‘membuatteks berwarna kuning

Label1.ForeColor = vbYellow

End Sub

tugas 2

2

Private Sub Check1_Click()

If Check1.Value = 1 Then

Label2.FontBold = True

Else

Label2.FontBold = False

End If

End Sub

Private Sub Check2_Click()

If Check2.Value = 1 Then

Label2.FontItalic = True

Else

Label2.FontItalic = False

End If

End Sub

Private Sub Check3_Click()

If Check3.Value = 1 Then

Label2.FontUnderline = True

Else

Label2.FontUnderline = False

End If

End Sub

Private Sub Check4_Click()

If Check4.Value = 1 Then

Label2.FontStrikethru = True

Else

Label2.FontStrikethru = False

End If

End Sub

Private Sub Command1_Click()

Label2.Caption = Text1.Text

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Option1_Click()

‘membuat teks berwarna biru

Label2.ForeColor = vbBlue

End Sub

Private Sub Option2_Click()

‘membuat teks berwarna merah

Label2.ForeColor = vbRed

End Sub

Private Sub Option3_Click()

‘membuat teks berwarna hijau

Label2.ForeColor = vbGreen

End Sub

Private Sub Option4_Click()

‘membuat teks berwarna kuning

Label2.ForeColor = vbYellow

End Sub

tugas 3 dan 4

3

Private Sub Combo1_Click()

Dim nama, jurusan, HM As String

Select Case Combo1.Text

Case “14100416”

nama = “fatmawati”

jurusan = “Sistem Informasi”

Case “14100409”

nama = “kharisma riyanti”

jurusan = “Sistem Informasi”

Case “14201053”

nama = “rahmawati”

jurusan = “manajemen informatika”

Case “14100417”

nama = “indah aryanoci”

jurusan = “Sistem Informasi”

Case “14100410”

nama = “indriyani”

jurusan = “Sistem Informasi”

Case “14100408”

nama = “niken marseliyona”

jurusan = “Sistem Informasi”

Case “14100427”

nama = “rana anhari”

jurusan = “Sistem Informasi”

Case “14100412”

nama = “heni kartika”

jurusan = “Sistem Informasi”

Case “14100421”

nama = “ovi teria”

jurusan = “Sistem Informasi”

Case “14201052”

nama = “tia alviana”

jurusan = “manajemen informatika”

End Select

Text1.Text = nama

Text2.Text = jurusan

Text3.SetFocus

End Sub

Private Sub Command1_Click()

Dim NA As Integer

Dim HM As String

quis = Val(Text3.Text)

tugas = Val(Text4.Text)

uts = Val(Text5.Text)

uas = Val(Text6.Text)

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

Text7.Text = NA

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

Text8.Text = HM

End Sub

Private Sub Command2_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

Private Sub Form_Load()

Combo1.AddItem “14100416”

Combo1.AddItem “14100409”

Combo1.AddItem “14201053”

Combo1.AddItem “14100417”

Combo1.AddItem “14100410”

Combo1.AddItem “14100408”

Combo1.AddItem “14100427”

Combo1.AddItem “14100412”

Combo1.AddItem “14100421”

Combo1.AddItem “14201052”

End Sub

Private Sub text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub

Private Sub text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

Private Sub text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text6.SetFocus

End If

End Sub

tugas 5

4

Private Sub Comb_Click()

Dim gapok, pajak, tunjangan, total As Variant

Select Case Comb.Text

Case “I”

gapok = 1500000

tunjangan = 150000

Case “II”

gapok = 2000000

tunjangan = 200000

Case “III”

gapok = 2500000

tunjangan = 250000

Case “IV”

gapok = 3000000

tunjangan = 300000

Case Else

gapok = 0

tunjangan = 0

End Select

total = gapok + tunjangan

pajak = total * 0.1

Text3.Text = gapok

Text4.Text = tunjangan

Text5.Text = pajak

Text6.Text = total – pajak

End Sub

Private Sub Command1_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

Comb.AddItem “I”

Comb.AddItem “II”

Comb.AddItem “III”

Comb.AddItem “IV”

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Tugas 2

1

tugas 1.1

Private Sub Command1_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

Private Sub Command3_Click()

Unload Me

End Sub

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

2

tugas 2.2 dan 2.3

Private Sub Command1_Click()

Text3.Text = Val(Text1) * Val(TEXT2)

End Sub  

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

TEXT2 = “”

Text3 = “”

End Sub  

Private Sub Command3_Click()

End End Sub  

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.Text = Val(Text1) * Val(TEXT2)

End If

End Sub

3

tugas 3.4 dan 3.5

Private Sub Command1_Click()

Text2.Text = Val(Text1) * 0.1

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

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”  

End Sub

Private Sub Command3_Click()

End  

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.Text = Val(Text1) * 0.1

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

End If

End Sub

4

tugas 4.6 dan 4.7

Private Sub Command1_Click()

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

Text6.Text = Val(Text4) * Val(Text5)

Text9.Text = Val(Text7) – Val(Text8)

Text12.Text = Val(Text10) / Val(Text11)

End Sub  

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

Text7 = “”

Text8 = “”

Text9 = “”

Text10 = “”

Text11 = “”

Text12 = “”

End Sub  

Private Sub Command3_Click()

End

End Sub    

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text11.SetFocus

End If

End Sub    

Private Sub Text11_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

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

Text6.Text = Val(Text4) * Val(Text5)

Text9.Text = Val(Text7) – Val(Text8)

Text12.Text = Val(Text10) / Val(Text11)

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

End If

End Sub    

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub    

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text7.SetFocus

End If

End Sub      

Private Sub Text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text8.SetFocus

End If

End Sub    

Private Sub Text8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text10.SetFocus

End If

End Sub    

5

tugas 5.8 dan 5.9

Private Sub Command1_Click()

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

Text5.Text = Val(Text4) * 0.1

Text6.Text = Val(Text4) – Val(Text5)

End Sub  

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

Text4 = “”

Text5 = “”

Text6 = “”

End Sub      

Private Sub Command3_Click()

End End Sub  

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) + Val(Text2) – Val(Text3)

Text5.Text = Val(Text4) * 0.1

Text6.Text = Val(Text4) – Val(Text5)

End If

End Sub

Melimpah, Rumput Laut Indonesia Kurang Terserap

Jum’at,  16 Januari 2015  −  11:19 WIBMelimpah, Rumput Laut Indonesia Kurang Terserap

Rumput laut Indonesia kurang terserap. Foto: Ilustrasi/Istimewa

JAKARTA – Kalangan pengusaha rumput laut menyatakan, bahan baku rumput laut untuk industri persediaannya masih tinggi.

Padahal sebelumnya, pemerintah dalam hal ini Kementerian Perindustrian (Kemenperin) menyatakan, bahwa industri hilir kelautan kekurangan bahan baku akibat masih maraknya penjualan bahan mentah keluar negeri baik legal maupun ilegal.

Ketua Asosiasi Rumput Laut Indonesia (ARLI), Safari Azis mengatakan, penyerapan rumput laut Indonesia oleh industri nasional masih relatif rendah.

Hal ini dikarenakan daya beli industri Indonesia untuk bahan baku rumput laut masih rendah, jika dibandingkan dengan pembeli dari industri luar negeri seperti China, Filipina dan Chile.

“Angka ekspornya pasti lebih tinggi karena penyerapan dari industri pengolahan kita masih kecil. Para pelaku lebih suka mengekspor rumput laut kering karena di luar harganya tinggi,” kata dia dalam rilisnya, Jumat (16/1/2015).

Berdasarkan data dari Direktorat Jenderal Perikanan Budidaya, Kementerian Kelautan dan Perikanan (KKP) menyebutkan bahwa 2013 produksi nasional rumput laut mencapai 930.000 ton kering. Jumlah yang diekspor mencapai 176.000 ton kering dengan nilai USD162,4 juta.

Sementara, jumlah yang diolah lebih kecil yakni hanya mencapai 120.000 ton kering. Berdasarkan data tersebut, setelah diekspor ketersediaan rumput laut mencapai 640.000 ton kering.

Safari mengatakan, pemerintah seharusnya dapat lebih bijaksana dalam memandang permasalahan di lapangan dan mendorong daya saing industri nasional dalam rangka hilirisasi.

“Kita harapkan industri rumput laut jalan, ekspornya tetap jalan karena peluangnya tinggi untuk meningkatkan perolehan devisa dan membantu kelancaran pasar rumput laut yang dihasilkan pembudidaya rumput laut di daerah pesisir dan pulau-pulau,” terangnya.

Menurutnya, daya beli industri nasional seharusnya dapat ditingkatkan dan mengikuti harga internasional. Jadi, yang terjadi di lapangan itu bukan bahan baku rumput laut yang kekurangan, melainkan penyerapan oleh industrinya yang kecil.

Menanggapi ekspor ilegal rumput laut, dia menilai bahwa kemungkinan adanya ekspor ilelgal sangat kecil. Untuk melakukan ekspor anggota ARLI harus memliki sederetan berbagai dokumen legal dan pergerakannya diawasi badan yang berwenang.

Pihaknya tidak yakin terjadi ekspor ilegal, karena petugas Bea Cukai tidak akan ada yang membiarkan adanya penyelundup.

“Jangan karena industri dalam negeri dikatakan kekurangan bahan baku lalu dianggap diselundupkan, padahal seharusnya ketersediaan bahan baku itu bisa diserap industri nasional,” pungkas Safari.

sumber  : sindoNews.com

Beasiswa S-1 Teknik di Kampus Australia

.
Kamis, 15 Januari 2015 – 19:01 wib

Beasiswa S-1 Teknik di Kampus Australia

RMIT Australia menyediakan lima beasiswa bidang teknik untuk pelajar internasional. (Foto: shutterstock)

JAKARTA – RMIT University, Australia, menawarkan beasiswa untuk mahasiswa jenjang sarjana dalam bidang teknik. Tahun ini, ada lima beasiswa yang dapat diperebutkan.

Beasiswa dapat diambil untuk menempuh studi di School of Civil, Environment and Chemical Engineering, RMIT, Australia. Pihak kampus akan menyediakan dana bantuan studi senilai 5.000 dolar Australia selama satu tahun.

Pelamar beasiswa dapat memilih satu dari berbagai bidang studi dalam bidang teknik sipil, lingkungan, maupun kimia berikut ini:

Civil and Infrastructure (Honours/skripsi);

– Civil and Infrastructure (Honours)/Business (Management);

– Environmental Engineering (Honours);

– Environmental Science/Environmental Engineering (Honours);

– Chemical Engineering (Honours);

– Chemical Engineering (Honours)/Business (Management);

– Chemical Engineering (Honours)/Biotechnology;

– Applied Chemistry/Chemical Engineering (Honours); dan

– Food Technology and Nutrition/Chemical Engineering (Honours).

Guna dapat melamar beasiswa ini, maka Anda harus memiliki nilai pendidikan menengah atas sesuai standar pendidikan Australia. Dalam berkas lamaran, Anda harus menyertakan sertifikat nilai yang dilegalisasi dengan penjelasan tentang nilai-nilai tersebut. Semua dokumen pendaftaran harus diterjemahkan ke dalam bahasa Inggris.

Pada tahun ajaran 2015, pendaftaran dilakukan secara online. Daftar pertanyaan ini dapat membantu Anda mempersiapkan jawaban yang akan dipakai saat mendaftar.

– Apa prestasi akademis yang pernah Anda raih? (maksimal 1.800 karakter);

– Mengapa Anda ingin mempelajari bidang teknik sipil, infrastruktur, kimia, atau lingkungan? (maksimal 1.800 karakter);

– Apa rencana Anda dalam pada industri teknik ini? (maksimal 1.800 karakter);

– Apa saja keahlian atau kualifikasi dalam bidang teknik dan atau perangkat lunak yang Anda miliki?

– Apa minat Anda di luar sekolah?

Anda harus mencantumkan SCECE Academic Merit sebagai judul e-mail lamaran beasiswa. Pada badan e-mail, cantumkan juga nama, tanggal lahir, dan alamat yang Anda pakai saat pendaftaran. Batas pendaftaran beasiswa adalah 12 Maret 2015.

sumber : news.OkeZone.com

SNMPTN 2015 Tidak Diskriminatif

Jum’at, 16 Januari 2015 – 10:07 wib

SNMPTN 2015 Tidak Diskriminatif

Siswa penyandang disabilitas juga bisa mendaftar SNMPTN 2015 pada prodi yang sesuai kemampuan. (Foto: dok. Okezone)

JAKARTA – Tahun lalu, Seleksi Nasional Masuk Perguruan Tinggi Negeri (SNMPTN) menuai kritik karena dianggap diskriminatif terhadap penyandang disabilitas. Tahun ini, tidak ada syarat khusus bagi penyandang disabilitas yang ingin mendaftar SNMPTN.

Menteri Riset, Teknologi dan Pendidikan Tinggi (Menristekdikti), M Nasir menegaskan, pihaknya akan memberi perhatian khusus kepada para penyandang disabilitas yang mendaftar ke PTN. “Semua mendapatkan hak yang sama, termasuk juga penyandang disabilitas,” kata Nasir.

Dalam peluncuran SNMPTN 2015 baru-baru ini, Ketua Umum SNMPTN 2015 ROchmat Wahab menjamin para penyandang disabilitas bisa masuk PTN mana saja tanpa dibatasi. Namun, dia juga mengingatkan agar piliha kuliah tersebut sesuai kemampuan masing-masing.

“Mereka bisa daftar di program studi (prodi) yang dapat berhasil dijalani baik dari tes masuk maupun perkuliahan,” ucapnya.

Rektor Universitas Negeri Yogyakarta (UNY) ini mengaku, banyak PTN memang belum optimal memberikan akses pada berbagai fasilitas mereka kepada para penyandang disabilitas. Meski demikian, dia terus mendorong agar perguruan tinggi memberikan akses bagi mahasiswa berkebutuhan khusus tersebut.

“Harapan kami, mereka pilih prodi yang sesuai dengan kemampuannya,” ungkap Rochmat.

Jum’at, 16 Januari 2015 – 10:07 wib

SNMPTN 2015 Tidak Diskriminatif

Siswa penyandang disabilitas juga bisa mendaftar SNMPTN 2015 pada prodi yang sesuai kemampuan. (Foto: dok. Okezone)

JAKARTA – Tahun lalu, Seleksi Nasional Masuk Perguruan Tinggi Negeri (SNMPTN) menuai kritik karena dianggap diskriminatif terhadap penyandang disabilitas. Tahun ini, tidak ada syarat khusus bagi penyandang disabilitas yang ingin mendaftar SNMPTN.

Menteri Riset, Teknologi dan Pendidikan Tinggi (Menristekdikti), M Nasir menegaskan, pihaknya akan memberi perhatian khusus kepada para penyandang disabilitas yang mendaftar ke PTN. “Semua mendapatkan hak yang sama, termasuk juga penyandang disabilitas,” kata Nasir.

Dalam peluncuran SNMPTN 2015 baru-baru ini, Ketua Umum SNMPTN 2015 ROchmat Wahab menjamin para penyandang disabilitas bisa masuk PTN mana saja tanpa dibatasi. Namun, dia juga mengingatkan agar piliha kuliah tersebut sesuai kemampuan masing-masing.

“Mereka bisa daftar di program studi (prodi) yang dapat berhasil dijalani baik dari tes masuk maupun perkuliahan,” ucapnya.

Rektor Universitas Negeri Yogyakarta (UNY) ini mengaku, banyak PTN memang belum optimal memberikan akses pada berbagai fasilitas mereka kepada para penyandang disabilitas. Meski demikian, dia terus mendorong agar perguruan tinggi memberikan akses bagi mahasiswa berkebutuhan khusus tersebut.

“Harapan kami, mereka pilih prodi yang sesuai dengan kemampuannya,” ungkap Rochmat.v

sumber : News.OkeZone.com

Bagaimana Bila Presiden Tak Lantik Komjen Budi? Ini Kata Ketua DPR

Jakarta – DPR telah menyetujui Komjen Budi Gunawan sebagai Kapolri lewat sidang paripurna dan suratnya telah diserahkan ke Presiden Joko Widodo. Namun, bagaimana apabila Jokowi kemudian berubah pikiran dan tidak melantik Budi?

“Kita tunggu perkembangannya hari ini. Kita tunggu kebijakan presiden apa. Kita tahu Budi Gunawan tersangka, kita hargai dan hormati KPK,” kata Ketua DPR Setya Novanto kepada wartawan di Gedung DPR, Senayan, Jakarta Pusat, Jumat (16/1/2015).

Surat dari DPR yang menyatakan persetujuan mantan ajudan Megawati itu sebagai Kapolri telah diserahkan oleh Novanto ke Jokowi di Istana pada Kamis (15/1) kemarin. Saat menerima surat tersebut, Novanto mengatakan tidak ada perbincangan khusus dengan Jokowi tentang nasib Budi Gunawan.

“Tidak ada. Kemarin kebetulan saat saya di Istana sama presiden, ada Pak Luhut (Pandjaitan). Saya janji mau tengok kantornya,” ucap Waketum Golkar kubu Aburizal Bakrie ini.

Dengan telah diserahkannya surat tersebut, tugas DPR terkait calon Kapolri sudah usai. Kendali ada di tangan Jokowi apakah hendak melantik Komjen Budi atau tidak sebagai Kapolri.

“Mengenai masalah Budi Gunawan, DPR telah menjalankan tugas berdasarkan UU, menjalankan fungsi di paripurna,” ujarnya.

Budi Gunawan telah ditetapkan sebagai tersangka kasus rekening gendut oleh KPK. Gelombang luas penolakan terhadap pelantikan Komjen Budi sebagai Kapolri muncul dari berbagai pihak, termasuk dari relawan pendukung Jokowi.

Jakarta – DPR telah menyetujui Komjen Budi Gunawan sebagai Kapolri lewat sidang paripurna dan suratnya telah diserahkan ke Presiden Joko Widodo. Namun, bagaimana apabila Jokowi kemudian berubah pikiran dan tidak melantik Budi?

“Kita tunggu perkembangannya hari ini. Kita tunggu kebijakan presiden apa. Kita tahu Budi Gunawan tersangka, kita hargai dan hormati KPK,” kata Ketua DPR Setya Novanto kepada wartawan di Gedung DPR, Senayan, Jakarta Pusat, Jumat (16/1/2015).

Surat dari DPR yang menyatakan persetujuan mantan ajudan Megawati itu sebagai Kapolri telah diserahkan oleh Novanto ke Jokowi di Istana pada Kamis (15/1) kemarin. Saat menerima surat tersebut, Novanto mengatakan tidak ada perbincangan khusus dengan Jokowi tentang nasib Budi Gunawan.

“Tidak ada. Kemarin kebetulan saat saya di Istana sama presiden, ada Pak Luhut (Pandjaitan). Saya janji mau tengok kantornya,” ucap Waketum Golkar kubu Aburizal Bakrie ini.

Dengan telah diserahkannya surat tersebut, tugas DPR terkait calon Kapolri sudah usai. Kendali ada di tangan Jokowi apakah hendak melantik Komjen Budi atau tidak sebagai Kapolri.

“Mengenai masalah Budi Gunawan, DPR telah menjalankan tugas berdasarkan UU, menjalankan fungsi di paripurna,” ujarnya.

Budi Gunawan telah ditetapkan sebagai tersangka kasus rekening gendut oleh KPK. Gelombang luas penolakan terhadap pelantikan Komjen Budi sebagai Kapolri muncul dari berbagai pihak, termasuk dari relawan pendukung Jokowi.

Jakarta – DPR telah menyetujui Komjen Budi Gunawan sebagai Kapolri lewat sidang paripurna dan suratnya telah diserahkan ke Presiden Joko Widodo. Namun, bagaimana apabila Jokowi kemudian berubah pikiran dan tidak melantik Budi?

“Kita tunggu perkembangannya hari ini. Kita tunggu kebijakan presiden apa. Kita tahu Budi Gunawan tersangka, kita hargai dan hormati KPK,” kata Ketua DPR Setya Novanto kepada wartawan di Gedung DPR, Senayan, Jakarta Pusat, Jumat (16/1/2015).

Surat dari DPR yang menyatakan persetujuan mantan ajudan Megawati itu sebagai Kapolri telah diserahkan oleh Novanto ke Jokowi di Istana pada Kamis (15/1) kemarin. Saat menerima surat tersebut, Novanto mengatakan tidak ada perbincangan khusus dengan Jokowi tentang nasib Budi Gunawan.

“Tidak ada. Kemarin kebetulan saat saya di Istana sama presiden, ada Pak Luhut (Pandjaitan). Saya janji mau tengok kantornya,” ucap Waketum Golkar kubu Aburizal Bakrie ini.

Dengan telah diserahkannya surat tersebut, tugas DPR terkait calon Kapolri sudah usai. Kendali ada di tangan Jokowi apakah hendak melantik Komjen Budi atau tidak sebagai Kapolri.

“Mengenai masalah Budi Gunawan, DPR telah menjalankan tugas berdasarkan UU, menjalankan fungsi di paripurna,” ujarnya.

Budi Gunawan telah ditetapkan sebagai tersangka kasus rekening gendut oleh KPK. Gelombang luas penolakan terhadap pelantikan Komjen Budi sebagai Kapolri muncul dari berbagai pihak, termasuk dari relawan pendukung Jokowi.

sumber : detikNews.com