Tugas 4

YANTI

tugas 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

 

YANTI

tugas 1.2

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

YANTI

tugas 3

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

 

YANTI

tugas 4

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

 

YANTI

tugas 5

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

YANTI

tuga 6

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

yanti

tugas 7

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

YANTI

tugas 8

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

YANTI

tugas 9

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

YANTI

tugas 10

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

YANTI

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

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

End Sub

 

Private Sub Command3_Click()

End

End Sub

 

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

yanti

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

Private Sub Command2_Click()

Text1.SetFocus

Text1 = ” ”

Text2 = ” ”

Text3 = ” ”

Text4 = ” ”

Text5 = ” ”

Text6 = ” ”

End Sub

Private Sub Command3_Click()

End

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

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

Text1.SetFocus

Text1 = ” ”

Text2 = ” ”

Text3 = ” ”

Text4 = ” ”

Text5 = ” ”

Text6 = ” ”

End Sub

Private Sub Command3_Click()

End

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text2.SetFocus

End If

End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text3.SetFocus

End If

End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text4.Text = Val(Text1) + Val(Text2) – Val(Text3)

Text5.Text = Val(Text4) * 0.1

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

End If

End Sub

 

YANTI

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

End

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

YANTI

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

Tugas 2

yanti

Private Sub Command1_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

End Sub

 

Private Sub Command3_Click()

End

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

 

yanti 3

Private Sub Command1_Click()

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

 

End Sub

 

Private Sub Command2_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

End Sub

 

Private Sub Command3_Click()

End

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

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

End If

End Sub

 

yanti 2

Private Sub Command1_Click()

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

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

Text9.Text = Val(Text7.Text) / Val(Text8.Text)

Text12.Text = Val(Text10.Text) – Val(Text11.Text)

End Sub

 

Private Sub Command2_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

Text9.Text = “”

Text10.Text = “”

Text11.Text = “”

Text12.Text = “”

End Sub

 

Private Sub Command3_Click()

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

Text7.Text = “”

Text8.Text = “”

Text9.Text = “”

Text10.Text = “”

Text11.Text = “”

Text12.Text = “”

End Sub

 

Private Sub Command4_Click()

End

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

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

End If

End Sub

 

Private Sub Text4_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text5.SetFocus

End If

End Sub

 

 

Private Sub Text5_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text6.SetFocus

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

End If

End Sub

 

 

Private Sub Text7_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text8.SetFocus

End If

End Sub

 

Private Sub Text8_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text9.SetFocus

Text9.Text = Val(Text7.Text) / Val(Text8.Text)

End If

End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text11.SetFocus

End If

End Sub

 

Private Sub Text11_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Text12.SetFocus

Text12.Text = Val(Text10.Text) – Val(Text11.Text)

End If

End Sub

 

 

 

 

 

Putri Presiden Jokowi Tak Lolos CPNS Pemkot Solo

Liputan6.com, Solo – Kahiyang Ayu, putri kedua Presiden Joko Widodo dinyatakan tak lolos seleksi tes calon pegawai negeri sipil (CPNS). Hal ini terlihat dalam pengumuman hasil CPNS Pemkot Solo. Kahiyang Ayu hanya mendapatkan nilai 300 dalam ujian Tes Kemampuan Dasar (TKD) CPNS Pemkot Solo.

Berdasarkan pantauan Liputan6.com, Jumat (19/12/2014), papan pengumuman itu dipasang depan Balai Tawangpraja Pemkot Solo, tertera 53 nama dari 56 formasi. Dari sekian nama itu sama sekali tak ada nama Kahiyang Ayu. ‎Sejumlah masyarakat masih terus mengerumuni papan pengumuman itu.

Kahiyang Ayu melamar untuk formasi Pemeriksa Pertama. Dalam formasi ini nilai tertingginya adalah 421, 414 dan 409. Sementara Kahiyang hanya memperoleh nilai 300 dalam tes kali ini. Berdasarkan hasil tes CAT, Kahiyang memperoleh 55 poin dari tes wawasan kebangsaan (TWK), 95 untuk tes intelegensi umum (TIU), dan 155 dari tes karakteristik pribadi (TKP).

