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

Smartwatch Nokia Steel Kini Punya Varian Edisi Terbatas

-
Gambar
Tak hanya meluncurkan produk smartphone Android saja, HMD global sebelumnya juga sempat meluncurkan wearable pada bulan Juli lalu. Smartwatch yang bernama Nokia Steel tersebut kini telah mendapatkan dua varian warna baru yang tersedia dalam edisi terbatas, yang akan melengkapi varian warna hitam dan putih, dimana varian baru sudah tersedia di website perusahaan. Terlepas dari pilihan warna baru yang bernama Full Black dan Rose Gold tersebut, Nokia Steel ini masih mengusung spesifikasi yang sama seperti varian original. Jika dilihat, wujud Nokia Steel ini memang tidak terlihat seperti kebanyakan smartwatch yang menggunakan panel layar, karena tampilan depan smartwatch ini hanya menampilkan jam analog. Meski terlihat seperti jam tangan biasa, namun Nokia Steel memiliki fitur-fitur seperti smartwatch lain termasuk fitur monitoring tidur dan aktivitas. Tentunya smartwatch ini dapat terhubung dengan smatphone berkat bantuan aplikasi khusus, serta mampu dihubungkan dengan timbangan badan c
Baca selengkapnya

Kerjasama MediaTek dan Google Akan Mempermudah Produsen Merakit Smartphone Android

-
Gambar
Belakangan ini produsen chipset MediaTek tampak belum meluncurkan produk terbarunya, namun siapa sangka perusahaan asal Taiwan ini tengah mempersiapkan rencana untuk tahun depan. Selain itu, baru-baru ini Apple juga dikabarkan bakal mengadopsi Modem milik MediaTek untuk iPhone generasi selanjutnya. Tak cukup itu saja, karena MediaTek kini juga menjalin kemitraan dengan raksasa teknologi Google. Menurut laporan Phone, Google bakal memberikan izin kepada perusahaan untuk menawarkan pre-tested, pre-certified dan fully compliant build dari sistem operasi Android dan Google Service. Kemudahan ini bisa diperoleh bagi produsen smartphone yang ingin menggunakan chipset buatan MediaTek. MediaTek mencuri perhatian ketika mengumumkan makalahnya sebagai produsen pertama yang sepenuhnya menawarkan GMS Express. Itu adalah sebuah program yang diumumkan oleh raksasa Google, dimana program ini dibuat untuk menawarkan produsen perangkat mendapat persetujuan Software Android dan keseluruhan portofolio
Baca selengkapnya

PROGRAM 3.6 BP1

-
Gambar
Private Sub Cmdlagi_Click() Txtkt = "" Txtjk = "" Txtht = "" Txtjb = "" Txtjt = "" txttotalp = "" 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 Private Sub Cmdkeluar_Click() Unload Me End Sub
Baca selengkapnya