TUGAS PEMROGRAMAN 2.4

-




Private Sub Cmdhitung_Click()
Txtdis = Val(Txtha) * 0.15
Txtak = Val(Txtha) - Val(Txtdis)
End Sub

Private Sub Cmdulangi_Click()
Txtha.SetFocus
Txtha = ""
Txtdis = ""
Txtak = ""
End Sub
  
Private Sub Cmdquit_Click()
Unload Me
End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

STMIK PRINGSEWU LAKSANAKAN UPACARA HARI PAHLAWAN

-
Gambar
PRINGSEWU  – Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu laksanakan upacara dalam rangka memperingati Hari Pahwalan yang bertepatan pada hari Jumat 10 November 2017. Upacara yang diikuti oleh Wakil Ketua I Elisabet Y. A, M.T.I, Wakil Ketua II Kasmi, M.M., Wakil Ketua III  Nur Aminudin, M.T.I , Ketua LPPM M. Muslihudin, M.T.I, Kaprodi Sistem Informasi Tri Susilowati, M.T.I, Kaprodi Manajemen Informatika Oktafianto, M.T.I, Kepala Career Center Miswan Gumantri, MBA, dosen, staf dan mahasiswa STMIK Pringsewu tersebut dilaksanakan di halaman Kampus setempat. Wakil Ketua III STMIK Pringsewu  Nur Aminudin, M.T.I bertindak sebagai inspektur upacara menyampaikan sejumlah hal terkait dengan peringatan Hari Pahlawan dan Komandan upacara Resimen Mahasiswa STMIK Pringsewu (Ahmad Yudi). Upacara peringatan Hari Pahlawan yang dimulai pukul 08.00 WIB dengan urutan upacara bendera sebagai berikut : a. Penghormatan umum kepada Inspektur Upacara dipimpin Oleh Komandan U
Baca selengkapnya

IGNITION ROAD TO CAMPUS

-
Gambar
STMIK PRINGSEWU  – Acara “ Ignition Road To Campus ” kerjasama Krakatau Digital Movement dengan Badan Ekonomi Kreatif (BEKRAF). Kegiatan tersebut bertujuan untuk membangun kesadaran peserta tentang ekonomi kreatif dan starup digital dalam upaya menyelesaikan problem bangsa dan daerah serta mendorong pertumbuhan ekonomi negara. Kegiatan tersebut dibuka Wakil Ketua III STMIK Pringsewu  Nur Aminudin, M.T.I , Sabtu (18/11). Acara “ Ignition Road To Campus  berlangsung di Aula STMIK PRINGSEWU dihadiri Wakil Ketua I  Elisabet YA, M.T.I , Wakil Ketua III  Nur Aminudin, M.T.I , Ketua LPPM  M. Muslihudin, M.T.I , Kaprodi Sistem Informasi  Tri Susilowati, M.T.I , Kaprodi Manajemen Informatika  Oktafianto, M.T.I , Bapak/Ibu Dosen serta mahasiswa/i STMIK Pringsewu. Dalam sambutannya  Nur Aminudin mengatakan, perkembangan teknologi di Indonesia menjadi perhatian penting dalam pemerintahan saat ini. Pentingnya pengembangan teknologi mengantarkan masyarakat Indonesia untuk melek teknologi. P
Baca selengkapnya

Tugas BP1 (Program C)

-
Gambar
Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtkb.SetFocus txtkb = "" txtjb = "" txtp = "" txttahun = "" txtpenerbit = "" txthg = "" End Sub Private Sub cmdproses_Click() Dim X As String txttahun = "20" & Right(txtkb, 2) X = Mid(txtkb, 3, 3) If X = "SIM" Then txtjb = "Sistem Informasi Manajemen" txtp = "Andra Setiawan" txthg = "75900" ElseIf X = "EDP" Then txtjb = "Electronic Data Processing" txtp = "Desi Istiqomah" txthg = "62000" ElseIf X = "MNJ" Then txtjb = "Manajemen" txtp = "Sandy Fitrajaya" txthg = "42000" ElseIf X = "CDR" Then txtjb = "Corel Draw" txtp = "Tri Indah Sari" txthg = "53000" ElseIf X = "RPL" Then txtjb = "Rekayasa Perangkat Lunak" txtp = "Ernita Sari" txthg = "83000&
Baca selengkapnya