KALKULATOR WITH KEYPRESS

-
Private Sub cmdbatal_Click()
txtn1 = ""
txtn2 = ""
txtn3 = ""
txtn4 = ""
txtn5 = ""
txtn6 = ""
txtn7 = ""
txtn8 = ""
txttotal1 = ""
txttotal2 = ""
txttotal4 = ""
txttotal3 = ""
txtn1.SetFocus
End Sub

Private Sub cmdhitung_Click()
txttotal1 = Val(txtn1) + Val(txtn5)
txttotal2 = Val(txtn2) / Val(txtn6)
txttotal3 = Val(txtn3) - Val(txtn7)
txttotal4 = Val(txtn4) * Val(txtn8)
End Sub

Private Sub cmdkeluar_Click()
Unload Me
End Sub

Private Sub cmdlagi_Click()
txtn1 = ""
txtn2 = ""
txtn3 = ""
txtn4 = ""
txtn5 = ""
txtn6 = ""
txtn7 = ""
txtn8 = ""
txttotal1 = ""
txttotal2 = ""
txttotal4 = ""
txttotal3 = ""
txtn1.SetFocus
End Sub

Private Sub txtn6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn7.SetFocus
End If
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 txtn7_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtn8.SetFocus
End If
End Sub

Private Sub txtn8_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txttotal1 = Val(txtn1) + Val(txtn5)
txttotal2 = Val(txtn2) / Val(txtn6)
txttotal3 = Val(txtn3) - Val(txtn7)
txttotal4 = Val(txtn4) * Val(txtn8)
End If

End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

MAHASISWA STMIK PRINGSEWU SAMBANGI PT PRIMARINDO ASIA INFRASTRUCTURE TBK

-
Gambar
Bandung - Rabu (13/9) sebanyak 250 mahasiswa STMIK Pringsewu melakukan kunjungan ke PT. Primarindo Asia Infrasrtucture Tbk . Jl. Raya Ranca Bolang No. 98 Gedebage – Bandung yang disambut oleh Agus Sunarto sebagai Manajer HRD (Human Resource Development). Kegiatan kunjungan industri bertujuan untuk lebih mengenalkan mahasiswa terhadap dunia kerja yang berhubungan dengan bidang perkuliahannya. Kegiatan tersebut meliputi pemaparan company profile, kunjungan pabrik serta peluang kerja bagi lulusan atau alumni dari STMIK Pringsewu.  Agus Sunarto selaku Manajer HRD (Human Resource Developmen) menjelaskan tentang PT. Primarindo Asia Infrastructure Tbk, beliau mengatakan bahwa PT. Primarindo Asia Infrastructure Tbk . didirikan pada tahun 1988 dengan nama PT Bintang Kharisma, dengan status Penanaman Modal Dalam Negeri (PMDN). Pada tahun 1994, Perseroan mencatatkan dan menjual sahamnya di Bursa Efek Jakarta, dan menjadi PT Bintang Kharisma Tbk. Pada tahun 1997, Perseroan meng
Baca selengkapnya

KPU PRINGSEWU KUNJUNGI PEMILIHAN PRESIDEN MAHASISWA

-
Gambar
KPU PRINGSEWU KUNJUNGI PEMILIHAN PRESIDEN MAHASISWA PRINGSEWU – Ketua KPU Pringsewu kunjungi Tempat Pemungutan Suara (TPS) Pemilu Presiden dan Wakil Presiden Badan Eksekutif Mahasiswa STMIK Pringsewu. Rabu, (10/2) di Kampus setempat. Ketua KPU Pringsewu, H. Warsito, S.T., Didampingi pokja sosialisasi. A.Andoyo, Mengatakan, Pelaksanaan Proses pemilihan Presiden dan Wakil Presiden Mahasiswa ini merupakan pembelajaran proses Demokrasi, ini merupakan modal awal mahasiswa untuk menghadapi pemilu yang sesungguhnya. Warsito mengatakan, para mahasiswa kemungkinan ada yg belum memilih dan merupakan pemilih pemula, kegiatan ini bisa menjadi contoh pembelajaran proses pemilihan umum. Kata Warsito, Bagi panitia penyelenggara nantinya bisa berkiprah dalam pemilu yang sebenarnya. Wakil Ketua 3 Bidang Kemahasiswa STMIK Pringsewu, Nur Aminudin, M.T.I mengatakan, Pemilihan Presma dan Wapresma ini merupakan proses pembelajaran politik bagi mahasiswa, makna arti dari demokrasi se
Baca selengkapnya