Tugas 5

2 Mar

rudi
Private Sub CmdProses_Click()
Dim jur, prodi As String
Txttahun.Text = “20” & Left(Txtnpm.Text, 2)
S = Mid(Txtnpm.Text, 3, 1)
If jur = “1” Then
Txtjurusan.Text = “Sistem Informasi”
ElseIf jur = “2” Then
Txtjurusan.Text = “Manajemen Informatika”
ElseIf jur = “3” Then
Txtjurusan.Text = “Tehnik Informatika”
ElseIf jur = “4” Then
Txtjurusan.Text = “Manajemen & Komp. Akuntansi”
End If

prodi = Mid(Txtnpm.Text, 4, 2)
If prodi = “00” Then
Txtprodi.Text = “Strata Satu”
ElseIf S = “02” Then
Txtprodi.Text = “Diploma Tiga”
ElseIf S = “02” Then
Txtprodi.Text = “Strata Satu”
ElseIf S = “03” Then
Txtprodi.Text = “Diploma Satu”
End If

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

End Sub
Private Sub CmdBaru_Click()
Data1.Recordset.AddNew
End Sub

Private Sub CmdSimpan_Click()
Data1.Recordset.Update
End Sub

Private Sub CmdHapus_Click()
Data1.Recordset.Delete
End Sub

Private Sub CmdKeluar_Click()
End
End Sub

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

Tugas VB4

31 Jan

Soal Quis 1

Soal 1

Image

Source Kode

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

TxtNIK.SetFocus

End If

End Sub

 

 

Private Sub Cmdbtl_Click()

Txtgol.Text = “”

TxtKS.Text = “”

TxtSTS.Text = “”

TxtTH.Text = “”

TxtJBT.Text = “”

Txtbag.Text = “”

TxtGPK.Text = “”

TxtTJN.Text = “”

TxtTOT.Text = “”

End Sub

 

 

Private Sub Cmdlg_Click()

Txtnama.SetFocus

Txtnama.Text = “”

TxtNIK.Text = “”

Txtgol.Text = “”

TxtKS.Text = “”

TxtSTS.Text = “”

TxtTH.Text = “”

TxtJBT.Text = “”

Txtbag.Text = “”

TxtGPK.Text = “”

TxtTJN.Text = “”

TxtTOT.Text = “”

End Sub

 

Private Sub Cmdproses_Click()

Dim JBT, BG As String

Dim GP, TJ, TG As Currency

 

TxtTH.Text = Left(TxtNIK.Text, 4)

Gol = Mid(TxtNIK.Text, 5, 1)

If Gol = “A” Then

    Gol = “A”

    JBT = “Manager”

    GP = “4000000”

    TJ = “1025000”

 

ElseIf Gol = “B” Then

    Gol = “B”

    JBT = “Ka. Seksi”

    GP = “3500000”

    TJ = “975000”

 

ElseIf Gol = “C” Then

    Gol = “C”

    JBT = “Staff”

    GP = “3000000”

    TJ = “925000”

   

End If

 

 

    ks = Mid(TxtNIK.Text, 7, 1)

    If ks = “S” Then

    ks = “S”

    STS = “Single”

   

    ElseIf ks = “M” Then

    ks = “M”

    STS = “Menikah”

   

    ElseIf ks = “J” Then

    ks = “J”

    STS = “Janda”

   

    ElseIf ks = “D” Then

    ks = “D”

    STS = “Duda”

       

    End If

   

    bag = Right(TxtNIK.Text, 3)

    If bag = “KEU” Then

    bag = “KEU”

    bag = “Accounting”

   

    ElseIf bag = “ADM” Then

    bag = “ADM”

    bag = “Administrasi”

   

    ElseIf bag = “SDM” Then

    bag = “SDM”

    bag = “General Affair”

   

    ElseIf bag = “EDP” Then

    bag = “EDP”

    bag = “IT Unit”

   

    ElseIf bag = “SPM” Then

    bag = “SPM”

    bag = “Security”

    End If

   

Txtgol.Text = Gol

TxtKS.Text = ks

