How Different is C#.NET from VB.NET

Dim numbers() As Integer = {1, 2, 3,4,5} 
For i As Integer = 0 To numbers.Length - 1 
  Console.WriteLine(numbers(i)) 
Next

int[] numbers = {1, 2, 3,4,5};
for (int i = 0; i < numbers.Length; i++)
Console.WriteLine(numbers [i]);

     



 

Class Person
  Public Name As String
  Public Address As String
End Class

Class Employee
  Public Name As String
  Public Address As String
  Public Salary As Integer
End Class

Class Employee
  Inherits Person
  Public Salary As Integer
End Class


 

class Person
{
  public void BaseDisplay()
  {
    System.Console.WriteLine("This is Base Class");
  }
}
Class Employee : Person
{
  public void DerivedDisplay()
  {
    System.Console.WriteLine("This is Derived Class");
  }
}

Class Execute
{
  Employee objDerived=new Employee();
  objDerived.BaseDisplay();
  objDerived.DerivedDisplay();
 }

Const Tot_Students As Integer = 25
					

const int Tot_Students= 25;
					

Class DemoConst

  Private GlobalLevel As Integer
  
  Public Sub Old()
    GlobalLevel = 0
  End Sub
					
  Public Sub Old(ByVal GlobalLevel As Integer)
    Me.GlobalLevel = GlobalLevel 
  End Sub

					
  Shared Sub Old()
   'Here the Shared constructor is invoked before 1st instance is created
  End Sub

					

  Protected Overrides Sub Finalize() 
   ' Here Destructor frees unused resources.
    MyBase.Finalize()
  End Sub
 
End Class

Class DemoConst
{
  private int GlobalLevel; 


  
  public DemoConst() 
  {
     GlobalLevel= 0;
  }

						
  public DemoConst(int GlobalLevel) 
  {
     this.GlobalLevel = GlobalLevel; 
  }

 
  static DemoConst() 
  {
     // Here the Shared constructor is invoked before 1st instance is created
  }


  ~DemoConst() 
  {
     // Here Destructor frees unused resources.
  }
}

' This is Used for single line commenting.


'Dim Demo as String

// This is Used for Single line commenting
// String Demo;
 
/* Multiple line  */
/* 
   String Demo1;
   String Demo2; 
*/
 

 'Declaring a Delegate and Event  
 
 Delegate Sub MsgArrivedEventHandler(ByVal myMessage As String)
 
 Event MyMsgArrivedEvent As MsgArrivedEventHandler 
 

 
'Declaring a Delegate and Event  
 
 delegate void MsgArrivedEventHandler(string message);
 

 event MsgArrivedEventHandler MsgArrivedEvent;
 
 

 Enum MyAction
   Run

  [Stop]   ' Stop is a reserved word

  Jump
  Forward
 End Enum
 
Dim a As MyAction = MyAction.Stop						
If a <> MyAction.Run Then _
	Console.WriteLine(a.ToString & " is " & a)  
						

						

enum MyAction {Run, Stop, Jump, Forward}; 
 
MyAction a = MyAction .Stop;

if (a != MyAction.Run)
  Console.WriteLine(a + " is " + (int) a);    

Sub AddFunction(ByVal a As Integer, ByRef b As Integer)
  Dim a=5,b=6,C as Integer

  C = a + b
  Return C
End Sub

 
AddFunction()

void AddFunction(int x,int y)
{
 int z;
 z = x + y;
 return z;
}
 AddFunction(5,6);

Dim numbers As New List(Of Integer)

  numbers.Add(8)
  numbers.Add(10)
ShowList(Of Integer)(numbers)

 
'Method to Display any kind of list
 Sub ShowList(Of T)(ByVal list As List(Of T))

  For Each myItem As T In list

    Console.WriteLine(myItem)

  Next

 End Sub

List<int> numbers = new List<int>();

numbers.Add(8);

numbers.Add(10);

ShowList<int>(numbers);
 
'Method to Display any kind of list
 void DisplayList<T>(List<T> list) 
 {

   foreach (T item in list)

     Console.WriteLine(item);

 }

