Private Sub CmdBaru_Click()
Data1.Recordset.AddNew
End Sub
Private Sub CmdProses_Click()
Dim jurusan, PS As String
Txttahun.Text = “20” & Left(Txtnpm.Text, 2)
jurusan = Mid(Txtnpm.Text, 3, 1)
If jurusan = “1” Then
Txtjurusan.Text = “Sistem Informasi”
ElseIf jurusan = “2” Then
Txtjurusan.Text = “Manajemen Informatika”
ElseIf jurusan = “3” Then
Txtjurusan.Text = “Tehnik Informatika”
End If
PS = Mid(Txtnpm.Text, 4, 2)
If PS = “01” Then
Txtprogram.Text = “Strata Satu”
ElseIf PS = “02” Then
Txtprogram.Text = “Diploma Tiga”
ElseIf PS = “03” Then
Txtprogram.Text = “Diploma Satu”
End If
Txtno.Text = Right(Txtnpm.Text, 3)
End Sub
Private Sub CmdSimpan_Click()
Data1.Recordset.Update
End Sub
Private Sub CmdHapus_Click()
Data1.Recordset.Delete
End Sub
Private Sub CmdKeluar_Click()
End
End Sub
Private Sub Txtnama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub
PRIVATE SUB TXTNAMA_KEYPRESS(KEYASSCII AS INTEGER)
IF KEYASCII=13 THEN
TXTNIK.SETFOCUS
END IF
END SUB
PRIVATE SUB CMD PROSES_CLICK()
DIM GOL,KS,JBT,BG AS STRING
DIM GAPOK,TJ,AS CURENCY
TXT TAHUN.TEXT=LEFT(TXTNIK.TEXT,5,1)
IF GOL=”A” Then
GOL=”A”
JBT=”Manajer”
GAPOK=”4000000″
TJ=”1025000″
Else IF GOL=”B” Then
GOL=”B”
JBT=”KP.Seksi”
GAPOK=”3500000″
TJ=”975000″
Else IF GOL=”C” Then
GOL=”c”
JBT=”Staff”
GAPOK=”3000000″
TJ=”925000″
END IF
Txtgolongan.text=”GOL”
txtjabatan.text=”JBT”
txtgapok.text=”GAPOK”
txttjangan.text=”TJ”
KS=MID(txtnik.text,7,1)
if ks=”S” Then
ks=”S”
k.status=”Single”
else if ks=”M” then
ks=”M”
k.status=”Menikah”
elseif ks=”j” Then
ks=”J”
k status=”janda”
else if ks=”D” Then
ks=”D”
K Status=”Duda”
End IF
TG=val(txtgapok.text)+val(txttunjangan.text)
txttotalgaji.text=TG
BAG=Right(Txtnik.text,3)
if bag=”KEU” Then
txtbag.text=”accounting”
else if bag=”ADM”Then
txtbag.text=”administrasi”
elseif bag=”SDM”
txtbag.text=”General Affair”
else ifbag=”EDP”
txtbag.text=”IT Unit”
else if bag=”SPM” Then
txtbag.text=”security”
END IF
END SUB
Private sub cmd batal_()
Txtnama.setfocus
Txtnama.text=””
txtnik.text=””
txtgol.text=””
txtks.text=””
txtstatus.text=””
txttahun.text=””
txtjabatan.text=””
txtbagian.text=””
txtgapok.text=””
txttjangan.text=””
txttotalgaji.text=””
End Sub
private sub cmd lagi_()
txtnama.setfocus
txtnama.text=””
txtnik.text=””
txtgol.text=””
txtkodestatus.text=””
txtstatus.text=””
txttahun.text=””
txtjbt.text=””
txtbag.text=””txtgapok.text=””
txttjangan.text=””
txttotalgaji.text=””
End SUB
private sub cmd keluar_()
end
end sub
private subcmd batal_()
txtkodebuku.text.setfocus
txtkodebuku.text=””
txtjudulbuku.text=””
txtpengarang.text=””
txttahunterbit.text=””
txtpenerbit.text=””
txtharga.text=””
end sub
private sub cmd lagi_()
txtkodebuku.setfocus
txtkodebuku.text=””
txtjudulbuku.text=””
txtpengarang.text=””
txttahunterbit.text=””
txtpenerbit.text=””
txtharga.text=””
end sub
private sub cmd proses_()
DIM JB,PRG,PNRB AS string
DIM TERTA,HRG AS curency
Txtjb.text=left(txtjudulbuku.text,3)
if judul=”SIM” Then
judul=”SIM”
JB=”Sistem Informasi Menejemen”
PRG=”Fadiya Ulfa”
HRG=”75900″
Else if judul=”EDP”Then
Judul=”EDP”
JB=”Elektonik data processing”
PRG=
1.HURUF MUTU MAHASISWA STMIK PRINGSEWU
Private sub cbonpm_click()
Dim nama, jurusan,as string
select case Cbonpm.text
case”12100014″
nama=”OKTA MARTIA SARI”
jurusan=”sistem informasi”
case”12100052″
nama=”ariyana”
jurusan=”menejemen informatika”
case”12201056″
nama=”umi nafingah”
jurusan=”sistem informasi”
case”12100671″
nama=”afita sari”
jurusan=”sistem informasi”
case”122o1170″
nama=”mulyani hidayati”
jurusan=”menejemen informatika”
end select
txtnama.text=nama
txtjurusan.text=jurusan
txtquis.setfocus
end sub
private sub cmdbatal_click()
cbonpm.setfocus
cbonpm.text=””
txt nama.text=””
tx jurusan.text=””
txtquis.text=””
txttugas.text=””
txtuts.text=””
txtuas.text=””
txtna.text=””
txthm.text=””
end sub
private subcmdkeluar_click()
unload me
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
caseIs>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
txthm.text=HM
End sub
private sub form_load()
cbonpm.additem”12100014″
cbonpm.additem”12100052″
cbonpm.additem”12201056″
cbonpm.additem”12100671″
cbonpm.additem”12201170″
End sub
private sub txtquis_keypress(keyAScii AS integer)
if key ascii=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
2.stmik pringsewu
private subcommand1_click()
label2.caption=txt1.text
End sub
private option1_click()
label2.forecolor=vbBlue
End sub
private sub check1_click()
label2.fontbold=check.value
End sub
3.aplikasi perhitungan gaji
private sub cmdbatal_click()
kosong
private sub cmdlagi_click()
kosong
End sub
private sub Form_load()
cbogolongan.AddItem”I”
cbogolongan.AddItem”II”
cbogolongan.AddItem”III”
cbogolongan.AddItem”IV”
End sub
private sub cmdkeluar_click()
unload meand 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
txt gapok.text=gapok
txttunjangan.text=tunjangan
txtpajak.text=pajak
txttotal.text=total-pajak
end sub
public sub kosong()
txtnidn.setfocus
txtnidn.text=””
txtnama.text=””
cbogolongan.text=””
txtgapok.text=””
txttunjangan.text=””
txtpajak.text=””
txttotal.text=””
end sub
private sub txtnidn_keypress(keyascii As integer)
if keyascii=13 then
txtnama.setfocus
End if
End sub
4.nama dan keterangan
Private sub Cmdbatal_click
txtnama.setfocus
txtnama.text=””
txtnpm.text=””
txtjur.text=””
txtps.text=””
txtTm.text=””
txturut.text=””
End sub
private sub cmdkeluar_click()Undload Me
End sub
private sub cmdlagi_()
txtnama.setfocus
txtnama.text=””
txtnpm.text=””
txtjur.text=””
txtps.text=””
txtTm.text=””
txturu.ttext=””
end sub
private sub cmdproses_clik()
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”
Else if S=”2″ then
txtjur.text=”menejemen informatika”
Elseif S=”3″ then
txtjur.text=”tekhnik informatika”
Elseif s=”4″ then
txtjur.text=”menejemen & komp.akuntansi”
End If
S=mid(txtnpm.text,4,2)
if S =”01″ then
txtps.text=”strata satu”
Elseif S Text=”02″ then
txtps.text=”diploma tiga”
ElseIf s.text=”03″then
txtps.text=”diploma empat”
Elseif.text=”04″then
txtps.text=”diploma dua”
End if
txturut.text=right(txtnpm.text,3)
End sub
private sub form_activate()
txtnama.setfocus
txtnama.text=””
txtnpm.text=””
txtjur.text=””
txtps.text=””
txttm.text=””
txturut.text=””
End sub
private sub Txtnama_keypress(keyascii As integer)
if keyascii=13 then
txtnpm.setfocus
end if
End sub
Jumat, 28/12/2012 17:56 WIB
Kuala Lumpur – Pengadilan Malaysia tengah mengadili 8 pria berkewarganegaraan Indonesia atas kasus perampokan. Kedelapan WNI ini dijerat dakwaan percobaan perampokan sebuah kapal di wilayah Tanjung Stapa, Pengerang, Malaysia.
Seperti dilansir The Star, Jumat (28/12/2012), kedelapan WNI tersebut ialah Dane (23), Hasbullah (35), Ricky (37), Trim (36), Jais (46), Arjadi (32), Amie (37), dan Zul (34). Mereka diadili di Pengadilan Tinggi Kota Tinggi atas dakwaan penyerangan dan percobaan perampokan kapal dengan menggunakan senjata.
Mereka dituding berusaha merampok kapal MT Merlion Dua pada 11 Desember lalu, sekitar pukul 01.50 dini hari. Kedelapan WNI tersebut diadili berdasar pasal 395 Undang-undang Pidana dan pasal 397 Undang-undang yang mengatur soal perampokan bersenjata.
Dalam persidangan, kedelapan WNI mengaku tak bersalah atas dakwaan yang dijeratkan. Hakim Salawati D’jambari pun menjadwalkan persidangan selanjutnya digelar 29 Januari dengan agenda manajemen kasus.
Jika dinyatakan bersalah, mereka terancam hukuman maksimal 20 tahun penjara dan hukuman cambuk.
Menuru dokumen persidangan, kedelapan WNI tersebut ditangkap oleh Badan Pengawas Maritim Malaysia (MMEA) pada 12 Desember lalu. Saat itu, mereka tengah berusaha merampok kapal di perairan Pengerang, dengan cara menggunakan perahu kayu untuk mendekati kapal-kapal pembawa minyak.
Mereka memanjat kapal tersebut dan berusaha merampok isi kapal serta barang-barang milik awak kapal tersebut. Mereka bahkan membawa sejumlah senjata untuk mengancam korbannya.
Namun pada saat bersamaan, petugas MMEA yang tengah berpatroli mendekati lokasi kejadian. Beberapa pelaku yang masih berada di atas perahu kayu memutuskan untuk kabur dan meninggalkan 8 orang pelaku yang berada di atas kapal pembawa minyak tersebut. Kedelapan pria tersebut kemudian ditangkap. Sedangkan sejumlah pelaku lainnya masih dalam pengejaran aparat setempat.
ilustrasi/
AFP Kabul – Seorang polisi Afghanistan menembak mati tiga tentara Inggris di provinsi Helmand. Insiden ini semakin menambah rentetan panjang kasus penembakan di Afghanistan.
Diberitakan Reuters, Senin (2/7/2012), sebetulnya ada empat korban dari tentara Inggris. Satu lagi mengalami luka tembak.
Para tentara itu baru saja pulang dari titik Nahr-e-Saraj di Helmand dan memang bertugas bersama para polisi setempat. Tanpa diduga, salah seorang polisi itu malah menembak secara membabi buta pada para prajurit.
“Meski insiden kemarin sangat tragis, hal itu tidak akan membuat kami mundur dari misi yang sudah direncanakan,” ujar menteri pertahanan Inggris Phillip Hammond.
Sang polisi kini ditahan dan dilaporkan mengalami cedera.
Dengan kejadiani ini, total ada 422 tentara Inggris yang ditembak mati di Afghanistan sejak perang NATO pada tahun 2001. Khusus tahun ini saja, ada 17 serangan yang menewaskan 23 tentara NATO.
Jakarta – Walaupun mengundang kontroversi dari sejumlah pihak, PSSI memastikan akan merekrut Lionel Charbonnier sebagai direktur teknik timnas Indonesia. Orang Prancis itu akan dikontrak awal 2013.
“Sebenarnya negosiasi dengannya Lionel sudah selesai. Kami tinggal melakukan finalisasi kontrak saja, tinggal bukti hitam di atas putih,” ujar anggota Komite Eksekutif PSSI sekaligus ketua komite timnas Sihar Sitorus di Jakarta, Sabtu (29/12/2012).
“Saat ini kami sedang mengumpulkan berkas-berkas yang kurang. Mungkin semuanya akan rampung dan ia dikontrak setelah tahun baru.”
Sebelumnya, kabar yang menyebutkan Charbonnier menjadi direktur teknik timnas mendapat penolakan dari berbagai pihak. Sebab terbesarnya adalah ia dinilai tak punya pengetahuan dan pengalaman yang cukup tentang sepakbola Indonesia.
Sekjen PSSI Halim Mahfudz pun sempat membantah kabar perekrutan itu. Kemarin ia mengatakan bahwa belum tentu PSSI mengontrak mantan kiper Lyon dan eks pelatih Atjeh United itu.
“Kami memilih dia karena memiliki pengalaman internasional yang bagus saat Prancis merombak pakem filosofi sepakbolanya. Dia terlibat dari proses perubahan sepakbola Prancis hingga menjadi juara Piala Dunia 1998,” tambah Sihar.
“Lionel akan ditugaskan untuk mencari formasi atau filosofi yang pas untuk sepakbola Indonesia, seperti yang dilakukan di Prancis. Jika cocok kami akan patenkan untuk timnas nantinya. Dia nantinya juga berwenang untuk pembinaan pelatih dan usia muda,” tutupnya.
Bertandang ke markas Utah Jazz, Sabtu (29/12/2012), Clipper menang dengan skor 116-114. Itu adalah kemenangan mereka yang ke-24 dari 30 game yang telah dilakoninya di musim ini.
Yang menjadi istimewa adalah, Clippers sempat tertinggal sampai 19 poin dari tuan rumah sebelum membalikkan keadaan, dan kemudian mengunci kemenangannya yang ke-16 tanpa jeda.
Kali terakhir sebuah tim meraup rentetan kemenangan terbanyak adalah Boston Celtics, ketika memenangi 19 game berturut-turut dari 15 November sampai 23 Desember 2008.
Chris Paul menjadi bintang lapangan Clippers dengan torehan 29 poin, termasuk tujuh angka terakhir timnya di kuarter keempat.
Sangat berbeda dengan Clippers, Charlotte Bobcats memperpanjang rekor kekalahannya menjadi 17 kali berturut-turut di musim ini. Itu terjadi setelah mereka menyerah 81-97 dari tuan rumah Brooklyn Nets.
Hanya dua pemain Bobcats yang mengukir angka dua digit, yaitu Hakim Warrick (13) dan Ramon Sessions (12). Tim tersebut pun masih minus karena baru menang 7 kali tapi kalah sampai 22 kali.
Sementara itu Nets sekaligus mencatat kemenangan pertama di bawah arahan pelatih interim PJ. Carlesimo. Ini adalah kemenangan kedua mereka dalam tujuh pertandingan terakhirnya.
Brook Lopez menjadi top performer lewat donasi 26 poin plus 11 rebound. Deroon Williams juga tampil gemilang dengan membukukan 19 poin untuk Nets, sedangkan Joe Johnson menambahkan 16 angka.
Jakarta – Jam tangan karet berwarna hitam menjadi saksi bisu kematian Frangky Paulus Siahaan. Kematiannya masih misterius.
“Pas saya bantu angkat bersama petugas ambulans dari RS Harum, korban masih mengenakan jam tangan warna hitam di pergelangan tangan kirinya,” ujar saksi mata, Deni (31) saat ditemui di lokasi kejadian, Sabtu (29/12/2012).
Deni mengatakan, saat ditarik dari tengah kali mayat tersebut dengan posisi terlentang. Menurutnya ada yang aneh pada mayat tersebut.
“Ketika sudah dipinggir saya perhatiin kok ada bekas darah keluar dari hidung, dan saat saya lihat jam tangan korban menunjukan pukul 09.00 WIB, mungkin baru kemarin malam hanyutnya,” Kata pria yang berpofesi tukang parkir di RS Harum.
Deni mengatakan saat diperiksa petugas ambulans rumah sakit menemukan dompet di kantong celana korban.
“Dari kantong celana korban, ditemukan identitas KTP, tapi anehnya KTP-nya seperti fotocopy yang dilaminating, nggak seperti KTP biasanya, dan uang Rp 200 ribu,” tuturnya.
Sementara saat dikonfirmasi detikcom Kapolsek Kampung Makasar, Kompol Sutarjo membenarkan peristiwa penemuan tersebut dan telah dievakuasi ke rumah sakit.
“Betul, jenazah dibawa ke Rumah Sakit Polri,” kata Sutarjo
Perwira yang baru dua minggu menjadi kepala unit kepolisian Makasar, belum memberani menduga-duga penyebab kemmatian Franky. Menurutnya pria tersebut berprofesi supir angkutan.
“Kita masih visum dulu, baru ketahuan hasilnya apa. Itu kerjanya sopir mikrolet,” tandasnya.
Pagi tadi warga Makasar di kejutkan penemuan mayat yang hanyut di Kalimalang, tepatnya di jalan Inspeksi Saluran Tarum Barat. Warga yang menemukan langsung melaporkan ke polisi.
Medan – Aksi pencurian Bahan Bakar Minyak (BBM) dari pipa kembali terjadi di Medan, Sumatera Utara (Sumut), Sabtu (29/12/2012). Kali ini pipa distribusi minyak milik PT PLN yang menjadi korban.
Pipa distribusi PT PLN Sektor Pembangkitan Medan yang dibocori itu berada di Kelurahan Rengas Pulau, Kecamatan Medan Marelan. Pipa yang menyalurkan minyak untuk mesin pembangkit listrik itu berpangkal di Instalasi Medan Group (IMG) PT Pertamina.
Keterangan yang diperoleh menyebutkan, kebocoran itu diketahui kecurigaan PLN karena pasokan BBM yang mengalir dari pipa sepertinya tidak normal. Setelah memastikan tidak ada pengurangan pasokan dari Pertamina, petugas PLN kemudian melakukan penyelidikan.
Jalur pipa yang sebagian tertanam di dalam tanah itu diperiksa, hingga ditemukan titik mencurigakan di lokasi kejadian. Setelah digali, ternyata memang ada kebocoran. Pada pipa itu sudah dipasang keran air, sehingga pengambilan minyak dari titik itu bisa dilakukan secara manual. Petugas kemudian melakukan penambalan terhadap pipa yang bocor itu.
“Tadi petugas PLN datang sejak jam sebelas siang untuk memperbaiki kebocoran pipa itu. Di kedalaman sekitar setengah meter dari permukaan tanah tempat yang bocor itu,” kata Wawan, salah seorang warga di lokasi.
Sementara upaya penambalan kebocoran berlangsung, polisi setempat melakukan penyelidikan. Kasus pembocoran seperti ini sudah sering terjadi, namun jarang berhasil diungkap polisi. Selain pipa PLN, pipa distribusi Pertamina juga sering dibocori maling.
(rul/gah)
saristmikpringsewu 