TUGAS VISUAL BASIC 5

fitriani

Private Sub CmdBaru_Click()
Data1.Recordset.AddNew
TxtNama.SetFocus
End Sub
Private Sub CmdHapus_Click()
Data1.Recordset.Delete
End Sub

Private Sub CmdKeluar_Click()
Unload Me
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
JUR = “Tehnik Komputer”
ElseIf S = “2” Then
JUR = “Manajemen Informatika”
ElseIf S = “3” Then
JUR = “Tehnik Informatika”
ElseIf S = “4” Then
JUR = “Manajemen & Komp. Akuntansi”
End If
TxtJur.Text = JUR
S = Mid(TxtNpm.Text, 4, 2)
If S = “00” Then
PS = “Strata Satu”
ElseIf S = “01” Then
PS = “Diploma Tiga”
ElseIf S = “02” Then
PS = “Diploma Empat”
ElseIf S = “03” Then
PS = “Diploma Dua”
End If
TxtPs.Text = PS
TxtNu.Text = Right(TxtNpm.Text, 3)
End Sub

Private Sub CmdSimpan_Click()
Data1.Recordset.Update
End Sub

Iklan

TUGAS VB 4

1.

pit1

Private Sub Cmdpros_Click()

Dim T As String

Txtthn.Text = “20” & Right(Txtkdbuk.Text, 2)

T = Left(Txtkdbuk.Text, 1)

If T = “A” Then

Pnb = “Andi Offset Yogyakarta”

ElseIf T = “I” Then

Pnb = “Indah Surabaya”

ElseIf T = “S” Then

Pnb = “Salemba Empat”

ElseIf T = “E” Then

Pnb = “Elek Media Komputindo”

ElseIf T = “M” Then

Pnb = “Maxicom”

End If

P = Mid(Txtkdbuk.Text, 3, 3)

If P = “SIM” Then

Jdlb = “Sisitem Informasi Manajemen”

Peng = “Andra Setiawan”

Hrg = “75900”

ElseIf P = “EDP” Then

Jdlb = “Elektronik Data Processing”

Peng = “Desi Istiqomah”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jdlb = “Manajemen”

Peng = “Sandy Fitrajaya”

Hrg = “42000”

ElseIf P = “CDR” Then

Jdlb = “Corel draw”

Peng = “Tri Indah Sari”

Hrg = “53000”

ElseIf P = “RPL” Then

Jdlb = “Rekayasa Perangkat Lunak”

Peng = “Ernita”

Hrg = “83000”

End If

Txtpnrb.Text = Pnb

Txtjdbk.Text = Jdlb

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub.

 

Private Sub Cmdlagi_Click()

Txtkdbuk.SetFocus

Txtkdbuk.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnrb.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkdbuk.SetFocus

Txtkdbuk.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnrb.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdout_Click()

End

End Sub

2.

pit2

Private Sub Cmdpros_Click()

Dim T As String

Txtthn.Text = “20” & Mid(Txtkdbuk.Text, 5, 2)

T = Right(Txtkdbuk.Text, 1)

If T = “A” Then

Pnb = “Andi Offset Yogyakarta”

ElseIf T = “I” Then

Pnb = “Indah Surabaya”

ElseIf T = “S” Then

Pnb = “Salemba Empat”

ElseIf T = “E” Then

Pnb = “Elek Media Komputindo”

ElseIf T = “M” Then

Pnb = “Maxicom”

End If

P = Left(Txtkdbuk.Text, 3)

If P = “SIM” Then

Jdlbk = “Sisitem Informasi Manajemen”

Peng = “Fadiya Ulfa”

Hrg = “75900”

ElseIf P = “EDP” Then

Jdlbk = “Elektronik Data Processing”

Peng = “Nurul Agustina”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jdlbk = “Manajemen”

Peng = “Rian Hidayat”

Hrg = “42000”

ElseIf P = “CDR” Then

Jdlbk = “Corel draw”

Peng = “Siti Nur Khotimah”

Hrg = “53000”

ElseIf P = “RPL” Then

Jdlbk = “Rekayasa Perangkat Lunak”

Peng = “Winda Erlianti”