Sekretaris Pelaksana Tes CPNS Pemkot Solo, Lancer Naibaho menjelaskan, seleksi CPNS dilakukan oleh Panselnas (Panitia Seleksi Nasional). Sementara pihak Pemkot hanya mengesahkan. Bahkan Walikota Solo hanya membubuhkan tanda tangan.

“Putri Pak Presiden sudah jelas nilainya tidak memenuhi passing grade. Nilai tes kebangsaannya hanya 50, padahal nilai minimalnya adalah 70, ” ujar Lancer.

Ia mengatakan, jika ada yang mengundurkan diri dari 3 orang di formasi Pemeriksa Pertama, Kahiyang tidak akan terkatrol naik sebagai pelamar yang diterima. Sebab, 3 orang yang diterima memiliki nilai jauh di atas Kahiyang 421, 414, dan 409 untuk TWK, TIU dan TKP.

Kahiyang Ayu cuma meraih nilai 300 untuk TWK, TIU dan TKP. Nilai di atasnya masih banyak. Lagipula dia sudah pasti jatuh di bagian wawasan kebangsaan,” ucap Lancer. (Mvi/Mut)

Ahok: Simbol Bagus, Pengibaran Merah Putih Besar Perlu Tiap Tahun

Liputan6.com, Jakarta – Gubernur DKI Jakarta Basuki Tjahaja Purnama atau Ahok memuji aksi pengibaran Bendera Merah Putih raksasa berukuran 2.250 meter persegi di Tugu Monas dalam rangka peringatan Hari Bela Negara. Hal tersebut dinilai bisa menyadarkan masyarakat arti pentingnya bela negara.

“Saya kira perlu dibuat acara seperti ini. Simbolnya bagus itu, dikibarkan bendera besar. Acara seperti ini perlu dibuat setiap tahunnya untuk menyadarkan masyarakat,” ujar Ahok di Monas, Jakarta, Jumat (19/12/2014).

Menurut Ahok, bela negara bukan hanya dilakukan tentara. Masyarakat harus diberi kesadaran bahwa siapapun bisa melakukan bela negara.

“Yang perlu diketahui masyarakat negara bukan hanya gunain negara, tapi bisa siapa saja. Itu yang perlu disadarkan,” kata Ahok.

Pengibaran ini diawali aksi 3 anggota TNI yang meluncur dari puncak Tugu Monas.‬ Letnan Djatmiko, Serda Marpaung, dan Serda Joko meluncur dengan membawa tali untuk mengibarkan bendera. Pengibaran dilakukan gabungan TNI, Polri, dan Pramuka.‬ ‪Pengibaran dipimpin oleh petinju nasional Chris John yang memberikan aba-aba pengibaran.

Beberapa tokoh nasional dan menteri ikut menarik tali pengibaran bendera, seperti Menko Polhukam Tedjo Edhy Purdjiatno, Menteri Pertahanan Ryamizard Ryacudu, dan Gubernur DKI Jakarta Basuki Tjahaja Purnama. Mereka terlihat bersemangat menarik tali untuk mengibarkan Merah Putih di Tugu Monas.‬

Berdasarkan Kepres Nomor 28 Tahun 2006 ditetapkan setiap 19 Desember diperingati sebagai Hari Bela Negara untuk memperingati deklarasi Pemerintahan Darurat Republik Indonesia (PDRI) oleh Syafruddin Prawira Negara di Sumatera Barat pada 19 Desember 1948. (Mvi/Mut)

Erick Thohir siap jual DC United demi Inter

 

Milan (ANTARA News) –  Pemilik klub Internazionale Milan (Inter), Erick Thohir, berencana menjual salah satu klub miliknya di liga Major League Soccer, DC United, sebagai upaya untuk menutupi hutang Inter.

Erick Thohir bersama Rosan Roeslani dan Handy Soetedjoto akuisisi 70 persen saham Nerazzurri seharga 75 juta euro serta mengambil alih hutang klub tersebut sebesar 200 juta euro.

Seperti diwartakan Il Sole 24 dilansir dari laman Football Italia, Erick Thohir juga mendatangkan kepala keuangan DC United, Michael Williamson, untuk mengawal rencana reorganisasi struktural di Inter.

