TUGAS 4

RAHAYU

HURUF MUTU

1.1 gelombang 2

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

PEGAWAI

RAHAYU

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

4. NPM

RAHAYU

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

NPM

RAHAYU

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

 

RAHAYU

PENJUALAN LAPTOP

Private Sub Combo1_Click()

Select Case Combo1.Text

Case “Apple MC965 Macbook Air”

Text1.Text = “Apple Macbook Air MC965”

Text2.Text = “128000000”

Case “Apple MC966 Macbook Air”

Text1.Text = “Apple Macbook Air MC966”

Text2.Text = “158000000”

Case “Apple MC968 Macbook Air”

Text1.Text = “Apple Macbook Air MC968”

Text2.Text = “99000000”

Case “Apple MC969 Macbook Air”

Text1.Text = “Apple Macbook Air MC969”

Text2.Text = “119000000”

Case “Apple MC700 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC700”

Text2.Text = “108000000”

Case “Apple MC721 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC721”

Text2.Text = “159000000”

Case “Apple MC723 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC723”

Text2.Text = “193000000”

Case “Apple MC724 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC724”

Text2.Text = “137000000”

Case “Apple MC311 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC311”

Text2.Text = “242000000”

Case “Apple MC313 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC313”

Text2.Text = “119000000”

Case “Apple MC314 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC314”

Text2.Text = “147000000”

Case “Apple MC318 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC318”

Text2.Text = “176000000”

Case “Apple MC322 Macbook Pro”

Text1.Text = “Apple Macbook Pro MC322”

Text2.Text = “213000000”

Case “Apple MC965 Macbook Air”

Text1.Text = “Apple Macbook Air MC965”

Text2.Text = “128000000”

Case “Apple MC966 Macbook Air”

Text1.Text = “Apple Macbook Air MC966”

Text2.Text = “158000000”

End Select

End Sub

 

 

Private Sub Command1_Click()

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

If Text4.Text > 140000000 Then

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

ElseIf Text4.Text > 135000000 Then

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

ElseIf Text4.Text > 130000000 Then

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

ElseIf Text4.Text > 125000000 Then

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

End If

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

End Sub

 

Private Sub Command2_Click()

Combo1.SetFocus

Combo1.Text = “”

Text1.Text = “”

Text2.Text = “”

Text3.Text = “”

Text4.Text = “”

Text5.Text = “”

Text6.Text = “”

End Sub

 

Private Sub Command3_Click()

End

End Sub

 

Private Sub Form_Load()

Combo1.AddItem “Apple MC965 Macbook Air”

Combo1.AddItem “Apple MC966 Macbook Air”

Combo1.AddItem “Apple MC968 Macbook Air”

Combo1.AddItem “Apple MC969 Macbook Air”

Combo1.AddItem “Apple MC700 Macbook Pro”

Combo1.AddItem “Apple MC721 Macbook Pro”

Combo1.AddItem “Apple MC723 Macbook Pro”

Combo1.AddItem “Apple MC724 Macbook Pro”

Combo1.AddItem “Apple MC311 Macbook Pro”

Combo1.AddItem “Apple MC313 Macbook Pro”

Combo1.AddItem “Apple MC314 Macbook Pro”

Combo1.AddItem “Apple MC318 Macbook Pro”

Combo1.AddItem “Apple MC322 Macbook Pro”

Combo1.AddItem “Apple MC965 Macbook Air”

Combo1.AddItem “Apple MC966 Macbook Air”

End Sub

 

Private Sub text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

JUAL LAPTOP

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

If Text4.Text > 140000000 Then

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

ElseIf Text4.Text > 135000000 Then

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

ElseIf Text4.Text > 130000000 Then

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

ElseIf Text4.Text > 125000000 Then

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

End If

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

End If

End Sub

PENJUALAN KOMPUTER

rahayu

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

DAATA BUKU

RAHAYU

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

 TIKET

RAHAYU

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

DATA BUKU STMIK

RAHAYU

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

Tugass 3

RAHAYU

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

rahayu

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

2.2 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.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

RAHAYU

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

RAHAYU

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

rahayu

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

rahayu 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

rahayu 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

Suriah Bersama Iran-Swiss Bahas Kebutuhan Kemanusiaan Suriah

REPUBLIKA.CO.ID, TEHERAN — Para pejabat Suriah-Iran-Swiss atas undangan Kementerian Luar Negeri Iran Selasa mengatakan pertemuan di Teheran untuk membahas kebutuhan-kebutuhan kemanusiaan di Suriah dan bagaimana menanggapi mereka.

Pihak Suriah dipimpin oleh Asisten Menteri Luar Negeri dan Ekspatriat Hussam Eddin Alla, Iran dipimpin oleh Asisten Menteri Luar Negeri untuk Urusan Arab dan Afrika Hossein Amir Abdullahian, sementara pihak Swiss dipimpin oleh Wakil Direktur Badan untuk Pengembangan dan kerja sama (SDC) Swiss Manuel Bessler.

Pada pertemuan tersebut, Alla memberikan penjelasan mengenai kondisi kemanusiaan di Suriah. Dia pun menggarisbawahi tindakan khusus pemerintah untuk masalah kemanusiaan dan upaya terus-menerus untuk menyediakan kebutuhan warga tanpa diskriminasi.

Alla mengkaji faktor-faktor yang mengakibatkan meningkatnya kebutuhan kemanusiaan di Suriah, terutama kegiatan kelompok teroris bersenjata dan sanksi-sanksi sepihak yang diberlakukan oleh beberapa negara terhadap Suriah.

Ia juga meninjau upaya pemerintah untuk mendistribusikan bantuan kemanusiaan, rehabilitasi infrastruktur dan gedung-gedung negara, pemberian santunan kepada orang yang terkena terorisme, dan memfasilitasi pekerjaan organisasi-organisasi kemanusiaan internasional.

