Search

sitimukodimahstmikpringsewublog

bahasa pemrograman vb database (3)

DIMAHD

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

 

Advertisements

bahasa pemrograman 13 database

program 1

DIMAH1

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

DIMAH2

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

DIMAH3

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

DIMAHA

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

DIMAHB

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

DIMAHC

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

DIMAHD

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

DIMAHE

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

DIMAHF

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

DIMAHG

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

DIMAHH

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

DIMAHI

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

DIMAHJ

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 :

DIMAHT

Private Sub Command1_Click()

End

End Sub

 

Private Sub Command2_Click()

Form1.Show

End Sub

bahasa pemrograman tugas 5

program 1

DIMAH1

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

DIMAH2

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

DIMAH3

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

DIMAHA

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

DIMAHB

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

DIMAHC

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

DIMAHD

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

DIMAHE

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

DIMAHF

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

DIMAHG

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

DIMAHH

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

DIMAHI

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

tugas 4 Bahasa Pemrograman

Program 1

DIMAH1

DIM1

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

DIM0

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

DIMAH3

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

DIMAH4

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 RUMAH 3 (BAHASA PEMROGRAMAN I)

TUGAS 1

DIMAH1

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

DIMAH2

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

DIMAH3

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

DIMAH4

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

DIMAH5

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

DIMAH6

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

 DIMAH

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

DIMAH 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

 dimAH3

 

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

DIMAH4

 

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

Ketum PAN: Parpol Lain Bukan Pesaing Tapi Teman Seperjuangan

By Taufiqurrohman

Ketua Umum PAN Zulkifli Hasan. (Liputan6.com/Herman Zakharia)

Liputan6.com, Jakarta – Ketua Umum Partai Amanat Nasional (PAN) Zulkifli Hasan melakukan kunjungan ke Kalimantan Timur dalam rangka Musyawarah Wilayah (Muswil) Dewan perwakilan Daerah (DPW) PAN Kalimantan Timur di Samarinda.

Dalam sambutannya, Zulkifli mengatakan, partai-partai politik di luar PAN bukan pesaing, tetapi teman-teman seperjuangan untuk membangun daerah tercinta Kalimantan Timur.‎ “Semuanya melebur untuk pembangunan Kalimantan Timur,” kata Zulkifli melalui pesan tertulisnya, Rabu (11/11/2015).

Ia berujar, PAN dalam perjalanannya mengembangkan politik-politik kebangsaan. Karena menurutnya, tujuan partai politik dibentuk adalah untuk mensejahterakan masyarakat.

Oleh karena itu, dia meminta dalam Pilkada serentak yang akan digelar 9 Desember mendatang, seluruh kader PAN khususnya di Kalimantan Timur untuk mengawal jalannya gelaran demokrasi daerah tersebut.

“Dalam 269 pilkada yang akan dilakukan serentak pada Desember nanti, PAN ikut 240 di dalamnya, ada yang mengusung sendiri ada juga yang berkoaliasi dengan partai lain. Kader PAN melakukan ronda, kita tidak ingin berlaku curang, tetapi juga tidak ingin dicurangi,” ujar Zulkifli.

Tak luput, dia berpesan, jika calon kepala daerah yang diusung PAN nantinya terpilih‎ maka tujuan utamanya harus bekerja untuk rakyat. Selain itu, baik calon kepala daerah yang terpilih maupun pendukungnya jangan meminta ‘jatah’ ke depannya.

“Harus bekerja melayani rakyat dengan amanah dan mengemban aspirasi masyarakat bukan main proyek atau memperkaya diri, kader PAN lainnya juga dilarang untuk meminta jatah proyek, kepala dinas dan lain-lain. Bekerjalah diminta atau tidak diminta, ada nasi kotak atau tidak ada nasi kotak, bekerjalah dengan ikhlas,” tandas Zulkifli Hasan.

Dalam kesempatan tersebut, Zulkifli Hasan didampingi  Wakil Ketua Umum PAN Asman Abnur, Bendahara Umum PAN Nasrullah, Ketua Mahkamah PAN Yasin Kara, Ketua DPP PAN Ali Taher Parasong, dan para Wasekjen Saleh La Ela, Wulandari, Nur Indah. (Fiq/Ado)

Dari:

http://news.liputan6.com/read/2363491/ketum-pan-parpol-lain-bukan-pesaing-tapi-teman-seperjuangan

Menko Luhut: Masa Iya Melobi Pakai Cendol

By Taufiqurrohman

Luhut Binsar Pandjaitan. (Liputan6.com/Helmi Afandi)

Liputan6.com, Jakarta – Menteri Koordinator Bidang Politik, Hukum dan Keamanan (Menko Polhukam) Luhut Binsar Pandjaitan heran dengan isu yang menyebutkan pertemuan Presiden Joko Widodo dengan Presiden Amerika Serikat (AS) Barack Obama karena bantuan lobi broker.

Luhut menegaskan, isu tersebut sangat tidak benar dan menyesatkan, karena sangat tidak mungkin jika pertemuan tersebut dilakukan melalui lobi-lobi Duta Besar (Dubes) Indonesia untuk Amerika Serikat melalui pihak ketiga.

“Gaji Dubes itu tidak cukup untuk beli wine, masa iya lobi-lobi pakai cendol. Kan kalau melakukan lobi itu beli wine juga,” kata Luhut di Kantor Kemenko Polhukam, Jakarta, Rabu (11/11/2015).

Menurut Luhut, pertemuan antara Jokowi dan Obama beberapa waktu lalu di Amerika Serikat digelar karena ada undangan resmi kenegaraan. Oleh karena itu, dia justru balik bertanya kenapa pertemuan kedua kepala negara tersebut dihebohkan.

Bahkan, Luhut menambahkan, jika memang ada yang memanfaatkan pertemuan keduanya dengan membayar broker atau jasa lobi, maka itu di luar agenda undangan resmi.

“Kalau dimanfaatkan pedagang atau pengusaha yang di sini ikut ke sana, ya itu duit mereka. Tidak ada pemerintah kita bayar dan sampai harus mengeluarkan uang,” tandas Luhut. (Dms/Ans)

dari:     http://news.liputan6.com/read/2363458/menko-luhut-masa-iya-melobi-pakai-cendol

Menko Luhut: Saya Setiap Baca Sosmed Sakit Gigi

By Taufiqurrohman

Luhut Binsar Pandjaitan. (Liputan6.com/Faizal Fanani)

Liputan6.com, Jakarta – Menteri Koordinator Bidang Politik, Hukum dan Keamanan (Menko Polhukam) Luhut Binsar Pandjaitan mendukung Surat Edaran (SE) Kapolri Jenderal Polisi Badrodin Haiti soal ujaran kebencian atau hate speech.

Dia mengaku selalu sakit gigi setiap membaca sosial media atau sosmed yang sudah kebablasan dalam mengutarakan ketidaksenangan atau mengungkapkan kebencian terhadap sesama anak bangsa.

‎”Saya setiap baca sosmed ini selalu sakit gigi, kalau didiamkan membuat bangsa ini menjadi pendendam,” ucap Luhut di Kantor Menko Polhukam, Jakarta, Rabu (11/11/2015).

Luhut menekankan, Surat Edaran Kapolri tersebut bukan bermaksud mengekang kebebasan berekspresi ‎atau ingin mengembalikan pemerintahan yang otoriter seperti zaman Orde Baru atau Orba.

“Enggak akan mengekang, sesuai ikuti aturan main. Saya bilang ke Kapolri, ‘You go a head.’ Saya tanggung jawab. Saya hanya ingin aturan yang ada disepakati. Tulisan penghinaan itu keterlaluan,” tukas Luhut.

Luhut menambahkan, pemerintah di bawah kepemimpinan Joko Widodo-Jusuf Kalla atau Jokowi-JK ingin menjadikan bangsa Indonesia lebih bermartabat dengan mengekspresikan kebebasan pendapatnya melalui cara yang lebih santun.

