TUGAS VB 5

 

 

MEMBUAT DATA BASE

AFITA

Private Sub Cmdbaru_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Cmdproses_Click()
Dim jur, ps As String
Txtth.Text = “20” & Left(Txtnpm.Text, 2)
jur = Mid(Txtnpm.Text, 3, 1)
If jur = “1” Then
TxtJurusan.Text = “Sistem Informasi”
ElseIf jur = “2” Then
TxtJurusan.Text = “Manajemen Informatika”
ElseIf jur = “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
TxtNurut.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 TxtNama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnpm.SetFocus
End If
End Sub

Private Sub Cmdkeluar_Click()
End
End Sub

 

Advertisements

TUGAS VB4

4.1 PT PULANG PETANG

Private sun txtnama_keypress(key ASCII As Integer)

if keyASCII = 13 Then

txtNIK.SetFocus

end if

end sub

Private sub cmdproses_click()

dim jbt, BG As string

dim GP, TJ, TG As curency

txt tahun.text = left (txtnik.text,4)

G = Mid (txtnik.text,5,1)

if G = “A” Then

G = “A”

JBT = “Manajer”

GP = “400000”

TJ = “1025000”

Else if G = “B” Then

G = “B”

JBT = “Kep.seksi”

GP = “3500000”

TJ = “975000”

Elself G = “C” Then

G = “C”

JBT = “staff”

GP = “3000000”

TJ = “925000”

End if

txtGol.text = G

txtjabatan.text = JBT

txtGapok.text = GP

txtTunjangan.text = TJ

KS = Mid (txtnik.text,7,1)

if ks = “S” Then

ks = “S”

ks status = “single”

Else if ks = “M” Then

ks = “M”

ks status = “menikah”

Else if ks = “J” Then

ks = “J”

ks status = “janda”

Else if ks = “D” Then

ks = “D”

ks status = “duda”

End if

txtkode.text = ks

txtstatus.text = ks status

TG=val(txtgapok.text)+val(txttunjangan.text)txt total G.text=TG

B= Right(txtnik.text,3)

if B= “Keu” Then

txt Bg.text=”acurency”

Else if B= “ADM” Then

txt Bg.text= “Administrasi”

Else if B= “SDM” Then

txt Bg.text= ” General affair”

Else if B= “EDP” Then

txt Bg .text= “IT Unit”

Else if B=”SPM” Then

txt Bg.text= “Security”

End if

End sub

private sub cmdkeluar_click()

end

end sub

Private Sub CmdBatal_click()

TxtNAMA.SetFocus

TxtNAMA.Text=””

TxtNIK.Text=””

TxtGOL.Text=””

TxtKS.Text=””

TxtSTS.Text=””

TxtTH.Text=””

TxtJBT.Text=””

TxtBGN.Text=””

TxtGP.Text=””

TxtTJ.Text=””

TxtTG.Text=””

End sub

Private Sub CmdzhLAGI_Click()

TxtZHNAMA.SetFocus

TxtZHNAMA.Text=””

TxtZHNIK.Text=””

TxtZHGOL.Text=””

TxtZHKS.Text=””

TxtZHSTS.Text=””

TxtZHTH.Text=””

TxtZHJBT.Text=””

TxtZHBGN.Text=””

TxtZHGP.Text=””

TxtZHTJ.Text=””

TxtZHTG.Text=””

End sub

 

4.2 DATA BUKU STMIK PRINGSEWU

Private sub cmdproses_click()

dim JB, PGR, PRBIT, As string

dim TI, HRG, As curency

Txtkode buku.text=Left(txtkode buku.text,3)

if TB=”SIM” Then

TB= “SIM”

JB= “SISTEM INFORMASI MANAJEMEN”

PGR= ” FADIYA ULFA”

HRG= “75900”

Else if TB=”EDP” Then

TB= “EDP”

JB= “ELEKTRONIK DATA PROCESSING”

PGR= ” NURUL AGUSTINA”

HRG= “62000”

Else if TB=”MNJ” Then

TB= “MNJ”

JB= MANAJEMEN”

PGR= ” RIAN HIDAYAT”

HRG= “42000”

Else if TB=”CDR” Then

TB= “CDR”

JB= “COREL DRAW”

PGR= ” SITI NUR KHOTIMAH”

HRG= “53000”

Else if TB=”RPL” Then

TB= “RPL”

