tugas 4

tugas 1.1-1.2

LOVA 1.2 BARU

Private Sub Cbonpm_CLICK()
Dim NAMA, JURUSAN, HM As String
Select Case Cbonpm.Text
Case “14100162”
NAMA = “ABIKURNIAWAN”
JURUSAN = “Sistem Informasi”
Case “14100088”
NAMA = “LOVITA MARTHA TILOVA”
JURUSAN = “SISTEM INFORMASI”
Case “14201018”
NAMA = “AYU DEVITA SARI”
JURUSAN = ” SISTEM INFORMASI”
Case “14100131”
NAMA = “ASIAH”
JURUSAN = “Sistem Informasi”
Case “14100156”
NAMA = “EFA AFRI KIKI ADEFTI”
JURUSAN = “Sistem Informasi”
Case “14100060”
NAMA = “EKA SYSI SURANTI”
JURUSAN = “Sistem Informasi”
Case “14100155”
NAMA = “SEPTA KURNIAWAN”
JURUSAN = “Sistem Informasi”
Case “14100133”
NAMA = “YULISTA”
JURUSAN = “Sistem Informasi”
Case “14100127”
NAMA = “SEPTIA RIASTUTI”
JURUSAN = “Sistem Informasi”
Case “14100161”
NAMA = “ISMA ROBBY”
JURUSAN = “Sistem Informasi”
End Select
Txtnama.Text = NAMA
Txtjurusan.Text = JURUSAN
End Sub
Private Sub Cmdkeluar_Click()
End
End Sub
Private Sub Form_Load()
Cbonpm.AddItem “14100127”
Cbonpm.AddItem “14100133”
Cbonpm.AddItem “14100088”
Cbonpm.AddItem “14100162”
Cbonpm.AddItem “14201018”
Cbonpm.AddItem “14100131”
Cbonpm.AddItem “14100156”
Cbonpm.AddItem “14100060”
Cbonpm.AddItem “14100155”
End Sub
Private Sub Cmdproses_Click()
Dim NA As Integer
Dim HM As String
QUIS = Val(Txtquis.Text)
TUGAS = Val(Txttugas.Text)
UTS = Val(Txtuts.Text)
UAS = Val(Txtuas.Text)
NA = (QUIS + TUGAS + UTS + UAS) / 4
Txtna.Text = NA
Select Case Txtna.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”
Case Is < 50
HM = "BL"
End Select
Txthm.Text = HM
End Sub
Private Sub Cmdbatal_Click()
Cbonpm.SetFocus
Cbonpm.Text = ""
Txtnama.Text = ""
Txtjurusan.Text = ""
Txtquis.Text = ""
Txttugas.Text = ""
Txtuts.Text = ""
Txtuas.Text = ""
Txtna.Text = ""
Txthm.Text = ""
End Sub
Private Sub Txtquis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txttugas.SetFocus
End If
End Sub
Private Sub Txttugas_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtuts.SetFocus
End If
End Sub
Private Sub Txtuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtuas.SetFocus
End If
End Sub

tugas 3
LOVA TGAS 3
TUGAS 3

Private Sub Cbogolongan_Click()
Dim gapok, tunjangan, pajak, total As String
Select Case Cbogolongan.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
Txtgapok.Text = gapok
Txttunjangan.Text = tunjangan
Txtpajak.Text = pajak
Txttotal.Text = total – pajak
End Sub
Public Sub kosong()
Txtnidn.SetFocus
Txtnidn.Text = “”
Txtnama.Text = “”
Txtgapok.Text = “”
Txttunjangan.Text = “”
Txtpajak.Text = “”
Txttotal.Text = “”
Cbogolongan.Text = “”
End Sub

Private Sub Cmdlagi_Click()
kosong
End Sub

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnama.SetFocus
End If
End Sub
Private Sub Cmdbatal_Click()
kosong
End Sub
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Form_Load()
Cbogolongan.AddItem “I”
Cbogolongan.AddItem “II”
Cbogolongan.AddItem “III”
Cbogolongan.AddItem “IV”
end sub

tugas 4
LOVA 4

