Source Code:

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

int main(void)
{
int i,j,k,temp=0;
clrscr();
for(i=1;i<=9;i++)
{
         for(j=1;j<=9;j++)
         {
                for(k=1;k<=9;k++)
                {
                      if(i<j && j<k)
                      {
                      temp++;
                      printf("\n\n\t Count %d : %d%d%d",temp,i,j,k);
                      }
                }
         }
}
getch();
return 0;
}

Output:

Fig.: C Program to find the number of three digit numbers greater than 100 in which digits appear in strictly increasing order.

Version/Compatibility: Turbo C++ Version 3.0 (Borland International, Inc.)

Download Now (.Zip File – 36KB)…

In VB.Net 2008, sometimes we have require to Find Which Key is pressed. This Example Shows to Find Which Key is pressed.

Compatibility/Version:  Microsoft Visual Studio 2008 (Microsoft .Net Framework 3.5)

Source Code:

Public Class Form1
 Dim a(4) As Char
 Private Sub Control_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
 Static Dim i As Integer
 a(i) = e.KeyChar
 i = i + 1
 End Sub
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

 MsgBox("Your password is: " + a(0) + a(1) + a(2) + a(3) + a(4))
 End

End Sub
End Class

Output:

Download Now (.Zip File 115 KB)…

In VB.Net 2008, sometimes we have require to Shut Down Restart Logoff computer. This Example Shows to ShutDown Restart Logoff computer.

Compatibility/Version:  Microsoft Visual Studio 2008 (Microsoft .Net Framework 3.5)

Source Code:

Public Class form1

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
 End
 End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 System.Diagnostics.Process.Start("shutdown", "-l -t 00")
 End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 System.Diagnostics.Process.Start("shutdown", "-s -t 00")
 End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
 System.Diagnostics.Process.Start("shutdown", "-r -t 00")
 End Sub
End Class

Output:

Download Now (.Zip File 250 KB)…

OR

Q. Write a java program to convert numbers to words

OR

Q. Write a java program to convert digits to figures.

Compatibility/Version: Java 2 Platform Standard Edition Version 1.5 (Java 2 SDK, SE v1.5.0)

Code:

import java.util.*;
public class notowords
{
    private static String amt;
	private static int num;
    private static String[] units={""," One"," Two"," Three"," Four"," Five"," Six"," Seven"," Eight"," Nine"};
    private static String[] teen={" Ten"," Eleven"," Twelve"," Thirteen"," Fourteen"," Fifteen"," Sixteen"," Seventeen"," Eighteen"," Nineteen"};
    private static String[] tens={" Twenty"," Thirty"," Fourty"," Fifty"," Sixty"," Seventy"," Eighty"," Ninety"};
    private static String[] maxs={"",""," Hundred"," Thousand"," Lakh"," Crore"};
    public notowords()
    {
        amt="";
    }
    public String convToWord(int n)
    {
        amt=noToStr(n);
		String conv="";
		int pos=1;
		boolean hun=false;
        while(amt.length()>0)
        {
            if(pos==1)
            {
				if(amt.length()>=2)
                {
					String C=amt.substring(amt.length()-2,amt.length());
					amt=amt.substring(0,amt.length()-2);
					conv+=digits(C);
				}
                else if(amt.length()==1)
                {
					conv+=digits(amt);
					amt="";
				}
				pos++;
            }
            else if(pos==2)
            {
				String C=amt.substring(amt.length()-1,amt.length());
				amt=amt.substring(0,amt.length()-1);
                if(conv.length()>0 && digits(C)!="")
				{
					conv=(digits(C)+maxs[pos]+" and")+conv;
					hun=true;
				}
				else
				{
					if(digits(C)=="");
					else
						conv=(digits(C)+maxs[pos])+conv;
						hun=true;
				}
				pos++;
            }
            else if(pos>2)
            {
                if(amt.length()>=2)
                {
					String C=amt.substring(amt.length()-2,amt.length());
					amt=amt.substring(0,amt.length()-2);
                    if(!hun && conv.length()>0)
						conv=digits(C)+maxs[pos]+" and"+conv;
					else
					{
						if(digits(C)=="");
						else conv=digits(C)+maxs[pos]+conv;
					}
				}
                else if(amt.length()==1)
                {
					if(!hun && conv.length()>0)conv=digits(amt)+maxs[pos]+" and"+conv;
					else
					{
						if(digits(amt)=="");
						else
							conv=digits(amt)+maxs[pos]+conv;
							amt="";
					}
				}
				pos++;
            }
        }
        return conv;
    }

    private String digits(String C)
    {
        String conv="";
        for(int i=C.length()-1;i>=0;i--)
        {
			int ch=C.charAt(i)-48;
            if(i==0 && ch>1 && C.length()>1)
				conv=tens[ch-2]+conv;
            else if(i==0 && ch==1 && C.length()==2)
            {
				int sum=0;
				for(int j=0;j<2;j++)
					sum=(sum*10)+(C.charAt(j)-48);
					return teen[sum-10];
			}
            else
			{
				if(ch>0)conv=units[ch]+conv;
			}
        }
		return conv;
    }

    private String noToStr(int n)
    {
        String num="";
		while(n!=0)
		{
			num=((char)((n%10)+48))+num;
			n/=10;
		}
		return num;
    }

    private void inp()
    {
        Scanner in=new Scanner(System.in);
        try
		{
			System.out.print("Enter Amount in Digits/Numbers : ");
			num=in.nextInt();
		}
		catch(Exception e)
		{
			System.out.println("Number should be less than 1 Arab(1,00,00,00,000) !");
			System.exit(1);
		}
    }

