fakry

Cari Blog Ini

Program visual basic

pada tanggal Desember 14, 2017

Dapatkan link
Facebook
X
Pinterest
Email
Aplikasi Lainnya

TUGAS BAPAK

Dapatkan link
Facebook
X
Pinterest
Email
Aplikasi Lainnya

Komentar

Posting Komentar

Postingan Populer

Tugas program A.

TUGAS A. Private Sub cmdbatal_Click() txtnk.SetFocus txtnk = "" txtnik = "" txtgol = "" txtkostat = "" txtstatus = "" txtth = "" txtjbt = "" txtbagian = "" txtgapok = "" txttjn = "" txttotg = "" End Sub _________________________________________ Private Sub cmdkeluar_Click() Unload me End Sub _________________________________________ Private Sub cmdlagi_Click() txtnk.SetFocus txtnk = "" txtnik = "" txtgol = "" txtkostat = "" txtstatus = "" txtth = "" txtjbt = "" txtbagian = "" txtgapok = "" txttjn = "" txttotg = "" End Sub _________________________________________ Private Sub cmdproses_Click() Dim V As String txtth = Left(txtnik, 4) V = Mid(txtnik, 7, 1) If V = "S" Then txtkostat = "S" txtstatus = "Singl...

STMIK – STIT PRINGSEWU MELAKUKAN AUDIENSI DENGAN BUPATI PRINGSEWU

PRINGSEWU – Kuliah Kerja Nyata (KKN) merupakan salah satu bentuk pengabdian kepada masyarakat yang dilakukan oleh mahasiswa secara interdisipliner, institusional, dan kemitraan sebagai salah bentuk kegiatan tridharma tinggi. Seiring dinamika masyarakat, pemerintah daerah, pemerintah pusat maupun dunia global, maka program KKN di STMIK Pringsewu diarahkan pada KKN berbasis pemberdayaan masyarakat. Keberadaan mahasiswa Kuliah Kerja Nyata (KKN) secara nyata masih diperlukan desa-desa yang masih memerlukan uluran tangan para cendikiawan maupun kaum visioner, hal tersebut bukannya tanpa dasar, akan tetapi bagi mereka yang mempunyai niat baik dan sungguh-sungguh untuk membangun desa dan manusianya, memang sangat tepat seiring dengan diberlakukannya otonomi daerah. Mahasiswa merupakan tenaga yang potensial karena mahasiswa adalah sebagian dari generasi muda yang mempunyai kesempatan untuk belajar dan miningkatkan keterampilan sehingga pribadinya akan mandiri. KKN juga diharapkan dapat mend...

TUGAS 2.3

MEMBUAT PROGRAM KALKULATOR MINI GAMBAR PROGRAM Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text2.SetFocus End If End Sub ------------------------------------------------------------------------ Private Sub Text2_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text3.SetFocus End If End Sub ------------------------------------------------------------------------- Private Sub Text3_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text4.SetFocus End If End Sub ------------------------------------------------------------------------- Private Sub Text4_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then Text5.SetFocus End If End Sub...

Diberdayakan oleh Blogger