Scribd
Upload
53 views

Txtsource - Text "" End Sub

in t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.e

Uploaded by

akokeykyla
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
53 views

Txtsource - Text "" End Sub

in t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.ein t.l.e

Uploaded by

akokeykyla
Copyright
© © All Rights Reserved
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 5

Dim Operand1 As Double

Dim Operand2 As Public Class frmcalculator


Double
Dim [Operator] As String

Private Sub btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles btn1.Click, btn2.Click, btn3.C txtsource.Text = txtsource.Text & sender.text
End Sub

Private Sub btnclear_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button3.Click
txtsource.Text = ""
End Sub




Private mdblResult As Double
Private mdblSavedNumber As Double
Private mstrDot As String
Private mstrOp As String
Private mstrDisplay As String
Private mblnDecEntered As Boolean
Private mblnOpPending As Boolean
Private mblnNewEquals As Boolean
Private mblnEqualsPressed As Boolean
Private mintCurrKeyIndex As Integer
Private Sub Form_Load()
Top = (Screen.Height - Height) / 2
Left = (Screen.Width - Width) / 2
End Sub






Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btn0.Click
lbl1.Text = lbl1.Text & "0"
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btn1.Click
lbl1.Text = lbl1.Text & "1"
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btn2.Click
lbl1.Text = lbl1.Text & "2"
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btn3.Click
lbl1.Text = lbl1.Text & "3"
End Sub
Private Sub btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btn4.Click
lbl1.Text = lbl1.Text & "4"
End Sub
Private Sub btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btn5.Click
lbl1.Text = lbl1.Text & "5"
End Sub
Private Sub btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btn6.Click
lbl1.Text = lbl1.Text & "6"
End Sub
Private Sub btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btn7.Click
lbl1.Text = lbl1.Text & "7"
End Sub
Private Sub btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
btn8.Click
lbl1.Text = lbl1.Text & "8"
End Sub

You might also like