PROGRAM 6 KALKULATOR MENGGUNAKAN ENTER


Private Sub txt1_Change()
Txtn1 = ""
Txtn2 = ""
txtn3 = ""
Txtn4 = ""
txtn5 = ""
txtn6 = ""
txtn7 = ""
txtn8 = ""
Txtjmlh1 = ""
txtjmlh2 = ""
txtjmlh3 = ""
txtjmlh4 = ""
Txtjmlh = ""
End Sub

Private Sub Cmdbatal_Click()
Txtn1 = ""
Txtn2 = ""
txtn3 = ""
Txtn4 = ""
txtn5 = ""
txtn6 = ""
txtn7 = ""
txtn8 = ""
Txtjmlh1 = ""
txtjmlh2 = ""
txtjmlh3 = ""
txtjmlh4 = ""
Txtjmlh = ""
End Sub

Private Sub Cmdhitung_Click()
Txtjmlh1 = Val(Txtn1) + Val(Txtn2)
txtjmlh2 = Val(txtn3) - Val(Txtn4)
txtjmlh3 = Val(txtn5): Val (txtn6)
txtjmlh4 = Val(txtn7) * Val(txtn8)
Txtjmlh = Val(Txtjmlh1) + Val(txtjmlh2) + Val(txtjmlh3) + Val(txtjmlh4)
End Sub


Private Sub cmdjumlah_Click()
Txtjmlh1 = Val(Txtn1) + Val(Txtn2)
txtjmlh2 = Val(txtn3) - Val(Txtn4)
txtjmlh3 = Val(txtn5): Val (txtn6)
txtjmlh4 = Val(txtn7) * Val(txtn8)
Txtjmlh = Val(Txtjmlh1) + Val(txtjmlh2) + Val(txtjmlh3) + Val(txtjmlh4)
End Sub

Private Sub Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdlagi_Click()
Txtn1 = ""
Txtn2 = ""
txtn3 = ""
Txtn4 = ""
txtn5 = ""
txtn6 = ""
txtn7 = ""
txtn8 = ""
Txtjmlh1 = ""
txtjmlh2 = ""
txtjmlh3 = ""
txtjmlh4 = ""
Txtjmlh = ""
End Sub

Private Sub Command10_Click()
Txtjmlh = Val(Txtjmlh1) + Val(txtjmlh2) + Val(txtjmlh3) + Val(txtjmlh4)
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
Txtjmlh1 = Val(Txtn1) + Val(Txtn2)
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
txtjmlh2 = Val(txtn3) - Val(Txtn4)
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 txtn6_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
txtjmlh3 = Val(txtn5) : Val(txtn6)
txtn7.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
txtjmlh4 = Val(txtn7) * Val(txtn8)
End If
End Sub

Private Sub txtnjmlh1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txtjmlh = Val(Txtjmlh1) + Val(txtjmlh2) + Val(txtjmlh3) + Val(txtjmlh4)
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