TUGAS 4

IMAM

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

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

IMAM

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

IMAM

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

IMAM

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

IMAM

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

IMAM

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

IMAM

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

IMAM

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

IMAM

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

imam 1

TUGAS 1.1
Private Sub Command1_Click()
Text2.Text = Val(Text1) * 0.1
Text3.Text = Val(Text1) – Val(Text2)
End Sub

imam2

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

IMAM 3

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

IMAM 4

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

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

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 = Text2.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

IMAM 1

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

 

IMAM 2

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

IMAM 3

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

Seorang Jurnalis dan Dosen Dikeroyok Pemuda di Depan Kampus

KENDARI, KOMPAS.com — Aksi kekerasan terjadi di depan kampus Universitas Haluoleo (Unhalu) Kendari, Sulawesi Tenggara, Sabtu (29/6/2013) malam. Kamaluddin (25), jurnalis harian Kendari Pos dan Asep, dosen Unhalu, dianiaya sekelompok orang tak dikenal saat melintas di depan Kampus Unhalu.

Korban dipukul dengan menggunakan balok (kayu) sehingga mengakibatkan bibir kanan atas pecah dan bengkak. Tak hanya itu, kepala bagian belakang juga menjadi sasaran kebrutalan sekelompok pemuda.

Korban kemudian dilarikan ke RS Bhayangkara untuk mendapat perawatan intensif. Salah seorang saksi mata yang enggan menyebutkan namanya menuturkan, sekelompok pemuda berjumlah 10 orang memblokade jalan di depan pintu dua gerbang kampus Unhalu. Mereka menghadang semua kendaraan yang melintas di Jalan HEA Mokodompit.

“Kendaraan yang melintas disuruh putar balik, kayaknya mereka sementara (sedang) mabuk. Pas korban melintas dipalak kemudian dikeroyok orang-orang itu dengan menggunakan balok-balok,” tuturnya, Minggu (30/6/2013).

Selain Kamaluddin, beberapa orang lainnya ikut menjadi korban kekerasan. Ketua DPM Fisip Unhalu, Asep, juga menjadi korban. Kedua tangannya terluka akibat sabetan parang. Sebuah mobil angkutan kota juga dirusak dan kaca-kaca mobil itu juga dipecahkan oleh para pelaku.

Kapolresta Kendari AKBP Anjar Wicaksana yang dikonfirmasi menyatakan, peristiwa itu terjadi pada Sabtu (29/6/2013) sekitar pukul 17.30 Wita. Sekelompok pemuda di sekitar Jalan HEA Mokodompit menghalau seluruh pengguna jalan yang melintas, baik angkutan kota maupun pengguna kendaraan roda dua.

“Sekelompok pemuda itu memalang angkot dan mereka menyuruh putar kembali. Saat angkot memutar, kaca bagian belakang dipecahkan, secara bersamaan Kamaluddin melintas langsung dipukuli sehingga ikut menjadi korban,” terangnya, Minggu (30/6/2013).

Pihaknya, lanjut Anjar, masih melakukan penyelidikan dengan mencari para pelaku di lokasi kejadian itu. Sementara kendaraan tidak diperbolehkan melintas di jalur tersebut karena di lokasi masih terjadi aksi balasan oleh sekelompok pemuda lainnya.

Informasi yang dihimpun, sekelompok orang bertopeng menyerang asrama Mawasangka di lorong perintis, jalan HEA Mokodompit. Belum diketahui pasti apa motif di balik aksi penyerangan tersebut.

Sebelumnya, aksi kekerasan antarkelompok pemuda di Jalan HEA Mokodompit hampir terjadi setiap tahun. Rentetan insiden tawuran itu bahkan mengakibatkan korban jiwa dan kerugian materi.


Pria bertato ini tewas dikeroyok massa seusai bacok satpam Unnes

Aksi pembacokan terjadi di lingkungan kampus Universitas Negeri Semarang (Unnes). Kali ini, dua pria bertato nekat membacok seorang satpam Fakultas Teknik Unnes, pada Jumat (22/8) sekitar pukul 20.15 WIB. Seorang pelaku tewas dikeroyok massa yang memergoki aksinya.

Pria bertato ini tewas dikeroyok massa seusai bacok satpam Unnes

