tugas 4

ENDANG

1.1

Private Sub cbonpm_Click()

Dim NM, JR As String

Select Case cbonpm.Text

Case “14100158”

NM = “RICKY SETIAWAN”

JR = “SISTEM INFORMASI”

Case “14100159”

NM = “YANTI APRILDA”

JR = “SISTEM INFORMASI”

Case “14100131”

NM = “ASIAH”

JR = “SISTEM INFORMASI”

Case “14100185”

NM = “LUKAS PRASTOWO”

JR = “SISTEM INFORMASI”

Case “14100097”

NM = “IMAM RAIS”

JR = “SISTEM INFORMASI”

Case “14100063”

NM = “MIFTAHUDIN KARIM”

JR = “SISTEM INFORMASI”

Case “14100161”

NM = “ISMA ROBI”

JR = “SISTEM INFORMASI”

Case “14201008”

NM = “RAHAYU SAPUTRI”

JR = “MANAJEMEN INFORMATIKA”

Case “14201016”

NM = “ENDANG SAWITRI”

JR = “MANAJEMEN INFORMATIKA”

Case “14201009”

NM = “SEPTI TRIWAHYUNI”

JR = “MANAJEMEN INFORMATIKA”

End Select

txtnama = NM

txtjur = JR

txtquis.SetFocus

End Sub

 

Private Sub cmdbatal_Click()

txtnama.Text = “”

txtjur.Text = “”

txtquis.Text = “”

txttugas.Text = “”

txtuts.Text = “”

txtuas.Text = “”

txtna.Text = “”

txtmutu.Text = “”

cmbnpm.Text = “”

cmbnpm.SetFocus

End Sub

 

Private Sub cmdproses_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(txtquis.Text)

TUGAS = Val(txttugas.Text)

UTS = Val(txtuts.Text)

UAS = Val(txtuas.Text)

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

txtna.Text = NA

Select Case txtna.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

txtmutu.Text = HM

End Sub

 

 

Private Sub Form_Load()

cbonpm.AddItem “14201007”

cbonpm.AddItem “14100061”

cbonpm.AddItem “14100060”

cbonpm.AddItem “14100142”

cbonpm.AddItem “14100153”

cbonpm.AddItem “14100132”

cbonpm.AddItem “14100124”

cbonpm.AddItem “14201012”

cbonpm.AddItem “14100127”

cbonpm.AddItem “14201002”

End Sub

Private Sub txtuas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim NA As Integer

Dim HM As String

QUIS = Val(txtquis.Text)

TUGAS = Val(txttugas.Text)

UTS = Val(txtuts.Text)

UAS = Val(txtuas.Text)

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

txtna.Text = NA

Select Case txtna.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

txtmutu.Text = HM

End If

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

Dim NM, JR As String

Select Case cboNPM.Text

Case “14201007”

NM = “RICKY SETIAWAN”

JR = “SISTEM INFORMASI”

Case “14100159”

NM = “YANTI APRILDA”

JR = “SISTEM INFORMASI”

Case “14100131”

NM = “ASIAH”

JR = “SISTEM INFORMASI”

Case “14100185”

NM = “LUKAS PRASTOWO”

JR = “SISTEM INFORMASI”

Case “14100097”

NM = “IMAM RAIS”

JR = “SISTEM INFORMASI”

Case “14100063”

NM = “MIFTAHUDIN KARIM”

JR = “SISTEM INFORMASI”

Case “14100161”

NM = “ISMA ROBI”

JR = “SISTEM INFORMASI”

Case “14201008”

NM = “RAHAYU SAPUTRI”

JR = “MANAJEMEN INFORMATIKA”

Case “14201016”

NM = “ENDANG SAWITRI”

JR = “MANAJEMEN INFORMATIKA”

Case “14201009”

NM = “SEPTI TRIWAHYUNI”

JR = “MANAJEMEN INFORMATIKA”

End Select

txtnama = NM

txtjur = JR

txtquis.SetFocus

End Sub

Private Sub cmdbatal_Click()

txtnama.Text = “”

txtjur.Text = “”

txtquis.Text = “”

txttugas.Text = “”

txtuts.Text = “”

