TUGAS

DATA BUKUU

RUMUS DATA BUKU

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

ENTRII

RUMUS ENTRI PENJUALAN KOMPUTER

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 = “”

Txtdis.Text = “”

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

Txtdis.Text = Val(Txthp.Text) * 0.15

ElseIf Txthp.Text > 35000000 Then

Txtdis.Text = Val(Txthp.Text) * 0.1

ElseIf Txthp.Text > 30000000 Then

Txtdis.Text = Val(Txthp.Text) * 0.5

ElseIf Txthp.Text > 25000000 Then

Txtdis.Text = Val(Txthp.Text) * 0.2

End If

Txttb.Text = Val(Txthp.Text) – Val(Txtdis.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

MAHASISWAA

RUMUS MAHASISWA STMIK PRINGSEWU

Private Sub cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjurusan.Text = “”

txtstudi.Text = “”

txttahun.Text = “”

txtnurut.Text = “”

txtbp.Text = “”

txtterbilang.Text = “”

End Sub

Private Sub cmdkeluar_Click()

Dim testmsg As Integer

testmsg = MsgBox(“anda yakin mau keluar”, vbYesNo)

End

End Sub

Private Sub cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjurusan.Text = “”

txtstudi.Text = “”

txttahun.Text = “”

txtnurut.Text = “”

txtbp.Text = “”

txtterbilang.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim s As String

txttahun.Text = “20” & Mid(txtnpm.Text, 1, 2)

txtnurut = Mid(txtnpm.Text, 6, 3)

s = Mid(txtnpm.Text, 4, 2)

If s = “01” Then

txtstudi.Text = “strata satu”

txtbp.Text = “1950000”

ElseIf s = “02” Then

txtstudi.Text = “Diploma Empat”

txtbp.Text = “1750000”

ElseIf s = “03” Then

txtstudi.Text = “Diploma Tiga”

txtbp.Text = “1650000”

ElseIf s = “04” Then

txtstudi.Text = “Diploma Dua”

txtbp.Text = “1450000”

End If

s = Mid(txtnpm.Text, 3, 1)

If s = “1” Then

txtjurusan.Text = “sistem informasi”

ElseIf s = “2” Then

txtjurusan.Text = “tehnik informasi”

ElseIf s = “3” Then

txtjurusan.Text = “manajemen informasi”

ElseIf s = “4” Then

txtjurusan.Text = “manajemen dan komp.akuntansi”

End If

End Sub

Private Sub Form_Load()

End Sub

Private Sub txtbp_Change()

txtterbilang = terbilang(Val(txtbp.Text))

End Sub

Private Function baca(X As Integer) As String

Dim i As Long

Dim Ratus(9) As String

Dim belas(9) As String

Dim puluh(9) As String

Dim satuan(9) As String

Dim sbaca As String

satuan(1) = “satu”

satuan(2) = “dua”

satuan(3) = “tiga”

satuan(4) = “Empat”

satuan(5) = “Lima”

satuan(6) = “Enam”

satuan(7) = “Tujuh”

satuan(8) = “Delapan”

satuan(9) = “Sembilan”

For i = 1 To 9

If i = 1 Then

puluh(i) = “Sepuluh”

Else

puluh(i) = satuan(i) & “Puluh”

End If

Next

For i = 1 To 9

If i = 1 Then

belas(i) = “Sebelas”

Else

belas(i) = satuan(i) & “Belas”

End If

Next

For i = 1 To 9

If i = 1 Then

Ratus(i) = “seratus”

Else

Ratus(i) = satuan(i) & ” ratus”

End If

Next

If X >= 100 Then

sbaca = Ratus(Val(Mid(Str(X), 2, 1)))

X = Val(Mid(Str(X), 3, 2))

End If

If X >= 20 Or X = 10 Then

sbaca = sbaca & ” ” & puluh(Val(Mid(Str(X), 2, 1)))

X = Val(Mid(Str(X), 3, 1))

Else

If X > 10 Then

sbaca = sbaca & ” ” & belas(Val(Mid(Str(X), 3, 1)))

X = -1

End If

End If

If X >= 1 Then

sbaca = sbaca & ” ” & satuan(Val((Str(X))))

End If

baca = sbaca

End Function

Function terbilang(X As Currency) As String

Dim ribu, juta, milyar, trilyun, ratusan As Integer

Dim sterbilang As String

Dim ptext As Byte

sterbilang = “”

If Val(X) = 1000000000000# Then

ptext = Len(Str(X)) – 13

trilyun = Val(Mid(Str(X), 2, ptext))

sterbilang = sterbilang & ” ” & baca(Val(trilyun)) & “”

X = Val(Mid(Str(X), ptext + 2, 12))

End If

If X >= 1000000000 Then

ptext = Len(Str(X)) – 10

milyar = Val(Mid(Str(X), 2, ptext))

sterbilang = sterbilang & ” ” & baca(Val(milyar)) & ” ”

X = Val(Mid(Str(X), ptext + 2, 9))

End If

If X >= 1000000 Then

ptext = Len(Str(X)) – 7

juta = Val(Mid(Str(X), 2, ptext))

sterbilang = sterbilang & ” ” & baca(Val(juta)) & ” juta”

X = Val(Mid(Str(X), ptext + 2, 6))

End If

If X >= 1000 Then

ptext = Len(Str(X)) – 4

ribu = Val(Mid(Str(X), 2, ptext))

If ribu = 1 Then

sterbilang = “seribu”

Else

sterbilang = sterbilang & ” ” & baca(Val(ribu)) & ” ribu”

End If

X = Val(Mid(Str(X), ptext + 2, 3))

End If

sterbilang = sterbilang & ” ” & baca(Val(X))

terbilang = Trim(sterbilang) & ” rupiah”

End Function

PULANG PETANGG

RUMUS PT PULANG PETANG

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

Txtmnk.SetFocus

Txtmnk.Text = “”

Txtmn.Text = “”

Txtg.Text = “”

Txtks.Text = “”

Txts.Text = “”

Txtt.Text = “”

Txtj.Text = “”

Txtb.Text = “”

Txtgp.Text = “”

Txttn.Text = “”

Txttg.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim r As String

r = Mid(Txtmn.Text, 5, 1)

If r = “A” Then

Txtg = “A”

Txtj.Text = “MANAGER”

Txtgp.Text = “4000000”

Txttn.Text = “1025000”

ElseIf r = “B” Then

Txtg.Text = “B”

Txtj.Text = “Ka.SEKSI”

Txtgp.Text = “3500000”

Txttn.Text = “975000”

ElseIf r = “C” Then

Txtg.Text = “C”

Txtj.Text = “STAFF”

Txtgp.Text = “3000000”

Txttn.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)

