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

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

Program for Checking whether the given number is Palindrome or not

Palindrome means a number which remains same if positions of its digits is reversed i.e., 1221 #include<stdio.h> #include<conio.h> void main() { int n,digit,rev=0,num; printf("enter the number"); scanf("%d",&num); n=num; do { digit=num%10; rev=rev*10+digit; num/=10; }while(num!=0); printf("reverse number is=%d\n",rev); if(n==rev) { printf("number is palindrome"); } else { printf("number is not palindrome") ; } getch(); }
Read more