Alla mengucapkan terima kasih kepada pemerintah Iran untuk dukungan terhadap rakyat Suriah dan mengadakan pertemuan ini. Dia menyuarakan harapan untuk kerja sama yang erat dengan pihak Swiss di bidang pekerjaan kemanusiaan dan mencabut sanksi-sanksi terhadap Suriah.

Suriah Lewati Batas Waktu Penyerahan Senjata Kimia

REPUBLIKA.CO.ID, AMSTERDAM — Suriah pada Rabu (5/2) telah melewatkan tenggat waktu untuk menyerahkan seluruh material beracun dan semua senjata kimia mereka. Pengawas senjata dunia menetapkan keputusan beberapa minggu sebelum jadwal dan mengatakan tanggal 30 Juni nanti merupakan batas akhir penyerahannya.

Pada saat yang bersamaan aktivis dari oposisi menyatakan, angkatan udara Suriah menyerang kota terbesar negara itu, yakni Aleppo. Kota Aleppo dihujani bom barel, sehingga banyak warga yang mengungsi ke beberapa wilayah, seperti ke perbatasan-perbatasan.

Ketika itu Turki berpaling dengan menyatakan, beberapa kamp pengungsi di negaranya telah penuh. Berdasarkan kesepakatan yang dicapai pada bulan Oktober antara Rusia dengan Amerika Serikat (AS), Suriah menyetujui untuk menyerahkan seluruh persediaan senjata kimia mereka pada tanggal 5 Februari 2014.

Kesepakatan itu pun menyebutkan, bahwa diturunkannya perbantuan untuk mencegah serangan rudal AS terhadap pemerintahan Presiden Suriah Bashar al-Assad. Sebelumnya pada Selasa (4/2) Rusia menyatakan sekutunya Damaskus akan mengirimkan segera lebih banyak bahan kimia.

Namun, para diplomat Barat mengatakan, tak melihat adanya indikasi pengiriman senjata yang tertunda. Suriah memang berjanji akan mengajukan jadwal penyerahan senjata kimia mereka ke Organisasi Pelarangan Senjata Kimia (OPCW). Namun belum menginformasikan, kapan tepatnya hal itu direalisasi.

Dikutip dari Reuters, Rabu (5/2), Juru Bicara OPCW, Michael Luhan mengatakan, bahwa tidak ada pengiriman senjata sejak tanggal 27 Januari kemarin. Ia menjelaskan, bahkan batas akhir tenggat waktu yang diberikan pun sudah terlewat. ”Ini adalah status quo, hingga kami mencapai rencana,” ujarnya.

Presiden Korsel peringatkan Korut tetap jalankan rencana reuni

Seoul (ANTARA News) – Presiden Korea Selatan Park Geun-Hye pada Jumat memperingatkan pihak Korea Utara untuk tidak mengingkari kesepakatan menjadi tuan rumah acara reuni bagi keluarga yang terpisah akibat Perang Korea.

Komentar Presiden Park itu disampaikan sehari setelah pihak Korut menyatakan akan mempertimbangkan kembali komitmennya untuk acara reuni keluarga, terkait dengan latihan militer gabungan Korea Selatan-Amerika Serikat dan adanya artikel “fitnah” di media Korea Selatan.

Padahal, kedua belah pihak dalam pembicaraan pada Rabu (5/2) telah setuju untuk mengadakan reuni bagi beberapa ratus anggota keluarga Korea pada 20-25 Februari.

Sebelumnya, acara reuni serupa telah direncanakan untuk dilaksanakan pada September lalu, namun Korea Utara membatalkan rencana reuni empat hari sebelum acara itu dilaksanakan. Oleh karena itu, President Park menekankan pada Korut untuk tidak mengulang tindakan yang sama kali ini.

“Korea Utara tidak boleh lagi mengulang tindakan yang menyakiti keluarga yang terpisah begitu dalam,” kata Park sebelum memulai pertemuan dengan para pejabat pemerintahan dan militer Korsel.

Park lebih lanjut mengatakan reuni keluarga akan memberikan momentum bagi rekonsiliasi di semenanjung Korea.

Namun, ia juga menyatakan keprihatinan atas “ketidakstabilan” di Korea Utara setelah adanya “pembersihan” dan eksekusi terhadap paman dari pemimpin Korea Utara Kim Jong-Un dan mentor politik Korut Jang Song-Thaek.

Sejak awal tahun ini, Korea Utara telah memainkan dua peranan yaitu sebagai elang dan merpati, dimana Korut sempat mengancam Korsel jika tetap melanjutkan rencana latihan militer gabungan dengan AS, tetapi Korut juga mengusulkan serangkaian langkah-langkah potensial untuk mengurangi ketegangan.

“Baru-baru ini, Korea Utara telah mengusulkan langkah-langkah perdamaian, tetapi kita harus tetap dan lebih waspada dalam segala hal,” kata Presiden Park, seperti dilaporkan AFP.

“Kita harus mempertahankan postur pertahanan yang kuat dalam rangka mencegah tindakan provokatif oleh Korea Utara. Dan jika Korut memang memprovokasi, kita harus menghukum mereka secara menyeluruh,” lanjutnya.

Jutaan warga Korea telah dipisahkan oleh Perang Korea yang berlangsung pada 1950-1953, dan sebagian besar dari mereka telah meninggal dunia tanpa pernah berkomunikasi sama sekali dengan keluarga yang selamat.

(Y012)

IBADAH QURBAN 1435 H

STMIK Pringsewu – Seperti tahun-tahun sebelumnya, Yayasan Pendidikan Starteck dan Mahasiswa/i STMIK Pringsewu akan kembali mengadakan pemotongan hewan qurban di halaman Kampus STMIK Pringsewu. Qurban tersebut akan dibagikan kepada masyarakat kurang mampu agar sama-sama dapat merasakan kebahagian pada hari raya idul adha. Insya’Allah Jumlah hewan ternak yang diqurbankan berupa 3 (tiga) ekor sapi.

