TUGAS 4

SEPTI

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

TUGAS 1.2

SEPTI

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

SEPTI

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

SEPTI TRI

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

SEPTI

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

SEPTI

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

septi

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

SEPTI

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

 

SEPTI T

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

SEPTI

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

Advertisements

tugas 3

SEPTI T

1.1

Private Sub Command1_Click()

Text2.Text = Val(Text1) * 0.1

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

End Sub

Private Sub Command2_Click()

Text1.SetFocus

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

End Sub

Private Sub Command3_Click()

End

End Sub

 

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

 

SEPTI TRI

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

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

 

SEPTI T

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

SEPTI

 

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 3

SEPTI T

Private Sub Command1_Click()

Text2.Text = Val(Text1) * 0.1

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

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

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

SEPTI TRI

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

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

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 SubPrivate 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 SubPrivate 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

SEPTI T

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

SEPTI

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

septi1

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

septi 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

septi

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

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.
Source : REPUBLIKA.CO.ID

Versi cetak

Aplikasi Helpline Berhasil Ringkus Polisi Korup

NEW DELHI – Lima polisi India sedang diselidiki atas tuduhan korupsi setelah para pejabat menerima keluhan dari aplikasi Helpline yang baru diluncurkan. Sejak diluncurkan pada tanggal 6 Agustus, Helpline telah menerima lebih dari 3.700 pesan WhatsApp dan 622 panggilan.

Komisaris Polisi Delhi meminta publik untuk mengirim pesan audio atau video melalui layanan pesan instan WhatsApp  jika ada polisi yang meminta suap atau melakukan pelecehan.

“Tanggapan dari masyarakat sangat baik dengan adanya aplikasi ini,” ujar wakil komisaris polisi Sindhu Pillai seperti dilansir BBC, Kamis (14/9).

Ia menambahkan, Departemen Kewaspadaan Kepolisian India sedang menyelidiki keluhan suap, korupsi, perilaku buruk dengan pengadu dan kelambanan pengaduan.

“Sebagian besar pesan yang kami terima sejauh ini dari orang yang ingin tahu tentang layanan ini, tetapi kami juga telah menerima beberapa keluhan,” kata Pillai.

Ia menjelaskan, kepolisian akan meminta pelapor untuk datang ke kantor dan memberikan pengaduan tertulis terkait audio ataupun video yang mereka kirimkan ke aplikasi Helpline. Rekaman akan diperiksa oleh tim ahli untuk memastikan keaslian dan tindakan yang akan diberikan bagi polisi yang bersalah.

Dari lima video dan audio yang diterima di aplikasi Helpline, Pillai mengatakan, departemennya telah memulai aksi dalam dua kasus, yang melibatkan lima polisi.

Dalam kasus pertama, pengadu mengirimkan rekaman video asisten subinspektur menerima suap 400 rupee. Sedangkan pada insiden kedua, rekaman audio mengungkapkan empat polisi menuntut dan menerima suap dari seorang pemilik toko.
Source : REPUBLIKA.CO.ID

Versi cetak

 

250 MAHASISWA STMIK PRINGSEWU BERTOLAK KE JOGJA BANDUNG PRINGSEWU, Minggu (23/11) merupakan jadwal pemberangkatan mahasiswa/i STMIK Pringsewu melaksanakan Kunjungan Industri (KI) ke Jogja – Bandung. Sejumlah 250 mahasiswa Program Studi Sistem Informasi dan Manajemen Informatika STMIK Pringsewu melakukan kunjungan industri di Penerbit dan Percetakan ANDI OFFSET, RT36 Kampoeng Cyber, dan PT Caladi Lima Sembilan (C59) perusahaan yang bergerak dalam industri garmen, khususnya T-Shirt sablon. Resmi berdiri pada tahun 1980, tepatnya 12 Oktober 1980. Ketua Yayasan Fauzi,S.E,M.Kom, Akt dalam sambutannya mengatakan kegiatan Kunjungan Industri sangat efektif dan memberi masukan ilmu secara praktis kepada mahasiswa, bahkan bisa sekaligus menyaksikan proses kerja maupun produksi perusahaan bersangkutan. Sehingga mahasiswa STMIK Pringsewu bisa memadukan ilmu teoritis yang telah diperoleh didalam perkuliahan selama ini. Hal itu sangat berguna sekali saat bapak/ibu lulus kelak maupun memasuki dunia kerja atau industri,” katanya, (23/11). Kegiatan Kunjungan Industri sangat berperan penting bagi perkembangan mahasiswa STMIK Pringsewu, terlebih bagi mereka para calon tenaga kerja yang handal dibidang komputer yang kelak terjun di masyarakat. Mahasiswa STMIK Pringsewu harus memiliki bekal ilmu secara matang dan wawasan yang bersifat praktis. Ilmu itu ibarat cahaya yang selalu bersama kita, sudah pasti kita lebih suka cahaya dibandingkan dengan kegelapan. Hanya orang yang mau tidur saja yang pergi ke ruang yang gelap. Akan tetapi orang yang berilmu dimensinya bercahaya. Hati dan akalnya tetap bercahaya itu yang menjadi harapan kita semua untuk seluruh mahasiswa STMIK Pringsewu.

PRINGSEWU, Minggu (23/11) merupakan jadwal pemberangkatan mahasiswa/i STMIK Pringsewu melaksanakan Kunjungan Industri (KI) ke Jogja – Bandung.
Sejumlah 250 mahasiswa Program Studi Sistem Informasi dan Manajemen Informatika STMIK Pringsewu melakukan kunjungan industri di Penerbit dan Percetakan ANDI OFFSET, RT36 Kampoeng Cyber, dan PT Caladi Lima Sembilan (C59) perusahaan yang bergerak dalam industri garmen, khususnya T-Shirt sablon. Resmi berdiri pada tahun 1980, tepatnya 12 Oktober 1980.