Hrg = “83000”

End If

Txtpnrb.Text = Pnb

Txtjdb.Text = Jdlbk

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub

 

Private Sub Cmdlagi_Click()

Txtkbuk.SetFocus

Txtkbuk.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnrb.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtkbuk.SetFocus

Txtkbuk.Text = “”

Txtjdb.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnrb.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

3.

Pit3

Private Sub Txtnm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtnik.SetFocus

End If

End Sub

 

Private Sub Cmdprs_Click()

Dim Jb, Bg, Gl, Ks, St As String

Dim Gp, Tj, Tgj As Currency

Txtthn.Text = Left(Txtnik.Text, 4)

G = Mid(Txtnik.Text, 5, 1)

If G = “A” Then

Gl = “A”

Jb = “Manajer”

Gp = “4000000”

Tj = “1025000”

ElseIf G = “B” Then

Gl = “B”

Jb = “Ka.seksi”

Gp = “3500000”

Tj = “975000”

ElseIf G = “C” Then

Gl = “C”

Jb = “Staff”

Gp = “3000000”

Tj = “925000”

End If

 

K = Mid(Txtnik.Text, 7, 1)

If K = “S” Then

Ks = “S”

St = “Single”

ElseIf K = “M” Then

Ks = “M”

St = “Menikah”

ElseIf K = “J” Then

Ks = “J”

St = “Janda”

ElseIf K = “D” Then

Ks = “D”

St = “Duda”

End If

 

B = Right(Txtnik.Text, 3)

If B = “KEU” Then

Bg = “Accounting”

ElseIf B = “ADM” Then

Bg = “Administrasi”

ElseIf B = “SDM” Then

Bg = “General Affair”

ElseIf B = “EDP” Then

Bg = “IT Unit”

ElseIf B = “SPM” Then

Bg = “Security”

End If

Tgj = Val(Gp) + Val(Tj)

Txtgjpk.Text = Gp

Txtjbtn.Text = Jb

Txttun.Text = Tj

Txtsta.Text = St

Txtbag.Text = Bg

Txtgol.Text = Gl

Txtkds.Text = Ks

Txttgj.Text = Tgj

End Sub

 

Private Sub Cmdlagi_Click()

Txtnm.SetFocus

Txtnm = “”

Txtgol = “”

Txtkds = “”

Txtsta = “”

Txtthn = “”

Txtjbtn = “”

Txtbag = “”

Txtgjpk = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdbtl_Click()

Txtnm.SetFocus

Txtnm = “”

Txtgol = “”

Txtkds = “”

Txtsta = “”

Txtthn = “”

Txtjbtn = “”

Txtbag = “”

Txtgjpk = “”

Txttun = “”

Txttgj = “”

Txtnik = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

4.

pit4

Private Sub Cmdpros_Click()

Dim S As String

Txtthn.Text = “20” & Right(Txtkdbuk.Text, 2)

S = Left(Txtkdbuk.Text, 1)

If S = “A” Then

Pbt = “Andi Offset Yogyakarta”

ElseIf S = “I” Then

Pbt = “Indah Surabaya”

ElseIf S = “S” Then

Pbt = “Salemba Empat”

ElseIf S = “E” Then

Pbt = “Elek Media Komputindo”

ElseIf S = “M” Then

Pnb = “Maxicom”

End If

P = Mid(Txtkdbuk.Text, 3, 3)

If P = “SIM” Then

Jdlbk = “Sisitem Informasi Manajemen”

Peng = “Yati Nur Oktavia”

Hrg = “75900”

ElseIf P = “EDP” Then

Jdlbk = “Elektronik Data Processing”

Peng = “Imam Tarmizi”

Hrg = “62000”

ElseIf P = “MNJ” Then

Jdlbk = “Manajemen”

Peng = “Valentina Mariana Adiwianti”

Hrg = “42000”

ElseIf P = “CDR” Then

Jdlbk = “Corel draw”

Peng = “Riyan Suhadi”

Hrg = “53000”

ElseIf P = “RPL” Then

Jdlbk = “Rekayasa Perangkat Lunak”

Peng = “Sinta Umpu Singa”

Hrg = “83000”

