Programming Posts

Sending SMS using HTTP API in C#.Net / VB.Net Winforms Application

In this article we will see an example of sending SMS from our winforms C#.Net or VB.Net desktop Application using HTTP API and tracking the status of SMS . Below is the screen shot of Application In this example i have used the HTTP API of www.smsonline.co.in . In order… Continue Reading Sending SMS using HTTP API in C#.Net / VB.Net Winforms Application

Posted on: 24/12/2013 24/12/2013
Author: Sameer Shaik
Categories: C#.Net, VB.Net
3 Comments on Sending SMS using HTTP API in C#.Net / VB.Net Winforms Application

Add-on Registration Data (.ARD) FILE CREATION PROCESS THROUGH B1DE – SAP BUSINESS ONE(SAP B1)

Creating Add-on File for SAP B1 Creating an Add-On Registration Data (ARD) file in SAP B1 This article guides you the process of creating or building an Add-on Registration Data file using B1DE. The extension of Add-on Registration Data is .ard. Even if your add-on developed using C#.Net or VB.Net, the .ard file… Continue Reading Add-on Registration Data (.ARD) FILE CREATION PROCESS THROUGH B1DE – SAP BUSINESS ONE(SAP B1)

Posted on: 27/11/2013 27/11/2013
Author: Sameer Shaik
Categories: Sap Business One Software Development Kit

Constants in C language

In this article we will see a small example of using constants in c. constants are declared with a keyword const. const float PI = 3.14 ; //constant of type float const char myStr[] = ” *** www.ProgrammingPosts.blogspot.com *** ” ; //constant of char array The program below is to… Continue Reading Constants in C language

Declaring constants in VB.Net

In this article we will see a small example of using constants in vb.net . constants are declared with a keyword const . Example : ConstPI As Double = 3.14 ConstmyStr As String= “*** www.ProgrammingPosts.blogspot.com ***” The program below is to find the area and perimeter of… Continue Reading Declaring constants in VB.Net

Declaring constants in C#.NET

In this article we will see a small example of using constants in c#. constants are declared with a keyword const . The program below is to find the area and perimeter of circle in which we use const . In the program below we have declared PI as a… Continue Reading Declaring constants in C#.NET

Email Sending Application free download

Download Email Sending Application Download the Email Sending Application from the link above . I have developed a simple Email Sending Application. Its a desktop application to send emails. simple and easy to use. We can also send email with attachments. see the screen shots below

Posted on: 23/09/2013 04/08/2021
Author: Sameer Shaik
Categories: C#.Net, Downloads, Email

Working with DataGridView in C#.Net and VB.Net windows forms application

# Bind Data to Datagridview in C#.Net, VB.NET Windows Application # Display/Fill/Populate Data in DataGridView in C#.Net, VB.NET Windows Application # Bind data to DataGridView in Windows Forms in C#.Net and VB.Net In this article i am going to explain about Binding Data to a DataGridView in C#.Net and VB.Net… Continue Reading Working with DataGridView in C#.Net and VB.Net windows forms application

Posted on: 18/09/2013 18/09/2013
Author: Sameer Shaik
Categories: C# WinForms, C#.Net, VB.Net
1 Comment on Working with DataGridView in C#.Net and VB.Net windows forms application

Simple Registration form in Asp.Net with validations

SIMPLE REGISTRATION FORM IN ASP.NET WITH C#.NET and VB.NET In this article we will see a simple registration form in asp.net with all client side validations. I am designing a registration form with fields like first name, last name, email, etc,.. and inserting the data into database using insert sql… Continue Reading Simple Registration form in Asp.Net with validations

Posted on: 08/09/2013 08/09/2013
Author: Sameer Shaik
Categories: Asp.Net

USING FONT-DIALOG AND CHANGING TEXTBOX FONT STYLE IN C#.Net and VB.Net

In this post we will see the usage of font-dialog and changing the font style of textbox in our c#.net or vb.net windows application. for this i am designing the form as shown in the image below. In this example we are using a font dialog box and showing the… Continue Reading USING FONT-DIALOG AND CHANGING TEXTBOX FONT STYLE IN C#.Net and VB.Net

Posted on: 08/09/2013 08/09/2013
Author: Sameer Shaik
Categories: C#.Net, VB.Net

Working with Multiple Panels in C#.Net or VB.NET Windows Application