“Saya dengan Kapolri dan Panglima TNI dan Kepala BIN sangat koordinasi ketat. Mengenai SE, negeri ini kita harus disiplin kan ada rule yang harus disepakati, kalau enggak jadi negara liar,” tandas Luhut. (Ans/Ron)

Dari:

http://news.liputan6.com/read/2363456/menko-luhut-saya-setiap-baca-sosmed-sakit-gigi

Pesan Menlu Retno untuk Reporter Cilik: Jabatan Hanya Sementara

By Silvanus Alvin

Menteri Luar Negri Retno L.P Marsudi saat wawancara khusus dengan tem Liputan6.com di Gedung kementerian Luar Negri, Jakarta, Senin(12/10/2015). (Liputan6.com/Angga Yuniar)

Liputan6.com, Jakarta – ‎Akun Twitter resmi Kementerian Luar Negeri @Portal_Kemlu_RI berkicau tentang pernyataan Menteri Luar Negeri Retno Marsudi yang mengindikasikan akan lepas jabatan. Pernyataan itu di-posting pukul 15.48 WIB, Rabu (11/11/2015).

#MenluRetno: Saat saya tidak lagi menjabat, saya akn kembali menjdi seorang Retno. Tapi saya yakin saya jauh lebih besar dr hanya jabatan saya,” kicau @Portal_Kemlu_RI yang dikutip Liputan6.com.

Ketika dikonfirmasi, Retno membenarkan ucapan itu adalah pernyataan pribadi. Dia juga menegaskan tidak ada jabatan yang sifatnya abadi.

“‎Jabatan itu sifatnya sementara, bisa 1 tahun, 2 tahun, bisa 5 tahun, bisa 10 tahun. After all, yang menentukan nilai kita adalah nilai seorang manusia. Karena manusia itu sendiri harus lebih besar daripada jabatannya itu,” tutur Retno.

Tidak mau pernyataan itu salah tafsir, apalagi dikaitakan dengan‎ isu perombakan atau reshuffle kabinet jilid II, Retno pun memberikan penjelasan. Awal mula dirinya membuat pernyataan itu karena dipancing wartawan cilik yang mewawancarai dirinya.

Gini lho, tadi tuh ada wartawan cilik yang interview saya. Terus, dia tanya bagaimana perasaan jadi menteri, bagaimana jadi manusia yang baik, dan sebagainya. Saya jelaskan cara hidup saya, jabatan, dan saya berpesan pada mereka,” jelas dia.

“Dalam rangka mengajarkan anak-anak, jadilah manusia yang baik. Ketika jadi manusia baik dan cerdas maka kita bisa beri kontribusi yang baik,” tambah Retno.

Terhadap wacana reshuffle kabinet jilid II sendiri, Retno tidak ambil pusing. Ia mengatakan larut dalam pekerjaannya sehingga tidak memikirkan hal tersebut.

“Waduh, saya malah enggak sempat mikir ke situ,” tandas Retno. (Mut)

Dari:

http://news.liputan6.com/read/2363320/pesan-menlu-retno-untuk-reporter-cilik-jabatan-hanya-sementara

DPD Golkar Versi Munas Ancol Masih Ngotot Ingin Munas

By Taufiqurrohman

Sekertaris Forum DPD Partai Golkar Taufik Hidayat hadir saat konferensi pers di Jakarta, Minggu (8/11). Forum Silaturahmi DPD Golkar mendesak pelaksanaan Rapimnas Partai Golkar untuk penentuan pelaksanaan Munas Partai Golkar. (Liputan6.com/Faizal Fanani)

Liputan6.com, Jakarta – Sejumlah pengurus DPD Golkar tingkat provinsi melakukan pertemuan dengan Ketua Dewan Pertimbangan Golkar versi Munas Ancol, Siswono Yudo Husodo‎. Pertemuan digelar secara tertutup di Lantai 5 Gedung Bangun Tjipta, Slipi Jakarta Barat.

Pengurus DPD kubu Agung Laksono itu meminta pertimbangan Siswono terkait desakan Musyawarah Nasional (Munas) pascaputusan Mahkamah Agung (MA) yang mengabulkan gugatan kubu Aburizal Bakrie terkait kepengurusan Partai Golkar.

“Kami mendesak munas dengan mendiskusikan bersama Ketua Dewan Pertimbangan. Ini kesempatan pertama dengan tokoh Partai Golkar. Kita membawa gagasan yang sama serta mendorong munas sesegera mungkin,” kata Ketua DPD Golkar Jawa Timur versi Munas Ancol Taufik Hidayat usai pertemuan, Rabu (11/11/2015).

Ketua DPD Golkar Kalimantan ‎Utara Amir menambahkan, tidak ada pilihan untuk mengakhiri dualisme kepengurusan selain menggelar munas untuk memilih ketua umum yang baru.

“Sejauh ini koordinasi internal di bawah kepemimpinan Agung Laksono, tentu saja salah satu memerlukan munas kesepahaman dengan kubu Ical,” ujar Amir.

Menurut Siswono yang bertindak sebagai tuan rumah, Forum DPD se-Indonesia itu menyampaikan harapan agar Golkar bersatu. “Saya merasakan keprihatinan dengan kondisi yang seperti ini. Golkar adalah partai besar yang pernah mendapatkan kesempatan memimpin 30 tahun, pertumbuhan ekonomi 7 persen setiap tahun selama 30 tahun,” ungkap Siswono.

Siswono juga menyebutkan tokoh-tokoh Golkar harus menjaga Golkar. Cara untuk menyatukan dua kepengurusan melalui Munas. “Tidak ada jalan lain munas, tanpa munas, kepengurusan akan terus ada dua,” tandas Siswono.

Mantan Menteri Perumahan itu menyebutkan ada pihak yang mengartikan putusan MA dengan caranya sendiri, sehingga tak diperlukan munas. Padahal, kata dia, tanpa munas, maka kepengurusan terus dilanda dualisme. (Dms/Ans)

Dari:

http://news.liputan6.com/read/2363169/dpd-golkar-versi-munas-ancol-masih-ngotot-ingin-munas

Dukungan terhadap Ahok Jelang Pilkada Kian Solid

By Andreas Gerry Tuwo

Gubernur DKI Jakarta, Basuki Tjahaja Purnama. (Facebook Ahok)

Liputan6.com, Jakarta – Jelang Pemilihan Umum Kepala Daerah (Pilkada) DKI Jakarta 2017, Basuki Tjahaja Purnama bisa bernapas lega. Sebab, elektabilitas pria yang kerap disapa Ahok ini ternyata masih cukup tinggi.

Hal itu terbukti usai Cyrus Network merilis hasil surveinya mengenai Pilkada DKI Jakarta. Survei tersebut memperlihatkan dukungan terhadap Ahok semakin kuat.

“Dukungan terhadap petahana Basuki Tjahaja Purnama semakin solid, hari ini pendukung Ahok sudah masuk dalam kategori strong voters jumlahnya sekitar 40 persen pemilih DKI,” ucap Managing Director Cyrus Network Eko David di Jakarta, Rabu (11/11/2015).

“Mereka masuk dalam kategori yang konsisten mulai dari pilihan dalam pertanyaan terbuka (top of mind), pilihan ketika simulasi, sampai kesediaan untuk mengumpulkan KTP jika Ahok maju dalam pilkada melalui jalur independen,” tambah dia.

Eko menjabarkan, selain Ahok, dua nama yang mendapat elektabilitas cukup tinggi adalah Wali Kota Bandung Ridwan Kamil dan Walikota Surabaya, Tri Rismaharini.

Walau begitu, Elektabilitas Ridwan dan Risma tidak bisa melampui Ahok. Menurut David, elektabilitas Ahok sudah mendekati 50 persen.

“Selisih simulasi head to head antara Ahok dan Ridwan Kamil selisihnya hanya lima persen, namun hari ini melebar menjadi 12 persen,” jelas dia.