    public static void main(String arg[])
    {
        notowords obj=new notowords();
        obj.inp();
        System.out.println("Amount in Words/Figures : "+obj.convToWord(num) + " !");
    }
}

Output:

Fig.: Convert from Digits to Figures in Java

Download Now (.Zip File – 16KB)…

In VB.Net 2008, sometimes we have require to Check Internet Connection. This Example Shows to Check Internet Connection whether it is available or not.

Compatibility/Version:  Microsoft Visual Studio 2008 (Microsoft .Net Framework 3.5)

Source Code:

Public Class Form1
    Private Function InternetConnection() As Boolean
        Dim req As System.Net.WebRequest =
System.Net.WebRequest.Create("http://www.google.com/")
        Dim resp As System.Net.WebResponse
        Try
            resp = req.GetResponse()
            resp.Close()
            req = Nothing
            Return True
        Catch ex As Exception
            req = Nothing
            Return False
        End Try
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click
        If InternetConnection() = False Then
            MessageBox.Show("No internet connection!")
        Else
            MessageBox.Show("Internet connection detected!")
        End If
    End Sub
End Class

Output:

Download Now (.Zip File 94 KB)…

In VB.Net 2008, sometimes we have require to Read URL content. This Example Shows How to Read URL content. We can read/extract source code of a webpage of website easily. This helps in getting objects used on webpages like textbox, elements.

Compatibility/Version:  Microsoft Visual Studio 2008 (Microsoft .Net Framework 3.5)

Source Code:

Imports System.Net
Imports System.IO
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim inStream As StreamReader
        Dim webRequest As WebRequest
        Dim webresponse As WebResponse
        webRequest = webRequest.Create(TextBox1.Text)
        webresponse = webRequest.GetResponse()
        inStream = New StreamReader(webresponse.GetResponseStream())
        TextBox2.Text = inStream.ReadToEnd()
    End Sub
End Class

Output:

Download Now (.Zip File 100 KB)…

Output:

DECLARE
	TYPE my_tab IS TABLE OF NUMBER index by PLS_INTEGER;
	TYPE my_tab1 is TABLE OF my_tab index by PLS_INTEGER;
	tab my_tab1;
Begin
	FOR i IN 1..5 LOOP
		FOR j IN 1..4 LOOP
			tab(i)(j):=i + j;
				DBMS_OUTPUT.PUT_LINE('tab('||(i)||')('||(j)||') = '||tab(i)(j));
		END LOOP;
	END LOOP;
End;
/

tab(1)(1) = 2
tab(1)(2) = 3
tab(1)(3) = 4
tab(1)(4) = 5
tab(2)(1) = 3
tab(2)(2) = 4
tab(2)(3) = 5
tab(2)(4) = 6
tab(3)(1) = 4
tab(3)(2) = 5
tab(3)(3) = 6
tab(3)(4) = 7
tab(4)(1) = 5
tab(4)(2) = 6
tab(4)(3) = 7
tab(4)(4) = 8
tab(5)(1) = 6
tab(5)(2) = 7
tab(5)(3) = 8
tab(5)(4) = 9

PL/SQL procedure successfully completed.

Compatibility (Tested on):

Oracle Database 10g Express Edition Release 10.2.0.1.0 – Product

Download Now… (.Zip File – 2KB)

Output:

DECLARE
	TYPE my_type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
	my_num my_type;
BEGIN
	For i in 1..1000 LOOP
		my_num(i) := i ;
	END LOOP;
	DBMS_OUTPUT.PUT_LINE('First Number Is '||my_num.FIRST);
	DBMS_OUTPUT.PUT_LINE('Last Number Is ' ||my_num.LAST);
End ;
/

First Number Is 1

Last Number Is 1000

PL/SQL procedure successfully completed.

Compatibility (Tested on):

Oracle Database 10g Express Edition Release 10.2.0.1.0 – Product

Download Now (.Zip File – 2KB)…

Output:

DECLARE
	TYPE my_frnds IS TABLE OF VARCHAR2(100) ;
	names my_frnds;
Begin
	names :=my_frnds('ALLEN','SMITH','JOHN','LAKE','KING');
	For i IN names.FIRST..names.LAST LOOP
		DBMS_OUTPUT.PUT_LINE('My Friend Names Is '||names(i));
	END LOOP;
	DBMS_OUTPUT.PUT_LINE('Delete The Last Name !');
	names.TRIM ;
	FOR i IN names.FIRST..names.LAST LOOP
		DBMS_OUTPUT.PUT_LINE('My Friend Names Is '||names(i) );
	END LOOP;
End;
/

My Friend Names Is ALLEN

My Friend Names Is SMITH

My Friend Names Is JOHN

My Friend Names Is LAKE

My Friend Names Is KING

Delete The Last Name !

My Friend Names Is ALLEN

My Friend Names Is SMITH

My Friend Names Is JOHN

My Friend Names Is LAKE

PL/SQL procedure successfully completed.

Compatibility (Tested on):

Oracle Database 10g Express Edition Release 10.2.0.1.0 – Product

Download Now (.Zip File – 2KB)…

Output:

DECLARE
	TYPE array_type IS ARRAY(100) OF NUMBER ;
	my_array array_type:=array_type(1,2,3,4,5,6,7,8,9,10);
BEGIN
	DBMS_OUTPUT.PUT_LINE('Maximum Array Size Is '||my_array.LIMIT);
End;
/

Maximum Array Size Is 100

PL/SQL procedure successfully completed.

Compatibility (Tested on):

Oracle Database 10g Express Edition Release 10.2.0.1.0 – Product

Download Now (.Zip File – 2KB)..