txtuas.Text = “”

txtna.Text = “”

txtmutu.Text = “”

cmbnpm.Text = “”

cmbnpm.SetFocus

End Sub

 

Private Sub cmdproses_Click()

Dim NA As Integer

Dim HM As String

QUIS = Val(txtquis.Text)

TUGAS = Val(txttugas.Text)

UTS = Val(txtuts.Text)

UAS = Val(txtuas.Text)

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

txtna.Text = NA

Select Case txtna.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

txtmutu.Text = HM

End Sub

 

 

Private Sub Form_Load()

cbonpm.AddItem “14201009”

cbonpm.AddItem “14100097”

cbonpm.AddItem “14100161”

cbonpm.AddItem “14100159”

cbonpm.AddItem “14100158”

cbonpm.AddItem “14100131”

cbonpm.AddItem “14100063”

cbonpm.AddItem “14201008”

cbonpm.AddItem “14201016”

cbonpm.AddItem “14100185”

End Sub

Private Sub txtuas_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Dim NA As Integer

Dim HM As String

QUIS = Val(txtquis.Text)

TUGAS = Val(txttugas.Text)

UTS = Val(txtuts.Text)

UAS = Val(txtuas.Text)

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

txtna.Text = NA

Select Case txtna.Text

Case Is > 80

HM = “A”

Case Is > 70

HM = “B”

Case Is > 60

HM = “C”

Case Is > 50

HM = “D”

Case Is < 50

HM = “E”

End Select

txtmutu.Text = HM

End If

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

ENDANG

pegawaii

Private Sub cmbbatal_Click()

txtnpm.SetFocus

txtnpm = “”

txtnama = “”

cbogolongan = “”

txtgapok = “”

txttunjangan = “”

txtpajak = “”

txttotal = “”

End Sub

 

Private Sub cmbkeluar_Click()

End

End Sub

 

Private Sub cmblagi_Click()

txtnpm.SetFocus

txtnpm = “”

txtnama = “”

cbogolongan = “”

txtgapok = “”

txttunjangan = “”

txtpajak = “”

txttotal = “”

End Sub

Private Sub Form_load()

cbogolongan.AddItem “I”

cbogolongan.AddItem “II”

cbogolongan.AddItem “III”

cbogolongan.AddItem “IV”

End Sub

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

If KeyAscii = 13 Then

txtnama.SetFocus

End If

End Sub

ENDANG

npm

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txtnu.Text = “”

End Sub

 

Private Sub Cmdkeluar_Click()

End

End Sub

 

Private Sub Cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txtnu.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

txttm.Text = “20” & Left(txtnpm.Text, 2)

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

If S = “1” Then

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

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

End Sub

Private Sub Form_activate()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtps.Text = “”

txttm.Text = “”

txtnu.Text = “”

End Sub

 

Private Sub Txtnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

txtnpm.SetFocus

End If

End Sub

ENDANG

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtprogram.Text = “”

txttahun.Text = “”

txturut.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtprogram.Text = “”

txttahun.Text = “”

txturut.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

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

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

If S = “1” Then

txtjur.Text = “Sistem Informasi”

txtprogram.Text = “Strata Satu”

ElseIf S = “2” Then

txtjur.Text = “Manajemen Informatika”

txtprogram.Text = “Diploma Tiga”

ElseIf S = “3” Then

txtjur.Text = “Tehnik Informatika”

txtprogram.Text = “Diploma Empat”

ElseIf S = “4” Then

txtjur.Text = “Manajemen & Komp. Akuntansi”

txtprogram.Text = “Diploma Dua”

End If

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

End Sub

Private Sub Form_activate()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtprogram.Text = “”

txttahun.Text = “”

txturut.Text = “”

End Sub

 

Private Sub Txtnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

txtnpm.SetFocus

End If

End Sub

ENDANG

laptop

Private Sub Combo1_Click()

Select Case Combo1.Text

Case “Apple MC965 Macbook Air”

Text1.Text = “Apple Macbook Air MC965”

Text2.Text = “128000000”

Case “Apple MC966 Macbook Air”

Text1.Text = “Apple Macbook Air MC966”

Text2.Text = “158000000”

