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 ...
Baca selengkapnya

APLIKASI PERHITUNGAN GAJI WITH KEYPRESS

-
Gambar
Private Sub cmdkluar_Click() Unload Me End Sub Private Sub cmdproses_Click() txtgk.Text = Val(txtgp.Text) + Val(txttj.Text) - Val(txtpt.Text) txtpj.Text = Val(txtgk.Text) * (0.1) txtgd.Text = Val(txtgk.Text) - Val(txtgd.Text) End Sub Private Sub cmdulang_Click() txtgp = "" txttj = "" txtpt = "" txtgk = "" txtpj = "" txtgd = "" End Sub Private Sub txtgp_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtgk.Text = Val(txtgp.Text) + Val(txttj.Text) - Val(txtpt.Text) txtpj.Text = Val(txtgk.Text) * (0.1) txtgd.Text = Val(txtgk.Text) - Val(txtgd.Text) End If End Sub
Baca selengkapnya

BAZAR KEWIRAUSAHAAN MAHASISWA STMIK PRINGSEWU

-
Gambar
  Pringsewu (18/12), Kebersamaan dan keceriaan sivitas akademika Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu terlihat pada perhelatan yang diselenggarakan Mahasiswa STMIK Pringsewu kelas Website 8, 9 dan 10 yaitu Bazar Kewirausahaan 2015. Acara yang digelar tanggal 18 s/d 19 Desember 2015 ini berlangsung sangat meriah dengan dihadiri oleh beberapa undangan. Bazar kewiruusahaan tersebut mengusung tema “Mengubah Pola Pikir dari Mencari dengan Menciptakan Peluang Kerja”, acara ini dimaksudkan untuk mempererat tali persaudaraan dan semangat kebersamaan antar sivitas akademika STMIK Pringsewu agar tercipta keharmonisan dalam pencapaian misi dan tujuan bersama. Dalam menghadapi tantangan bisnis termasuk menghadapi customer maka sebagai mahasiswa harus belajar dalam memasarkan suatu produk. Dalam mata kuliah kewirausahaan yang di ampu A. Andoyo, S.Sos., M.T.I ini mahasiswa mencoba melakukan sebuah usaha sederhana guna mendapatkan pembelajaran u...
Baca selengkapnya