Alhamdulillah, Insya’Allah sebentar lagi kita akan melaksanakan ibadah Qurban 1435 H yang menyimpan pelajaran yang sangat berharga bagi kaum Muslimin. Hikmah ibadah qurban tidak akan pernah hilang dimakan waktu. Dengan ibadah qurban tersebut dapat dijalin taqarrub ila Allah yaitu mendekat diri kepada Allah SWT. Shalat hari raya termasuk khususiat atau keistimewaan bagi umat Islam seperti juga shalat istisqa’ (minta hujan) dan kusuf (gerhana matahari). Di antara dua shalat hari raya itu maka shalat Idul Adha lebih afdal dari shalat Idulfitri karena terdapat nas Al-Quran QS. (Al-Kautsar : 2) – “Oleh itu, kerjakanlah shalat (Idul Adha) karena Tuhanmu semata-mata, dan sembelihlah qurban (sebagai bersyukur).” Ibadah yang dituntut pada Idul Adha bukan sebatas ibadah jasadi yaitu shalat tetapi juga ibadah yang melibatkan pengorbanan harta yaitu melakukan penyembelihan hewan qurban yang sunat muakkad bagi umat Islam dan makruh meninggalkan oleh orang yang mampu.

Rasulullah SAW : “Siapa yang mempunyai kemampuan untuk berqurban tetapi tidak berqurban, maka jangan hadir di tempat shalat kami.” Semoga saja bagi yang melakukan qurban di hari tersebut diampunkan dosanya dan ahli rumahnya pada titik pertama darah sembelihan qurban tertumpah ke tanah. Berqurban adalah bukti taqwa dan tawakkal kepada Allah SWT, yang akan menumbuhkan semangat hidup tidak pernah mengenal putus asa dari lindungan Allah SWT.

Dalam QS. (65 : 2-3)“Barangsiapa bertakwa kepada Allah niscaya Dia akan mengadakan baginya jalan keluar, dan memberinya rezki dari arah yang tiada disangka-sangkanya. Dan barangsiapa yang bertawakkal kepada Allah niscaya Allah akan mencukupkan (keperluan) nya. Sesungguh nya Allah melaksanakan urusan yang (dikehendaki) Nya. Sesungguh nya Allah telah mengadakan ketentuan bagi tiap-tiap sesuatu.”

Beruntunglah bagi orang bertakwa, Berbahagia orang yang bertawakkal kepada Allah SWT, Hidup didunia diperlukan sikap teguh pantang menyerah, setiap insan Muslim selalu hidup dalam sikap optimis dengan taqwa yang benar kepada Allah SWT dan senantiasa berserah diri kepada Allah SWT.
Ujian kesabaran dan ketaatan.

Berqurban ialah menyembelih hewan yang dikhususkan pada waktu yang dikhususkan dan syarat-syarat yang dikhususkan pula dengan niat qurbah (mendekatkan diri kepada Allah SWT). Di balik itu semua tersimpan sesuatu pelajaran berharga yaitu tauhid dan ikhlas semata untuk Allah SWT. Kedudukan tauhid dalam ibadah adalah wajib dan menjadi landasan ibadah. Maka tidak sah ibadah seseorang kecuali dengan tauhid. Allah SWT memerintahkan kepada Rasul Nya Nabi Muhammad SAW agar menjadikan shalat dan sembelihannya ikhlas untuk Allah SWT saja, tidak ada serikat bagi-Nya.

“Sesungguhnya shalatku, ibadahku, hidupku, dan matiku hanyalah untuk Allah, Rabb semesta alam, tiada sekutu bagi-Nya. Dan demikian itulah yang diperintahkan kepadaku dan aku adalah orang yang pertama-tama menyerahkan diri (kepada Allah).” (QS. Al – An’am : 162-163)

Menyembelih hewan qurban adalah salah satu syiar Islam terbesar, karena kemenangan tauhid dalam peribadahan. Pelaksanaan penyembelihan qurban semata karena kecintaan kepada Allah SWT, sesuai yang dicontohkan Ibrahim AS yang sudah lama berdoa kepada Allah SWT. Dalam QS. (As-Shaffat : 102) Maka tatkala anak itu (Nabi Ismail as) sampai (pada umur sanggup) berusaha bersama-sama Ibrahim, Ibrahim berkata: “Hai anakku sesungguhnya aku melihat dalam mimpi bahwa aku menyembelihmu. Maka fikirkanlah apa pendapatmu ! ” Ia menjawab: “Hai bapakku, kerjakanlah apa yang diperintahkan kepadamu; insya Allah kamu akan mendapatiku termasuk orang-orang yang sabar”.

Terdapat beberapa hikmah yang dapat dipetik dari ayat di atas, diantara hikmah-hikmahnya :

Bahwa Nabi Ibrahim as merupakan seorang nabi yang patut dijadikan teladan, khususnya dalam masalah pengorbanan. Demikian pentingnya kita mengambil pelajaran dan keteladanan dari Nabi Ibrahim as, hingga Allah SWT menyebutkan tentang kisah Nabi Ibrahim di dalam Al-Qur’an sebanyak 25 kali yang mencakup 156 ayat yang tersebar di dalam 20 surat di dalam Al-Qur’an. Berikut adalah diantara keistimewaan Nabi Ibrahim as :