Case “Apple MC968 Macbook Air”

Text1.Text = “Apple Macbook Air MC968”

Text2.Text = “99000000”

Case “Apple MC969 Macbook Air”

Text1.Text = “Apple Macbook Air MC969”

Text2.Text = “119000000”

Case “Apple MC700 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC700”

Text2.Text = “108000000”

Case “Apple MC721 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC721”

Text2.Text = “159000000”

Case “Apple MC723 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC723”

Text2.Text = “193000000”

Case “Apple MC724 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC724”

Text2.Text = “137000000”

Case “Apple MC311 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC311”

Text2.Text = “242000000”

Case “Apple MC313 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC313”

Text2.Text = “119000000”

Case “Apple MC314 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC314”

Text2.Text = “147000000”

Case “Apple MC318 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC318”

Text2.Text = “176000000”

Case “Apple MC322 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC322”

Text2.Text = “213000000”

Case “Apple MC965 Macbook Air”

Text1.Text = “Apple Macbook Air MC965”

Text2.Text = “128000000”

Case “Apple MC966 Macbook Air”

Text1.Text = “Apple Macbook Air MC966”

Text2.Text = “158000000”

End Select

End Sub

 

 

Private Sub Command1_Click()

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

If Text4.Text > 140000000 Then

Text5.Text = Val(Text4.Text) * 0.15

ElseIf Text4.Text > 135000000 Then

Text5.Text = Val(Text4.Text) * 0.1

ElseIf Text4.Text > 130000000 Then

Text5.Text = Val(Text4.Text) * 0.05

ElseIf Text4.Text > 125000000 Then

Text5.Text = Val(Text4.Text) * 0.02

End If

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

End Sub

 

Private Sub Command2_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Command3_Click()

End

End Sub

 

Private Sub Form_Load()

Combo1.AddItem “Apple MC965 Macbook Air”

Combo1.AddItem “Apple MC966 Macbook Air”

Combo1.AddItem “Apple MC968 Macbook Air”

Combo1.AddItem “Apple MC969 Macbook Air”

Combo1.AddItem “Apple MC700 Macbook Pro”

Combo1.AddItem “Apple MC721 Macbook Pro”

Combo1.AddItem “Apple MC723 Macbook Pro”

Combo1.AddItem “Apple MC724 Macbook Pro”

Combo1.AddItem “Apple MC311 Macbook Pro”

Combo1.AddItem “Apple MC313 Macbook Pro”

Combo1.AddItem “Apple MC314 Macbook Pro”

Combo1.AddItem “Apple MC318 Macbook Pro”

Combo1.AddItem “Apple MC322 Macbook Pro”

Combo1.AddItem “Apple MC965 Macbook Air”

Combo1.AddItem “Apple MC966 Macbook Air”

End Sub

 

Private Sub text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

JUAL LAPTOP

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

If Text4.Text > 140000000 Then

Text5.Text = Val(Text4.Text) * 0.15

ElseIf Text4.Text > 135000000 Then

Text5.Text = Val(Text4.Text) * 0.1

ElseIf Text4.Text > 130000000 Then

Text5.Text = Val(Text4.Text) * 0.05

ElseIf Text4.Text > 125000000 Then

Text5.Text = Val(Text4.Text) * 0.02

End If

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

End If

End Sub

ENDANG

penjualan komputer

Private Sub Combo1_Click()

Select Case Combo1.Text

Case “P205”

Text1.Text = “pentiumII 500 Mega Hz”

Text2.Text = “1500000”

Case “P308”

Text1.Text = “pentiumIII 800 Mega Hz”

Text2.Text = “2100000”

Case “P310”

Text1.Text = “pentiumIII 1.0 Giga Hz”

Text2.Text = “3500000”

Case “P415”

Text1.Text = “pentiumIV 1.5 Giga Hz”

Text2.Text = “4000000”

Case “P417”

Text1.Text = “pentiumIV 1.7 Giga Hz”

Text2.Text = “4200000”

Case “P419”

Text1.Text = “pentiumIV 1.9 Giga Hz”

Text2.Text = “5500000”

End Select

End Sub

Private Sub Command1_Click()

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