TxtSTS.Text = STS

TxtJBT.Text = JBT

Txtbag.Text = bag

TxtGPK.Text = GP

TxtTJN.Text = TJ

TxtTOT.Text = Val(TxtGPK.Text) + Val(TxtTJN.Text)

End Sub

 

Soal 2

Image

Source Kode

 

Private Sub CmdBATAL_Click()

TxtKODE.SetFocus

TxtKODE.Text = “”

TxtJUDUL.Text = “”

TxtPENGARANG.Text = “”

TxtTAHUN.Text = “”

TxtPENERBIT.Text = “”

TxtHARGA.Text = “”

End Sub

 

Private Sub CmdKELUAR_Click()

End

End Sub

 

 

Private Sub CmdLAGI_Click()

TxtKODE.SetFocus

TxtKODE.Text = “”

TxtJUDUL.Text = “”

TxtPENGARANG.Text = “”

TxtTAHUN.Text = “”

TxtPENERBIT.Text = “”

TxtHARGA.Text = “”

End Sub

 

Private Sub CmdPROSES_Click()

Dim JDL, PNGR, HRG, PNBT As String

THN = “20” & Mid(TxtKODE.Text, 5, 2)

TxtTAHUN.Text = THN

 

KODE = Left(TxtKODE.Text, 3)

If KODE = “SIM” Then

    KODE = “SIM”

    JDL = “Sistem Informasi Manajemen”

    PNGR = “Fadiya Ulfa”

    HRG = “75900”

 

ElseIf KODE = “EDP” Then

    KODE = “EDP”

    JDL = “Elektronik Data Processing”

    PNGR = “Nurul Agustina”

    HRG = “62000”

 

ElseIf KODE = “MNJ” Then

    KODE = “MNJ”

    JDL = “Manajemen”

    PNGR = “Rian Hidayat”

    HRG = “42000”

   

ElseIf KODE = “CDR” Then

    KODE = “CDR”

    JDL = “Corel Draw”

    PNGR = “Siti Nur Khotimah”

    HRG = “53000”

   

ElseIf KODE = “RPL” Then

    KODE = “RPL”

    JDL = “Rekayasa Perangkat Lunak”

    PNGR = “Winda Erlianti”

    HRG = “83000”

End If

 

TxtJUDUL.Text = JDL

TxtPENGARANG.Text = PNGR

TxtHARGA.Text = HRG

 

KOD = Right(TxtKODE.Text, 1)

If KOD = “A” Then

    KOD = “A”

    PNBT = “Andi Offset Yogyakarta”

 

ElseIf KOD = “I” Then

    KOD = “I”

    PNBT = “Indah Surabaya”

 

ElseIf KOD = “S” Then

    KOD = “S”

    PNBT = “Salemba Empat”

 

ElseIf KOD = “E” Then

    KOD = “E”

    PNBT = “Elek Media Komputindo”

 

ElseIf KOD = “M” Then

    KOD = “M”

    PNBT = “Maxicom”

End If

 

TxtPENERBIT.Text = PNBT

End Sub

 

Soal 3

Image

Source Kode

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

 

Private Sub CboKODE_Click()

Select Case CboKODE.Text

 

Case “A-SIM-01”

 

Case “I-EDP-02”

 

Case “S-MNJ-03”

 

Case “E-CDR-04”

 

Case “M-RPL-05”

 

End Select

 

End Sub

 

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 JDL, PNGR, HRG, PNBT As String

THN = “20” & Right(CboKODE.Text, 2)

TxtTAHUN.Text = THN

 

KODE = Mid(CboKODE.Text, 3, 3)

If KODE = “SIM” Then

    KODE = “SIM”

    JDL = “Sistem Informasi Manajemen”

    PNGR = “Andra Setiawan”

    HRG = “75900”

 

ElseIf KODE = “EDP” Then

    KODE = “EDP”

    JDL = “Elektronik Data Processing”

    PNGR = “Desi Istiqomah”

    HRG = “62000”

 

ElseIf KODE = “MNJ” Then

    KODE = “MNJ”

    JDL = “Manajemen”

    PNGR = “Sandy Fitrajaya”

    HRG = “42000”

   