Peristiwa tersebut berawal saat ada dua pemuda yang berusaha merampas uang milik satpam Agus Setiawan (27), warga Tinjomoyo Baray RT 01/RW 08 Sukorejo Kecamatan Gunungpati Kota Semarang Jawa Tengah. Saat itu, korban yang sedang berjaga di Fakultas Teknik Unnes tiba-tiba didatangi dua pemuda tak dikenal.

Seorang di antara mereka langsung mengalungkan celurit dan seorang yang lain berusaha merampas dompet korban. Meski dalam ancaman celurit, korban berusaha melawan. Pelaku pun membacokkan celuritnya hingga melukai tangan korban.

“Korban dan pelaku sempat tarik menarik celurit. Korban berteriak-teriak minta tolong,” kata Kapolsek Gunungpati, Kompol Masrukin.

Beruntung teriakan korban didengar beberapa warga. Mereka pun mendatangi lokasi kejadian dan membantu korban. Begitu melihat kedatangan warga, seorang pelaku melarikan diri. Namun naas, seorang pelaku lain yang tubhnya penuh dengan tato dihajar massa sampai tewas.

“Tangan korban kena sabetan celurit dari pelaku. Sedangkan seorang pelaku yang penuh tato tewas di lokasi kejadian dan satu lagi kabur,” kata Kanitreskrim Polsek Gunungpati Ipda Agus Suseno, seperti dikutipMerdeka.com.

Ingga kini polisi msih mengejar seorang pelaku yang kabur dengan mengendarr sepeda motor matic Vario berwarna merah dengan plat nomor H 8445 HQ.

10 fakta menarik dikampus kita yang perlu di kritisi

11. Mengerjakan Tugas di Kantin Kampus

Berdasarkan kejadian ini terdapat dua pandangan yang bias kita petik, yang pertama yaitu kita dapat menilai mereka melalui pandangan positif dimana mereka menggunakan waktu luang mereka untuk mengerjakan tugas kuliahnya. Disisi lain, ditinjau melalui pandangan negatifnya mereka dengan tenangnya menggunakan fasilitas kampus yang seharusnya digunakan untuk beristirahat makan siang dan sebagainya malah digunakan untuk mengerjakan tugas. Hal ini terlihat buruk karena selain kantin merupakan tempat umum, banyak orang yang membutuhkan tempat duduk untuk makan siang tapi semua meja penuh karena digunakan untuk mengerjakan tugas kuliah. Dari kejadian tersebut dapat disimpulkan bahwa dalam menggunakan waktu luang untuk mengerjakan tugas merupakan hal yang sangat inovatif tapi harus dikerjakan di tempat yang sesuai, buak di tempat umum seperti kantin.

22.1

2.Bermain Gadget Ketika Sedang Kuliah

Menggunakan Gadget ketika sedang kuliah merupakan suatu perbuatan yang tidak baik, hal ini terjadi karena ketika ketika mereka menggunakan gadget saat kuliah yang dirugikan bukan hanya diri sendiri, melainkan orang disekitar pengguna. Ketika sesorang bermain gadget saat kuliah berlangsung otomati siswa yang lain akan ikut terpancing dengan kesibukan sipemain yang mengakibatkan beberapa orang terlibat didalamnya. Sehingga pelajaran yang diajarkan tidak ada yang bias dimengerti.

33. Sistem Drainase Yang Buruk

Berdasarkan gambaran yang kami peroleh, setiap kali turun hujan di tempat yang sama pasti terjadi kejadian yang sama, dimana terdapat genangan air yang kotor dan merusak pandangan. Hal ini terjadi karena buruknya sistem drainase dan jalan yang dibuat tidak rata, sehingga jalan tidak rata dan ketika turun hujan terjadi genang air. Genangan air ini bukan hanya mengganggu penglihaan yang menyebabkan kampus IT Telkom yang terkenal dengan green kampusnya terlihat sangat jorok, mengganggu pengguna jalan baik yang berjalan kaki maupun naik motor.

4.14. Parkir Sembarangan da Tidak Sesuai Aturan

Dari kejadian yang ada, terlihat motor-motor yang parker tidak sesuait tempatnya dan aturan yang berlaku. Kejadian ini sangat sering terjadi, terutama bagi mahasiswa yang dating terlambat dan harus cepat masuk ke kelas masing-masing. Selain itu orang yang parker semoabarangan padahal didekatnya terdapat rambu dilarang parker. Hal ini pasti merugikan banyak hal karena sangat menganggu kenyamanan dalam memparkirkan motor dan mengeluarkannya dari tempat parkir.

