biyaya siswa stmik pringsewu

-
STMIK PRINGSEWU MENYELENGGARAKAN
GRATIS BIAYA PENDIDIKAN SAMPAI TAMAT
DENGAN JURUSAN.
S1- SISTEM INFORMASI
D3 -MANAJEMEN INFORAMTIKA
BAGI PENGHAFAL AL-QURAN 10 JUS

Komentar

Posting Komentar

Postingan populer dari blog ini

program1

-
Gambar
Private Sub cmdbatal_Click() txtnama.SetFocus txtnama = "" txtnpm = "" txtalamat = "" End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub cmdlagi_Click() txtnama.SetFocus txtnama = "" txtnpm = "" txtalamat = "" End Sub Private Sub txtnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtnpm.SetFocus End If End Sub Private Sub txtnpm_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtalamat.SetFocus End If End Sub
Baca selengkapnya

Tugas 3.2

-
Gambar
Tugas 3.2 Source Codenya: Private Sub cmdbatal_Click() txtnama.SetFocus txtnama = "" txtnpm = "" txtjur = "" txtps = "" txtnu = "" txttm.Text = "" End Sub Private Sub cmdlagi_Click() txtnama.SetFocus txtnama = "" txtnpm = "" txtjur = "" txtps = "" txtnu = "" txttm.Text = "" End Sub Private Sub cmdkeluar_Click() Unload Me End Sub Private Sub Form_Activate() txtnama.SetFocus txtnama = "" txtnpm = "" txtjur = "" txtps = "" txtnu = "" txttm.Text = "" End Sub Private Sub cmdproses_Click() Dim S As String txttm.Text = "20" & Left(txtnpm.Text, 2) S = Mid(txtnpm.Text, 3, 1) If S = "1" Then txtjur.Text = "Sistem Informasi" ElseIf S = "2" Then txtjur.Text = "Manajemen Informatika" ElseIf S = "3" Then txtju...
Baca selengkapnya

Tugas 3.3

-
Gambar
Tugas 3.3 Source Codenya: Private Sub Form_Load() cbokode.AddItem "Apple MC965 Macbook Air" cbokode.AddItem "Apple MC966 Macbook Air" cbokode.AddItem "Apple MC968 Macbook Air" cbokode.AddItem "Apple MC969 Macbook Air" cbokode.AddItem "Apple MC700 Macbook Pro" cbokode.AddItem "Apple MC721 Macbook Pro" cbokode.AddItem "Apple MC723 Macbook Pro" cbokode.AddItem "Apple MC311 Macbook Pro" cbokode.AddItem "Apple MC313 Macbook Pro" cbokode.AddItem "Apple MC314 Macbook Pro" cbokode.AddItem "Apple MC318 Macbook Pro" cbokode.AddItem "Apple MC322 Macbook Pro" cbokode.AddItem "Apple MC965 Macbook Air" cbokode.AddItem "Apple MC966 Macbook Air" End Sub Private Sub cbokode_Click() Dim mt, hs As String Select Case Mid(cbokode, 7, 5) Case "MC965" mt = "Apple MC965 Macbook Air  " hs = "12800000" Case "MC966" mt = "A...
Baca selengkapnya