Earn by twitter on twivert

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

Sunday, July 4, 2010

WAP to find out matrix multipl


/*To find out matrix multipl*/
import java.lang.*;
class Matrix
{
        int l[][],m[][],n[][];
        Matrix()
        {
        l=new int[][] {{1,2,3},{4,5,6},{7,8,9}};
        m=new int[][] {{1,2,3},{4,5,6},{7,8,9}};
        n=new int[3][3];
        }
        void display()
        {
        for(int i=0;i<3;i++)
        {
        for(int j=0;j<3;j++)
        {
        for(int k=0;k<3;k++)
        {

                n[i][j]=n[i][j]+(l[i][k]*m[k][j]);
               
        }
                System.out.print("  "+n[i][j]);
                
        }
                System.out.println(" ");
        }
        }
}
class Matrix_multipl
{
        public static void main(String arg[])
        {
        Matrix a1=new Matrix();
        a1.display();
       
        }
}

Friday, June 25, 2010

Monday, June 21, 2010

Search word by vb program


Search word by vb program

'controls       Property        Setting

'Textbox1        Name            txtText
'                Caption           -

'Textbox2        Name            txtWord
'                Caption           -
                
'Label1          Name            lbl
'                Caption          Enter Text

'Label2          Name            lbl
'                Caption          Enter Word for search

'Label3          Name            lblResult
'                Caption          

'command1        Name            cmdSearch
                Caption           OK



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

Private Sub cmdSearch_click()
Dim lenmain as Integer, lenword as Integer
Dim word as String, flag as String

flag =0
lenmain =Len(txtText.text)
lenword =Len(txtWord.text)
for a=1 To lenmain
word=Mid(txtText.text,a,lenword)

If word=txtWord.text Then
flag=flag+1
End If
Next
lblResult.Caption = Str(flag)
End Sub

Tuesday, June 1, 2010

Listen Text that u write


Text Speech

1. Open notepad and paste the following code 

Dim msg, sapi
msg=InputBox("Enter your text","Talking machine")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

2. save the file with .vbs extension,
   Example: TextSpeech.vbs 

   it will create a VBScript File.

3. Double click on TextSpeech.vbs file 
4. input the text and press ok and listen.

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