55. Pos Satpam Yang Tidak Ada Penjaganya dan Tidak Pernah Digunakan

Ini merupakan kejadian yang sangat aneh sekaligus lucu. Hal ini terjadi karena terdapat sebuah pos satpam di dekat Student Centre dimana pos satpam itu sudah terlihat kummel karena tidak pernah diolah dan digunakan, bahkan rumput di sekitar bangunan masih tinggi dan mengganggu. Jadi kesimpulannya jika tidak mau digunakan jangan di buat jadi bias menghemat pengeluaran kampus dan lain sebagainya

66.Pemandangan Indah di Jendela ASTRI

Pemandangan ini bukanlah hal yang asing lagi di kawasan Asrama Putri kampus IT Telkom, dari kejauhan gedung Asrama Putri terlihat sangat megah, namun ketika kita sampai di dekatnya, maka kita akan melihat pemandangan yang sangat mencolok, yaitu pemandangan pakaian yang dijemur penghuni asrama yang beraneka ragam jenisnya. Menurut kami hal ini sangatlah tidak etis, apakah Asrama Putri tidak mampu menyediakan sebuah tempat untuk menjemur pakaian ?. Menurut kami hal ini harus segera di tindak lanjuti dengan segera menyediakan tempat menjemur pakaian untuk penghuni asrama.

77. Penyalahgunaan Fasilitas Kursi Kampus

Hal ini sudah biasa kita lihat di kawasan kampus IT Telkom, kursi yang harusnya digunakan untuk tempat menunggu digunakan oleh segelintir mahasiswa untuk tidur. Hal ini sangat tidak etis kursi yang harusnya digunakan secara berbagi terlihat seperti dikudeta oleh seorang mahasiswa. Maka dari itu harusnya ada tindakan seperti menempel larangan tidur di kursi, dan kitapun sebagai mahasiswa harusnya sadar bahwa kursi itu milik seluruh mahasiswa bukan perseorangan.

88. Tidur di Kelas Ketika Kuliah Sedang Berlangsung

Tidur di kelas merupakan hal yang sudah biasa terjadi di setiap kelas, setiap kelas berlangsung pasti ada 1 atau 2 mahasiswa yang menggunakan waktu belajar untuk tidur nyenyak. Kelas yang notabennya untuk belajar digunakan sebagai tempat tidur yang nyenyak dengan dongeng tidur dari sang dosen. Solusi untuk masalah ini ialah dengan cara dosen membangunkan mahasiswa yang sedang tidur atau menyuruh mahasiswa yang sudah terlihat ngantuk untuk cuci muka agar segar kembali.

9.1 9

9. Sampah yang Berserakan

Tempat sampah yang disediakan kadang kala kosong karena beberapa mahasiswa membuang sampahnya sembarangan, maupun tempat sampah yang terlalu penuh hingga sampah menggeludak keluar karena tempat sampah tidak dibersihkan oleh sang cleaning service. Hal ini sudah sangat biasa di kawasan IT Telkom ini, maka dari itu solusinya ialah dengan mengadakan sosialisasi agar mahasiswa mau membuang sampah pada tempatnya, dll serta tidak lupa untuk mengingatkan cleaning service untuk selalu membersihkan tempat sampah tiap harinya.

10.1 10

10. Sendal / Sepatu serta Rak Sepatu yang tidak Tersusun Rapi

Rak sepatu yang sudah disediakan di setiap depan Lab seringkali seperti barang yang tak pernah digunakan, karena mahasiswa lebih suka menaruh sepatu atau sandalnya di depan pintu ketimbang di rak sepatu, mungkin terlihat praktis namun dari segi estetika itu sangatlah menganggu mata. Maka dari itu solusinya ialah dengan cara yang agak sedikit kejam, yaitu dengan cara membuang ke tempat sampah sandal / sepatu yang berserakan tersebut agar memberikan efek jera bagi mahasiswa yang menaruh sepatu / sandalnya tidak pada tempatnya.

RSHS Menyesalkan Insiden Pengeroyokan Satpam pada Ortu Pasien

Avitia Nurmatari – detikNews
Bandung – Rumah Sakit Hasan Sadikin Bandung menyesalkan terjadinya pengeroyokan terhadap Roni Saputra (29), orangtua pasien, oleh sejumlah sekuriti rumah sakit. Polisi telah menetapkan enam satpam rumah sakit pemerintah tersebut sebagai tersangka dan menahannya.

