Search

supraptistmikpringsewu

database (semester 3)

PRAPTIA

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtkt.SetFocus

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub cmdkeluar_Click()

form2.Show

End Sub

 

Private Sub cmdlagi_Click()

txtkt.SetFocus

txtkt.Text = “”

txtht.Text = “”

txtjk.Text = “”

txtjb.Text = “”

txtjt.Text = “”

txttotalp.Text = “”

End Sub

 

Private Sub cmdproses_Click()

Dim JK As String

Dim HT, JB As Variant

A = Left(txtkt, 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 = “15.000”

JB = “20.00”

ElseIf KeyAscii = 13 Then

txtjt.SetFocus

End If

txtht = HT

txtjk = JK

txtjb = JB

End Sub

 

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

 

Private Sub txtjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttotalp = Val(txtht) * Val(txtjt)

End If

End Sub

 

Private Sub txtkt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtjt.SetFocus

End If

End Sub

 

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

 

Private Sub Command2_Click()

Form1.Show

End Sub

 

Advertisements

bahasa pemrograman database

Program 1

PRAPTI1

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

Form2.Show

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

 

Public Sub kosong()

txtnidn.SetFocus

txtnidn.Text = “”

txtnama.Text = “”

cbogolongan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

 

Private Sub txtnidn_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnama.SetFocus

End If

End Sub

 

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtnidn.SetFocus

End Sub

 

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

 

Private Sub Command2_Click()

Form1.Show

End Sub

 

program 2

PRAPTI2

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtnama.SetFocus

End Sub

 

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txturut.Text = “”

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub cmdkeluar_Click()

Form2.Show

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 J, P, 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 cmdsimpan_Click()

Data1.Recordset.Update

End Sub

 

Private Sub Form_activate()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txturut.Text = “”

End Sub

 

Private Sub Txtnama_Keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

 

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

 

Private Sub Command2_Click()

Form1.Show

End Sub

 

program 3

PRAPTI3

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtnama.SetFocus

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub Cmdkeluar_Click()

Form2.Show

End Sub

 

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

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

 

Private Sub Cmdproses_Click()

Dim J, P, 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 Form_activate()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txturut.Text = “”

End Sub

 

 

Private Sub Txtnama_Keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

 

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

 

Private Sub Command2_Click()

Form1.Show

End Sub

 

TIPE A

PRAPTIA

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtkt.SetFocus

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub cmdkeluar_Click()

form2.Show

End Sub

 

Private Sub cmdlagi_Click()

txtkt.SetFocus

txtkt.Text = “”

txtht.Text = “”

txtjk.Text = “”

txtjb.Text = “”

txtjt.Text = “”

txttotalp.Text = “”

End Sub

 

Private Sub cmdproses_Click()

Dim JK As String

Dim HT, JB As Variant

A = Left(txtkt, 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 = “15.000”

JB = “20.00”

ElseIf KeyAscii = 13 Then

txtjt.SetFocus

End If

txtht = HT

txtjk = JK

txtjb = JB

End Sub

 

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

 

Private Sub txtjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttotalp = Val(txtht) * Val(txtjt)

End If

End Sub

 

Private Sub txtkt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtjt.SetFocus

End If

End Sub

 

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

 

Private Sub Command2_Click()

Form1.Show

End Sub

 

TIPE B

PRAPTIB

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtkb.SetFocus

End Sub

 

Private Sub cmdbatal_Click()

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub cmdkeluar_Click()

Form2.Show

End Sub

 

Private Sub cmdlagi_Click()

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

Private Sub cmdproses_Click()

Dim S As String

txttahun.Text = “20” & Right(txtkb, 2)

S = Mid(txtkb, 3, 3)

If S = “SIM” Then

txtjb.Text = “Sistem Informasi Manajemen”

txtp.Text = “Andra Setiawan”

txthg.Text = “75900”

ElseIf S = “EDP” Then

txtjb.Text = “Elektronik Data Processing”

txtp.Text = “Desi Istiqomah”

txthg.Text = “62000”

ElseIf S = “MNJ” Then

txtjb.Text = “Manajemen”

txtp.Text = “Sandy Fitriajaya”

txthg.Text = “42000”

ElseIf S = “CDR” Then

txtjb.Text = “Corel Draw”

txtp.Text = “Tri Indah Sari”

txthg.Text = “53000”

ElseIf S = “RPL” Then

txtjb.Text = “Rekayasa Perangkat Lunak”

txtp.Text = “Ernita Sari”

txthg.Text = “83000”

End If

S = Left(txtkb, 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

 

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

 

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

 

Private Sub Command2_Click()

Form1.Show

End Sub

 

TIPE C

PRAPTIC

Private Sub cbokode_Click()

Select Case cbokode.Text

Case “P205”

txtjk.Text = “pentiumII 500 Mega Hz”

txths.Text = “1500000”

Case “P308”

txtjk.Text = “pentiumIII 800 Mega Hz”

txths.Text = “2100000”

Case “P310”

txtjk.Text = “pentiumIII 1.0 Giga Hz”

txths.Text = “3500000”

Case “P415”

txtjk.Text = “pentiumIV 1.5 Giga Hz”

txths.Text = “4000000”

Case “P417”

txtjk.Text = “pentiumIV 1.7 Giga Hz”

txths.Text = “4200000”

Case “P419”

txtjk.Text = “pentiumIV 1.9 Giga Hz”

txths.Text = “5500000”

End Select

End Sub

 

 

Private Sub cmdproses_Click()

txthp.Text = Val(txtjj.Text) * Val(txths.Text)

If txthp.Text > 30000000 Then

txtdis = Val(txthp) * 0.15

ElseIf txthp.Text > 25000000 Then

txtdis = Val(txthp) * 0.1

ElseIf txthp.Text > 20000000 Then

txtdis = Val(txthp) * 0.05

ElseIf txthp.Text > 15000000 Then

txtdis = Val(txthp) * 0.2

End If

txthb = Val(txthp) – Val(txtdis)

End Sub

 

Private Sub cmdhl_Click()

cbokode.SetFocus

cbokode.Text = “”

txtjk.Text = “”

txths.Text = “”

txtjj.Text = “”

txthp.Text = “”

txtdis.Text = “”

txthb.Text = “”

End Sub

 

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

cbokode.SetFocus

End Sub

 

Private Sub cmdclose_Click()

form2.Show

End Sub

 

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

 

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

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 txths_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtjj.SetFocus

End If

End Sub

 

Private Sub txtjj_KeyPress(KeyAscii As Integer)

txthp.Text = Val(txtjj.Text) * Val(txths.Text)

If txthp.Text > 30000000 Then

txtdis = Val(txthp) * 0.15

ElseIf txthp.Text > 25000000 Then

txtdis = Val(txthp) * 0.1

ElseIf txthp.Text > 20000000 Then

txtdis = Val(txthp) * 0.05

ElseIf txthp.Text > 15000000 Then

txtdis = Val(txthp) * 0.2

End If

txthb = Val(txthp) – Val(txtdis)

End Sub

 

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

 

Private Sub Command2_Click()

Form1.Show

End Sub

 

TIPE D

PRAPTID

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

cbokode.SetFocus

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub cmdkeluar_Click()

Form2.Show

End Sub

 

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

 

Private Sub cmdproses_Click()

Dim A, B, C, D As String

Dim H As Double

txttahun = “20” & Right(cbokode, 2)

A = Mid(cbokode, 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 UMPU SINGA”

H = “83000”

End If

txtjb.Text = B

txtp.Text = C

txthg.Text = H

D = Left(cbokode, 1)

If D = “A” Then

txtpenerbit.Text = “ANDY OFFSET YOGYAKARTA”

ElseIf D = “I” Then

txtpenerbit.Text = “INDAH SURABAYA”

ElseIf D = “M” Then

txtpenerbit.Text = “MAXICOM”

ElseIf D = “S” Then

txtpenerbit.Text = “SALEMBA EMPAT”

ElseIf D = “E” Then

txtpenerbit.Text = “ELEK MEDIA KOMPUTINDO”

End If

End Sub

 

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode = “”

txtjb = “”

txtp = “”

txttt = “”

txtpenerbit = “”

txthg = “”

End Sub

 

Private Sub cmdbatal_Click()

cbokode.SetFocus

cbokode = “”

txtjb = “”

txtp = “”

txttt = “”

txtpenerbit = “”

txthg = “”

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

 

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

 

Private Sub Command2_Click()

Form1.Show

End Sub

 

TIPE E

PRAPTIE

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtkb.SetFocus

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub cmdkeluar_Click()

Form2.Show

End Sub

 

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

 

 

Private Sub cmdbatal_Click()

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

 

Private Sub cmdlagi_Click()

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

 

Private Sub cmdproses_Click()

Dim S As String

txttahun.Text = “20” & Mid(txtkb, 5, 2)

S = Left(txtkb, 3)

If S = “SIM” Then

txtjb.Text = “Sistem Informasi Manajemen”

txtp.Text = “Fadiya Ulfa”

txthg.Text = “75900”

ElseIf S = “EDP” Then

txtjb.Text = “Elektronik Data Processing”

txtp.Text = “Nurul Agustina”

txthg.Text = “62000”

ElseIf S = “MNJ” Then

txtjb.Text = “Manajemen”

txtp.Text = “Rian Hidayat”

txthg.Text = “42000”

ElseIf S = “CDR” Then

txtjb.Text = “Corel Draw”

txtp.Text = “Siti Nur Khotimah”

txthg.Text = “53000”

ElseIf S = “RPL” Then

txtjb.Text = “Rekayasa Perangkat Lunak”

txtp.Text = “Winda Erlianti”

txthg.Text = “83000”

End If

S = Right(txtkb, 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

 

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

 

Private Sub Command2_Click()

Form1.Show

End Sub

 

TIPE F

PRAPTIF

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

cbokode.SetFocus

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub cmdproses_Click()

txthp = Val(txtjj) * Val(txths)

If txthp > 140000000 Then

txtdis = Val(txthp) * 0.15

ElseIf txthp > 135000000 Then

txtdis = Val(txthp) * 0.1

ElseIf txthp > 130000000 Then

txtdis = Val(txthp) * 0.05

ElseIf txthp > 125000000 Then

txtdis = Val(txthp) * 0.02

End If

txttb = Val(txthp) – Val(txtdis)

End Sub

 

 

Private Sub cmdhl_Click()

cbokode.SetFocus

cbokode = “”

txtmerk = “”

txths = “”

txtjj = “”

txthp = “”

txtdis = “”

txttb = “”

End Sub

 

Private Sub cmdkeluar_Click()

form2.Show

End Sub

 

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

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 N43SL”

cbokode.AddItem “Apple MD311”

cbokode.AddItem “Apple MD313”

cbokode.AddItem “Apple MD314”

cbokode.AddItem “Apple MD322”

cbokode.AddItem “Apple MC965”

End Sub

 

Private Sub txtjj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthp = Val(txtjj) * Val(txths)

If txthp > 140000000 Then

txtdis = Val(txthp) * 0.15

ElseIf txthp > 135000000 Then

txtdis = Val(txthp) * 0.1

ElseIf txthp > 130000000 Then

txtdis = Val(txthp) * 0.05

ElseIf txthp > 125000000 Then

txtdis = Val(txthp) * 0.02

End If

txttb = Val(txthp) – Val(txtdis)

End If

End Sub

 

Private Sub cbokode_Click()

Select Case cbokode.Text

Case “ASUS A43SA”

txtmerk.Text = “VX090D”

txths = “5500000”

Case “ASUS A43SD”

txtmerk = “VX052D”

txths = “4500000”

Case “ASUS A43SJ”

txtmerk = “VX7792D”

txths = “4300000”

Case “ASUS A43TA”

txtmerk = “VX034D”

txths = “4900000”

Case “N43SL”

txtmerk = “VX264D”

txths = “4300000”

Case “Apple MD311”

txtmerk = “Apple MacBook Pro MD311”

txths = “19300000”

Case “Apple MD313”

txtmerk = “Apple MacBook Pro MD313”

txths = “24200000”

Case “Apple MD314”

txtmerk = “Apple MacBook Pro MD314”

txths = “11900000”

Case “Apple MD322”

txtmerk = “Apple MacBook Pro MD322”

txths = “14700000”

Case “Apple MC965”

txtmerk = “Apple MacBook Air MC965”

txths = “21300000”

End Select

End Sub

 

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

 

Private Sub Command2_Click()

Form1.Show

End Sub

 

TIPE G

PRAPTIG

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtnama.SetFocus

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub Cmdkeluar_Click()

Form2.Show

End Sub

 

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

 

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama = “”

txtnpm = “”

txtjur = “”

txtps = “”

txttm = “”

txturut = “”

txtbp = “”

End Sub

 

Private Sub Cmdlagi_Click()

txtnama.SetFocus

txtnama = “”

txtnpm = “”

txtjur = “”

txtps = “”

txttm = “”

txturut = “”

txtbp = “”

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”

txtps.Text = “strata satu”

txtbp.Text = “1.950.000”

ElseIf s = “2” Then

txtjur.Text = “tehnik informatika”

txtps.Text = “diploma empat”

txtbp.Text = “1.750.000”

ElseIf s = “3” Then

txtjur.Text = “manajemen informatika”

txtps.Text = “diploma tiga”

txtbp.Text = “1.650.000”

ElseIf s = “4” Then

txtjur.Text = “Manajemen & Komp.Akuntansi”

txtps.Text = “diploma dua”

txtbp.Text = “1.450.000”

End If

txturut.Text = Right(txtnpm.Text, 3)

End Sub

 

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

 

Private Sub Command2_Click()

Form1.Show

End Sub

 

TIPE H

PRAPTIH

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

cbokode.SetFocus

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub Cmdkeluar_Click()

form2.Show

End Sub

 

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

 

Private Sub cbokode_Click()

Dim jk, hs, TB As Integer

Select Case cbokode.Text

Case “P205”

jk = “Pentium II 500 Mega Hz”

hs = “1500000”

Case “P308”

jk = “Pentium III 800 Mega Hz”

hs = “2100000”

Case “P310”

jk = “Pentium III 1.0 Giga Hz”

hs = “3500000”

Case “P415”

jk = “Pentium IV 1.5 Giga Hz”

hs = “4000000”

Case “P417”

jk = “Pentium IV 1.7 Giga Hz”

hs = “4200000”

Case “P419”

jk = “Pentium IV 1.9 Giga Hz”

hs = “5500000”

End Select

txtjk.Text = jk

txths.Text = hs

txtjj.SetFocus

End Sub

 

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode.Text = “”

txtjk.Text = “”

txths.Text = “”

txtjj.Text = “”

txthp.Text = “”

txtdis.Text = “”

txttb.Text = “”

End Sub

 

Private Sub cmdproses_Click()

txthp.Text = Val(txths) * Val(txtjj)

Select Case txthp.Text

Case Is > 40000000

txtdis = Val(txthp) * 0.15

Case Is > 35000000

txtdis = Val(txthp) * 0.1

Case Is > 30000000

txtdis = Val(txthp) * 0.05

Case Is > 25000000

txtdis = Val(txthp) * 0.02

End Select

txttb = Val(txthp) – Val(txtdis)

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 = Val(txths) * Val(txtjj)

Select Case txthp.Text

Case Is > 40000000

txtdis = Val(txthp) * 0.15

Case Is > 35000000

txtdis = Val(txthp) * 0.1

Case Is > 30000000

txtdis = Val(txthp) * 0.05

Case Is > 25000000

txtdis = Val(txthp) * 0.02

End Select

txttb = Val(txthp) – Val(txtdis)

End If

End Sub

 

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

 

Private Sub Command2_Click()

Form1.Show

End Sub

 

TIPE I

PRAPTII

Private Sub cmdbaru_Click()

Data1.Recordset.AddNew

txtnk.SetFocus

End Sub

 

Private Sub cmdbatal_Click()

txtnk.SetFocus

txtnk = “”

txtnik = “”

txtgol = “”

txtks = “”

txtstatus = “”

txttahun = “”

txtjbt = “”

txtbagian = “”

txtgapok = “”

txttunjangan = “”

txttotal = “”

End Sub

 

Private Sub cmdhapus_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub cmdkeluar_Click()

Form2.Show

End Sub

 

Private Sub cmdlagi_Click()

txtnk.SetFocus

txtnk = “”

txtnik = “”

txtgol = “”

txtks = “”

txtstatus = “”

txttahun = “”

txtjbt = “”

txtbagian = “”

txtgapok = “”

txttunjangan = “”

txttotal = “”

End Sub

 

Private Sub cmdproses_Click()

Dim r As String

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

If r = “A” Then

txtgol = “A”

txtjbt.Text = “MANAGER”

txtgapok.Text = “4000000”

txttunjangan = “1025000”

ElseIf r = “B” Then

txtgol.Text = “B”

txtjbt.Text = “Ka.SEKSI”

txtgapok.Text = “3500000”

txttunjangan = “975000”

ElseIf r = “C” Then

txtgol.Text = “C”

txtjbt.Text = “STAFF”

txtgapok.Text = “3000000”

txttunjangan = “925000”

End If

r = Right(txtnik.Text, 3)

If r = “KEU” Then

txtbagian.Text = “ACCOUNTING”

ElseIf r = “ADM” Then

txtbagian.Text = “ADMINISTRASI”

ElseIf r = “SDM” Then

txtbagian.Text = “GENERAL AFFAIR”

ElseIf r = “EDP” Then

txtbagian.Text = “IT UNIT”

ElseIf r = “SPM” Then

txtbagian.Text = “SECURITY”

End If

r = Mid(txtnik.Text, 7, 1)

If r = “S” Then

kode = “S”

Status = “SINGLE”

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

txtstatus.Text = Status

txttahun.Text = Left(txtnik.Text, 4)

txttotal = Val(txtgapok) + Val(txttunjangan)

End Sub

 

Private Sub cmdsimpan_Click()

Data1.Recordset.Update

End Sub

 

Ketika di klik keluar maka :

keluar

Private Sub Command1_Click()

End

End Sub

 

Private Sub Command2_Click()

Form1.Show

End Sub

 

PROGRAM 13

PRAPTIJ

Private Sub cmdadd_Click()

Data1.Recordset.AddNew

txtkode.SetFocus

End Sub

 

Private Sub cmdcancel_Click()

Data1.Recordset.Delete

End Sub

 

Private Sub cmdhitung_Click()

txtby = Val(txthb) * Val(txtjb)

If txtjb > 5 Then

txtpot = Val(txtby) * 0.02

End If

txttb = Val(txtby) – Val(txtpot)

End Sub

 

Private Sub cmdkeluar_Click()

Form2.Show

End Sub

 

Private Sub cmdproses_Click()

Dim s As String

s = Mid(txtkode, 5, 2)

If s = “SP” Then

txtnb.Text = “Spidol”

txthb.Text = “9500”

ElseIf s = “BT” Then

txtnb.Text = “Buku Tulis”

txthb.Text = “12500”

ElseIf s = “TP” Then

txtnb.Text = “Tip Ex”

txthb.Text = “3000”

ElseIf s = “PG” Then

txtnb.Text = “Penggaris”

txthb.Text = “25000”

ElseIf s = “PT” Then

txtnb.Text = “Papan Tulis”

txthb.Text = “50000”

End If

txtjb.SetFocus

End Sub

 

Private Sub cmdsave_Click()

Data1.Recordset.Update

End Sub

 

Ketika di klik keluar maka :

PRAPTIT

Private Sub Command1_Click()

End

End Sub

 

Private Sub Command2_Click()

Form1.Show

End Sub

pr5 BAHASA PEMROGRAMAN

PROGRAM 1

PRAPTI1

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

End

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

 

Public Sub kosong()

txtnidn.SetFocus

txtnidn.Text = “”

txtnama.Text = “”

cbogolongan.Text = “”

txtgapok.Text = “”

txttunjangan.Text = “”

txtpajak.Text = “”

txttotal.Text = “”

End Sub

 

Private Sub txtnidn_keypress(keyascii As Integer)

If keyascii = 13 Then

txtnama.SetFocus

End If

End Sub

 

PROGRAM 2

PRAPTI2

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txtTm.Text = “”

txturut.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

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 J, P, 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 Form_activate()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txtTm.Text = “”

txturut.Text = “”

End Sub

 

Private Sub Txtnama_Keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

 

PROGRAM 3

PRAPTI3

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txtTm.Text = “”

txturut.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

Unload Me

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 J, P, 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 Form_activate()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txtTm.Text = “”

txturut.Text = “”

End Sub

 

 

Private Sub Txtnama_Keypress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnpm.SetFocus

End If

End Sub

 

TIPE A

PRAPTIA

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

txtkt.SetFocus

txtkt.Text = “”

txtht.Text = “”

txtjk.Text = “”

txtjb.Text = “”

txtjt.Text = “”

txttotalp.Text = “”

End Sub

 

Private Sub cmdproses_Click()

Dim JK As String

Dim HT, JB As Variant

A = Left(txtkt, 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 = “15.000”

JB = “20.00”

ElseIf KeyAscii = 13 Then

txtjt.SetFocus

End If

txtht.Text = HT

txtjk.Text = JK

txtjb.Text = JB

End Sub

 

 

 

Private Sub txtjt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttotalp = Val(txtht) * Val(txtjt)

End If

End Sub

 

Private Sub txtkt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtjt.SetFocus

End If

End Sub

 

TIPE B

PRAPTIB

Private Sub cmdbatal_Click()

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

 

 

Private Sub cmdproses_Click()

Dim S As String

txttahun.Text = “20” & Right(txtkb, 2)

S = Mid(txtkb, 3, 3)

If S = “SIM” Then

txtjb.Text = “Sistem Informasi Manajemen”

txtp.Text = “Andra Setiawan”

txthg.Text = “75900”

ElseIf S = “EDP” Then

txtjb.Text = “lektronik Data Processing”

txtp.Text = “Desi Istiqomah”

txthg.Text = “62000”

ElseIf S = “MNJ” Then

txtjb.Text = “Manajemen”

txtp.Text = “Sandy Fitriajaya”

txthg.Text = “42000”

ElseIf S = “CDR” Then

txtjb.Text = “Corel Draw”

txtp.Text = “Tri Indah Sari”

txthg.Text = “53000”

ElseIf S = “RPL” Then

txtjb.Text = “Rekayasa Perangkat Lunak”

txtp.Text = “Ernita Sari”

txthg.Text = “83000”

End If

S = Left(txtkb, 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

 

TIPE C

PRAPTIC

Private Sub cbokode_Click()

Select Case cbokode.Text

Case “P205”

txtjk.Text = “pentiumII 500 Mega Hz”

txths.Text = “1500000”

Case “P308”

txtjk.Text = “pentiumIII 800 Mega Hz”

txths.Text = “2100000”

Case “P310”

txtjk.Text = “pentiumIII 1.0 Giga Hz”

txths.Text = “3500000”

Case “P415”

txtjk.Text = “pentiumIV 1.5 Giga Hz”

txths.Text = “4000000”

Case “P417”

txtjk.Text = “pentiumIV 1.7 Giga Hz”

txths.Text = “4200000”

Case “P419”

txtjk.Text = “pentiumIV 1.9 Giga Hz”

txths.Text = “5500000”

End Select

End Sub

 

 

Private Sub cmbproses_Click()

txthp.Text = Val(txtjj.Text) * Val(txths.Text)

If txthp.Text > 30000000 Then

txtdis = Val(txthp) * 0.15

ElseIf txthp.Text > 25000000 Then

txtdis = Val(txthp) * 0.1

ElseIf txthp.Text > 20000000 Then

txtdis = Val(txthp) * 0.05

ElseIf txthp.Text > 15000000 Then

txtdis = Val(txthp) * 0.2

End If

txthb = Val(txthp) – Val(txtdis)

End Sub

 

Private Sub cmdhl_Click()

cbokode.SetFocus

cbokode.Text = “”

txtjk.Text = “”

txths.Text = “”

txtjj.Text = “”

txthp.Text = “”

txtdis.Text = “”

txthb.Text = “”

End Sub

 

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

 

Private Sub txths_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtjj.SetFocus

End If

End Sub

 

Private Sub txtjj_KeyPress(KeyAscii As Integer)

txthp.Text = Val(txtjj.Text) * Val(txths.Text)

If txthp.Text > 30000000 Then

txtdis = Val(txthp) * 0.15

ElseIf txthp.Text > 25000000 Then

txtdis = Val(txthp) * 0.1

ElseIf txthp.Text > 20000000 Then

txtdis = Val(txthp) * 0.05

ElseIf txthp.Text > 15000000 Then

txtdis = Val(txthp) * 0.2

End If

txthb = Val(txthp) – Val(txtdis)

End Sub

 

TIPE D

PRAPTID

Private Sub cmdproses_Click()

Dim A, B, C, D As String

Dim H As Double

txttt = “20” & Right(cbokode, 2)

A = Mid(cbokode, 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 UMPU SINGA”

H = “83000”

End If

txtjb.Text = B

txtp.Text = C

txthg.Text = H

D = Left(cbokode, 1)

If D = “A” Then

txtpenerbit.Text = “ANDY OFFSET YOGYAKARTA”

ElseIf D = “I” Then

txtpenerbit.Text = “INDAH SURABAYA”

ElseIf D = “M” Then

txtpenerbit.Text = “MAXICOM”

ElseIf D = “S” Then

txtpenerbit.Text = “SALEMBA EMPAT”

ElseIf D = “E” Then

txtpenerbit.Text = “ELEK MEDIA KOMPUTINDO”

End If

End Sub

 

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode = “”

txtjb = “”

txtp = “”

txttt = “”

txtpenerbit = “”

txthg = “”

End Sub

 

Private Sub cmdbatal_Click()

cbokode.SetFocus

cbokode = “”

txtjb = “”

txtp = “”

txttt = “”

txtpenerbit = “”

txthg = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

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

 

TIPE E

PRAPTIE

Private Sub cmdbatal_Click()

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

txtkb.SetFocus

txtkb.Text = “”

txtjb.Text = “”

txtp.Text = “”

txttahun.Text = “”

txtpenerbit.Text = “”

txthg.Text = “”

End Sub

 

Private Sub cmdproses_Click()

Dim S As String

txttahun.Text = “20” & Mid(txtkb, 5, 2)

S = Left(txtkb, 3)

If S = “SIM” Then

txtjb.Text = “Sistem Informasi Manajemen”

txtp.Text = “Fadiya Ulfa”

txthg.Text = “75900”

ElseIf S = “EDP” Then

txtjb.Text = “Elektronik Data Processing”

txtp.Text = “Nurul Agustina”

txthg.Text = “62000”

ElseIf S = “MNJ” Then

txtjb.Text = “Manajemen”

txtp.Text = “Rian Hidayat”

txthg.Text = “42000”

ElseIf S = “CDR” Then

txtjb.Text = “Corel Draw”

txtp.Text = “Siti Nur Khotimah”

txthg.Text = “53000”

ElseIf S = “RPL” Then

txtjb.Text = “Rekayasa Perangkat Lunak”

txtp.Text = “Winda Erlianti”

txthg.Text = “83000”

End If

S = Right(txtkb, 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

 

TIPE F

PRAPTIF

Private Sub cmdproses_Click()

txthp = Val(txtjj) * Val(txths)

If txthp > 140000000 Then

txtdis = Val(txthp) * 0.15

ElseIf txthp > 135000000 Then

txtdis = Val(txthp) * 0.1

ElseIf txthp > 130000000 Then

txtdis = Val(txthp) * 0.05

ElseIf txthp > 125000000 Then

txtdis = Val(txthp) * 0.02

End If

txttb = Val(txthp) – Val(txtdis)

End Sub

 

 

Private Sub cmdhl_Click()

txtkode.SetFocus

txtkode = “”

txtmerk = “”

txths = “”

txtjj = “”

txthp = “”

txtdis = “”

txttb = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

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 N43SL”

cbokode.AddItem “Apple MD311”

cbokode.AddItem “Apple MD313”

cbokode.AddItem “Apple MD314”

cbokode.AddItem “Apple MD322”

cbokode.AddItem “Apple MC965”

End Sub

 

 

 

Private Sub txtjj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthp = Val(txtjj) * Val(txths)

If txthp > 140000000 Then

txtdis = Val(txthp) * 0.15

ElseIf txthp > 135000000 Then

txtdis = Val(txthp) * 0.1

ElseIf txthp > 130000000 Then

txtdis = Val(txthp) * 0.05

ElseIf txthp > 125000000 Then

txtdis = Val(txthp) * 0.02

End If

txttb = Val(txthp) – Val(txtdis)

End If

End Sub

 

 

Private Sub cbokode_Click()

Select Case cbokode.Text

Case “ASUS A43SA”

txtmerk.Text = “VX090D”

txths = “5500000”

Case “ASUS A43SD”

txtmerk = “VX052D”

txths = “4500000”

Case “ASUS A43SJ”

txtmerk = “VX7792D”

txths = “4300000”

Case “ASUS A43TA”

txtmerk = “VX034D”

txths = “4900000”

Case “N43SL”

txtmerk = “VX264D”

txths = “4300000”

Case “Apple MD311”

txtmerk = “Apple MacBook Pro MD311”

txths = “19300000”

Case “Apple MD313”

txtmerk = “Apple MacBook Pro MD313”

txths = “24200000”

Case “Apple MD314”

txtmerk = “Apple MacBook Pro MD314”

txths = “11900000”

Case “Apple MD322”

txtmerk = “Apple MacBook Pro MD322”

txths = “14700000”

Case “Apple MC965”

txtmerk = “Apple MacBook Air MC965”

txths = “21300000”

End Select

End Sub

 

TIPE G

PRAPTIG

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama = “”

txtnpm = “”

txtjur = “”

txtps = “”

txttm = “”

txturut = “”

txtbp = “”

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

txtnama.SetFocus

txtnama = “”

txtnpm = “”

txtjur = “”

txtps = “”

txttm = “”

txturut = “”

txtbp = “”

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”

txtps.Text = “strata satu”

txtbp.Text = “1.950.000”

ElseIf s = “2” Then

txtjur.Text = “tehnik informatika”

txtps.Text = “diploma empat”

txtbp.Text = “1.750.000”

ElseIf s = “3” Then

txtjur.Text = “manajemen informatika”

txtps.Text = “diploma tiga”

txtbp.Text = “1.650.000”

ElseIf s = “4” Then

txtjur.Text = “Manajemen & Komp.Akuntansi”

txtps.Text = “diploma dua”

txtbp.Text = “1.450.000”

End If

txturut.Text = Right(txtnpm.Text, 3)

End Sub

 

TIPE H

PRAPTIH

Private Sub cbokode_Click()

Dim jk, hs, TB As Integer

Select Case cbokode.Text

Case “P205”

jk = “Pentium II 500 Mega Hz”

hs = “1500000”

Case “P308”

jk = “Pentium III 800 Mega Hz”

hs = “2100000”

Case “P310”

jk = “Pentium III 1.0 Giga Hz”

hs = “3500000”

Case “P415”

jk = “Pentium IV 1.5 Giga Hz”

hs = “4000000”

Case “P417”

jk = “Pentium IV 1.7 Giga Hz”

hs = “4200000”

Case “P419”

jk = “Pentium IV 1.9 Giga Hz”

hs = “5500000”

End Select

txtjk.Text = jk

txths.Text = hs

txtjj.SetFocus

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

cbokode.SetFocus

cbokode.Text = “”

txtjk.Text = “”

txths.Text = “”

txtjj.Text = “”

txthp.Text = “”

txtdis.Text = “”

txttb.Text = “”

End Sub

 

Private Sub cmdproses_Click()

txthp.Text = Val(txths) * Val(txtjj)

Select Case txthp.Text

Case Is > 40000000

txtdis = Val(txthp) * 0.15

Case Is > 35000000

txtdis = Val(txthp) * 0.1

Case Is > 30000000

txtdis = Val(txthp) * 0.05

Case Is > 25000000

txtdis = Val(txthp) * 0.02

End Select

txttb = Val(txthp) – Val(txtdis)

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 = Val(txths) * Val(txtjj)

Select Case txthp.Text

Case Is > 40000000

txtdis = Val(txthp) * 0.15

Case Is > 35000000

txtdis = Val(txthp) * 0.1

Case Is > 30000000

txtdis = Val(txthp) * 0.05

Case Is > 25000000

txtdis = Val(txthp) * 0.02

End Select

txttb = Val(txthp) – Val(txtdis)

End If

End Sub

 

TIPE I

PRAPTII

Private Sub cmdbatal_Click()

txtnk.SetFocus

txtnk = “”

txtnik = “”

txtgol = “”

txtks = “”

txtstatus = “”

txttahun = “”

txtjbt = “”

txtbagian = “”

txtgapok = “”

txttunjangan = “”

txttotal = “”

End Sub

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdlagi_Click()

txtnk.SetFocus

txtnk = “”

txtnik = “”

txtgol = “”

txtks = “”

txtstatus = “”

txttahun = “”

txtjbt = “”

txtbagian = “”

txtgapok = “”

txttunjangan = “”

txttotal = “”

End Sub

 

Private Sub cmdproses_Click()

Dim r As String

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

If r = “A” Then

txtgol = “A”

txtjbt.Text = “MANAGER”

txtgapok.Text = “4000000”

txttunjangan = “1025000”

ElseIf r = “B” Then

txtgol.Text = “B”

txtjbt.Text = “Ka.SEKSI”

txtgapok.Text = “3500000”

txttunjangan = “975000”

ElseIf r = “C” Then

txtgol.Text = “C”

txtjbt.Text = “STAFF”

txtgapok.Text = “3000000”

txttunjangan = “925000”

End If

r = Right(txtnik.Text, 3)

If r = “KEU” Then

txtbagian.Text = “ACCOUNTING”

ElseIf r = “ADM” Then

txtbagian.Text = “ADMINISTRASI”

ElseIf r = “SDM” Then

txtbagian.Text = “GENERAL AFFAIR”

ElseIf r = “EDP” Then

txtbagian.Text = “IT UNIT”

ElseIf r = “SPM” Then

txtbagian.Text = “SECURITY”

End If

r = Mid(txtnik.Text, 7, 1)

If r = “S” Then

kode = “S”

Status = “SINGLE”

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

txtstatus.Text = Status

txttahun.Text = Left(txtnik.Text, 4)

txttotal = Val(txtgapok) + Val(txttunjangan)

End Sub

 

 

bahasa pemrograman pr4

Program 1 PRAP1

PRA1

Private Sub chkBold_Click()

‘Membuat teks Tebal

If chkBold.Value = 1 Then

lblTeks.FontBold = True

Else

lblTeks.FontBold = False

End If

End Sub

 

Private Sub chkItalic_Click()

‘Membuat teks Miring

If chkItalic.Value = 1 Then

lblTeks.FontItalic = True

Else

lblTeks.FontItalic = False

End If

End Sub

 

Private Sub chkStrike_Click()

‘Membuat teks Bergaristengah

If chkStrike.Value = 1 Then

lblTeks.FontStrikeout = True

Else

lblTeks.FontStrikeout = False

End If

End Sub

 

Private Sub chkUnder_Click()

‘Membuat teks Bergarisbawah

If chkUnder.Value = 1 Then

lblTeks.FontUnderline = True

Else

lblTeks.FontUnderline = False

End If

End Sub

 

Private Sub cmdexit_Click()

End

End Sub

 

Private Sub optBlue_Click()

‘Membuat teks berwarna biru

lblTeks.ForeColor = vbBlue

End Sub

 

Private Sub optGreen_Click()

‘Membuat teks berwarna hijau

lblTeks.ForeColor = vbGreen

End Sub

 

Private Sub optRed_Click()

‘Membuat teks berwarna merah

lblTeks.ForeColor = vbRed

End Sub

 

Private Sub optYellow_Click()

‘Membuat teks berwarna kuning

lblTeks.ForeColor = vbYellow

End Sub

 

Program 2

PRA0

Private Sub chkmiring_Click()

Label2.FontItalic = chkmiring.Value

End Sub

 

Private Sub chktebal_Click()

Label2.FontBold = chktebal.Value

End Sub

 

Private Sub cmdok_Click()

Label2.Caption = Text1.Text

End Sub

 

Private Sub cmdselesai_Click()

End

End Sub

 

Private Sub optbiru_Click()

Label2.ForeColor = vbBlue

End Sub

 

Private Sub optmerah_Click()

Label2.ForeColor = vbRed

End Sub

 

Program 3

PRA3

Private Sub cbonpm_Click()

Dim nama, jurusan, HM As String

 

Select Case cbonpm.Text

Case “15100201”

nama = “AFRIZA UTAMA”

jurusan = “SISTEM INFORMASI”

Case “15100120”

nama = “A.N IMAM BUCHORI”

jurusan = “SISTEM INFORMASI”

Case “15100197”

nama = “AGUNG PRAMUDI”

jurusan = “SISTEM INFORMASI”

Case “15100196”

nama = “ALI MARWAN”

jurusan = “SISTEM INFORMASI”

Case “15100140”

nama = “ANDI SUCIPTO”

jurusan = “SISTEM INFORMASI”

Case “15100125”

nama = “ANDRI AGUNG DWI SAPUTRA”

jurusan = “SISTEM INFORMASI”

Case “15100203”

nama = “ARGA PURNAMA AJI”

jurusan = “SISTEM INFORMASI”

Case “15100121”

nama = “AYU ALFANI”

jurusan = “SISTEM INFORMASI”

Case “15100135”

nama = “AYU KRISMIATI”

jurusan = “SISTEM INFORMASI”

Case “15100127”

nama = “BAYU EKA ALFIANTO”

jurusan = “SISTEM INFORMASI”

Case “15100199”

nama = “BAYU PRABOWO”

jurusan = “SISTEM INFORMASI”

Case “15201018”

nama = “DESI IRSANTI”

jurusan = “MANAJEMEN INFORMATIKA”

Case “15100122”

nama = “DIAN SAPUTRA”

jurusan = “SISTEM INFORMASI”

Case “15100130”

nama = “DIKI DIANTORO”

jurusan = “SISTEM INFORMASI”

Case “15100118”

nama = “ERLANGGA NURFERNANDO”

jurusan = “SISTEM INFORMASI”

Case “15100126”

nama = “ERMA DWIYANI”

jurusan = “SISTEM INFORMASI”

Case “15100116”

nama = “FAQIHUDDIN”

jurusan = “SISTEM INFORMASI”

Case “15100138”

nama = “FEBRI ARIYANTO”

jurusan = “SISTEM INFORMASI”

Case “15100198”

nama = “FEBRIANSYAH”

jurusan = “SISTEM INFORMASI”

Case “15100128”

nama = “HASAN HAFIDIN”

jurusan = “SISTEM INFORMASI”

Case “15100124”

nama = “ITA FIBRIYANTI”

jurusan = “SISTEM INFORMASI”

Case “15100131”

nama = “KUKUH PRASETYO”

jurusan = “SISTEM INFORMASI”

Case “15100139”

nama = “M.ARYA BIMO RIFKI”

jurusan = “SISTEM INFORMASI”

Case “15100123”

nama = “MAD MUHAIDI”

jurusan = “SISTEM INFORMASI”

Case “15100136”

nama = “MAR’ATUS SHOLEHAH”

jurusan = “SISTEM INFORMASI”

Case “15100117”

nama = “MAYMANAH”

jurusan = “SISTEM INFORMASI”

Case “15100202”

nama = “RINANDA”

jurusan = “SISTEM INFORMASI”

Case “15100133”

nama = “RISKI SAFITRA RAMADON”

jurusan = “SISTEM INFORMASI”

Case “15100195”

nama = “RULLY INDRIANTO”

jurusan = “SISTEM INFORMASI”

Case “1510032”

nama = “SELTARINA”

jurusan = “SISTEM INFORMASI”

Case “15100206”

nama = “SITI MUKODIMAH”

jurusan = “SISTEM INFORMASI”

Case “15100205”

nama = “SUPRAPTI”

jurusan = “SISTEM INFORMASI”

Case “13100457”

nama = “SUSANTO”

jurusan = “SISTEM INFORMASI”

Case “15100137”

nama = “TIARA HERMADITA”

jurusan = “SISTEM INFORMASI”

Case “15100134”

nama = “WAHYU CANDRA WIJAYA”

jurusan = “SISTEM INFORMASI”

Case “15100129”

nama = “YELI FITRI LIANUARI”

jurusan = “SISTEM INFORMASI”

Case “15100119”

nama = “YUDA FERDIANTARA”

jurusan = “SISTEM INFORMASI”

End Select

txtnama.Text = nama

txtjurusan.Text = jurusan

End Sub

 

Private Sub cmdbatal_Click()

cbonpm.SetFocus

cbonpm = “”

txtnama = “”

txtjurusan = “”

txtquis = “”

txttugas = “”

txtuts = “”

txtuas = “”

txtna = “”

txthm = “”

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)

TUGAS = Val(txttugas)

UTS = Val(txtuts)

UAS = Val(txtuas)

NA = (QUIS + TUGAS + UTS + UAS) / 4

txtna = NA

 

Select Case txtna

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 = HM

End Sub

 

Private Sub Form_Load()

cbonpm.AddItem “15100201”

cbonpm.AddItem “15100120”

cbonpm.AddItem “15100197”

cbonpm.AddItem “15100196”

cbonpm.AddItem “15100140”

cbonpm.AddItem “15100125”

cbonpm.AddItem “15100203”

cbonpm.AddItem “15100121”

cbonpm.AddItem “15100135”

cbonpm.AddItem “15100127”

cbonpm.AddItem “15100199”

cbonpm.AddItem “15201018”

cbonpm.AddItem “15100122”

cbonpm.AddItem “15100130”

cbonpm.AddItem “15100118”

cbonpm.AddItem “15100126”

cbonpm.AddItem “15100116”

cbonpm.AddItem “15100138”

cbonpm.AddItem “15100198”

cbonpm.AddItem “15100128”

cbonpm.AddItem “15100124”

cbonpm.AddItem “15100131”

cbonpm.AddItem “15100139”

cbonpm.AddItem “15100123”

cbonpm.AddItem “15100136”

cbonpm.AddItem “15100117”

cbonpm.AddItem “15100202”

cbonpm.AddItem “15100133”

cbonpm.AddItem “15100195”

cbonpm.AddItem “15100132”

cbonpm.AddItem “15100206”

cbonpm.AddItem “15100205”

cbonpm.AddItem “13100457”

cbonpm.AddItem “15100137”

cbonpm.AddItem “15100134”

cbonpm.AddItem “15100129”

cbonpm.AddItem “15100119”

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

 

Program 4

PRA4

Private Sub cbonpm_Click()

Dim nama, jurusan, HM As String

 

Select Case cbonpm.Text

Case “15100201”

nama = “AFRIZA UTAMA”

jurusan = “SISTEM INFORMASI”

Case “15100120”

nama = “A.N IMAM BUCHORI”

jurusan = “SISTEM INFORMASI”

Case “15100197”

nama = “AGUNG PRAMUDI”

jurusan = “SISTEM INFORMASI”

Case “15100196”

nama = “ALI MARWAN”

jurusan = “SISTEM INFORMASI”

Case “15100140”

nama = “ANDI SUCIPTO”

jurusan = “SISTEM INFORMASI”

Case “15100125”

nama = “ANDRI AGUNG DWI SAPUTRA”

jurusan = “SISTEM INFORMASI”

Case “15100203”

nama = “ARGA PURNAMA AJI”

jurusan = “SISTEM INFORMASI”

Case “15100121”

nama = “AYU ALFANI”

jurusan = “SISTEM INFORMASI”

Case “15100135”

nama = “AYU KRISMIATI”

jurusan = “SISTEM INFORMASI”

Case “15100127”

nama = “BAYU EKA ALFIANTO”

jurusan = “SISTEM INFORMASI”

Case “15100199”

nama = “BAYU PRABOWO”

jurusan = “SISTEM INFORMASI”

Case “15201018”

nama = “DESI IRSANTI”

jurusan = “MANAJEMEN INFORMATIKA”

Case “15100122”

nama = “DIAN SAPUTRA”

jurusan = “SISTEM INFORMASI”

Case “15100130”

nama = “DIKI DIANTORO”

jurusan = “SISTEM INFORMASI”

Case “15100118”

nama = “ERLANGGA NURFERNANDO”

jurusan = “SISTEM INFORMASI”

Case “15100126”

nama = “ERMA DWIYANI”

jurusan = “SISTEM INFORMASI”

Case “15100116”

nama = “FAQIHUDDIN”

jurusan = “SISTEM INFORMASI”

Case “15100138”

nama = “FEBRI ARIYANTO”

jurusan = “SISTEM INFORMASI”

Case “15100198”

nama = “FEBRIANSYAH”

jurusan = “SISTEM INFORMASI”

Case “15100128”

nama = “HASAN HAFIDIN”

jurusan = “SISTEM INFORMASI”

Case “15100124”

nama = “ITA FIBRIYANTI”

jurusan = “SISTEM INFORMASI”

Case “15100131”

nama = “KUKUH PRASETYO”

jurusan = “SISTEM INFORMASI”

Case “15100139”

nama = “M.ARYA BIMO RIFKI”

jurusan = “SISTEM INFORMASI”

Case “15100123”

nama = “MAD MUHAIDI”

jurusan = “SISTEM INFORMASI”

Case “15100136”

nama = “MAR’ATUS SHOLEHAH”

jurusan = “SISTEM INFORMASI”

Case “15100117”

nama = “MAYMANAH”

jurusan = “SISTEM INFORMASI”

Case “15100202”

nama = “RINANDA”

jurusan = “SISTEM INFORMASI”

Case “15100133”

nama = “RISKI SAFITRA RAMADON”

jurusan = “SISTEM INFORMASI”

Case “15100195”

nama = “RULLY INDRIANTO”

jurusan = “SISTEM INFORMASI”

Case “1510032”

nama = “SELTARINA”

jurusan = “SISTEM INFORMASI”

Case “15100206”

nama = “SITI MUKODIMAH”

jurusan = “SISTEM INFORMASI”

Case “15100205”

nama = “SUPRAPTI”

jurusan = “SISTEM INFORMASI”

Case “13100457”

nama = “SUSANTO”

jurusan = “SISTEM INFORMASI”

Case “15100137”

nama = “TIARA HERMADITA”

jurusan = “SISTEM INFORMASI”

Case “15100134”

nama = “WAHYU CANDRA WIJAYA”

jurusan = “SISTEM INFORMASI”

Case “15100129”

nama = “YELI FITRI LIANUARI”

jurusan = “SISTEM INFORMASI”

Case “15100119”

nama = “YUDA FERDIANTARA”

jurusan = “SISTEM INFORMASI”

End Select

txtnama.Text = nama

txtjurusan.Text = jurusan

End Sub

 

Private Sub cmdbatal_Click()

cbonpm.SetFocus

cbonpm = “”

txtnama = “”

txtjurusan = “”

txtquis = “”

txttugas = “”

txtuts = “”

txtuas = “”

txtna = “”

txthm = “”

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)

TUGAS = Val(txttugas)

UTS = Val(txtuts)

UAS = Val(txtuas)

NA = (QUIS + TUGAS + UTS + UAS) / 4

txtna = NA

 

Select Case txtna

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 = HM

End Sub

 

Private Sub Form_Load()

cbonpm.AddItem “15100201”

cbonpm.AddItem “15100120”

cbonpm.AddItem “15100197”

cbonpm.AddItem “15100196”

cbonpm.AddItem “15100140”

cbonpm.AddItem “15100125”

cbonpm.AddItem “15100203”

cbonpm.AddItem “15100121”

cbonpm.AddItem “15100135”

cbonpm.AddItem “15100127”

cbonpm.AddItem “15100199”

cbonpm.AddItem “15201018”

cbonpm.AddItem “15100122”

cbonpm.AddItem “15100130”

cbonpm.AddItem “15100118”

cbonpm.AddItem “15100126”

cbonpm.AddItem “15100116”

cbonpm.AddItem “15100138”

cbonpm.AddItem “15100198”

cbonpm.AddItem “15100128”

cbonpm.AddItem “15100124”

cbonpm.AddItem “15100131”

cbonpm.AddItem “15100139”

cbonpm.AddItem “15100123”

cbonpm.AddItem “15100136”

cbonpm.AddItem “15100117”

cbonpm.AddItem “15100202”

cbonpm.AddItem “15100133”

cbonpm.AddItem “15100195”

cbonpm.AddItem “15100132”

cbonpm.AddItem “15100206”

cbonpm.AddItem “15100205”

cbonpm.AddItem “13100457”

cbonpm.AddItem “15100137”

cbonpm.AddItem “15100134”

cbonpm.AddItem “15100129”

cbonpm.AddItem “15100119”

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

 

Private Sub txtuas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim NA As Integer

Dim HM As String

QUIS = Val(txtquis)

TUGAS = Val(txttugas)

UTS = Val(txtuts)

UAS = Val(txtuas)

NA = (QUIS + TUGAS + UTS + UAS) / 4

txtna = NA

 

Select Case txtna

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 = HM

End If

End Sub

 

 

 

TUGAS BAHASA PEMROGRAMAN I

TUGAS 1

PRAPTI1

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdbatal_Click()

txtn1.SetFocus

txtn1 = “”

txtn2 = “”

txthasil1 = “”

txtn3 = “”

txtn4 = “”

txthasil2 = “”

txtn5 = “”

txtn6 = “”

txthasil3 = “”

txtn7 = “”

txtn8 = “”

txthasil4 = “”

End Sub

 

Private Sub cmdlagi_Click()

txtn1.SetFocus

txtn1 = “”

txtn2 = “”

txthasil1 = “”

txtn3 = “”

txtn4 = “”

txthasil2 = “”

txtn5 = “”

txtn6 = “”

txthasil3 = “”

txtn7 = “”

txtn8 = “”

txthasil4 = “”

End Sub

 

Private Sub cmdhitung_Click()

txthasil1 = Val(txtn1) * Val(txtn2)

txthasil2 = Val(txtn3) + Val(txtn4)

txthasil3 = Val(txtn5) – Val(txtn6)

txthasil4 = Val(txtn7) / Val(txtn8)

End Sub

 

Private Sub txtn1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn2.SetFocus

End If

End Sub

 

Private Sub txtn2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn3.SetFocus

End If

End Sub

 

Private Sub txtn3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn4.SetFocus

End If

End Sub

 

Private Sub txtn4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn5.SetFocus

End If

End Sub

 

Private Sub txtn5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn6.SetFocus

End If

End Sub

 

Private Sub txtn6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn7.SetFocus

End If

End Sub

 

Private Sub txtn7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn8.SetFocus

End If

End Sub

 

Private Sub txtn8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

End If

End Sub

 

TUGAS 2

PRAPTI2

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdbatal_Click()

txtn1.SetFocus

txtn1 = “”

txtn2 = “”

txthasil1 = “”

txtn3 = “”

txtn4 = “”

txthasil2 = “”

txtn5 = “”

txtn6 = “”

txthasil3 = “”

txtn7 = “”

txtn8 = “”

txthasil4 = “”

End Sub

 

 

Private Sub cmdlagi_Click()

txtn1.SetFocus

txtn1 = “”

txtn2 = “”

txthasil1 = “”

txtn3 = “”

txtn4 = “”

txthasil2 = “”

txtn5 = “”

txtn6 = “”

txthasil3 = “”

txtn7 = “”

txtn8 = “”

txthasil4 = “”

End Sub

 

Private Sub cmdhitung_Click()

txthasil1 = Val(txtn1) * Val(txtn2)

txthasil2 = Val(txtn3) + Val(txtn4)

txthasil3 = Val(txtn5) – Val(txtn6)

txthasil4 = Val(txtn7) / Val(txtn8)

End Sub

 

Private Sub txtn1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn2.SetFocus

End If

End Sub

 

Private Sub txtn2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn3.SetFocus

txthasil1 = Val(txtn1) * Val(txtn2)

End If

End Sub

 

Private Sub txtn3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn4.SetFocus

End If

End Sub

 

Private Sub txtn4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn5.SetFocus

txthasil2 = Val(txtn3) + Val(txtn4)

End If

End Sub

 

Private Sub txtn5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn6.SetFocus

End If

End Sub

 

Private Sub txtn6_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn7.SetFocus

txthasil3 = Val(txtn5) – Val(txtn6)

End If

End Sub

 

Private Sub txtn7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn8.SetFocus

End If

End Sub

 

Private Sub txtn8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthasil4 = Val(txtn7) / Val(txtn8)

End If

End Sub

 

TUGAS 3

PRAPTI3

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdulang_Click()

txtha.SetFocus

txtha = “”

txtdis = “”

txtak = “”

End Sub

 

Private Sub cmdhitung_Click()

txtdis = Val(txtha) * 0.1

txtak = Val(txtha) – Val(txtdis)

End Sub

 

TUGAS 4

PRAPTI4

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdulang_Click()

txtha.SetFocus

txtha = “”

txtdis = “”

txtak = “”

End Sub

 

Private Sub cmdhitung_Click()

txtdis = Val(txtha) * 0.1

txtak = Val(txtha) – Val(txtdis)

End Sub

 

Private Sub txtha_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtdis = Val(txtha) * 0.1

txtak = Val(txtha) – Val(txtdis)

End If

End Sub

 

TUGAS 5

PRAPTI5

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdulang_Click()

txtgp.SetFocus

txtgp = “”

txttj = “”

txtpt = “”

txtgk = “”

txtpjk = “”

txtgdt = “”

End Sub

 

Private Sub cmdproses_Click()

txtgk = Val(txtgp) + Val(txttj) – Val(txtpt)

txtpjk = Val(txtgk) * 0.1

txtgdt = Val(txtgk) – Val(txtpjk)

End Sub

 

Private Sub txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttj.SetFocus

End If

End Sub

 

Private Sub txttj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpt.SetFocus

End If

End Sub

 

TUGAS 6

PRAPTI6

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdulang_Click()

txtgp.SetFocus

txtgp = “”

txttj = “”

txtpt = “”

txtgk = “”

txtpjk = “”

txtgdt = “”

End Sub

 

Private Sub cmdproses_Click()

txtgk = Val(txtgp) + Val(txttj) – Val(txtpt)

txtpjk = Val(txtgk) * 0.1

txtgdt = Val(txtgk) – Val(txtpjk)

End Sub

 

Private Sub txtgp_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txttj.SetFocus

End If

End Sub

 

Private Sub txttj_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpt.SetFocus

End If

End Sub

 

 

Private Sub txtpt_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtgk = Val(txtgp) + Val(txttj) – Val(txtpt)

txtpjk = Val(txtgk) * 0.1

txtgdt = Val(txtgk) – Val(txtpjk)

End If

End Sub

BAHASA PEMROGRAMAN I

TUGAS 1

 PRAPTI

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdbatal_Click()

txtnpm.SetFocus

txtnpm = “”

txtnama = “”

txtalamat = “”

End Sub

 

Private Sub cmdlagi_Click()

txtnpm.SetFocus

txtnpm = “”

txtnama = “”

txtalamat = “”

End Sub

 

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtalamat.SetFocus

End If

End Sub

 

Private Sub txtnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

 

TUGAS 2

 prapti 2

 

Private Sub cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub cmdbatal_Click()

txtnpm.SetFocus

txtnpm = “”

txtnama = “”

txtalamat = “”

txtagama = “”

txtjeniskelamin = “”

txtnamaayah = “”

txtnamaibu = “”

txtpekerjaanayah = “”

txtpekerjaanibu = “”

End Sub

 

Private Sub cmdlagi_Click()

txtnpm.SetFocus

txtnpm = “”

txtnama = “”

txtalamat = “”

txtagama = “”

txtjeniskelamin = “”

txtnamaayah = “”

txtnamaibu = “”

txtpekerjaanayah = “”

txtpekerjaanibu = “”

End Sub

 

Private Sub txtpekerjaanayah_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpekerjaanibu.SetFocus

End If

End Sub

 

Private Sub txtnamaibu_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtpekerjaanayah.SetFocus

End If

End Sub

 

Private Sub txtnamaayah_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnamaibu.SetFocus

End If

End Sub

 

Private Sub txtjeniskelamin_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnamaayah.SetFocus

End If

End Sub

 

Private Sub txtagama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtjeniskelamin.SetFocus

End If

End Sub

 

Private Sub txtalamat_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtagama.SetFocus

End If

End Sub

 

Private Sub txtnama_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtalamat.SetFocus

End If

End Sub

 

Private Sub txtnpm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

 

TUGAS 3

 PRAPTI3

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdbersih_Click()

txtn1.SetFocus

txtn1 = “”

txtn2 = “”

txthasil = “”

End Sub

 

Private Sub cmdhitung_Click()

txthasil = Val(txtn1) * Val(txtn2)

End Sub

 

Private Sub txtn1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn2.SetFocus

End If

End Sub

 

TUGAS 4

 prapti4 

 

Private Sub cmdkeluar_Click()

End

End Sub

 

Private Sub cmdbersih_Click()

txtn1.SetFocus

txtn1 = “”

txtn2 = “”

txthasil = “”

End Sub

 

Private Sub cmdhitung_Click()

txthasil = Val(txtn1) * Val(txtn2)

End Sub

 

Private Sub txtn2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txthasil = Val(txtn1) * Val(txtn2)

End If

End Sub

 

Private Sub txtn1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtn2.SetFocus

End If

End Sub

30 RINCIAN BERITA

10 BERITA POLITIK

 

Gawat ……Ternyata Warga Jakarta Lebih Suka Kang Emil Dibanding Ahok

Berdasarkan Survei terbaru yang dilakukan Cyrus Network menunjukkan bahwa Wali Kota Bandung Ridwan Kamil menjadi tokoh yang paling disukai warga Jakarta.

Namanya melejit di posisi pertama dengan persentase 72,4 persen.

Di bawah Ridwan, ada mantan Wali Kota Surabaya Tri Rismaharini dengan 71,9 persen dan Gubernur Basuki Tjahaja Purnama (Ahok), di peringkat ketiga dengan 67,2 persen.

“Jadi, meskipun elektabilitasnya di peringkat pertama, dalam likeabilitas Ahok hanya berada di peringkat ketiga,” kata peneliti Cyrus, Eko David Afianto, di Cikini, Menteng, Jakarta Pusat, sebagaimana dilansir kompascom, Rabu (11/11/2015).

Gubernur DKI Jakarta Basuki Tjahaja Purnama tidak berkomentar banyak ketika diminta tanggapan mengenai hasil terbaru Cyrus Network.

“Itu mah tergantung orang Jakarta saja. Kamu suka sama orang mana bisa diatur,” kata Basuki, di Balai Kota, Kamis (12/11/2015).

Bahkan, jika elektabilitas Emil semakin naik, bukan tidak mungkin Emil-lah yang akan memenangi Pemilihan Kepala Daerah (Pilkada) DKI 2017.

“Ya… bagaimana ya, paling aku enggak terpilih lagi di 2017,” kata Basuki seraya meninggalkan wartawan.

Emil menduduki posisi pertama dengan persentase 72,4 persen. Di bawah Emil, ada mantan Wali Kota Surabaya Tri Rismaharini dengan 71,9 persen dan Gubernur petahana, Basuki, di peringkat ketiga dengan 67,2 persen.

Survei terbaru ini dilakukan pada periode 27 Oktober-1 November 2015. Survei melibatkan 1.000 responden yang tersebar di seluruh wilayah DKI Jakarta.

Penarikan responden dilakukan dengan teknik multistage random sampling dengan margin of error sekitar 3 persen.

Sementara itu, dikutip dari jpnncom, Cyrus Network juga pernah melakukan survei pada 23 April hingga 27 April 2015. Hasil Survei menyebut bahwa Basuki Tjahaja Purnama (Ahok), Walikota Bandung Ridwan Kamil, dan Walikota Surabaya Tri Rismaharini (Risma) menjadi nominantor kuat menjadi orang nomor satu di ibu kota.

Yang menarik dari hasil survei yaitu, ketiganya diinginkan masyarakat maju di Pilgub DKI 2017 lewat jalur independen‎, bukan lewat jalur partai politik (parpol).

Metode yang dilakukan adalah multistage random sampling. Responden tersebar secara proporsional di seluruh wilayah kelurahan DKI Jakarta dengan umur minimal 17 tahun.

Responden terpilih diwawancarai lewat tatap muka. Jumlah responden 1.000 orang dengan tingkat kepercayaan 95 persen dan margin of error kurang lebih 3,1 persen. (sbb/dakwatuna)

http://www.dakwatuna.com/2015/11/13/…ibanding-ahok/

http://www.kaskus.co.id/thread/5645441da2c06e01668b456a/gawat-ternyata-warga-jakarta-lebih-suka-kang-emil-dibanding-ahok/

Aktivis: Tak Adil Salahkan Presiden atas Kebakaran Hutan

Quote:

Liputan6.com, Jakarta – Mantan aktivis lingk‎ungan Greenpeace Asia Tenggara, Emmy Hafild menyatakan, Presiden Jokowi beserta menterinya seperti Menteri Lingkungan Hidup dan Kehutanan Siti Nurbaya Bakar, tidak bisa disalahkan atas kasus terjadinya kebakaran hutan dan lahan (karthula). Sebab, Karthula ini terjadi karena adanya Peraturan Daerah (Perda) yang dikeluarkan Kepala Daerah yang membolehkan membakar lahan.

“Ya bupati yang harus awasi. Perusahaan yang punya usaha ribuan hektare tidak ada pengawasan, dia hanya jaga kawasan dia, terjadi pengabaian. Pemerintah pusat tidak mungkin lakukan itu sampai ke bawah. Harus dilakukan pemerintah provinsi, bupati, walikota,”‎ kata Emmy Hafild dalam sebuah diskusi di Gedung DPR, Senayan, Jakarta, Kamis 12 November 2015.

“Nah ini yang menyalahkan presiden dan menteri LHK menurut saya tidak adil. Siapapun menterinya saya akan membela,” ‎sambung dia.

Menurut Emmy, harus ada pertanggungjawaban dari pemerintah daerah (Pemda) setempat karena kasus ini sudah terjadi sejak lama.

“Pengalihan lahan gambut jadi kawasan lain itu terus berlangsung. Harus ada tanggung jawab dari pemda. Bulan lalu sudah terjadi kebakaran kecil tapi tidak ada pemadaman. Siapa yang perlu matikan? Ya kepala daerah dan pemda setempat,” ujar dia.

Emmy melanjutkan, pemda-pemda yang daerahnya mengalami karthula tidak menganggarkan program-program untuk karthula. Maka dari itu, dia berharap tahun depan presiden menginstruksikan daerah-daerah untuk membuat anggaran agar mereka bisa awasi daerahnya dari karthula.

Selain itu, dia juga meminta DPR tidak mencari-cari kesalahan dari presiden dan para menteri dari kasus karthula ini.

“Menurut saya yang perlu dilihat ini cari pertanggung jawaban. Harus ada badan khusus yang mengelola lahan gambut. Nah, kalau interpelasi dasarnya apa dan targetnya apa. Kawasan gambut susah sekali untuk dimatikan kalau sudah terbakar,” papar Emmy.

Dia juga mengharapkan, adanya penegakan hukum untuk mengambil sikap tegas bagi para pelaku karthula ini.

“Saya harapkan ada penegakan hukum yang tegas. Pemerintah yang abai laksanakan itu bisa dihukum dan digugat,” tandas Emmy.
(Mvi)

http://www.kaskus.co.id/thread/564532e960e24b031d8b4568/aktivis-tak-adil-salahkan-presiden-atas-kebakaran-hutan/

Jokowi Tidak Dianggap Sebagai Presiden Oleh PDIP

Quote:Sanur, CNN Indonesia — Kongres IV Partai Demokrasi Indonesia Perjuangan telah resmi dibuka oleh Megawati Soekarnoputri –yang akan kembali dikukuhkan sebagai ketua umum dalam kongres ini. Selama Kongres dibuka, Kamis (9/4), gerak-gerik Megawati dan putrinya, Puan Maharani, tak lepas dari sorotan kamera penyelenggara Kongres.

Puan Maharani misalnya kerap terlihat menyeka air mata. Dia berulang kali menyeka wajah, mulai mata hingga mulut. Terlebih ketika sang ibunda membacakan pidato politik selama hampir setengah jam.

Mata Puan terlihat berkaca-kaca mendengar Megawati berpidato dengan berapi-api. Kobaran semangat Mega saat berpidato sampai membuat peserta Kongres mengeluk-elukkan dia.

Mendekati akhir pidato ketika hendak membuka resmi Kongres, Megawati tampak menangis haru. Melihat ibunya mengucurkan air mata, Puan pun ikut menangis. Air matanya berlinang.

Simak FOKUS: Kongres Partai Penguasa

Selain tangisan ibu-anak itu, canda Mega dan Jokowi juga menjadi perhatian tersendiri. Saat video perjalanan hidup Mega diputar di hadapan peserta Kongres, sang Ketua Umum terlihat bersenda gurau dengan Jokowi yang duduk di sebelah kanannya.

Ketika itu video sedang memutar gambar Megawati di masa kanak-kanak. Hal itu tampaknya menarik hati Jokowi sehingga ia melontarkan pertanyaan kepada Mega. Saat Mega menjawab, keduanya tertawa terbahak-bahak.

Meski begitu, Jokowi tak selalu rileks. Ada saat di mana sang Presiden terlihat tidak tersenyum, yakni ketika Megawati menyindir pemerintahannya dalam pidato politik dia.

Bukan Presiden

Jokowi dalam Kongres itu tak diundang sebagai Presiden. Sejak jauh hari, Wakil Sekretaris Jenderal PDI Perjuangan Ahmad Basarah menyatakan Jokowi diundang sebagai kader partai, bukan dalam statusnya sebagai Presiden Republik Indonesia.

Pernyataan itu bukan bualan. Saat Ketua Panitia Kongres Wayan Koster memberi sambutan, dia menyebut Jokowi dengan sebutan “kader partai” tanpa embel-embel “Presiden Indonesia.” Hal itu bertolak belakang dengan ketika Koster memanggil Jusuf Kalla dengan sebutan “Wakil Presiden.”

Sama seperti kader lain, Jokowi pun mengenakan jaket merah seragam khas PDIP, bukan kemeja putih seperti biasanya.

Untungnya, status Presiden milik Jokowi ‘diselamatkan’ Megawati yang menyebutnya dalam pidato sebagai “Presiden Indonesia.” (agk)

Sumber

Terimakasih ibu Megawati, yang sudah menyelamatkan status presiden milik Jokowi

Multi Quote Quote

http://www.kaskus.co.id/thread/552619b4c1cb171f7e8b4572/jokowi-tidak-dianggap-sebagai-presiden-oleh-pdip/

PHK Besar-besaran Hantui Industri Indonesia

Quote:

Menteri Perindustrian Saleh Husin akan bertindak cepat untuk menyelesaikan pemberitaan mengenai potensi Pemutusan Hubungan Kerja (PHK) secara massal yang melanda industri dalam negeri. Pasalnya, kini sudah berhembus kabar PHK besar-besaran yang telah disampaikan beberapa asosiasi tekstil.

“Ya ini nanti kita koordinasi dengan kementerian terkait dengan adanya PHK. Ini kita selidiki informasi tersebut,” kata Saleh di Kementerian Komunikasi dan Informatika, Jakarta, Jumat (3/6/2015).

Saleh menjelaskan, potensi PHK secara massal yang akan terjadi memang disebabkan beberapa hal. Apakah dikarenakan perusahaan tersebut tutup, atau karena pelemahan ekonomi ataupun kesalahan manajemen perusahaan tersebut.

“Kita berharap sedapat mungkin enggak ada PHK. Jangan sampai ada PHK,” tegas Saleh.

Kendati demikian, Saleh mengakui setiap perusahaan maupun industri berbeda-beda dalam hal kekuatan. Dirinya mencontohkan industri garmen maupun sepatu yang rentan merumahkan pekerjanya, dikarenakan alasan daya saing.

“Ini saya juga baru dapat dari media, kita dalam rangka koordinasi, kita update dari media itu. Karena masalah apa atau memang kesalahan sendiri. Contoh, salah satu industri sepatu, karena enggak ada order dari pemegang merek, enggak bisa produksi,” paparnya.

SUMBER

http://www.kaskus.co.id/thread/55961677d89b09bf4e8b456a/phk-besar-besaran-hantui-industri-indonesia/

Malaysia dan Singapur Semakin maju,Mengapa di Indonesia justru semakin mundur?

Jika kita bandingkan masyarakat di Malaysia dan Singapur Yg jg multi etnis dan agama,justru disana semakin maju,jarang terdengar konflik yg ber bau SARA apalagi sampai rumah ibadah di bakar maupun tekanan dr ormas tettentu yg melarang ibadah,semua masyarakat berlomba membangun negara dlm segala petbedaan.namun ironis terjadi di negeri ini Indonesia,justru saling menunjukkan perbedaan buat saling memusuhi satusama lain,apalagi menyangkut soal agama,semua merasa paling hebat,seakanakan agama berdiri diatas segala keegoisan,pedahal masalH bangsa ini bgt byk korupsi,kemiskinan n kebodohan msh mrnyelimuti.
Kira2 apa yg salah dgn negeri ini gan?

http://www.kaskus.co.id/thread/55b080f35c779851288b4568/malaysia-dan-singapur-semakin-majumengapa-di-indonesia-justru-semakin-mundur/

Ahok Didemo Anak SD. Bagaimanakah Cara Dia Membubarkannya ?

Quote:

http://megapolitan.kompas.com/read/2…ok.Marah-marah
JAKARTA, KOMPAS.com — Sekitar 30 siswa-siswi kelas VI Sekolah Dasar (SD) Negeri 03 Cawang, Jakarta Timur, menyambangi Balai Kota, Kamis (20/8/2015) sore. Mereka terlihat membawa beberapa karton putih berukuran 30 cm x 40 cm.

Beberapa siswa bergerombol dan menuliskan permohonan kepada Basuki, seperti “Kami Ingin Pak Ginting Kembali”, “Pak Ginting Jangan Tinggalkan Kami”, “I Love Pak Ginting Forever”, serta “Kembalikan Pak Ginting kepada Kami Pak Ahok karena Pak Ginting Guru yang Rajin dan Tegas”.

Ternyata, para siswa tersebut tidak terima wali kelas mereka, Saring Ginting, dimutasi ke sekolah lain. Mereka berharap Basuki bisa mengembalikan Ginting untuk mengajar di SDN 03 Cawang Pagi.

Sembari menunggu Basuki keluar dari Balai Kota, mereka menyanyikan lagu “Indonesia Raya” dan “Hymne Guru”.

Suara mereka cukup nyaring dan berhasil menarik perhatian para pegawai negeri sipil (PNS) DKI serta ajudan Basuki.

Setelah sekitar 45 menit, akhirnya Basuki keluar dari ruangannya. Basuki disambut puluhan anak yang sudah berbaris dan membentangkan karton dukungan bagi Ginting.

Siswa-siswi itu langsung bersorak melihat kedatangan Basuki. Sambil tersenyum, Basuki membaca satu per satu karton yang dibentangkan anak-anak tersebut.

“Iya nanti coba saya bicarakan sama Kepala Dinas Pendidikan. Sudah ya,” kata Basuki singkat sambil meninggalkan kerumunan.

Namun, langkah Basuki dihambat oleh anak-anak serta orangtua murid. Mendapat sikap itu, Basuki langsung naik pitam. Ia meminta guru-guru serta orangtua murid untuk tidak mengajari anak-anaknya berdemo.

Terlebih lagi, mereka berdemo dengan menggunakan seragam sekolah. Basuki menganggap tindakan orangtua serta guru-guru itu telah memanfaatkan siswa demi kepentingan tertentu.

“Anak-anak itu seharusnya belajar. Saya tidak akan takluk hanya karena anak-anak demo. Anak-anak tidak boleh memaksakan kehendak,” kata pria yang biasa disapa Ahok itu dengan nada tinggi.

Siswa-siswi yang awalnya ramai mendadak terdiam. Basuki meminta orangtua murid maupun guru untuk menghubunginya via SMS jika ada masalah. Tidak perlu mengerahkan anak-anak mereka untuk berdemo.

Jika ada aduan, lanjut Basuki, ia pasti akan menindaklanjutinya ke satuan kerja perangkat daerah (SKPD) terkait. Berulang kali Basuki mencoba pergi, tetapi ia dihalangi oleh orangtua murid.

Saat itu, Basuki memang tengah terburu-buru pergi ke Kantor Kementerian Koordinator Perekonomian untuk membahas proyek light rail transit (LRT). Namun, orangtua murid kembali menghalangi pergerakan mantan Bupati Belitung Timur itu.

“Ini tuh jadinya Ibu seolah-olah enggak kasih saya lewat. Ini kalau anak-anak demo kayak gini, sudah besarnya bisa-bisa kayak warga Kampung Pulo. Nanti saya tanya, apa Pak Ginting itu kena mutasi karena kepala sekolahnya tidak suka atau apa. Kalau karena kepala sekolahnya, saya pecat nanti,” kata Basuki yang terlihat memerah mukanya sambil berlalu.

Salah seorang staf Gubernur, Oehal, mengungkapkan, ada 1.026 guru yang dirotasi. Guru-guru yang dirotasi itu merupakan guru yang telah mengabdi selama 10-15 tahun di sekolah yang sama.

Guru-guru itu tidak ditempatkan di sekolah yang jauh, tetapi di sekolah yang masih berada dalam kelurahan yang sama.

“Enggak sampai keluar wilayah kok sekolahnya. Mungkin Pak Ginting memang baik, tetapi biarlah dia melakukan kebaikan di sekolah yang lain,” kata Oehal.

http://www.kaskus.co.id/thread/55d5f8d51854f7007d8b4570/ahok-didemo-anak-sd-bagaimanakah-cara-dia-membubarkannya/

Roy Suryo tak Yakin FIFA Bakal Kunjungi Indonesia
TRIBUNNEWS, COM. JAKARTA – Mentan Menteri Pemuda dan Olahraga Kanjeng Raden Mas Tumenggung (KRMT) Roy Suryo, tidak yakin jika otoritas sepakbola dunia (FIFA) akan mengirimkan wakilnya ke Indonesia dalam waktu dekat.

“Saya koq tidak yakin yaah. Untuk apa?” demikian dikemukakan mantan Menpora yang di masa kepemimpinannya berhasil menyatukan dualisme yang terjadi di persepakbolaan nasional.

Roy Suryo menegaskan hal itu menjawab pertanyaan terkait rencana kunjungan representasi FIFA ke Indonesia.

Kemungkinan adanya kunjungan FIFA tersebut sebelumnya disampaikan oleh Menpora Imam Nahrawi, Kamis (20/8).

Menpora menyebut bahwa FIFA kemungkinan akan hadir dalam waktu dekat ini yakni sebelum Oktober 2015. Dalam kedatangan tersebut FIFA kabarnya akan melakukan investigasi apa yang terjadi di sepak bola Indonesia.

Imam Nahrawi menyebut bahwa dalam momentum kedatangan dari FIFA ini Menpora akan buka-bukaan. Menpora ingin menjelaskan apa yang terjadi di sepak bola Indonesia dan keterlibatan dari pemerintah.

“Semoga dalam waktu dekat ini, kemungkinan sebelum Oktober, FIFA bersama AFC datang ke Indonesia. Kedatangan ini adalah untuk melakukan investigasi apa sesungguhnya yang terjadi di Indonesia,” ungkap Imam Nahrawi di sela-sela pelantikan PP ASSI.

Roy Suryo menyatakan, mungkin saja petinggi FIFA akan datang ke Indonesia, namun keberadaannya adalah atas undangan resmi dari Presiden. Bukan Menpora, meski disebutkan mewakili pemerintah.
“Harus Presiden yang mengundang, bukan yang lain,” terang Roy Suryo.
Di masa kisruh persepakbolaan yang ‘menggila’ saat ia menjadi Menpora, Roy Suryo tidak pernah berencana mendatangkan pengurus FIFA ke Indonesia, sebab hal itu kemungkinan besar akan ditampik oleh FIFA.

“Jadi kami yang pro-aktiv untuk mendamaikan. Tetapi, situasi waktu itu berbeda jauh dengan sekarang. Dulu memang sedang tidak bagus. Sekarang sedang bagus tetapi dibuat tidak bagus,” tegas Roy Suryo. tb

sumber : http://m.tribunnews.com/superball/20…donesia?page=2

Menpora Seperti “Dewa Mabok”

Quote:
RMOL. Menpora Imam Nahrawi seperti tengah
memainkan jurus mabuk. Apa saja dilakukan
untuk menjegal langkah PSSI. Setelah melarang
PSSI menggelar kompetisi, kini Menpora berusaha
mendongkel Ketum PSSI La Nyala Matalitti.
Caranya, dengan kongres luar biasa (KLB) PSSI
untuk mencari pengganti La Nyala yang baru
terpilih April lalu.
Rencana KLB ini dikemukakan anggota Tim
Transisi PSSI bentukan Menpora, Zuhairi Misrawi
saat menerima perwakilan Jakmania yang
menggelar unjuk rasa di Gedung Kemenpora,
Senayan, kemarin. Zuhairi yakin, dengan KLB itu
sanksi FIFA untuk Indonesia bisa segera dicabut.
Dalam unjuk rasa ini, sekitar seribuan The Jak
menuntut Menpora mencabut SK Pembekuaan
PSSI agar sepak bola nasional bisa berdenyut
kembali. Pihak Kemenpora kemudian menerima
beberapa perwakilan The Jak untuk dialog. Salah
satu yang ikut dalam perwakilan itu adalah
pelatih Persija Rahmad Darmawan. Sedang dari
pihak Kemenpora diwakili Zuhairi Misrawi dan
Sekretaris Kemenpora Alfitra Salam.
“Saya diminta Pak Menteri (Imam Nahrawi)
sebagai perwakilan menemui saudara-saudara.
Pak Menteri saat ini sedang berada di luar kota,”
ucap Zuhairi membuka pembicaraan.
Zuhairi menyatakan Kemenpora tidak akan
mencabut SK Pembekuaan PSSI itu. Dia
beralasan, saat ini Kemenpora sedang
membangun tata kelola sepak bola yang
transparan. Untuk itu, pihaknya tengah
merancang KLB untuk mencari pengurus PSSI
baru.
“Kami sadar membangun tata kelola sepakbola.
Salah satu caranya, yakni kami akan gelar KLB
secepat-cepatnya. Rencananya, Desember atau
paling lama Januari,” ucapnya.
Setelah pengurus PSSI baru terbentuk, Tim
Transisi akan langsung bertemu FIFA meminta
pencabutan sanksi ke Indonesia. “Kami janji
Januari bertemu FIFA dan memberikan road map
sepak bola Indonesia. Kami yakin hal tersebut
akan membuat FIFA mencabut sanksinya,”
tandasnya.
Ucapan Zuhairi membuat suasana dialog menjadi
panas. Dengan nada keras, Rahmad Darmawan
menyebut, langkah KLB itu justru akan membuat
polemik sepak bola nasional semakin parah.
“Bapak tahu tidak jika KLB itu tetap digelar yang
terjadi adalah keributan seperti yang terjadi
beberapa tahun lalu. Akan terjadi kloningan klub,
asosiasi dan lainnya. Jika itu terjadi maka akan
butuh waktu lama untuk menyembuhkannya. Dua
klub yang tidak bapak-bapak izinkan berkompetisi
yakni Persebaya dan Arema Cronus itu terjadi
karena dampak dualisme kepengurusan yang
terdahulu,” tegasnya.
Menurut Rahmad, harusnya Kemenpora dan Tim
Transisi melakukan pembinaan dengan cara-cara
yang elegan. Bukan malah membuat kebijakan
yang menimbulkan kerugian besar bagi dunia
sepak bola nasional.
“Mungkin karena bapak-bapak ini penguasa, bisa
saja menang dalam usaha-usaha itu (KLB). Tapi,
sekali lagi pikirkan dampak yang terjadi nantinya.
Kami ini merasakan kondisi saat dualisme
terjadi,” pinta Rahmad.
Rahmad juga tidak percaya Tim Transisi bisa
bertemu FIFA. Pasalnya, tidak sembarang orang
bisa bertemu FIFA. “Bagaimana caranya bisa
bertemu FIFA? Yang kami tahu FIFA itu hanya
menemui anggotanya saja,” tandasnya.
Namun, masukan Rahmad ini tidak didengar
Zuhairi. Dia keukeuh akan menggelar KLB.
“Setelah mendengar ini kami akan berkoordinasi
dengan Menpora untuk segera menggelar
kompetisi. Setelah pembekuan, acting (Plt) PSSI
adalah Tim Transisi. Kami juga akan melakukan
persiapan bertemu FIFA, kemudian menggulirkan
KLB,” ucapnya, setelah pertemuan.
Sekjen PSSI Azwan Karim tidak yakin Tim
Transisi benar-benar mampu menggelar KLB itu.
“KLB itu tidak semudah yang diucapkan. Banyak
hal yang harus dipersiapkan,” ujarnya, tadi
malam.
Dari sisi hukum, kata Azwan, Tim Transisi tidak
punya hak menggelar KLB PSSI. Berdasarkan
Statuta, KLB adalah ranah yang dimilik anggota
PSSI yaitu klub dan pengurus daerah. Bukan
pihak lain.
“Tim Transisi itu harus sudah bubar. Dengan
putusan PTUN Jakarta yang membatalkan SK
Pembekuan PSSI, Tim Transisi tidak ada lagi.
Sebab, Tim Transisi itu turunan dari SK
Pembekuaan itu,” jelasnya.
Untuk itu, Azwan meminta Menpora memegang
spirit sepak bola yaitu fair play. Jika sudah kalah,
harus terima kalah, bukan ngotot ingin menang.
“Jadi, terimalah kekalahan,” tandasnya. ***
link

1. Berawal dari orang masuk got dipoles nastak dan dijadikan pemimpin
2. Terbitlah janji kampanye mengenai punggawa yang ramping, propesional dan non transaksional
3. Akhirnya oknum ini pun terpilih jadi punggawa demi menyenangkan organisasi pendukung
4. Fix ini salah pks dan wowo
note :
* Bentar lagi akan bermunculan nastak bentukan nahrowo yg berava pemain bola, sok mengaku netral dan sok peduli bola, padahal cuma pengen pssi di kuasai moncong berbusa

http://www.kaskus.co.id/thread/55cabc2f947868b4738b4569/menpora-seperti-quotdewa-mabokquot/

Haji Lulung Desak Bareskrim Periksa Ahok

Quote:

JAKARTA – Wakil Ketua Dewan Perwakilan Rakyat Daerah (DPRD) DKI Jakarta, Abraham Lunggana atau yang akrab disapa Haji Lulung mendesak penyidik Badan Reserse Kriminal (Bareskrim) Mabes Polri memeriksa Gubernur DKI Jakarta, Basuki Tjahaja Purnama (Ahok).

Pemeriksaan itu terkait kasus dugaan korupsi pengadaan uninterruptible power supply (UPS).

“Dia (Ahok) juga harus diperiksa dong, jangan saya saja!,” tegas Lulung saat berbincang dengan Okezone, di Jakarta, Minggu (24/5/2015).

Politisi Partai Persatuan Pembangunan (PPP) ini menuding Ahok turut bertanggungjawab atas pengadaan alat UPS tersebut. Faktanya, sebagai Gubernur DKI, kata dia, Ahok telah ikut menandatangani proyek tersebut.

“Pada saat itu kan saya menjadi koordinator komisi, persetujuan kan ada di gubernur. Dia yang tanda tangan untuk menyetujui (proyek UPS-red) itu. Saya hanya sebatas pembahas anggaran, dia yang menjadi pengguna sekaligus pembahas anggaran. Persetujuan ada di dua belah pihak. Jadi, jangan saya saja yang dipanggil gitu lho,” bebernya.

Sebelumnya, polisi telah menetapkan dua orang tersangka dalam kasus UPS di Pemprov DKI Jakarta.

Mereka yakni Alex Usman yang pada saat itu menjabat sebagai Kepala Seksi Sarana dan Prasarana Suku Dinas Pendidikan Menengah Jakarta Barat dan Zaenal Soleman selaku pejabat pembuat komitmen (PPK) pengadaan UPS Suku Dinas Pendidikan Menengah Jakarta Pusat.

Kedua tersangka dikenakan Pasal 2 dan Pasal 3 Undang-Undang Nomor 20 Tahun 2001 tentang Pemberantasan Tindak Pidana Korupsi juncto Pasal 55 ayat 1 ke 1 KUHP.

http://www.kaskus.co.id/thread/5560fe4296bde60f5e8b4568/haji-lulung-desak-bareskrim-periksa-ahok/

Pelemahan Nilai Tukar Rupiah Terburuk se-Asia

Langkah mengejutkan China untuk mendevaluasi yuan memberi dampak buruk pada nilai tukar mata uang wilayah Asia. Hampir semua negara Asia mengalami pelemahan nilai tukar atas dolar Amerika (USD).

Rupiah ikut terlibas dengan kembali menguatnya nilai tukar USD. Yuan selama ini menjadi satu-satunya mata uang diharapkan bisa melawan dominasi USD.

Head of Research NH Korindo Securities Indonesia Reza Priyambada mengatakan tidak ada lagi mata uang yang sanggup menandingi kedigdayaan USD. Kondisi ini membuat nilai tukar mata uang negara berkembang, termasuk Rupiah, terpukul.

Reza belum terlihat adanya sentimen positif untuk membalikkan laju Rupiah ke zona hijau. Namun, semua pihak diyakini berharap pelemahan yang terjadi dapat lebih terbatas dan Rupiah tak semakin terpuruk.

Namun demikian, pelemahan nilai tukar Rupiah ternyata menjadi terburuk se-Asia. Dilansir dari CNBC, Rupiah melemah hingga 1,7 persen terhadap USD dan menyentuh titik terendah sejak Juli 1998. Sedangkan ringgit Malaysia hanya melemah 1,4 persen ke level terendah sejak September 1998.

Dolar Singapura, dolar Taiwan dan Peso Filipina juga turun hingga menyentuh titik terendah dalam lima tahun terakhir. Namun, penurunannya tidak sebesar yang dirasakan Indonesia.

“Sebagian besar negara yang mengalami penurunan nilai tukar karena dominasi ‘pemain’ yang melemahkan. Bank sentral negara tersebut kurang bersedia mempertahankan mata uang mereka jangka pendek,” ucap ahli strategi mata uang dari National Australia Bank, Emma Lawson dikutip dari CNBC di Jakarta, Rabu (12/8).

Beberapa pejabat bank sentral di Asia, termasuk Indonesia menanggapi dingin turunnya nilai tukar. Bank Indonesia mengatakan depresiasi atau melemahnya nilai tukar Rupiah tidak mencerminkan fundamental ekonomi, tapi sentimen global. Sedangkan Menteri Keuangan Korea Selatan mengatakan pemerintahnya sedang memantau pasar valuta asing.

Sumber: http://www.kaskus.co.id/thread/55cad77a54c07abd698b456b/pelemahan-nilai-tukar-rupiah-terburuk-se-asia/

10 BERITA TEKNOLOGI

 

ITS Jadi Tuan Rumah Kontes Mobil Irit Nasional

Soeprayitno
Selasa, 14 Oktober 2014 − 03:10 WIB
ITS Jadi Tuan Rumah Kontes Mobil Irit Nasional
Indonesia Energy Marathon Challenge (IEMC) 2014 digelar di ITS pada 16-19 Oktober. (dok: istimewa).
A+ A-
SURABAYA – Institut Teknologi Sepuluh Nopember (ITS) Surabaya dipercaya Direktorat Jenderal Pendidikan Tinggi (Dikti) menjadi tuan rumah perhelatan Indonesia Energy Marathon Challenge (IEMC) 2014.

Kompetisi bergengsi ini akan dihelat di Sirkuit Kenjeran Park (Kenpark), Kamis-Minggu (16-19/10/2014). IEMC merupakan kompetisi kendaraan irit bahan bakar untuk mahasiswa seluruh Indonesia, baik dari perguruan tinggi negeri maupun yang berafiliasi dengan perguruan tinggi.

Tahun 2014 ini, IEMC mengambil tema Innovate and Inspire. Seperti tahun lalu, ada dua jenis kompetisi dalam IEMC, yaitu kompetisi on track (dalam sirkuit) dan kompetisi off track (di luar sirkuit).

Kompetisi on track meliputi kecepatan dan keiritan bahan bakar, sedangkan kompetisi off track meliputi best design, best team, dan best video. Kategori lomba pun dibagi dua, yaitu kategori urban concept dan prototype.

Namun, berbeda dengan tahun lalu, tahun ini IEMC akan membuka kelas baru yakni kelas etanol di kedua kategori tersebut. Tahun lalu, IEMC memang hanya membuka 3 jenis kelas yakni kelas bensin, listrik dan solar di tiap kategori.

Ketua panitia IEMC 2014 Dr Bambang Arip Dwiyantoro mengatakan, kelas etanol memang baru dibuka tahun ini. “Hal itu untuk memotivasi mahasiswa agar lebih bisa mencari bahan bakar alternatif untuk kendaraan,” papar dosen Teknik Mesin ITS ini, di gedung Rektorat, Senin (13/10/14).

Selain membuka kelas baru, ada beberapa hal lainnya yang berbeda untuk IEMC 2014 ini. Di antaranya adalah dengan dibukanya open recruitment bagi mahasiswa dari kampus lainnya untuk menjadi panitia IEMC 2014.

Ada berberapa perwakilan yang mendaftar dan konfirmasi, antara lain dari Universitas Pendidikan Indonesia (UPI) dan Insititut Teknologi Medan (ITM).

Dari sisi durasi kompetisi, tahun ini lebih lama. Tahun kemarin IEMC hanya digelar selama tiga hari, kali ini akan digelar selama empat hari.

“Hal ini tak lepas dari banyaknya jumlah peserta IEMC yang naik secara drastis tahun ini,” sambungnya. Bambang yang juga kepala laboratorium nano micro fluid ini menegaskan bahwa jumlah peserta naik sebesar 60%, yakni sekitar 68 tim yang akan berlaga.

Tahun ini pun juga terdapat kategori juara umum untuk IEMC. Maka dari itu, persaingan antarperguruan tinggi pun dipastikan akan semakin ketat. Bambang mengungkapkan tahun ini seluruh perguruan tinggi sedang berbenah untuk kompetisi IEMC 2014.

“Banyak juga perguruan tinggi yang memulai debut mobil irit bahan bakar ini di IEMC 2014, sehingga kompetitor ITS semakin banyak,” ungkap dosen yang menyelesaikan gelar doktoralnya di NTUST, Taiwan ini.

Sementara itu, Kepala Lembaga Pengembangan Pendidikan, Kemahasiswaan, dan Hubungan Alumni ITS Dr Bambang Sampurno menambahkan, ITS sendiri juga menargetkan akan berusaha untuk menyabet kembali gelar juara umum di IEMC tahun ini.

“Kita sudah menang dua kali sebelumnya, maka dari itu tahun ini ITS juga akan berusaha mempertahankan gelar jawara itu,” tegasnya optimistis.

Selain kegiatan racing, kata Bambang Sampurno, dalam IEMC 2014 ini juga akan terbuka untuk masyarakat umum yang bisa mengikuti kegiatan photo contest maupun tour session yang ditujukan untuk siswa-siswi SMA dan SMK di Surabaya agar lebih mengenal dunia otomotif.

source: http://daerah.sindonews.com/read/911025/23/its-jadi-tuan-rumah-kontes-mobil-irit-nasional-1413196648

Roy Suryo Usul Dewan Buat UU Internet

Arief Setiadi
Selasa, 9 September 2014 − 04:09 WIB
Roy Suryo Usul Dewan Buat UU Internet
Pengguna internet di Indonesia tinggi (dok:Ilustrasi/Istimewa)
A+ A-
SOLO – Pakar Telematika yang juga Menteri Pemuda dan Olahraga (Menpora) Roy Suryo, berharap Indonesia memiliki undang-undang yang mengatur etika berinternet.

Roy mengatakan, uunda-undang internet sangat penting. Apalagi, perkembangan dunia internet di Indonesia sangatlah tinggi. Sehingga, perlu kontrol dari pemerintah.

“Kalau undang-undang yang mengatur etika itu diterapkan, maka tidak mungkin terjadi peristiwa seperti yang dilakukan Florence Sihombing beberapa waktu lalu,” ucapnya, ketika ditemui wartawan, di Kota Solo, Selasa (8/9/2014).

Menurutnya, selama undang-undang atau aturan baku untuk itu tidak dibuat, hal serupa akan terus terjadi. Sehingga, mau tidak mau, para anggota dewan yang duduk di Senayan lima tahun ke depan harus merumuskan masalah tersebut.

“Dengan adanya undang-undang itu, masyarakat akan lebih berhati-hati untuk menggunakan media internet. Karena, jika tidak berhati-hati, masyarakat akan terkena sanksi dari undang-undang itu,” terangnya.

Pihaknya juga meminta kepada anggota dewan untuk segera meneruskan Rancangan Undang-Undang (RUU) Tindak Pidana Teknologi Informasi. Dalam RUU tersebut, nantinya pemberian inormasi melalui media internet bakal diatur.

“Bakal ada sanksi pidana yang dijatuhkan jika nanti masyarakat menyebarkan informasi yang salah. Seperti kabar pesawat jatuh yang menyebar melalui internet, namun kenyataanya tidak,” terangnya.

source: http://daerah.sindonews.com/read/899565/22/roy-suryo-usul-dewan-buat-uu-internet-1410189135

Uji Coba Dua Roket di Garut Berhasil

Fani Ferdiansyah
Sabtu, 23 Agustus 2014 − 00:01 WIB
Uji Coba Dua Roket di Garut Berhasil
Teknisi LAPAN mengawasi roket yang tengah menjalani uji statis di ruang kontrol Stasiun Pengamatan Dirgantara LAPAN Pameungpeuk, Kabupaten Garut. (Foto: Fani Ferdiansyah/KORAN SINDO)
A+ A-
GARUT – Uji coba terhadap roket RX 450 dan RX 320 di Kecamatan Pameungpeuk, Kabupaten Garut, Jawa Barat, berhasil. Dua roket yang tengah dikembangkan untuk program peluncuran satelit tersebut memenuhi target saat menjalani pengujian berbeda.

Kepala Pusat Teknologi Roket Lembaga Penerbangan dan Antariksa Nasional (LAPAN) Sutrisno mengatakan, roket RX 450 diuji statis sementara roket RX 320 diuji terbang (dinamis). Pengujian statis roket RX 450 ditujukan agar para peneliti LAPAN mengetahui performa motor roket.

“Hasilnya, uji statis terhadap RX 450 berhasil memenuhi target. Kami memprediksi durasi performa motor roket RX 450 adalah selama 18 detik. Namun hasil uji statis ini menunjukkan durasi waktunya mencapai 19,5 detik,” kata Sutrisno di Garut, Jumat (22/8/2014).

Roket berkaliber 450 mm dengan panjang total 6.110 mm ini memiliki gaya dorong sekitar 12.895 kg. Roket yang menggunakan bahan bakar propelan komposit ini memiliki panjang motor 4.459 mm. “Setelah keberhasilan ini, kami akan mengagendakan uji terbang roket RX 450 di akhir 2014 mendatang,” ujarnya.

Pengujian terbang roket RX 320 juga berhasil memenuhi harapan. Untuk alasan keamanan dan keselamatan jiwa para teknisi, peneliti, dan masyarakat di sekitar lokasi peluncuran, roket berdiameter 320 mm ini diterbangkan LAPAN pada kemiringan 70 derajat.

“Kami luncurkan di kemiringan 70 derajat. Jadi tidak tegak lurus. Namun, hasilnya cukup memuaskan. Berdasarkan data dari rekaman yang kami miliki, roket RX 320 berhasil terbang pada ketinggian antara 20 hingga 30 km. Ketinggian ini cukup memenuhi target, karena hanya diluncurkan dalam posisi elevasi 70 derajat. Kalau diluncurkan dengan posisi tegak lurus, daya jangkaunya akan lebih jauh lagi,” paparnya.

Menurut Sutrisno, RX 450 dan RX 320 merupakan jenis roket sonda. Roket sonda adalah roket yang biasa digunakan untuk misi meneliti parameter atmosfer, kelembaban temperatur, dan lainnya.

“Jadi, jika kita mampu menguasai teknologi roket sonda, meluncurkan satelit sendiri di kemudian hari bukan hal yang tidak mungkin lagi. Kami akan terus mencoba, meneliti, dan mengembangkan masing-masing roket sesuai tahapan-tahapannya. Karena untuk meluncurkan satelit pada ketinggian tertentu, diperlukan lebih dari satu roket atau bertingkat.”

source: http://daerah.sindonews.com/read/894214/21/uji-coba-dua-roket-di-garut-berhasil-1408721057

Sumsel Raih Nominasi Geospasial

Andhiko Tungga Alam
Rabu, 28 Mei 2014 − 01:02 WIB
Sumsel Raih Nominasi Geospasial
Ilustrasi (dok:Istimewa)
A+ A-
PALEMBANG – Peran Pemerintah Sumatera Selatan (Sumsel) dalam pembangunan sangat besar. Hal itu dapat dilihat dari satelit dan foto udara, yang memperlihatkan letak geografis dan karakteristik Provinsi Sumsel masuk titik koordinat perumusan kebijakan dan pelaksanaan kegiatan yang berhubungan dengan ruang kebumian.

Perumusan kebijakan tersebut dilakukan pemerintah pusat melalui bidikan teknologi geospasial yang mampu menjadi simpul jaringan terkait data tutupan lahan, data ketinggian melalui foto udara, dan satelit.

Teknologi geospasial digunakan untuk menentukan zona rawan multi bencana, curah hujah, data geologi, dan pergerakan lempeng tektonik. Teknologi ini juga mampu menentukan rute evakuasi letusan gunung berapi melalui peta zonasi rawan, peta sebaran permukiman, dan jalan.

Tak hanya itu, teknologi geospasial ini juga lah yang digunakan dunia perbankan untuk menentukan lokasi-lokasi strategis tata letak ATM melalui analisa sebaran permukiman penduduk. Teknologi ini juga digunakan untuk pengembangan infrastruktur dari data spasial secara nasional.

“Hal ini perlu disosialisasikan lebih dalam, khususnya untuk menyambut Pekan Giospasial Nasional,” ujar Deputi Bidang Informasi Geospasial Tematik Nurwadjedi, kepada wartawan, Selasa (27/5/2014).

Ditambahkan dia, saat ini belum banyak masyarakat yang mengetahui pentingnya informasi geospasial yang mampu membangun simpul jaringan yang baik antar pemerintah daerah, maupun antara kementerian dan pemerintah daerah.

Sementara itu, Kepala UPTD Tata Ruang Bappeda Provinsi Sumsel Regina Ariyanti melalui Kepala Seksi Data dan Informasi UPTD Bappeda Provinsi Sumsel Titin mengatakan, Provinsi Sumsel saat ini telah memiliki Jaringan Data Spasial Daerah (JDSD) sejak tahun 2010.

“Sumsel Sekarang telah memiliki Data Spasial JDSD sebagai sarana pemetaan terkait perencanaan pembangunan yang berkoordinasi dengan Dinas Perhubungan Provinsi Sumsel,” terangnya.

Titin menambahkan, Provinsi Sumsel merupakan satu-satunya daerah di luar Jawa yang memperoleh Nominasi Informasi Geospasial bersama Provinsi Jawa Barat dan Provinsi Daerah Istimewa Yogyakarta (DIY).

source: http://daerah.sindonews.com/read/867738/24/sumsel-raih-nominasi-geospasial-1401203017

Bangun Surabaya, Risma Andalkan Teknologi Informasi

Lukman Hakim
Minggu, 25 Mei 2014 − 10:08 WIB
Bangun Surabaya Risma Andalkan Teknologi Informasi
Wali Kota Surabaya Tri Rismaharini. (Foto: Dok SINDOphoto)
A+ A-
SURABAYA – Wali Kota Surabaya Tri Rismaharini mulai memanfaatkan teknologi informasi dalam menjalankan seluruh manajemen perkotaan. Dengan pemanfaatan teknologi ini, kinerja pemerintahan menjadi lebih efisien secara waktu dan hemat dari segi anggaran. Pemanfaatan teknologi informasi ini juga demi menyelenggarakan pemerintahan yang baik.

Risma, panggilan Tri Rismaharini menyatakan, pengusulan pembangunan pun sekarang diajukan secara elektronik melalui e-musrenbang. Perhitungan anggaran juga sangat detail karena sudah menggunakan sistem e-budgeting. Demikian halnya dengan proses pembayaran transaksi. Pihaknya menilai bahwa sudah tidak ada lagi pembayaran proyek secara cash.

Tak hanya dalam sistem keuangan, pemanfaatan teknologi juga diterapkan di berbagai penjuru kota dalam bentuk pemasangan kamera closed-circuit television (CCTV). Selain untuk faktor keamanan, pemasangan CCTV juga bertujuan untuk pengaturan lalu lintas. “Dari segi keamanan, kami koordinasi dengan pihak kepolisian untuk memantau tindak kriminalitas. Sedangkan pengaturan lalu lintas dioperasikan oleh Dinas Perhubungan,” paparnya, Minggu (25/5/2014)

Alumnus Institut Teknologi Sepuluh Nopember Surabaya (ITS) ini menambahkan, selain membangun infrastruktur kota, pihaknya juga akan terus meningkatkan kemampuan sumber daya manusia (SDM). Untuk terbentuk masyarakat Surabaya yang berkualitas, pihaknya membangun sarana untuk peningkatan kualitas manusia. Sedikitnya 972 perpustakaan dan taman baca tersebar di seluruh penjuru kota. Ditambah dengan broadband learning center (BLC) di 11 lokasi. Di tempat tersebut, masyarakat dapat menggunakan maupun belajar komputer dan internet secara gratis.

Setidaknya, sebesar 35 persen dari total anggaran APBD Kota Surabaya dialokasikan untuk pendidikan. “Dengan alokasi anggaran sebesar itu, pendidikan tersedia secara gratis mulai SD hingga bangku SMA/SMK,” terangnya.

source: http://daerah.sindonews.com/read/866972/23/bangun-surabaya-risma-andalkan-teknologi-informasi-1400987282

Siswa di Sidoarjo buat pesawat pemadam kebakaran tanpa awak

Abdul Rouf
Senin, 18 November 2013 − 15:51 WIB
Siswa di Sidoarjo buat pesawat pemadam kebakaran tanpa awak
Siswa Smamda saat menunjukkan buah tangan mereka, Senin (18/11). (Foto: Abdul Rouf/SINDO)
A+ A-
Sindonews.com – Sekolah Muhammadiyah 2 (Smamda) Sidoarjo selama ini dikenal dengan hasil karya siswanya di bidang robotik. Yang terbaru, mereka membuat pesawat untuk pemadam kebakaran (PMK).

Pesawat dengan panjang satu sampai dua meter ini didesain untuk memadamkan kebakaran di kawasan padat pemukiman. Dimana tidak mudah mobil PMK menjangkau kawasan itu.

Pesawat Aeromic itu terbagi dari Copter untuk memantau lokasi kebakaran, UAV untuk mendeteksi api dan memadamkan api.

“Pesawat terbagi menjadi tiga, ada yang memantau, mendeteksi dan memadamkan,” ujar Dyhan Ramadan, siswa kelas 11 IPA SMAMDA yang membuat pesawat tanpa awak itu, Senin (18/11/2013).

Dyhan mengaku pesawat yang dibuatnya ini masih butuh penyempurnaan. Namun, hasil karyanya ini sudah menyabet juara III dalam ‘Pesta Rakyat Fisika’ yang digelar Universitas Indonesia (UI) beberapa waktu lalu.

Pesawat untuk PMK itu, didesain tanpa awak dan cukup ramping sehingga bisa menjangkau kawasan padat penduduk. Pesawat mini ini dikendalikan oleh remote control menggunakan baterai lytium.

Lalu apakah mampu pesawat mini ini membawa bahan untuk memadamkan api?, Dyhan menjelaskan pesawat itu bisa mengangkut karbon dioksida dan dapat memadamkan api dari atas.

Dari pesawat itupula, dapat diketahui kondisi lokasi kebakaran. Karena sudah dilengkapi dengan kamera pengintai yang cukup tajam.

Pesawat Aeromic ini diharapkan bisa menjadi solusi masa depan dibidang penanganan kebakaran. “Ini kan masih project awal. Jadi bisa dikembangkan lebih bagus lagi,” pungkas Dyhan.

Bukan hanya hasil karya Dyhan yang menang di kancah nasional. Ada beberapa penghargaan yang diterima siswa SMA Muhammadiyah 2 Sidoarjo. Diantaranya, saat kontes Robot Terbang Indonesia di ITB, ada dua tim yang menyabet juara dua. Demikian saat Internasional Islamic School Robotik beberapa waktu lalu, tim Smamda mendapat 10 medali.

Kepala Sekolah SMA Muhammadiyah 2 Sidoarjo, Hidayatullah, sangat mengapresiasi apa yang sudah diraih siswa-siswinya ini. Dia berharap agar siswanya bisa menelurkan teknologi tepat guna.

“Oleh karena itu kita buat ekstrakulikuler bidang robotic. Dan ternyata siswa yang ikut cukup banyak mencapai 50 siswa,” tandasnya.

source: http://daerah.sindonews.com/read/807122/23/siswa-di-sidoarjo-buat-pesawat-pemadam-kebakaran-tanpa-awak-1384764661

Mobil listrik Arjuna tampil lebih gaya

Ratih Keswara
Rabu, 13 November 2013 − 02:01 WIB
Mobil listrik Arjuna tampil lebih gaya
http://www.fakultas-teknik.ugm.ac.id
A+ A-
Sindonews.com – Mahasiswa UGM kembali membuat inovasi mobil listrik dengan nama Arjuna. Ingin tampil beda dari mobil listrik UGM yang lain serta dari kreasi perguruan tinggi lain, body Arjuna dibuat lebih modis.

Mobil yang belum berusia satu tahun ini bahkan telah mengukir prestasi di Kompetisi Mobil Listrik Indonesia 2013 pada 25-27 Oktober 2013 lalu di Bandung.

“Arjuna sebenarnya mobil listrik baru. Generasi pertama Arjuna baru kami mulai Juni 2013 lalu. Namun, Arjuna kami yang mendapat prestasi di KMLI kemarin adalah Arjuna generasi kedua. Kami tentu sangat senang karena meski baru, kami sudah mampu meraih prestasi sebagai juara tiga kategori efisiensi bahan bakar,” ujar Ketua Tim Arjuna Moch Ryan Ardiansyah Selasa (12/11/2013).

Ditemui di kampus setempat, mahasiswa jurusan Teknik Mesin dan Industri Fakultas Teknik UGM ini menuturkan, ingin menandingi mobil listrik yang sudah ada saat ini, tim Arjuna tidak hanya sekedar memikirkan rancangan mesinnya saja.

Tampilan dan body mobil juga didesain agar mampu tampil lebih gaya dan menarik perhatian.

“Dan ternyata kami cukup berhasil. Saat KMLI kemarin, mobil kami tampak paling menonjol dibandingkan mobil peserta lainnya. Ini juga yang menjadi alasan kami memberi nama Arjuna. Tak hanya memiliki kekuatan, tokoh wayang Arjuna juga terkenal karena ketampanannya. Kami ingin mobil kami juga demikian,” imbuhnya.

Ryan menuturkan, generasi kedua Arjuna tersebut memiliki banyak kemajuan dibandingkan generasi pertama yang hanya sekedar eksperimen. Dari segi jenis motor penggerak mobil yang digunakan hingga sistem elektronik diverensial mengalami perubahan yang cukup signifikan.

“Mobil Arjuna yang saat ini sudah mampu menempuh jarak 30Km dengan kecepatan 30-40Km perjam dalam satu kali pengisian baterai yang berdurasi 3 jam. Mobil ini juga sudah dilengkapi dengan electronic differential sehingga memungkinkan adanya kestabilan pada belokan ketika tengah melaju, meski dilengkapi dengan dua motor,” jelasnya.

Bersama teman-teman sejurusannya yakni Fajar Sidik Abdullah, Basirudin Qori, Fariz Bintang, Fadli Akbar, Erik Pranata, Wanda Andreas, Aruni Silma, Rizky Muhammad Ramadhan dan satu mahasiswa Jurusan Elektronika dan Instrumentasi (ELINS) Lutfi Yahya, ia bertekad untuk terus mengembangkan Arjuna.

“Pengembangan akan kami lakukan dari semua segi baik meningkatkan kecepatan dan efisiensi penggunaan bahan bakar listrik hingga usaha mengurangi berat mobil dari yang sekarang yakni 210Kg dengan pengendara. Pengembangan ini juga akan kami fokuskan agar Arjuna mampu berlaga di kompetisi tingkat nasional untuk tahun 2014 dan kompetisi internasional di 2015,” ungkapnya.

Ketua Tim Teknis Arjuna Rizky Muhammad Ramadhan menuturkan, Arjuna didesain agar memiliki tingkat efisiensi yang memadai. Tak hanya itu, Arjuna sebenarnya juga bisa didesain dengan kecepatan yang lebih tinggi, sayangnya mereka belum menemukan formula bagaimana agar Arjuna mampu berlari lebih cepat namun tetap irit bahan bakar.

“Tak hanya sabuk pengaman yang berjumlah empat, mobil kami ini juga sudah dilengkapi dengan rollbar sebagai upaya perlindungan bagi pengemudi. Rollbar sendiri berfungsi untuk melindungi pengemudi jika mobil terguling. Kebanyakan komponen mobil ini juga berasal dari dalam negeri dan dirangkai oleh kami sendiri,” imbuhnya.

Selanjutnya, Arjuna yang didesain dengan anggaran sekitar Rp30juta ini akan dipamerkan di UGM Research Week pada 13-17 November 2013 di GSP UGM. Selain itu, tahun depan Arjuna sudah dijadwalkan akan tampil pada Indonesia Electric Vehicle Competition di UGM.

source: http://daerah.sindonews.com/read/804895/22/mobil-listrik-arjuna-tampil-lebih-gaya-1384253654

Program internet Kemenkominfo di TTU mubazir

Sefnat Besie
Jum’at, 4 Oktober 2013 − 19:26 WIB
Program internet Kemenkominfo di TTU mubazir
Ilustrasi (Dok Istimewa)
A+ A-
Sindonews.com – Program bantuan internet di Desa Dering, PLIK dan M-PLIK bantuan Kementerian Informasi dan Komunikasi (Kemenkominfo) di Timor Tengah Utara (TTU), Nusa Tenggara Timur (NTT) ternyata mubazir.

Peralatan yang dipasang tanpa sepengetahuan pemerintah kecamatan itu nampak tidak terawat.

“Saat itu kami heran tiba-tiba sudah terpasang itu peralatan seperti Pusat Layanan Internet Kecamatan (PLIK) namun tidak ada tenaga teknis yang bisa mengoperasikan, sekarang sudah rusak,” terang Sekretaris Camat Biboki Feotleu, Hendrikus Bana, dalam sosialisasi program telekomunikasi Kemenkominfo, di Hotel Litani, Kefamenanu, Jumat (4/10/2013).

Menurutnya, agar ke depan program lain tidak mubazir, Hendrikus menawarkan solusi agar dibekali dengan tenaga teknis yang siap berada di lokasi maupun persediaan dana operasional yang memadai.

“Selama peralatan itu menjadi tanggungjawab kecamatan, sementara tidak ada operator yang paham, kita mau berbuat apa, apalagi membutuhkan biaya pemeliharaan,” tambah Hendrik.

Hendrik berharap agar Kemenkominfo bisa memperhatikan kembali sistem distribusi maupun biaya operasionalnya. “Ini agar tak terulang kesalahan yang sama,” jelasnya.

source: http://daerah.sindonews.com/read/790985/27/program-internet-kemenkominfo-di-ttu-mubazir-1380889584

 

Ini pesawat tanpa awak generasi ketiga buatan UGM

Ratih Keswara
Rabu, 25 September 2013 − 15:52 WIB
Ini pesawat tanpa awak generasi ketiga buatan UGM
Pesawat tanpa awak (Dok UGM)
A+ A-
Sindonews.com – UGM telah menyelesaikan pembuatan pesawat tanpa awak generasi ketiga yang diberi nama Camar Biru. Pesawat hasil pengembangan teknologi sebelumnya ini dibuat sebagai prototipe untuk kepentingan sipil.

“Pengembangan pesawat tanpa awak ini sebenarnya sudah kami mulai sejak 2011 lalu. Dan segi teknologi dan kemanfaatannya, pesawat yang ini tentu lebih baik dari dua generasi sebelumnya,” ujar Dosen Pembimbing Tim Force Teknik Mesin UGM, Dr Gesang Nugroho, Rabu (25/9/2013).

Ditemui di sela-sela Peluncuran Pesawat Tanpa Awak atau Unmanned Aerial Vehicle (UAV) Camar Biru di lapangan GSP UGM, Gesang memaparkan, Camar Biru telah dilengkapi dengan micro controler dan empat macam sensor.

Keempatnya ialah GPS untuk tracking posisi pesawat, IMU untuk stabilisasi pesawat, Barometrik sebagai sensor ketinggian dan Air Speed Sensor untuk kecepatan.

“Untuk terbang, pesawat ini memang masih kami desain diterbangkan dengan manual. Namun setelah mengudara, kontrol berubah menjadi otomatis. Begitu juga saat mendarat. Ini untuk mengurangi risiko pesawat menabrak orang atau bangunan di sekitarnya. Pesawat ini memang sudah kami lengkapi dengan software yang membuatnya mampu terbang secara otomatis,” jelasnya.

Kecepatan rata-rata pesawat Camar Biru mencapai 60km/jam. Pesawat juga dilengkapi dengan kamera video yang mampu merekam maupun mengirim gambar secara langsung (live video).

Jarak tempuh pesawat masih berkisar di 8km dengan durasi sekira 15 menit. Ketinggian maksimal yang bisa dicapai ialah 600meter.

“Selama ini kami hanya menerbangkannya sekira 200 meter karena untuk mencapai lebih dari itu kami harus meminta izin karena sudah mencapai zona penerbangan formal. Kelebihan lainnya ialah pesawat ini sudah bisa membangun peta dengan mozaik foto,” tuturnya.

Untuk melengkapi kemanfaatannya bagi kepentingan sipil, Camar Biru telah memiliki kemampuan mampu membawa dan menjatuhkan benda pada posisi yang diinginkan. Dengan begitu, pesawat ini bisa dimanfaatkan untuk pemantauan lalu lintas, daerah bencana, lahan pertanian maupun gunung berapi.

Pesawat juga bisa untuk membantu tim SAR mencari korban di lautan atau sebagai pesawat patroli daerah perbatasan maupun laut.

source: http://daerah.sindonews.com/read/787305/22/ini-pesawat-tanpa-awak-generasi-ketiga-buatan-ugm-1380099122

Gubernur terpilih harus ‘sulap’ Jatim melek internet

Nurul Arifin
Jum’at, 6 September 2013 − 11:50 WIB
Gubernur terpilih harus sulap Jatim melek internet
Ilustrasi
A+ A-
Sindonews.com – Pertumbuhan ekonomi Jawa Timur terus tumbuh namun tingkat melek internet masyarakat Jawa Timur masih rendah.

Data yang dihimpun, saat ini tingkat melek internet Jawa Timur sekitar 30 Persen. Sementara, tingkat pertumbuhan ekonomi Jawa Timur sebesar 7,24 Persen. Tentunya melebihi pertumbuhan ekonomi nasional yang mencapai 6,4 Persen.

“Gubernur terpilih harus bisa menyulap masyarakat Jawa Timur lebih melek internet. Sebab, angka 30 persen masih kecil dibanding dengan jumlah penduduk Jawa Timur,” ujar Relawan Teknologi dan Informasi (TIK) Jatim Tofan Ardi ketika berbincang-bincang, Jumat (6/9/2013).

Tingkat melek internet masyarakat masih sebatas di tingkat perkotaan. Sementara, untuk tingkat pedesaan masih rendah. Belum lagi dengan penetrasi Broadband (internet kecapatan tinggi).

Kata Tofan, berdasarkan survei ITU (International Telecomunication Union) peningkatan penetrasi broadband 10 persen dampak ekonomi naik 1,38 persen.

Lebih jauh pria yang berprofesi sebagai Web Desainer ini menyebut, penetrasi melek internet masyarakat Jawa Timur ini dapat memajukan suatu daerah.

Salah satunya adalah memperkuat peran pemuda (Netizen). Sebagaimana diketahui, pengguna jejaring sosial baik Facebook, Twitter, Youtube dan lain-lain adalah pemuda.

Nah, dengan demikian tinggal bagaimana memoles potensi itu melalui perluasan melek internet dan penetrasi broadband.

“Misalnya, suatu daerah ada potensi. Pemuda bisa berperan aktif memasarkan potensi-potensi itu melalui jagad digital. Tentunya, sasarannya tidak hanya nasional saja melainkan international,” kata Tofan.

Gubernur terpilih, bisa menelorkan kebijakkan-kebijakkan untuk itu. Teknisnya, tentu terintegrasi dengan sejumlah sumber daya yang ada. “Kami harap kepala daerah welcome terhadap era ini. Karena jika tidak maka Jawa Timur akan tertinggal dengan propinsi lain,” tandasnya.

Seperti diketahui, pada Sabtu (7/9/2013) besok, KPU Jawa Timur akan mengumumkan hasil rekapiltulasi Pemilukada Jatim yang digelar pada 29 Agustus lalu. Setidaknya, hingga saat ini Pasangan Soekarwo-Saifullah Yusuf (KarSa) yang memenangi perhitungan cepat (quick count) empat lembaga survei.

source: http://daerah.sindonews.com/read/779970/23/gubernur-terpilih-harus-sulap-jatim-melek-internet-1378441422

10 BERITA GAYA HIDUP

 

Menghitung Kunyahan Bantu Turunkan Berat Badan

Diana Rafikasari
Jum’at, 13 November 2015 − 09:25 WIB
Menghitung Kunyahan Bantu Turunkan Berat Badan
Menghitung Kunyahan Bantu Turunkan Berat Badan. (Ilustrasi).
A+ A-
LOS ANGELES – Sebuah penelitian yang dilakukan di Brigham Young University mengungkapkan, bahwa menghitung kunyahan saat makan efektif menurunkan berat badan dibandingkan menghitung kalori.

Dilansir dari Sciencedaily, Josh West dan Ben Crookston yang tergabung dalam penelitian tersebut mengungkapkan, bahwa orang-orang yang kelebihan berat badan perlu lebih fokus pada aspek kuantitatif dibandingkan aspek kualitatif.

Dalam penelitian tersebut, sebanyak 61 responden menghitung berapa kali mereka mengunyah dan berapa kali meneguk cairan selain air putih. 41 responden sukses menyelesaikan penelitian tersebut dan dengan hasil yang memuaskan.

“Menghitung kunyahan setiap hari terbukti mengurangi kunyahan sebanyak 20-30 persen dalam kurun waktu 4 pekan. Makin sedikit jumlah kunyahan diasumsikan porsi makannya juga semakin sedikit,” papar para peneliti.

source: http://lifestyle.sindonews.com/read/1061169/155/menghitung-kunyahan-bantu-turunkan-berat-badan-1447370497

Menghitung Kunyahan Bantu Turunkan Berat Badan

Diana Rafikasari
Jum’at, 13 November 2015 − 09:25 WIB
Menghitung Kunyahan Bantu Turunkan Berat Badan
Menghitung Kunyahan Bantu Turunkan Berat Badan. (Ilustrasi).
A+ A-
LOS ANGELES – Sebuah penelitian yang dilakukan di Brigham Young University mengungkapkan, bahwa menghitung kunyahan saat makan efektif menurunkan berat badan dibandingkan menghitung kalori.

Dilansir dari Sciencedaily, Josh West dan Ben Crookston yang tergabung dalam penelitian tersebut mengungkapkan, bahwa orang-orang yang kelebihan berat badan perlu lebih fokus pada aspek kuantitatif dibandingkan aspek kualitatif.

Dalam penelitian tersebut, sebanyak 61 responden menghitung berapa kali mereka mengunyah dan berapa kali meneguk cairan selain air putih. 41 responden sukses menyelesaikan penelitian tersebut dan dengan hasil yang memuaskan.

“Menghitung kunyahan setiap hari terbukti mengurangi kunyahan sebanyak 20-30 persen dalam kurun waktu 4 pekan. Makin sedikit jumlah kunyahan diasumsikan porsi makannya juga semakin sedikit,” papar para peneliti.

source: http://lifestyle.sindonews.com/read/1061169/155/menghitung-kunyahan-bantu-turunkan-berat-badan-1447370497

Menghitung Kunyahan Bantu Turunkan Berat Badan

Diana Rafikasari
Jum’at, 13 November 2015 − 09:25 WIB
Menghitung Kunyahan Bantu Turunkan Berat Badan
Menghitung Kunyahan Bantu Turunkan Berat Badan. (Ilustrasi).
A+ A-
LOS ANGELES – Sebuah penelitian yang dilakukan di Brigham Young University mengungkapkan, bahwa menghitung kunyahan saat makan efektif menurunkan berat badan dibandingkan menghitung kalori.

Dilansir dari Sciencedaily, Josh West dan Ben Crookston yang tergabung dalam penelitian tersebut mengungkapkan, bahwa orang-orang yang kelebihan berat badan perlu lebih fokus pada aspek kuantitatif dibandingkan aspek kualitatif.

Dalam penelitian tersebut, sebanyak 61 responden menghitung berapa kali mereka mengunyah dan berapa kali meneguk cairan selain air putih. 41 responden sukses menyelesaikan penelitian tersebut dan dengan hasil yang memuaskan.

“Menghitung kunyahan setiap hari terbukti mengurangi kunyahan sebanyak 20-30 persen dalam kurun waktu 4 pekan. Makin sedikit jumlah kunyahan diasumsikan porsi makannya juga semakin sedikit,” papar para peneliti.

source: http://lifestyle.sindonews.com/read/1061169/155/menghitung-kunyahan-bantu-turunkan-berat-badan-1447370497

Menghitung Kunyahan Bantu Turunkan Berat Badan

Diana Rafikasari
Jum’at, 13 November 2015 − 09:25 WIB
Menghitung Kunyahan Bantu Turunkan Berat Badan
Menghitung Kunyahan Bantu Turunkan Berat Badan. (Ilustrasi).
A+ A-
LOS ANGELES – Sebuah penelitian yang dilakukan di Brigham Young University mengungkapkan, bahwa menghitung kunyahan saat makan efektif menurunkan berat badan dibandingkan menghitung kalori.

Dilansir dari Sciencedaily, Josh West dan Ben Crookston yang tergabung dalam penelitian tersebut mengungkapkan, bahwa orang-orang yang kelebihan berat badan perlu lebih fokus pada aspek kuantitatif dibandingkan aspek kualitatif.

Dalam penelitian tersebut, sebanyak 61 responden menghitung berapa kali mereka mengunyah dan berapa kali meneguk cairan selain air putih. 41 responden sukses menyelesaikan penelitian tersebut dan dengan hasil yang memuaskan.

“Menghitung kunyahan setiap hari terbukti mengurangi kunyahan sebanyak 20-30 persen dalam kurun waktu 4 pekan. Makin sedikit jumlah kunyahan diasumsikan porsi makannya juga semakin sedikit,” papar para peneliti.

source: http://lifestyle.sindonews.com/read/1061169/155/menghitung-kunyahan-bantu-turunkan-berat-badan-1447370497

Menghitung Kunyahan Bantu Turunkan Berat Badan

Diana Rafikasari
Jum’at, 13 November 2015 − 09:25 WIB
Menghitung Kunyahan Bantu Turunkan Berat Badan
Menghitung Kunyahan Bantu Turunkan Berat Badan. (Ilustrasi).
A+ A-
LOS ANGELES – Sebuah penelitian yang dilakukan di Brigham Young University mengungkapkan, bahwa menghitung kunyahan saat makan efektif menurunkan berat badan dibandingkan menghitung kalori.

Dilansir dari Sciencedaily, Josh West dan Ben Crookston yang tergabung dalam penelitian tersebut mengungkapkan, bahwa orang-orang yang kelebihan berat badan perlu lebih fokus pada aspek kuantitatif dibandingkan aspek kualitatif.

Dalam penelitian tersebut, sebanyak 61 responden menghitung berapa kali mereka mengunyah dan berapa kali meneguk cairan selain air putih. 41 responden sukses menyelesaikan penelitian tersebut dan dengan hasil yang memuaskan.

“Menghitung kunyahan setiap hari terbukti mengurangi kunyahan sebanyak 20-30 persen dalam kurun waktu 4 pekan. Makin sedikit jumlah kunyahan diasumsikan porsi makannya juga semakin sedikit,” papar para peneliti.

source: http://lifestyle.sindonews.com/read/1061169/155/menghitung-kunyahan-bantu-turunkan-berat-badan-1447370497

Menghitung Kunyahan Bantu Turunkan Berat Badan

Diana Rafikasari
Jum’at, 13 November 2015 − 09:25 WIB
Menghitung Kunyahan Bantu Turunkan Berat Badan
Menghitung Kunyahan Bantu Turunkan Berat Badan. (Ilustrasi).
A+ A-
LOS ANGELES – Sebuah penelitian yang dilakukan di Brigham Young University mengungkapkan, bahwa menghitung kunyahan saat makan efektif menurunkan berat badan dibandingkan menghitung kalori.

Dilansir dari Sciencedaily, Josh West dan Ben Crookston yang tergabung dalam penelitian tersebut mengungkapkan, bahwa orang-orang yang kelebihan berat badan perlu lebih fokus pada aspek kuantitatif dibandingkan aspek kualitatif.

Dalam penelitian tersebut, sebanyak 61 responden menghitung berapa kali mereka mengunyah dan berapa kali meneguk cairan selain air putih. 41 responden sukses menyelesaikan penelitian tersebut dan dengan hasil yang memuaskan.

“Menghitung kunyahan setiap hari terbukti mengurangi kunyahan sebanyak 20-30 persen dalam kurun waktu 4 pekan. Makin sedikit jumlah kunyahan diasumsikan porsi makannya juga semakin sedikit,” papar para peneliti.

source: http://lifestyle.sindonews.com/read/1061169/155/menghitung-kunyahan-bantu-turunkan-berat-badan-1447370497

Menghitung Kunyahan Bantu Turunkan Berat Badan

Diana Rafikasari
Jum’at, 13 November 2015 − 09:25 WIB
Menghitung Kunyahan Bantu Turunkan Berat Badan
Menghitung Kunyahan Bantu Turunkan Berat Badan. (Ilustrasi).
A+ A-
LOS ANGELES – Sebuah penelitian yang dilakukan di Brigham Young University mengungkapkan, bahwa menghitung kunyahan saat makan efektif menurunkan berat badan dibandingkan menghitung kalori.

Dilansir dari Sciencedaily, Josh West dan Ben Crookston yang tergabung dalam penelitian tersebut mengungkapkan, bahwa orang-orang yang kelebihan berat badan perlu lebih fokus pada aspek kuantitatif dibandingkan aspek kualitatif.

Dalam penelitian tersebut, sebanyak 61 responden menghitung berapa kali mereka mengunyah dan berapa kali meneguk cairan selain air putih. 41 responden sukses menyelesaikan penelitian tersebut dan dengan hasil yang memuaskan.

“Menghitung kunyahan setiap hari terbukti mengurangi kunyahan sebanyak 20-30 persen dalam kurun waktu 4 pekan. Makin sedikit jumlah kunyahan diasumsikan porsi makannya juga semakin sedikit,” papar para peneliti.

source: http://lifestyle.sindonews.com/read/1061169/155/menghitung-kunyahan-bantu-turunkan-berat-badan-1447370497

Menghitung Kunyahan Bantu Turunkan Berat Badan

Diana Rafikasari
Jum’at, 13 November 2015 − 09:25 WIB
Menghitung Kunyahan Bantu Turunkan Berat Badan
Menghitung Kunyahan Bantu Turunkan Berat Badan. (Ilustrasi).
A+ A-
LOS ANGELES – Sebuah penelitian yang dilakukan di Brigham Young University mengungkapkan, bahwa menghitung kunyahan saat makan efektif menurunkan berat badan dibandingkan menghitung kalori.

Dilansir dari Sciencedaily, Josh West dan Ben Crookston yang tergabung dalam penelitian tersebut mengungkapkan, bahwa orang-orang yang kelebihan berat badan perlu lebih fokus pada aspek kuantitatif dibandingkan aspek kualitatif.

Dalam penelitian tersebut, sebanyak 61 responden menghitung berapa kali mereka mengunyah dan berapa kali meneguk cairan selain air putih. 41 responden sukses menyelesaikan penelitian tersebut dan dengan hasil yang memuaskan.

“Menghitung kunyahan setiap hari terbukti mengurangi kunyahan sebanyak 20-30 persen dalam kurun waktu 4 pekan. Makin sedikit jumlah kunyahan diasumsikan porsi makannya juga semakin sedikit,” papar para peneliti.

source: http://lifestyle.sindonews.com/read/1061169/155/menghitung-kunyahan-bantu-turunkan-berat-badan-1447370497

 

Menghitung Kunyahan Bantu Turunkan Berat Badan

Diana Rafikasari
Jum’at, 13 November 2015 − 09:25 WIB
Menghitung Kunyahan Bantu Turunkan Berat Badan
Menghitung Kunyahan Bantu Turunkan Berat Badan. (Ilustrasi).
A+ A-
LOS ANGELES – Sebuah penelitian yang dilakukan di Brigham Young University mengungkapkan, bahwa menghitung kunyahan saat makan efektif menurunkan berat badan dibandingkan menghitung kalori.

Dilansir dari Sciencedaily, Josh West dan Ben Crookston yang tergabung dalam penelitian tersebut mengungkapkan, bahwa orang-orang yang kelebihan berat badan perlu lebih fokus pada aspek kuantitatif dibandingkan aspek kualitatif.

Dalam penelitian tersebut, sebanyak 61 responden menghitung berapa kali mereka mengunyah dan berapa kali meneguk cairan selain air putih. 41 responden sukses menyelesaikan penelitian tersebut dan dengan hasil yang memuaskan.

“Menghitung kunyahan setiap hari terbukti mengurangi kunyahan sebanyak 20-30 persen dalam kurun waktu 4 pekan. Makin sedikit jumlah kunyahan diasumsikan porsi makannya juga semakin sedikit,” papar para peneliti.

source: http://lifestyle.sindonews.com/read/1061169/155/menghitung-kunyahan-bantu-turunkan-berat-badan-1447370497

Menghitung Kunyahan Bantu Turunkan Berat Badan

Diana Rafikasari
Jum’at, 13 November 2015 − 09:25 WIB
Menghitung Kunyahan Bantu Turunkan Berat Badan
Menghitung Kunyahan Bantu Turunkan Berat Badan. (Ilustrasi).
A+ A-
LOS ANGELES – Sebuah penelitian yang dilakukan di Brigham Young University mengungkapkan, bahwa menghitung kunyahan saat makan efektif menurunkan berat badan dibandingkan menghitung kalori.

Dilansir dari Sciencedaily, Josh West dan Ben Crookston yang tergabung dalam penelitian tersebut mengungkapkan, bahwa orang-orang yang kelebihan berat badan perlu lebih fokus pada aspek kuantitatif dibandingkan aspek kualitatif.

Dalam penelitian tersebut, sebanyak 61 responden menghitung berapa kali mereka mengunyah dan berapa kali meneguk cairan selain air putih. 41 responden sukses menyelesaikan penelitian tersebut dan dengan hasil yang memuaskan.

“Menghitung kunyahan setiap hari terbukti mengurangi kunyahan sebanyak 20-30 persen dalam kurun waktu 4 pekan. Makin sedikit jumlah kunyahan diasumsikan porsi makannya juga semakin sedikit,” papar para peneliti.

source: http://lifestyle.sindonews.com/read/1061169/155/menghitung-kunyahan-bantu-turunkan-berat-badan-1447370497

 

Create a free website or blog at WordPress.com.

Up ↑