End If

Txtpnrb.Text = Pbt

Txtjdbk.Text = Jdlbk

Txtpeng.Text = Peng

Txthrg.Text = Hrg

End Sub

 

Private Sub Cmdlgi_Click()

Txtkdbuk.SetFocus

Txtkdbuk.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnrb.Text = “”

Txthrg.Text = “”

End Sub

Private Sub Cmdbtl_Click()

Txtkdbuk.SetFocus

Txtkdbuk.Text = “”

Txtjdbk.Text = “”

Txtpeng.Text = “”

Txtthn.Text = “”

Txtpnrb.Text = “”

Txthrg.Text = “”

End Sub

 

Private Sub Cmdkel_Click()

End

End Sub

 

Tugas Visual Basic

1.

pit4

Private Sub Cmdhitung_Click()

Txtdskn.Text = Val(Txtnil1.Text) * 0.1

Txtnil2.Text = Val(Txtnil1.Text) – Val(Txtdskn.Text)

End Sub

 

Private Sub Cmdlagi_Click()

Txtnil1 = “”

Txtdskn = “”

Txtnil2 = “”

End Sub

 

Private Sub Cmdklwr_Click()

End

End Sub

2.

pit5

Private Sub Txtak1_Change()

If KeyAscii = 13 Then

Txtak2.SetFocus

End If

End Sub

 

Private Sub Cmdbagi_Click()

Txtjml.Text = Val(Txtak1.Text) / Val(Txtak2)

End Sub

 

Private Sub Cmdkali_Click()

Txtjml.Text = Val(Txtak1.Text) * Val(Txtak2)

End Sub

 

 

Private Sub Cmdtmbh_Click()

Txtjml.Text = Val(Txtak1.Text) + Val(Txtak2.Text)

End Sub

 

Private Sub Cmdmin_Click()

Txtjml.Text = Val(Txtak1.Text) – Val(Txtak2.Text)

End Sub

 

Private Sub Cmdlagi_Click()

Txtak1 = “”

Txtak2 = “”

Txtjml = “”

End Sub

 

Private Sub Cmdklwr_Click()

End

End Sub

3.

pit1

Private Sub txtb1_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtb2.SetFocus

End If

End Sub

 

Private Sub txtb2_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtb3.SetFocus

End If

End Sub

 

Private Sub Txtb3_KeyPress(KeyAscii As Integer)

Txtb3.Text = Val(txtb1.Text) * Val(txtb2.Text)

End Sub

 

Private Sub Cmdhit_Click()

Txtb3.Text = Val(txtb1.Text) * Val(txtb2.Text)

End Sub

 

Private Sub Cmdbrsh_Click()

Txtb1 = “”

Txtb2 = “”

Txtb3 = ”

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

4.

pit2

Private Sub opthj_Click()

Lbltm.ForeColor = vbGreen

End Sub

 

Private Sub optbr_Click()

Lbltm.ForeColor = vbBlue

End Sub

 

Private Sub optmrh_Click()

Lbltm.ForeColor = vbRed

End Sub

 

Private Sub Optkng_Click()

Lbltm.ForeColor = vbYellow

End Sub

 

 

Private Sub Chkita_Click()

If Chkita.Value = 1 Then

Lbltm.FontItalic = True

Else

Lbltm.FontItalic = False

End If

End Sub

 

Private Sub Chkbl_Click()

If Chkbl.Value = 1 Then

Lbltm.FontBold = True

Else

Lbltm.FontBold = False

End If

End Sub

 

Private Sub Chkund_Click()

If Chkund.Value = 1 Then

Lbltm.FontUnderline = True

Else

Lbltm.FontUnderline = False

End If

End Sub

 

Private Sub Chkstr_Click()

If Chkstr.Value = 1 Then

Lbltm.FontStrikethru = True

Else

Lbltm.FontStrikethru = False

End If

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

5.

pit3

Private Sub Txtgpk_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txttjg.SetFocus

End If

End Sub

 

Private Sub Txttjg_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

Txtpot.SetFocus

End If

End Sub

 

 

Private Sub Cmdpros_Click()