ElseIf KODE = “CDR” Then

    KODE = “CDR”

    JDL = “Corel Draw”

    PNGR = “Tri Indah Sari”

    HRG = “53000”

   

ElseIf KODE = “RPL” Then

    KODE = “RPL”

    JDL = “Rekayasa Perangkat Lunak”

    PNGR = “Ernita”

    HRG = “83000”

End If

 

TxtJUDUL.Text = JDL

TxtPENGARANG.Text = PNGR

TxtHARGA.Text = HRG

 

KOD = Left(CboKODE.Text, 1)

If KOD = “A” Then

    KOD = “A”

    PNBT = “Andi Offset Yogyakarta”

 

ElseIf KOD = “I” Then

    KOD = “I”

    PNBT = “Indah Surabaya”

 

ElseIf KOD = “S” Then

    KOD = “S”

    PNBT = “Salemba Empat”

 

ElseIf KOD = “E” Then

    KOD = “E”

    PNBT = “Elek Media Komputindo”

 

ElseIf KOD = “M” Then

    KOD = “M”

    PNBT = “Maxicom”

End If

TxtPENERBIT.Text = PNBT

End Sub

 

Soal 4

Image

Source Kode

 

Private Sub CmdBATAL_Click()

TxtKODE.SetFocus

TxtKODE.Text = “”

TxtJUDUL.Text = “”

TxtPENGARANG.Text = “”

TxtTAHUN.Text = “”

TxtPENERBIT.Text = “”

TxtHARGA.Text = “”

End Sub

 

Private Sub CmdKELUAR_Click()

End

End Sub

 

Private Sub CmdLAGI_Click()

TxtKODE.SetFocus

TxtKODE.Text = “”

TxtJUDUL.Text = “”

TxtPENGARANG.Text = “”

TxtTAHUN.Text = “”

TxtPENERBIT.Text = “”

TxtHARGA.Text = “”

End Sub

 

Private Sub CmdPROSES_Click()

Dim JDL, PNGR, HRG, PNBT As String

TH = “20” & Right(TxtKODE.Text, 2)

TxtTAHUN.Text = TH

 

KODE = Mid(TxtKODE.Text, 3, 3)

If KODE = “SIM” Then

    KODE = “SIM”

    JDL = “Sistem Informasi Manajemen”

    PNGR = “Andra Setiawan”

    HRG = “75900”

 

ElseIf KODE = “EDP” Then

    KODE = “EDP”

    JDL = “Elektronik Data Processing”

    PNGR = “Desi Istiqomah”

    HRG = “62000”

 

ElseIf KODE = “MNJ” Then

    KODE = “MNJ”

    JDL = “Manajemen”

    PNGR = “Sandy Fitrajaya”

    HRG = “42000”

   

ElseIf KODE = “CDR” Then

    KODE = “CDR”

    JDL = “Corel Draw”

    PNGR = “Tri Indah Sari”

    HRG = “53000”

   

ElseIf KODE = “RPL” Then

    KODE = “RPL”

    JDL = “Rekayasa Perangkat Lunak”

    PNGR = “Ernita”

    HRG = “83000”

End If

 

TxtJUDUL.Text = JDL

TxtPENGARANG.Text = PNGR

TxtHARGA.Text = HRG

 

KOD = Left(TxtKODE.Text, 1)

If KOD = “A” Then

    KOD = “A”

    PNBT = “Andi Offset Yogyakarta”

 

ElseIf KOD = “I” Then

    KOD = “I”

    PNBT = “Indah Surabaya”

 

ElseIf KOD = “S” Then

    KOD = “S”

    PNBT = “Salemba Empat”

 

ElseIf KOD = “E” Then

    KOD = “E”

    PNBT = “Elek Media Komputindo”

 

ElseIf KOD = “M” Then

    KOD = “M”

    PNBT = “Maxicom”

End If

TxtPENERBIT.Text = PNBT

End Sub

JK: Tidak ada gunanya ibu kota dipindah dari Jakarta

21 Jan