If Text4.Text > 30000000 Then

Text5.Text = Val(Text4.Text) * 0.15

ElseIf Text4.Text > 25000000 Then

Text5.Text = Val(Text4.Text) * 0.1

ElseIf Text4.Text > 20000000 Then

Text5.Text = Val(Text4.Text) * 0.05

ElseIf Text4.Text > 15000000 Then

Text5.Text = Val(Text4.Text) * 0.2

End If

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

End Sub

 

Private Sub Command2_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Command3_Click()

End

End Sub

 

Private Sub Form_Load()

Combo1.AddItem “P205”

Combo1.AddItem “P308”

Combo1.AddItem “P310”

Combo1.AddItem “P415”

Combo1.AddItem “P417”

Combo1.AddItem “P419”

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

 

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.SetFocus

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

If Text4.Text > 30000000 Then

Text5.Text = Val(Text4.Text) * 0.15

ElseIf Text4.Text > 25000000 Then

Text5.Text = Val(Text4.Text) * 0.1

ElseIf Text4.Text > 20000000 Then

Text5.Text = Val(Text4.Text) * 0.05

ElseIf Text4.Text > 15000000 Then

Text5.Text = Val(Text4.Text) * 0.2

End If

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

End If

End Sub

ENDANG

data buku stmik

Private Sub Command1_Click()

Dim A, B, C, D As String

Dim H As Double

Text3.Text = “20” & Right(Combo1.Text, 2)

A = Mid(Combo1.Text, 3, 3)

If A = “SIM” Then

B = “SISTEM INFORMASI MANAJEMEN”

C = “YATI NUR OKTAVIA”

H = “75900”

ElseIf A = “MNJ” Then

B = “MANAJEMEN”

C = “VALENTINA MARIANA ADIWIANTI”

H = “42000”

ElseIf A = “EDP” Then

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

Text1.Text = B

Text2.Text = C

Text5.Text = H

D = Left(Combo1.Text, 1)

If D = “A” Then

Text4.Text = “ANDY OFFSET YOGYAKARTA”

ElseIf D = “I” Then

Text4.Text = “INDAH SURABAYA”

ElseIf D = “M” Then

Text4.Text = “MAXICOM”

ElseIf D = “S” Then

Text4.Text = “SALEMBA EMPAT”

ElseIf D = “E” Then

Text4.Text = “ELEK MEDIA KOMPUTINDO”

End If

End Sub

 

 

 

Private Sub Command2_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

End Sub

 

Private Sub Command3_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

End Sub

 

Private Sub Command4_Click()

End

End Sub

 

Private Sub Form_Load()

Combo1.AddItem “A-SIM-01”

Combo1.AddItem “I-EDP-02”

Combo1.AddItem “S-MNJ-03”

Combo1.AddItem “E-CDR-04”

Combo1.AddItem “M-RPL-05”

End Sub

 

ENDANG

tiket kereta

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”

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 keyascci = 13 Then

txtjt.SetFocus

End If

End Sub

 

ENDANG

Private Sub cmdbatal_Click()

txtkode.SetFocus

txtkode = “”

txtjudul = “”

txtpengarang = “”

txttahun = “”

txtpenerbit = “”

txtharga = “”

End Sub

Private Sub cmdkeluar_Click()

End

End Sub

Private Sub cmdlagi_Click()

txtkode.SetFocus

txtkode = “”

txtjudul = “”

txtpengarang = “”

txttahun = “”

txtpenerbit = “”

txtharga = “”

End Sub

Private Sub cmdproses_Click()

Dim JB, PG, PR As String

Dim TT, HR As Variant

A = Left(txtkode.Text, 3)

If A = “SIM” Then

JB = “Sistem Informasi Manajemen”

PG = “Fadiya Ulfa”

HR = “75900”

ElseIf A = “EDP” Then

JB = “Elektronik Data Processing”

PG = “Nurul Agustina”

HR = “62000”

ElseIf A = “MNJ” Then

JB = “Manajemen”

PG = “Rina Hidayat”

HR = “42000”

ElseIf A = “CDR” Then

JB = “Corel Draw”

PG = “Siti Nur Khotimah”

HR = “53000”