“Sementara dengan Risma, jika dalam dalam survei April lalu selisih head to head dengan Ahok hanya tujuh persen, survei terbaru Cyrus menunjukkan saat ini selisihnya sudah 16 persen,” tukas Eko.

Meski berada dalam posisi puncak untuk masalah elektabilitas, Ahok diminta untuk tetap waspada. Sebab, gerakan anti-Ahok, juga mengalami peningkatan sampai angka 40 persen.

“Lawan-lawan Ahok bisa melihat peta potensi suara itu, mau meluaskan jaringan anti-Ahok atau ambil sisa 20 persennya. Walaupun memang agak sulit melawan loyalis Ahok yang sudah sampai 40 persen,” pungkas Eko David. (Ger/Ans)

Dari:

http://news.liputan6.com/read/2363090/dukungan-terhadap-ahok-jelang-pilkada-kian-solid

Cyrus Network: Ridwan Kamil Disukai Jadi Gubernur DKI

By Andreas Gerry Tuwo

Walikota Bandung Ridwan Kamil. (Liputan6.com/Yoppy Renato)

Liputan6.com, Jakarta – Pemilihan Kepada Daerah (Pilkada) DKI Jakarta dilaksanakan pada 2017. Jelang pesta demokrasi ini, sejumlah nama digadang-gadang mampu menduduki Kursi DKI-1.

Hasil survei Cyrus Network mengenai pilkada DKI Jakarta, Wali Kota Bandung Ridwan Kamil ternyata menjadi paling paling disukai untuk menjadi pimpinan Ibu Kota. Popularitasnya melebihi Gubernur DKI Jakarta saat ini, Basuki Thajaja Purnama atau Ahok.

“Untuk yang paling disukai Ridwan Kamil 72 persen, Tri Rismaharini 71 persen, baru Gubernur Basuki Tjahaja Purnama 67,2 persen,” ucap Managing Director Cyrus Network Eko David di Jakarta, Rabu (11/11/2015).

Menurut dia, popularitas Ridwan dan Risma juga meningkat. Jika sebelumnya, popularitas mereka di Jakarta hanya 73 persen dan 74 persen maka dalam survei terakhir 2 nama ini memperoleh popularitas 81 persen dan 80 persen.

“Jadi Ridwan Kamil dan Tri Rismaharini mengalami peningkatan signifikan dalam hal disukai dan popularitas,” tambah Eko.

Meski demikian, 2 faktor itu tidak menolong Risma dan Ridwan dalam faktor elektabilitas. Untuk hal ini, Ahok masih jadi juaranya.

“Dukungan terhadap petahana, Basuki Tjahaja Purnama semakin solid, hari ini pendukung Ahok sudah masuk dalam kategori strong voters jumlahnya sekitar 40 persen pemilih DKI,” tutur dia.

“Mereka masuk dalam kategori yang konsisten mulai dari pilihan dalam pertanyaan terbuka (top of mind), pilihan ketika simulasi, sampai kesediaan untuk mengumpulkan KTP jika Ahok maju dalam Pilkada melalui jalur independen,” pungkas Eko. (Mvi/Bob)

Dari:

http://news.liputan6.com/read/2362973/cyrus-network-ridwan-kamil-disukai-jadi-gubernur-dki

Hasto: Reshuffle di Tangan Presiden, PDIP Tidak Meminta

Hasto Kristiyanto (Liputan6.com/Faizal Fanani)

Liputan6.com, Jakarta – Sekretaris Jenderal (Sekjen) PDI Perjuangan Hasto Kristiyanto mengatakan, partainya tidak turut campur dalam wacana reshuffle atau perombakan Kabinet Kerja Joko Widodo-Jusuf Kalla (Jokowi-JK) yang kian bergulir. Sebab reshuffle merupakan hak prerogatif presiden.

Kendati, Hasto menyatakan, partainya siap memberikan masukan kepada Jokowi, jika presiden meminta pertimbangan mengenai reshuffle.

“Kita tunggu presiden. PDI P tidak dalam posisi meminta reshuffle, terkecuali presiden meminta pertimbangan ke PDI P. Ini hak prerogatif presiden. Kami tak inisiasi. Semua kendali di tangan presiden,” ujar Hasto di Hotel Sahid Jakarta, Selasa (10/11/2015).
Terkait reshuffle, Hasto hanya berharap, apa yang dilakukan presiden ini sebagai bentuk memperkuat pemerintahan, khususnya dalam bidang ekonomi. Juga diharapkan seluruh jajaran kementerian bekerja keras membantu program Jokowi-JK.

“Jangan ada menteri mengedepankan desain kebijakan pribadi, tanpa melihat Trisakti yang dipegang presiden,” kata dia.

Maka itu, Hasto berharap, ke depan perekonomian tak dibangun berbasis utang luar negeri, melainkan didorong untuk berdikari.

Menurut Hasto, tantangan yang dihadapi Pemerintahan Jokowi-JK saat ini terletak di para pejabat eselon di kementerian, yang dinilai masih bekerja dengan gaya birokrasi pemerintahan lama.

“Maka seorang menteri harus ada leadership kuat, untuk menggerakkan birokrasinya sesuai dengan kebijakan ekonomi dan politik presiden. Ini menyangkut persoalan kepemimpinan juga,” pungka Hasto. (Rmn/Dan)

Dari:

http://news.liputan6.com/read/2362554/hasto-reshuffle-di-tangan-presiden-pdip-tidak-meminta

JK: Dulu Pahlawan Bawa Senjata, Saat Ini soal Pengabdian

By Sugeng Triono

Wakil Presiden Jusuf Kalla di Taman Makam Pahlawan Kalibata (Liputan6.com/ Putu Merta Surya Putra)

Liputan6.com, Jakarta – Wakil Presiden Jusuf Kalla atau JK menyatakan, kata pahlawan memiliki arti berbeda-beda di setiap masanya. Saat zaman penjajahan, kalimat ini digunakan bagi para pejuang yang mengorbankan jiwa dan raganya dalam berperang mengusir penjajah.

“Hari ini adalah Hari Pahlawan. Bagaimana kita ingat kepahlawanan. Di tahun 1945 perjuangan dengan fisik dan senjata. Kalau sekarang bawa senjata masyarakat di kampung bisa dianggap teroris, kalau dulu bawa senjata dianggap pejuang,” ujar Jusuf Kalla saat memberikan sambutan pada acara Pengukuhan Pengurus DPP PA GMNI di Hotel Sahid, Jakarta, Selasa (10/11/2015).

Namun pada era modern saat ini kata Jusuf Kalla, gelar pahlawan hanya layak diberikan pada seorang yang telah memberikan pengabdian. Bukan mereka yang sembarangan membawa senjata.

“Pahlawan itu bagaimana pengorbanannya. Apakah di bidang pendidikan, di bidang pengetahuan atau di bidang sosial,” kata JK.

Pada kesempatan itu, JK juga berpesan kepada seluruh kader GMNI yang hadir untuk turut mengamalkan ilmu yang didapatnya saat kuliah dahulu dalam kehidupan bermasyarakat.

“Oleh karena itu alumni GMNI sebagai bagian dari masyarakat yang berintelektual, membawa ilmu itu untuk memajukan bangsa,” tutup JK.

Dalam acara tersebut, selain JK hadir pula Menteri Hukum dan HAM Yasonna H Laoly dan Ketua Mahkamah Konstitusi Arif Hidayat, serta Dewan Pertimbangan Presiden Sidarto Danusubroto. (Ron/Ans)

Dari:

http://news.liputan6.com/read/2362483/jk-dulu-pahlawan-bawa-senjata-saat-ini-soal-pengabdian

Peringati Hari Pahlawan, TMP Gelar Pelatihan Rakit Komputer

By Putu Merta Surya Putra