JK: Tidak ada gunanya ibu kota dipindah dari Jakarta

Setiap kali banjir datang melanda DKI Jakarta, wacana pemindahan ibu kota pun selalu jadi perbincangan hangat di kalangan elit politik maupun masyarakat pada umumnya.

Mantan Wakil Presiden RI, Jusuf Kalla berpendapat pemindahan ibu kota bukanlah solusi yang tepat untuk mengatasi kebanjiran yang hampir tiap tahun datang menyapa warga Jakarta.

“Tidak ada gunanya pindah kalau Jakarta nya tetap banjir dan kumuh,” kata JK dalam jumpa pers di Kantor Presiden, Jumat (18/1).

Menurutnya, perbaikan Jakarta secara berkala akan lebih tepat ketimbang harus memindahkan ibu kota.

“Prioritaskan perbaiki Jakarta, banjirnya diselesaikan, kumuhnya, dan macetnya diselesaikan,” ujarnya.

Ketua PMI ini juga menilai, akan ada hambatan lain jika ibu kota negara tetap dipaksakan pindah.

“Kalau pindah itu ke mana dan kalau cuma kantor yang pindah itu gampang tapi orangnya gimana,” pungkasnya.

Tugas VB 3

15 Jan

Image

Private Sub form_load()
Cbonpm.AddItem “12100331”
Cbonpm.AddItem “12200452”
Cbonpm.AddItem “12300454”
Cbonpm.AddItem “12100211”
End Sub

Private Sub Cbonpm_Click()
Dim nama, jur As String

Select Case Cbonpm.Text
Case “12100331”
nama = “Safrudin”
jur = “Sistem Informasi”
Case “12200452”
nama = “Sugeng”
jur = “Manajemen Informatika”
Case “12300454”
nama = “Ani”
jur = “Komputerisasi Akuntansi”
Case “12100211”
nama = “Rudi Yansah”
jur = “Manajemen Informatika”
End Select
Txtnama.Text = nama
Txtjur.Text = jur
Txtnquis.SetFocus
End Sub

Private Sub Cmdbatal_Click()
Cbonpm.SetFocus
Cbonpm.Text = “”
Txtnama.Text = “”
Txtjur.Text = “”
Txtnquis.Text = “”
Txtntgs.Text = “”
TxtUTS.Text = “”
TxtUAS.Text = “”
TxtNA.Text = “”
TxtHM.Text = “”
End Sub

Private Sub Cmdkel_Click()
End
End Sub

Private Sub Cmdproses_Click()
TxtNA.Text = (Val(Txtnquis.Text) + Val(Txtntgs.Text) + Val(TxtUTS.Text) + Val(TxtUAS.Text)) / 4
Select Case TxtNA.Text
Case Is > 80
TxtHM.Text = “A”
Case Is > 70
TxtHM.Text = “B”
Case Is > 60
TxtHM.Text = “C”
Case Is > 50
TxtHM.Text = “D”
Case Is < 50
TxtHM.Text = “E”
End Select

End Sub

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

 

 

Image

Private Sub Chkitalic_Click()
Lblnama.FontItalic = Chkitalic.Value
End Sub

Private Sub Chktebal_Click()
Lblnama.FontBold = Chktebal.Value
End Sub

Private Sub Cmdok_Click()
Lblnama.Caption = Txtisi.Text
End Sub

Private Sub Cmdselesai_Click()
End
End Sub

Private Sub Optbiru_Click()
Lblnama.ForeColor = vbBlue
End Sub

Private Sub Optmerah_Click()
Lblnama.ForeColor = vbRed
End Sub

 

Image

Private Sub Form_load()
Cbogolongan.AddItem “I”
Cbogolongan.AddItem “II”
Cbogolongan.AddItem “III”
Cbogolongan.AddItem “IV”
End Sub

