So sánh những điểm khác biệt nổi bật về cú pháp
của VB.Net và C#
Chú thích trong chương trình
VB.NET
'Ch m t dòng chú thíchỉ ộ
Rem Ch m t dòng chú thíchỉ ộ
C#
// Ch m t dòng chú thíchỉ ộ
/* Chú thích
trên nhi u dòng */ề
/// XML m t dòng chú thích theo chu n XMLộ ẩ
/** XML nhi u dòng chú ề
thích theo chu n XML */ẩ
Cấu trúc chương trình
VB.NET
Imports System
Namespace MyNameSpace
Class HelloWorld
'Đi m b t đ u c a ng d ng theo ki u c a Cể ắ ầ ủ ứ ụ ể ủ
Public Overloads Shared Sub Main()
Main(System.Environment.GetCommandLineArgs())
End Sub
Overloads Shared Sub Main(args() As String)
System.Console.WriteLine("Hello World")
End Sub
End Class
C#
using System
Namespace MyNameSpace
{
class HelloWorld
{
//Đi m b t đ u c a ng d ng theo ki u Cể ắ ầ ủ ứ ụ ể
static void Main(){
Main(System.Environment.GetCommandLineArgs());
}
static void Main(string[] args){
System.Console.WriteLine("Hello World")
}
}
}
Các kiểu dữ liệu
VB.NET
'Các ki u nguyên thuể ỷ
Boolean
Byte
Char (example: "A")
Short, Integer, Long
Single, Double
Decimal
Date
'Ki u tham chi uể ế
Object
String
Dim x As Integer
System.Console.WriteLine(x.GetType())
System.Console.WriteLine(TypeName(x))
'Chuy n ki u ể ể
Dim d As Single = 3.5
Dim i As Integer = CType (d, Integer)
i = CInt (d)
C#
//Các ki u nguyên thuể ỷ
bool
byte, sbyte
char (example: 'A')
short, ushort, int, uint, long, ulong
float, double
decimal
DateTime
// Ki u tham chi uể ế
object
string
int x;
Console.WriteLine(x.GetType())
Console.WriteLine(typeof(int))
// Chuy n ki uể ể
float d = 3.5;
int i = (int) d
i = Int(d)
Hằng số
VB.NET
Const MAX_AUTHORS As Integer = 25
ReadOnly MIN_RANK As Single = 5.00
C#
const int MAX_AUTHORS = 25;
readonly float MIN_RANKING = 5.00F;
Kiểu liệt kê
VB.NET
Enum Action
Start
'Stop là t khoá nên bao trong c p ngo c []ừ ặ ặ
[Stop]
Rewind
Forward
End Enum
Enum Status
Flunk = 50
Pass = 70
Excel = 90
End Enum
Dim a As Action = Action.Stop
If a <> Action.Start Then _
'In ra "Stop is 1"
System.Console.WriteLine(a.ToString & " is " & a)
'In ra70
System.Console.WriteLine(Status.Pass)
' In ra Pass
System.Console.WriteLine(Status.Pass.ToString())
Enum Weekdays
Saturday
Sunday
Monday
Tuesday
Wednesday
Thursday
Friday
End Enum
C#
enum Action {Start, Stop, Rewind, Forward};
enum Status {Flunk = 50, Pass = 70, Excel = 90};
Action a = Action.Stop;
if (a != Action.Start)
//In ra "Stop is 1"
System.Console.WriteLine(a + " is " + (int) a);
// In ra 70
System.Console.WriteLine((int) Status.Pass);
// In ra Pass
System.Console.WriteLine(Status.Pass);
enum Weekdays
{
Saturday, Sunday, Monday, Tuesday, Wednesday,
Thursday, Friday
}
Phép toán
VB.NET
'Các phép quan hệ
= < > <= >= <>
'Các phép toán s h cố ọ
+ - * /
Mod
\ (integer division)
^ (raise to a power)
'Các phép gán
= += -= *= /= \= ^= <<= >>= &=
'Các phép toán trên bit
And AndAlso Or OrElse Not << >>
C#
// Các phép quan hệ
== < > <= >= !=
// Các phép toán s h cố ọ
+ - * /
% (mod)
/ (integer division if both operands are ints)
Math.Pow(x, y)
// Các phép gán
= += -= *= /= %= &= |= ^= <<= >>= ++ --
// Các phép toán trên bit
& | ^ ~ << >>
'Các phép toán logic
And AndAlso Or OrElse Not
'N i xâuố
&
// Các phép toán logic
&& || !
// N i xâuố
+
Biểu thức lựa chọn
VB.NET
greeting = IIf(age < 20, "Đã yêu", "Ch a yêu"ư)
'Phát bi u trên 1 dòng thì không c n End Ifể ầ
If language = "VB.NET" Then langType = "verbose"
'S d ng : đ đ t nhi u l nh trên 1 dòngử ụ ể ặ ề ệ
If x <> 100 And y < 5 Then x *= 5 : y *= 2
'Phép gán t t đã có trong VB.Net --> r t ti n d ngắ ấ ệ ụ
If x <> 100 And y < 5 Then
x *= 5
y *= 2
End If
If x > 5 Then
x *= y
ElseIf x = 5 Then
x += y
ElseIf x < 10 Then
x -= y
Else
x /= y
End If
'Bi u th c đi u ki n ph i thu c ki u nguyên thu ể ứ ề ệ ả ộ ể ỷ
Select Case color
Case "black", "red"
r += 1
Case "blue"
b += 1
Case "green"
g += 1
Case Else
other += 1
End Select
C#
greeting = age < 20 ? "Đã yêu" : "Ch a yêu"ư;
if (x != 100 && y < 5)
{
// Nhi u phát bi u c n n m trong {}ề ể ầ ằ
x *= 5;
y *= 2;
}
if (x > 5)
x *= y;
else if (x == 5)
x += y;
else if (x < 10)
x -= y;
else
x /= y;
//Bi u th c đi u ki n ph icó ki u nguyên ho c xâuể ứ ề ệ ả ể ặ
switch (color)
{
case "black":
case "red": r++;
break;
case "blue"
break;
case "green": g++;
break;
default: other++;
break;
}
Các vòng lặp
VB.NET
'Vòng l p ki m tra đi u ki n tr cặ ể ề ệ ướ
While c < 10
c += 1
End While ho cặ
Do Until c = 10
c += 1
Loop
C#
//Vòng l p ki m tra đi u ki n tr cặ ể ề ệ ướ
while (c < 10)
c++;
'Vòng xác đ nhị
For c = 2 To 10 Step 2
System.Console.WriteLine(c)
Next
'Vòng l p ki m tra đi u ki n sauặ ể ề ệ
Do While c < 10
c += 1
Loop
'Vòng l p duy t m ng ho c t p h pặ ệ ả ặ ậ ợ
Dim names As String() = {"han", "tinh", "diep"}
For Each s As String In names
System.Console.WriteLine(s)
Next
//Vòng xác đ nhị
for (i = 2; i < = 10; i += 2)
System.Console.WriteLine(i);
//Vòng l p ki m tra đi u ki n sauặ ể ề ệ
do
i++;
while (i < 10);
//Vòng l p duy t m ng ho c t p h pặ ệ ả ặ ậ ợ
string[] names = {"han", "tinh", "diep"};
foreach (string s in names)
System.Console.WriteLine(s);
Mảng
VB.NET
'Khai báo và kh i t o m ngở ạ ả
Dim nums() As Integer = {1, 2, 3}
For i As Integer = 0 To nums.Length - 1
Console.WriteLine(nums(i))
Next
'Khai báo m ng g m 5 ph n t , ph n t đ u có ch s làả ồ ầ ử ầ ử ầ ỉ ố
1 và ph n t cu i cùng có ch s 4ầ ử ố ỉ ố
Dim names(4) As String
names(0) = "mot"
'Ném ra ngo i l System.IndexOutOfRangeExceptionạ ệ
names(5) = "nam"
'Thay đ i kích c c a m ng mà giá tr c a m ng v n giổ ỡ ủ ả ị ủ ả ẫ ữ
nguyên giá tr n u có tuỳ ch n Preserveị ế ọ
ReDim Preserve names(6)
'Khai báo m ng nhi u chi uả ề ề
Dim twoD(rows-1, cols-1) As Single
twoD(2, 0) = 4.5
ho c khai báoặ
Dim jagged()() As Integer = { _
New Integer(4) {}, New Integer(1) {}, New Integer(2)
{} }
jagged(0)(4) = 5
C#
//Khai báo và kh i t o m ngở ạ ả
int[] nums = {1, 2, 3};
for (int i = 0; i < nums.Length; i++)
Console.WriteLine(nums[i]);
//Khai báo m ng g m 5 ph n t , ph n t đ u có ch sả ồ ầ ử ầ ử ầ ỉ ố
là 1 và ph n t cu i cùng có ch s 4ầ ử ố ỉ ố
string[] names = new string[5];
names[0] = "mot";
//Ném ra ngo i l System.IndexOutOfRangeExceptionạ ệ
names[5] = "nam"
//Không th thay đ i kích c c a m ngể ổ ỡ ủ ả
//C n ph i copy vô m ng m iầ ả ả ớ
string[] names2 = new string[7];
// or names.CopyTo(names2, 0);
Array.Copy(names, names2, names.Length);
//Khai báo m ng nhi u chi uả ề ề
float[,] twoD = new float[rows, cols];
twoD[2,0] = 4.5;
ho c khai báoặ
int[][] jagged = new int[3][] {
new int[5], new int[2], new int[3] };
jagged[0][4] = 5;
Hàm, thủ tục
VB.NET
'M c đ nh truy n theo tham tr (in), ByRef=tham trặ ị ề ị ị
Sub TestFunc(ByVal x As Integer, ByRef y As Integer,
ByRef z As Integer)
x += 1
y += 1
z = 5
End Sub
'c mang giá tr m c đ nh là 0ị ặ ị
Dim a = 1, b = 1, c As Integer
C#
//M c đ nh truy n theo tham tr (in), có 2 ki u truy nặ ị ề ị ể ề
tham chi u ref =(in/out) và out=(out)ế
void TestFunc(int x, ref int y, out int z) {
x++;
y++;
z = 5;
}
// c không c n kh i t o tr c khi g i nh ng, nh ngầ ở ạ ướ ọ ư ư
b thì c nầ
int a = 1, b = 1, c; TestFunc(a, ref b, out c);
System.Console.WriteLine("{0} {1} {2}", a, b, c); //
TestFunc(a, b, c)
System.Console.WriteLine("{0} {1} {2}", a, b, c) '1 2
5
'Khai báo hàm có th truy n vào nhi u giá trể ề ề ị
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, 2, 1) ' total=10
'Tham s tuỳ ch n n u có ph i n m cu i danh sách và nóố ọ ế ả ằ ố
ph i mang giá trả ị
Sub SayHello(ByVal name As String,
Optional ByVal prefix As String = "")
System.Console.WriteLine("Greetings, " & prefix
& " " & name)
End Sub
SayHello("Steven", "Dr.")
SayHello("SuOk")
1 2 5
//Khai báo hàm có th truy n vào nhi u giá trể ề ề ị
int Sum(params int[] nums) {
int sum = 0;
foreach (int i in nums)
sum += i;
return sum;
}
int total = Sum(4, 3, 2, 1); // total=10
/* C# doesn't support optional arguments/parameters.
Just create two different versions of the same
function. */
void SayHello(string name, string prefix) {
System.Console.WriteLine("Greetings, " + prefix + "
" + name);
}
void SayHello(string name) {
SayHello(name, "");
}
SayHello("Steven", "Dr.")
SayHello("SuOk")
Xử lý ngoại lệ
VB.NET
Class Withfinally
Public Shared Sub Main()
Try
Dim x As Integer = 5
Dim y As Integer = 0
Dim z As Integer = x / y
Console.WriteLine(z)
Catch e As DivideByZeroException
System.Console.WriteLine("Error occurred")
Finally
System.Console.WriteLine("Thank you")
End Try
End Sub
End Class
C#
class Withfinally{
public static void Main() {
try {
int x = 5;
int y = 0;
int z = x/y;
Console.WriteLine(z);
}catch(DivideByZeroException e){
System.Console.WriteLine("Error occurred");
}finally{
System.Console.WriteLine("Thank you");
}
}
}
Không gian tên (Namespaces)
VB.NET
Namespace ASPAlliance.DotNet.Community
...
End Namespace
'Ho cặ
Namespace ASPAlliance
Namespace DotNet
Namespace Community
...
End Namespace
End Namespace
End Namespace
C#
namespace ASPAlliance.DotNet.Community {
...
}
// Ho c ặ
namespace ASPAlliance {
namespace DotNet {
namespace Community {
...
}
}
}