In this post we will see the small example of working with multiple panels in windows c# applications. We will also see how to make the panels visible or invisible, change the location of a panel control programmatically at runtime . for this, I am designing the form as shown… Continue Reading Working with Multiple Panels in C#.Net or VB.NET Windows Application

Posted on: 07/09/2013 07/09/2013
Author: Sameer Shaik
Categories: C#.Net, VB.Net

Getting the file / folder path in console

In this post i want to explain about getting the file path or folder path in the console without typing the full path. While working with console applications sometimes there arises a need of giving the file path or directory path as input. To type the exact location of file… Continue Reading Getting the file / folder path in console

Posted on: 07/09/2013 07/09/2013
Author: Sameer Shaik
Categories: TechwordsInfo

VB.NET Program to get File Names in a Folder / Directory

In this post we will see a VB.Net Program to retrieve list of file names in a given folder/directory.

Imports System.IO
Module Module1

Sub Main()
Try
Dim FolderPath As String
Dim Files As String() 'declaring string array
            Console.WriteLine("www.ProgrammingPosts.blogspot.com")
            Console.WriteLine(vbLf & ">>>VB.NET PROGRAM To PRINT FILES NAMES IN A Given Directory  <<<")
            Console.WriteLine(" Enter the Directory Path to get File Names in it : ")
            FolderPath = Console.ReadLine()
            Files = Directory.GetFiles(FolderPath)
            Console.WriteLine(vbLf & " The FileNames with extension in given Directory are : " & vbLf & vbLf)

For Each FileName As String In Files
' Creating the FileInfo object
Dim fi As System.IO.FileInfo = Nothing
Try
                    fi = New System.IO.FileInfo(FileName)
Catch ex As System.IO.FileNotFoundException
' To inform the user and continue
                    Console.WriteLine(ex.Message)
                    Continue For
End Try
' Console.WriteLine("{0}", fi.Directory);  //prints filepath
' Console.WriteLine("{0}", fi.DirectoryName); // prints directorypath
                Console.WriteLine("{0}", fi.Name)
Next
            Console.ReadLine()
Catch ex As DirectoryNotFoundException
            Console.BackgroundColor = ConsoleColor.Red
            Console.WriteLine(vbLf & vbLf & " Directory Not Found..Press any key to exit...")
            Console.ReadKey()
End Try
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

Imports System.IO

Module Module1

Sub Main()

Try

Dim FolderPath As String

Dim Files As String() 'declaring string array

Console.WriteLine("www.ProgrammingPosts.blogspot.com")

Console.WriteLine(vbLf & ">>>VB.NET PROGRAM To PRINT FILES NAMES IN A Given Directory <<<")

Console.WriteLine(" Enter the Directory Path to get File Names in it : ")

FolderPath = Console.ReadLine()

Files = Directory.GetFiles(FolderPath)

Console.WriteLine(vbLf & " The FileNames with extension in given Directory are : " & vbLf & vbLf)

For Each FileName As String In Files

' Creating the FileInfo object

Dim fi As System.IO.FileInfo = Nothing

Try

fi = New System.IO.FileInfo(FileName)

Catch ex As System.IO.FileNotFoundException

' To inform the user and continue

Console.WriteLine(ex.Message)

Continue For

End Try

' Console.WriteLine("{0}", fi.Directory); //prints filepath

' Console.WriteLine("{0}", fi.DirectoryName); // prints directorypath

Console.WriteLine("{0}", fi.Name)

Catch ex As DirectoryNotFoundException

Console.BackgroundColor = ConsoleColor.Red

Console.WriteLine(vbLf & vbLf & " Directory Not Found..Press any key to exit...")

Console.ReadKey()

End Try

End Sub

Sample Output :

VB.NET Program to get Files Full Path in a given Folder

In this post we will see a VB.Net Program to retrieve list of file names with full path in a given folder/directory.

Imports System.IO

Module Module1

    Sub Main()
        Try
            Dim FolderPath As String
            Dim Files As String() 'string array
            Console.WriteLine("www.ProgrammingPosts.blogspot.com")
            Console.WriteLine(vbLf & ">>>VB.NET PROGRAM To PRINT FULL FILES PATH IN A Given Directory  <<<")
            Console.WriteLine(vbLf & "Enter the Directory Path to get File Names in it : ")
            FolderPath = Console.ReadLine()
            Files = Directory.GetFiles(FolderPath)
            Console.WriteLine(vbLf & " The FilePaths in given Directory are : " & vbLf & vbLf)
            For Each FileName As String In Files
                Console.WriteLine(FileName)
            Next
            Console.ReadLine()
        Catch ex As DirectoryNotFoundException 'catching directory not found exception
            Console.BackgroundColor = ConsoleColor.Red
            Console.WriteLine(vbLf & vbLf & " Directory Not Found..Press any key to exit...")
            Console.ReadKey()
        Catch ex As Exception 'catching all other exceptions
            Console.BackgroundColor = ConsoleColor.Red
            Console.WriteLine(vbLf & vbLf & ex.Message)
            Console.ReadKey()
        End Try
    End Sub