TMP beranggapan bahwa mengabdi dengan aksi, advokasi dan pelayanan nyata adalah bagian dari semangat kepahlawanan.

Liputan6.com, Jakarta – Taruna Merah Putih (TMP) sebagai organisasi sayap Partai Demokrasi Indonesia Perjuangan (PDIP) memperingati hari pahwalan dengan menggelar pelatihan perakitan komputer dan pemasangan CCTV bagi anak-anak muda.

“Dengan pelatihan ini diharapkan anak-anak muda memiliki kemampuan. Bisa bekerja di perusahaan atau bisa menjadi wirasuahawan. Kita tak mau berwacana, kita mengabdi dengan aksi, advokasi dan pelayanan dan ini bagian dari semangat kepahlawanan,” ujar Ketua Panitia Pelatihan, Nico Siahaan di Kantor TMP, Jalan Cik Ditiro, Menteng, Jakarta Pusat (Selasa, 10/11).

Menurut dia, ‎ini adalah upaya TMP dalam membantu pemerintah untuk mengurangi pengangguran dan hal tersebut merupakan pilot project untuk pelatihan serupa akan dilakukan di beberapa kota.

“Yang jelas kita mau berbuat dan bekerja yang berdampak pada rakyat. Semoga ini bermanfaat bagi masyarakat,” ungkap Nico.

Sementara itu, trainer pelatihan ini, Rudi Malau, mengatakan bahwa Ketua Umum TMP Maruarar Sirait menghendaki agar TMP menggelar latihan yang bermanfaat bagi rakyat. Di saat yang sama, TMP juga mau ikut mendidik masyarakat agar memiliki kemampuan untuk menjadi bekal hidup mereka.

“Materi pelatihan terdiri perakitan, instal dan service komputer. Juga pemasangan, servis, perbaikan, perawatan serta instalasi CCTV,” ungkap Rudi.

Rudi juga menjelaskan, pelatihan ini akan digelar selama sebulan di kantor TMP. Untuk tutorial dan pendampingan trainer akan dilakukan setiap hari Selasa dan Rabu. Saat ini, ada 16 peserta yang ikut. ‎Mereka merupakan hasil seleksi dari 50 yang daftar.

Dari:

http://news.liputan6.com/read/2362470/peringati-hari-pahlawan-tmp-gelar-pelatihan-rakit-komputer

Ahok: Nelayan Tak Dapat Ikan Bukan karena Reklamasi, tapi…

By Ahmad Romadoni

Gubernur DKI Jakarta, Basuki Tjahaja Purnama. (Liputan6.com/Ahmad Romadoni)

Liputan6.com, Jakarta – Gelombang protes atas reklamasi 17 pulau di Teluk Jakarta terus mengalir. Tak hanya soal pencemaran lingkungan, para nelayan juga protes karena mereka semakin sulit mendapatkan ikan.

Protes dari nelayan ini telah sampai ke telinga Gubernur DKI Jakarta Basuki Tjahaja Purnama. Pria yang karib disapa Ahok itu tak mau disebut sebagai biang keladi sulitnya nelayan mendapatkan ikan.

Menurut dia, kondisi ini bukan disebabkan oleh proyek reklamasi yang tengah digarapnya. Menurut dia ada banyak faktor lain yang menyebabkan ikan begitu sulit ditangkap.

“Kalau enggak dapat ikan, seluruh Indonesia sudah enggak dapat ikan lagi, banyak pencurian laut,” ujar Ahok di Balai Kota, Jakarta, Kamis (12/11/2015).

Mantan Bupati Belitung Timur itu menuturkan, perkembangan zaman membuat ikan sulit dicari di laut. Pergeseran pembangunan juga membuat hewan-hewan enggan berada di tepi laut.

“Mau teori yang mana. Sekarang nelayan kalau mau mancing dekat tepi-tepi Kali Ciliwung. Dulu zaman kakek saya di Ciliwung banyak ikan lho, sekarang ikannya juga kurang,” tutur Ahok.

Menurut dia, pencemaran sungai yang berimbas pada kualitas tepi pantai.

“Sekarang di tepi laut masih banyak ikan nggak? Itu karena reklamasi atau karena pencemaran dari 13 sungai? Saya mau tanya dulu, 13 sungai,” pungkas Ahok. (Ndy/Mut)*

Dari:

http://news.liputan6.com/read/2363699/ahok-nelayan-tak-dapat-ikan-bukan-karena-reklamasi-tapi

1O BERITA GAYA HIDUP

Mencari Topi yang Sesuai dengan Gaya Rambut

Tampil prima dengan Topi

Liputan6.com, Jakarta Jika Anda mengalami bad hair day, aksesori topi bisa menjadi penyelamat penampilan Anda. Namun, pilihlah topi yang benar-benar sesuai dengan potongan rambut Anda, karena topi akan terlihat indah jika dipadukan dengan potongan atau gaya rambut yang benar. Pemilihan topi yang dipadukan denga gaya potongan rambut juga menghasilkan penampilan yang keren. Dilansir dari situs Marie Claire pada Rabu (11/11/2015), berikut merupakan pasangan topi dan rambut terbaik menurut empat stylist terbaik versi Marie Claire.

Floppy Hat + Rambut Panjang Berlayer
Floppy hat sangat cocok digunakan untuk Anda yang memiliki rambut panjang atau medium dengan gelombang alami. Sangat ideal untuk gaya berbusana ala 70an atau boho. Anda yang berambut pendek tidak disarankan memakai topi ini. Menurut Amy Bradbury, stylist Kennaland, dengan bentuknya yang lebar, topi ini akan membuat rambut menjadi tidak terlihat. Namun menurut Nate Rosenkranz, stylist Honey Artists, selain digerai biasa, Anda juga dapat mencoba gaya rambut lain jika ingin memakai topi ini. “Rambut panjang yang diikat ekor kuda akan terlihat menawan jika dipasangkan dengan topi ini, karena bentuknya yang begitu dramatis “, jelas Rosenkranz.

<img alt=”Floppy Hat” src=”http://cdn0-a.production.liputan6.static6.com/medias/1051350/big/091443100_1447232583-mcx-hathair-beyonce_1.jpg&#8221; class=”big” />

Bowler Hat+ Rambut Bob Lurus
Mereka yang memiliki potongan rambut lurus dengan gaya bob dianjurkan untuk menggunakan topi bowler. Karena menurut Rosenkranz, rambut pendek model bob dengan topi bowler terlihat begitu serasi dan seimbang sehingga mampu menciptakan siluet yang sangat keren.

<img alt=”bowler hat” src=”http://cdn0-a.production.liputan6.static6.com/medias/1051299/big/080936400_1447231574-mcx-hathair-jessica_1.jpg&#8221; class=”big” />

Beanie Hat+ Rambut Panjang dan Lurus
Bradbury lebih menyukai pasangan beanie dengan rambut panjang, karena menurutnya mereka yang memiliki rambut pendek akan merasa kalau topi model beanie akan terlihat terlalu dominan karena tidak adanya rambut yang terlihat untuk menyeimbangkan tampilan mereka. Beberapa stylist setuju dengan saran ini, mereka yang memiliki rambut dengan potongan medium hingga panjanglah yang dapat memakai topi model ini.

<img alt=”beane hat” src=”http://cdn0-a.production.liputan6.static6.com/medias/1051312/big/009426000_1447231842-mcx-hathair-jlo_1.jpg&#8221; class=”big” />

Cloche Hat + Rambut Pendek hingga Medium
Antonio Prieto, hair stylist di Salon Antonio Prieto, mengatakan bahwa topi cloche akan terlihat sangat sempurna jika dipadukan dengan gaya rambut pendek. Namun jika Anda memiliki rambut panjang dan ingin menggunakan topi ini, Prieto menyarankan untuk menyematkan jepit rambut untuk membentuk rambut bob. Menurut Rosenkranz, gaya rambut bob pendek yang dipadukan dengan topi cloche akan membentuk tampian retro klasik tahun 1910 atau 1920-an yang cantik.