Txttg.Text = Val(Txtgp.Text) + Val(Txttn.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 = “”

Txtg.Text = “”

Txtks.Text = “”

Txts.Text = “”

Txtt.Text = “”

Txtj.Text = “”

Txtb.Text = “”

Txtgp.Text = “”

Txttn.Text = “”

Txttg.Text = “”

End Sub

VBb

RUMUS

Private Sub Cmdbatal_Click()

Txtnama.SetFocus

Txtnama.Text = “”

Txtnpm.Text = “”

Txtkelas.Text = “”

Txtjur.Text = “”

Txtprodi.Text = “”

Txttm.Text = “”

Txtnorut.Text = “”

Txtup.Text = “”

Txtbps.Text = “”

Txtub.Text = “”

Txtbpa.Text = “”

Txttb.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 = “”

Txtnorut.Text = “”

Txtup.Text = “”

Txtbps.Text = “”

Txtub.Text = “”

Txtbpa.Text = “”

Txttb.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim s As String

Txttm.Text = “20” & Mid(Txtnpm.Text, 3, 2)

Txtnorut = Mid(Txtnpm.Text, 8, 3)

s = Left(Txtnpm.Text, 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.Text, 5, 1)

If s = “1” Then

Txtjur.Text = “sistem informasi”

ElseIf s = “2” Then

Txtjur.Text = “manajemen informasi”

ElseIf s = “3” Then

Txtjur.Text = “manajemen dan komp.akuntansi”

End If

s = Mid(Txtnpm.Text, 6, 2)

If s = “01” Then

Txtprodi.Text = “strata satu”

Txtup.Text = “200000”

ElseIf s = “02” Then

Txtprodi.Text = “Diploma Tiga”

Txtup.Text = “150000”

ElseIf s = “03” Then

Txtprodi.Text = “Diploma satu”

Txtup.Text = “15000”

End If

s = (Txtkelas.Text) & (Txtprodi.Text)

If s = “Eksekutif” & “strata satu” Then

Txtbps = “1900000”

ElseIf s = “Eksekutif” & “Diploma Tiga” Then

Txtbps = “1650000”

ElseIf s = “Eksekutif” & “Diploma satu” Then

Txtbps = “1350000”

ElseIf s = “Reguler” & “strata satu” Then

Txtbps = “1500000”

ElseIf s = “Eksekutif” & “Diploma Tiga” Then

Txtbps = “1250000”

ElseIf s = “Eksekutif” & “Diploma satu” Then

Txtbps = “1250000”

End If

Txtbpa.Text = “600000”

Txttb = Val(Txtup.Text) + Val(Txtbps.Text) + Val(Txtub.Text) + Val(Txtbpa.Text)

End Sub

Private Sub Form_Load()

End Sub

Iklan

TUGAS

HURUF MUTU ENTER

HURUF MUTU

RUMUS HURUF MUTU ENTER

Private Sub cbonpm_Click()
Dim nama, jurusan, hm As String
Select Case cbonpm.Text
Case “14100145”
nama = “ANDINI TIARA”
jurusan = “MANAJEMEN INFORMATIKA”
Case “14100142”
nama = “AULIA MANDA”
jurusan = “TEHNIK INFORMATIKA”
Case “14100147”
nama = “IKA WIDYANINGRUM”
jurusan = “SISTEM INFORMASI”
End Select
txtnama.Text = nama
txtjurusan.Text = jurusan
txtquis.SetFocus
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 cmdkeluar_Click()
Unload Me
End Sub
Private Sub Form_Load()
cbonpm.AddItem “14100145”
cbonpm.AddItem “14100142”
cbonpm.AddItem “14100147”
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 txtuas_KeyPress(KeyAscii As Integer)
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”
End Select
txthm.Text = hm
End Sub

Private Sub txtuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuas.SetFocus
End If
End Sub

HURUF MUTU PROSES

HURUF MUTU

RUMUS HURUF MUTU PROSES

Private Sub cbonpm_Click()
Dim nama, jurusan, hm As String
Select Case cbonpm.Text
Case “14100145”
nama = “ANDINI TIARA”
jurusan = “MANAJEMEN INFORMATIKA”
Case “14100142”
nama = “AULIA MANDA”
jurusan = “TEHNIK INFORMATIKA”
Case “14100147”
nama = “IKA WIDYANINGRUM”
jurusan = “SISTEM INFORMASI”
End Select
txtnama.Text = nama
txtjurusan.Text = jurusan
txtquis.SetFocus
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 cmdkeluar_Click()
Unload Me
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”
End Select
txthm.Text = hm
End Sub

Private Sub Form_Load()
cbonpm.AddItem “14100145”
cbonpm.AddItem “14100142”
cbonpm.AddItem “14100147”
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 txtuas_KeyPress(KeyAscii As Integer)
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”
End Select
txthm.Text = hm
End Sub

Private Sub txtuts_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtuas.SetFocus
End If
End Sub

GAJI PEGAWAI

gaji

RUMUS GAJI PEGAWAI

Private Sub cbogolongan_Click()
Dim gapok, pajak, tunjangan, total As Variant
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

Private Sub cmdbatal_Click()
kosong
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
kosong
End Sub

Private Sub Form_Load()
cbogolongan.AddItem “I”
cbogolongan.AddItem “II”
cbogolongan.AddItem “III”
cbogolongan.AddItem “IV”
End Sub

Private Sub txtnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtnama.SetFocus
End If
End Sub

Public Sub kosong()
txtnidn.SetFocus
txtnidn.Text = “”
txtnama.Text = “”
cbogolongan.Text = “”
txtgapok.Text = “”
txttunjangan.Text = “”
txtpajak.Text = “”
txttotal.Text = “”
End Sub

NPM 3 ITEM

npm

RUMUS NPM 3 ITEM

Private Sub cmdbtl_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtps.Text = “”
txttm.Text = “”
txtnu.Text = “”
End Sub

Private Sub cmdkl_Click()
Unload Me
End Sub

Private Sub cmdlg_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtps.Text = “”
txttm.Text = “”
txtnu.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
txtjurusan.Text = “sistem informasi”
txtps.Text = “strata satu”
ElseIf s = “2” Then
txtjurusan.Text = “manajemen informatika”
txtps.Text = “diploma tiga”
ElseIf s = “3” Then
txtjurusan.Text = “tehnik informatika”
txtps.Text = “diploma dua”
ElseIf s = “4” Then
txtps.Text = “diploma satu”
txtjurusan.Text = “manajemen & komp.akuntansi”
End If
s = Mid(txtnpm.Text, 4, 2)
txtnu.Text = Right(txtnpm.Text, 3)
End Sub

Private Sub Form_Activate()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtps.Text = “”
txttm.Text = “”
txtnu.Text = “”
End Sub

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

NPM 4 ITEM

FOTO 2

RUMUS NPM 4 ITEM

Private Sub cmdbtl_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtps.Text = “”
txttm.Text = “”
txtnu.Text = “”
End Sub

Private Sub cmdkl_Click()
Unload Me
End Sub

Private Sub cmdlg_Click()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtps.Text = “”
txttm.Text = “”
txtnu.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
txtjurusan.Text = “sistem informasi”
ElseIf s = “2” Then
txtjurusan.Text = “manajemen informatika”
ElseIf s = “3” Then
txtjurusan.Text = “tehnik informatika”
ElseIf s = “4” Then
txtjurusan.Text = “manajemen & komp.akuntansi”
End If
s = Mid(txtnpm.Text, 4, 2)
If s = “00” Then
txtps.Text = “strata satu”
ElseIf s = “01” Then
txtps.Text = “diploma tiga”
ElseIf s = “02” Then
txtps.Text = “diploma dua”
ElseIf s = “03” Then
txtps.Text = “diploma satu”
End If
txtnu.Text = Right(txtnpm.Text, 3)
End Sub

Private Sub Form_Activate()
txtnama.SetFocus
txtnama.Text = “”
txtnpm.Text = “”
txtjurusan.Text = “”
txtps.Text = “”
txttm.Text = “”
txtnu.Text = “”
End Sub

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

TUGAS 1-1

entri penjualan laptop

RUMUS TUGAS 1-1

Private Sub cbokode_Click()
Dim merk, satuan As String
Select Case cbokode.Text
Case “Apple MC965 MacBook Air”
merk = “Apple MacBook Air MC965″
satuan = “12800000”
Case “Apple MC966 MacBook Air”
merk = “Apple MacBook Air MC966″
satuan = “15800000”
Case “Apple MC968 MacBook Air”
merk = “Apple MacBook Air MC968″
satuan = “9900000”
Case “Apple MC969 MacBook Air”
merk = “Apple MacBook Air MC969″
satuan = “11900000”
Case “Apple MC700 MacBook Pro”
merk = “Apple MacBook Pro MC700″
satuan = “10800000”
Case “Apple MC721 MacBook Pro”
merk = “Apple MacBook Pro MC721″
satuan = “15900000”
Case “Apple MC723 MacBook Pro”
merk = “Apple MacBook Pro MC723″
satuan = “19300000”
Case “Apple MC724 MacBook Pro”
merk = “Apple MacBook Pro MC724″
satuan = “13700000”
Case “Apple MC311 MacBook Pro”
merk = “Apple MacBook Pro MC311″
satuan = “24200000”
Case “Apple MC313 MacBook Pro”
merk = “Apple MacBook Pro MC313″
satuan = “11900000”
Case “Apple MC314 MacBook Pro”
merk = “Apple MacBook Pro MC314″
satuan = “14700000”
Case “Apple MC318 MacBook Pro”
merk = “Apple MacBook Pro MC318″
satuan = “17600000”
Case “Apple MC322 MacBook Pro”
merk = “Apple MacBook Pro MC322″
satuan = “21300000”
Case “Apple MC965 MacBook Air”
merk = “Apple MacBook Air MC965″
satuan = “12800000”
Case “Apple MC966 MacBook Air”
merk = “Apple MacBook Air MC966″
satuan = “15800000”
End Select
txtmrt.Text = merk
txths.Text = satuan
txtjj.SetFocus
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
cbokode.SetFocus
txtmrt = “”
txths = “”
txtjj = “”
txthp = “”
txtds = “”
txttb = “”
End Sub

Private Sub txtjj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txthp.SetFocus
txthp.Text = Val(txths.Text) * Val(txtjj.Text)
End If
Select Case txthp.Text
Case Is > 140000000
txtds.Text = Val(txthp.Text) * 0.15
Case Is > 135000000
txtds.Text = Val(txthp.Text) * 0.1
Case Is > 130000000
txtds.Text = Val(txthp.Text) * 0.5
Case Is > 125000000
txtds.Text = Val(txthp.Text) * 0.2
End Select
txttb.Text = Val(txthp.Text) – Val(txtds.Text)
End Sub

Private Sub cmdproses_Click()
txthp.Text = Val(txths.Text) * Val(txtjj.Text)
Select Case txthp.Text
Case Is > 140000000
txtds.Text = Val(txthp.Text) * 0.15
Case Is > 135000000
txtds.Text = Val(txthp.Text) * 0.1
Case Is > 130000000
txtds.Text = Val(txthp.Text) * 0.5
Case Is > 125000000
txtds.Text = Val(txthp.Text) * 0.2
End Select
txttb.Text = Val(txthp.Text) – Val(txtds.Text)
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

TUGAS 1-2

ENTRI PENJUALAN KOMPUTERR

RUMUS 1-2

Private Sub cbokode_Click()
Dim jenis, harga, jumlah, penjualan, dis, bayar As String
Select Case cbokode.Text
Case “P205″
Jeniskomputer = “Pentium II 500 Mega Hz”
satuan = “1500000”
Case “P308″
Jeniskomputer = “Pentium III 800 Mega Hz”
satuan = “2100000”
Case “P310″
Jeniskomputer = “Pentium IV 1.0 Giga Hz”
satuan = “3500000”
Case “P415″
Jeniskomputer = “Pentium IV 1.5 Giga Hz”
satuan = “4000000”
Case “P417″
Jeniskomputer = “Pentium IV 1.7 Giga Hz”
satuan = “4200000”
Case “P419″
Jeniskomputer = “Pentium IV 1.9 Giga Hz”
satuan = “5500000”
End Select
txtjk.Text = Jeniskomputer
txths.Text = satuan
txtjj.SetFocus
End Sub

Private Sub cmdcl_Click()
End
End Sub

Private Sub cmdlagi_Click()
cbokode.SetFocus
cbokode.Text = “”
txtjk.Text = “”
txths.Text = “”
txtjj.Text = “”
txthp.Text = “”
txtds.Text = “”
txthb.Text = “”
End Sub

Private Sub cmdproses_Click()
txthp.Text = Val(txths.Text) * (txtjj.Text)
txthp.Text = txthp
Select Case txthp.Text
Case Is > 30000000
txtds.Text = Val(txthp.Text) * 0.15
Case Is > 25000000
txtds.Text = Val(txthp.Text) * 0.1
Case Is > 20000000
txtds.Text = Val(txthp.Text) * 0.5
Case Is > 15000000
txtds.Text = Val(txthp.Text) * 0.2
End Select
txthb.Text = Val(txthp.Text) – Val(txtds.Text)
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

Private Sub txtjj_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txthp.Text = Val(txths.Text) * (txtjj.Text)
End If
txthp.Text = txthp
Select Case txthp.Text
Case Is > 30000000
txtds.Text = Val(txthp.Text) * 0.15
Case Is > 25000000
txtds.Text = Val(txthp.Text) * 0.1
Case Is > 20000000
txtds.Text = Val(txthp.Text) * 0.5
Case Is > 15000000
txtds.Text = Val(txthp.Text) * 0.2
End Select
txthb.Text = Val(txthp.Text) – Val(txtds.Text)
End Sub

TUGAS 1-3

DATA BUKU

RUMUS 1-3

Private Sub cmdbatal_Click()
cbokode.SetFocus
cbokode.Text = “”
txtjb.Text = “”
txtpg.Text = “”
txttt.Text = “”
txtpn.Text = “”
txth.Text = “”
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdlagi_Click()
cbokode.SetFocus
cbokode.Text = “”
txtjb.Text = “”
txtpg.Text = “”
txttt.Text = “”
txtpn.Text = “”
txth.Text = “”
End Sub

Private Sub cmdproses_Click()
Dim s As String
txttt.Text = “20” & Right(cbokode.Text, 2)
s = Mid(cbokode.Text, 3, 3)
If s = “SIM” Then
txtjb.Text = “Sistem Informasi Manajemen”
ElseIf s = “EDP” Then
txtjb.Text = “Elektronik Data Processing”
ElseIf s = “MNJ” Then
txtjb.Text = “Manajemen”
ElseIf s = “CDR” Then
txtjb.Text = “Corel Draw”
ElseIf s = “RPL” Then
txtjb.Text = “Rekayasa Perangkat Lunak”
End If
s = Left(cbokode.Text, 1)
If s = “A” Then
txtpg.Text = “Ika Widyaningrum”
txth.Text = “75900”
txtpn.Text = “Sahabat Poncowarno”
ElseIf s = “I” Then
txtpg.Text = “Imam Tarmizi”
txth.Text = “620000”
txtpn.Text = “Indah Surabaya”
ElseIf s = “S” Then
txtpg.Text = “Valentina Mariana adiwinanti”
txth.Text = “42000”
txtpn.Text = “Salemba Empat”
ElseIf s = “E” Then
txtpg.Text = “Ryan Suhandi”
txth.Text = “53000”
txtpn.Text = “Elek Media Komputindo”
ElseIf s = “M” Then
txtpg.Text = “Sinta Umpu Singa”
txth.Text = “83000”
txtpn.Text = “Maxicom”
End If
txth.SetFocus
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

TUGAS 2-1

TIKET

RUMUS 2-1

Private Sub cmdproses_click()
Dim S As String
S = (txtkode.Text)
If S = “MUT″ Then
txtht.Text = “23000”
txtjk.Text = “MUTIARA”
txtjb.Text = “17.00”
txtjt.SetFocus
ElseIf S = “BIM″ Then
txtht.Text = “50000”
txtjk.Text = “BIMA”
txtjb.Text = “16.00”
txtjt.SetFocus
ElseIf S = “EKO″ Then
txtht.Text = “35000”
txtjk.Text = “EKONOMI”
txtjb.Text = “19.00”
txtjt.SetFocus
ElseIf S = “SEN″ Then
txtht.Text = “75000”
txtjk.Text = “SENJA”
txtjb.Text = “20.00”
txtjt.SetFocus
End If
End Sub

Private Sub txtjt_keypress(keyascii As Integer)
If keyascii = 13 Then
Dim A, B, C As Single
A = txtht.Text
B = txtjt.Text
C = B * A
txttp.Text = C
End If
End Sub

Private Sub Cmdlagi_Click()
txtkode.SetFocus
txtkode.Text = “”
txtht.Text = “”
txtjk.Text = “”
txtjb.Text = “”
txtjt.Text = “”
txttp.Text = “”
End Sub
Private Sub cmdkeluar_click()
End
End Sub

TUGAS 2-2

data buku benar

RUMUS 2-2

Private Sub cmdlagi_Click()
txtkode.SetFocus
txtkode.Text = “”
txtjb.Text = “”
txtpgr.Text = “”
txttt.Text = “”
txtpn.Text = “”
txth.Text = “”
End Sub

Private Sub cmdbatal_Click()
txtkode.SetFocus
txtkode.Text = “”
txtjb.Text = “”
txtpgr.Text = “”
txttt.Text = “”
txtpn.Text = “”
txth.Text = “”
End Sub

Private Sub cmdkeluar_click()
End
End Sub

Private Sub Cmdproses_Click()
Dim S As String
txttt.Text = “20” & Mid(txtkode.Text, 5, 2)
S = Left(txtkode.Text, 3)
If S = “SIM” Then
txtjb.Text = “Sistem Informasi”
txtpgr.Text = “Fadiya ulfa”
ElseIf S = “EDP” Then
txtjb.Text = “elektronik data Procesing”
txtpgr.Text = “Nurul Agustina”
ElseIf S = “MNJ” Then
txtjb.Text = “Manajemen”
txtpgr.Text = “Ika Widyaningrum”
ElseIf S = “CDR” Then
txtjb.Text = “Corel Draw”
txtpgr.Text = “Siti Nurkhotimah”
ElseIf S = “RPL” Then
txtjb.Text = “Rekaya Perangkat Lunak “
txtpgr.Text = “Winda erlianti”
End If
S = Mid(txtkode.Text, 8, 1)
If S = “A” Then
txtpn.Text = “Sahabat Poncowarno”
txth.Text = “75900”
ElseIf S = “I” Then
txtpn.Text = “Indah Surabaya”
txth.Text = “62000”
ElseIf S = “S” Then
txtpn.Text = “Salemba Empat”
txth.Text = “42000”
ElseIf S = “E” Then
txtpn.Text = “Elek Media Komputindo”
txth.Text = “53000”
ElseIf S = “M” Then
txtpn.Text = “Maxicom”
txth.Text = “83000”
End If
End Sub

TUGAS VISUAL BASIC II

GAJI

DAFTAR GAJI

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.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text4.Text = “”
Text5.Text = “”
Text6.Text = “”
Text1.SetFocus
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

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

VB BIRU

FONT COLOR DAN STYLE

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

End Sub

Private Sub Chkitalic_Click()
If chkitalic.Value = 1 Then
lbltext.FontItalic = True
Else
lbltext.FontItalic = False
End If
End Sub

Private Sub Chkstrike_Click()
If chkstrike.Value = 1 Then
lbltext.FontStrikethru = True
Else
lbltext.FontStrikethru = False
End If
End Sub

Private Sub Chkunder_Click()
If chkunder.Value = 1 Then
lbltext.FontUnderline = True
Else
lbltext.FontUnderline = False
End If
End Sub

Private Sub Cmdexit_Click()
End
End Sub

Private Sub optblue_Click()
lbltext.ForeColor = vbBlue

End Sub

Private Sub optgreen_Click()
lbltext.ForeColor = vbGreen

End Sub

Private Sub optred_Click()
lbltext.ForeColor = vbRed

End Sub

Private Sub optyellow_Click()
lbltext.ForeColor = vbYellow
End Sub

VB MERAH

MASUKKAN NAMA ANDA

Private Sub chkbold_Click()
label2.FontBold = chkbold.Value
End Sub

Private Sub chkitalic_Click()
label2.FontItalic = chkitalic.Value
End Sub

Private Sub chkstrike_Click()
label2.FontStrikethru = chkstrike.Value
End Sub

Private Sub chkunder_Click()
label2.FontUnderline = chkunder.Value
End Sub

Private Sub cmdkeluar_Click()
End
End Sub

Private Sub cmdok_Click()
label2.Caption = Text1.Text
End Sub

Private Sub optblue_Click()
label2.ForeColor = vbBlue
End Sub

Private Sub optgreen_Click()
label2.ForeColor = vbGreen
End Sub

Private Sub optred_Click()
label2.ForeColor = vbRed
End Sub

Private Sub optyellow_Click()
label2.ForeColor = vbYellow
End Sub
End If
End Sub

TUGAS VISUAL BASIC

1

RUMUS BUKU DATA
Private Sub Command1_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.Text = “”
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
Text4.Text = “”
Text5.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
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

2

RUMUS PENJUMLAHAN 2 BILANGAN
Private Sub Command1_Click()
Dim a, b, c As Single
a = Text1.Text
b = Text2.Text
c = a * b
Text3.Text = c
End Sub Baca lebih lanjut

BPJS Kesehatan Bayar Klaim Rp 31 triliun

BPJS Kesehatan  Bayar Klaim Rp 31 triliun

Badan Penyelenggara Jaminan Sosial (BPJS) Kesehatan membukukan kinerja yang semakin baik. Pertumbuhan tersebut terlihat dari naiknya jumlah peserta, fasilitas kesehatan, hingga makin cepatnya waktu penyelesaian klaim.

Kepala Grup Komunikasi dan Kerjasama Antar Lembaga BPJS Kesehatan, Ihsan menjelaskan, per November 2014, jumlah peserta BPJS Kesehatan lebih kurang mencapai 131,5 juta jiwa. Padahal awalnya, sepanjang tahun 2014, hanya ditargetkan sebanyak 101,6 juta jiwa.

Jumlah peserta BPJS Kesehatan secara bulanan, terus meningkat. Per Oktober 2014, jumlah peserta BPJS Kesehatan telah mencapai 130.286.703 orang. Angka ini pun naik signifikan, jika dibandingkan dengan data peserta per Agustus 2014 lalu, yaitu sebesar 127.251.791 jiwa.

“Perusahaan sudah melakukan sosialisasi sampai ke daerah-daerah mengenai JKN (Jaminan Kesehatan Nasional). Setiap hari Rabu dan Kamis pun, setidaknya 100 perusahaan datang ke BPJS Kesehatan untuk berdiskusi mengenai hal ini,” kata Ihsan.

Sementara itu, dari segi klaim yang sudah dibayarkan, sampai November 2014 mencapai lebih dari Rp 31 triliun. Ihsan merinci, khusus kepada Penerima Bantuan Iuran (PBI), klaim yang dibayarkan mencapai Rp 19,3 triliun.

Kinerja yang semakin baik juga terlihat dari waktu penyelesaian klaim dengan rata-rata 2,8 hari. Padahal, ketentuan mengenai penyelesaian klaim sesuai peraturan adalah selama 15 hari.

Karena itu, BPJS Kesehatan senantiasa mendorong seluruh lapisan masyarakat agar segera mendaftar ke BPJS. Himbauan utamanya diberikan kepada para pekerja penerima upah agar secara gotong royong, bersama-sama untuk mendaftar sebagai peserta BPJS Kesehatan.

Sehingga, sesuai dengan ketentuan undang-undang, pada awal tahun 2019, semua masyarakat Indonesia yang diprediksi 257,5 juta jiwa itu sudah memiliki BPJS Kesehatan.(KONTAN/Dea Chadiza Syafina )

Korban Miras Oplosan Berjatuhan di Jawa Barat, Apa Kata Gubernur Aher? Sabtu, 6 Desember 2014 | 16:43 WIB

Setidaknya ada 16 orang di Garut, 10 orang di Sumedang, Jawa Barat, tewas akibat menenggak minuman keras (miras) oplosan. Hal serupa juga terjadi di Jakarta dan Bogor, sehingga jika digabungkan jumlah yang tewas akibat minuman keras oplosan ini mencapai 34 orang.

Karena miras oplosan, ratusan orang di Sumedang dan Garut masuk rumah sakit. Gubernur Jawa Barat Ahmad Heryawan mengaku prihatin dan menyesali kejadian ini. “Kita sangat menyesali kejadian seperti itu,” kata pria yang akrab disapa Aher itu seusai rapat pemilihan rektor Institut Teknologi Bandung (ITB) di Jalan Dipatiukur, Bandung, Jawa Barat, Sabtu, (6/12/2014).

Aher berharap kejadian ini tidak terulang dikemudian hari. Salah satu caranya, kata Aher, dengan meningkatkan pengawasan masyarakat tentang peredaran minuman keras, terutama minuman keras (miras) oplosan. [Baca: Korban Miras Oplosan di Sumedang Jadi 103 Orang]

“Kita harus meningkatkan pengawasan (peredaran miras) di masyarakat, ini momentum bagi kita semuanya untuk menyadarkan masyarakat,” kata dia. [Baca: Apa Isi Miras “Maut” Oplosan Sumedang?]

Terlebih lagi, hal ini, lanjut dia, merupakan momentum bagi aparat kepolisian untuk dapat mengungkap dengan bersih asal muasal miras oplosan tersebut. “Alhamdulillah kan sudah terungkap, di mana tempat mengoplos itu sudah terungkap,” katanya.

Selain itu, kata dia, diperlukan kesadaran masyarakatnya pula. Aher berharap kepolisian lebih gencar lagi dan memberantas habis tempat-tempat jualan minuman oplosan itu.

“Kita juga berkoordinasi dengan pihak kepolisian untuk memantau tempat-tempat minuman oplosan yang belum terungkap, kita gerakkan lagi, kejar lagi, untuk mengungkap yang belum terungkap,” katanya.

Aher berharap dengan adanya pemberantasan minuman keras oplosan ini tidak ada lagi masyarakat yang menjadi korban.

“Jadi, kalau sudah diungkap peredaran minuman oplosan, kemudian penyadaran masyarakat tentang bahaya miras juga sudah dipahami, ya, ini, pengkonsumsi miras oplosan dan lahirnya korban jiwa otomatis berhenti,” ujarnya.

Asian Agri: Industri Kelapa Sawit Berpotensi Besar Sumbangkan Energi Listrik Jumat, 5 Desember 2014 | 06:09 WIB

Industri kelapa sawit dinilai berpotensi besar untuk berkontribusi menyukseskan program pemerintah yang menargetkan pembangunan listrik 35.000 megawatt. Di samping menghasilkan minyak, perusahaan kelapa sawit bisa mengelola sampah produksi menjadi bio massa untuk listrik.

“Besar potensi industri kelapa sawit masuk ke dalam dan jadi penyumbang energi. Banyak perusahaan yang sudah masuk ke bio gas untuk bahan produksi listrik. Di Asian Agri kita juga masuk. Kita memiliki lima pabrik bio gas dan akan kita tambahkan terus tiap tahun beberapa unit,” kata Managing Director PT Asian Agri, Kelvin Tio dalam acara workshop yang digelar Raja Garuda Emas di Singapura, Kamis (4/11/2014).

Ia juga menilai pemerintah telah membuat kebijakan yang baik yang mendorong swasta berperan dalam menyediakan listrik. Kebijakan tersebut salah satunya menetapkan tarif jual energi listrik yang dihasilkan dari bio gas atau bio massa. Nantinya, pemerintah melalui PLN akan membeli listrik yang dihasilkan perusahaan swasta melalui standar harga jual yang ditentukan tersebut.

“Itu peraturan baku ESDM dan yang paling penting, tidak ada proses tendernya. Sudah sesuai dengan tarif pemerintah dan bisa jual ke PLN sepanjang ada penyambung (listrik) ke mereka, itu sangat baik,” sambung Kelvin.

Saat ini, Asian Agri mengelola 160.000 hektar lahan kelapa sawit. Lahan ini terdiri dari 100.000 hektar kepemilikan, dan 60 hektare lahan milik petani yang dibina Asian Agri.

Seperti diberitakan sebelumnya, pemerintah mendorong pertumbuhan independent power producer (IPP) atau perusahaan pembangkit listrik swasta dalam memenuhi target pembangunan listrik 35.000 megawatt. Program pembangunan listrik ini merupakan salah satu program yang diunggulkan Presiden Joko Widodo (Jokowi) dan Wakil Presiden Jusuf Kalla.