Beliau mendapatkan julukan sebagai ( أبو الأنبياء ) Abul Anbiya’ (Bapaknya para Nabi dan Rasul), karena dari garis keturunan beliau, lahirlah nabi Ismail dan nabi Ishak. Dari keturunan kedua nabi ini muncul banyak nabi dan Rasul. Dan dari keturunan nabi Ismail as, lahirlah para nabi dan rasul, dan yang paling terarkhir adalah nabi kita, nabi Muhammad SAW.
Selain Abul Anbiya’, Nabi Ibrahim as juga mendapatkan julukan ( أبو الضيفان ) Abu Dhaifan (Bapaknya para tamu). Karena beliau memiliki sifat mulia, suka menjamu para tamu, khususnya ketika datang tamu yang kemudian beliau menyuguhkan daging anak sapi gemuk yang dibakar (dipanggang) yang tenyata mereka adalah para Malaikat yang mulia.
Beliau juga disebut sebagai ( أبو التوحيد ) Abu Tauhid, atau Bapak agama Tauhid. Hal ini karena keistiqamahan dan kekokohan beliau dalam mentauhidkan Allah dan dalam memberantas kemusyrikan, walalupun berakibat buruk bagi keselematan beliau.
Nabi Ibrahim as juga merupakan satu-satunya Nabi yang Allah SWT sifatkan dalam Al-Qur’an memiliki ( قلب سليم ) “qalbun salim”, yaitu hati yang bersih. Bahkan Allah SWT menyebutkan istilah qalbun salim dalam Al-Qur’an sebanyak dua kali, dan keduanya hanya ketika menyebutkan nabi Ibrahim as. Kedua ayat tersebut adalah pertama dalam QS. As-Syu’ara : 89, dan Kedua dalam QS. As-Shaffat : 84.

Hal yang paling dominan pada Nabi Ibrahim as yang patut dijadikan keteladanan adalah sisi kecintaannya kepada Allah SWT dan sisi pengorbanannya yang demikian besar. Keteladanan Nabi Ibrahim as dalam hal pengorbanan demikian besarnya demi melaksanakan perintah Allah SWT dan mengharapkan ridha-Nya, bahkan hingga beliau “rela” melakukan apapun, kendatipun ketika harus mengorbankan sesuatu yang paling dicintainya yaitu putra kandungnya sendiri yang tentunya teramat sangat disayanginya. Adalah Nabi Ismail as sebagaimana digambarkan dalam QS. As-Shaffat : 102, merupakan putra yang dikorbankan oleh Nabi Ibrahim as untuk melaksanakan perintah Allah SWT. Walaupun hati terasa berat, walaupun rasa iba kepada sang anak demikian menggelora, namun kalau itu sudah menjadi ketetapan dan perintah Allah SWT, maka beliaupun siap melaksanakan apa yang Allah SWT perintahkan. Karena cinta kepada Allah haruslah berada di atas cinta kepada yang lain-lainnya. Allah SWT berfirman : Katakanlah: “Jika bapak-bapak, anak-anak, saudara-saudara, isteri-isteri, kerabat keluargamu, harta kekayaan yang kamu usahakan, perniagaan yang kamu khawatiri kerugiannya, dan rumah-rumah tempat tinggal yang kamu sukai, adalah lebih kamu cintai daripada Allah dan Rasul-Nya dan (dari) berjihad di jalan-Nya, maka tunggulah sampai Allah mendatangkan keputusan-Nya.” Dan Allah tidak memberi petunjuk kepada orang-orang fasik. (QS. At-Taubah : 24).

Bahwa terdapat beberapa pengorbanan yang dilakukan oleh Nabi Ibrahim as, dalam rangka menggapai cinta dan keridhaan Allah SWT. Diantara pengorbanan beliau adalah sebagai berikut :

Pengorbanan dalam menghilangkan kemusyrikan. Hal ini terlihat jelas sejak beliau baru tumbuh remaja. Bahkan beliau tetap dengan tegas berupaya menghilangkan kemusyrikan kendatipun yang melakukan perbuatan syirik tersebut adalah ayahnya sendiri dan juga kaumnya. Beliau mengingatkan mereka, memberi nasehat serta melakukan dialog dengan logika yang rasional. Al-Qur’an merekam kejadian tersebut :

Dan sesungguhnya telah Kami anugerahkan kepada Ibrahim hidayah kebenaran sebelum (Musa dan Harun), dan adalah Kami mengetahui (keadaan) nya.(Ingatlah), ketika Ibrahim berkata kepada bapaknya dan kaumnya: “Patung-patung apakah ini yang kamu tekun beribadat kepadanya?” (QS. Al-Anbiya’ : 51 – 52)

Ideologi keimanannya berbicara lantang menghancurkan sanubari para penyembah berhala. Bahkan dengan idiologi keimanannya ini pulalah, (bukan hanya menghancurkan sanubari mereka) namun beliau juga menghancurkan berhala-berhala buatan kaumnya dengan tangan beliau sendiri. Beliau “rela berkorban” untuk melakukan hal tersebut, meskipun beliau sadar bahwa hal tersebut akan memiliki resiko yang berat baginya; Demi Allah, sesungguhnya aku akan melakukan tipu daya terhadap berhala-berhalamu sesudah kamu pergi meninggalkannya. Maka Ibrahim membuat berhala-berhala itu hancur berpotong-potong, kecuali yang terbesar (induk) dari patung-patung yang lain; agar mereka kembali (untuk bertanya) kepadanya. (QS. Al-Anbiya’ 57 – 58)

Dan ternyata benar, kaumnya murka dan sangat marah kepada beliau, bahkan mereka bertekad untuk membakar Nabi Ibrahim hidup-hidup. Mereka berbuat demikian kaena mereka merasa tidak mampu berbicara dengan logika, ketika berhadapan dengan Nabi Ibrahim. Mereka kalap dan kehabisan akal, serta bertindak brutal dan melakukan tindakan fatal, yaitu ingin membakar nabi Ibrahim as hidup-hidup.: Mereka berkata: “Bakarlah dia dan bantulah tuhan-tuhan kamu, jika kamu benar-benar hendak bertindak”. Kami berfirman: “Hai api menjadi dinginlah, dan menjadi keselamatanlah bagi Ibrahim”. (QS. Al-Anbiya’ : 68 – 69)