Private Sub Cmdproses_Click()
Dim R As String
Txttm.Text = “20” & Left(Txtnpm.Text, 2)
R = Mid(Txtnpm.Text, 3, 1)
If R = “1” Then
Txtjur.Text = “Sistem Informasi”
ElseIf R = “2” Then
Txtjur.Text = “Manajemen Informatika”
ElseIf R = “3” Then
Txtjur.Text = “Tehnik Informatika”
ElseIf R = “4” Then
Txtjur.Text = “Manajemen & Komp. Akuntansi”
End If
R = Mid(Txtnpm.Text, 4, 2)
If R = “01” Then
Txtps.Text = “Strata Satu”
ElseIf R = “02” Then
Txtps.Text = “Diploma Tiga”
ElseIf R = “03” Then
Txtps.Text = “Diploma Empat”
ElseIf R = “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
Private Sub Cmdkeluar_Click()
Unload Me
End Sub
Private Sub Cmdbatal_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtps.Text = “”
Txttm.Text = “”
Txturut.Text = “”
End Sub
Private Sub Cmdlagi_Click()
Txtnama.SetFocus
Txtnama.Text = “”
Txtnpm.Text = “”
Txtjur.Text = “”
Txtps.Text = “”
Txttm.Text = “”
Txturut.Text = “”
End Sub

tugas 6
LOVA 6

Private Sub Cbokode_Click()
Txtjj.SetFocus
End Sub

Private Sub Cmdproses_Click()
Dim R As String
R = Mid(Cbokode.Text, 7, 5)
If R = “MC965” Then
Txtmerk.Text = “Apple MacBook Air MC965”
Txths.Text = 12800000
ElseIf R = “MC966” Then
Txtmerk.Text = “Apple MacBook Air MC966”
Txths.Text = 15800000
ElseIf R = “MC968” Then
Txtmerk.Text = “Apple MacBook Air MC968”
Txths.Text = 9900000
ElseIf R = “MC969” Then
Txtmerk.Text = “Apple MacBook Air MC969”
Txths.Text = 11900000
ElseIf R = “MC700” Then
Txtmerk.Text = “Apple MacBook Pro MC700”
Txths.Text = 10800000
ElseIf R = “MC721” Then
Txtmerk.Text = “Apple MacBook Pro MC721”
Txths.Text = 15900000
ElseIf R = “MC723” Then
Txtmerk.Text = “Apple MacBook Pro MC723”
Txths.Text = 19300000
ElseIf R = “MC724” Then
Txtmerk.Text = “Apple MacBook Pro MC724”
Txths.Text = 13700000
ElseIf R = “MC311” Then
Txtmerk.Text = “Apple MacBook Pro MC311”
Txths.Text = 24200000
ElseIf R = “MC313” Then
Txtmerk.Text = “Apple MacBook Pro MC313”
Txths.Text = 11900000
ElseIf R = “MC314” Then
Txtmerk.Text = “Apple MacBook Pro MC314”
Txths.Text = 14700000
ElseIf R = “MC318” Then
Txtmerk.Text = “Apple MacBook Pro MC318”
Txths.Text = 17600000
ElseIf R = “MC322” Then
Txtmerk.Text = “Apple MacBook Pro MC322”
Txths.Text = 21300000
End If
Txthp.Text = Val(Txths.Text) * Val(Txtjj.Text)
If Txthp.Text >= 15000000 Then
Txtdis.Text = Val(Txthp.Text) * 2 / 100
ElseIf Txthp.Text <= 25000000 Then
Txtdis.Text = Val(Txthp.Text) * 5 / 100
ElseIf Txthp.Text 30000000 Then
Txtdis.Text = Val(Txthp.Text) * 15 / 100
End If
Txttb.Text = Val(Txthp.Text) – Val(Txtdis.Text)
End Sub

Private Sub Cmdlagi_Click()
Cbokode.SetFocus
Cbokode.Text = “”
Txtmerk.Text = “”
Txths.Text = “”
Txtjj.Text = “”
Txthp.Text = “”
Txtdis.Text = “”
Txttb.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
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”
End Sub

tugas 7
LOVAA 7

Private Sub Cbokode_Click()
Dim JENKOM, HARSA As String
Select Case Cbokode.Text
Case “P205”
JENKOM = “Pentium II 500 MegaHz”
HARSA = 1500000
Case “P308”
JENKOM = “Pentium III 800 MegaHz”
HARSA = 2100000
Case “P310”
JENKOM = “Pentium III 1.0 GigaHz”
HARSA = 3500000
Case “P415”
JENKOM = “Pentium IV 1.5 GigaHz”
HARSA = 4000000
Case “P417”
JENKOM = “Pentium IV 1.7 GigaHz”
HARSA = 4200000
Case “P419”
JENKOM = “Pentium IV 1.9 GigaHz”
HARSA = 5500000
Case Else
JENKOM = 0
HARSA = 0
End Select
Txtjk.Text = JENKOM
Txths.Text = HARSA
Txtjj.SetFocus