End Module

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

Imports System.IO

Module Module1

Sub Main()

Try

Dim FolderPath As String

Dim Files As String() 'string array

Console.WriteLine("www.ProgrammingPosts.blogspot.com")

Console.WriteLine(vbLf & ">>>VB.NET PROGRAM To PRINT FULL FILES PATH IN A Given Directory <<<")

Console.WriteLine(vbLf & "Enter the Directory Path to get File Names in it : ")

FolderPath = Console.ReadLine()

Files = Directory.GetFiles(FolderPath)

Console.WriteLine(vbLf & " The FilePaths in given Directory are : " & vbLf & vbLf)

For Each FileName As String In Files

Console.WriteLine(FileName)

Catch ex As DirectoryNotFoundException 'catching directory not found exception

Console.BackgroundColor = ConsoleColor.Red

Console.WriteLine(vbLf & vbLf & " Directory Not Found..Press any key to exit...")

Console.ReadKey()

Catch ex As Exception 'catching all other exceptions

Console.BackgroundColor = ConsoleColor.Red

Console.WriteLine(vbLf & vbLf & ex.Message)

Console.ReadKey()

End Try

End Sub

End Module

Sample Output :

VB.NET Program to print Matrix in a Snail Shell Way

Module Module1

    Sub Main()

        Dim size As Integer
        Dim a As Integer = 0
        Dim i As Integer, j As Integer, k As Integer, count As Integer = 0, flag As Integer = 0

        Do
            Try
                Console.WriteLine("www.ProgrammingPosts.blogspot.com")
                Console.WriteLine(vbLf & ">>>VB.NET PROGRAM To PRINT A MULTI-DIMENSIONAL ARRAY IN A SNAIL SHELL WAY <<<")
                Console.Write(vbLf & " Enter the Size of a square Matrix(between 2 to 10):")
                size = Convert.ToInt16(Console.ReadLine())
                If size < 2 OrElse size > 10 Then
                    'limiting the size of matrix
                    Console.BackgroundColor = ConsoleColor.DarkRed
                    'changing background color to red
                    Console.WriteLine("The Size Of Matrix should Be in between  2 and 10.")
                    'System.Console.ResetColor(); 'resetting color
                    Console.ReadKey()
                    Return
                Else



                    flag = 1
                    Dim matrix As Integer(,) = New Integer(size - 1, size - 1) {}

                    k = 1
                    While k < size
                        i = a
                        j = a
                        While j < size - k
                            'lef
                            matrix(i, j) = System.Threading.Interlocked.Increment(count) ' this is equal to count++
                            j += 1
                        End While
                        i = a
                        j = size - k
                        While i < size - k
                            matrix(i, j) = System.Threading.Interlocked.Increment(count)
                            i += 1
                        End While
                        i = size - k
                        j = size - k
                        While j >= a
                            matrix(i, j) = System.Threading.Interlocked.Increment(count)
                            j -= 1
                        End While
                        i = size - (k + 1)
                        j = a
                        While i >= k
                            matrix(i, j) = System.Threading.Interlocked.Increment(count)
                            i -= 1
                        End While
                        k += 1
                        a += 1
                    End While


                    Console.Write(vbLf & vbLf & vbTab)
                    For i = 0 To size - 1

                        For j = 0 To size - 1
                            If matrix(i, j) < 10 Then
                                Console.Write("  0" & Convert.ToString(matrix(i, j)))
                            Else
                                Console.Write("  " & Convert.ToString(matrix(i, j)))
                            End If

                            If j = size - 1 Then
                                Console.Write(vbLf & vbTab)

                            End If
                        Next
                    Next
                End If
            Catch
                'to catch exceptions,suppose string entered as a size of matrix
                Console.BackgroundColor = ConsoleColor.DarkRed
                Console.WriteLine("WARNING:only Number between (2 and 10) is allowed")
                Console.ResetColor()
            End Try


            Console.WriteLine(vbLf & vbLf & vbTab & " Press any key to exit....")
        Loop While flag = 0

        Console.ReadKey()

    End Sub