Namun Allah SWT pasti akan menolong hamba-hamba-Nya yang menolong agamanya. Beliau selamat tanpa luka sedikitpun, bahkan kemudian Allah muliakan dengan mu’jizat tersebut.

Pengorbanan jiwa dan keluarga. Cobaaan dan pengorbanan Nabi Ibrahim as, ternyata tidak terhenti sampai di sini saja. Allah SWT masih ingin mendapatkan pembuktian pengorbanan Nabi Ibrahim as, sebagai bukti kecintaannya kepada Allah SWT. Sebagai manusia biasa, Nabi Ibrahin pun sangat berharap memiliki keturunan, yang kelak dapat meneruskan da’wahnya. Namun hari demi hari, minggu demi minggu, bulan demi bulan, dan tahun demi tahun berlalu, dan kehadiran sang penerus generasi belum juga muncul. Usia pun telah mulai senja, dan kekuatan Nabi Ibramin pun mulai melemah. Meskipun pada akhirnya penantian panjang ini berlalu dengan hadirnya seorang bayi sehat, cerdas dan kuat yang bernama Ismail as. Dan betapa bahagianya sang ayah ketika lahirnya Ismail as. Penantian panjangnya berbuah manis; beliau memiliki keturunan yang akan meneruskan da’wahnya kelak. Namun belum lagi kebahagiaan itu dirasakannya, tiba-tiba Allah memerintahkannya untuk meninggalkan anak dan istrinya di sebuah padang yang sangat tandus, dan tiada tanaman dan tumbuhan serta air disana. Padang itu adalah Mekah Mukarramah. Berat sebenarnya hati beliau, namun karena kecintaan beliau kepada Allah yang demikian besarnya, Nabi Ibrahim harus “rela” berkurban kembali meninggalkan anak dan istrinya di sebuah padang tandus yang tiada air, tiada tumbuhan dan tiada kehidupan tersebut. Beliau sangat yakin, bahwa Allah tidak akan mungkin menyengsarakan anak istrinya di tempat tersebut. Allah SWT berfirman :

“Wahai Rab kami, sesungguhnya aku telah menempatkan sebagian keturunanku di lembah yang tidak mempunyai tanam-tanaman, di dekat rumah Engkau (baitullah) yang dihormati. Yang demikian itu agar mereka mendirikan shalat. Maka jadikanlah hati sebagian manusia cenderung kepada mereka dan beri rizkilah mereka dari buah-buahan, semoga mereka bersyukur.” (QS. Ibrahim 37)

Siti Hajar mendidik Nabi Ismail hingga menjadi seorang remaja yang memiliki keimanan dan ketaqwaan kepada Allah SWT. Bersamaan dengan itu, Mekah lambat laun banyak dikunjungi dan dijadikan tempat tinggal oleh banyak orang, sehingga jadilah Mekah sebagai kota kecil yang sering dilalui oleh para pedagang. Tempat yang asalnya gersang, Allah cukupi dengan makanan dan buah-buahan. Hingga suatu ketika, Allah mengizinkan Nabi Ibrahim as untuk kembali ke Mekah. Dan betapa bahagianya beliau ketika bertemu dengan anaknya yang sudah sekian lama ditinggalkannya. Bersama dengan putranya Ismail, Nabi Ibrahim membangun baitullah Ka’bah al-musyarrafah. Namun kebahagiaan yang baru sebentar dinikmatinya, lagi-lagi diuji oleh Allah SWT. Allah memerintahkannya untuk menyembelih sang anak, yang teramat sangat di sayangi dan dicintainya. Setiap orang pasti akan miris hatinya, ketika diperintahkan untuk menyembelih anaknya sendiri. Dan disinilah, idiologi keimanan dalam diri Nabi Ibrahim kembali berbicara. Bahwa kecintaan kepada Allah harus didahulukan dari pada kecintaan pada apapun juga di dunia ini. Nabi Ibrahim pun mencoba mengkomunikasikan perintah Allah ini kepada Ismail as. Dan subhanallah, ketika mendengarkan hal tersebut, Nabi Ismail as yang memiliki keimanan dan ketaqwaan menerima dengan ikhlas perintah Allah tersebut. Dalam Al-Qur’an Allah menggambarkan:

“Maka tatkala anak itu sampai (pada umur sanggup) berusaha bersama-sama Ibrahim, Ibrahim berkata: “Hai anakku sesungguhnya aku melihat dalam mimpi bahwa aku menyembelihmu. Maka fikirkanlah apa pendapatmu!” Ia menjawab: “Hai bapakku, kerjakanlah apa yang diperintahkan kepadamu; insya Allah kamu akan mendapatiku termasuk orang-orang yang sabar”. (QS. As-Shaffat : 102)

Dengan hati yang ikhlas mengharapkan ridha dan cinta Allah SWT, Nabi Ibrahim melaksanakan perintah Allah tersebut. Namun ketika pisau telah siap mengenai leher Nabi Ismail, ketika itu pulalah Allah SWT mencegah beliau:

“Maka tatkala keduanya telah berserah diri dan Ibrahim membaringkan anaknya atas pelipis (nya), (nyatalah kesabaran keduanya). Dan Kami panggillah dia: “Hai Ibrahim, sesungguhnya kamu telah membenarkan mimpi itu”, sesungguhnya demikianlah Kami memberi balasan kepada orang-orang yang berbuat baik. Sesungguhnya ini benar-benar suatu ujian yang nyata. Dan Kami tebus anak itu dengan seekor sembelihan yang besar. Kami abadikan untuk Ibrahim itu (pujian yang baik) di kalangan orang-orang yang datang kemudian.” (As-Shaffat, 103-108)

