TUGAS 4

 

JUM’AT , 06 – FEBRUAURI – 2015

TUGAS 1

PENJUALAN LAPTOP
t1
Source code :
Private Sub Combo1_Click()
Select Case Combo1.Text
Case “Apple MC965 Macbook Air”
Text1.Text = “Apple Macbook Air MC965”
Text2.Text = “12800000”
Case “Apple MC966 Macbook Air”
Text1.Text = “Apple Macbook Air MC966”
Text2.Text = “15800000”
Case “Apple MC968 Macbook Air”
Text1.Text = “Apple Macbook Air MC968”
Text2.Text = “9900000”
Case “Apple MC969 Macbook Air”
Text1.Text = “Apple Macbook Air MC969”
Text2.Text = “11900000”
Case “Apple MC700 Macbook Pro”
Text1.Text = “Apple Macbook pro MC700”
Text2.Text = “10800000”
Case “Apple MC721 Macbook Pro”
Text1.Text = “Apple Macbook pro MC721”
Text2.Text = “15900000”
Case “Apple MC723 Macbook Pro”
Text1.Text = “Apple Macbook pro MC723”
Text2.Text = “19300000”
Case “Apple MC724 Macbook Pro”
Text1.Text = “Apple Macbook pro MC724”
Text2.Text = “13700000”
Case “Apple MC311 Macbook Pro”
Text1.Text = “Apple Macbook pro MC311”
Text2.Text = “24200000”
Case “Apple MC313 Macbook Pro”
Text1.Text = “Apple Macbook pro MC313”
Text2.Text = “11900000”
Case “Apple MC314 Macbook Pro”
Text1.Text = “Apple Macbook pro MC314”
Text2.Text = “14700000”
Case “Apple MC318 Macbook Pro”
Text1.Text = “Apple Macbook pro MC318”
Text2.Text = “17600000”
Case “Apple MC322Macbook Pro”
Text1.Text = “Apple Macbook pro MC322”
Text2.Text = “21300000”
Case “Apple MC965 Macbook Air”
Text1.Text = “Apple Macbook Air MC965”
Text2.Text = “12800000”
Case “Apple MC966 Macbook Air”
Text1.Text = “Apple Macbook Air MC966”
Text2.Text = “15800000”
End Select

End Sub

Private Sub Command1_Click()
Text4.Text = Val(Text3.Text) * Val(Text2.Text)
If Text4.Text > 140000000 Then
Text5.Text = Val(Text4.Text) * 0.15
ElseIf Text4.Text > 135000000 Then
Text5.Text = Val(Text4.Text) * 0.1
ElseIf Text4.Text > 130000000 Then
Text5.Text = Val(Text4.Text) * 0.05
ElseIf Text4.Text > 125000000 Then
Text5.Text = Val(Text4.Text) * 0.02
End If
Text6.Text = Val(Text4.Text) – Val(Text5.Text)
End Sub

Private Sub Command2_Click()
Combo1.SetFocus
Combo1 = “”
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()
Combo1.AddItem “Apple MC965 Macbook Air”
Combo1.AddItem “Apple MC966 Macbook Air”
Combo1.AddItem “Apple MC968 Macbook Air”
Combo1.AddItem “Apple MC969 Macbook Air”
Combo1.AddItem “Apple MC700 Macbook Pro”
Combo1.AddItem “Apple MC721 Macbook Pro”
Combo1.AddItem “Apple MC723 Macbook Pro”
Combo1.AddItem “Apple MC724 Macbook Pro”
Combo1.AddItem “Apple MC311 Macbook Pro”
Combo1.AddItem “Apple MC313 Macbook Pro”
Combo1.AddItem “Apple MC314 Macbook Pro”
Combo1.AddItem “Apple MC318 Macbook Pro”
Combo1.AddItem “Apple MC322 Macbook Pro”
Combo1.AddItem “Apple MC965 Macbook Air”
Combo1.AddItem “Apple MC966 Macbook Air”
End Sub

 

