Program for clculator in Visual Basic



Calculator
The Interface:







Coding:
 Option Explicit
Private Sub ButtonNum_Click(Index As Integer)
If Num_of_digit > 0 Then
If Num_of_digit < 30 Then
panel. Caption = panel.Caption + Right$(Str(Index), 1)
Num_of_digit = Num_of_digit + 1
End If
Else
panel.Caption = Right$(Str(Index), 1)
Num_of_digit = 1
End If
CheckValue
End Sub
Dim Num_of_digit As Integer
Dim key As Integer
Dim displayValue As Variant
Dim a, b, c, d, e, f, g As Variant
Dim memo As Variant
Dim newNumber As Boolean

Private  Sub BZero_Click (Index As Integer)
If Num_of_digit > 0 Then
panel.Caption = panel.Caption + "0"
Else
panel.Caption = "0"
Num_of_digit = Num_of_digit + 1
End If
CheckValue
End Sub

Sub CheckValue()
displayValue = Val(panel.Caption)
End Sub

Private Sub ButtonNum_Click (Index As Integer)
If Num_of_digit > 0 Then
If Num_of_digit < 30 Then
panel.Caption = panel.Caption + Right$(Str(Index), 1)
Num_of_digit = Num_of_digit + 1
End If
Else
panel.Caption = Right$(Str(Index), 1)
Num_of_digit = 1
End If
CheckValue
End Sub

Private Sub Clear_Click ()
panel.Caption = "0"
displayValue = "0"
Num_of_digit = 0
End Sub

Private Sub ClearAll_Click ()
panel.Caption = "0"
displayValue = "0"
memo = 0
End Sub
Private Sub Equal_Click ()
CheckValue
If newNumber = True Then
If key = 1 Then
e = displayValue + a
ElseIf key = 2 Then
e = b - displayValue
ElseIf key = 3 Then
e = displayValue * c
ElseIf key = 5 Then
e = (f * displayValue) / 100
ElseIf key = 4 And displayValue <> 0 Then
e = d / displayValue
Else
GoTo error
End If
If Abs(e) < 1 Then
panel.Caption = Format(e, "General Number")
Else
panel.Caption = Str(e)
End If
Else
panel.Caption = displayValue
End If
GoTo finish
error: panel.Caption = "E"
finish:
Num_of_digit = 0
newNumber = False
End Sub

Private Sub MemoCancel_Click ()
memo = 0
End Sub

Private Sub Memory_Click ()
CheckValue
memo = displayValue
Num_of_digit = 0
End Sub

Private Sub Operator_Click (Index As Integer)
CheckValue
If Index = 11 Then
a = displayValue
key = 1
ElseIf Index = 12 Then
b = displayValue
key = 2
ElseIf Index = 13 Then
c = displayValue
key = 3
ElseIf Index = 14 Then
d = displayValue
key = 4

ElseIf Index = 15 Then
f = displayValue
key = 5
End If
Num_of_digit = 0
newNumber = True
End Sub

Private Sub Plus_minus_Click ()
CheckValue
g = -1 * displayValue
displayValue = g
panel.Caption = Str(displayValue)
CheckValue
End Sub

Private Sub Poin_Click ()
Static point_lock As Integer
If point_lock = 0 And Num_of_digit < 20 Then
panel.Caption = panel.Caption + "."
Num_of_digit = Num_of_digit + 1
End If
CheckValue
End Sub

Private Sub Recall_Click ()
panel.Caption = Str(memo)
End Sub

Private Sub SqRoot_Click ()
CheckValue
If displayValue >= 0 Then
panel.Caption = Str(Sqr(displayValue))
Else
panel.Caption = "E"
End If
Num_of_digit = 0
End Sub
Private Sub Summation_Click ()
CheckValue
memo = memo + displayValue
Num_of_digit = 0
End Sub

Comments

Post a Comment

Popular posts from this blog

Program for calculating Simple Interest using the concept of Default Arguments

//Program for Interest calculation using the concept of default arguments #include<iostream.h> #include<conio.h> void main() { float amount, principal; int time; float interest(float p, int n, float r=0.15); cout<<"Program for simple interest calculation"<<endl; cout<<"Please enter principal amount:"; cin>>principal; cout<<"Please enter Time: "; cin>>time; amount=interest(principal, time); cout<<"\nThe amount is:"<<amount; cout<<"\nPress any key to continue..."; getch(); } float interest(float p, int n,float r) { return (p+((p*r*n)/100.0)); }
Read more

Computer MCQs Part-III

1. Computer uses the_________number system to store data and perform calculations. 1) Binary 2) octal 3) Decimal 4) Hexadecimal 5) None of these 2. .............. is the process of carrying out commands 1) Fetching 2) Storing 3) Decoding 4) Executing 5) None of these 3. In word, when you indent a paragraph, you .... 1) push the text in with respect to the margin 2) change the margins on the page 3) move the text up by one line 4) move the text down by one line 5) None of these 4. ASCII stands for ......... 1) American Special Computer for Information Interaction 2) American Standard Computer for Information Interchange 3) American Special Code for Information Interchange 4) American Special Computer for Information Interchange 5) American Standard Code for Information Interchange 5. Which of the following is used by the browser to connect to the location of the Internet resources ? 1) Linkers 2) Protocol 3) Cable 4) URL 5) None of these 6. ……….is the process of dividing the dis...
Read more

Program: Maximum number in three numbers in visual basic

Image
Program: Maximum number in three numbers User Interface   Coding: Function calMax(x, y, z As Variant) If x > y And x > z Then calMax = Str(x) ElseIf y > x And y > z Then calMax = Str(y) ElseIf z > x And z > y Then calMax = Str(z) End If End Function Private Sub Command1_Click() Dim a, b, c a = Val(Txt_Num1.Text) b = Val(Txt_Num2.Text) c = Val(Txt_Num3.Text) Lbl_Display.Caption = calMax(a, b, c) End Sub Private Sub Label5_Click() End Sub Private Sub Form_Load() End Sub
Read more