End Sub

Private Sub Cmdproses_Click()
Txthp.Text = Val(Txths.Text) * Val(Txtjj.Text)
If Txthp.Text >= 15000000 Then
Txtdis.Text = Val(Txthp.Text) * 2 / 100
ElseIf Txthp.Text <= 25000000 Then
Txtdis.Text = Val(Txthp.Text) * 5 / 100
ElseIf Txthp.Text 30000000 Then
Txtdis.Text = Val(Txthp.Text) * 15 / 100
End If
Txthb.Text = Val(Txthp.Text) – Val(Txtdis.Text)
End Sub

Private Sub Cmdlagi_Click()
Cbokode.SetFocus
Cbokode.Text = “”
Txtjk.Text = “”
Txths.Text = “”
Txtjj.Text = “”
Txthp.Text = “”
Txtdis.Text = “”
Txthb.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
End
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

tugas 8
LOVAAA 8 BARU

Private Sub Cmdproses_Click()
Dim J As String
J = Mid(Txtkb.Text, 3, 3)
If J = “SIM” Then
Txtjb.Text = “SISTEM INFORMASI MANAJEMEN”
Txtp.Text = “YATI NUR OKTAFIA”
Txtharga.Text = “75900”
ElseIf J = “EDP” Then
Txtjb.Text = “ELEKTRONIK DATA PROCESSING”
Txtp.Text = “IMAM TARMIZI”
Txtharga.Text = “62000”
ElseIf J = “MNJ” Then
Txtjb.Text = “MANAJEMEN”
Txtp.Text = “VALINTINA MARIANAN”
Txtharga.Text = “42000”
ElseIf J = “CDR” Then
Txtjb.Text = “COREL DRAW”
Txtp.Text = “SITI FADILAH”
Txtharga.Text = “53000”
ElseIf J = “RPL” Then
Txtjb.Text = “REKAYASA PERANGKAT LUNAK”
Txtp.Text = “SINTA UMPU SINGA”
Txtharga.Text = “83000”
End If
J = Left(Txtkb.Text, 1)
If J = “A” Then
Txtpen.Text = “ANDI OFFSET YOGYAKARTA”
ElseIf J = “I” Then
Txtpen.Text = “INDAH SURABAYA”
ElseIf J = “S” Then
Txtpen.Text = “SALEMBA EMPAT”
ElseIf J = “E” Then
Txtpen.Text = “ELEK MEDIA KOMPUTINDO”
ElseIf J = “M” Then
Txtpen.Text = “MAXICOM”
End If
Txtth.Text = “20” & Right(Txtkb.Text, 2)
End Sub

Private Sub Cmdlagi_Click()
Txtkb.SetFocus
Txtjb.Text = “”
Txtp.Text = “”
Txtth.Text = “”
Txtpen.Text = “”
Txtharga.Text = “”
Txtkb.Text = “”
End Sub

Private Sub Cmdbatal_Click()
Txtkb.SetFocus
Txtjb.Text = “”
Txtp.Text = “”
Txtth.Text = “”
Txtpen.Text = “”
Txtharga.Text = “”
Txtkb.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Form_Load()

End Sub

tugas 9

LOVAA 9

Txtht.Text = 35000
Txtjk.Text = “EKONOMI”
Txtjb.Text = “19.00”
ElseIf A = “MUT” Then
Txtht.Text = 23000
Txtjk.Text = “MUTIARA”
Txtjb.Text = “17.00”
ElseIf A = “SEN” Then
Txtht.Text = 15000
Txtjk.Text = “SENJA”
Txtjb.Text = “20.00”
End If
Txttotalp.Text = Val(Txtht.Text) * Val(Txtjt.Text)

End Sub

Private Sub Cmdlagi_Click()
Txtkt.SetFocus
Txtkt.Text = “”
Txtht.Text = “”
Txtjk.Text = “”
Txtjb.Text = “”
Txtjt.Text = “”
Txttotalp.Text = “”
End Sub

Private Sub Txtkt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtjt.SetFocus
End If
End Sub

tugas 10
LOVA 10