JB= “REKAYASA PERANGKAT LUNAK”

PGR= ” WINDA ERLIANTI”

HRG= “83000”

End if

txt Tipe Buku.text=TB

txt Judul Buku.text=JB

txt Pengarang.text=PGR

txt Harga.text=HRG

txt tahun terbit.text=”20″& MID (txtkode buku,text,5,2)

KB= Right (txtkode buku.text,1)

if KB= “A” Then

KB= “A”

PNRBIT=”ANDI OFFSET YOGYAKARTA”

Else if KB= “I” Then

KB= “I”

PNRBIT=”INDAH SURABAYA”

Else if KB= “S” Then

KB= “S”

PNRBIT=”SALEMBA EMPAT”

Else if KB= “E” Then

KB= “E”

PNRBIT=”ELEK MEDIA KOMPUTINDO”

Else if KB= “M” Then

KB= “M”

PNRBIT=”MAXICOM”

End if

txtkode buku.text=”KB”

txtpenerbit.text=”PNRBIT”

Private sub cmdkeluar_click()

end

end sub

Private sub cmdbatal_click()

txtkode buku.SetFocus

txtkode buku.text=””

txtjudul buku.text=””

txtpengarang.text=””

txttahun terbit.text=””

txtpenerbit.text=””

txtharga.text=””

Private sub cmdkeluar_click()

undload me

end sub

Private sub cmdlagi_click()

txtkode buku.SetFocus

txtkode buku.text=””

txtjudul buku.text=””

txtpengarang.text=””

txttahun terbit.text=””

txtpenerbit.text=””

txtharga.text=””

end sub

 

4.3 DATA BUKU STMIK PRINGSEWU 2

Private sub cmdproses_click()

dim JB, PGR, PNRBIT, As String

dim TT, HRG, As Curency

Txtkode buku.text=left(txtkode buku.text1)

if KB= “A” Then

KB= “A”

PNRBIT= “ANDI OFFSET YOGYAKARTA”

Else if KB= “I” Then

KB= “I”

PNRBIT= “INDAH SURABAYA”

Else if KB= “S” Then

KB= “S”

PNRBIT= “SALEMBA EMPAT”

Else if KB= “E” Then

KB= “E”

PNRBIT= “ELEK MEDIA KOPUNTINDO”

Else if KB= “M” Then

KB= “M”

PNRBIT= “MAXICOM”

End if

txtkode buku.text=KB

txtpenerbit.text=PNRBIT

kode buku=MID(Txtkode buku.text,5,3)

if TB=”SIM” Then

TB=”SIM”

JB=”SISTEM INFORMASI MANAJEMEN”

PGR=”ANDRA SETIAWAN”

HRG=”75900″

Else if TB=”EDP” Then

TB= “EDP”

JB= “ELEKTRONIK DATA PROCESSING”

PGR= ” DESI ISTIQOMAH”

HRG= “62000”

Else if TB=”EMJ” Then

TB= “EMJ”

JB= MANAJEMEN”

PGR= ” SANDI FITRAJAYA”

HRG= “42000”

Else if TB=”CDR” Then

TB= “CDR”

JB= “COREL DRAW”

PGR= ” TRI INDAH SARI”

HRG= “53000”

Else if TB=”RPL” Then

TB= “RPL”

JB= “REKAYASA PERANGKAT LUNAK”

PGR= ” ERNITA”

HRG= “83000”

End if

txt Tipe buku.text=TB

txt Judul buku.text=JB

txt Pengarang.text=PGR

txt Harga.text=HRG

Txt tahun terbit=”20″ & Right (txtkode buku.text,2)

Private sub cmdkeluar_click()

End

End sub

Private sub cmdbatal_click()

txtkode buku.SetFocus

txtkode buku.text=””

txtjudul.text=””

txtpengarang.text=””

txttahun terbit.text=””

txtpenerbit.text=””

txtharga.text=””

Private sub cmdlagi_click()

txtkode buku.SetFocus

txtkode buku.text=””

txtjudul.text=””

txtpengarang.text=””

txttahun terbit.text=””

txtpenerbit.text=””

txtharga.text=””

End sub

 

4.4 DATA BUKU STMIK PRINGSEWU 3 (Combo)

private sub CboKode buku_click()

select case CboKode buku.text

case “A-SIM-01”

case “I-EDP-02”