“Kami menyesalkan kejadian ini bisa terjadi,” ujar Kepala Subbagian Humas RSHS Nurul Wulandhani dalam rilisnya, Senin (1/9/2014).

Menurut Nurul pihak rumah sakit menyerahkan kasus ini sepenuhnya kepada kepolisian. Namun pihak internal telah menyelidiki peristiwa ini yang berawal dari kesalahpahaman antara Roni dan petugas keamanan pada Senin, 25 Agustus.

“Berbagai keterangan telah beredar di media massa, namun untuk kepastian hukumnya kita serahkan sepenuhnya kepada kepolisian,” tandasnya.

Sejalan dengan proses hukum yang berlangsung, kata dia, RSHS mengadakan evaluasi internal mengenai kejadian ini sehingga kejadian serupa tidak akan terjadi lagi.

Dalam peristiwa ini Roni mengalami luka di bibirnya dan harus mendapatkan delapan jahitan.

Roni adalah orangtua dari pasien anak F. Pasien tersebut mulai dirawat di RSHS sejak tanggal 28 Juli 2014 untuk indikasi operasi. Setelah menjalani operasi, pasien tersebut menjalani perawatan intensif di ruang Perinatal Intensif Care Unit (PICU) RSHS selama beberapa hari. Setelah kondisi pasien membaik, pada tanggal 24 Agustus 2014, pasien dipindahkan ke ruang perawatan Anthurium. Hari Sabtu sore tanggal 30 Agustus 2014, pasien meninggalkan RSHS setelah dinyatakan dapat menjalani perawatan rawat jalan oleh dokter yang bertanggung jawab.

250 MAHASISWA KI 2014 KE JOGJA – BANDUNG

PRINGSEWU – Sebanyak 250 mahasiswa-mahasiswi STMIK Pringsewu dan didampingi lima pendamping melakukan Kunjungan Industri (KI) 2014 menuju Jogja-Bandung dengan selama enam hari mulai Minggu (23/11) hingga Jumat (28/11) mendatang.
Pelepasan rombongan mahasiswa-mahasiswi KI 2014 dengan menggunakan 5 bus secara simbolis dilepas langsung oleh Ketua Yayasan STMIK Pringsewu, Fauzi, S.E., M.Kom., Akt., bertempat dihalaman Pendopo Pringsewu, Minggu (23/11).
Acara pelepasan yang juga dihadiri jajaran para dosen, staff, dan para pengurus Badan Kesekutif Mahasiswa (BEM) STMIK Pringsewu.
Ketua Yayasan Fauzi, S,E., M.Kom., Akt., dalam pengarahan mengatakan bahwa konsep mahasiswa yang melakukan KI 2014 belajar melihat dalam perjalanan langsung di lapangan.
“Bahkan KI periode ini langsung seminar di lokasi atau di CV. Andi Offset sebuah perusahaan yang bergerak dibidang dipercitakan surat kabar dan pnerbitan buku. Sehingga mahasiswa bisa bertanya belajar langsung melihat dari segisistem percetakan hingga penjualan buku”, ujarnya.
Lanjut dia, bahwa tergantung dari sudut pandang mahasiswa STMI ada perbedaan setiap kunjungan industri yang dilihat.
“Karena mahasiswa sistem informasi dan manajemen harus bisa apa yang diperhatikan dilihat bisa bermanfaat niat, nawaitu untuk belajar jangan sampai salah,” ujar Fauzi.
Ia juga berharap kepada mahasiswa-mahasiswi STMIK Pringsewu yang melakukan KI 2014 tidak terjadi hal-hal yang diinginkan sampai melanggar hokum.
“Karena niat untuk belajar jangan sampai salah memalukan nama baik kampusdapat dijaga, ucapan dengan baik dengan kekompakan selalu berdoa selama perjalanan Insyaallah dapat berjalan lancer,” pesan Fauzi.
Menurut Fauzi,bahwa dalam KI 2014 mahasiswa STMIK Pringsewu tujuan akhirnya untuk mendapatkan ilmu. “Jadi, apa yang sudah dilihat, dikunjungi dikampung internet maupun pabrik konvensi C59 mahasiswa bisa belajar untuk ditereapkan dimasing-masing kampung halamannya bagaimana cara memasarkan produk melalui internet,” ucapnya.
Sementara itu, Wakil Ketua III STMIK pringsewu, Nur Aminudin,M.T.I mengatakan, KI adalah 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 permasalahn-permasalahan yang ada secara langsung, sehingga mahasiswa dapat menganalisis dan membandingkan ilmu-ilmu yang sudah dipelajari dalam perkuliahan dengan praktek yang ada dalam dunia kerja,” jelasnya.
Dijelaskan dia, bahwa jadwal KI 2014 mahasiswa STMIK Prinsewu yang berlangsung selama enam hari rencana dibeberapa tempatobjek wisata di Jogja dan Bandung.
“Hari Senin (24/11) tiba dijogja rencana menuju objek wisata keratin Joga, percetakn CV. Andi Offset dan candi prambanan dan Malioboro. Kemudian hari Selasa KI IT di kampoeng Cyber kelurahan Patehan kecamatan Kraton Yogyakarta. Usai acara di Kampoeng Cyber menuju objek wisata Borobudur,” terang Nur.
Setelah itu lanjut Nur Aminudin, pada jadwal KI 2014 mahasiswa STMIK Pringsewu Rabu (26/11) tiba di Bandung rencana menuju Tangkuban Perahu dan produksi kaos C59 serta kerajinan kulit Cibaduyut. “Hari Kamis (26/11) menuju trans Studi dan Jumat (28/11) pagi sudah sampai tiba di Kampus STMIK Pringsewu,” pungkasnya. (mul)
Sumber : Radar Pringsewu, Senin (24/11)