Inilah gambaran pengorbanan yang sempurna dari seorang hamba demi mengharapkan keridhaan Allah SWT, yaitu pengorbanan Nabi Ibrahim as. Dan atas pengorbanan yang demikian besarnya tersebut, kita umat Islam dianjurkan untuk mengikuti keteladanan beliau untuk senantiasa berkurban dalam melaksanakan perintah Allah SWT dan demi mengharapkan cinta-Nya. Pengorbanan hakiki adalah dengan “menyembelih” sifat-sifat kenegatifan yang terdapat dalam diri kita, seperti sikap egois, mau menang sendiri, cinta dunia, ambisi terhadap harta, kedudukan, dsb. Untuk kemudian kita menjadi hamba-hamba Allah SWT yang senantiasa “sami’na wa atha’na” terhadap apapun yang diperintahkan oleh Allah SWT. Pengorbanan tersebut disimbolikkan dengan menyembelih hewan kurban pada hari raya Idul Adha bagi yang memiliki kemampuan untuk menyembelihnya. Namun yang perlu digarisbawahi adalah bahwa dalam berkurban haruslah didasari dengan keikhlasan dan ketakwaan kepada Allah SWT. Karena hewan-hewan kurban tersebut tidak akan sampai kepada Allah SWT, namun yang akan sampai kepada-Nya adalah nilai dan ketakwaan kita kepada Allah SWT. Allah SWT berfirman :
Daging-daging unta dan darahnya itu sekali-kali tidak dapat mencapai (keridhaan) Allah, tetapi ketakwaan dari kamulah yang dapat mencapainya. Demikianlah Allah telah menundukkannya untuk kamu supaya kamu mengagungkan Allah terhadap hidayah-Nya kepada kamu. Dan berilah kabar gembira kepada orang-orang yang berbuat baik. (QS. Al-Hajj : 37).

Pelajaran besar bagi umat Islam bahwa keberhasilan melaksanakan perintah Allah dapat dilakukan hanya dengan tawakkal kepada Allah melalui ujian yang berat umat terdidik menjadi sabar serta mampu meningkatkan rasa syukur agar nikmat berlipat ganda sesudah itu. Firman Allah ; “Dan bagi tiap-tiap umat telah kami syariatkan penyembelihan (qurban) supaya mereka menyebut nama Allah terhadap binatang ternak yang telah dirizkikan Allah kepada mereka, maka Tuhanmu ialah Tuhan Yang Maha Esa, karena itu berserah dirilah kamu kepada-Nya. Dan berilah khabar gembira kepada orang-orang yang tunduk patuh (kepada Allah).” (QS. Al Hajj : 34).
Syiar paling besar di dalam ibadah qurban sebagai millah Ibrahim membawa kepada puncak akhlak yakni tauhid dan ikhlas karena cinta kepada Allah. Makin mulia akhlak yang dimiliki semakin damai hidup dibumi. Sabda Rasul SAW :

Artinya, “Iman orang-orang mukmin yang paling sempurna adalah yang paling baik akhlaknya, lembut perangainya, bersikap ramah dan disukai pergaulannya” (HR.Thabrani).
Dengan keistimewaan ‘Idul Qurban ini hendaknya kita lebih dekat kepada Allah SWT dengan ketakwaan mengikuti millah hanifiyah dari Nabi Ibrahim AS dengan satu ajaran yang dibangun diatas landasan tauhid yakni beribadah hanya kepada Allah SWT saja, dan mengikhlaskan agama untuk-Nya. Oleh karena itu syiar yang besar dan pelajaran yang berharga dari ‘Idul Qurban adalah tauhid. Maka seluruh kaum Muslimin dituntut untuk memantapkan akidah tauhid ini dalam jiwa dan beramal dengan tuntunan kalimat laa ilaaha illallah menjadi kewajiban yang pertama dan terakhir dalam Islam mengharap redha Ilahi. Maka ibadah pada umumnya adalah tekad atau sikap selalu siap melaksanakan perintah Allah dengan jujur dan taat. Setia dalam menunaikan semua aturan Tuhan. Teguh (istiqamah, konsisten). Ingin selalu berbuat baik (al-khair) sesuai bimbingan Islam yang dibawa oleh Nabi Muhammad SAW.

Artinya, “Wahai orang yang beriman, rukuklah dan sujudlah (artinya patuh, taat, setia kepada aturan Allah), dan sembahlah tuhanmu, dan lakukanlah al-khair,(artinya yang baik, sesuai dengan ajaran dan syariat Islam), agar kamu berjaya menang” (QS.22, al Hajj : 77).

Mengharap ridha Allah SWT bukti ketakwaan adalah kekayaan jiwa dan sabar adalah sumber kekuatan. Kaya jiwa mematuhi semua perintah Allah SWT dengan senang hati itulah bukti sabar yang benar dan berbuat yang di ridhai Allah SWT. Firman Allah menunjukkan bagaimana Nabi Ya’kub alaihissalam mengajari anak anaknya yang pergi mencari berita tentang Yusuf dan saudaranya dengan bekal kesabaran dan teguh hati. “ dan jangan kamu berputus asa dari rahmat Allah. Sesungguhnya tiada berputus asa dari rahmat Allah, hanyalah orang-orang yang kafir” (QS. 12 : 87).

Sabda Rasulullah membimbing kita semua.

“Jauhilah oleh kalian akan dzan (prasangka), karena prasangka itu adalah dusta yang amat besar. Janganlah kalian mencari kesalahan orang lain, jangan pula mencari-cari aib (keburukan) orang lain, janganlah pula kalian bersaing (dengan tidak sehat), janganlah kalian saling iri dan dengki, jangan saling benci, jangan saling bermusuhan, dan jadilah hamba-hamba Allah yang bersaudara.” (H.R. At Tirmizi).