End Module

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

Module Module1

Sub Main()

Dim size As Integer

Dim a As Integer = 0

Dim i As Integer, j As Integer, k As Integer, count As Integer = 0, flag As Integer = 0

Do

Try

Console.WriteLine("www.ProgrammingPosts.blogspot.com")

Console.WriteLine(vbLf & ">>>VB.NET PROGRAM To PRINT A MULTI-DIMENSIONAL ARRAY IN A SNAIL SHELL WAY <<<")

Console.Write(vbLf & " Enter the Size of a square Matrix(between 2 to 10):")

size = Convert.ToInt16(Console.ReadLine())

If size < 2 OrElse size > 10 Then

'limiting the size of matrix

Console.BackgroundColor = ConsoleColor.DarkRed

'changing background color to red

Console.WriteLine("The Size Of Matrix should Be in between 2 and 10.")

'System.Console.ResetColor(); 'resetting color

Console.ReadKey()

Return

Else

flag = 1

Dim matrix As Integer(,) = New Integer(size - 1, size - 1) {}

k = 1

While k < size

i = a

j = a

While j < size - k

'lef

matrix(i, j) = System.Threading.Interlocked.Increment(count) ' this is equal to count++

j += 1

End While

i = a

j = size - k

While i < size - k

matrix(i, j) = System.Threading.Interlocked.Increment(count)

i += 1

End While

i = size - k

j = size - k

While j >= a

matrix(i, j) = System.Threading.Interlocked.Increment(count)

j -= 1

End While

i = size - (k + 1)

j = a

While i >= k

matrix(i, j) = System.Threading.Interlocked.Increment(count)

i -= 1

End While

k += 1

a += 1

End While

Console.Write(vbLf & vbLf & vbTab)

For i = 0 To size - 1

For j = 0 To size - 1

If matrix(i, j) < 10 Then

Console.Write(" 0" & Convert.ToString(matrix(i, j)))

Else

Console.Write(" " & Convert.ToString(matrix(i, j)))

End If

If j = size - 1 Then

Console.Write(vbLf & vbTab)

End If

Catch

'to catch exceptions,suppose string entered as a size of matrix

Console.BackgroundColor = ConsoleColor.DarkRed

Console.WriteLine("WARNING:only Number between (2 and 10) is allowed")

Console.ResetColor()

End Try

Console.WriteLine(vbLf & vbLf & vbTab & " Press any key to exit....")

Loop While flag = 0

Console.ReadKey()

End Sub

End Module

Sample Output :

VB.Net Program to Perform Subtraction on Matrices using Arrays