Williamson sebelumnya bekerja di DC United dalam kapasitas yang sama yakni sebagai kepala keuangan klub.

Thohir yang juga pemilik Persib Bandung dan klub NBA Philadelphia 76ers dapat mengandalkan kekayaan pribadinya sebesar 300 juta euro yang dia investasikan di saham mayoritas DC United sejak Juli 2012.

MPR Protes Singapura Tidak Perlu Digubris

 

REPUBLIKA.CO.ID, JAKARTA — Wakil Ketua MPR Hajriyanto Y Thohari mengatakan protes keberatan Singapura terhadap penamaan KRI Usman-Harun tidak perlu digubris. “Singapura itu memang keterlaluan kalau sampai tidak tahu bahwa Usman dan Harun pahlawan nasional Indonesia,” kata Hajriyanto dalam pesan singkatnya di Jakarta, Jumat.

 

Dia menilai Singapura sudah bertindak terlalu berlebihan dan tidak berperasaan telah menghukum gantung dua prajurit itu. Menurut Hajriyanto, apabila Singapura sadar sebagai negara tetangga Indonesia maka hukum gantung itu tidak mungkin dilakukan. “Maksimal hukuman seumur hidup. Kini tanpa perasaan lagi Singapura memprotes penamaan KRI Usman-Harun,” ujarnya.

 

Protes itu menurut dia menandakan Singapura tidak tahu sejarah Indonesia sebagai negara terdekatnya. Hajriyanto menilai kalau perlu Indonesia membuat lagi kapal perang lebih besar dan lebih canggih serta dinamakan KRI Usman-Harun.

 

Sebelumnya pemerintah Singapura menyatakan keprihatinannya atas penamaan kapal perang baru milik TNI Angkatan Laut dengan nama KRI Usman Harun.

 

Penamaan kapal itu diambil dari nama dua pahlawan nasional Indonesia yaitu Usman Haji Mohamad Ali dan Harun Said. Kedua pahlawan itu mengebom MacDonald House, Orchard Road, Singapura yang menewaskan tiga orang dan melukai 33 orang.

 

Sementara itu Pemerintah Indonesia menyatakan penamaan KRI itu sudah sesuai tatanan, prosedur, dan penilaian yang berlaku di Indonesia. Selain itu, pemerintah menegaskan tidak boleh ada satu negara pun yang mengintervensi Indonesia untuk menentukan seseorang mendapat kehormatan sebagai pahlawan.

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 :

 

Invasi ke Gaza Diawali Dengan Serangan Cyber

 

JAKARTA–Peneliti dari perusahaan keamanan internet, FireEye, menemukan bahwa lonjakan serangan cyber dapat dijadikan sebagai peringatan dini untuk memprediksi konflik antar negara. Sebelum konflik di Gaza dan aneksasi Krimea baru-baru ini, analis mencatat lonjakan malware atau perangkat lunak berbahaya yang mengirimkan pesan.

“Kita bisa melihat itu setara dengan yang ada di perbatasan,” kata Kevin Thompson, seorang analis ancaman FireEye dilansir The Telegraph.

FireEye menganalisis jumlah komunikasi yang dikirim oleh program malware selama 18 bulan terakhir dengan menggunakan data yang dikumpulkan dari lebih dari 5.000 klien dan pemerintah di seluruh dunia. Mereka menemukan bahwa di tengah jutaan pesan yang ditangkap, ada lonjakan dramatis dalam sinyal malware menjelang konflik antara Rusia dan Ukraina mengenai Krimea, dan di hari-hari sebelum konflik terbaru Israel dengan Hamas di Gaza .

FireEye berharap dapat memperluas penelitian mereka untuk melihat apakah temuan tersebut berlaku dalam jangka waktu yang lebih lama. “Kami ingin melihat kembali data yang ada selama satu tahun lalu dan mencoba untuk menghubungkan itu dengan semua kejadian di dunia pada periode yang sama,” kata Thompson.

Saat ini, banyak negara yang menggunakan malware untuk mengumpulkan data intelijen dan juga untuk menyerang sasaran bagi negara-negara yang bermusuhan. “Itu hanya bagian dari usaha keamanan nasional saat ini,” kata Kenneth Geers, salah seorang peneliti.

