tugas 4

ASIAH

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

ASIAH

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

ASIAH

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

ASIAH

 

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

ASIAH

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

ASIAH

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

ASIAH

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

 

AISIAH

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

ASIAH

 

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

tugas 5

Private Sub Cmdbatal_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtprogram.Text = “”

txttahun.Text = “”

txturut.Text = “”

End Sub

Private Sub Cmdkeluar_Click()

End

End Sub

Private Sub Cmdlagi_Click()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtprogram.Text = “”

txttahun.Text = “”

txturut.Text = “”

End Sub

Private Sub Cmdproses_Click()

Dim S As String

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

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

If S = “1” Then

txtjur.Text = “Sistem Informasi”

txtprogram.Text = “Strata Satu”

ElseIf S = “2” Then

txtjur.Text = “Manajemen Informatika”

txtprogram.Text = “Diploma Tiga”

ElseIf S = “3” Then

txtjur.Text = “Tehnik Informatika”

txtprogram.Text = “Diploma Empat”

ElseIf S = “4” Then

txtjur.Text = “Manajemen & Komp. Akuntansi”

txtprogram.Text = “Diploma Dua”

End If

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

End Sub

Private Sub Form_activate()

txtnama.SetFocus

txtnama.Text = “”

txtnpm.Text = “”

txtjur.Text = “”

txtprogram.Text = “”

txttahun.Text = “”

txturut.Text = “”

End Sub

 

Private Sub Txtnama_Keypress(Keyascii As Integer)

If Keyascii = 13 Then

txtnpm.SetFocus

End If

End Sub

 

Iklan

TUGAS 3

ASIAH

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

TUGAS 1.2
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
Text2.Text = Val(Text1) * 0.1
Text3.Text = Val(Text1) – Val(Text2)
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1.Text = “”
Text2.Text = “”
Text3.Text = “”
End Sub

Private Sub Command3_Click()
End
End Sub

 

ASIAH

TUGAS 2.1
Private Sub Command1_Click()
Text4.Text = Val(Text1) + Val(Text2) – Val(Text3)
Text5.Text = Val(Text4) * 0.1
Text6.Text = Val(Text4) – Val(Text5)
End Sub

TUGAS 2.2
Private Sub Command1_Click()
Text4.Text = Val(Text1) + Val(Text2) – Val(Text3)
Text5.Text = Val(Text4) * 0.1
Text6.Text = Val(Text4) – Val(Text5)
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text2.SetFocus
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text3.SetFocus
End If
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = ” “
Text2 = ” “
Text3 = ” “
Text4 = ” “
Text5 = ” “
Text6 = ” “
End Sub

Private Sub Command3_Click()
End
End Sub

 

ASIAH

 

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

 

 

 

ASIAH

 

 

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

asiah

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

asiah 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

asiah 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

Korem-Polda Ikut Pantau

Anggota Badan Koordinasi Pengawasan Aliran dan Kepercayaan (Bakorpakem) ikut memantau paham dan kepercayaan di provinsi ini. Tak terkecuali Korem 043/Garuda Hitam dan Polda Lampung. Kepala Penerangan Korem (Kapenrem) 043/Gatam Mayor Inf. C.H. Prabowo menyatakan, berdasarkan pengamatannya, sebagian dari aliran yang diungkap Radar Lampung berawal dari tradisi di masyarakat.

’’Meski begitu, mereka tetap kami pantau. Monitoring dilakukan berkoordinasi dengan Kementerian Agama Lampung maupun Majelis Ulama Indonesia (MUI),” ujarnya kepada Radar Lampung kemarin.

Polda Lampung melakukan hal sama. Menurut Kepala Bidang Humas Polda AKBP Sulistyaningsih, pemantauan dilakukan sebagai tindakan preventif berkembangnya aliran yang dapat merusak tatanan di masyarakat.

Wakil Ketua Bakorpakem Agus Salim menambahkan, pemantauan dilakukan dengan ekstrahati-hati. Lantaran hal ini menyangkut sebuah kepercayaan. Salah penanganan akan timbul konflik sosial karena urusan paham adalah masalah keyakinan individu.

