Program 2 Perhitungan Harga Setelah Diskon 15% Menggunakan Enter

Private Sub Cmd1_Click()
Txt2 = Val(Txt1) * 0.15
Txt3 = Val(Txt1) - Val(Txt2)
End Sub

Private Sub Cmd2_Click()
Txt1 = ""
Txt2 = ""
Txt3 = ""
End Sub

Private Sub Cmd3_Click()
Unload Me
End Sub

Private Sub Txt1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt2 = Val(Txt1) * 0.15
Txt3 = Val(Txt1) - Val(Txt2)
End If
End Sub
 

Komentar

Posting Komentar

Postingan populer dari blog ini

TUGAS 3.6 BP1

Gambar
Private Sub Cmdkeluar_Click() Unload Me End Sub Private Sub Cmdlagi_Click() Txtkt = "" Txtjk = "" Txtht = "" Txtjb = "" Txtjt = "" Txttotalp = "" Txtkt.SetFocus End Sub Private Sub Cmdproses_Click() Dim a As String a = Mid(Txtkt, 1, 3) If a = "BIM" Then Txtjk = "BIMA" Txtht = "50000" Txtjb = "16.00" End If If a = "EKO" Then Txtjk = "EKONOMI" Txtht = "35000" Txtjb = "19.00" End If If a = "MUT" Then Txtjk = "MUTIARA" Txtht = "23000" Txtjb = "17.00" End If If a = "SEN" Then Txtjk = "SENJA" Txtht = "15000" Txtjb = "20.00" End If Txtjt.SetFocus End Sub Private Sub Txtjt_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txttotalp = Val(Txtjt) * Val(Txtht) End If End Sub
Baca selengkapnya

Tutorial

Gambar
TUTORIAL THRESHOLDING CITRA DIGITAL (PROGRAM MATLAB) Thresholding merupakan salah satu metode segmentasi citra dimana prosesnya didasarkan pada perbedaan derajat keabuan citra. Berikut Ini adalah tatacara pembuatan Thresholding citra digital menggunakan program matlab. 1.       Langkah awal dengan cara pilih menu home, pilih menu New kemudian pilih Graphical User Interface. Setelah muncul kita pilih Creat New GUI pilih black GUI(Default) Kemudian Klik OK. Gambar 1 2.       Langkah Kedua kita membuat desain tampilan yang kita inginkan, atau bisa mengikuti gambar berikut. Gambar 2 Berikut yang perlu diubah dalam komponen komponen yang tersedia di gambar 2. No. Nama Komponen Property Nilai 1 Pushbutton String Open Image Tag Pushbutton1 2 Pushbutton String Grayscale Tag Pushbutt
Baca selengkapnya
Gambar
YUDISIUM PERIODE I TAHUN 2017 STMIK PRINGSEWU  – Yudisium adalah proses akademik yang menyangkut penerapan nilai dan kelulusan mahasiswa dari seluruh proses akademik. Yudisium juga berarti pengumuman nilai kepada mahasiswa sebagai proses penilaian akhir dari seluruh mata kuliah yang telah di ambil mahasiswa dan penetapan nilai dalam transkrip akademik, serta memutuskan lulus atau tidaknya mahasiswa dalam menempuh studi selama jangka waktu tertentu, yang ditetapkan oleh pejabat berwenang yang dihasilkan dari keputusan rapat yudisium. Keputusan Yudisium dinyatakan dengan keputusan Ketua STMIK Pringsewu. Sekolah Tinggi Manajemen Informatika dan Komputer (STMIK) Pringsewu program studi Sistem Informasi (Strata Satu) dan Manajemen Informatika (Diploma Tiga) Insya’Allah akan melaksanakan Yudisium periode I tahun 2017 pada hari selasa (22/8). Insya’Allah pelaksanaan yudisium yang ke-1 ini dilaksanakan di Auditorium kampus STMIK Pringsewu. Selamat dan sukses kepada semua yang di Yudi
Baca selengkapnya