Txtgjkt.Text = Val(Txtgpk.Text) + Val(Txttjg.Text) – Val(Txtpot.Text)

Txtpjak.Text = Val(Txtgjkt.Text) * 0.1

Txtgjbr.Text = Val(Txtgjkt.Text) – Val(Txtpjak.Text)

End Sub

 

Private Sub Cmdlg_Click()

Txtgpk = “”

Txttjg = “”

Txtpot = “”

Txtgjkt = “”

Txtpjak = “”

Txtgjbr= “”

End Sub

 

Private Sub Cmdklr_Click()

End

End Sub

Jokowi Dituntut Minta Maaf atas Kematian RI

Ayah RI Berharap Otopsi Segera Selesai  

TEMPO.CO, Jakarta – Komisi Perlindungan Anak Indonesia menuding Gubernur DKI Jakarta Joko Widodo bersalah dalam kasus meninggalnya RI, 11 tahun, siswi SDN 22 Pulo Gebang, Jakarta Timur, yang diduga korban perkosaan. “Gubernur harus sampaikan maaf dan kunjungi keluarga korban,” ujar Ketua Satgas Perlindungan Anak KPAI, M Ihsan, Ahad, 6 Januari 2013.

Alasannya, Jokowi dianggap membiarkan lambannya penanganan kesehatan dan ketidakmampuan pelayanan kesehatan dari tingkat puskesmas yang mendeteksi masalah medis RI sejak dini. “Inilah yang berujung maut,” ujar Ihsan.

Menurut Ihsan, RI sudah mengeluh sakit sejak tiga bulan lalu. “Keluhannya sakit kelenjar getah bening, tapi tak kunjung sembuh,” ujarnya. Keluarga tak berani untuk membawa RI ke tenaga medis yang lebih ahli dengan alasan ekonomi. Namun di sisi lain, pelayanan kesehatan di tingkat puskesmas tak memadai.

“Ini membuktikan bahwa puskesmas tidak mampu memberikan pelayanan yang optimal,” ujarnya. Setelah RI tak sadarkan diri, barulah keluarga berani membawa RI ke RS Persahabatan. Ia sempat divonis berbagai macam penyakit seperti sakit lambung dan thypus.

Saat dirawat di RS Persahabatan, keluarga menemukan fakta bahwa ada dugaan terjadi kekerasan seksual pada RI. “Ada pembengkakan di kelamin yang terinfeksi serta mengeluarkan belatung,” ujarnya.

Akhirnya, setelah berjuang melawan penyakitnya selama satu minggu, RI meninggal dunia tadi pagi di RS Persahabatan. Sekarang jenazahnya tengah diotopsi di RS Cipto Mangunkusumo. Atas dugaan kekerasan seksual itu, Ihsan meminta agar kasus ini diusut tuntas.

Rasyid Rajasa Tak Sadarkan Diri Selama 10 Menit

Rasyid Pingsan Lagi di UGD RS Polri

Laporan Wartawan Tribunnews.com, Theresia Felisiani

TRIBUNNEWS.COM, JAKARTA – Kuasa hukum Rasyid, Riri Purbasari Dewi, mengatakan, selama kurang lebih lima jam diperiksa penyidik di Subdit Gakum Ditlantas Polda Metro, Senin (7/1/2013), Rasyid sempat tak sadarkan diri selama 10 menit.

“Rasyid mengeluh pusing, mual, dan sempat tidak sadarkan diri selama kurang lebih 10 menit,” ungkap Riri.

Riri juga mengatakan, saat dilarikan ke ambulans dan dibawa ke RS Polri, seperti rujukan dari kepolisian, Rasyid sempat dibopong dan kesulitan mendapat oksigen.

“Tolong ya, jangan dikerubuti. Nanti kasian, dia kesulitan dapat oksigen,” kata Riri.

Riri menambahkan, meski rekam medik Rasyid ada di RS Pertamina, namun kepolisian merujuk ke RS Polri. Dan pihak Rasyid menurutinya.

Nissan Indonesia Siap Bikin Mesin 1.200 cc Livina

Nissan Indonesia Siap Bikin Mesin 1.200 cc Livina