Mantan jaksa KPK tersebut menyatakan, pemantauan merupakan tindakan preventif. Mereka berupaya mengarahkan kepercayaan yang termasuk di dalamnya aliran kebatinan yang dianut masyarakat ke arah positif.

’’Seperti penyuluhan ke desa-desa, melakukan penerangan hukum, melakukan pendekatan keagamaan atau kepercayaan, dan kerja sama dengan instansi-instansi pemerintahan,” ungkapnya kemarin.

Namun sayang, ia enggan membeberkan hasil pemantauan yang telah dilakukan. Tetapi yang jelas, jika tidak diantisipasi, berbagai aliran yang berkembang di Lampung cenderung membahayakan.

Diketahui, sejak Senin (5/1) lalu, harian ini melaporkan perkembangan berbagai paham di masyarakat. Tercatat ada beberapa aliran. Yakni Majelis Tafsir Alquran (MTA) yang berkembang pada 2012 hingga 2014 dan Kelompok Amanat Keagungan Ilahi/AKI (2010-2013).

Berikutnya Agama Baha’i (2010-2012); Millah Ibrahim (2010); Yayasan Nurul Amal (2011); Pangestu (2011); Sapto Dharmo (2011 dan 2014); Gafatar (2014); Mutiara Ilmu (2014); serta Ahmadiyah (2011–sekarang). (why/p6/c1/ade)

RSUDAM Siapkan Dokter Spesialis Bedah

Jemput Winda dengan Ambulans Terbaru
BANDARLAMPUNG – Winda Sari (25), pemulung yang sempat terusir dari Rumah Sakit Umum Daerah Abdul Moeloek (RSUDAM), kemarin kembali ke RS pelat merah itu. Dia dibawa dengan ambulans terbaru milik RSUDAM nomor polisi BE 2340 BZ.

Ambulans sudah menjemput Winda di Klinik Mitra Anda, tempat ia sebelumnya dirawat, sejak pukul 09.00 WIB. Prosesi itu langsung dikawal Kepala Subbagian Keperawatan Farida Ariani dan Kepala Bagian Ambulans Saut M.

Farida menyatakan, sebelum ditempatkan di ruangan, Winda akan dibawa ke Instalasi Gawat Darurat (IGD) RSUDAM terlebih dahulu. Setelah itu, ia dirawat di ruangan Mawar. ’’Kami siapkan yang terbaik, semisal dokter spesialis bedah untuk menanganinya,” terang dia.

Informasi yang diperoleh Radar Lampung, Winda dibawa ke RSUDAM atas permintaan tenaga sukarela dari Kementerian Sosial, Ika Pujianti Rahayu. Pasalnya, peralatan RSUDAM lebih komplet serta ada rehabilitasi medik seperti fisioterapi.

Menurut Farida, pihaknya akan mendampingi Winda yang memang sudah dikenalnya sejak Agustus 2014. ’’Saya minta dia dirawat di RSUDAM. Dan, Winda menyetujuinya, asalkan saya ikut mendampingi,” akunya.

Pemilik Klinik Rawat Inap Mitra Anda, Sukiman, mendukung kepindahan Winda itu. Ia menegaskan, RSUDAM memiliki penanganan dan peralatan yang lebih baik dari kliniknya. ’’Tetapi, kami tetap siap jika diminta merawatnya juga,” tuturnya.

Sukiman menjelaskan, di tempatnya, Winda diberikan perawatan intensif di ruangan ber-AC. Luka pada kakinya dibersihkan tiap pagi dan sore untuk mencegah infeksi menyebar luas ke bagian tubuhnya yang lain.

Relawan Giving Friday, Nita Susanti, yang mengajak Winda ke Klinik Mitra Anda sebelumnya berharap ibu satu anak itu mendapat pelayanan yang layak di RSUDAM. ’’Apalagi, RSUDAM sudah berjanji,” tukasnya.

Terpisah, Direktur Utama RSUDAM Hery Djoko Subandryo menolak mengomentari masalah ini. Ditemui di lingkungan Pemprov Lampung kemarin, ia menyatakan hal itu sesuai instruksi dari Gubernur M. Ridho Ficardo.