KUNJUNGAN INDUSTRI 2014 STMIK PRINGSEWU

Kunjungan industri adalah kegiatan tahunan yang diadakan oleh Perguruan Tinggi 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. Dengan kunjungan industri mahasiswa STMIK Pringsewu jurusan sistem informasi dan manajemen informatika akan lebih mengetahui permasalahan-permasalahan yang ada secara langsung, sehingga mahasiswa STMIK Pringsewu jurusan sistem informasi dan manajemen informatika dapat menganalisis dan membandingkan ilmu-ilmu yang sudah dipelajari dalam perkuliahan dengan praktek yang ada dalam dunia kerja.

Pada tanggal 20 Nopember 2014 pukul 14.00 WIB s/d selesai mahasiswa STMIK Pringsewu jurusan sistem informasi dan manajemen informatika dilaksanakan pembekalan kunjungan industri (di auditorium STMIK Pringsewu lantai II) yang akan bertolak ke Jogja – Bandung pada tanggal 23 s/d 28 Nopember 2014.

Rombongan mahasiswa mahasiswa STMIK Pringsewu jurusan sistem informasi dan manajemen informatika yang akan bertolak ke Jogja – Bandung pada tanggal 23 s/d 28 Nopember 2014 berjumlah 250 mahasiswa dan didampingi oleh 5 pendamping.

RT 36 Kampoeng Cyber

Kunjungan industry setiap tahunnya menuju ke RT 36 Kampoeng Cyber. Kampoeng ini terletak didalam kompleks Taman Sari Keraton Yogyakarta. Disebut Kampoeng cyber karena memang diseluruh penjuru Kampoeng ini sistem komunikasinya sudah terintegrasi melalui jaringan internet. Sehingga dari semua sudut Kampoeng ini akses internet sudah tidak ada kendala lagi bagi warganya. Yang lebih menakjubkan meskipun Kampoeng ini di tengah perkotaan faktor penghijauan juga menjadikan perhatian utama terbukti disetiap petak halaman ditanami dengan berbagai tumbuhan yang bermanfaat untuk keperluan masak sehari-hari dan berbagai jenis tanaman obat, juga tata lingkungannya sedemikan rapi dan bersih sehingga nyaman dipandang dan enak untuk sekedar keliling jalan-jalan apalagi disetiap sudutnya ditaruh tempat sampah yg sudah dibedakan untuk tiga jenis sampah (plastik, logam/kaca dan kertas).
Patut dibanggakan Kampoeng ini bisa mewujudkan impian warganya untuk menjadi Kampoeng percontohan diwilayah Jogjakarta khususnya dan seluruh Kampoeng perkotaan di seluruh Indonesia. secara umum di Kampoeng Cyber RT 36 Taman Yogyakarta. Sebuah Kampoeng yang penuh potensi dan ingin selalu berkembang. Utamanya berkembang melalui teknologi informasi yang disajikan dengan warna lebih, tentang potret sebuah Kampoeng beserta isinya. Kampoeng yang penuh dinamika yang selalu ingin bergerak maju mengikuti perkembangan jaman. Semua berdasar karena kesadaran untuk berkembang dan dengan semangat gotong royong membangun diri. Kampoeng Cyber RT 36 Taman adalah sebuah perKampoengan padat penduduk terletak di tengah kota Yogyakarta, berdampingan dengan obyek wisata pemandian Taman Sari. Penduduk mayoritas bekerja di sektor informal dan berlatar belakang pendidikan menengah, dengan jumlah penduduk 142 jiwa, terdiri dari 43 Kepala Keluarga. Secara mandiri membangun wawasan pengembangan wilayah dan sumber daya manusia melalui teknologi informasi. Mengikuti perkembangan teknologi informasi menjadi dasar keinginan untuk maju sebagai ujung tombak dalam memimpin sebuah masyarakat kecil di wilayah. Dengan teknologi informasi Kampoeng Cyber RT 36 berkeyakinan untuk dapat maju mengejar ketertinggalan dan menjembatani keterbatasan akan kekurangan. Kampoeng Cyber RT 36 RW 09 Taman Kelurahan Patehan, Kecamatan Kraton, Yogyakarta memberanikan diri untuk mencanangkan program “Kampoeng Cyber (Internet)“, sebuah proses panjang dan penuh tantangan.

Berawal pada bulan Agustus 2008 pencanangan program Kampoeng cyber, mulai dari penggunaan media blog (www.rt36taman.multiply.com) untuk pengenalan program ke warga dan sebagai publikasi kegiatan RT yang senantiasa terjaga keberlangsungannya dengan semangat kebersamaannya bahkan sebagai ikatan silahturahmi dengan warga yang ada diperantauan.

Dari semangat inilah Kampoeng cyber kemudian ingin menghadirkan media internet di tengah-tengah warga tentunya dengan harga yang terjangkau. Dengan modal kebersamaan dan kegotong-royonganlah usaha Kampoeng Cyber RT 36 dapat terwujud sekitar bulan Juni 2009. Sebuah jaringan internet (kabel) dari rumah ke rumah. Bahkan Kampoeng Cyber RT 36 menghadirkan akses internet secara gratis di ruang publik (Pos Kamling) dapat terlaksana juga. Hingga saat ini akses internet sudah tersambung ke rumah penduduk sejumlah 25 rumah. Media internet tersebut hanyalah sebuah sarana, sedangkan muatannya juga sudah berjalan seiring, mulai dari pembekalan dengan pelatihan, pendampingan dan pemberdayaan untuk berbagai macam kepentingan baik itu pribadi maupun bersama.

CV. Andi Offset