Versi cetak

STMIK PRINGSEWU KI KE PABRIK KAOS C59 BANDUNG

BANDUNG – Sebanyak 250 mahasiswa-mahasiswi Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu melakukan Kunjungan Industri (KI) 2014 di pabrik kaos C59Bandung, Rabu (26/11) kemarin.

Kedatangan rombongan mahasiswa-mahasiswi STMIK Pringsewu dengan menggunakan 5 bus yang didampingi lima orang pendamping langsung diterima oleh Bagian Promosi dan Marketting perusahaanC59 Bandung, Rawi beserta jajarannya.

Pada kesempatan itu juga seluruh mahasiswa diajak berkeliling di pabrik kurang lebih sekitar satu hektar yang terletak di Jalan Cigadung Raya Timur No.107, Bandung untuk melihat secara langsung bagaimana cara membuat produk-produk pakaian bermerkC59 dan outlet penjualannya.

Bagian Promosi dan Marketing perusaahan C59 Bandung, Rawi menyampaikan ucapan terimakasih dengan kunjungan yang dilakukan mahasiswa STMIK Pringsewu.

“Apalagi kita juga sering mendapatkan order produk C59 dari Provinsi Lampung. Mudah-mudahan kami bias menjadi inspirasi dan menambah wawasan bagi mahasiswa STMIK Pringsewu atas kedatangan kunjungannya,” ujarnya.

Menurut dia, bahwa produk C59 pemasaran sudah bias dilihat di mana-mana dan cabang retailnya bertebaran di seluruh pelosok Indonesia serta luar negeri.

“Bahkan pemasaran produk C59 kami juga sudah sampai ke Malaysia. Tapi, tapi kami tidak ekspor orang yang langsung dating kesini. Selain itu juga bisa membuat pesanan desain yang kami tawarkan maupun desain sendiri sesuai permintaan anda dari kain polos menjadi sebuah produk yang bisa dipakai atau anda jual kembali dengan mengutakan kualitas dan mutu pelayanan dan service terjamin,” tutur Rawi.

Selain itu, lanjut Rawi, bahwa pihak C59 terus membimbing generasi-generasi yang lebih muda untuk membangun peluang wirausaha dengan cara menawarkan kerjasam lewat kunjungan kresatif baik di instansi pemerintahan maupun swasta serta perguruan tinggi.

“Yang jelas kita juga siap selalu membantu terbuka bagi siapapun atau mahasiswa yang ingin bekerjasama berwirausaha menjual produk C59 ditempat tinggalnya dengan desain sama harga murah minimal pemesanan 50 potong. Bahkan para pekerja dari sini biasa setelah keluar sudah bisa langsung membuka usaha yang sama seperti ini,” tuturnya.

