TUGAS 3_1

-



Private Sub cbogolongan_Click()
Dim gapok, pajak, tunjangan, total As Variant
Select Case cbogolongan.Text
Case "1"
gapok = 1500000
tunjangan = 150000
Case "11"
gapok = 2000000
tunjangan = 200000
Case "111"
gapok = 2500000
tunjangan = 250000
Case "1V"
gapok = 3000000
tunjangan = 300000
Case Else
gapok = 0
tunjangan = 0
End Select
total = gapok + tunjangan
pajak = total * 0.1
Txtgp.Text = gapok
Txttj.Text = tunjangan
Txtpj.Text = pajak
Txttotal.Text = total - pajak
End Sub

Private Sub cmdbatal_Click()
Txtnidn.SetFocus
Txtnidn. Text =””
Txtnama. Text =””
cbogolongan. Text =””
Txtgp. Text =””
Txttj. Text =””
Txtpj. Text =””
Txttotal. Text =””
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
Txtnidn.SetFocus
Txtnidn =””
Txtnama  =””
cbogolongan =””
Txtgp =””
Txttj  =””
Txtpj =””
Txttotal  =””
End Sub

Private Sub Form_Load()
cbogolongan.AddItem "1"
cbogolongan.AddItem "11"
cbogolongan.AddItem "111"
cbogolongan.AddItem "1V"
End Sub

Private Sub Txtnidn_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtnama.SetFocus
End If
End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

MAHASISWA STMIK PRINGSEWU SAMBANGI PT PRIMARINDO ASIA INFRASTRUCTURE TBK

-
Gambar
Bandung - Rabu (13/9) sebanyak 250 mahasiswa STMIK Pringsewu melakukan kunjungan ke PT. Primarindo Asia Infrasrtucture Tbk . Jl. Raya Ranca Bolang No. 98 Gedebage – Bandung yang disambut oleh Agus Sunarto sebagai Manajer HRD (Human Resource Development). Kegiatan kunjungan industri bertujuan untuk lebih mengenalkan mahasiswa terhadap dunia kerja yang berhubungan dengan bidang perkuliahannya. Kegiatan tersebut meliputi pemaparan company profile, kunjungan pabrik serta peluang kerja bagi lulusan atau alumni dari STMIK Pringsewu.  Agus Sunarto selaku Manajer HRD (Human Resource Developmen) menjelaskan tentang PT. Primarindo Asia Infrastructure Tbk, beliau mengatakan bahwa PT. Primarindo Asia Infrastructure Tbk . didirikan pada tahun 1988 dengan nama PT Bintang Kharisma, dengan status Penanaman Modal Dalam Negeri (PMDN). Pada tahun 1994, Perseroan mencatatkan dan menjual sahamnya di Bursa Efek Jakarta, dan menjadi PT Bintang Kharisma Tbk. Pada tahun 1997, Perseroan meng
Baca selengkapnya

KPU PRINGSEWU KUNJUNGI PEMILIHAN PRESIDEN MAHASISWA

-
Gambar
KPU PRINGSEWU KUNJUNGI PEMILIHAN PRESIDEN MAHASISWA PRINGSEWU – Ketua KPU Pringsewu kunjungi Tempat Pemungutan Suara (TPS) Pemilu Presiden dan Wakil Presiden Badan Eksekutif Mahasiswa STMIK Pringsewu. Rabu, (10/2) di Kampus setempat. Ketua KPU Pringsewu, H. Warsito, S.T., Didampingi pokja sosialisasi. A.Andoyo, Mengatakan, Pelaksanaan Proses pemilihan Presiden dan Wakil Presiden Mahasiswa ini merupakan pembelajaran proses Demokrasi, ini merupakan modal awal mahasiswa untuk menghadapi pemilu yang sesungguhnya. Warsito mengatakan, para mahasiswa kemungkinan ada yg belum memilih dan merupakan pemilih pemula, kegiatan ini bisa menjadi contoh pembelajaran proses pemilihan umum. Kata Warsito, Bagi panitia penyelenggara nantinya bisa berkiprah dalam pemilu yang sebenarnya. Wakil Ketua 3 Bidang Kemahasiswa STMIK Pringsewu, Nur Aminudin, M.T.I mengatakan, Pemilihan Presma dan Wapresma ini merupakan proses pembelajaran politik bagi mahasiswa, makna arti dari demokrasi se
Baca selengkapnya