Module Module1

    Sub Main()

        'using 2D-ARRAYS
        Dim RowSize As Integer = 5, ColSize As Integer = 5
        'declaring 2-d arrays below
        Dim Matrix1 As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}
        Dim Matrix2 As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}
        Dim ResultMatrix As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}
        Dim i As Integer, j As Integer


        Try
            Console.WriteLine("www.ProgrammingPosts.blogspot.com")
            Console.WriteLine(vbLf & " >>VB.Net PROGRAM To PRINT SUBTRACTION OF TWO MATRICES <<" & vbLf)
            Console.Write(vbLf & " Enter the Size of a Matrix N*N (For Example:3*3) : ")
            Dim s As String = Console.ReadLine()
            Dim values As String() = s.Split("*"c)
            RowSize = Integer.Parse(values(0))
            ColSize = Integer.Parse(values(1))

            If RowSize > 5 OrElse ColSize > 5 Then
                'limiting the size of matrix
                Console.BackgroundColor = ConsoleColor.DarkRed
                'changing background color to red
                Console.WriteLine(" The Size Of Matrix should Be in Less Than 5 (limiting size of array)")
                System.Console.ResetColor()
                'resetting color
                Console.WriteLine(vbLf & vbLf & vbTab & " Press Enter key to exit....")
                Console.ReadKey()
                Return
            Else



                'Reading elements of Matrix1
                Console.WriteLine(vbLf & " Enter the elements of Matrix1({0}*{1})", RowSize, ColSize)
                For i = 0 To RowSize - 1
                    For j = 0 To ColSize - 1
                        Console.Write(" Matrix1[{0},{1}] : ", i, j)
                        Matrix1(i, j) = Convert.ToInt32(Console.ReadLine())
                    Next
                Next
                'Reading elements of Matrix2
                Console.WriteLine(vbLf & " Enter the elements of Matrix2({0}*{1})", RowSize, ColSize)
                For i = 0 To RowSize - 1
                    For j = 0 To ColSize - 1
                        Console.Write(" Matrix2[{0},{1}] : ", i, j)
                        Matrix2(i, j) = Convert.ToInt32(Console.ReadLine())
                    Next
                Next

                'calculating ResultMatrix, by subtracting Matrix2 from Matrix1 elements
                For i = 0 To RowSize - 1
                    For j = 0 To ColSize - 1
                        ResultMatrix(i, j) = Matrix1(i, j) - Matrix2(i, j)
                    Next
                Next

                'Printing Result Matrix
                Console.Write(vbLf & vbLf & vbTab & "*** Result Matrix  ***" & vbLf & vbLf & vbTab)
                For i = 0 To RowSize - 1

                    For j = 0 To ColSize - 1
                        If ResultMatrix(i, j) < 10 Then
                            'Making number as 01,02,etc,. 
                            Console.Write("  0" & Convert.ToString(ResultMatrix(i, j)))
                        Else
                            Console.Write("  " & Convert.ToString(ResultMatrix(i, j)))
                        End If

                        If j = ColSize - 1 Then
                            Console.Write(vbLf & vbTab)

                        End If
                    Next
                Next
            End If
        Catch
            'to catch exceptions,suppose string entered as a RowSize or Colsize  of matrix
            Console.BackgroundColor = ConsoleColor.DarkRed
            Console.WriteLine("WARNING:only Number are allowed, Enter Correct Input example 3*3 or 4*4")
            Console.ResetColor()
        End Try

        Console.WriteLine(vbLf & vbLf & vbTab & " Press Enter key to exit....")
        Console.ReadLine()

    End Sub

End Module

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

Module Module1

Sub Main()

'using 2D-ARRAYS

Dim RowSize As Integer = 5, ColSize As Integer = 5

'declaring 2-d arrays below

Dim Matrix1 As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}

Dim Matrix2 As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}

Dim ResultMatrix As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}

Dim i As Integer, j As Integer

Try

Console.WriteLine("www.ProgrammingPosts.blogspot.com")

Console.WriteLine(vbLf & " >>VB.Net PROGRAM To PRINT SUBTRACTION OF TWO MATRICES <<" & vbLf)

Console.Write(vbLf & " Enter the Size of a Matrix N*N (For Example:3*3) : ")

Dim s As String = Console.ReadLine()

Dim values As String() = s.Split("*"c)

RowSize = Integer.Parse(values(0))

ColSize = Integer.Parse(values(1))

If RowSize > 5 OrElse ColSize > 5 Then

'limiting the size of matrix

Console.BackgroundColor = ConsoleColor.DarkRed

'changing background color to red

Console.WriteLine(" The Size Of Matrix should Be in Less Than 5 (limiting size of array)")

System.Console.ResetColor()

'resetting color

Console.WriteLine(vbLf & vbLf & vbTab & " Press Enter key to exit....")

Console.ReadKey()

Return

Else

'Reading elements of Matrix1

Console.WriteLine(vbLf & " Enter the elements of Matrix1({0}*{1})", RowSize, ColSize)

For i = 0 To RowSize - 1

For j = 0 To ColSize - 1

Console.Write(" Matrix1[{0},{1}] : ", i, j)

Matrix1(i, j) = Convert.ToInt32(Console.ReadLine())

'Reading elements of Matrix2

Console.WriteLine(vbLf & " Enter the elements of Matrix2({0}*{1})", RowSize, ColSize)

For i = 0 To RowSize - 1

For j = 0 To ColSize - 1

Console.Write(" Matrix2[{0},{1}] : ", i, j)

Matrix2(i, j) = Convert.ToInt32(Console.ReadLine())

'calculating ResultMatrix, by subtracting Matrix2 from Matrix1 elements

For i = 0 To RowSize - 1

For j = 0 To ColSize - 1

ResultMatrix(i, j) = Matrix1(i, j) - Matrix2(i, j)

'Printing Result Matrix

Console.Write(vbLf & vbLf & vbTab & "*** Result Matrix ***" & vbLf & vbLf & vbTab)

For i = 0 To RowSize - 1

For j = 0 To ColSize - 1

If ResultMatrix(i, j) < 10 Then

'Making number as 01,02,etc,.

Console.Write(" 0" & Convert.ToString(ResultMatrix(i, j)))