Try
    'Perform Actions
 
  Catch ex As System.Exception
    MessageBox.Show("Error: " + ex.Message)
 
  Finally
    ' Perform any tidy up code.
End Try

try
{
  'Perform Actions
}
 
catch (System.Exception ex)
{
   MessageBox.Show("Error: " + ex.Message);
}
 
finally
{
   // Perform any tidy up code.
}

Console.Write("This is DotNetFunda !!!")
Dim yourName As String = Console.ReadLine()
Console.Write("Best Place for .NET community !!!")
Dim yourAge As Integer = Val(Console.ReadLine())
Console.WriteLine("{0} is {1} years old.", youName, yourAge) 
						
						

Console.Write("This is DotNetFunda !!!");
string yourName= Console.ReadLine();
Console.Write("Best Place for .NET community !!!");
int yourAge = Convert.ToInt32(Console.ReadLine());
Console.WriteLine("{0} is {1} years old.", yourName, yourAge)

'While Loop
 While demo < 100
  demo += 1
 End While
 
'Do While
 Do While demo < 100
  demo += 1
 Loop
 
 'For Each
 Dim names As String() = {"Name 1", "Name 2", "Name 3"}
 For Each s As String In names
   Console.WriteLine(s)
 Next
 
'For & If Loop
 For i = 0 To 9

  If i < = 9 Then Continue For
   Console.WriteLine(i)   
 Next
					
 

'While Loop
 while (c < 100)
 c++;
 
'Do While
 do
  c++;
 while (c < 100);
 
 'For Each
 string[] names = {"Name 1", "Name 2", "Name 3"};

 foreach (string s in names)

  Console.WriteLine(s);
					
 
'For & If Loop
 for (i = 0; i <= 9; i++) 
 {

   if (i < 9)

     continue;

     Console.WriteLine(i);

 }
					