Private Sub Cmdproses_Click()
Dim K As String
K = Mid(txtkb.Text, 1, 3)
If K = “SIM” Then
txtjb.Text = “SISTEM INFORMASI MANAJEMEN”
txtp.Text = “FADIYA ULFA”
txthg.Text = “75900”
ElseIf K = “EDP” Then
txtjb.Text = “ELEKTRONIK DATA PROCESSING”
txtp.Text = “NURUL AGUSTINA”
txthg.Text = “62000”
ElseIf K = “MNJ” Then
txtjb.Text = “MANAJEMEN”
txtp.Text = “RIAN HIDAYAT”
txthg.Text = “42000”
ElseIf K = “CDR” Then
Txjb.Text = “COREL DRAW”
txtp.Text = “SITI NUR KHOTIMAH”
txthg.Text = “53000”
ElseIf K = “RPL” Then
txtjb.Text = “REKAYASA PERANGKAT LUNAK”
txtp.Text = “WINDA ERLIANTI”
txthg.Text = “83000”
End If
K = Right(txtkb.Text, 1)
If K = “A” Then
txtpenerbit.Text = “ANDI OFFSET YOGYAKARTA”
ElseIf K = “I” Then
txtpenerbit.Text = “INDAH SURABAYA”
ElseIf K = “S” Then
txtpenerbit.Text = “SALEMBA EMPAT”
ElseIf K = “E” Then
txtpenerbit.Text = “ELEK MEDIA KOMPUTINDO”
ElseIf K = “M” Then
txtpenerbit.Text = “MAXICOM”
End If
txttahun.Text = “20” & Mid(txtkb.Text, 5, 2)
End Sub

Private Sub Cmdlagi_Click()
txtkb.SetFocus
txtjb.Text = “”
txtp.Text = “”
txthg.Text = “”
txtpenerbit.Text = “”
txttahun.Text = “”
txtkb.Text = “”
End Sub

Private Sub Cmdbatal_Click()
txtkb.SetFocus
txtjb.Text = “”
txtp.Text = “”
txthg.Text = “”
txtpenerbit.Text = “”
txttahun.Text = “”
txtkb.Text = “”
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Advertisements

TUGAS 1.1
1.1

Private Sub cmdhitung_Click()
Txtdis.Text = Val(txtha) * 0.1
txthak.Text = Val(txtha) – Val(Txtdis)
End Sub
Private Sub cmdquit_Click()
End
End Sub
Private Sub cmdulangi_Click()
txtha.SetFocus
txtha.Text = “”
Txtdis.Text = “”
txthak.Text = “”
End Sub

1.2
1.1

Private Sub cmdhitung_Click()
Txtdis.Text = Val(txtha) * 0.1
txthak.Text = Val(txtha) – Val(Txtdis)
End Sub
Private Sub cmdquit_Click()
End
End Sub
Private Sub cmdulangi_Click()
txtha.SetFocus
txtha.Text = “”
Txtdis.Text = “”
txthak.Text = “”
End Sub
Private Sub txtha_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtdis.Text = Val(txtha) * 0.1
txthak.Text = Val(txtha) – Val(Txtdis)
End If
End Sub

TUGAS 3.1

2.1

Private Sub Cmdproses_Click()
txtgk.Text = Val(txtgp) + Val(txttun) – Val(txtpot)
txtpjk.Text = Val(txtgk) * 0.1
txtgd.Text = Val(txtgk) – Val(txtpjk)
End Sub

Private Sub cmdulangi_Click()
txtgp.SetFocus
txtgp = “”
txttun = “”
txtpot = “”
txtgk = “”
txtpjk = “”
txtgd = “”
End Sub
Private Sub txtgp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttun.SetFocus
End If
End Sub

Private Sub txttun_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpot.SetFocus
End If
End Sub
Private Sub cmdkeluar_Click()
End
End Sub

3.2

2.1

Private Sub Cmdproses_Click()
txtgk.Text = Val(txtgp) + Val(txttun) – Val(txtpot)
txtpjk.Text = Val(txtgk) * 0.1
txtgd.Text = Val(txtgk) – Val(txtpjk)
End Sub

Private Sub cmdulangi_Click()
txtgp.SetFocus
txtgp = “”
txttun = “”
txtpot = “”
txtgk = “”
txtpjk = “”
txtgd = “”
End Sub

Private Sub txtgp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttun.SetFocus
End If
End Sub

