Langsung ke konten utama

TUGAS MK BP1 TUGAS 1.5

Private Sub Command1_Click()
Text3 = Val(Text1) + Val(Text2)
Text6 = Val(Text4) * Val(Text5)
Text9 = Val(Text7) - Val(Text8)
Text12 = Val(Text10) / Val(Text11)
End Sub

Private Sub Command3_Click()
End
End Sub

Private Sub Command2_Click()
Text1.SetFocus
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text5 = ""
Text6 = ""
Text7 = ""
Text8 = ""
Text9 = ""
Text10 = ""
Text11 = ""
Text12 = ""
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)
Text4.SetFocus
End If
End Sub

Private Sub Text4_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text5.SetFocus
End If
End Sub

Private Sub Text5_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text6 = Val(Text4) * Val(Text5)
Text7.SetFocus
End If
End Sub

Private Sub Text7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text8.SetFocus
End If
End Sub

Private Sub Text8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text9 = Val(Text7) - Val(Text8)
Text10.SetFocus
End If
End Sub

Private Sub Text10_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text11.SetFocus
End If

End Sub
Private Sub Text11_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Text12 = Val(Text10) / Val(Text11)
End If
End Sub

Label:

Komentar

Posting Komentar

Postingan populer dari blog ini

PERINGATI HARI KARTINI SELURUH PETUGAS UPACARA STMIK PRINGSEWU ADALAH PEREMPUAN

STMIK PRINGSEWU  – Sebagai wujud rasa penghormatan kepada perjuangan pahlawan kita, Ibu Kartini, Sabtu, 21 April 2018 – Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu menyelenggarakan Upacara Bendera Peringatan Hari Kartini ke-139 dihalaman Kampus STMIK Pringsewu. Upacara Hari Kartini di halaman kampus ini dihadiri bapak/ibu dosen dan mahasiswa. Menariknya, dalam upacara ini, seluruh petugasnya adalah perempuan. Bertindak sebagai inspektur upacara Wakil Ketua I Elisabet Yunaeti A, M.T.I. Dalam amanatnya, Elisabet meminta agar momen hari Kartini jadi tonggak kebangkitan para perempuan, perempuan bisa meraih prestasi seperti kaum laki-laki. Jadi, mari kita jadikan momen ini untuk bangkit sekaligus instrospeksi diri, ucapnya. Setelah upacara selesai, akan dilaksanakan lomba membuat nasi goreng antar mahasiswa bertempat di halaman kampus.( *na ) Filed in:   BEM ,  Info Kampus ,  Umum
Posting Komentar
Baca selengkapnya

STMIK PRINGSEWU GELAR SARASEHAN KEBANGSAAN

STMIK PRINGSEWU  – Sabtu (28/4), Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu menyelenggarakan sarasehan kebangsaan dengan tema “Dalam Rangka Membendung Arus Radikal dan Terorisme di Wilayah Hukum Polda Lampung” bertempat di Aula Lt. II Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu. Sarasehan Kebangsaan dengan tema “Dalam Rangka Membendung Arus Radikal dan Terorisme di Wilayah Hukum Polda Lampung” menghadirkan narasumber Kombes Pol Yosi Hariyoso (Kepala Biro Operasi Polda Lampung), Ken Setiawan (Mantan Komandan Negara Islam Indonesia) dihadiri Kepala Kesbangpol Pringsewu Sukarman, Wakil Ketua I Bidang Akademik Elisabet Y. A, M.T.I, Wakil Ketua III Bidang Kemahasiswaan Nur Aminudin, M.T.I, Ka. LPPM M. Muslihudin, M.T.I, Kaprodi Sistem Informasi Tri Susilowati, M.T.I, Kaprodi Manajemen Informatika Oktafianto, M.T.I serta bapak ibu dosen STMIK Pringsewu. Sarasehan Kebangsaan dibuka Wakil Ketua III Bidang Kemahasiswaan STMIK Pringse...
Posting Komentar
Baca selengkapnya

STMIK PRINGSEWU Raih Sinta Awards 2018

STMIK PRINGSEWU  berhasil meraih Science and Technology Index (Sinta) Awards Tahun 2018 sebagai institusi dengan produktivitas publikasi dari Kementerian, Riset, Teknologi, dan Pendidikan Tinggi (Kemenristek Dikti). Penghargaan diterima oleh Ketua LLPM STMIK Pringsewu M. Muslihudin, M.T.I di Auditorium Gedung D Kemenristek Dikti RI, Jakarta, Rabu (4/7). “Sinta Awards 2018 ini dipersembahkan untuk segenap sivitas akademika STMIK Pringsewu yang sangat gigih meningkatkan publikasi ilmiah hasil penelitian dan pengadian masyarakat,” ujarnya. Menurutnya, Sinta Awards sebagai ajang yang positif untuk motivasi peningkatan publikasi ilmiah dan merupakan prestasi gemilang sivitas akademisi STMIK Pringsewu dalam produktivitas publikasi ilmiah. STMIK Pringsewu memiliki Produktifitas Publikasi yang membanggakan yaitu berdasarkan penilaian dalam jangka waktu 3 Tahun terahir 2016-2018 STMIK Pringsewu Masuk 100 Top Affilation yaitu dengan Peringkat 77 dan dengan Score Nilai 92. “Kami b...
Posting Komentar
Baca selengkapnya