Else

Console.Write(" " & Convert.ToString(ResultMatrix(i, j)))

End If

If j = ColSize - 1 Then

Console.Write(vbLf & vbTab)

End If

Catch

'to catch exceptions,suppose string entered as a RowSize or Colsize of matrix

Console.BackgroundColor = ConsoleColor.DarkRed

Console.WriteLine("WARNING:only Number are allowed, Enter Correct Input example 3*3 or 4*4")

Console.ResetColor()

End Try

Console.WriteLine(vbLf & vbLf & vbTab & " Press Enter key to exit....")

Console.ReadLine()

End Sub

End Module

Sample Output 1: Sample Output 2:

VB.Net Program to Add Two Matrices

Module Module1

    Sub Main()

        'using 2D-ARRAYS
        Dim RowSize As Integer = 5, ColSize As Integer = 5
        'declaring 2-d arrays below
        Dim Matrix1 As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}
        Dim Matrix2 As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}
        Dim ResultMatrix As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}
        Dim i As Integer, j As Integer


        Try
            Console.WriteLine("www.ProgrammingPosts.blogspot.com")
            Console.WriteLine(vbLf & " >>VB.Net PROGRAM To PRINT ADDITION OF TWO MATRICES <<" & vbLf)
            Console.Write(vbLf & " Enter the Size of a Matrix N*N (For Example:3*3) : ")
            Dim s As String = Console.ReadLine()
            Dim values As String() = s.Split("*"c)
            RowSize = Integer.Parse(values(0))
            ColSize = Integer.Parse(values(1))

            If RowSize > 5 OrElse ColSize > 5 Then
                'limiting the size of matrix
                Console.BackgroundColor = ConsoleColor.DarkRed
                'changing background color to red
                Console.WriteLine(" The Size Of Matrix should Be in Less Than 5 (limiting size of array)")
                System.Console.ResetColor()
                'resetting color
                Console.WriteLine(vbLf & vbLf & vbTab & " Press Enter key to exit....")
                Console.ReadKey()
                Return
            Else


                'Initializing all the elements to zero
                For i = 0 To RowSize - 1
                    For j = 0 To ColSize - 1
                        Matrix1(i, j) = 0
                        Matrix2(i, j) = 0
                    Next
                Next
                'Reading elements of Matrix1
                Console.WriteLine(vbLf & " Enter the elements of Matrix1({0}*{1})", RowSize, ColSize)
                For i = 0 To RowSize - 1
                    For j = 0 To ColSize - 1
                        Console.Write(" Matrix1[{0},{1}] : ", i, j)
                        Matrix1(i, j) = Convert.ToInt32(Console.ReadLine())
                    Next
                Next
                'Reading elements of Matrix2
                Console.WriteLine(vbLf & " Enter the elements of Matrix2({0}*{1})", RowSize, ColSize)
                For i = 0 To RowSize - 1
                    For j = 0 To ColSize - 1
                        Console.Write(" Matrix2[{0},{1}] : ", i, j)
                        Matrix2(i, j) = Convert.ToInt32(Console.ReadLine())
                    Next
                Next

                'calculating ResultMatrix, by adding Matrix1 and Matrix2
                For i = 0 To RowSize - 1
                    For j = 0 To ColSize - 1
                        ResultMatrix(i, j) = Matrix1(i, j) + Matrix2(i, j)
                    Next
                Next

                'Printing Result Matrix
                Console.Write(vbLf & vbLf & vbTab & "*** Result Matrix  ***" & vbLf & vbLf & vbTab)
                For i = 0 To RowSize - 1

                    For j = 0 To ColSize - 1
                        If ResultMatrix(i, j) < 10 Then
                            'Making number as 01,02,etc,. 
                            Console.Write("  0" & Convert.ToString(ResultMatrix(i, j)))
                        Else
                            Console.Write("  " & Convert.ToString(ResultMatrix(i, j)))
                        End If

                        If j = ColSize - 1 Then
                            Console.Write(vbLf & vbTab)

                        End If
                    Next
                Next
            End If
        Catch
            'to catch exceptions,suppose string entered as a RowSize or Colsize  of matrix
            Console.BackgroundColor = ConsoleColor.DarkRed
            Console.WriteLine("WARNING:only Number are allowed, Enter Correct Input example 3*3 or 4*4")
            Console.ResetColor()
        End Try

        Console.WriteLine(vbLf & vbLf & vbTab & " Press Enter key to exit....")
        Console.ReadLine()

    End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