<img alt=”Cloche Hat ” src=”http://cdn0-a.production.liputan6.static6.com/medias/1051315/big/000544700_1447231971-mcx-hathair-kerry_1.jpg&#8221; class=”big” />

Newsboy Hat + Rambut Bob atau Low Ponytail
Menurut Rosenkranz, potongan rambut bob dengan poni sangat cocok jika dipasangkan dengan topi Newsboy untuk menegaskan bentuk potongannya. Namun bagi Anda yang memiliki rambut panjang dan ingin memakai topi ini, ikatlah rambut Anda dengan gaya low ponytail.

<img alt=”Newsboy Hat ” src=”http://cdn1-a.production.liputan6.static6.com/medias/1051325/big/081786600_1447232248-mcx-hathair-lily_1.jpg&#8221; class=”big” />

Beret Hat+ Rambut Berpotongan Pixie
Gareth Bromell, stylist Marie Claire, menyebutkan bahwa potongan rambut pixie yang dipadukan dengan topi beret akan membuat tampilan terlihat sangat modis.

<img alt=”Beret Hat” src=”http://cdn1-a.production.liputan6.static6.com/medias/1051334/big/037588200_1447232323-mcx-hathair-michelle_1.jpg&#8221; class=”big” />

Fedora Hat + Rambut Bertatanan Acak
Menurut Prieto dan Bradbury rambut yang terlihat agak kusut sangat cocok jika dipasangkan dengan topi fedora. Prieto menyarankan ikatan rambut ëasalí yang digelung rendah dan disematkan di satu sisi, sedangkan Bradbury lebih menyukai ikatan rambut ekor kuda yang rendah dan bergelombang.

<img alt=”Fedora Hat” src=”http://cdn0-a.production.liputan6.static6.com/medias/1051344/big/010536900_1447232423-mcx-hathair-zoe_1.jpg&#8221; class=”big” />

(Chiptania Manggalawati/Atw)

Dari:

http://lifestyle.liputan6.com/read/2363125/mencari-topi-yang-sesuai-dengan-gaya-rambut

Hindari 8 Kesalahan Fatal Saat Mencabut Alis

By Annastasia Errine Bunandar

Liputan6.com, Jakarta Pencabutan bulu alis yang biasa Anda lakukan di rumah tidak bisa dilakukan secara sembarangan. Karena sekali bulu alis Anda tercabut, butuh waktu lagi bagi Anda untuk dapat kembali memperbaiki bentuk alis tersebut. Berikut kesalahan yang perlu Anda hindari saat mencabut alis, dilansir dari Lipstick pada hari Selasa (10/11/2015),  (Ern/Atw)

Dari:

http://lifestyle.liputan6.com/read/2362062/hindari-8-kesalahan-fatal-saat-mencabut-alis

3 Hal yang Penting tentang Kartu Kredit

Hal penting tentang kartu kredit

Liputan6.com, Jakarta Kartu kredit merupakan inovasi yang sangat sukses karena bisa membuat banyak orang lebih mudah dalam melakukan transaksi jual beli. Bahkan di Amerika Serikat, sebagian besar orang sudah memiliki kartu kredit.

Apalagi di Negeri Paman Sam tersebut, Anda tidak akan bisa mendapat pekerjaan, menyewa rumah atau apartemen. Bahkan Anda tidak akan bisa mendapat pinjaman apabila tidak memiliki kartu kredit. Akan tetapi mungkin Anda belum tahu mengenai beberapa fakta tentang kartu kredit berikut ini.

  1. Memakai Kartu Kredit Kedaluwarsa

Hampir semua pemilik kartu kredit beranggapan bahwa kartu mereka tidak akan bisa dipakai lagi apabila sudah melewati tanggal masa berlaku. Namun faktanya, secara teknis Anda masih bisa menggunakan kartu tersebut meskipun sudah lewat dari tanggal masa berlakunya. Dengan catatan, Anda belum mengklaim bahwa kartu kredit Anda sudah melewati tanggal kedaluwarsa. Tapi mungkin ini tidak berlaku pada semua jenis kartu kredit.

  1. Tentang Digit Pertama

Fakta ini mungkin hanya diketahui oleh kalangan-kalangan tertentu saja. Pasalnya tidak semua orang menyadari bahwa ada perbedaan pada digit pertama kartu kredit mereka. Perlu Anda ketahui bahwa sebenarnya digit pertama merupakan pembeda jenis kartu kredit. Angka 1 dan 2 adalah kode untuk penerbangan; 3 untuk hiburan dan wisata; 4, 5, 6 untuk perbankan; sedangkan 7, 8, 9 untuk kegunaan lain. Berapa digit pertama kartu kredit Anda?

  1. Suku Bunga Naik

Jika punya kartu kredit, maka Anda harus siap membayar tagihan kartu kredit tepat waktu. Pihak bank yang menerbitkan kartu kredit memiliki hak untuk menaikkan suku bunga apabila Anda tidak melakukan pembayaran lainnya, seperti rumah, mobil dan sebagainya. Mungkin ketetapan ini bisa merugikan pemilik kartu kredit. Tapi di sisi lain, pihak bank melakukan aturan tersebut agar tidak mengalami kerugian.

Dari

http://lifestyle.liputan6.com/read/2362745/3-hal-yang-penting-tentang-kartu-kredit

Tips Biar Gaul Makin Eksis

Beberapa contoh sesuatu yang harus dimiliki agar dibilang anak ‘ gaul.

Liputan6.com, Jakarta “Hari gini masih pakai hape yang itu-itu aja?” atau “Gak gaul banget sih masa belum pernah liburan ke luar negeri?” Ya, kata-kata tersebut pasti tak asing di telinga sebagai bentuk sindiran di tengah pergaulan. Dalam diri Anda mungkin ingin sekali membungkam sindiran-sindiran tersebut, tetapi apa daya, tiap bulan hampir tak ada budget tersisa untuk beli barang untuk mengangkat gengsi.

Hmm…tapi kira-kira apa saja barang atau aktivitas yang dipandang oleh orang sekitar? Berikut beberapa contoh sesuatu yang harus dimiliki agar dibilang anak ‘gaul’.

Mobil

Membawa kendaraan roda dua hampir semua orang memakainya, namun, seseorang yang memiliki kendaraan roda empat atau mobil memiliki nilai lebih di mata teman sepergaulan (baca: Hedon). Selain Tentu saja karena harga mobil jauh lebih mahal dibanding kendaraan roda dua biasa. Mereka yang membawa mobil pun bakal lebih percaya diri, tapi perlu diingat jenis mobil bisa menjadi indikator penentu kasta, semakin mahal maka semakin tinggi ‘nilai’ Anda di mata mereka.

Dari:

http://lifestyle.liputan6.com/read/2362432/tips-biar-gaul-makin-eksis

Rahasia Penampilan Cantik dan Seksi Para Model Victoria’s Secret

By Unoviana Kartika Setia

Foto: JustJared.com

Liputan6.com, Jakarta Pagelaran fesyen pakaian dalam bergengsi, Victoria’s Secret, digelar. Sebanyak 44 model cantik dan seksi memperagakan sejumlah pakaian dalam koleksi terbaru merek asal Amerika Serikat itu.

Victoria’s Secret Angel yang dipercaya sebagai wanita-wanita terseksi dan tercantik di dunia membongkar rahasia mereka untuk tampil tanpa cela dalam ajang mode tersebut.

Seperti dikutip dari Dailymail, Rabu (11/11/2015), model Magdalena Frackowiak (31) menuturkan rahasianya untuk tetap tampil optimal adalah secara rutin memijat wajahnya dengan masker alpukat buatannya sendiri.

Sementara model Devon Windsor (21) mengatakan tidur merupakan alat kecantikannya yang paling berguna. Dalam sehari, ia harus tidur 9 jam supaya kulitnya tetap segar.

