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

Data communication Terminology

Data Communication Terminologies There are several common terminologies used in data communication literature: Channel: The word channel refers to the portion of a link that carries a transmission between a given pair of lines. One link can have many (n) channels. Data Rate: The data rate defines the number data elements (bits) sent in 1 second. The unit is bits per second (bps). Signal Rate: The signal rate is the numbers of signal elements sent in 1 second. The unit is baud . The data rate is sometimes called the bit rate : the signal rate is sometimes called the pulse rate, the modulation rate, or the baud rate. One goal in data communications is to increase the data rate while decreasing the signal rate. Increasing the data rate increases the speed of transmission; deceasing the signal rate decreasing the bandwidth requirement. Bandwidth: Bandwidth can be used in two different contexts with two different measuring values:- Bandwidth in Hertz: Bandwidth in ...
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