’’Sudah, kan kemarin pemprov bilang bahwa itu sudah menjadi masalah keseluruhan, masalah pemprov. Pak Wagub (Bachtiar Basri) juga sudah bilang siap salah,” tuturnya.

Pada bagian lain, Gerakan Mahasiswa Pembela Aspirasi Rakyat (Gempar) kemarin turun ke jalan untuk menggalang dana kepedulian bagi Winda. Mereka menyesalkan dugaan pengusiran Winda dari RSUDAM yang diduga dilakukan oknum perawat.

Koordinator Gempar Risma Borthon menyatakan, dalam aksi di Tugu Adipura, Bandarlampung, itu pihaknya berhasil mengumpulkan dana Rp1,8 juta. Rencananya hari ini, uang diberikan langsung kepada Winda. (abd/why/p2/c1/gie)

Arus Bawah Laut Deras, Evakuasi Ekor Gagal Radar Lampung Online Jumat, 9 Januari 2015

SELAT KARIMATA – Upaya mengangkat ekor pesawat AirAsia QZ 8501 yang jatuh di sekitar Selat Karimata kemarin (8/1) belum berhasil dilakukan. Panglima TNI Jenderal Moeldoko yang memimpin langsung evakuasi memutuskan pengangkatan penyelam karena arus bawah laut yang sangat kencang.

Arus bawah laut mulai kencang menjelang siang. Kecepatan arus mencapai 3-5 knot. Visibility dasar laut juga antara 0-1 meter. Kondisi itu yang membuat penyelam gabungan TNI-AL kesulitan masuk lebih dalam. Bagian belakang pesawat yang terbelah akhirnya belum dipasang sabuk dan kantong udara. Sebab, para penyelam kesulitan sampai ke dasar laut.

Para penyelam yang diterjunkan kemarin antara lain Letda Laut (KH) Edi Abdilah, Kopda Navigasi (Nav) Kiswanto, dan Kopda Telegram (Tlg) Anton Sudarmanu. Dua lainnya, Kelasi Listrik (Lis) Joko Santoso dan Kelasi Kepala Tata Graha (Ttg) Kristanto. ’’Saat menuruni tali sampai kedalaman 5 meter, kami seperti bendera yang dikibas angin,” papar Edi di hadapan Moeldoko usai penyelaman sesi kedelapan.

Edi berusaha menyelam lebih dalam meski perlahan. Jarak pandang terbatas, berkisar 1-1,5 meter. Penggunaan oksigen pun menjadi lebih boros. Tidak terasa menapaki menit ke-10, jarum nanometer menunjuk angka 50. Tanda O2 tinggal separuh. Tak mau berisiko, Edi cs memilih kembali ke perahu karet.

Permasalahan evakuasi lainnya terletak pada kapasitas lifting bag untuk mengangkat ekor pesawat. Kemarin hanya tersedia dua kantong pengembang yang lazim dipakai Dislambair untuk mengangkat kapal karam di perairan dangkal.

Peralatan itu tentu kurang memadai untuk proses evakuasi ekor pesawat yang terjerembab di perairan dalam. Selain lifting bag yang kurang memadai, kapasitas crane di kapal juga maksimal 3 ton. Padahal, berat ekor pesawat diperkirakan 5 ton.

Pangarmabar Laksda TNI Widodo dalam paparannya di hadapan Moeldoko menyebutkan berat 1/3 bagian depan pesawat 12 ton. Sedangkan 2/3 bagian memiliki berat 25 ton. Dengan kondisi seperti itu, TNI-AL membutuhkan dukungan crane yang sanggup membantu proses pengangkatan dan pemindahan ke ponton. Sedangkan posisi ponton terdekat saat ini berada di Semarang.

Mendengar penjelasan itu, Moeldoko memutuskan penyelaman dimulai lagi Jumat (9/1) pukul 05.00. ’’Diskusikan bersama agar tim penyelam begitu turun bisa langsung ikat dan angkat,” tegas Moeldoko.