ElseIf A = “RPL” Then

JB = “Rekayasa Perangkat Lunak”

PG = “Winda Erlianti”

HR = “83000”

End If

txtjudul.Text = JB

txtpengarang.Text = PG

txtharga.Text = HR

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

B = Right(txtkode.Text, 1)

If B = “A” Then

PR = “Andi Offset Yogyakarta”

ElseIf B = “I” Then

PR = “Indah Surabaya”

ElseIf B = “S” Then

PR = “Salemba Empat”

ElseIf B = “E” Then

PR = “Elek Media Koputindo”

ElseIf B = “M” Then

PR = “Maxicom”

End If

txtpenerbit.Text = PR

End Sub

Iklan

Tugas 3

ENDANG

TUGAS 1.1
Private Sub Command1_Click()
Text2.Text = Val(Text1) * 0.1
Text3.Text = Val(Text1) – Val(Text2)
End Sub
TUGAS 1.2
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
Text2.Text = Val(Text1) * 0.1
Text3.Text = Val(Text1) – Val(Text2)
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub
Private Sub Command3_Click()
End
End Sub

endang

TUGAS 2.1
Private Sub Command1_Click()
Text4.Text = Val(Text1) + Val(Text2) – Val(Text3)
Text5.Text = Val(Text4) * 0.1
Text6.Text = Val(Text4) – Val(Text5)
End Sub
TUGAS 2.2
Private Sub Command1_Click()
Text4.Text = Val(Text1) + Val(Text2) – Val(Text3)
Text5.Text = Val(Text4) * 0.1
Text6.Text = Val(Text4) – Val(Text5)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub
Private Sub Command2_Click()
Text1.SetFocus
Text1 = ” “
Text2 = ” “
Text3 = ” “
Text4 = ” “
Text5 = ” “
Text6 = ” “
End Sub
Private Sub Command3_Click()
End
End Sub

ENDANG

Private Sub Check1_Click()
If Check1.Value = 1 Then
Label1.FontBold = True
Else
lblteks.FontBold = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Label1.FontItalic = True
Else
lblteks.FontItalic = False
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then
Label1.FontUnderline = True
Else
Label1teks.FontUnderline = False
End If
End Sub
Private Sub Check4_Click()
If Check4.Value = 1 Then
Label1.FontStrikethru = True
Else
Label1teks.FontStrikethru = False
End If
End Sub
Private Sub Option2_Click()
‘membuat teks berwarna hijau
Label1.ForeColor = vbGreen
End Sub
Private Sub Option3_Click()
‘membuat teks berwarna biru
Label1.ForeColor = vbBlue
End Sub
Private Sub Option4_Click()
‘membuat teks berwarna kuning
Label1.ForeColor = vbYellow
End Sub
Private Sub optred_Click()
‘membuat teks berwarna merah
Label1.ForeColor = vbRed
End Sub
Private Sub Command1_Click()
End
End Sub

ENDANG

Private Sub Check1_Click()
If Check1.Value = 1 Then
Label2.FontBold = True
Else
Label2.FontBold = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Label2.FontItalic = True
Else
Label2.FontItalic = False
End If
End Sub
Private Sub Command1_Click()
Label2.Caption = Text1.Text
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Option1_Click()
‘membuat teks berwarna merah
Label2.ForeColor = vbRed
End Sub
Private Sub Option2_Click()
‘membuat warna berwarna biru
Label2.ForeColor = vbBlue
End Sub

Gol Gomis Untuk Korban Teror Prancis

Bafetimbi Gomis

Liputan6.com, Swansea – Pekan ini menjadi pekan yang sulit bagi publik Prancis. Aksi teror yang menghantui negara itu membuat semua orang berduka, tak terkecuali yang dirasakan striker Swansea City, Bafetimbi Gomis.

Gomis mengekspresikan perasaan dukanya usai laga Swansea kontra West Ham, Sabtu (10/1/2015). Ia menyampaikan sumbangan golnya datang di saat yang tepat.

“Pekan ini sangat tidak mudah bagi semua warga Prancis. Saya ingin merasakan duka mereka meski kini tak lagi tinggal di sana,” kata Gomis seperti dilansir Soccerway.