Private Sub txtpot_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtgk.Text = Val(txtgp) + Val(txttun) – Val(txtpot)
txtpjk.Text = Val(txtgk) * 0.1
txtgd.Text = Val(txtgk) – Val(txtpjk)
End If
End Sub
Private Sub txttun_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtpot.SetFocus
End If
End Sub
Private Sub cmdkeluar_Click()
End
End Sub

tugas 5

3
Private Sub Chkbold_Click()
‘membuat teks tebal
If Chkbold.Value = 1 Then
lbltext.FontBold = True
Else
lbltext.FontBold = False
End If
End Sub

Private Sub chhitalic_click()
‘membuat teks miring
If Chhitalic.Value = 1 Then
lbltext.FontItalic = True
Else
lbltext.FontItalic = False
End If
End Sub

Private Sub Chkstrikeout_Click()
‘membuat teks bergaris tengah
If Chkstrikeout.Value = 1 Then
lbltext.Fontstrikeout = True
Else
lbltext.Fontstrikeout = False
End If
End Sub

Private Sub Chkunderline_Click()
‘membuat teks bergaris bawah
If Chkunderline.Value = 1 Then
lbltext.FontUnderline = True
Else
lbltext.FontUnderline = False
End If
End Sub

Private Sub Optblue_Click()
‘membuat teks biru
lbltext.ForeColor = vbBlue
End Sub
Private Sub Optgreed_Click()
‘membuat teks hijau
lbltext.ForeColor = vbGreen
End Sub

Private Sub OptRED_Click()
‘membuat teks merah
lbltext.ForeColor = vbRed
End Sub

Private Sub optyellow_Click()
‘membuat teks kuning
lbltext.ForeColor = vbYellow
End Sub

tugas 6

6

Private Sub chkitalic_Click()
‘membuat teks miring
If chkitalic.Value = 1 Then
lbltext.FontItalic = True
Else
lbltext.FontItalic = False
End If
End Sub

Private Sub cmdok_Click()
lbltext.Text = Val(Text1.Text)
End Sub

Private Sub cmdselesai_Click()
End
End Sub

Private Sub optblue_Click()
‘membuat teks berwarna biru
lbltext.ForeColor = vbBlue
End Sub

Private Sub chkbold_Click()
‘membuat teks tebal
If chkbold.Value = 1 Then
lbltext.FontBold = True
Else
lbltext.FontBold = False
End If
End Sub

Private Sub optred_Click()
‘membuat teks berwarna merah
lbltext.ForeColor = vbRed
End Sub

Private Sub lbltext_Change()
lbltext.Text = Text1.Text
End Sub

TUGAS II

Private Sub Command1_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
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
DATA MAHASISWA LOVA

TUGAS II

Private Sub Command1_Click()
Text9.Text = Val(Text1.Text) + Val(Text5.Text)
Text10.Text = Val(Text2.Text) – Val(Text6.Text)
Text11.Text = Val(Text3.Text) * Val(Text7.Text)
Text12.Text = Val(Text4.Text) / Val(Text8.Text)
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.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
Private Sub text6_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 Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
Text12.Text = “”
End Sub
Private Sub Command3_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text7.Text = “”
Text8.Text = “”
Text9.Text = “”
Text10.Text = “”
Text11.Text = “”
Text12.Text = “”
End Sub
Private Sub Command4_Click()
Unload Me
End Sub
LOVA

Daftar Harga Sembako Desember 2014 Pasca Kenaikan BBM

Daftar Harga Sembako November 2014 Pasca Kenaikan BBM-Kabarsembako.blogspot.com,Bekasi-Harga Telor mulai merangkak naik padahal sebelumnya mengalami penurunan sampai Rp.17500/kg namun kini telor dijual Rp.19000/kg atau Rp.246000/peti.Harga beras juga mengalami kenaikan terutama untuk beras mutu sedang,harga termurah Rp.420.000/karung.Sembako lain yang mengalami kenaikan yaitu Gula pasir,untuk merk GMPsaat ini dijual Rp.500000/karung.Untuk mengetahui harga-harga sembako lainnya Berikut ini Daftar Harga Sembako selengkapnya:

Beras mutu sedang

Beras Cap RM 1 Karung 50 kg=Rp.415.000 eceran Rp.7500

Beras Cap SDJ 1 Karung 50 kg = Rp.420.000 Eceran 1 liter=Rp.7500

