PERHITUNGAN HARGA SETELAH DISKON 10% WITH KEYPRESS

-

Private Sub cmdhitung_Click()
Dim A, B, C As Double
TxtB.txt = Val(TxtA.txt) * 0.1
TxtC.txt = Val(TxtA.txt) - Val(TxtB.txt)
End Sub
Private Sub cmdquit_Click()
End If
End Sub
Private Sub cmdulangi_Click()
TxtA = ""
TxtB = ""
TxtC = ""
End Sub
Private Sub TxtA_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtB = Val(TxtA) * 0.1
TxtC = Val(TxtA) - Val(TxtB)
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