Tugas 2 Program 1 BP1



P1


Private Sub cmdHitung_Click()
txtdiskon = Val(txtharga) * 0.15
Txthak = Val(txtharga) - Val(txtdiskon)
End Sub

Private Sub cmdQuit_Click()
End
End Sub

Private Sub cmdUlangi_Click()
txtharga = ""
txtdiskon = ""
Txthak = ""
txtharga.SetFocus
End Sub

Komentar

Posting Komentar

Postingan populer dari blog ini

CARA MEMBUAT AKUN BBM DAN CONTOH

Gambar
Cara Membuat Email BBM [Contoh Email BBM disini saya menggunakan Akun Gmail] 1. Siapkan email yang sudah kamu punya, jika belum punya bisa ikuti caranya disini : Cara Buat Email Baru Di Gmail Bahasa Indonesia . Jika sudah siap emailnya, silahkan buka aplikasi BBM yang sudah di download / di instal. Seperti berikut aplikasi yang belum di daftarkan akun blackkberry ID. Kemudian tekan Sign up with an email address, lihat pada yang saya tandai dengan panah. 2. Hampir tidak berbeda dengan tampilan awal tadi. Lengkapi dengan data yang kamu punya. Di kolom atas untuk mengisi nama akun, pada yang saya beri tanda adalah untuk memasukan email yang kamu punya. Kemudian untuk kata sandi, minimal 6 katakter. 3. Jika sudah di lengkapi dan memasukan email bbm dengan benar, tekan Create Account. 4. Pastikan alamat email yang digunakan tidak salah ketik. Jika benar, tekan it's correct. 5. Di langkah ini, boleh pilih mana saja terserah. Tapi saya melanjut...
Baca selengkapnya

Tugas 2 Program 5 BP1

Gambar
P5 Private Sub Cmdext_Click() End End Sub Private Sub Optred_Click() Lbltxt.ForeColor = vbRed End Sub Private Sub Optbiru_Click() Lbltxt.ForeColor = vbBlue End Sub Private Sub Opthijau_Click() Lbltxt.ForeColor = vbGreen End Sub Private Sub Optkuning_Click() Lbltxt.ForeColor = vbYellow End Sub Private Sub chkbold_Click() If Chkbold.Value = 1 Then Lbltxt.FontBold = True Else Lbltxt.FontBold = False End If End Sub Private Sub chkunderline_Click() If Chkunderline.Value = 1 Then Lbltxt.FontUnderline = True Else Lbltxt.FontUnderline = False End If End Sub Private Sub chkstrikeout_Click() If Chkstrikeout.Value = 1 Then Lbltxt.FontStrikethru = True Else Lbltxt.FontStrikethru = False End If End Sub Private Sub chkitalic_Click() If Chkitalic.Value = 1 Then Lbltxt.FontItalic = True Else Lbltxt.FontItalic = False End If End Sub
Baca selengkapnya

STMIK PRINGSEWU Kunjungan Media Ke Harian Kedaulatan Rakyat

Gambar
MAHASISWA STMIK PRINGSEWU SAMBANGI SKH KEDAULATAN RAKYAT in Share Yogyakarta – Senin (11/9), mahasiswa STMIK Pringsewu mengadakan kunjungan media ke harian Kedaulatan Rakyat. Kunjungan kali ini bertujuan untuk mendapat pengetahuan dari redaksi Kedaulatan Rakyat serta mengetahui proses penerbitan koran di tempat ini dengan jumlah peserta 250 orang meliputi mahasiswa dan dosen pendamping. Kedatangan mahasiswa STMIK Pringsewu disambut oleh Suci dilanjut Agus Suryana selaku perwakilan dosen pendamping. Agenda hari itu dimulai dengan pemberian materi singkat oleh Suci Kedaulatan Rakyat, mengenai sejarah Kedaulatan Rakyat dan proses penerbitan. Kedaulatan Rakyat merupakan salah satu koran tertua di Indonesia. Harian ini berdiri pada tanggal 27 September 1945, artinya Kedaulatan Rakyat sudah seusia dengan negara ini. Pada masa itu, Kedaulatan Rakyat didirikan oleh H. Samawi dan H. Madikin sebagai alat penyambung lidah. Kedaulatan Rakyat merupakan kora...
Baca selengkapnya