Beras merk LS 1 Karung 50 kg = Rp.445.000 Eceran 1 liter=Rp.8000

Beras Pera IR 42 merk Mercy 1 Karung 50 kg = Rp.525.000 Eceran 1 liter=Rp.9500

BlueBand 200 gr 1lusin =Rp.60000 Eceran 1pcs=Rp.5500

Fortune pouch 2L 1 Dus = Rp.138.000 Eceran 1pcs=Rp.24.500

Gas Elpiji 12 Kg Eceran= Rp.130.000/Tabung

Gas Elpiji 3kg Eceran= Rp.17.000/Tabung

Gula Merah Curah 1Bal 10 kg=Rp.110.000 Eceran 1kg=Rp.12.000

Gula Pasir merk GMP 1Bal 50 kg=Rp.500.000 Eceran 1 kg=Rp.11.000

Minyak Curah 1 jerigen 16 kg = Rp.162.000 Eceran 1 kg=Rp.11.000

Resto Pouch 2L 1 Dus=Rp.133.000 Eceran 1 Pcs=Rp.23.500

Resto Bantal 225 ml 1 Dus = Rp.98.000 Eceran 1pcs= Rp.2500

Resto Bantal 450 ml 1 Dus = Rp.98.000 Eceran 1pcs= Rp.5000

Resto Bantal 900 ml 1 Dus = Rp.98.000 Eceran 1pcs= Rp.9500

Simas Palmia 200 gr 1lusin=Rp.43000 Eceran 1pcs=Rp.4000

Rose Brand Minyak 2L 1Dus=Rp.143.700 Eceran 1pcs=Rp.25.000

Soun Cap Ikan 1Bal=Rp.57.000 Eceran ¼ Kg=Rp.5000

Telor 1 peti 14 kg = Rp.246.000 Eceran 1 kg=Rp.19.000

Tropical pouch 2L 1Dus=Rp.148.000 Eceran 1 pouch Rp.25.500

Bendera SKM Kaleng Coklat 1Pcs=Rp.9500

Bendera SKM Kaleng Putih 1Pcs=Rp.9500

Bendera SKM coklat sachet 1pak 6 pcs=Rp.7000

Bendera SKM Putih sachet 1pak 6 pcs=Rp.7000

SCM Krimer cap Sapi Chocolate 375 gr 1Dus 48 pcs=Rp.339.100 Eceran Rp.8000

SCM Krimer cap Sapi 375 gr 1Dus 48 pcs=Rp.330.000 Eceran Rp.8000

Diamond Milk 125 Cereal 1Dus 40 pcs=Rp. 68000 Eceran 1pcs=Rp.2000

Diamond Milk 125 Reguler 1Dus 40 pcs=Rp.75000 Eceran 1pcs= Rp.2500

Diamond Milk 200ml 1Dus 24 pcs=Rp.68000 Eceran 1pcs= Rp.3500

Diamond Milk 1000ml 1Dus 12 Pcs=Rp.132000 Eceran= 1pcs Rp.12000

Ovaltine 125ml 1Dus 40 pcs=Rp.88000 Eceran 1pcs=Rp.3000

Ovaltine 200ml 1Dus 24 Pcs=Rp.82000 Eceran 1pcs=Rp.4000

Ultra Milk 1000 ml 1Dus 12 pcs=Rp.163.600 Eceran  Rp.16.000

Ultra Milk 250 ml 1Dus 24 pcs=Rp.95.900 Eceran Rp.5000

Ultra Milk UHT 200ml 1Dus 24 pcs=Rp.77.100 Eceran 1pcs=Rp.4500

UltraMilk UHT 125ml 1Dus 40 pcs=Rp.82.100 Eceran 1pcs=Rp.2500

Terigu Segitiga Biru 1 Bal 25 kg=Rp.165.000 Eceran 1kg=Rp.7500

Terigu Lencana Merah 1 Bal 25 kg=Rp.145.000 Eceran 1kg=Rp.6500

Tepung Tapioka  Gunung Agung 1Bal 25 kg=Rp.168.000 Eceran 1kg=Rp.7500

Tepung Beras Rose Brand 200 gr 1Dus=Rp.107.000 Eceran 1pcs=Rp.2500

Tepung Beras Rose Brand 500 gr 1Dus=Rp.106.000 Eceran 1pcs=Rp.11000