Module Module1

Sub Main()

'using 2D-ARRAYS

Dim RowSize As Integer = 5, ColSize As Integer = 5

'declaring 2-d arrays below

Dim Matrix1 As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}

Dim Matrix2 As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}

Dim ResultMatrix As Integer(,) = New Integer(RowSize - 1, ColSize - 1) {}

Dim i As Integer, j As Integer

Try

Console.WriteLine("www.ProgrammingPosts.blogspot.com")

Console.WriteLine(vbLf & " >>VB.Net PROGRAM To PRINT ADDITION OF TWO MATRICES <<" & vbLf)

Console.Write(vbLf & " Enter the Size of a Matrix N*N (For Example:3*3) : ")

Dim s As String = Console.ReadLine()

Dim values As String() = s.Split("*"c)

RowSize = Integer.Parse(values(0))

ColSize = Integer.Parse(values(1))

If RowSize > 5 OrElse ColSize > 5 Then

'limiting the size of matrix

Console.BackgroundColor = ConsoleColor.DarkRed

'changing background color to red

Console.WriteLine(" The Size Of Matrix should Be in Less Than 5 (limiting size of array)")

System.Console.ResetColor()

'resetting color

Console.WriteLine(vbLf & vbLf & vbTab & " Press Enter key to exit....")

Console.ReadKey()

Return

Else

'Initializing all the elements to zero

For i = 0 To RowSize - 1

For j = 0 To ColSize - 1

Matrix1(i, j) = 0

Matrix2(i, j) = 0

'Reading elements of Matrix1

Console.WriteLine(vbLf & " Enter the elements of Matrix1({0}*{1})", RowSize, ColSize)

For i = 0 To RowSize - 1

For j = 0 To ColSize - 1

Console.Write(" Matrix1[{0},{1}] : ", i, j)

Matrix1(i, j) = Convert.ToInt32(Console.ReadLine())

'Reading elements of Matrix2

Console.WriteLine(vbLf & " Enter the elements of Matrix2({0}*{1})", RowSize, ColSize)

For i = 0 To RowSize - 1

For j = 0 To ColSize - 1

Console.Write(" Matrix2[{0},{1}] : ", i, j)

Matrix2(i, j) = Convert.ToInt32(Console.ReadLine())

'calculating ResultMatrix, by adding Matrix1 and Matrix2

For i = 0 To RowSize - 1

For j = 0 To ColSize - 1

ResultMatrix(i, j) = Matrix1(i, j) + Matrix2(i, j)

'Printing Result Matrix

Console.Write(vbLf & vbLf & vbTab & "*** Result Matrix ***" & vbLf & vbLf & vbTab)

For i = 0 To RowSize - 1

For j = 0 To ColSize - 1

If ResultMatrix(i, j) < 10 Then

'Making number as 01,02,etc,.

Console.Write(" 0" & Convert.ToString(ResultMatrix(i, j)))

Else

Console.Write(" " & Convert.ToString(ResultMatrix(i, j)))

End If

If j = ColSize - 1 Then

Console.Write(vbLf & vbTab)

End If

Catch

'to catch exceptions,suppose string entered as a RowSize or Colsize of matrix

Console.BackgroundColor = ConsoleColor.DarkRed

Console.WriteLine("WARNING:only Number are allowed, Enter Correct Input example 3*3 or 4*4")

Console.ResetColor()

End Try

Console.WriteLine(vbLf & vbLf & vbTab & " Press Enter key to exit....")

Console.ReadLine()

End Sub

Sample output 1 : Sample output 2 : Sample output 3 :

VB.NET Program to Print Smiley Symbol

Module Module1

    Sub Main()

        Dim a As Integer = 1, b As Integer = 2, i As Integer
        Console.WriteLine("www.ProgrammingPosts.blogspot.com")
        Console.WriteLine(vbLf & " >>VB.Net PROGRAM TO PRINT SMILEY SYMBOL <<" & vbLf)
        Console.WriteLine(vbLf & "ASCII SYMBOL OF 1" & vbLf)
        For i = 0 To 99
            'for loop prints ascii symbol of 1 for 100 times
            Console.Write(ChrW(a))
        Next
        Console.WriteLine()
        Console.WriteLine(vbLf & "ASCII SYMBOL OF 2" & vbLf)
        For i = 0 To 99
            'for loop prints ascii symbol of 2 for 100 times
            Console.Write(ChrW(b))
        Next

        'Console.Write(ChrW(1))  'this also prints the same
        Console.ReadKey()

    End Sub