“Saya senang Swansea mengizinkan saya memakai pita hitam dan mengibarkan bendera Prancis. Dukungan mereka sangat berarti,” ujarnya menambahkan

Anggota DPRD 2014-2019 Kabupaten Pringsewu di Lantik

PRINGSEWU – 40 Anggota DPRD Kabupaten Pringsewu periode 2014-2019 dilantik oleh Ketua Pengadilan Negeri Kotaagung Bambang Sucipto, dihadiri Asisten IV Sekretariat Pemerintah Provinsi Lampung Ellya Mukhtar mewakili Gubernur Lampung M Ridho Ficardo, Bupati Pringsewu H. Sujadi, Sekkab Idrus Effendi, Kapolres Tanggamus AKBP. Adrie Effendi, Kajari Kotaagung Bakhrudin, Dandim 0424 Tanggamus yang di wakili Perwira Penghubung Mayor Triwibiyono, dan mantan Pj. Bupati Helmi Mahmud. yang berlangsung di Pendopo Pringsewu, Senin (18/8), pukul 14.00 WIB.

Asisten IV Sekretariat Pemerintah Provinsi Lampung Ellya Mukhtar mengatakan ketidakhadiran Gubernur karena sedang melantik Wakil Bupati Tulangbawang Barat. Selain itu, lanjut dia, di Provinsi Lampung terdapat tujuh wilayah kabupaten/kota yang melakukan pelantikkan anggota DPRD.

Pelantikan sumpah dan janji dipandu oleh Kepala Pengadilan Negeri Kotaagung Bambang Sucipto.

Anggota dewan yang dilantik sebagai berikut :

Pentingnya Peran Orang Tua dalam Belajar Anak

JAKARTA — Orang tua memiliki peran yang besar dalam proses belajar anak. Apalagi, dengan kurikulum 2013 yang menuntut siswa kelas I SD untuk dapat membaca, menulis dan berhitung. Di sini, orang tua dituntut untuk memperhatikan pola belajar sang anak.

Direktur Pendidikan Karakter dan Education Consulting, Doni Koesoema A, mengatakan dari banyak teori psikologi perkembangan anak, terbukti bahwa anak yang didampingi orang tua di rumah akan cenderung lebih baik dalam proses pembelajarannya. Hal itu menurutnya, selaras dengan teori pendidikan dari tokoh zona of proximal development yang menyatakan bahwa anak akan lebih berkembang dalam proses pembelajaran ketika didampingi orang dewasa.

 

Terdapat perbedaan antara anak yang diperhatikan oleh orang tua dan yang cenderung kurang mendapat perhatian orang tuanya. Ketika masih Sekolah Dasar, anak pada dasarnya ingin ditemani oleh orang tuanya.

 

Hal itu menurut Doni, harus dilihat sebagai bagian proses kedewasaan anak. Anak yang didampingi orang dewasa, akan belajar lebih baik dari pada mereka yang tidak mendapat pendampingan. Secara psikologis, perhatian orang tuanya tersebut membantu anak tidak merasa sendiri, merasa percaya diri, dan merasa diperhatikan. Perasaan nyaman dan diperhatikan itu akan menjadi awal belajar yang baik dan menumbuhkan motivasi belajar anak.

 

Sementara itu, anak yang kurang mendapat perhatian dan pendampingan orang tua, dapat merasa tertekan dan tidak menutupkemungkinan akhirnya membenci pendidikan. Hal itu karena, umumnya anak masih mengalami kesulitan untuk memahami suatu mata pelajaran dan membutuhkan tempat untuk bertanya.

 

Apalagi menurutnya, kurikulum 2013 menuntut anak harus sudah bisa carlistung (membaca, menulis dan berhitung). Di sini, peran orang tua sangat penting. Dalam hal ini, orang tua harus bekerjasama dengan sekolah bagaimana memahami kurikulum dan memberikan pengajaran saat mendampingi anak.

 

Di samping itu, orang tua sebaiknya melakukan komunikasi dengan anak. Setiap pulang sekolah, sebaiknya orang tua bertanya pada anak mengenai kegiatan anak di sekolah.Karena tidak menutupkemungkinan, anak memiliki masalah dengan teman atau pun guru, atau masalah sosial ketika di sekolah. Dan hal itu, bisa diketahui ketika orang tua memiliki kedekatan dengan anak.

 