case “A-MNJ-03”

case “S-CDR-04”

case “M-RPL-05”

End select

End sub

Private sub cmdproses_click()

dim PNRBIT, JB, PGR As String

dim HRG As Curency

penerbit= Left (cbokode buku.text,1)

if PNRBIT= “A” Then

PNRBIT= “A”

Penerbit= ” ANDI OFFSET YOGYAKARTA”

Else if PNRBIT= “I” Then

PNRBIT= “I”

Penerbit= ” INDAH SURABAYA”

Else if PNRBIT= “S” Then

PNRBIT= “S”

Penerbit= “SALEMBA EMPAT”

Else if PNRBIT= “E” Then

PNRBIT= “E”

Penerbit= ” ELEK MEDIA COMPUTINDO”

Else if PNRBIT= “M” Then

PNRBIT= “M”

Penerbit= “MAXICOM”

End if

txtpnrbit.text=penerbit

JB= MID(cbokode buku.text,5,3)

if JB= “SIM” Then

JB= “Sistem Informasi Manajemen”

PGR= “YATI NUR OKTAVIA”

HRG= “759000”

Else if JB= “EDP” Then

JB= “ELEKTRONIK DATA PROCESSING”

PGR= “IMAM TARMIZI”

HRG= “62000”

Else if JB= “MNJ” Then

JB= “MANAJEMEN”

PGR= “VALENTINA MARIANA ADI WIANTI”

HRG= “42000”

Else if JB= “CDR” Then

JB= “COREL DRAW”

PGR= “RIYAN SUHANDI”

HRG= “53000”

Else if JB= “RPL” Then

JB= “REKAYASA PERANGKAT LUNAK”

PGR= “SANTA UMPU SINA”

HRG= “83000”

End if

txtJB.text= judul buku

txtPGR.text= pengarang

txtHRG.text= harga

Tahun= “20” & Right (cbokode buku.text,2)

txtTT.text= tahun terbit

End sub

Private sub form_load()

cbokode buku.addItem”A-SIM-01″

cbokode buku.addItem”I-EDP-02″

cbokode buku.addItem”S-MNJ-03″

cbokode buku.addItem”E-CDR-04″

cbokode buku.addItem”M-RPL-05″

End sub

Private sub cmdkeluar_click()

unload me

End sub

Private sub cmdlagi_()

kosong

end sub

public sub kosong ()

cbokode buku.SetFocus

Cbokode buku.text=””

Cbojudul buku.text=””

Cbopengarang.text=””

txtpenerbit.text=””

txtharga.text=””

txttahun terbit.text=””

End sub

TUGAS VB3

1. HURUF MUTU MAHASISWA STMIK PRINGSEWU

Private Sub Cbonpm_Click()

Dim nama, jurusan, As String

 

Select Case Cbonpm.Text

Case”12100671″

nama=”AFITA SARI”

jurusan=”Sistem Informasi”

Case”12100052″

nama=”ARIANA”

jurusan=”Manajemen Informatika”

Case”12201170″

nama=”MULYANI HIDAYATI”

jurusan=”Sistem Informatika”

Case”12201056″

nama=”UMI NAVINGAH”

jurusan=”Tehnik Informatika”

Case”12100014″

nama=”OKTA MARTIA SARI”

jurusan=”Sistem Informasi”

End Select

txtnama.Text=nama

txtjurusan.Text=jurusan

txtquis.SetFocus

End Sub

 

Private Sub Cmdbatal_Click()

Cbonpm.SetFocus

Cbonpm.Text=””

txtnama.Text=””

txtjurusan.Text=””

txtquis.Text=””

txttugas.Text=””

txtuts.Text=””

txtuas.Text=””

txtna.Text=””

txthm.Text=””

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

 

Private Sub Cmdproses__Click()

Dim NAAs Integer

Dim HMAs 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=”E”

End Select

txthm.Text=HM

End Sub

 

Private Sub Form_Load()

Cbonpm.AddItem”12100671″

Cbonpm.AddItem”12100052″

Cbonpm.AddItem”12201170″

Cbonpm.AddItem”12201056″

Cbonpm.AddItem”12100014″

End Sub

Private Sub txtquis_Keypress(KeyAscii As Integer)

If KeyAscii=13Then

txttugas SetFocus

End If

End Sub

Prifate Sub txttugas_KeyPress(KeyAscii As Integer)