Private Sub Cbogolongan_Click()
Dim Gaji, pajak, tunjangan, total As Variant
Select Case Cbogolongan.Text
Case “I”
Gaji = 1500000
tunjangan = 150000
Case “II”
Gaji = 2000000
tunjangan = 200000
Case “III”
Gaji = 2500000
tunjangan = 250000
Case “IV”
Gaji = 3000000
tunjangan = 300000
Case Else
Gaji = 0
tunjangan = 0
End Select
total = Gaji + tunjangan
pajak = total * 0.1
Txtgaji.Text = Gaji
Txttunjangan.Text = tunjangan
Txtpajak.Text = pajak
Txttotal.Text = total – pajak
Txtnidn.SetFocus
End Sub

Private Sub Cmdbatal_Click()
batal
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
lagi
End Sub

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnama.SetFocus
End If

End Sub

Public Sub lagi()
Txtnidn.SetFocus
Txtnidn.Text = “”
Txtnama.Text = “”
Cbogolongan.Text = “”
Txtgaji.Text = “”
Txttunjangan.Text = “”
Txtpajak.Text = “”
Txttotal.Text = “”
End Sub

Public Sub batal()
Txtnidn.SetFocus
Txtnidn.Text = “”
Txtnama.Text = “”
Cbogolongan.Text = “”
Txtgaji.Text = “”
Txttunjangan.Text = “”
Txtpajak.Text = “”
Txttotal.Text = “”
End Sub

 

 

Image

Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
TxtJRS.Text = “”
TxtPS.Text = “”
TxtTM.Text = “”
Txtnomor.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
TxtJRS.Text = “”
TxtPS.Text = “”
TxtTM.Text = “”
Txtnomor.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
TxtJRS.Text = “Sistem Informasi”
ElseIf S = “2” Then
TxtJRS.Text = “Manajemen Informatika”
ElseIf S = “3” Then
TxtJRS.Text = “Tehnik Informatika”
ElseIf S = “4” Then
TxtJRS.Text = “Manajemen & Komp. Akuntansi”
End If
S = Mid(Txtnpm.Text, 3, 1)
If S = “1” Then
TxtPS.Text = “Strata Satu”
ElseIf S = “2” Then
TxtPS.Text = “Diploma Tiga”
ElseIf S = “3” Then
TxtPS.Text = “Diploma Empat”
ElseIf S = “4” Then
TxtPS.Text = “Diploma Dua”
End If
Txtnomor.Text = Right(Txtnpm.Text, 3)

End Sub

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

Tugas VB 2

11 Jan

TUGAS VB 2

Private Sub Command1_Click()

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

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

If chkBold.Value = 1 Then

lbltext.FontBold = True

Else

lbltext.FontBold = False

End If

End Sub

Private Sub OptBlack_Click()

lbltext.ForeColor = vbBlack

End Sub

Private Sub ChkItalic_Click()

If chkItalic.FontItalic = 1 Then

lbltext.FontItalic = True

Else

lbltext.FontItalic = False

End If

End Sub

Private Sub ChkUnderline_Click()

If chkUnderline.FontUnderline = 1 Then

lbltext.FontUnderline = True

Else

lbltext.FontUnderline = False

End If

End Sub

Private Sub ChkStrikeout_Click()

If chkStikeout.fontStrikeout = 1 Then

lbltext.fontStrikeout = True

Else

lbltext.fontStrikeout = False

End If

End Sub

Private Sub Command1_Click()

End

End Sub

Private Sub OptGreen_Click()

lbltext.ForeColor = vbGreen

End Sub

Private Sub OptRed_Click()

lbltext.ForeColor = vbRed

End Sub

Private Sub OptBlue_Click()

lbltext.ForeColor = vbBlue

End Sub

Private Sub Option1_Click()

End Sub

Private Sub Command1_Click()

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

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

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

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

Text2.Text = Val(Text1.Text) * 0.1

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

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Form_Load()

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Command1_Click()

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

End Sub

Private Sub Command2_Click()

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

End Sub

Private Sub Command3_Click()

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

End Sub

Private Sub Command4_Click()

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

End Sub

Private Sub Command5_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

Private Sub Command6_Click()

End

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Pemprov DKI Harus Sediakan Lahan Kerja untuk Atasi Problem Anak Jalanan

5 Jan

