google.com, pub-4617457846989927, DIRECT, f08c47fec0942fa0 Learn to enjoy every minute of your life.Only I can change my life.

Friday, March 6, 2015

Visual basic program to create calculator with extra two button for factorial and check even/odd.

Design window  :-
Take button on form and one textbox on form and make it place as shown below and then in code window of each button do following coding.


Dim operand1 As Double
Dim operand2 As Double
Dim operator As String

Private Sub Command1_Click()
Text1.Text = Text1.Text + "1"
End Sub

Private Sub Command2_Click()
Text1.Text = Text1.Text + "2"
End Sub

Private Sub Command3_Click()
Text1.Text = Text1.Text + "3"
End Sub

Private Sub Command4_Click()
Text1.Text = Text1.Text + "4"
End Sub

Private Sub Command5_Click()
Text1.Text = Text1.Text + "5"
End Sub

Private Sub Command6_Click()
Text1.Text = Text1.Text + "6"
End Sub

Private Sub Command7_Click()
Text1.Text = Text1.Text + "7"
End Sub

Private Sub Command8_Click()
Text1.Text = Text1.Text + "8"
End Sub

Private Sub Command9_Click()
Text1.Text = Text1.Text + "9"
End Sub

Private Sub Command10_Click()
Text1.Text = Text1.Text + "0"
End Sub

Private Sub Command11_Click()
Text1.Text = Text1.Text + "."
End Sub

Private Sub Command12_Click()
Text1.Text = ""
End Sub

Private Sub Command13_Click()
operand1 = Val(Text1.Text)
operator = "+"
Text1.Text = ""
End Sub

Private Sub Command14_Click()
operand1 = Val(Text1.Text)
operator = "-"
Text1.Text = ""
End Sub

Private Sub Command15_Click()
operand1 = Val(Text1.Text)
operator = "*"
Text1.Text = ""
End Sub

Private Sub Command16_Click()
operand1 = Val(Text1.Text)
operator = "/"
Text1.Text = ""
End Sub

Private Sub Command17_Click()
Dim n As Integer
Dim fact As Integer
fact = 1
n = Val(Text1.Text)
For i = 1 To n
fact = fact * i
Next
MsgBox "Factorial of " & n & " is = " & fact
Text1.Text = ""
End Sub

Private Sub Command18_Click()
Text1.Text = Text1.Text * -1
End Sub

Private Sub Command19_Click()
Dim n As Integer
n = Val(Text1.Text)
If n Mod 2 = 0 Then
MsgBox "Number is EVEN"
Else
MsgBox "Number is ODD"
End If
Text1.Text = ""
End Sub

Private Sub Command20_Click()
Dim result As Double
operand2 = Val(Text1.Text)
If operator = "-" Then result = operand1 - operand2
If operator = "*" Then result = operand1 * operand2
If operator = "+" Then result = operand1 + operand2
If operator = "/" And operand2 <> "0" Then result = operand1 / operand2
Text1.Text = result
End Sub
=============================================================
OUTPUT



Saturday, February 28, 2015

Write a C++ program using class to sort an integer array and float array element in ascending order using bubble sort method use function overloading

Write a C++ program using class to sort an integer array and float array element in ascending order using bubble sort method use function overloading

#include<stdio.h>
#include<conio.h>
#include<iostream.h>
#include<float.h>
class bubble
{
public:void array(int ans);
       void array(float ans);
};
void bubble:: array(int ans)
       {
       cout<<"\n"<<ans;
       }
void bubble::array(float ans)
       {
       cout<<"\n"<<ans;
       }
int main()
{
bubble bb;
int i,j,n,a[20],temp=0;
float b[20];
clrscr();
cout<<"\n Enter how many integer number you want to enter:-";
cin>>n;
for(i=0;i<n;i++)
cin>>a[i];
n=n-1;
for(i=0;i<n;i++)
{
for(j=0;j<n-i;j++)
{
if(a[j]>a[j+1])
{
temp=a[j];
a[j]=a[j+1];
a[j+1]=temp;
}
}
}
n++;
cout<<"\n Integer array after sorting:-";
for(i=0;i<n;i++)
bb.array(a[i]);
cout<<"\n Enter how many float number you want to enter:-";
cin>>n;
for(i=0;i<n;i++)
cin>>b[i];
n=n-1;
for(i=0;i<n;i++)
{
for(j=0;j<n-i;j++)
{
if(b[j]>b[j+1])
{
float(temp)=b[j];
b[j]=b[j+1];
b[j+1]=float(temp);
}
}
}
n++;
cout<<"\n Float array after sorting:-";
for(i=0;i<n;i++)
bb.array(b[i]);
getch();

return 0;
}

==================================================
OUTPUT

Enter how many integer number you want to enter:-5                             
9                                                                              
8                                                                              
7                                                                              
4
1                                                                              
                                                                               
Integer array after sorting:-                                                  
1                                                                              
4                                                                              
7                                                                              
8                                                                              
9  
                                                                           
Enter how many float number you want to enter:-4                               
6.3                                                                            
5.2                                                                            
4.2                                                                            
1.3                                                                            
                                                                               
Float array after sorting:-
1.3
4.2
5.2
6.3

अच्छे विचार करे विचार

  पहचान की नुमाईश, जरा कम करें... जहाँ भी "मैं" लिखा है, उसे "हम" करें... हमारी "इच्छाओं" से ज़्यादा "सुन...