Untuk memenuhi kebutuhan evakuasi, sekitar pukul 19.00, Armada TNI-AL wilayah timur (Armatim) memberangkatkan KRI Ahmad Yani ke sasaran operasi. Kapal perang itu mengangkut 12 lifting bag. Rinciannya lifting bag berkekuatan 35 ton 2 buah, 10 ton (3), 5 ton (2), 2 ton (1), 500 kg (4).

’’Kami juga mengirim 15 personel dari Dislambair (Dinas Penyelaman Bawah Air),” ujar Kadispen Armatim Letkol Laut (KH) Maman Sulaeman. Selain dibawa dengan kapal, TNI-AL juga mengirimkan tujuh lifting bag berkekuatan total 110 ton lewat pesawat udara. Rinciannya kapasitas 35 ton (2 buah), 10 ton (3), dan 5 ton (2).

Lifting bag yang dikirim lewat pesawat itu mendarat di Lanud Iskandar sekitar pukul 19.05. Kepala Tim Penyelaman Dislambair Armatim Kapten Laut Saiful Afrianto berharap hari ini cuaca bagus sehingga bisa memasang alat ini dan mengangkat ekor pesawat. Jika kondisi bawah air dan cuaca bagus, pemasangan alat itu butuh waktu sekitar 20-25 menit.

Setelah alat terpasang pada objek, balon kemudian diisi angin dari kompresor yang ada di atas kapal. Setelah mengembangkan, objek sudah diangkat akan perlahan-lahan naik ke atas. Dari situ proses memindahkan ke ekor pesawat ke ponton akan lebih mudah.

Dirops Basarnas Marsma SB Supriyadi mengatakan semua kegiatan pencarian bawah laut masih menemui kendala. Bukan hanya penyelam namun juga alat remote operated vehicle atau ROV.

“Penelitian di sembilan obyek yang ditentukan masih nihil hasilnya,” papar Supriyadi. Temuan terbaru hanya penampakan slide scan benda dengan dimensi 10 x 5 m. “Tapi itu baru hasil scaning, belum penyelaman. Besok kalau cuaca baik, kita akan laksanakan penyelaman,” imbuhnya. Basarnas juga menambah armada laut yang memiliki kekuatan slide scan bawah laut.

Penemuan lain yang terjadi sepanjang hari kemarin ialah empat benda berupa kotak aluminium berdimensi 25 cm x 25 cm x 50 cm dan dua botol air mineral 500 ml berlogo salah satu produsen air minum dalam kemasan yang di-branding AirAsia.

Dua benda lain adalah kantong plastik oksigen saat kondisi darurat dan serpihan dinding lambung kapal bagian dalam berukuran kurang dari 1 meter x 1 meter.

Kotak aluminium di bagian muka terdapat tulisan logo AirAsia di bagian tengah bawah dan tulisan “CREW WATER 24 BTL”. Bagian depan kotak pada sisi kanannya dilengkapi engsel untuk membuka kotak. Beratnya tidak lebih dari 2 kilogram.

Sedangkan kantong plastik oksigen warna putih doof yang tersambung masker warna kuning dan selang sepanjang 40 sentimeter tidak termasuk tabung O2 portable yang biasa tersimpan di bawah almari kabin dalam penumpang pesawat.

Empat objek itu diamankan tiga personel penyelam TNI AL. Dua penyelam di antaranya, Serma Mar Boflen Sirait dan Serka Mar Oo Sudarmo yang kali pertama menemukan bagian belakang pesawat pada penyelaman ke empat Rabu (8/1).

Mereka dibantu seorang penyelam Dinas Penyelamatan Bawah Air Komando Armada RI Kawasan Barat Kelasi Navigasi (Nav) Edi Susanto untuk merekam proses pencarian dalam bentuk kamera video dan kamera foto bawah air.

Menurut Komandan Gugus Keamanan Laut Armabar Laksamana Pertama TNI Abdul Rasyid yang mengomando dari KRI Banda Aceh, penyelaman kali ketujuh dimulai pukul 06.53 di kedalaman 33 meter dengan jarak pandang semeter.