Jakarta – Wakil Gubernur DKI Basuki T Purnama menyatakan pihaknya tidak akan lagi menggelar razia anak jalanan. Sebagai jalan keluar dari persoalan ini, pihak Pemrov diminta untuk menelurkan solusi nyata dengan menyediakan lapangan kerja.

“Dengan dia (Ahok) tidak mengambil tindakan razia, dikhawatirkan anak jalanan ini makin banyak sehingga angka kriminal tindak kejahatan semakin meninggi, jikalau tidak ada kebijakan atau kartu penyelamat dari Gubernur nantinya akan membebankan Pemda sendiri. Karena mereka makin happy, merasa aman tanpa digaruk Satpol PP,” ujar kriminolog dari UI Adrianus Meliala dalam perbincangan dengan detikcom, Sabtu (5/1/2013).

Anggota Kompolnas ini mengatakan, memang terdapat beberapa karakteristik anak jalanan. Tak sedikit dari mereka yang memang memilih untuk hidup di jalanan.

“Anak jalanan itu ada banyak macam jenisnya. Dari anak-anak tanggung yang memiliki gaya hidup anak punk, anak kategori ekonomi lemah, preman bahkan mereka yang kerja di pasar seperti kuli panggul jadi tidak sepenuhnya mereka hidup di jalan namun yang betul-betul khususnya seperti gembel-gembel yang mengemis sehingga mereka mencari makan di jalan,” kata Adrianus.

Menurut Adrianus, sudah seharusnya Gubenur DKI Joko Widodo menyiapkan kartu penyelamat dengan menciptakan kantong-kantong untuk menyalurkan anak jalanan yang memiliki skill rendah.

“Seharusnya Gubenur sudah menyiapkan kartu penyelamat dengan menciptakan kantong-kantong atau pekerjaan buat mereka yang berskill rendah khusunya anak jalanan. Barulah pemda kembali melakukan dan mulai melakukan pendataan dan pembinaan kepada mereka kemudian disalurkan ke kantong-kantong lapangan pekerjaan yang telah disiapkan pemprov,” kata Adrianus.

Sebelumnya, Wakil Gubernur DKI Basuki Tjahaja Purnama alias Ahok memastikan tidak akan ada lagi razia terhadap anak jalanan. Ahok akan memfungsikan RT dan RW untuk mengatasi persoalan ini.

“Jangan ada razia tangkap kayak gitu. Saya nggak mau ada lagi operasi-operasi tangkap tangan seperti itu. Nanti anak-anak malah pada kecelakaan. Pendekatan saja nanti ketahuan kok, nanti kita fungsikan RT-RW lebih baik,” ujar Ahok di Balai Kota, Jalan Medan Merdeka Selatan, Jakarta Pusat, Jumat (4/1/2013).

101256_anakjalanan

 

PSSI Tunjuk Mantan Kiper Timnas Prancis Sebagai Direktur Teknik

28 Dec

barthez_charbonnier_lutz_bongarts_392

PSSI menunjuk mantan penjaga gawang Timnas Prancis, Lionel Charbonnier, sebagai direktur teknik tim nasional Indonesia.

Koordinator timnas, Bob Hippy, mengatakan mantan pelatih Aceh United di LPI tersebut akan dikontrak dengan jangka panjang, diperkirakan hingga 2015, dan diharapkan mampu membangkitkan sepakbola nasional.

“Tugas dia akan membikin konsep terpadu untuk timnas mulai U-14 hingga senior,” ujar Bob Hippy.

“Saya telah bertemu dia di Jepang beberapa waktu lalu. Wakil Ketua Umum PSSI juga pernah ketemu dengan dia di Prancis.”

Sementara itu, untuk membantu Charbonnier, PSSI juga mengangkat Danurwindo sebagai wakil direktur teknik timnas.

“Dia (Danurwindo) nanti akan membantu dalam menerjemahkan program-program yang telah dibuat,” pungkasnya.

Lionel Charbonnier rencananya setelah datang di Indonesia akan langsung bekerja yang salah satunya membantu dalam mempersiapkan timnas untuk Pra Piala Asia (PPA) 2015.