Indomie Ayam Bawang 1Dus 40 pcs=Rp.66000 Eceran 1pcs=Rp.1900

Indomie Goreng 1Dus 40 pcs=Rp.72.000 Eceran 1pcs=Rp.2000

Indomie Kari Ayam 1Dus 40 pcs=Rp.73.000 Eceran 1pcs=Rp.2000

Mie Telor 3 Ayam 1 Dus 20 Pcs=Rp.65.000 eceran 1 Pcs=Rp.3500

Bihun Cap Jagung 1Dus=Rp.55.000 Eceran ¼ Kg=Rp.3500

DPR Ancam Panggil Paksa Menteri ESDM Hadiri Raker BBM

Liputan6.com, Jakarta – Ketua Komisi VII DPR Mulyadi mengatakan, pihaknya berencana memanggil Menteri Menteri Energi Sumber Daya Mineral (ESDM) Sudirman Said. Hal ini lantaran sang menteri sudah 2 kali tak menghadiri undangan rapat kerja (Raker) bersama DPR.

“Dengan alasan ada kegiatan lain, yang membuat Pak Sudirman Said batal raker bersama DPR. Dalam catatan sekretariat Komisi VII Menteri ESDM, dua kali membatalkan raker dengan DPR yakni pada tanggal 27 November dan 4 Desember 2014,” kata Mulyadi di Gedung DPR, Senayan, Jakarta, Jumat (5/12/2014).

DPR, imbuh Mulyadi, beranggapan raker itu sangat penting terkait jawaban pemerintah kenaikan harga BBM di saat harga minyak dunia turun. Karena itu pihaknya meminta Menteri ESDM harus bisa menghormati dan bekerja sama dengan lembaga DPR.

“Seharusnya sebagai pembantu Presiden, Menteri ESDM pilar utama memberikan penjelasan kepada DPR. DPR tidak habis pikir sudah dua kali Menteri ESDM mangkir ketika diundang raker,” ujar Mulyadi.

Terlebih, politisi Partai Demokrat itu menambahkan, DPR akan memasuki masa reses. Untuk itu, bilamana ke depan Menteri ESDM menolak kembali hadir raker, DPR akan melakukan pemanggilan paksa.

“Sesuai UU No 17 Tahun 2014 Tentang MD3 Pasal 73 ayat 4, bunyinya dalam hal pejabat negara dan/atau pejabat pemerintah sebagaimana dimaksud pada ayat (2) tidak hadir setelah dipanggil 3 kali berturut turut tanpa alasan yang sah DPR berhak melakukan panggilan paksa dengan menggunakan Kepolisian Negara Republik Indonesia. Jadi saya minta hormati lembaga DPR, tentunya demi kebaikan rakyat,” tegas Mulyadi.

Lebih jauh Mulyadi mengatakan, masyarakat ingin mengetahui apa alasan Presiden Joko Widodo atau Jokowi menaikkan harga BBM bersubsidi di saat harga minyak mentah dunia merosot secara tajam.

“Di sisi lain pertambangan impor minyak dari Angola yang kita menjadi isu hangat. Jangan hanya bisa menjelaskan lebih bagus dan menguntungkan, tapi tidak bisa menjelaskan. Di sinilah peranan Komisi VII sebagai mitra kerja Menteri ESDM untuk mengetahui alasan kenaikan BBM tersebut,” beber dia.

Mulyadi menilai penjelasan pemerintah selama ini soal kenaikan BBM dianggap normatif. Untuk itu DPR berkewajiban meminta penjelasan kepada pemerintah.

“Saya anggap alasan selama ini normatif, maka dari itu kita memerlukan penjelasan yang komprehensif dari Menteri ESDM, bahkan menurut perhitungan kami degan harga premium Rp 8.500 seperti saat ini sudah tidak ada subsidi lagi. Masyarakat miskin dan hampir miskin sudah tidak disubsidi lagi dengan harga tersebut, ini salah satu yang mau kita tanya sama Menteri ESDM,” beber dia.

Jadi menurutnya, hal yang wajar bilamana ada ketidakpercayaan DPR terhadap pemerintah, sehingga masing-masing anggota menggunakan hal bertanya kepada Presiden, karena kesalahan dari menteri itu sendiri.

“Ngapain juga punya Presiden Jokowi punya menteri sebagai pembantu Presiden hanya menjelaskan kepada DPR tidak berani datang,” tandas Mulyadi. (Ali/Mut)