Namun, menurut model asal Brazil Barbara Fialho (27), hal terpenting bagi para model adalah tidak membanding-bandingkan diri mereka dengan model lainnya. Mereka harus mencintai dirinya sendiri.

Dari:

http://lifestyle.liputan6.com/read/2363299/rahasia-penampilan-cantik-dan-seksi-para-model-victorias-secret

Aktivitas Wisata Akhir Tahun di Belanda

By Firman Fernando Silaban

Suasana konferensi pers perihal promosi pariwisata Belanda di Jakarta pada Senin (9/11)

Liputan6.com, Jakarta Belanda mulai membenahi industri pariwisatanya lebih lagi di tahun 2015 ini. Negeri kincir angin menargetkan kunjungan wisatawan Indonesia ke negara ini mencapai 44 ribu orang sampai akhir tahun ini.

Menjelang akhir tahun, Belanda mengadakan beberapa acara sebagai atraksi wisata yang dapat Anda lihat dan nikmati saat berkunjung ke negara dengan museum terbanyak di dunia ini.

Dari:

http://lifestyle.liputan6.com/read/2362701/aktivitas-wisata-akhir-tahun-di-belanda

Walau Hamil, Kim Kardashian Tampil Seksi dengan Gaun Transparan

By Firman Fernando Silaban

Kim Kadarshian, biar hamil tetap tampil seksi (sumber. Cosmopolitan.com)

Liputan6.com, Jakarta Di tengah kehamilannya, Kim Kardashian tak henti-hentinya menjadi sorotan publik. Kalau Anda berpikir bahwa Kim akan beristirahat santai dan tenang di kediamannya karena sedang hamil, sepertinya keliru.

Pasalnya seperti dilansir dari Cosmopolitan.com pada Senin (9/11), Kim melalui Instagram pribadinya bersama supermodel Naomi Campbell terlihat sedang menghadiri pesta yang cukup liar dan meriah.

Kim datang ke acara tersebut menggunakan busana hitam panjang. Pada bagian dalam busana, Kim menggunakan semacam busana transparan dengan material renda yang memperlihatkan kondisi kehamilannya.

Dari:

http://lifestyle.liputan6.com/read/2362689/walau-hamil-kim-kardashian-tampil-seksi-dengan-gaun-transparan

Pemandu Sorak Transgender Pertama di California, Arny Fuentes

By Firman Fernando Silaban

Anry Fuentes, pemandu sorak transgender pertama di California (sumber. Cosmopolitan.com)

Liputan6.com, Jakarta Menjadi bagian dari kelompok cheerleader atau pemandu sorak sebuah universitas untuk beberapa kalangan menjadi momen sangat membanggakan. Apalagi untuk membentuk kelompok pemandu sorak yang berprestasi dibutuhkan latihan cukup berat dan menguras tenaga.

Kerja keras tersebut jadi prestasi dan kebanggaan bagi anggota pemandu sorak tersebut, tidak terkecuali Anry Fuentes.

Seperti dilansir Cosmopolitan.com pada Senin (9/11), Anry adalah pemandu sorak transgender pertama di Denair High School, Califonia. Tanpa rasa malu akan statusnya yang transgender, Anry masih mengakui bahwa dulunya ia adalah anak laki-laki bernama Henry.

Anry baru bergabung dalam kelompok pemandu sorak di sekolah tersebut pada bulan April 2015 lalu. Teman-teman satu kelompok pemandu soraknya pun tidak tutup mata saat mengetahui Anry melakukan operasi transgender untuk memilih menjadi seorang perempuan.

Melalui instagram pribadinya, Anry Fuentes menunjukkan kegembiraan dan semangatnya saat bersama teman kelompok pemandu soraknya.

Cerita perjuangan Arny ini tak lepas dari dukungan teman-temannya yang mengumpulkan uang untuk membelikan Arny kostum pemandu sorak. Awalnya pihak sekolah pun sempat meminta Arny untuk menggunakan toilet khusus, tetapi lama kelamaan, mereka memperbolehkan Arny untuk menggunakan kamar mandi perempuan.

Dari:

http://lifestyle.liputan6.com/read/2362676/pemandu-sorak-transgender-pertama-di-california-arny-fuentes

Cara Praktis Buat Paha Terlihat Lebih Kecil

By Annastasia Errine Bunandar

Foto: Instagram/Chelseaoliviaa

Liputan6.com, Jakarta Paha adalah salah satu bagian tubuh yang paling cepat terlihat pada saat bobot tubuh bertambah. Beragam cara telah ditemukan untuk membantu Anda pemilik paha yang besar, agar terlihat lebih proporsional. Salah satunya ialah dengan ilusi siluet optical dari busana yang akan dikenakan.

Dari:

http://lifestyle.liputan6.com/read/2358745/cara-praktis-buat-paha-terlihat-lebih-kecil

Apa yang Terjadi Jika Riasan tak dibersihkan Sebelum Tidur?

By Unoviana Kartika Setia

Bulu mata rontok. (Via: exoticon.co)

Liputan6.com, Jakarta Mungkin Anda tahu bahwa kulit harus bersih dari makeup sebelum tidur. Namun, dengan alasan terlalu letih habis bekerja atau berpergian seharian, Anda pun malas melewatkan ritual ini dan langsung tertidur.

Jika masih sering melakukannya, sebaiknya Anda segera menghentikannya. Karena risiko tak membersihkan sisa riasan sebelum tidur mungkin lebih besar daripada yang Anda duga. Apa sebenarnya yang terjadi pada kulit wajah yang tidak dibersihkan dari makeup sebelum tidur?

Pakar kesehatan kulit Dr Eric Schweiger mengatakan, tidur dengan sisa produk riasan yang masih menempel berdampak pada lebih terpaparnya kulit dari radikal bebas di lingkungan. Padahal radikal bebas dapat merusak lapisan kolagen yang sehat pada kulit sehingga menambah jelas garis-garis halus pada kulit.

“Ditambah lagi, makeup dapat menyumbat pori-pori saat Anda tidur. Hasilnya, kulit Anda bisa ditumbuhi jerawat,” ujarnya seperti dikutip dari Huffington Post, Jumat (6/11/2015).

Lantas Anda mungkin berpikir, apa bedanya tertidur dengan makeup dibandingkan seharian beraktivitas dengan makeup, bukankah makeup sama-sama menempel di wajah dalam waktu lama? Faktanya, tertidur dengan makeup menimbulkan dampak kerusakan yang lebih lama pada kulit.

Dari:

http://lifestyle.liputan6.com/read/2359424/apa-yang-terjadi-jika-riasan-tak-dibersihkan-sebelum-tidur

10 BERITA TEKNOLOGI

POLLING] Ikon Mana yang Lebih Cocok Untuk Tab Favorite Twitter

By Agustinus Mario Damar

Ilustrasi Social Media Twitter (iStockphoto)

Liputan6.com, Jakarta – Twitter baru saja mengubah salah satu fiturnya. Kali ini perubahan dilakukan pada ikon bintang yang biasanya menjadi tombol ‘favorite’, diganti dengan ikon hati yang berfungsi sebagai tombol ‘like’.

Twitter beralasan penggantian ini dilakukan untuk mempromosikan simbol yang lebih universal dan bisa diterima oleh semua bahasa, budaya, dan di semua zona waktu.

Namun, ternyata tidak semua pengguna Twitter setuju dengan keputusan tersebut. Tidak sedikit pengguna yang kecewa dengan penggantian itu, terlebih ikon bintang sudah identik dengan Twitter.

Dari:

http://tekno.liputan6.com/read/2357019/polling-ikon-mana-yang-lebih-cocok-untuk-tab-favorite-twitter

Smartfren Targetkan 10.000 BTS Hingga Akhir 2015

By Agustinus Mario Damar

BTS XL