TUGAS 2
ENTRI PENJUALAN KOMPUTER
t2
Source code :
Private Sub Combo1_Click()
Select Case Combo1.Text
Case “P205”
Text1.Text = “Pentium II 500 Mega Hz”
Text2.Text = “1500000”
Case”P308″
Text1.Text = “Pentium III 800 Mega Hz”
Text2.Text = “2100000”
Case “P310”
Text1.Text = “Pentium III 1.0 Giga Hz”
Text2.Text = “3500000”
Case “P415”
Text1.Text = “Pentium IV 1.5 Giga Hz”
Text2.Text = “4000000”
Case “P417”
Text1.Text = “Pentium IV 1.7 Giga Hz”
Text2.Text = “4200000”
Case “P419”
Text1.Text = “Pentium IV 1.9 Giga Hz”
Text2.Text = “5500000”
End Select
End Sub

Private Sub Command1_Click()
Text4.Text = Val(Text3.Text) * Val(Text2.Text)
If Text4.Text > 30000000 Then
Text5.Text = Val(Text4.Text) * 0.15
ElseIf Text4.Text > 25000000 Then
Text5.Text = Val(Text4.Text) * 0.1
ElseIf Text4.Text > 20000000 Then
Text5.Text = Val(Text4.Text) * 0.05
ElseIf Text4.Text > 15000000 Then
Text5.Text = Val(Text4.Text) * 0.2
End If
Text6.Text = Val(Text4.Text) – Val(Text5.Text)
End Sub

Private Sub Command2_Click()
Combo1.SetFocus
Combo1.Text = “”
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()
Combo1.AddItem “P205”
Combo1.AddItem “P308”
Combo1.AddItem “P310”
Combo1.AddItem “P415”
Combo1.AddItem “P417”
Combo1.AddItem “P419”
End Sub

 

