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

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.

To find out 2D matrix addition

/*To find out 2D matrix addition*/
/*Save file as: Matrix_Additon.java*/

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++)
        {
  n[i][j]=l[i][j]+m[i][j];        
   System.out.print("  "+n[i][j]);
                
        }
                System.out.println(" ");
        }
        }
}
class Matrix_Additon
{
        public static void main(String arg[])
        {
        Matrix a1=new Matrix();
        a1.display();
 }
}

WAP to open and close a file

/*WAP to open and close a file*/

#include
#include
void main()
{
char ch;
int i;
clrscr();
FILE *fptr;
fptr=fopen("file1.dat","w");
printf("\nenter 5 character:\n");
for(i=0;i<=5;i++)
{
ch=getchar();
fputc(ch,fptr);
}
fclose(fptr);
printf("\nreading form file & print on screen\n");
fptr=fopen("file1.dat","r");
while(!feof(fptr))
{
ch=getc(fptr);
putchar(ch);
}
fclose(fptr);
getch();
}