Cuaca mendung disertai sesekali hujan membuat penerangan di bawah permukaan air redup. Butuh waktu sampai 3 menit untuk sampai dasar tempat pesawat terbenam. “Menindaklanjuti penemuan sehari sebelumnya, saya perintahkan penyelam yang sama turun untuk mempermudah pekerjaan karena sudah tahu jalan ke mana menuju sasaran,” ujar Rasyid didampingi tim penyelam gabungan.

Boflen cs butuh waktu sekitar tiga menit karena lokasi sudah ditandai berupa tali penanda pelampung buoy warna oranye menuju dasar laut.

Di bagian ekor pesawat yang terbenam juga sudah dipasangi pemancar sinyal beacon dari kapal Geo Survey. Pemancar untuk menandai bahwa lokasi tersebut sudah diselami. Harapannya pada penyelaman berikutnya, penyelam diarahkan ke bagian lain badan pesawat.

Dalam penyelaman kemarin, tiga penyelam itu berusaha masuk ke dalam ruang kabin belakang. Kondisi sepertiga badan bagian belakang miring ke kanan dengan bagian depan agak terangkat. “Posisi seperti nungging. Ekornya terlihat nancap di lumpur dasar laut,” terang Boflen.

Di dalam ruangan yang cahayanya remang-remang itu mereka ekstra hati-hati. Penyelaman ketujuh kemarin pagi berlangsung lebih lama dari sebelumnya. Masing-masing penyelam dibekali dua tabung yang terikat di punggung. Pada penyelaman keempat-keenam sehari sebelumnya, masing-masing personel membawa sebuah tabung saja.

“Banyak objek seperti kabel-kabel di bodi dalam pesawat membuat kami tidak bisa leluasa bergerak. Kami hanya bisa membawa benda-benda tersebut khawatir terlilit di dalam ruangan,” beber penyelam kelahiran Medan berumur 46 tahun itu.

Penyelam pasangannya, Oo Sudarmo kompak. Tekadnya membawa benda dari dalam ruangan kabin AirAsia sebagai bukti. Pada penyelaman sehari sebelumnya, mereka masih mengobservasi dan memotret sejumlah bagian bodi belakang. “Begitu mengetahui itu ekor pesawat, saya sempat memeluknya lantaran merasa suka cita,” kenang penyelam dari Garut itu.

Dalam penyelaman lanjutan itu hingga masuk ke dalam ruang pesawat, mereka melihat lemari kabinet tempat menyimpan makanan penumpang. Pada bagian atasnya kotak tempat air minum kru. Saat dia buka, jumlahnya masih penuh. Lantaran saat ditarik dengan kotaknya terasa berat, beberapa botol air mineral mereka keluarkan.

“Agak buru-buru juga membawanya jadi banyak botol terjatuh,” lanjutnya. Penyelam berusia 43 tahun itu merasa situasi pagi kemarin lebih berat dari penyelaman sebelumnya. Kecepatan arus bawah tercatat sekitar 2-3 knot. Dari dua tabung oksigen yang mereka bawa, satu tabung habis dan satu tabung lagi nyaris tidak tersisa. Sebelum tabung kedua ludes, Boflen memutuskan mereka naik ke perahu karet.

Sedangkan Edi sebatas ditugasi mendokumentasikan aktivitas dua rekannya dan merekam bagian-bagian badan belakang pesawat dari berbagai sudut. “Berhubung dokumentasi pada penyelaman sebelumnya hanya berupa foto, saya diperintah mengambil gambar bergerak dengan kamera video,” timpal Edi.

Di tempat yang sama, supervisor penyelaman gabungan Kapten Laut (P) Wido Dwi Nugraha menjelaskan, sebanyak 57 penyelam gabungan TNI AL dari empat satuan sampai kemarin menempati dua posko. Empat satuan itu Dinas Penyelamatan Bawah Air dan Satuan Komando Pasukan Katak Koarmabar, Batalyon Intai Amfibi Pasukan Marinir-2 Jakarta, dan Detasemen Jala Mengkara.