Liputan6.com, Jakarta – Smartfren mengklaim target jumlah pelanggan 4G LTE yang mereka patok hingga 1 juta di akhir tahun 2015 tidak akan mempengaruhi kualitas jaringan yang mereka tawarkan. Pasalnya Smartfren sudah menyiapkan sarana pendukung yang lebih baik, termasuk pembangunan base transceiver station (BTS).

“Saat ini Smartfren telah membangun BTS untuk mendukung 15 juta pelanggan dan masih terus akan dikembangkan,” ungkap Munir P.S, Head of Network Special Project Smartfren, di acara drive test 4G LTE Smartfren di Bogor.

Munir menambahkan, Smartfren berencana untuk menambah jumlah BTS lagi hingga 10.000 sampai akhir tahun ini. Jumlah sebanyak itu disebut akan mampu menjangkau 20 juta pelanggan.

Munir juga menyatakan bahwa teknologi 4G merupakan teknologi yang lebih pintar dibanding teknologi 3G. Perangkat dengan teknologi 4G dapat menggunakan lebih banyak BTS, berbeda dengan perangkat 3G yang hanya tersambung dengan satu BTS saja.

“Nantinya perangkat dapat langsung menentukan BTS mana yang paling dimungkinkan untuk melakukan koneksi,” tambah Munir.

Smartfren juga berencana menerapkan teknologi carrier agregation (CA) agar layanan internetnya lebih cepat. Carrier agregation merupakan penggabungan dua frekuensi berbeda agar dapat berjalan bersamaan. Teknologi ini memungkinkan operator untuk memperoleh coverage sinyal yang lebih luas dan juga kecepatan internet yang tinggi.

Dalam hal ini, Smartfren menerapkan teknologi hybrid di frekuensi 850 MHz (Frequency Division Duplex/FDD) dan/atau 2.300 MHz (Time Division Duplex/TDD).

Daru:

http://tekno.liputan6.com/read/2363819/smartfren-targetkan-10000-bts-hingga-akhir-2015

Begini Kiat Bos Touchten Sebelum Kembangkan Game

By Mochamad Wahyu Hidayat

Anton Soeharyo, Founder & CEO Touchten Games (Foto: Liputan6.com)

Liputan6.com, Jakarta – Touchten Games adalah perusahaan pengembang permainan mobile yang didirikan oleh Anton Soeharyo, Roki Soeharyo, and Dede Indrapurna pada 2009 lalu.

Sejauh ini, salah satu prestasi paling mengesankan dari Touchten Games adalah pencapaian peringkat sepuluh besar di iOS App Store di 43 negara berbeda untuk permainan Infinite Sky besutannya.

Kali ini Anton Soeharyo, Founder sekaligus CEO Touchten Games, berbagi cerita suksesnya dalam membangun bisnis game mobile di Indonesia dalam salah satu sesi di hari kedua gelaran Tech in Asia Jakarta 2015, Kamis (12/11/2015).

Anton membuat permainan pertamanya, ketika ia tengah menjalani studinya di Jepang. Permainan tersebut kemudian dikembangkan bersama-sama oleh Roki, saudaranya, dan Dede, sepupunya.

“Kalau saya ditanya, apa langkah pertama yang saya lakukan ketika mau bikin game, saya riset kata kunci dulu,” ujar Anton bersemangat.

Menurut pria berkacamata ini, melakukan riset kata kunci memang berperan penting agar konten apa pun yang akan disimpan di internet lebih mudah terdeteksi.

Dari:

http://tekno.liputan6.com/read/2363813/begini-kiat-bos-touchten-sebelum-kembangkan-game

Bikin Internet Melesat, Smartfren Pakai Teknologi Hybrid

By Agustinus Mario Damar

Munir Syahda Prabowo, Head of Network Special Project Smartfren saat paparan uji jaringan Smartfren di Bogor. (Doc: Agustinus Damar/Liputan6.com)

Liputan6.com, Serpong – Berbagai strategi tengah dipersiapkan Smartfren demi mendongkrak penetrasi layanan 4G-LTE Advanced di seluruh Indonesia. Selain layanan VoLTE (Voice over LTE) yang bakal hadir tahun depan, Smartfren juga menerapkan teknologi carrier agregation (CA) agar layanan internetnya lebih cepat.

Sekadar informasi, carrier agregation merupakan penggabungan dua frekuensi berbeda agar dapat berjalan bersamaan. Teknologi ini memungkinkan operator untuk memperoleh coverage sinyal yang lebih luas dan juga kecepatan internet yang tinggi.

Dalam hal ini, Smartfren menerapkan teknologi hybrid di frekuensi 850 MHz (Frequency Division Duplex/FDD) dan/atau 2.300 MHz (Time Division Duplex/TDD).

“Secara teoritis, dua frekuensi yang kami gunakan untuk menggelar jaringan 4G yang mampu menembus kecepatan hingga 165 Mbps. Pada tahun depan, kami akan menghadirkan kecepatan maksimal hingga 240 Mbps,” ujar Christian Daigneault, Chief Technology Officer Smartfren, saat kunjungan media ke Network Operation Center Smartfren di Serpong, Rabu (11/11/2015).

Munir Syahda Prabowo, Head of Network Special Project Smartfren, menambahkan bahwa kecepatan secara teoritis dapat berbeda dengan kondisi sebenarnya disebabkan beberapa faktor seperti jarak dengan stasiun pemancar (BTS) dan lalu lintas internet yang ada di sekitarnya.

Untuk itu, awak media pun diberi kesempatan untuk mengetes langsung, baik di dalam lab pengujian dan di kondisi yang sebenarnya. Ternyata hasil pengujian di laboratorium berhasil mencatat kecepatan hingga 167 Mbps. Lebih tinggi dibandingkan kecepatan maksimal yang dapat diperoleh secara teoritis.

Dari:

http://tekno.liputan6.com/read/2363759/bikin-internet-melesat-smartfren-pakai-teknologi-hybrid

HTC Siapkan One A9 Versi Windows Phone

By Andina Librianty

Hadirnya One A9 dengan segudang spesifikasi canggihnya bisa menjadi sebuah `alternatif` yang bagus selain iPhone.

Liputan6.com, Jakarta – HTC dikabarkan menyiapkan One A9 dalam dua versi. Sementara versi Android telah meluncur, versi lain yang tengah disiapkan saat ini menggunakan sistem operasi Windows Phone (WP), yaitu One A9w.

Dilansir dari Softpedia, Kamis (12/11/2015), keberadaan One A9w diketahui dari situs pusat sertifikasi peralatan telekomunikasi Tiongkok, Tenaa. Huruf “w” yang ada dalam penamaan smartphone tersebut dinilai merujuk pada Windows Phone.

Mengenai spesifikasinya, tak banyak informasi yang diketahui. Di sektor layar, One A9w dikatakan memiliki layar sentuh berteknologi AMOLED seluas 5 inci dengan resolusi full high definition (1080p).

Sayangnya, dalam situs tersebut tidak tertera nama chipset yang akan digunakan. Namun menurut informasi, smartphone tersebut akan menggunakan prosesor octa-core 1.5GHz.

Spesifikasi lainnya adalah RAM 2GB dan memori internal 16GB yang bisa diperluas melalui microSD dengan kapasitas maksimal 128GB. Belum diketahui alasan HTC menyiapkan One A9 dalam dua versi.

Dari:

http://tekno.liputan6.com/read/2363141/htc-siapkan-one-a9-versi-windows-phone

Terjun ke Dunia Start-Up, Alice Norin Geluti Bisnis e-Commerce

By Jeko Iqbal Reza

Alice memperkenalkan secara resmi bisnis yang ia geluti, e-commerce fashion yang ia namai `8Wood` (Jeko/Liputan6.com)

Liputan6.com, Jakarta – Ada yang berbeda di hari pertama gelaran Tech in Asia Jakarta 2015. Ajang temu para pelaku start-up lokal di sini biasanya kerap dihadiri kalangan pebisnis digital. Namun, di salah satu sesi presentasi, tampak sosok yang sudah tak asing lagi di mata publik, yaitu Alice Norin.