End Module

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

Module Module1

Sub Main()

Dim a As Integer = 1, b As Integer = 2, i As Integer

Console.WriteLine("www.ProgrammingPosts.blogspot.com")

Console.WriteLine(vbLf & " >>VB.Net PROGRAM TO PRINT SMILEY SYMBOL <<" & vbLf)

Console.WriteLine(vbLf & "ASCII SYMBOL OF 1" & vbLf)

For i = 0 To 99

'for loop prints ascii symbol of 1 for 100 times

Console.Write(ChrW(a))

Console.WriteLine(vbLf & "ASCII SYMBOL OF 2" & vbLf)

For i = 0 To 99

'for loop prints ascii symbol of 2 for 100 times

Console.Write(ChrW(b))

Console.ReadKey()

End Sub

End Module

Output :

VB.NET Program to Print Love Symbol

Module Module1

    Sub Main()

        Dim a As Integer = 3, i As Integer
        Console.WriteLine("www.ProgrammingPosts.blogspot.com")
        Console.WriteLine(vbLf & " >>VB.Net PROGRAM TO PRINT LOVE SYMBOL <<" & vbLf)
        For i = 0 To 249
            'for loop prints love symbol 250 times
            Console.Write(ChrW(a))
        Next
        'Console.Write((char)3) 'this also prints the same
        Console.ReadKey()

    End Sub

End Module

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

Module Module1

Sub Main()

Dim a As Integer = 3, i As Integer

Console.WriteLine("www.ProgrammingPosts.blogspot.com")

Console.WriteLine(vbLf & " >>VB.Net PROGRAM TO PRINT LOVE SYMBOL <<" & vbLf)

For i = 0 To 249

'for loop prints love symbol 250 times

Console.Write(ChrW(a))

Console.ReadKey()

End Sub

End Module

Output : Explanation : Actually here we are printing the ASCII smbol of 3 . Which gives a love symbol. you can also print directly by writing the following code. Console.Write(Convert.ToChar(3)) or Console.Write(ChrW(3))

VB.Net Program to Find Factorial of given Number

Module Module1

    Sub Main()
        Dim num As Integer, i As Integer, fact As Integer = 1
        Console.WriteLine("www.ProgrammingPosts.blogspot.com")
        Console.WriteLine(vbLf & " >>VB.Net PROGRAM TO FIND FACTORIAL OF GIVEN NUMBER <<" & vbLf)
        Console.Write(vbLf & " Enter the Number whose Factorial you want: ")
        num = Convert.ToInt32(Console.ReadLine())
        For i = num To 2 Step -1
            'i is intializing with num value and  is decremented till 2
            'fact is updating with changing value of i
            fact = fact * i
        Next

        Console.WriteLine(vbLf & " The factorial of {0} is {1}." & vbLf & vbLf, num, fact)
        Console.ReadLine()
    End Sub

End Module

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

Module Module1

Sub Main()

Dim num As Integer, i As Integer, fact As Integer = 1

Console.WriteLine("www.ProgrammingPosts.blogspot.com")

Console.WriteLine(vbLf & " >>VB.Net PROGRAM TO FIND FACTORIAL OF GIVEN NUMBER <<" & vbLf)

Console.Write(vbLf & " Enter the Number whose Factorial you want: ")

num = Convert.ToInt32(Console.ReadLine())

For i = num To 2 Step -1

'i is intializing with num value and is decremented till 2

'fact is updating with changing value of i

fact = fact * i

Console.ReadLine()

End Sub

End Module

Sample Output :

Sql query to get common Columns in multiple tables in Sql Server

Lets suppose Database Name is MYDB and TABLE1, TABLE2, TABLE3 are tables in MYDB databaseSql query to retrieve all the column names in a table : select COLUMN_NAME from MYDB.INFORMATION_SCHEMA.COLUMNS where TABLE_NAME = ‘TABLE1’Sql query to get common Columns in two tables in Sql Server : select COLUMN_NAME from MYDB.INFORMATION_SCHEMA.COLUMNS where TABLE_NAME = ‘TABLE1’ intersect select COLUMN_NAME from MYDB.INFORMATION_SCHEMA.COLUMNS where TABLE_NAME… Continue Reading Sql query to get common Columns in multiple tables in Sql Server

Posted on: 19/08/2013 19/08/2013
Author: Sameer Shaik
Categories: SQL SERVER