Posko pertama di kapal Geo Survey diperkuat 17 penyelam. Selebihnya yang 40 siaga di KRI Banda Aceh. Berdasarkan rencana penyelaman kemarin, mereka menurunkan tujuh perahu karet. Pada penyelaman pagi, sebanyak tiga perahu karet beroperasi di atas buoy, penanda lokasi bagian belakang pesawat. “Masing-masing perahu karet ada lima personel dengan rincian tiga penyelam, seorang motoris, dan seorang attandent (pengatur lalu lintas) distribusi peralatan,” tukasnya.

Antisipasi Black Box Berkarat

Seiring ditemukannya ekor pesawat oleh tim penyelam gabungan TNI-AL, strategi mengevakuasi black box pun mulai dirancang Komite Nasional Keselamatan Transportasi (KNKT). Mereka menyiapkan kotak berisi air untuk menghindari peranti yang memuat data-data penerbangan itu berkarat karena lama berada di air laut.

Investigator KNKT Nurcahyo Utomo mengatakan, kotak berisi air itu disiapkan untuk menyimpan black box sesaat setelah diambil dari bawah laut. “Black box harus terus direndam air tawar sampai berhasil dibawa ke Jakarta,” ujar pria yang sudah 14 tahun bekerja di KNKT itu.

Setelah sampai di Jakarta, kondisi black box akan dikeringkan terlebih dulu. Lalu, diberi zat pencegah karat dan diteliti tingkat kerusakannya. Jika kerusakan tak terlalu parah, butuh waktu sekitar dua hari untuk membacanya. “Membaca saja, belum menganalisa,” katanya.

Namun, berbeda lagi jika kondisi black box rusak parah, maka perlu waktu yang panjang untuk merangkainya. Dia mencontohkan, kondisi black box Sukhoi Superjet 100 yang menabrak Gunung Salak. Kala itu, black box terbakar sehingga untuk membacanya saja butuh waktu dua minggu.

Black box pesawat yang berwarna orange terdiri atas dua alat perekam, yakni flight data recorder (FDR) dan voice cockpit recorder (VCR). FDR dan VCR itu berada di sebelah kanan atas bagian ekor pesawat.

Untuk mengevakuasi black box itu, KNKT telah menyiapkan enam pendeteksi sinyal underwater locator beacon (ULB) yang berada di black box. Enam pendeteksi itu berada di tiga kapal milik Dirjen Perhubungan Laut, yakni KN Andromeda, KN Jadayat, dan Alugara yang telah merapat di lokasi penemuan ekor pesawat.

Nurcahyo menegaskan proses pembacaan dan analisa black box itu sepenuhnya akan dilakukan di Indonesia. “Sejak 2009 KNKT sudah punya lab. Kita juga punya ahli yang telah di sekolahkan ke Australia dan teknologi baik software dan hardware kita selalu update,” tegasnya.

Jika tidak terjadi kerusakan yang berarti, black box itu bisa dengan mudah dicopot. Ada dua baut yang mengikat piranti itu. Baut itu juga bisa dibuka dengan tangan. “Tapi kita belum tahu itu kondisinya baik atau tidak, kalau bautnya bengkong ya susah melepasnya,” terangnya.

KNKT mengaku sudah menggelar briefing dengan tim Basarnas yang akan melakukan evakuasi ekor pesawat. Tujuannya agar evakuasi itu tak malah merusak kondisi black box. Menurut dia dalam kasus ini lebih baik seluruh bagian pesawat memang diambil. Meskipun proses pengambilannya dipotong-potong namun tetap saja KNKT bisa mendeteksi serpihan-serpihan tersebut.

Nurcahyo mengaku sejumlah barang pesawat yang ditemukan nantinya sebisa mungkin semuanya dibawa ke Jakarta. “Saat ini memang masih ada di sini (Pangkalan Bun) dan Surabaya. Kita harapkan nanti semuanya terkumpul di Jakarta,” jelasnya.

Barang temuan yang sudah diidentifikasi KNKT antara lain kursi penumpang satu deret (tiga seat) nomor 17, 22, dan 26. Selain itu ada juga kursi pramugari belakang (satu set). Barang lain yang ditemukan ialah peluncur darurat bagian belakang dan depan (kiri-kanan). (jpnn/p2/c1/ade)

Ditahan, Bendahara Sembunyi di Pelukan Radar Lampung Online Jumat, 9 Januari 2015