OTOSIA.COM – PT Nissan Motor Indonesia rupanya tidak hanya menyiapkan produksi dalam hal perakitan di pabriknya yang terletak di Cikampek, Jawa Barat. Mereka dalam keterangan selepas peluncuran New Serena menyebut juga akan memproduksi mesin.

“Pertengahan tahun ini, kami akan memproduksi mesin di pabrik kami,” ungkap Takayuki Kimura, Regional Vice President Nissan Motor Co, Ltd di Ciputra Marketing Gallery, Jakarta.

Sebanyak dua mesin yang akan dibangun yakni berkapasitas 1.200 dan 1.600 cc. Dua mesin itu sendiri akan digunakan pada MPV Evalia dan Livina. Mesin itu akan dibangun di pabrik yang memiliki kapasitas 180.000 unit per tahun.

Livina sendiri hingga kini masih menjadi mobil terlaris buat Nissan Indonesia. Berdasarkan data penjualan hingga November dari Gaikindo, Livina masuk dalam daftar mobil-mobil terlaris dalam setahun belakangan.

Tak perlu lagi menyangsikan Toyota dan Daihatsu lewat produk-produk mini-MPV-nya. Namun yang menarik, Nissan Grand Livina terdata lebih laris dari Suzuki Ertiga yang disebut-sebut mulai menggoyang penjualan mini-MPV grup Astra tersebut.

Penjualan Nissan Grand Livina sendiri digabung untuk model mesin 1,5 liter dan 1,8 liter dengan raihan total selama setahun sebanyak 27.621 unit.

(kpl/why/bun)

Jalan panjang Jokowi di pemilihan wali kota terbaik sejagat

Jalan panjang Jokowi di pemilihan wali kota terbaik sejagat

MERDEKA.COM, Akhirnya situs worldmayor.com mengumumkan 10 nama wali kota terbaik sejagat, Selasa (8/1), dan secara mengejutkan Joko Widodo keluar menjadi pemenang ketiga.

Prestasi ini tidak main-main. Lelaki akrab dipanggil Jokowi awalnya bersaing ketat dengan 77 kandidat, termasuk Wali Kota Tel Aviv, Israel, Ron Huldai. Setelah menjalani tes kelayakan juga kesaksian dari warga masing-masing kota, nama jokowi pun masuk menjadi finalis.

Sebelum berada di posisi finalis, Jokowi menyisihkan dua nama lain dari Indonesia yakni Wali Kota Surabaya Tri Rismaharani dan Gubernur Sulawesi Selatan Syahrul Yasin Limpo. Namun keduanya kalah tenar dari sepak terjang Jokowi saat membangun Surakarta. Di tangan dia, kota itu memang berubah lebih baik, terutama kepiawaiannya mengorganisir pedagang kaki lima agar lebih tertib.

Dalam memimpin, Jokowi melakukan pendekatan pribadi dengan mendatangi warga. Banyak orang menudingnya pencitraan tapi langkah ini paling berhasil sebab penduduk jadi lebih mengenal pemimpinnya. Media internasional seperti majalah Time hingga surat kabar New York Post bahkan sering mengulas sepak terjang lelaki berperawakan kecil ini hingga namanya cukup akrab di mata dunia. Pencalonannya menjadi wali kota terbaik sejagat dibanjiri testimoni memuji cara Jokowi mengatur kotanya.

Banyak pihak mengaku kesengsem pada Jokowi. Menurut beberapa komentar masuk di situs itu, lelaki kini menjabat gubernur Ibu Kota Jakarta, Indonesia, merupakan pemimpin generasi baru yang lepas dari dosa masa lalu seperti korupsi, kolusi, dan nepotisme.

Meski tak berada di peringkat pertama, nama Indonesia kembali harum dengan terpilihnya Jokowi di peringkat ketiga pemilihan bergengsi ini.

The City Mayors Foundation mengadakan pemilihan ini merupakan organisasi nirlaba yang didirikan pada 2003 untuk mempromosikan, mendorong, dan memfasilitasi pemerintahan lokal terbuka dan kuat. Dimulai pada 2004, organisasi ini meluncurkan penghargaan World Mayor Prize.

Sumber: Merdeka.com