|
Imports System
Namespace Hello Class HelloWorld Overloads Shared Sub Main(ByVal args() As String) Dim name As String = "VB.NET"
If args.Length = 1 Then name = args(0)
Console.WriteLine("Hello," & name & "!") End Sub End Class End Namespace |
using System;
namespace Hello { public class HelloWorld { public static void Main(string[] args) { string name = "C#";
if (args.Length == 1) name = args[0];
Console.WriteLine("Hello," + name + "!"); } } } |
|
|
|
|
Boolean Byte,SByte Char Short,UShort,Integer,UInteger,Long,ULong Single,Double Decimal Date Object String Dim correct As Boolean = True Dim b As Byte = &H2A Dim o As Byte = &O52 Dim person As Object = Nothing Dim name As String = "Dwight" Dim grade As Char = "B"c Dim today As Date = #12/31/2007 12:15:00 PM# Dim amount As Decimal = 35.99@ Dim gpa As Single = 2.9! Dim pi As Double = 3.14159265 Dim lTotal As Long = 123456L Dim sTotal As Short = 123S Dim usTotal As UShort = 123US Dim uiTotal As UInteger = 123UI Dim ulTotal As ULong = 123UL Dim x As Integer Console.WriteLine(x.GetType()) Console.WriteLine(GetType(Integer)) Console.WriteLine(TypeName(x)) Dim d As Single = 3.5 Dim i As Integer = CType(d,Integer) i = CInt(d) i = Int(d) |
bool byte,sbyte char short,ushort,int,uint,long,ulong float,double decimal DateTime object string bool correct = true; byte b = 0x2A;
object person = null; string name = "Dwight"; char grade = 'B'; DateTime today = DateTime.Parse("12/31/2007 12:15:00"); decimal amount = 35.99m; float gpa = 2.9f; double pi = 3.14159265; long lTotal = 123456L; short sTotal = 123; ushort usTotal = 123; uint uiTotal = 123; ulong ulTotal = 123; int x; Console.WriteLine(x.GetType()); Console.WriteLine(typeof(int)); Console.WriteLine(x.GetType().Name); float d = 3.5f; int i = (int)d; |
|
ConstMAX_STUDENTS As Integer = 25 ReadOnly MIN_DIAMETER As Single = 4.93 |
const int MAX_STUDENTS = 25; readonly float MIN_DIAMETER = 4.93f; |
|
Enum Action Start [Stop] Rewind Forward End Enum
EnumStatus Flunk = 50 Pass = 70 Excel = 90 End Enum
Dim a As Action = Action.Stop If a <> Action.Start Then _ Console.WriteLine(a.ToString & " is " & a)
Console.WriteLine(Status.Pass) Console.WriteLine(Status.Pass.ToString()) |
enum Action {Start,Stop,Rewind,Forward}; enum Status {Flunk = 50,Pass = 70,Excel = 90};
Action a = Action.Stop; if (a != Action.Start) Console.WriteLine(a + " is " + (int) a);
Console.WriteLine((int) Status.Pass); Console.WriteLine(Status.Pass); |
|
= < > <= >= <> + - * / Mod / ^ = += -= *= /= /= ^= <<= >>= &= And Or Xor Not << >> AndAlso OrElse And Or Xor Not Note: AndAlso and OrElse perform short-circuit logical evaluations & |
== < > <= >= != + - * / % / Math.Pow(x,y) = += -= *= /= %= &= |= ^= <<= >>= ++ -- & | ^ ~ << >> && || & | ^ ! Note: && and||perform short-circuit logical evaluations + |
|
greeting = IIf(age < 20,"What's up?","Hello") If age < 20 Then greeting = "What's up?" If age < 20 Then greeting = "What's up?" Else greeting = "Hello" If x <> 100 And y < 5 Then x *= 5 : y *= 2 If x <> 100 And y < 5 Then x *= 5 y *= 2 End If If whenYouHaveAReally < longLine And _ itNeedsToBeBrokenInto2> LinesThen _ UseTheUnderscore(charToBreakItUp) If x > 5 Then x *= y ElseIfx = 5 Then x += y ElseIf x < 10 Then x -= y Else x /= y End If Select Case color Case "pink","red" r += 1 Case "blue" b += 1 Case "green" g += 1 Case Else other += 1 End Select |
greeting = age < 20 ? "What's up?" : "Hello"; if (age < 20) greeting = "What's up?"; else greeting = "Hello"; if (x != 100 && y < 5) { x *= 5; y *= 2; }
if (x > 5) x *= y; else if (x == 5) x += y; else if (x < 10) x -= y; else x /= y;
switch (color){ // Must be integer or string case "pink": case "red": r++; break; case "blue": b++; break; case "green": g++; break; default: other++; break; } |
|
|
While c < 10 c += 1 End While |
Do Until c = 10 c+= 1 Loop |
Do While c < 10 c += 1 Loop |
For c = 2 To 10 Step 2 Console.WriteLine(c) Next |
|
Do c += 1 Loop While c < 10 |
Do c += 1 Loop Until c = 10 |
Dim names As String() = {"Fred","Sue","Barney"} For Each s As StringIn names Console.WriteLine(s) Next Dim i As Integer = 0 While (True) If (i = 5) Then Exit While i += 1 End While
For i = 0 To 4 If i < 4 Then Continue For Console.WriteLine(i) Next |
while (c < 10) c++;
for (c = 2; c <= 10; c += 2) Console.WriteLine(c);
do c++; while (c < 10);
string[] names = {"Fred","Barney"}; foreach (string s in names) Console.WriteLine(s);
int i = 0; while (true) { if (i == 5) break; i++; } for (i = 0; i < 5; i++) { if (i < 4) continue; Console.WriteLine(i); } |
|
Dim nums() As Integer = {1,2,3} For i As Integer = 0 To nums.Length - 1 Console.WriteLine(nums(i)) Next
Dim names(4) As String names(0) = "David" names(5) = "Bobby"
ReDim Preserve names(6)
Dim twoD(rows-1,cols-1) As Single twoD(2,0) = 4.5
Dim jagged()() As Integer = { _ New Integer(4) {},New Integer(1) {},New Integer(2) {} } jagged(0)(4) = 5 |
int[] nums = {1,3}; for (int i = 0; i < nums.Length; i++) Console.WriteLine(nums[i]);
string[] names = new string[5]; names[0] = "David"; names[5] = "Bobby";
string[] names2 = new string[7]; Array.Copy(names,names2,names.Length); float[,] twoD = new float[rows,cols]; twoD[2,0] = 4.5f; int[][] jagged = new int[3][] { new int[5],new int[2],new int[3] }; jagged[0][4] = 5; |
|
Sub TestFunc(ByVal x As Integer,ByRef y As Integer,ByRef z As Integer) x += 1 y += 1 z = 5 End Sub Dim a = 1,b = 1,c As Integer TestFunc(a,b,c) Console.WriteLine("{0} {1} {2}",a,c) Function Sum(ByVal ParamArray nums As Integer()) As Integer Sum = 0 For Each i As Integer In nums Sum += i Next End Function
Dim total As Integer = Sum(4,3,1) Sub SayHello(ByVal name As String,Optional ByVal prefix As String = "") Console.WriteLine("Greetings," & prefix & " " & name) End Sub
SayHello("Strangelove","Dr.") SayHello("Madonna") |
void TestFunc(int x,ref int y,out int z) { x++; y++; z = 5; } int a = 1,c; // c doesn't need initializing TestFunc(a,ref b,out c); Console.WriteLine("{0} {1} {2}",c); int Sum(params int[] nums) { int sum = 0; foreach (int i in nums) sum += i; return sum; } int total = Sum(4,1); // returns 10 void SayHello(string name,string prefix) { Console.WriteLine("Greetings," + prefix + " " + name); }
void SayHello(string name) { SayHello(name,""); } |
|
vbCrLf,vbCr,vbLf,vbNewLine vbNullString vbTab vbBack vbFormFeed vbVerticalTab "" Dim school As String = "Harding" & vbTab school = school & "University" Dim letter As Char = school.Chars(0) letter = Convert.tochar(65) letter = Chr(65)Dim word() As Char = school.tocharArray() Dim msg As String = "File is c:/temp/x.dat"
Dim mascot As String = "Bisons" If (mascot = "Bisons") Then If (mascot.Equals("Bisons")) Then If (mascot.ToUpper().Equals("BISONS"))Then If (mascot.CompareTo("Bisons") = 0) Then If ("John 3:16" Like "Jo[Hh]? #:*") Then s = mascot.Substring(2,3)) s = mascot.Replace("sons","nomial")) Dim names As String = "Frank,Becky,Ethan,Braden" Dim parts() As String = names.Split(",".tocharArray()) Dim dt As New DateTime(1973,10,12) Dim s As String = "My birthday: " & dt.ToString("MMM dd,yyyy") Dim x As Integer = 2 Dim y As String = x.ToString() Dim x As Integer = Convert.ToInt32("-5") Dim buffer As New System.Text.StringBuilder("two ") buffer.Append("three ") buffer.Insert(0,"one ") buffer.Replace("two","TWO") Console.WriteLine(buffer) |
/r /n /t // /"
string school = "Harding/t"; school = school + "University"; char letter = school[0]; letter = Convert.tochar(65); letter = (char)65; char[] word = school.tocharArray(); string msg = @"File is c:/temp/x.dat"; string msg = "File is c://temp//x.dat"; stringmascot = "Bisons"; if (mascot == "Bisons") if (mascot.Equals("Bisons")) if (mascot.ToUpper().Equals("BISONS")) if (mascot.CompareTo("Bisons") == 0)
s = mascot.Substring(2,3)) s = mascot.Replace("sons","nomial")) string names = "Frank,Braden"; string[] parts = names.Split(",".tocharArray()); DateTime dt = new DateTime(1973,12); string s = dt.ToString("MMM dd,yyyy"); int x = 2; string y = x.ToString(); int x = Convert.ToInt32("-5"); System.Text.StringBuilder buffer = new System.Text.StringBuilder("two "); buffer.Append("three "); buffer.Insert(0,"one "); buffer.Replace("two","TWO"); Console.WriteLine(buffer); |
|
Imports System.Text.RegularExpressions Dim r As New Regex("j[aeIoU]h?. /d:*",RegexOptions.IgnoreCase Or _ RegexOptions.Compiled) If (r.Match("John 3:16").Success) Then Console.WriteLine("Match") End If Dim s As String = "My number is 305-1881,not 305-1818." Dim r As New Regex("(/d+-/d+)") Dim m As Match = r.Match(s) While m.Success Console.WriteLine("Found number: " & m.Groups(1).Value & " at position " _ & m.Groups(1).Index.ToString) m = m.NextMatch() End While Dim r As New Regex("(/d/d):(/d/d) (am|pm)") Dim m As Match = r.Match("We left at 03:15 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 Dim r As New Regex("h/w+?d",RegexOptions.IgnoreCase) Dim s As String = r.Replace("I heard this was HARD!","easy") Dim s As String = Regex.Replace("123 < 456","(/d+) . (/d+)","$2 > $1") Dim names As String = "Frank,Braden" Dim r As New Regex(",/s*") Dim parts() As String = r.Split(names) |
using System.Text.RegularExpressions; Regex r = new Regex(@"j[aeIoU]h?. /d:*",RegexOptions.IgnoreCase | RegexOptions.Compiled); if (r.Match("John 3:16").Success) Console.WriteLine("Match");
string s = "My number is 305-1881,not 305-1818."; Regex r = new Regex("(//d+-//d+)");
for (Match m = r.Match(s); m.Success; m = m.NextMatch()) Console.WriteLine("Found number: " + m.Groups[1] + " at position " + m.Groups[1].Index);
Regex r = new Regex("@(/d/d):(/d/d) (am|pm)"); Match m = r.Match("We left at 03:15 pm."); if (m.Success) { Console.WriteLine("Hour: " + m.Groups[1]); Console.WriteLine("Min: " + m.Groups[2]); Console.WriteLine("Ending: " + m.Groups[3]); } Regex r = new Regex("h//w+?d",RegexOptions.IgnoreCase); string s = r.Replace("I heard this was HARD!","easy")); string s = Regex.Replace("123 < 456",@"(/d+) . (/d+)","$2 > $1"); string names = "Frank,Braden"; Regex r = new Regex(@",/s*"); string[] parts = r.Split(names); |
|
Dim ex As New Exception("Something is really wrong.") Throw ex Try y = 0 x = 10 / y Catch ex As ExceptionWhen y = 0 Console.WriteLine(ex.Message) Finally Beep() End Try
On Error GoTo MyErrorHandler ... MyErrorHandler: Console.WriteLine(Err.Description) |
Exception up = new Exception("Something is really wrong."); throw up; try { y = 0; x = 10 / y; } catch (Exception ex) { Console.WriteLine(ex.Message); } finally { Microsoft.VisualBasic.Interaction.Beep(); } |
|
Namespace Harding.Compsci.Graphics ... End Namespace Namespace Harding Namespace Compsci Namespace Graphics ... End Namespace End Namespace End Namespace Imports Harding.Compsci.Graphics |
namespace Harding.Compsci.Graphics { ... } namespace Harding { namespace Compsci { namespace Graphics { ... } } } using Harding.Compsci.Graphics; |
|
Public Private Friend Protected Protected Friend Shared ClassFootballGame InheritsCompetition ... End Class Interface IAlarmClock ... End Interface Interface IAlarmClock Inherits IClock ... End Interface Class WristWatch Implements IAlarmClock,ITimer ... End Class |
public private internal protected protected internal static classFootballGame : Competition { ... } interface IAlarmClock { ... } interface IAlarmClock : IClock { ... } class WristWatch : IAlarmClock,ITimer { ... } |
|
Class SuperHero Private_powerLevel As Integer
Public Sub New() _powerLevel = 0 End Sub
Public Sub New(ByVal powerLevel As Integer) Me._powerLevel = powerLevel End Sub
Protected Overrides Sub Finalize() MyBase.Finalize() End Sub End Class |
class SuperHero { private int _powerLevel;
public SuperHero() { _powerLevel = 0; }
public SuperHero(int powerLevel) { this._powerLevel= powerLevel; }
~SuperHero() { } } |
|
Dim hero As SuperHero = New SuperHero
Dim hero As New SuperHero With hero .Name = "SpamMan" .PowerLevel = 3 End With hero.Defend("Laura Jones") hero.Rest()
SuperHero.Rest() Dim hero2 As SuperHero = hero hero2.Name = "WormWoman" Console.WriteLine(hero.Name) hero = Nothing If hero Is Nothing Then _ hero = New SuperHero Dim obj As Object = New SuperHero If TypeOf obj Is SuperHero Then _ Console.WriteLine("Is a SuperHero object.") 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 |
SuperHero hero = new SuperHero();
hero.Name = "SpamMan"; hero.PowerLevel = 3;
hero.Defend("Laura Jones"); SuperHero.Rest();
SuperHero hero2 = hero; hero2.Name = "WormWoman"; Console.WriteLine(hero.Name); hero = null ; if (hero == null) hero = new SuperHero(); Object obj = new SuperHero(); if (obj is SuperHero) Console.WriteLine("Is a SuperHero object."); using (StreamReader reader = File.OpenText("test.txt")) { string line; while ((line = reader.ReadLine()) != null) Console.WriteLine(line); } |
|
Structure StudentRecord Public name As String Public gpa As Single
Public Sub New(ByVal name As String,ByVal gpa As Single) Me.name = name Me.gpa = gpa End Sub End Structure Dim stu As StudentRecord = New StudentRecord("Bob",3.5) Dim stu2 As StudentRecord = stu
stu2.name = "Sue" Console.WriteLine(stu.name) Console.WriteLine(stu2.name) |
struct StudentRecord { public string name; public float gpa;
public StudentRecord(string name,float gpa) { this.name = name; this.gpa = gpa; } } StudentRecord stu = new StudentRecord("Bob",3.5f); StudentRecord stu2 = stu;
stu2.name = "Sue"; Console.WriteLine(stu.name); Console.WriteLine(stu2.name); |
|
Private _size As Integer
Public Property Size() As Integer Get Return _size End Get Set (ByVal Value As Integer) If Value < 0 Then _size = 0 Else _size = Value End If End Set End Property foo.Size += 1 |
private int _size;
public int Size { get { return _size; } set { if (value < 0) _size = 0; else _size = value; } } foo.Size++; |
|
Delegate Sub MsgArrivedEventHandler(ByVal message As String) Event MsgArrivedEvent As MsgArrivedEventHandler Event MsgArrivedEvent(ByVal message As String) AddHandler MsgArrivedEvent,AddressOf My_MsgArrivedCallback RaiseEvent MsgArrivedEvent("Test message") RemoveHandler MsgArrivedEvent,AddressOf My_MsgArrivedCallback Imports System.Windows.Forms Dim WithEvents MyButton As Button MyButton = New Button Private Sub MyButton_Click(ByVal sender As System.Object,_ ByVal e As System.EventArgs) Handles MyButton.Click MessageBox.Show(Me,"Button was clicked","Info",_ MessageBoxButtons.OK,MessageBoxIcon.Information) End Sub |
delegate void MsgArrivedEventHandler(string message); event MsgArrivedEventHandler MsgArrivedEvent;
MsgArrivedEvent += new MsgArrivedEventHandler(My_MsgArrivedEventCallback); MsgArrivedEvent("Test message"); MsgArrivedEvent -= new MsgArrivedEventHandler(My_MsgArrivedEventCallback);
using System.Windows.Forms; Button MyButton = new Button(); MyButton.Click += new System.EventHandler(MyButton_Click); private void MyButton_Click(object sender,System.EventArgs e) { MessageBox.Show(this, MessageBoxButtons.OK,MessageBoxIcon.Information); } |
|
Console.Write("What's your name? ") Dim name As String = Console.ReadLine() Console.Write("How old are you? ") Dim age As Integer = Val(Console.ReadLine()) Console.WriteLine("{0} is {1} years old.",name,age) Console.WriteLine(name & " is " & age & " years old.")
Dim c As Integer c = Console.Read() Console.WriteLine(c) |
Console.Write("What's your name? "); string name = Console.ReadLine(); Console.Write("How old are you? "); int age = Convert.ToInt32(Console.ReadLine()); Console.WriteLine("{0} is {1} years old.",age);
Console.WriteLine(name + " is " + age + " years old."); int c = Console.Read(); Console.WriteLine(c); |
|
Imports System.IO Dim writer As StreamWriter = File.CreateText("c:/myfile.txt") writer.WriteLine("Out to file.") writer.Close() Dim reader As StreamReader = File.OpenText("c:/myfile.txt") Dim line As String = reader.ReadLine() While Not line Is Nothing Console.WriteLine(line) line = reader.ReadLine() End While reader.Close() Dim str As String = "Text data" Dim num As Integer = 123 Dim binWriter As New BinaryWriter(File.OpenWrite("c:/myfile.dat")) binWriter.Write(str) binWriter.Write(num) binWriter.Close() Dim binReader As New BinaryReader(File.OpenRead("c:/myfile.dat")) str = binReader.ReadString() num = binReader.ReadInt32() binReader.Close() |
using System.IO; StreamWriter writer = File.CreateText("c://myfile.txt"); writer.WriteLine("Out to file."); writer.Close(); StreamReader reader = File.OpenText("c://myfile.txt"); string line = reader.ReadLine(); while (line != null) { Console.WriteLine(line); line = reader.ReadLine(); } reader.Close(); string str = "Text data"; int num = 123; BinaryWriter binWriter = new BinaryWriter(File.OpenWrite("c://myfile.dat")); binWriter.Write(str); binWriter.Write(num); binWriter.Close(); BinaryReader binReader = new BinaryReader(File.OpenRead("c://myfile.dat")); str = binReader.ReadString(); num = binReader.ReadInt32(); binReader.Close(); |