If KeyAscii=13Then

txtuts.SetFocus

End If

End Sub

Private Sub txtuts_KeyPress(KeyAscii As Integer)

If KeyAscii=13Then

txtuas.SetFocus

End If

End Sub

 

 

2. STMIK PRINGSEWU

Private Sub Options2_Click()

label2.ForeColor=vbBlue

End Sub

Private Sub Check1_Click()

Label2.ForeColor=vbRead

End Sub

 

 

3. APLIKASI PENGHITUNGAN GAJI

Private Sub Cmdbatal_Click()

kosong

End Sub

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 Me

End Sub

 

Private Sub cbogolongan_Click()

Dim gapok,pajak,tunjangan,total As Variant

Select Case cbogolongan.Text

Case”I”

gapok=150000

tunjangan=1500000

Case”II”

gapok=2000000

tunjangan=2000000

Case”III”

gapok=2500000

tunjangan=2500000

Case”IV”

gapok=3000000

tunjangan=3000000

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

Public Sub kosong()

txtnidn.SetFocus

txtnidn.Text=””

txtnama.Text=””

cbogolongan.Text=””

txtgapok.Text=””

txttunjangan=””

txtpajak.Text=””

txttotal.Text

End Sub

Private Sub txtnind_Keypress(keyascii As Integer)

If keyascii=13then

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=””

End Sub

Private Sub Cmdkeluar_Click()

Unload Me

End Sub

Private Sub Cmdlagi_Click()

Txtnama.SetFocus

Txtnama.Text=””

Txtnpm.Text=””

Txtjur.Text=””

Txtps.Text=””

TxtTm.Text=””

Txturut.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”

Elself  S =”2″ Then

Txtjur.Text=”Manajemen Informatika”

Elself S =”3″ Then

Txtjur.Text=”Tehnik Informatika”

Elself S =”4″ Then

Txtjur.Text=” Manajemen & Komp. Akuntansi”

End If

S=mid(Txtnpm.Text,4,2)

If S=”01″ Then

Txtps.Text=Strara Satu”

Elself S=”02″ Then

Txtps.Text=”Diplpma Tiga”

Elself S=”03″ Then

Txtps.Text=”Dipl0ma Empat”

Elself S=”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

Memastikan petugas di Pemprov DKI Jakarta bebas dari narkoba

  1. Memastikan petugas di Pemprov DKI Jakarta bebas dari narkoba, Senin (10/12) Badan Narkotika Nasional (BNN) melakukan pemeriksaan urine terhadap 350 anggota Satuan Polisi Pamongpraja (satpol PP) di Balai Kota DKI Jakarta.  Kegiatan ini sengaja dilakukan untuk memastikan semua Satpol PP bebas dari narkoba. Sebelumnya aksi dadakan ini juga telah disetujui Wakil Gubernur Basuki Tjahaja Purnama yan telah melakukan pertemuan dengan Kepala BNN pada November lalu. Tes narkoba rahasia ini tidak hanya dilakukan kepada anggota Satpol PP, tapi juga ke semua Satuan Kerja Perangkat DKI Jakarta.

Jakarta akan semakin maju dengan dipasangnya fasilitas hotspot dan Wifi

  1. Jakarta akan semakin maju dengan dipasangnya fasilitas hotspot dan Wifi di sejumlah ruas jalan protokol. Jadi akses bebas internet tidak hanya ditawarkan atau dinikmati di berbagai tempat seperti gedung, kampus, restoran, hotel dan pusat perbelanjaan saja. Internet bisa diakses mereka yang melakukan perjalanan atau mobilitas. Disejumlah titik di Jakarta penyedian fasilitas internet ini sudah bisa diakses sejak September lalu. Fasilitas modern ini disediakan Pemerintah provinsi DKI Jakarta untuk memenuhi kebutuhan warga DKI.

Khawatir menjadi sasaran demonstrasi buruh

  1. Khawatir menjadi sasaran demonstrasi buruh yang mengarah ke tindakan anarkis, sekitar 80 perusahaan  di Medan dan sekitarnya memutuskan untuk menghentikan operasional produksi selama aksi buruh berlangsung. Ribuan buruh tergabung dalam beberapa serikat pekerja masih terus melakukan demonstrasi dengan memblokir jalan menuju kawasan industri hingga melakukan sweeping ke dalam wilayah pabrik.