Sementara itu, Pendamping STMIK Pringsewu, Noprianto mengatakan, dari hasil KI 2014 mahasiswai STMIK di pabrik C59Bandung terlihat banyak manfaat yang diambil karena sangat mudah untuk membuka peluang berwirausaha secara mandiri.

“Karena kalau saya melihat alat-alat yang digunakan tidak perlu begitu banyak memerlukan alat modern. Jadi, dari KI di sini tentu akan bisa membuka peluang usaha kreatif mandiri bagi mahasiswa STMIK setidak agar bisa meniru berwirausaha,” ujarnya.

Dijelaskan Nopriyanto, manfaat bagi para mahasiswa yang sudah pasti bisa membaca peluang ingin berwirausaha minimal nanti dapat membantu meringankan beban kuliah tidak lagi sepenuh menggantungkan orang tuanya.

“Apalagi C59 selalu siap berkerjasama untuk membantu mahasiswa menjual dan memasarkan produknya. Untuk itu kita berharap kedepannya para mahasiswa dari hasil KI disini langsung bisa menerapkan ilmu wirausaha di masing-masing tempat tinggalnya,” harapnya.

Pada kesempatan itu juga rombongan mahasiswa STMI Pringsewu usai berkunjung di Pabrik C59 Bandung langsung melanjutkan perjalanan menuju objek wisata gunung Tangkuban Perahu dan kerajinan Kulit CIbaduyut. (mul)

Versi cetak

POLISI BUBARKAN PEMUDA PESTA MIRAS

Selasa, 16-07-2013 12:20

Polisi Bubarkan Pemuda Pesta Miras : aktual.co

ilustrasi Minuman Keras miras alkohol (Foto: Aktual.co/Istimewa)

“Kalau bisa tiap malam patroli ke kawasan ini pak, karena para anak muda itu hampir tiap malam mereka kumpul-kumpul dan kemungkinan pesta minuman keras. ‘Gak’ ada yang berani ‘negur’ karena kebanyakan orang dekat kawasan ini juga,” ucap penjaga malam

Jakarta, Aktual.co — Unit Patroli Kota Regu III Satuan Sabhara Polresta Banjarmasin, Kalimantan Selatan, dini hari membubarkan sejumlah pemuda yang sedang pesta minuman keras (miras) di pangkalan ojek Jalan Sultan Adam.

Peristiwa terjadi ketika itu unit patroli melintas di pangkalan ojek depan gedung SMAN 5 Banjarmasin, dan melihat anak-anak muda sedang berkumpul di depan sekolahan tersebut.

Polisi yang menggunakan mobil patroli bersama wartawan bermaksud menghampiri kerumunan itu. Belum sampai ke kerumunan tersebut, semua orang di tempat tersebut berhamburan lari meninggalkan tempat mereka karena mengetahui polisi hendak menghampiri.

Polisi langsung memeriksa tempat mereka, dan menemukan setengah botol miras yang tak sempat dibawa lari para pemuda yang kabur.

Polisi pun mengambil miras tersebut dan menumpahkannya dibangku tempat mereka duduk-duduk sambil memeriksa sekitar tempat tersebut, untuk mencari bukti lainnya.

Tak berapa lama, datang penjaga malam dan berkata bahwa memang tiap malam para anak muda tersebut berkumpul di pangkalan ojek itu, dan berpesta miras, tetapi tak ada yang berani menegur mereka.

“Kalau bisa tiap malam patroli ke kawasan ini pak, karena para anak muda itu hampir tiap malam mereka kumpul-kumpul dan kemungkinan pesta minuman keras. ‘Gak’ ada yang berani ‘negur’ karena kebanyakan orang dekat kawasan ini juga,” ucap penjaga malam yang tidak mau menyebutkan namanya, Selasa (16/7).

Sementara itu Kepala Satuan Sabhara Polresta Banjarmasin Kompol Haryono MT di Banjarmasin mengatakan, setiap unit patko wajib melakukan merazia penyakit masyarakat untuk cipta kondisi di bulan Ramadan.

Sasaran dan target razia pekat itu antara lain pekerja seks komersial (PSK), balapan liar, pemabuk, minuman keras, pengisap lem, senjata tajam, dan pasangan mesum di kamar hotel.

“Kami akan terus melakukan cipta kondisi di bulan Ramadhan, agar masyarakat merasa aman, nyaman dan tertib, serta meminimalisir dan mengantisipasi niat dari para pelaku kejahatan,” ucap Haryono
(Ant)