Bandarlampung – Kejaksaan Negeri (Kejari) Bandarlampung kemarin kembali menahan tersangka kasus korupsi dana kematian Dinas Sosial (Dissos) Bandarlampung 2012. Dia adalah Tineke yang berstatus bendahara dana kematian.

Sebelum penahanan, penyidik memeriksanya selama lima jam sejak pukul 09.00 hingga 14.00 WIB. Perempuan berkerudung itu menyusul M. Sarkum, tenaga sukarela, yang lebih dahulu merasakan pengapnya penjara pada Jumat (12/12/2014).

Tineke yang mengenakan baju lengan panjang bergaris-garis tampak begitu terpukul. Saat menuju mobil tahanan pidana khusus (pidsus) kejari, ia selalu menutupi wajahnya. Suaminya, Agus Setyawan, ikut melindunginya dari bidikan kamera wartawan.

Sambil memeluk sang istri, Agus menelepon keluarganya untuk memberitahukan masalah itu. Matanya memerah, berkaca-kaca, berusaha menahan agar air matanya tak jatuh. ’’Penyidik menahannya (Tineke). Saya bawa motor,” ujar Agus di telepon.

Tineke dibawa ke Rumah Tahanan (Rutan) Kelas I Bandarlampung yang terletak di Wayhui, Lampung Selatan, dengan pengawalan Kepala Seksi Tindak Pidana Khusus (Kasipidsus) Kejari Fredy Simanjuntak. ’’Maaf Mas, saya tidak berkomentar dahulu,” tangkis Agus saat dimintai tanggapannya.

Kepala Kejari Bandarlampung Widiyantoro menjelaskan, Tineke akan ditahan selama 20 hari di Wayhui untuk memperlancar pemberkasan perkaranya. Jika belum selesai, dia akan memperpanjang penahanan yang bersangkutan. ’’Tineke memberikan uang dana kematian begitu saja ke M. Sarkum tanpa prosedur,” ungkapnya.

Menurut dia, seharusnya dana dikucurkan setelah ahli waris warga yang meninggal dapat menunjukkan bukti-bukti. Akibat tindakan inprosedural ini, negara dirugikan Rp2,2 miliar dari total anggaran Rp2,5 miliar. Hal itu diperkuat perhitungan Badan Pengawasan Keuangan dan Pembangunan (BPKP) Lampung. ’’Penyidik telah memiliki bukti-bukti kuitansinya,” ungkap dia.

Lalu, bagaimana dengan Kadissos Bandarlampung Akuan Effendi yang juga menjadi tersangka dalam kasus ini? Widi –sapaan akrabnya–menerangkan, seharusnya kemarin Akuan ikut diperiksa. Namun ternyata, istrinya memberikan surat sakit dari dokter yang menerangkan Akuan harus beristirahat selama dua hari. ’’Secepatnya kita jadwal ulang pemeriksaannya,” urai dia.

Penetapan ketiga tersangka kasus ini tertuang dalam surat dengan nomor registrasi berurutan. Yakni B.2292, B.2293, dan B.2294/N.8.10/Fd.I/04/2014. Mereka diduga telah memanipulasi data kematian warga Bandarlampung.

Salah satu kejanggalan yang ditemukan kejari, ada warga yang sudah meninggal pada 2011, namun dimasukkan dalam daftar penerima bantuan 2012. Per satu orang, dana bansos dialokasikan Rp500 ribu.

Terpisah, Direktur Advokasi Perhimpunan Bantuan Hukum dan Hak Asasi Manusia Indonesia (PBHI) Lampung Juendi Leksa Utama meminta pihak kejari tidak langsung begitu saja percaya pada alasan sakit tersangka. ’’Cek dahulu kebenarannya,” ingat dia.

Juendi meminta kejari tidak tebang pilih. Sebab, tindakan para tersangka telah mencederai program Wali Kota Bandarlampung Herman H.N. yang berupaya bersimpati atas warganya.

’’Ini program bagus wali kota. Kejari harus berani menahan semua tersangka, jangan sampai ada penilaian diskriminatif,” tandasnya. (why/p2/c1/ade)