Selasa, 14 November 2017

Tugas 5 kalkulator tanpa menggunakan keypress



Tugas 5


Private Sub cmdhitung_Click()
txtjumlah1 = Val(txt1) + (txt2)
txtjumlah2 = Val(Txt3) / (txt4)
txtjumlah3 = Val(txt5) - (txt6)
txtjumlah4 = Val(txt7) * (txt8)
End Sub

Private Sub cmdbatal_click()
txt1 = ""
txt2 = ""
Txt3 = ""
txt4 = ""
txt5 = ""
txt6 = ""
txt7 = ""
txt8 = ""
txtjumlah1 = ""
txtjumlah2 = ""
txtjumlah3 = ""
txtjumlah4 = ""
txt1.SetFocus
End Sub

Private Sub cmdlagi_Click()
txt1 = ""
txt2 = ""
Txt3 = ""
txt4 = ""
txt5 = ""
txt6 = ""
txt7 = ""
txt8 = ""
txtjumlah1 = ""
txtjumlah2 = ""
txtjumlah3 = ""
txtjumlah4 = ""
txt1.SetFocus
End Sub

Private Sub cmdkeluar_click()
Unload Me
End Sub

Tidak ada komentar:

Posting Komentar

Tutorial

TUTORIAL THRESHOLDING CITRA DIGITAL (PROGRAM MATLAB) Thresholding merupakan salah satu metode segmentasi citra dimana prosesnya did...