Tugas visual basic 1.1





Komentar

Posting Komentar

Postingan populer dari blog ini

TUGAS PROGRAM B

Gambar
Private Sub cmdp_Click() txttt = "20" & Right(cbokb, 2) Dim V, S As String V = Mid(cbokb, 3, 3) If V = "SIM" Then txtjb = "Sistem Informasi Manajemen" txtpr = "Yati Nur Oktavia" txth = "75900" ElseIf V = "EDP" Then txtjb = "Electronic Data Processing" txtpr = "Imam Tarmizi" txth = "62000" ElseIf V = "MNJ" Then txtjb = "Manajemen" txtpr = "Valentina Mariana" txth = "42000" ElseIf V = "CDR" Then txtjb = "Corel Draw" txtpr = "Riyan Suhandi" txth = "53000" ElseIf V = "RPL" Then txtjb = "Rekayasa Perangkat Lunak" txtpr = "Sinta Umpu Singa" txth = "83000" End If S = Left(cbokb, 1) If S = "A" Then txtpt = "Andi Offset Yogyakarta" ElseIf S = "I" Then txtpt = "Indah Surabaya" ElseIf S = "S" Then txtpt =...
Baca selengkapnya

WISUDA BERSAMA STMIK DAN STIT PRINGSEWU 2017

Gambar
STMIK PRINGSEWU  – Ahad (15/10), penyelenggaraan acara wisuda STMIK Pringsewu dan STIT Pringsewu berjalan lancar dan sukses. Wisuda tersebut merupakan wisuda ke-18 yang dilaksanakan oleh STMIK Pringsewu dan wisuda ke-3 STIT Pringsewu. Acara wisuda STMIK Pringsewu program studi S1 Sistem Informasi diikuti oleh 349 orang wisudawan/i, D3 Manajemen Informatika diikuti 24 orang wisudawan/i, sedangkan jumlah wisudawan dari STIT Pringsewu sebanyak 39 orang wisudawan/i, mereka merupakan Sarjana Pendidikan Islam dari Program Studi Manajemen Pendidikan Islam. Perhelatan tersebut dilaksanakan secara bersamaan di GOR Kabupaten Pringsewu. Perhelatan tersebut dihadiri Bupati Pringsewu H. Sujadi, Ketua MUI, Polres, Kodim, dan APTISI. Acara wisuda bersama STMIK Pringsewu dan STIT Pringsewu dimulai pada pukul 09.00 WIB sampai selesai, dibuka secara langsung oleh ketua Yayasan Lembaga Pendidika Startech Pringsewu Dr. H. Fauzi. Bupati Pringsewu H. Sujadi dalam sambutann...
Baca selengkapnya

TUGAS BP 2.2

Private Sub Command1_Click() Text3 = Val(Text1) * Val(Text2) End Sub Private Sub Command2_Click() Text1.SetFocus Text1 = "" Text2 = "" Text3 = "" End Sub Private Sub Command3_Click() Unload Me End Sub 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 = Val(Text1) * Val(Text2) End If End Sub
Baca selengkapnya