“Supaya anak cerita apa yang dialami. Komunikasi sangat penting antara ortu dan anak,” terangnya.

 

Guru SDN di Pademangan Barat 01 pagi, Jakarta Utara, Yeni Sri Handayani, menilai hal sama. Meskipun anak diberikan tambahan pengajaran di lembaga bimbingan atau les, orang tua sebaiknya tidak lepas tangan. Anak tetap harus didampingi dan mendapat bimbingan dari orang tua.

 

Sekolah memang tidak hanya memberi pelajaran, tetapi juga memberi pendidikan dalam perilaku anak. Namun demikian, waktu anak lebih banyak dihabiskan di rumah. Sehingga, perilaku sang anak lebih banyak berada di bawah didikan orang tuanya. Karena itu, ia mengatakan harus ada kerjasama antara orang tua dengan guru.

 

Dalam hal ini, guru dapat memanggil orang tua ke sekolah dan menyampaikan terkait hasil perkembangan belajar anak. Selanjutnya, orang tua harus melakukan pendekatan kembali terhadap anak.

 

Sejauh ini, umumnya kelas I, II, III, pada Sekolah Dasar masih mendapat pantauan orang tua. Sementara anak kelas V dan VI, umumnya dilepas dari pendampingan orang tua. Padahal, ia menilai di akhir kelas SD yaitu kelas V dan VI, anak harus lebih mendapat pantauan orang tua. Hal itu karena, semakin besar jenjang pendidikan materi lebih sulit.

 

Sebagai seorang guru, ia menilai terdapat perbedaan antara anak yang mendapat pantauan dan perhatian orang tuanya dan anak yang meiliki orang tua yang sibuk bekerja. Anak yang ditemeni orang tuanya dalam proses belajar di rumah, cenderung memiliki tingkah laku yang baik dan memiliki nilai bagus dalam mata pelajaran di sekolah. Di samping itu, anak terlihat lebih percaya diri. Lain halnya dengan anak yang kurang mendapat perhatian, tingkah lakunya cenderung lebih nakal dan mencari perhatian guru dan temannya. Akan tetapi, walaupun demikian ia mengatakan individu setiap anak berbeda-beda. Adapula anak yang aktif, tetapi pintar.

6 Cara Mudah Putihkan Gigi Tanpa ‘Ribet’

6 Cara Mudah Putihkan Gigi Tanpa 'Ribet'

Liputan6.com, Jakarta Tak hanya terlihat bagus dalam penampilan, pria yang memiliki gigi putih dan senyum yang menawan ternyata bisa menarik kaum hawa.

Dalam sebuah penelitian yang dilakukan oleh Match.com diungkap bahwa 71 persen wanita menilai pria dari giginya. Artinya, hanya dengan senyum dengan gigi yang bersih dan putih akan jauh lebih menarik.

Tapi bagaimana cara mendapatkan senyuman menawan dengan gigi putih? menurut dokter gigi Arthur Glosman,  ada metode pemutihan yang lazim digunakan orang yaitu pasta gigi, obat kumur, gusi, dan perawatan profesional. Tapi sayangnya, tidak semua orang mampu merawat gigi karena mahal.

Tenang, di sini Glosman mengungkap 6 cara sederhana untuk membuat gigi Anda lebih putih dari sebelumnya. Seperti dikutip Menshealth, Jumat (9/1/2015) berikut ulasannya:

1. Mengganti sikat gigi

Senyum putih bisa semudah membuang sikat gigi bekas Anda. “Ganti sikat gigi Anda setiap tiga bulan, atau buang segera setelah Anda bulu sikatnya mulai menunduk. Cara ini akan membantu Anda menyikat gigi dengan benar sehingga gigi akan terlihat lebih bersih dan putih.”

2. Sikat lidah

Menyikat lidah bukan hanya bermanfaat untuk membersihkan mulut tapi juga menghindari bau napas. “Lidah adalah tempat menumpuknya bakteri sehingga bisa berisiko menyebabkan penyakit. Gunakan pembersih lidah khusus atau sikat gigi yang lembut.”