TUGAS 3
DATA BUKU PAKE COMBO
t3
Source code :
Private Sub Command1_Click()
Dim A, B, C, D As String
Dim h As Double
Text3.Text = “20” & Right(Combo1.Text, 2)
A = Mid(Combo1.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 = “ELEKTRONIK DATA PROCESSING”
C = “IMAM TARMIZI”
h = “62000”
ElseIf A = “CDR” Then
B = “COREL DRAW”
C = “RIYAN SUHADI”
h = “53000”
ElseIf A = “RPL” Then
B = “REKAYASA PERANGKAT LUNAK”
C = “SINTA UMPU SINAGA”
h = “83000”
End If
Text1.Text = B
Text2.Text = C
Text5.Text = h
D = Left(Combo1.Text, 1)
If D = “A” Then
Text4.Text = “ANDY OFFSET YOGYAKARTA”
ElseIf D = “I” Then
Text4.Text = “INDAH SURABAYA”
ElseIf D = “M” Then
Text4.Text = “MAXICOM”
ElseIf D = “S” Then
Text4.Text = “SALEMBA EMPAT”
ElseIf D = “E” Then
Text4.Text = “ELEK MEDIA KOMPUTINDO”
End If
End Sub

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

Private Sub Command4_Click()
End
End Sub

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

 

TUGAS 8
PENJUALAN TIKET KERETA
t8
Source code :
Private Sub Command1_Click()
Dim JK As String
Dim HT, JB As Variant
A = Left(Text1.Text, 3)
If A = “BIM” Then
JK = “BIMA”
HT = “50000”
JB = “16.00”
ElseIf A = “EKO” Then
JK = “EKONOMI”
HT = “35000”
JB = “19.00”
ElseIf A = “MUT” Then
JK = “MUTIARA”
HT = “23000”
JB = “17.00”
ElseIf A = “SEN” Then
JK = “SENJA”
HT = “15000”
JB = “20.00”
End If
Text2.Text = HT
Text3.Text = JK
Text4.Text = JB
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 Text1_KeyPress(KeyAscii As Integer)
Text5.SetFocus
If KeyAscii = 13 Then
End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6.Text = Val(Text2.Text) * Val(Text5.Text)
End If
End Sub

TUGAS 9
DATA BUKU
t9
Source code :
Private Sub Command1_Click()
Dim JB, PG, PR As String
Dim TT, HR As Variant
A = Left(Text1.Text, 3)
If A = “SIM” Then
JB = “SISTEM INFORMASI MANAJEMEN”
PG = “Fadiya Ulfa”
HR = “75900”
ElseIf A = “EDP” Then
JB = “ELEKTRONIK DATA PROCESSING”
PG = “Nurul Aguantina”
HR = “62000”
ElseIf A = “MNJ” Then
JB = “Manajemen”
PG = “Rina Hidayat”
HR = “42000”
ElseIf A = “CDR” Then
JB = “Corel Draw”
PG = “Siti Nur Khotimah”
HR = “53000”
ElseIf A = “RPL” Then
JB = “Rekayasa Perangkat Lunak”
PG = “Winda Erlianti”
HR = “83000”
End If
Text2.Text = JB
Text3.Text = PG
Text6.Text = HR
Text4.Text = “20” & Mid(Text1.Text, 5, 2)
B = Right(Text1.Text, 1)
If B = “A” Then
PR = “Andi Offset Yogyakarta”
ElseIf B = “I” Then
PR = “Indah Soraya”
ElseIf B = “S” Then
PR = “Salemba Empat”
ElseIf B = “E” Then
PR = “Elek Media Koputindo”
ElseIf B = “M” Then
PR = “Maxicom”
End If
Text5.Text = PR
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()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
End Sub

Private Sub Command4_Click()
End
End Sub

TUGAS 10
t10
Source code :
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

TUGAS 11
t11
Source code:
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

TUGAS 12
t12
Source code :
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

TUGAS 13
t13
Source code :
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

TUGAS 14

t14
Source code :
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

 

TUGAS NPM PROSES DAN ENTER
PROSES
npmabip
Source code :
Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttm.Text = “”
txturut.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttm.Text = “”
txturut.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 = “Manajemen Informatika”
ElseIf S = “3” Then
txtjur.Text = “Tehnik Informatika”
ElseIf S = “4” Then
txtjur.Text = “Manajemen & Komp. Akuntansi”
End If
S = Mid(txtnpm.Text, 4, 2)
If S = “01” Then
txtps.Text = “Strata Satu”
ElseIf S = “02” Then
txtps.Text = “Diploma Tiga”
ElseIf S = “03” Then
txtps.Text = “Diploma Empat”
ElseIf S = “04” Then
txtps.Text = “Diploma Dua”
End If
txturut.Text = Right(txtnpm.Text, 3)
End Sub
Private Sub Txtnama_Keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub

ENTER

npmabip

Source code :

Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttm.Text = “”
txturut.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttm.Text = “”
txturut.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 = “Manajemen Informatika”
ElseIf S = “3” Then
txtjur.Text = “Tehnik Informatika”
ElseIf S = “4” Then
txtjur.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
txturut.Text = Right(txtnpm.Text, 3)
End Sub
Private Sub Txtnama_Keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub
Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
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 = “Manajemen Informatika”
ElseIf S = “3” Then
txtjur.Text = “Tehnik Informatika”
ElseIf S = “4” Then
txtjur.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 = “0” Then
txtps.Text = “Diploma Empat”
ElseIf S = “4” Then
txtps.Text = “Diploma Dua”
End If
txturut.Text = Right(txtnpm.Text, 3)
End If
End Sub

PROSES
npmnikenproseskirim

Source code :

Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttm.Text = “”
txturut.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttm.Text = “”
txturut.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 = “Manajemen Informatika”
ElseIf S = “3” Then
txtjur.Text = “Tehnik Informatika”
ElseIf S = “4” Then
txtjur.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
txturut.Text = Right(txtnpm.Text, 3)
End Sub
Private Sub Txtnama_Keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub

ENTER
npmnikenproseskirim

Source code :

Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttm.Text = “”
txturut.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama.Text = “”
txtnpm.Text = “”
txtjur.Text = “”
txtps.Text = “”
txttm.Text = “”
txturut.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 = “Manajemen Informatika”
ElseIf S = “3” Then
txtjur.Text = “Tehnik Informatika”
ElseIf S = “4” Then
txtjur.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
txturut.Text = Right(txtnpm.Text, 3)
End Sub
Private Sub Txtnama_Keypress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnpm.SetFocus
End If
End Sub
Private Sub txtnpm_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
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 = “Manajemen Informatika”
ElseIf S = “3” Then
txtjur.Text = “Tehnik Informatika”
ElseIf S = “4” Then
txtjur.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 = “0” Then
txtps.Text = “Diploma Empat”
ElseIf S = “4” Then
txtps.Text = “Diploma Dua”
End If
txturut.Text = Right(txtnpm.Text, 3)
End If
End Sub

Iklan

tugas 3

TUGAS 3
No.1 Font color dan Font style
NO1TGS
RUMUS :
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

NO.2
2.2
RUMUS :
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
lebel2.FontUnderline = False
End If
End Sub

Private Sub Check4_Click()
If Check4.Value = 1 Then
Label2.FontStrikethru = True
Else
lebel2.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()
‘membuatteks berwarna biru
Label2.ForeColor = vbBlue
End Sub

Private Sub Option2_Click()
‘membuatteks berwarna merah
Label2.ForeColor = vbRed
End Sub

Private Sub Option3_Click()
‘membuatteks berwarna hijau
Label2.ForeColor = vbGreen
End Sub

Private Sub Option4_Click()
‘membuatteks berwarna kuning
Label2.ForeColor = vbYellow
End Sub

No 3 dan 4

NO3
RUMUS :

Private Sub Combo1_Click()
Dim Nama, Jurusan, HM As String
Select Case Combo1.Text
Case “14100413”
Nama = “Agung Triawan”
Jurusan = “sistem informasi”
Case “14100411”
Nama = “Ovitria Ningsih”
Jurusan = “Sistem informasi”
Case “14100409”
Nama = “kharisma riyanti”
Jurusan = “Sistem informasi”
Case “14100410”
Nama = “indriani”
Jurusan = “Sistem informasi”
Case “14100417”
Nama = “Indah Aria Novi”
Jurusan = “Sistem informasi”
Case “14100416”
Nama = “Fatmawati”
Jurusan = “Sistem informasi”
Case “14201053”
Nama = “Rahmawati”
Jurusan = “manajemen informatika”
Case “14100408”
Nama = “Niken Marsheliyona”
Jurusan = “Sistem informasi”
Case “14100427”
Nama = “Rana Anhari”
Jurusan = “Sistem informasi”
Case “14100421”
Nama = “Dwi Astuti”
Jurusan = “Sistem informasi”
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 “14100413”
Combo1.AddItem “14100411”
Combo1.AddItem “14100409”
Combo1.AddItem “14100410”
Combo1.AddItem “14100417”
Combo1.AddItem “14100416”
Combo1.AddItem “14201053”
Combo1.AddItem “14100408”
Combo1.AddItem “14100427”
Combo1.AddItem “14100421”
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

No. 5
n05
RUMUS :
Private Sub Combo1_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case Combo1.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()
Combo1.AddItem “I”
Combo1.AddItem “II”
Combo1.AddItem “III”
Combo1.AddItem “IV”
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Tugas 2

TUGAS 1

untitled

Private Sub Command1_Click()

Text1.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

Private Sub Command2_Click()

Text2.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

 

Tugas 2.1

 

2

 

 

 

 

 

 

 

 

Private Sub Command1_Click()

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

End Sub

 

Private Sub Command2_Click()

Text2.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

 

 

 

TUGAS 2.2

 

3

Private Sub Command1_Click()

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

End Sub

 

Private Sub Command2_Click()

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

End If

End Sub

 

 

 TUGAS 3.1 Dan 3.2

 

3.1

 

 

Private Sub Command1_Click()

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

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

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

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

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.Text) + Val(Text2.Text)

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

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

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

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

 

 

