Earn by twitter on twivert

Sign up for PayPal and start accepting credit card payments instantly.

Monday, April 19, 2010

WAP of Shape


'WAP of Shape

'controls       Property        Setting

'Shape1         Name            shpshape
'               Width           200
'               height          300

'Vertical       Name            SrcVertical
'Scrollbar      
'               Min             300
'               Max             200

'Horizontal     Name            SrcHorizontal
'Scrollbar      
'               Min             300
'               Max             200




'-----------------------------------------------------
'                        CODE

Private Sub SrcHorizontal_click()
shpshape.Width=SrcHorizontal.value
End Sub

Private Sub SrcVertical_click()
shpshape.height=SrcVertical.value
End Sub

WAP to print prime no. b/w 1 to 100


/*WAP to print prime no. b/w 1 to 100*/
/*Save as: demo_sprime.java*/

import java.lang.*;
class sprime
{
 int num,count=0;
 sprime(int a)
   {
    num=a;
   }
 void display()
    {
     for(int i=1;i<=num;i++)
       {
        for(int j=1;j<=i;j++)
          {
           if(i%j==0)
           count++;
           
          }
          if(count<3)
           {
            System.out.println(i);
            count=0;
           }
          else
            count=0;
       }
    }
}
class demo_sprime
{
 public static void main(String arg[])
   {
    sprime p1=new sprime(100);
    p1.display();
   }
}

WAP to check no is negetive or positive


/*WAP to check no is negetive or positive*/

#include<stdio.h>
#include<conio.h>

int no;
void negpos();
void main()
{
 clrscr();
 printf("Enter -ive or +ive number");
 scanf("%d",&no);
 negpos();
 getch();
}
void negpos()
   {
    if(no<0)
     printf("Entered no. is negative");
    else if(no>0)
     printf("Entered no. is positive");
    else
     printf("Wrong entry");

   }

ADS

How to earn online

How to earn online:
Step - 1 :
signup for PayPal, to recieve your online earning
click here:
https://www.paypal.com/in/mrb/pal=CZ7224TZBMCBL
step - 2 : Singup these 4 sites & earn & enjoy! Read site to know how to earn.
1. trekpay
Earn up to $0.02 (2 cents) per click.
http://www.trekpay.com/?ref=34690
2. neobux
Earn up to $0.02 (2 cents) per click.
Click here:
http://www.neobux.com/?r=Moneyearner786

AddMe

Bookmark and Share