CV. Andi Offset adalah sebuah perusahaan yang bergerak di bidang percetakan dan penerbitan buku. Perusahaan ini didirikan sebagai perusahaan perorangan pada tanggal 4 Januari 1980 oleh JH Gondowijoyo dengan alamat di Jl. Beo No. 38-40 Demangan Baru, Yogyakarta 55281.

Pada awalnya seluruh aktivitas masih terbatas dalam bidang percetakan. Perusahaan mengalami perkembangan yang pesat dan pada akhir 1980-an. Berekspansi pada bisnis penerbitan. Karena perkembangan perusahaan dan sekaligus untuk meningkatkan intensitas pelayanan kepada konsumen, pada tahun 1996, CV. ANDI Offset sebagai penerbit membagi bisnis unit tersebut menjadi dua, yaitu Penerbit ANDI dan Penerbit Yayasan ANDI. Penerbit Yayasan ANDI akhirnya berganti nama menjadi Penerbit Buku dan Majalah Rohani ANDI (PBMR ANDI).

Penerbit ANDI lebih berperan dalam penerbitan buku-buku umum seperti buku-buku komputer, ekonomi, manajemen, matematika dan ilmu pengetahuan alam, teknik, kepariwistaan, dan sejenisnya. Sedangkan PBMR ANDI lebih berperan kepada buku-buku dan majalah Rohani (BAHANA, Renungan Malam, Efata). Kedua bidang penerbitan ini didukung sepenuhnya oleh satu percetakan yang kuat, yaitu Percetakan ANDI Offset. Ketiga bisnis unit tersebut dikelola sebagai satu kesatuan di bawah Percetakan dan Penerbitan CV. ANDI OFFSET.

Penerbit ANDI adalah nama salah satu lini usaha CV. ANDI OFFSET. Produknya adalah buku-buku komputer, IT, Teknik Umum dan buku pegangan matakuliah mahasiswa di jurusan Ilmu Komputer.

Sejak awal didirikan, Penerbit ANDI konsisten dalam kiprahnya di dunia penerbitan. Fokus ada pada buku komputer dan manajemen, disamping buku umum lainnya. Seiring berjalannya waktu serta komitmen perusahaan terhadap konsistensi kualitas, buku-buku terbitan Penerbit ANDI semakin mendapat tempat tersendiri di hati masyarakat. Peningkatan mutu buku dilakukan baik dengan penyaringan naskah para penulis lokal, maupun bekerja sama dengan penerbit-penerbit luar negeri yang terkenal seperti Prentice Hall yang sekarang menjadi Pearson Education Asia, McGraw-Hill, John Wiley, MacMillan, Bengk Karlof, Harvard, dll, serta didukung sumber daya penerbitan dan percetakan yang baik.

C59

Pada tahun 1980, Marius Widyarto memulai sebuah industri rumah tangga yang bergerak di bidang pakaian, khususnya dalam penyablonan T-shirt di gang Caladi nomor 59, Bandung. Dimulai dari sebuah rumah yang hanya berukuran 50 meter persegi, di mana tempat tinggal dan tempat bekerja bergabung menjadi satu. Berkat jerih payah dan tekad yang sangat gigih, C59 mendapat banyak pesanan dari sekolah-sekolah dan instansi instansi di Bandung dan Jakarta.

Pada tahun 1990, C59 berkembang dengan sangat pesat dan cepat. Perkembangan ini bisa dilihat dari pabrik baru yang dibangun di Jalan Cigadung seluas kurang lebih satu hektar. Pabrik ini mempunyai fasilitas modern dan dapat menampung jumlah order yang semakin bertambah. Seiring berjalannya usaha order yang pesat, Pak Marius membenahi dunia baru di dalam usaha ini; yaitu retail. Dengan dijalani dengan seksama, usaha retail ini juga berjalan dengan sangat lancar. Produk C59 bisa dilihat di mana-mana dan cabang retailnya bertebaran di seluruh pelosok Indonesia. C59 sempat menjadi sebuah ikon kaos oblong di seluruh pelosok negeri ini.

Pada tahun 1993, C59 membenahi manajemen dan meningkatkan profesionalismenya dengan merubah bentuk usaha menjadi sebuah Perseroan Terbatas (PT).

Hingga kini C59 sudah menjadi ikon kaos di negeri ini. Usaha order terus berlanjut di setiap harinya dan produk-produk retail kami bisa dilihat pada C59 Shop (tombol di kanan atas). Selain itu C59 terus membimbing generasi-generasi yang lebih muda lewat kunjugan kreatif yang kami tawarkan dan juga sesi sesi Pak Marius sebagai pembicara di berbagai kota di dunia(bisa dilihat dari bagian The Talk di kanan atas).

C59 adalah sebuah perusahaan apparel yang sudah berdiri sejak 1980. Mempunyai experience dalam membuat kaos dan apparel lainnya. Jika dijumlah dari sejak berdiri, sudah lebih dari 1.000.000.000(satu milyar) kaos yang diproduksi. Kita memiliki portfolio yang sangat panjang dan juga reputasi yang baik terhadap konsumen kami. Klien kami tersebar dari Indonesia hingga ke luar negri.

Kami adalah tangan-tangan untuk mewujudkan konsep dan keinginan anda ke dalam T-shirt, Poloshirt dan produk-produk lainnya. Jika anda memiliki sebuah ide tapi tidak bisa menuangkannya menjadi gambar atau design, kami juga menawarkan jasa design internal kami.

C59 memiliki pabrik sendiri sebesar kurang lebih satu hektar yang berdomisili di Jalan Cigadung raya timur nomor 107, Bandung. Di pabrik ini kami membuat pesanan anda dari kain polos menjadi sebuah produk yang anda bisa pakai atau anda jual kembali. Kami yakin akan kualitas dan servis kami.

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.

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)