TUGAS 4.1

41

Private Sub Command1_Click()

Text2.Text = Val(Text1) * 0.1

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

End Sub

 

Private Sub Command2_Click()

Text2.SetFocus

Text1 = “”

Text2 = “”

Text3 = “”

End Sub

 

Private Sub Command3_Click()

Unload Me

End Sub

 

 

TUGAS 4.2

41

End Sub

Private Sub Command2_Click()

Text2.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

Text3.SetFocus

End If

End Sub

 

 

 Tugas 5.1

5

 

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

Demokrat: Dari Golkar ada yang tak setuju Perppu Pilkada

 

Demokrat: Dari Golkar ada yang tak setuju Perppu Pilkada

agus hermanto. ©youtube

Merdeka.com – Salah satu prioritas DPR dalam masa sidang kedua adalah pembahasan peraturan pemerintah pengganti undang-undang (Perppu) Nomor 1 Tahun 2014 tentang Pemilihan Gubernur Bupati dan Wali Kota (Perppu Pilkada). Wakil Ketua Umum Partai Demokrat Agus Hermanto yakin Perppu Pilkada tidak ada kendala untuk segera dibahas dan disahkan sebagai undang-undang.

“Terakhir dari Golkar ada yang menginginkan tidak menyetujui Perppu, banyak masyarakat tidak sama dengan usulan Golkar, banyak menyetujui Perppu, insya Allah tidak ada kendala,” kata Agus di Gedung DPR, Jakarta, Selasa (13/1).

