TUGAS PEMROGRAMAN 2.3

-




Private Sub Cmdhitung_Click()
Txth1 = Val(Txtn1) + Val(Txtn2)
Txth2 = Val(Txtn3) - Val(Txtn4)
Txth3 = Val(Txtn5) * Val(Txtn6)
Txth4 = Val(Txtn7) / Val(Txtn8)
Txth5 = Val(Txth1) + Val(Txth2) + Val(Txth3) + Val(Txth4)
End Sub

Private Sub Cmdbersih_Click()
Txtn1.SetFocus
Txtn1 = ""
Txtn2 = ""
Txtn3 = ""
Txtn4 = ""
Txtn5 = ""
Txtn6 = ""
Txtn7 = ""
Txtn8 = ""
Txth1 = ""
Txth2 = ""
Txth3 = ""
Txth4 = ""
Txth5 = ""
End Sub


Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Txtn1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtn2.SetFocus
End If
End Sub


Private Sub Txtn2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtn3.SetFocus
End If
End Sub

Private Sub Txtn3_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtn4.SetFocus
End If
End Sub

Private Sub Txtn4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtn5.SetFocus
End If
End Sub


Private Sub Txtn5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtn6.SetFocus
End If
End Sub


Private Sub Txtn6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtn7.SetFocus
End If
End Sub


Private Sub Txtn7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtn8.SetFocus
End If
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