Stewart Rowles, asisten direktur bidang operasional di sebuah perusahaan intelijen strategis, KCS, mengatakan bahwa pemerintah meningkatkan pantauan terhadap lonjakan serangan malware untuk mengidentifikasi potensi konflik.

“Malware tidak hanya digunakan oleh penipu tetapi juga oleh pemerintah dan kelompok-kelompok teroris yang kini mencurahkan segenap sumber daya untuk menciptakan prajurit cyber yang berfungsi hanya untuk memata-matai kekuatan saingan,” katanya kepada The Telegraph.

MAHASISWA STMIK PRINGSEWU KUNJUNGI Kampoeng Cyber

 

Yogyakarta – mahasiswa Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu kujungi RT36 Kampoeng Cyber yang terletak kompleks taman sari kraton Yogyakarta. Kedatangan rombongan mahasiswa STMIK Pringsewu dalam rangka kunjungan industri (KI) 2014 dengan menggunakan 5 bus yang di ikuti 250 mahasiswa dan 5 pendamping disambut langsung oleh ketua RT 36,RW 09 Taman, Kelurahan Patehan, Heri Susanto dan koordinator kampoeng cyber Koko Mariko di halaman kebun cyber 36,selasa(25/11) kemarin. Ketua RT 36 kampoeng cyber dalam sambutannya mengaku senang dengan kedatangan mahasiswa STMIK Pringsewu Yang sudah Sering Melakukan KI Setiap Tahunnya.”mudah-mudahan dari hasil kunjungan ini ada manfaatnya bagi mahasiswa-mahasiswi STMIK Pringsewu yang tentu sudah kompeten punya kemampuan lebih untuk mengembangkan kampoeng Cyber di masing-masing wilayahnya yang bisa diterima dam didiskusikan.

 


Dimana kampoeng Cyber kehidupan warga yang rukun dengan profesi rata-rata berwirausaha untuk memasarkan produk-produk hasil kerajinannya secara Global IT. ”Kata Dia Koordinator kampoeng cyber 36, Koko Mariko mengatakan kampong cyber berdiri sejak tahun 2009 lalu dengan koneksi memilih internet service provider speedy mengadalkan kegotong-royongan warga untuk menghemat biaya.”kita gunakan sebuah jaringan internet dangan kabel Lan dengan pemasangan dari luar rumah kerumah. Bahkan kampoeng Cyber RT36 mengahdirkan akses internet secar gratis di pos ronda dan akses komunikasinya antar rumah menggunaka media social yakni facebook.”unjarnya dijelsakan dia.

 


Secara umum di kampoeng cyber RT36 taman yogyakarta yang penuh pontensi dan ingin selalu berkembang melalui teknologi informasi yang disajikan dengan warna lebih tentang potret sebuah kampoeng berserta isi. “Kampoeng yang penuh dinamika yang selalu ingin bergerak mengikuti perkembangan jaman semua berdasarkan untuk berkembangan dan dengan semangat gotong royong membangun diri. Penduduk mayoritas berkerja di sektor informal wirausaha untuk memasarkan produk dengan IT agar diketahui yang berkepentingan secara global,” ujarnya.

 

Pada kesempatan itu rombongan mahasiswa STMIK usai berkunjung di kampoeng cyber melanjutkan perjalanan menuju objek wisata kraton dan candi Borobudur. Sementara itu wakil ketua III STMIK Pringsewu, Nur Aminudin,M.T.I, Mewakili ketua yayasan, Fauzi mengatakan KI kegiatan tahunan yang dilaksanakan STMIK Pringsewu jurusan Sistem Informasi dan Manajemen Informatika sebagai salah satu cara untuk menambah ilmu dan pengalaman yang dibutuhkan dunia kerja yang belum didapatkan dalam perkuliahan. Jadi, dengan KI mahasiswa STMIK Pringsewu jurusan sistem informasi dan manajemen Informatika akan lebih mengetahui permasalahan-permasalahan yang ada secara langsung sehingga mahasiswa dapat menganalisis dan membadingkan ilmu-ilmu yang sudah dipelajari dalam perkuliahan dengan praktek yang ada dalam dunia kerja. (mul)