Wakil Ketua DPR itu memastikan Perppu yang terbit semasa Presiden Susilo Bambang Yudhoyono (SBY) ini rencananya akan dibahas per Januari ini. Menurut Agus, pembahasan Perppu Pilkada ini akan dikebut karena masa sidang kedua waktunya amat singkat.

“Perppu ini baru bisa dibahas pada masa sidang ini, lama pembahasannya satu kali masa sidang. Jadi harus selesai pada masa sidang kedua tanggal 18 Februari,” jelas Agus.

Menurutnya, pembahasan Perppu tidak bisa ditunda lebih lama. Sebab, pilkada serentak sedianya digelar pada 2015 sesuai amanat UU MD3. “Kalau diterima maka jadi UU pilkada, kalau tidak diterima maka akan kembali ke undang-undang nomor 22 tahun 2014. Kalau bahasanya molor maka dianggap diterima oleh DPR, maka akan diefektifkan pada masa sidang ini,” imbuhnya.

Seperti diketahui Perppu diterbitkan Presiden Susilo Bambang Yudhoyono untuk mencabut UU Nomor 22 Tahun 2014 tentang Pemilihan Gubernur Bupati dan Wali Kota. UU yang disahkan DPR pada September lalu itu mengatur soal Pilkada dipilih DPRD.

UU disahkan melalui voting yang dimenangkan fraksi-fraksi tergabung dalam Koalisi Merah Putih (KMP) yang sejak awal mendukung Pilkada tak langsung. KMP mengalahkan Koalisi Indonesia Hebat (KIH) yang ingin Pilkada dipilih langsung oleh rakyat. Sementara Partai Demokrat yang tak bergabung dengan koalisi manapun memilih walk out (WO) pada saat sidang paripurna membahas RUU Pilkada tersebut

Sumber : Merdeka.com

Politikus NasDem desak Jokowi turunkan BBM Rp 5.500 per liter

 

Politikus NasDem desak Jokowi turunkan BBM Rp 5.500 per liter

Antrean BBM. ©2014 Merdeka.com/Dwi Narwoko

Merdeka.com – Anggota komisi VII DPR dari Fraksi NasDem Kurtubi menyarankan agar pemerintah memberikan pola harga BBM bersubsidi tetap. Karena, jika terjadi kenaikan harga minyak dunia kembali, masyarakat tetap diberikan dengan harga BBM yang telah disubsidi.

“Cuma kebijakan memberikan subsidi dengan pola tetap sebaiknya tetap diterapkan. Harga dalam negeri disubsidi meskipun bisa naik bisa turun, tapi harga yang dibayar harga yang disubsidi,” kata Kurtubi di Gedung DPR, Kamis, (15/1).

Selain itu, Kurtubi juga mendorong pemerintah agar aktif memberikan informasi dan sosialisasi tentang kondisi migas nasional saat ini. Oleh sebab itu, jika nantinya harga BBM kembali naik masyarakat tidak lagi reaktif menanggapinya.

“Perlu diinformasikan kondisi migas kita saat ini berbeda dengan masa lalu, di mana saat ini produksi minyak kita sangat rendah hanya seperempat dari minyak mentah dalam negeri. Minyak mentah yang kita produksi dari perut bumi Indonesia hanya seperempatnya dari kebutuhan. Jadi sisanya harus diimpor,” ujarnya.

Lebih lanjut, dia juga menyarankan agar pemerintah bisa menurunkan BBM hingga Rp 5.500 per liter, karena harga minyak dunia tengah turun. Angka ini lebih rendah dari nilai yang disarankan Presiden Jokowi sebesar Rp 6.500 per liter. Menurutnya, dengan besaran itu, pemerintah pun tetap bisa untung.

“Turun lagi Rp 1.000 Jadi kembali ke Rp 5.500. Itu sebenarnya pemerintah masih untung. Pernah terjadi di tahun 1986 di mana harga BBM yang dijual pemerintah di atas biaya patokan, sehingga memperoleh keuntungan tapi keuntungan masuk APBN itu namanya laba bersih minyak (LBM). Dulu pernah ada itu pada saat minyak dunia turun, pemerintah memperoleh tambahan penerimaan dari penjualan BBM melalui LBM,” tukasnya.

Sumber : Merdeka.com