Lama tak terlihat, wanita yang berprofesi sebagai DJ dan akrab disapa Alice ini muncul sebagai salah satu pembicara dari beberapa guest speaker yang hadir untuk membagikan pengalaman rintisan bisnisnya di dunia start-up. Lantas, bisnis seperti apa yang digeluti aktris cantik kelahiran Norwegia ini?

Ketika ditemui tim Tekno Liputan6.com usai presentasinya di Tech in Asia Jakarta 2015 di Balai Kartini, Jakarta, Rabu (11/11/2015), Alice memperkenalkan secara resmi bisnis yang ia geluti, e-commerce fashion yang ia namai 8Wood.

Alice menjelaskan, 8Wood sendiri sebetulnya sudah lahir sejak tahun 2013. Namun, e-commerce fashion yang mengkurasikan beberapa brand lokal ini baru kembali bergerak lebih gesit pada tahun ini.

Untuk urusan produk, ia mengkurasikan 200 brand produk fashion lokal, seperti clothing (dress, t-shirt, celana), sepatu, hingga peralatan kosmetik. Semua produk tersebut menyasar segmen wanita berumur 17-30 tahun.

Dari:

http://tekno.liputan6.com/read/2363319/terjun-ke-dunia-start-up-alice-norin-geluti-bisnis-e-commerce

15 Shortcut Keyboard di Microsoft PowerPoint

By Mochamad Wahyu Hidayat

keyboard komputer. kredit foto: stockvault

Liputan6.com, Jakarta – Dari semua program di Microsoft Office, PowerPoint mungkin salah satu program yang paling banyak mengandung ‘unsur seni’. Karena itu, PowerPoint umumnya digunakan untuk menampilkan presentasi, agar presentasi menjadi lebih nyaman dipandang dan mudah dipahami.

Supaya Anda dapat bekerja lebih mudah dan efisien di PowerPoint, maka tidak ada salahnya jika Anda memusatkan perhatian Anda pada 15 jalan pintas (shortcut) di keyboard, yang kami himpun dari PC World, Kamis (12/11/2015).

Ke-15 jalan pintas tersebut memungkinkan Anda memiliki kontrol lebih atas PowerPoint. Tanpa basa-basi, simak lebih lengkapnya berikut ini.

Dari:

http://tekno.liputan6.com/read/2362720/15-shortcut-keyboard-di-microsoft-powerpoint

6 Cara Agar Tak Ketergantungan Ponsel

By Corry Anestia

Ilustrasi Smartphone (Liputan6.com/Sangaji)

Liputan6.com, Jakarta – Tanpa disadari, manusia semakin tergantung pada ponsel. Buktinya, menurut laporan tahunan Internet Trend oleh Kleiner Perkins Caufield & Byer’s, orang-orang mengecek ponselnya rata-rata 150 kali per hari.

Ketergantungan terhadap ponsel terbukti memberi dampak buruk. Hasil studi University of Missouri mengungkapkan bahwa seseorang yang terpisah dari iPhone dapat berdampak pada psikilogi dan berakibat pada mental mereka.

Jika melihat hal itu, apakah Anda akan tetap tergantung pada ponsel? Atau bisakah Anda menahan diri agar smartphone tidak dapat mendistraksi pekerjaan Anda?

Untuk itu, tim Tekno Liputan6.com akan mengulas 6 cara agar tidak ketergantungan pada ponsel, sebagaimana dilansir laman Enterprenuer, Kamis (12/11/2015).

Dari:

http://tekno.liputan6.com/read/2362709/6-cara-agar-tak-ketergantungan-ponsel

Sikap Anda di Twitter Dipengaruhi Siapa yang Anda Follow

By Andina Librianty

Ilustrasi Twitter (Sumber : Businesstimes.com)

Liputan6.com, Jakarta – Emosi dari orang-orang yang di-follow ternyata sangat mempengaruhi kepribadian seseorang dalam bertindak di Twitter. Hal ini dibuktikan para peneliti dari University of Southern Carolina.

Menurut para peneliti tersebut, tweet para pengguna cenderung sejalan dengan ekspresi emosi orang-orang yang mereka follow. Dengan demikian, kicauan marah, kebencian, atau negatif dari pengguna yang di-follow kemungkinan besar akan membuat Anda men-tweet sentimen yang sama.

Pengguna yang terekspos serangkaian tweet negatif lebih mungkin mem-posting pesan negatif di jejaring sosial. Namun, tweet positif memberikan efek yang jauh lebih besar. Hal ini disebabkan oleh adanya efek “penularan emosional”.

“Apa yang Anda tweet atau share di media sosial seringkali Anda tidak hanya mengekspresikan diri sendiri, tapi juga mempengaruhi orang lain,” tutur Dr Emilio Ferrara yang memimpin studi tersebut.

Dari:

http://tekno.liputan6.com/read/2362916/sikap-anda-di-twitter-dipengaruhi-siapa-yang-anda-follow

Google Doodle Turut Peringati Hari Ayah Nasional

Google Doodle

By Jeko Iqbal Reza

Doodle lucu peringatan Hari Ayah Nasional menghiasi halaman muka Google pada hari ini

Liputan6.com, Jakarta – Tak lama setelah memperingati hari ulang tahun aktris lawas Hedy Lamarr pada 9 November 2015 lalu, Google kembali memperingati Hari Ayah Nasional pada hari ini, Kamis (12/11/2015). Uniknya, peringatan Hari Ayah rupanya dirayakan pada tanggal yang berbeda-beda di berbagai negara.

Di halaman muka pencarian Google, tampak animasi lucu yang berganti-ganti dari doodle seekor pinguin, berubah menjadi anjing dan seekor puppy (anak anjing), lalu berubah lagi menjadi seekor kucing dan tiga ekor anaknya, hingga menjadi seorang Ayah dengan anak laki-lakinya.

Pesan yang ingin disampaikan Google sederhana, perayaan Hari Ayah tak hanya dirasakan oleh manusia, tetapi juga seluruh makhluk hidup.

Dari:

http://tekno.liputan6.com/read/2363650/google-doodle-turut-peringati-hari-ayah-nasional

HaloDiana, Aplikasi Asisten Virtual Pertama di Indonesia

By Corry Anestia

(Doc: HaloDiana)

Liputan6.com, Jakarta – Usai meluncurkan HaloDiana — asisten virtual pribadi — dengan format pesan singkat (SMS) pada September lalu, kini PT Sribu Digital Kreatif merilis layanan HaloDiana dalam bentuk aplikasi mobile untuk perangkat Android. Pihaknya mengklaim bahwa aplikasi ini menjadi aplikasi asisten virtual pribadi mobile pertama di Indonesia.

Dalam siaran pers kepada tim Tekno Liputan6.com, Kamis (12/11/2015), pihaknya menyebutkan bahwa aplikasi HaloDiana dilengkapi fitur yang memungkinkan pengguna untuk mengecek pesanannya dalam bentuk status requested, on process, on delivery, completed atau canceled.

Sekadar diketahui, HaloDiana atau Diana (Digital Assistant and Automation) merupakan jasa asisten pribadi virtual untuk membantu pengguna dalam memenuhi berbagai kebutuhan. Layanan ini dapat digunakan untuk membeli makanan, memesan tiket pesawat, berbelanja bulanan, hingga mengatur jadwal meeting.

“Kehadiran Diana akan membawa perubahan baru terhadap gaya hidup masyarakat urban saat ini. Dengan aplikasi Diana, semua orang bisa mempunyai asisten pribadi tanpa perlu mengeluarkan biaya,” ungkap Ryan Gondokusumo, Founder HaloDiana.

Dari:

http://tekno.liputan6.com/read/2362921/halodiana-aplikasi-asisten-virtual-pertama-di-indonesia

Create a free website or blog at WordPress.com.

Up ↑