Skip to content

TUGAS VB 5

 DATA BASE

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

SARI

TUGAS VB 4

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=

TUGAS VB 3

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

 

TUGAS VB 2

TUGAS 2 VB

Coba Rampok Kapal, 8 WNI Diadili di Malaysia

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.

Senin, 02/07/2012 23:03 WIB Polisi Afghanistan Tembak 3 Tentara Inggris Hingga Tewas Rachmadin Ismail – detikNews

natoafpdlm

 

 

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.

PSSI Pastikan Kontrak Charbonnier Sebagai Direktur Teknik Timnas Amalia Dwi Septi – detikSport Sabtu, 29/12/2012 15:20 WIB

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.