PDIP isyaratkan Jokowi segera lantik Komjen Budi jadi Kapolri

 

PDIP isyaratkan Jokowi segera lantik Komjen Budi jadi Kapolri

Hasto Kristianto. Merdeka.com/Dwi Narwoko

Merdeka.com – Partai Demokrasi Perjuangan Indonesia (PDIP) menyatakan akan mengikuti proses penetapan calon Kapolri baru Komjen Pol Budi Gunawan sesuai keputusan DPR, yakni meloloskan Budi sebagai kandidat Kapolri baru.

“Mekanisme peraturan perundang-undangan dengan menjaga suatu legalitas keputusan dari DPR RI yang telah menetapkan Budi Gunawan sebagai calon Kapolri. Tentu saja keputusan ini harus dihormati,” kata Plt Sekjen PDIP Hasto Kristiyanto di rumah Megawati Soekarnoputri, di Jalan Teuku Umar, Menteng, Jakarta, Kamis (15/1).

Selain itu, Hasto mengatakan tanpa ada usulan atau tidaknya dari partai berlambang banteng itu kepada Presiden Joko Widodo (Jokowi), proses penetapan calon Kapolri akan berjalan sesuai undang-undang.

“DPR adalah cermin dari kedaulatan rakyat melalui perwakilannya telah mengambil suatu keputusan politik yang menyatakan Budi Gunawan memenuhi syarat sebagai Kapolri,” ujarnya.

Terlebih, Hasto menilai sampai sejauh ini putusan yang diambil DPR sejalan dengan apa yang sudah Jokowi putuskan.

“Ketika DPR mengambil keputusan ya proses harus tetap berjalan. Dalam berpolitik kita memenuhi aspek-aspek seperti itu, kemudian presiden tidak menghormati rekomendasi DPR sementara presiden yang mengusulkan ini maknanya DPR sejalan dengan keputusan presiden,” terangnya.

Maka, lanjut dia, soal pelantikan Budi Gunawan sepenuhnya akan diserahkan kepada Jokowi.

Sumber : Merdeka.com

 

Jokowi dan Megawati bahas calon Kapolri Komjen Budi jadi tersangka

 

Jokowi dan Megawati bahas calon Kapolri Komjen Budi jadi tersangka

Jokowi dan Megawati tonton tari Ariah. ©2013 Merdeka.com/M. Luthfi Rahman

Merdeka.com – Plt Sekjen PDIP Hasto Kristiyanto mengakui adanya komunikasi antara Presiden Joko Widodo (Jokowi) dengan Ketua Umum PDIP Megawati Soekarnoputri, menyangkut calon Kapolri Komjen Pol Budi Gunawan yang ditetapkan tersangka oleh KPK.

Hasto menilai komunikasi yang dilakukan antara Jokowi dengan putri Presiden RI pertama Soekarno ini merupakan hal yang wajar.

“Tentu saja ada, ini tradisi silaturrahmi terus berjalan ini sangat wajar,” kata Hasto di rumah Mega, di Jalan Teuku Umar, Menteng, Jakarta, Kamis (15/1).

Hasto mengatakan komunikasi dalam satu lembaga haruslah berjalan. Sebab, lanjut dia, dengan begitu kelembagaannya bisa dihormati.

“Komunikasi hanya konteks lembaga, sehingga yang berbicara mekanisme kelembagaan kita dihormati,” pungkasnya

 

Sumber : Merdeka.com

Harga emas melonjak naik Rp 12.000 per gram

 

Harga emas melonjak naik Rp 12.000 per gram

Harga Emas naik. ©2012 Merdeka.com/dwi narwoko

Merdeka.com – Harga emas batangan di Unit Bisnis Pengolahan dan penjualan PT Aneka Tambang dibuka naik sebesar Rp 12.000 menjadi Rp 553.000 dari harga sebelumnya sebesar Rp 541.000. Dikutip dari laman resmi logammulia.com, Jumat (16/1)

Hari ini harga emas di Jakarta dijual pada kisaran Rp 513.600 hingga Rp 553.000. Harga tersebut mulai terbesar untuk ukuran 1 gram dan harga terkecil untuk ukuran 500 gram.

Harga pembelian emas dan harga penjualan kembali (buyback) juga dibuka naik sebesar Rp 2.000 menjadi Rp 489.000 dari harga sebelumnya Rp 487.000 per gram.

