KALKULATOR MENGGUNAKAN ENTER TUGAS 6

-

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

Semoga bermanfaat

Postingan populer dari blog ini

STMIK PRINGSEWU DAN PEMDA PRINGSEWU MEMBERIKAN PEMBEKALAN KEPADA MAHASISWA KKN

-
Gambar
Written by  admin   |   July 19, 2017   |   0 STMIK PRINGSEWU  – Ratusan Mahasiswa STMIK dan STIT Pringsewu peride tahun 2017 mengikuti pembekalan sebelum melaksanakan Kuliah Kerja Nyata (KKN) di Kabupaten Pringsewu. Pemberian materi seputar gambaran Kabupaten Pringsewu disampaikan langsung oleh Kepala Dinas Pemberdayaan Masyarakat Desa (PMD), Malian Ayub, M.M di depan mahasiswa peserta KKN di gedung STMIK Pringsewu. Saya menyambut baik kegiatan pembekalan KKN untuk dapat memahami lebih lanjut terkait dengan Pekon yang ada di Wilayah Kabupaten Pringsewu, Rabu (19/7). Kami harapkan dengan adanya mahasiswa yang melaksanakan KKN di Kabupaten Pringsewu akan memberikan sumbangsih besar terhadap pembangunan di Kabupaten Pringsewu, keberadaan mahasiswa STMIK dan STIT Pringsewu ini nantinya akan membantu proses pelaksanaan kegiatan pembangunan di pem...
Baca selengkapnya

Layar Fleksibel Sudah Dibuat, Kini Lihat Nih Kamera Fleksibel!

-
Gambar
Perkembangan teknologi dunia saat ini memang kian canggih saja. Perangkat elektronik pun dibuat seringkas mungkin. Termasuk di antaranya adalah perangkat elektronik yang didesain fleksibel. Nah, kalau sebelumnya sudah ada layar fleksibel dari LG, kini para peneliti ternyata juga mengembangkan kamera fleksibel lho! Para peneliti dari laboratorium Computer Vision di Columbia University menciptakan sebuah kamera yang didesain fleksibel. Untuk membuat kamera ini, para peneliti pun memanfaatkan silikon. Untuk hasil gambarnya, mereka mengungkapkan kalau hasil jepretan kamera fleksibel tersebut cukup aneh, lebih mirip dengan gambar yang terdistorsi. Meskipun begitu, gambar yang dihasilkan tetap merupakan sebuah gambar beresolusi tinggi. Meskipun begitu, salah seorang anggota peneliti Dr. Shree Nayar mengungkapkan kalau kamera fleksibel yang tengah dikembangkan oleh timnya tersebut bakal bisa berguna untuk masyarakat luas. Salah satunya adalah kemungkinan untuk bisa digunakan pada bagia...
Baca selengkapnya

YUDISIUM PERIODE I TAHUN 2017

-
Gambar
Written by  admin   |   August 21, 2017   |   0 STMIK PRINGSEWU  – Pengertian yudisium yang sering dikenal oleh mahasiswa adalah sebuah proses akademik yang nantinya menyangkut penetapan nilai dan kelulusan mahasiswa yang diambil dari seluruh proses kegiatan akademik. Bagi perguruan tinggi, kegiatan ini terbilang sangat rutin yakni dengan mengumpulkan mahasiswa yang sudah lulus uji skripsi dan dikumpulkan untuk mengadakan pertemuan. Di dalam pertemuan tersebut dilakukan pembacaan nilai akhir atas prestasi mahasiswa, profil dan informasi dari mahasiswa tersebut .  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 jang...
Baca selengkapnya