Langsung ke konten utama

TUGAS MK BP1 TUGAS 3.3

Private Sub cmdproses_Click()
Dim kode As String

kode = Left(txtkt.Text, 3)
If kode = "BIM" Then
txtht.Text = "50000"
txtjk.Text = "BIMA"
txtjb.Text = "16.00"
ElseIf kode = "EKO" Then
txtht.Text = "35000"
txtjk.Text = "EKONOMI"
txtjb.Text = "19.00"
ElseIf kode = "MUT" Then
txtht.Text = "23000"
txtjk.Text = "MUTIARA"
txtjb.Text = "17.00"
ElseIf kode = "SEN" Then
txtht.Text = "15000"
txtjk.Text = "SENJA"
txtjb.Text = "20.00"
End If
txtjt.SetFocus
End Sub

Private Sub Form_Load()
txtht.Enabled = False
txtjk.Enabled = False
txtjb.Enabled = False
txttotalp.Enabled = False
End Sub

Private Sub txtjt_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotalp = Val(txtht) * Val(txtjt)
End If
End Sub


Label:

Komentar

Posting Komentar

Postingan populer dari blog ini

PERINGATI HARI KARTINI SELURUH PETUGAS UPACARA STMIK PRINGSEWU ADALAH PEREMPUAN

STMIK PRINGSEWU  – Sebagai wujud rasa penghormatan kepada perjuangan pahlawan kita, Ibu Kartini, Sabtu, 21 April 2018 – Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu menyelenggarakan Upacara Bendera Peringatan Hari Kartini ke-139 dihalaman Kampus STMIK Pringsewu. Upacara Hari Kartini di halaman kampus ini dihadiri bapak/ibu dosen dan mahasiswa. Menariknya, dalam upacara ini, seluruh petugasnya adalah perempuan. Bertindak sebagai inspektur upacara Wakil Ketua I Elisabet Yunaeti A, M.T.I. Dalam amanatnya, Elisabet meminta agar momen hari Kartini jadi tonggak kebangkitan para perempuan, perempuan bisa meraih prestasi seperti kaum laki-laki. Jadi, mari kita jadikan momen ini untuk bangkit sekaligus instrospeksi diri, ucapnya. Setelah upacara selesai, akan dilaksanakan lomba membuat nasi goreng antar mahasiswa bertempat di halaman kampus.( *na ) Filed in:   BEM ,  Info Kampus ,  Umum
Posting Komentar
Baca selengkapnya

STMIK PRINGSEWU GELAR SARASEHAN KEBANGSAAN

STMIK PRINGSEWU  – Sabtu (28/4), Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu menyelenggarakan sarasehan kebangsaan dengan tema “Dalam Rangka Membendung Arus Radikal dan Terorisme di Wilayah Hukum Polda Lampung” bertempat di Aula Lt. II Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu. Sarasehan Kebangsaan dengan tema “Dalam Rangka Membendung Arus Radikal dan Terorisme di Wilayah Hukum Polda Lampung” menghadirkan narasumber Kombes Pol Yosi Hariyoso (Kepala Biro Operasi Polda Lampung), Ken Setiawan (Mantan Komandan Negara Islam Indonesia) dihadiri Kepala Kesbangpol Pringsewu Sukarman, Wakil Ketua I Bidang Akademik Elisabet Y. A, M.T.I, Wakil Ketua III Bidang Kemahasiswaan Nur Aminudin, M.T.I, Ka. LPPM M. Muslihudin, M.T.I, Kaprodi Sistem Informasi Tri Susilowati, M.T.I, Kaprodi Manajemen Informatika Oktafianto, M.T.I serta bapak ibu dosen STMIK Pringsewu. Sarasehan Kebangsaan dibuka Wakil Ketua III Bidang Kemahasiswaan STMIK Pringse...
Posting Komentar
Baca selengkapnya

STMIK PRINGSEWU Raih Sinta Awards 2018

STMIK PRINGSEWU  berhasil meraih Science and Technology Index (Sinta) Awards Tahun 2018 sebagai institusi dengan produktivitas publikasi dari Kementerian, Riset, Teknologi, dan Pendidikan Tinggi (Kemenristek Dikti). Penghargaan diterima oleh Ketua LLPM STMIK Pringsewu M. Muslihudin, M.T.I di Auditorium Gedung D Kemenristek Dikti RI, Jakarta, Rabu (4/7). “Sinta Awards 2018 ini dipersembahkan untuk segenap sivitas akademika STMIK Pringsewu yang sangat gigih meningkatkan publikasi ilmiah hasil penelitian dan pengadian masyarakat,” ujarnya. Menurutnya, Sinta Awards sebagai ajang yang positif untuk motivasi peningkatan publikasi ilmiah dan merupakan prestasi gemilang sivitas akademisi STMIK Pringsewu dalam produktivitas publikasi ilmiah. STMIK Pringsewu memiliki Produktifitas Publikasi yang membanggakan yaitu berdasarkan penilaian dalam jangka waktu 3 Tahun terahir 2016-2018 STMIK Pringsewu Masuk 100 Top Affilation yaitu dengan Peringkat 77 dan dengan Score Nilai 92. “Kami b...
Posting Komentar
Baca selengkapnya