''' <MyData> XML Comments </MyDAata>

/** <MyData> XML comments on multiple lines </MyData> */

 Namespace Cricket.Allow.Graphics
   ...
 End Namespace

 Namespace Cricket.Allow.Graphics
 {
   ...
 }

Comparison Operators
=  <  >  <=  >=  <>

Arithmetic Operators
+  -  *  /
Mod
\  (integer division)
^  (raise to a power)

Assignment Operators
=  +=  -=  *=  /=  \=  ^=  <<=  >>=  &=

Bitwise Operators
And   Or   Xor   Not   <<   >>

Logical Operators
AndAlso   OrElse   And   Or   Xor   Not

String Concatenation
&

Comparison Operators
==  <  >  <=  >=  !=

Arithmetic Operators
+  -  *  /
%  (mod)
/  (integer division if both operands are ints)
Math.Pow(x, y)

Assignment Operators
=  +=  -=  *=  /=   %=  &=  |=  ^=  <<=  >>=  ++  --

Bitwise Operators
&   |   ^   ~   <<   >>

Logical Operators
&&   ||   &   |   ^   !

String Concatenation
+

Imports System
  Namespace Demo
    Class DemoWorld
      Overloads Shared Sub Main(ByVal args() As String)
        Dim name As String = "DOT NET FUNDA"


        If args.Length = 1 Then 
        name = args(0)
        Console.WriteLine("Hello, " & name & "!")
      End Sub
  End Class
End Namespace

 using System;
 namespace Demo
 {

   public class DemoWorld 
   {

     public static void Main(string[] args) 
     {

        string name = "DOT NET FUNDA";

        if (args.Length == 1)
        name = args[0];
        Console.WriteLine("Hello, " + name + "!");
     }
   }

}
				

   Imports System.Data.SqlClient
     Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not IsPostBack Then
            BindDataToGrid()
        End If
    End Sub
 Function BindDataToGrid() As DataTable
        Try
            myConnection = New SqlConnection("server=Server Name;user id=UserName;password=Password;database=DatabaseName")
            myConnection.Open()
            Dim query As String = "Select * from BonusForm"
            Dim myDataAdapter As SqlDataAdapter
            myDataAdapter = New SqlDataAdapter(query, myConnection)
            Dim myDataSet As DataSet = New DataSet
            myDataAdapter.Fill(myDataSet)
            gridExceptionBonus.DataSource = myDataSet
            gridExceptionBonus.DataBind()
            Return myDataSet.Tables(0)
        Catch ex As Exception
            Response.Write("Error Occured ::" + ex.Message)
        Finally
            myConnection.Close()
        End Try
    End Function



 

 SqlConnection con;
    protected void Page_Load(object sender, EventArgs e)
    {
        if (!IsPostBack)
        {
            con = new SqlConnection("server=Server Name;user id=UserName;password=Password;database=DatabaseName");
            con.Open();
            SqlCommand newCmd = new SqlCommand("Select * from GuidelinesDetails", con);
            SqlDataReader rdr;
            rdr = newCmd.ExecuteReader();
            repeaterGuidelines.DataSource = rdr;
            repeaterGuidelines.DataBind();
            rdr.Close();

            BindGuidelinesData();
        }
    }

 Dim r As New Regex("(\d\d):(\d\d) (am|pm)")

 Dim m As Match = r.Match("The Time is 09:45 pm.")

 If m.Success Then

   Console.WriteLine("Hour: " & m.Groups(1).ToString)        

   Console.WriteLine("Min: " & m.Groups(2).ToString)
   Console.WriteLine("Ending: " & m.Groups(3).ToString)  
 End If
                

  
 Regex r = new Regex("@(\d\d):(\d\d) (am|pm)");

 Match m = r.Match("The Time is 09:45 pm.");

 if (m.Success) 
 {

    Console.WriteLine("Hour: " + m.Groups[1]);    

    Console.WriteLine("Min: " + m.Groups[2]);     

    Console.WriteLine("Ending: " + m.Groups[3]);  

 }
				

 
  ' This is Dot Net Funda   

  Dim name As String = "Dot Net Funda" 
  name= "This is " & name 

 

 
  ' This is Dot Net Funda   

   String name= "Dot Net Funda";
   name= "This is " & name;

Structure EmployeeRecord
   public name as String
   public age as Integer

 
 public Sub New(ByVal name As String, ByVal age As Integer)
   Me.name = name
   Me.age = age
 End Sub
End Structure
						

 
Struct EmployeeRecord
{
   public string name;
   public int age;

 
   public EmployeeRecord(string name, int age)
   {
     this.name = name;
     this.age = age;
   } 

}

Sub Type_Check_Variable_Types()
 Dim varByte As Sbyte  
 Dim varInt As Integer
 Dim varString As String
 Dim varExp As Exception
 
 varString = "DotNetFunda"

 varExp = New System.Exception("DemoSample Exception")

 Dim varArr As Object() = {varByte, varInt, varString, varExp} 
 MsgBox(varArr.GetType.ToString())

 For Each obj As Object In varArr

 MsgBox(obj.GetType.IsValueType)
 MsgBox(obj.GetType().ToString)

 Next

End Sub
 
 
 

   
 
public void Type_Check_Variable_Types()
{
	sbyte varByte = 0;
	int varInt = 0;
	string varString = null;
	Exception varExp = null;

	varString = "DotNetFudna";

	varExp = new System.Exception("DemoSample Exception");

	object[] varArr = 
      {
		varByte,
		varInt,
		varString,
		varExp
	};
	Interaction.MsgBox(varArr.GetType().ToString());


	foreach (object obj in varArr) 
      {
		Interaction.MsgBox(obj.GetType().IsValueType);
		Interaction.MsgBox(obj.GetType().ToString());

	}

}

 

 
 Dim hero As DemoSample= New DemoSample
With hero
  .Name = "Good Boy"
  .PowerLevel = 3
End With

hero.Defend("DotNetFunda")
hero.Rest()     
DemoSample.Rest()

Dim hero2 As DemoSample = hero  
hero2.Name = "Good Girl"
Console.WriteLine(hero.Name)   
hero = Nothing    
If hero Is Nothing Then _
  hero = New DemoSample

Dim obj As Object = New DemoSample
If TypeOf obj Is DemoSample Then _
  Console.WriteLine("Is a DemoSample object.")

' Mark object for quick disposal
Using reader As StreamReader = File.OpenText("test.txt")
  Dim line As String = reader.ReadLine()
  While Not line Is Nothing
    Console.WriteLine(line)
    line = reader.ReadLine()
  End While
End Using 

 
 
 DemoSample hero = new DemoSample();

 hero.Defend("DotNetFunda");
 hero.Rest();
 DemoSample.Rest();
 DemoSample hero2 = hero;
 hero2.Name = "Good Girl";
 Console.WriteLine(hero.Name);
 hero = null;
 if ((hero == null)) {
    hero = new DemoSample(); 
 }
 object obj = new DemoSample();
 if ((obj.GetType() == DemoSample)) {
     Console.WriteLine("Is a DemoSample object.");
 }
 //  Mark object for quick disposal
 Using{
 StreamReader reader = File.OpenText("test.txt");
 string line = reader.ReadLine();
 while (!(line == null)) 
 {
     Console.WriteLine(line);
     hero.Name = 3;
     line = reader.ReadLine();
 }
}

 

Module Module1
    Sub Main()

 
Dim myNumber As Char = "a"c
	Dim i As Integer = Val(myNumber)
	Dim a As Integer = Asc(myNumber)
	Console.WriteLine(myNumber)
	Console.WriteLine(i)
	Console.WriteLine(a)

 
    End Sub
End Module
 
'Output : 
a
0
97
 

 class Module1 {
    
    static void Main() {
        char myNumber = "a";
        c;
        int i = double.Parse(myNumber);
        int a = Asc(myNumber);
        Console.WriteLine(myNumber);
        Console.WriteLine(i);
        Console.WriteLine(a);
    }
}
// Output : 
a
0
97
 

 
 <WebMethod()> 
        Public Function GetIPAddress() As String         

         Dim strHostName As String = ""
         Dim strIPAddress As String = ""
         Dim host As System.Net.IPHostEntry         

         strHostName = System.Net.Dns.GetHostName()
         strIPAddress = System.Net.Dns.GetHostEntry(strHostName).HostName.ToString()         

         host = System.Net.Dns.GetHostEntry(strHostName)
         Dim ip As System.Net.IPAddress
         For Each ip In host.AddressList
             Return ip.ToString()
         Next         

         Return ""         

     End Function 
 

 [WebMethod()]

    public string GetIPAddress() {

        string strHostName = "";

        string strIPAddress = "";

        System.Net.IPHostEntry host;

        strHostName = System.Net.Dns.GetHostName();

        strIPAddress = System.Net.Dns.GetHostEntry(strHostName).HostName.ToString();

        host = System.Net.Dns.GetHostEntry(strHostName);

        System.Net.IPAddress ip;

        foreach (ip in host.AddressList) {

            return ip.ToString();

        }

        return "";

    }
 

 
Public Class MyClass
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim dblNumber As Double
Dim intNumber As Integer
dblNumber = 9.63
MsgBox("The value of dblNumber is " & dblNumber)
intNumber = dblNumber 
'after conversion
MsgBox("The value of intNumber is " & intNumber)
End Sub
End Class
 
  
 
 

 
 public class MyClass {
    
    private void Button1_Click(object sender, System.EventArgs e) {
        double dblNumber;
        int intNumber;
        dblNumber = 9.63;
        MsgBox(("The value of dblNumber is " + dblNumber));
        intNumber = dblNumber;
        // after conversion
        MsgBox(("The value of intNumber is " + intNumber));
    }
}

 

 
    Private Shared Function GetItems() As IEnumerable(Of String)
        yield
        Return "DOTNETFUNDA"
    End Function
 

 
 private static IEnumerable<string> GetItems()
 {
     yield return "DOTNETFUNDA";
 }

 

 

 
'Declaration
 Public Class CatalogZone _
	Inherits CatalogZoneBase

 public class CatalogZone : CatalogZoneBase