3. Berkumur dengan cuka sari apel

Meskipun tidak seefektif perawatan di klinik gigi, namun berkumur dengan cuka sari apel adalah cara alami untuk mempertahankan senyum yang sehat.

4. Makan buah-buahan mentah dan sayuran

Makan buah-buahan, sayuran mentah akan melatih gigi Anda. Dr. Glosman mengatakan, Anda bisa makan kacang-kacangan, wortel mentah, apel, dan kembang kol sehingga membantu menjaga gigi Anda bersih dari noda atau plak yang menyebabkan gigi berlubang.

5. Berkumur dan minum air putih setelah makan jeruk

Meskipun jeruk baik lemon, limau dan sebagainya baik untuk kesehatan karena mengandung vitamin C, namun buah ini mengandung asam yang dapat mengikis enamel gigi. Oleh sebab itu, pastikan untuk membilas mulut Anda dengan air segera setelah mengonsumsi makanan asam.

5 Lokasi Terbaik Beli Rumah di Jakarta

Pembangunan Perumahan

Liputan6.com, Jakarta – Sebagai ibukota negara, Jakarta adalah pusat pemerintahan dan ekonomi Indonesia. Kota ini disebut-sebut menjadi kota tersibuk se-Asia Tenggara.

Dari siaran resmi Lamudi, portal properti global di 28 negara, Jakarta, Minggu (11/1/2015), permasalahan paling akut di Ibukota negara ini adalah macet dan banjir.

Lahan atau tanah yang tersedia di Jakarta semakin tergerus. Kondisi ini memicu harga hunian di kota ini sebagai salah satu yang tertinggi di Asia. Namun, tinggal di Jakarta memiliki banyak keuntungan karena lokasinya yang strategis dan punya nilai historis.

Jika Anda ingin memiliki hunian di Jakarta, Lamudi telah menyusun daftar beberapa area yang bisa dipertimbangkan :

1. Menteng

Lokasi ini berada di Pusat Jakarta. Menteng  merupakan salah satu lokasi strategis yang langsung mengarah ke beberapa pusat perekonomian, bisnis serta pemerintahan di Ibukota. Sejarahnya yang panjang juga menjadikan area ini bergengsi dan membuat harga properti di Menteng melambung tinggi.

2. Kuningan

Lokasinya dekat dengan pusat bisnis atau CBD, Kuningan. Area ini diminati banyak pekerja muda dan para ekspatriat. Apartemen dan kos-kosan menjadi jenis hunian yang mendominasi di daerah tersebut. Beberapa pusat perbelanjaan elit dan kelas menengah berdiri gagah di daerah ini seperti Kota Kasablanka, Lotte Avenue dan Mall Ambassador. Kemudahan akses itu dipilih banyak orang mempunyai hunian di wilayah Kuningan.

3. Cipete

Cipete adalah daerah penghubung dari banyaknya jalan arteri di Jakarta Selatan. Sehingga daerah ini mempunyai akses mudah ke mana saja baik menuju pusat kota maupun keluar kota seperti Bandung dan Puncak. Lokasinya juga dekat dengan Kemang yang notabene mempunyai banyak tempat berkumpul dan restoran ternama.

4. Permata Hijau

Meski wilayahnya tidak terlalu dekat dengan CBD, namun perumahan di kawasan Permata Hijau masih banyak yang tertutup oleh pepohonan dan perumahan dengan teras dan kebun yang luas. Hal ini bisa menjadi pergantian suasana bagi Anda yang bosan melihat gedung-gedung pencakar langit setiap hari.

5. Pantai Indah Kapuk

Kawasan ini adalah perumahan yang direncanakan dengan baik dan merupakan komunitas di Jakarta Utara. Area tersebut mempunyai semua yang dibutuhkan mulai dari pertokoan, pusat perbelanjaan, bangunan kantor, wahana permainan air (waterpark), pusat jajanan dan lainnya. Daerah Pantai Indah Kapuk juga bukan daerah rawan banjir meski berada di dekat laut Jawa. (Fik/Ahm)