Ketua Yayasan Fauzi,S.E,M.Kom, Akt dalam sambutannya mengatakan kegiatan Kunjungan Industri sangat efektif dan memberi masukan ilmu secara praktis kepada mahasiswa, bahkan bisa sekaligus menyaksikan proses kerja maupun produksi perusahaan bersangkutan. Sehingga mahasiswa STMIK Pringsewu bisa memadukan ilmu teoritis yang telah diperoleh didalam perkuliahan selama ini. Hal itu sangat berguna sekali saat bapak/ibu lulus kelak maupun memasuki dunia kerja atau industri,” katanya, (23/11).

Kegiatan Kunjungan Industri sangat berperan penting bagi perkembangan mahasiswa STMIK Pringsewu, terlebih bagi mereka para calon tenaga kerja yang handal dibidang komputer yang kelak terjun di masyarakat. Mahasiswa STMIK Pringsewu harus memiliki bekal ilmu secara matang dan wawasan yang bersifat praktis.
Ilmu itu ibarat cahaya yang selalu bersama kita, sudah pasti kita lebih suka cahaya dibandingkan dengan kegelapan. Hanya orang yang mau tidur saja yang pergi ke ruang yang gelap. Akan tetapi orang yang berilmu dimensinya bercahaya. Hati dan akalnya tetap bercahaya itu yang menjadi harapan kita semua untuk seluruh mahasiswa STMIK Pringsewu.

Versi cetak

 

PRINGSEWU, Minggu (23/11) merupakan jadwal pemberangkatan mahasiswa/i STMIK Pringsewu melaksanakan Kunjungan Industri (KI) ke Jogja – Bandung.
Sejumlah 250 mahasiswa Program Studi Sistem Informasi dan Manajemen Informatika STMIK Pringsewu melakukan kunjungan industri di Penerbit dan Percetakan ANDI OFFSET, RT36 Kampoeng Cyber, dan PT Caladi Lima Sembilan (C59) perusahaan yang bergerak dalam industri garmen, khususnya T-Shirt sablon. Resmi berdiri pada tahun 1980, tepatnya 12 Oktober 1980.

Ketua Yayasan Fauzi,S.E,M.Kom, Akt dalam sambutannya mengatakan kegiatan Kunjungan Industri sangat efektif dan memberi masukan ilmu secara praktis kepada mahasiswa, bahkan bisa sekaligus menyaksikan proses kerja maupun produksi perusahaan bersangkutan. Sehingga mahasiswa STMIK Pringsewu bisa memadukan ilmu teoritis yang telah diperoleh didalam perkuliahan selama ini. Hal itu sangat berguna sekali saat bapak/ibu lulus kelak maupun memasuki dunia kerja atau industri,” katanya, (23/11).

Kegiatan Kunjungan Industri sangat berperan penting bagi perkembangan mahasiswa STMIK Pringsewu, terlebih bagi mereka para calon tenaga kerja yang handal dibidang komputer yang kelak terjun di masyarakat. Mahasiswa STMIK Pringsewu harus memiliki bekal ilmu secara matang dan wawasan yang bersifat praktis.
Ilmu itu ibarat cahaya yang selalu bersama kita, sudah pasti kita lebih suka cahaya dibandingkan dengan kegelapan. Hanya orang yang mau tidur saja yang pergi ke ruang yang gelap. Akan tetapi orang yang berilmu dimensinya bercahaya. Hati dan akalnya tetap bercahaya itu yang menjadi harapan kita semua untuk seluruh mahasiswa STMIK Pringsewu.

Versi cetak

 

PRINGSEWU, Minggu (23/11) merupakan jadwal pemberangkatan mahasiswa/i STMIK Pringsewu melaksanakan Kunjungan Industri (KI) ke Jogja – Bandung.
Sejumlah 250 mahasiswa Program Studi Sistem Informasi dan Manajemen Informatika STMIK Pringsewu melakukan kunjungan industri di Penerbit dan Percetakan ANDI OFFSET, RT36 Kampoeng Cyber, dan PT Caladi Lima Sembilan (C59) perusahaan yang bergerak dalam industri garmen, khususnya T-Shirt sablon. Resmi berdiri pada tahun 1980, tepatnya 12 Oktober 1980.

Ketua Yayasan Fauzi,S.E,M.Kom, Akt dalam sambutannya mengatakan kegiatan Kunjungan Industri sangat efektif dan memberi masukan ilmu secara praktis kepada mahasiswa, bahkan bisa sekaligus menyaksikan proses kerja maupun produksi perusahaan bersangkutan. Sehingga mahasiswa STMIK Pringsewu bisa memadukan ilmu teoritis yang telah diperoleh didalam perkuliahan selama ini. Hal itu sangat berguna sekali saat bapak/ibu lulus kelak maupun memasuki dunia kerja atau industri,” katanya, (23/11).

Kegiatan Kunjungan Industri sangat berperan penting bagi perkembangan mahasiswa STMIK Pringsewu, terlebih bagi mereka para calon tenaga kerja yang handal dibidang komputer yang kelak terjun di masyarakat. Mahasiswa STMIK Pringsewu harus memiliki bekal ilmu secara matang dan wawasan yang bersifat praktis.
Ilmu itu ibarat cahaya yang selalu bersama kita, sudah pasti kita lebih suka cahaya dibandingkan dengan kegelapan. Hanya orang yang mau tidur saja yang pergi ke ruang yang gelap. Akan tetapi orang yang berilmu dimensinya bercahaya. Hati dan akalnya tetap bercahaya itu yang menjadi harapan kita semua untuk seluruh mahasiswa STMIK Pringsewu.

Versi cetak