Harga emas 1 per gram Rp 553.000

Harga emas 5 per gram Rp 524.000

Harga emas 50 per gram Rp 515.000

Harga emas 100 per gram Rp 514.500

Harga emas 250 per gram Rp 514.000

Harga emas 500 per gram Rp 513.600

Sumber : Merdeka.com

Polisi Temukan Kokain 150 Gram di Dalam Sosis

Jum’at, 16 Januari 2015 – 08:03 wib
Polisi Temukan Kokain 150 Gram di Dalam Sosis

Polisi Temukan Kokain 150 Gram di Dalam Sosis.

ZARAGOZA – Segala cara dilakukan pengedar narkoba untuk menyelundupkan kokain ke sejumlah negara, termasuk Prancis. Bahkan, komplotan pengedar asal Spanyol sampai menyembunyikan obat terlarang itu ke sebuah makanan sosis.

Seperti diberitakan Mirror, Jumat (16/1/2015), pihak Kepolisian Spanyol melihat sesuatu yang aneh ketika menghentikan tiga orang yang akan menuju Prancis.

Pelaku terdiri dari pasangan suami-istri dan seorang pria yang membawa sebuah makanan yang mirip sosis di dalam kotak makan. Benar saja, polisi menemukan 150 gram kokain yang seharga 6.500 euro.

Setelah diselidiki, ternyata ketiga pelaku terlibat dengan organisasi kejahatan dalam menyelundupkan obat-obatan terlarang. Selain itu, mereka juga diduga terlibat kasus penembakan.

Polisi langsung melakukan penyelidikan jaringan ketiga orang tersebut, termasuk pemimpinnya. Ketiga pelaku di tangkap di Zaragoza, Spanyol, dalam perjalanan menuju Prancis.

Juru bicara Kepolisian Spanyol mengatakan, penyelidikan sudah dilakukan sejak September 2014 setelah mereka menemukan seorang tertembak dan dilarikan ke rumah sakit.

Mereka mengetahui sang korban ditembak oleh pengedar narkoba. Kemudian, penyerangnya ditangkap berserta barang bukti berupa 2 kilogram kokain.

Sumber : Okezone.com

BPOM Temukan Iklan Rokok yang Bertentangan dengan Norma

Liputan6.com, Jakarta Salah satu tugas Badan Pengawas Obat dan Makanan (BPOM) adalah mengawasi iklan rokok. Berdasarkan monitoring yang dilakukan Balai Besar maupun Balai POM yang ada di Indonesia ditemukan banyak pelanggaran iklan rokok pada media luar ruang pada tahun 2014. Salah satunya terdapat sebuah iklan yang bertentangan dengan norma yang berlaku di masyarakat.

“Iklan rokok ini bertentangan dengan norma yang berlaku dalam masyarakat. Hal ini tidak sesuai dengan Pasal 27 huruf k PP 109/2012,” terang Kepala BPOM, Roy Sparringa dalam penjabaran Kinerja 2014 dan Outlook 2015 BPOM di Kantor BPOM, Jakarta Pusat pada Senin (12/1/2015).

Diterangkan oleh Dra Sri Utami Ekaningtyas, Apt, MM iklan tersebut menampilkan anak muda berlawanan jenis yang menggambarkan sedang bermesraan. “Hal itu tidak ethis. Tidak sesuai dengan norma sopan dan santun yang ada di masyarakat kita,” terang perempuan yang menjabat sebagai Direktur Pengawasan NAPZA BPOM RI saat dihubungi Health-Liputan6.com, Rabu (14/1/2015).

Selain itu ditemukan juga pelanggaran iklan rokok yang memotong jalan atau melintang. Hal ini tidak sesuai dengan Pasal 31 huruf C PP 109/2012 tentang Pengamanan Bahan yang Mengandung Zat Adiktif Berupa Produk Tembakau bagi Kesehatan.

“Rata-rata pelanggaran masih terjadi di beberapa wilayah Indonesia. Contohnya di Cibinong, Cirebon, dan Pantura,” terang Ekaningtyas.

Produsen rokok yang melakukan pelanggaran pun segera mendapat teguran dari BPOM lewat surat yang diketahui oleh pemda setempat. “Selama ini, usai kami tegur para produsen rokok merespon dan mematuhi teguran yang kami berikan,” terang Ekaningtyas.

sumber : Liputan6.com