Cours VB.NET

Dim a As Integer    'Déclare une variable nommée 'a' de type Entier

Dim a As Integer =3

Dim a As Integer = CalculMaVariable(4,3)

Dim a, b, c As Integer        'a, b et c sont maintenant des variables de type integer.

Dim a As Integer
Dim a As String' <= non accepté

Dim a As Integer
 a=2  'Ok
 a= "Philippe"  'Non car on ne peut pas mettre une chaine de caractères dans une variable de type Integer

	Dim varA As Integer        'Création d'une variable varA
					
	Dim varB As Integer        'Création d'une variable varB
					
	Dim total As Integer       'Création d'une variable total

					
	varA=3                     'Mettre '3' dans a 

					
	varB=2                     'Mettre '2' dans b

					
	total=varA + varB          'Mettre dans la variable 'total' la valeur de varA et de varB  

					
	LabelTotal.Text= total.ToString    'Afficher le total dans un label 

Dim total As Integer

Dim total2 As String

Dim myBoolean As Boolean

myBoolean = True

Dim i As Integer

i=12

Dim poids As Single
					
poids=45.45 

Dim x As String ="a"

MessageBox.Show(x.GetType.ToString)    'Affiche: Systeme.String

Dim i As Integer
i=4   '4 est un littéral, c'est ici un integer

Dim i As Integer
i=100000000  'valeur non accepté car trop grande pour un littéral integer
Dim j As Long
j=100000000  'accepté car le littéral est un Long

i=1.4

i= 42L   'le 'L' indique que 42 est un Long
i= 42I   'le 'I' indique que 42 est un Integer
i= 42D   'le 'D' indique que 42 est un Decimal
i= 42S   'le 'S' indique que 42 est un Single
C = "A"c  'le 'c' force "A" à être une Char et non une String

Dim MyInteger As Nullable (Of Integer)

Dim MyInteger? As Integer

Dim MyInteger As Integer?

Dim MyBol As Boolean?

Dim a? As Integer
        If a.HasValue = True Then
            MsgBox(a.Value.ToString)
        End If

Dim MyString As String 

MyString= "TOTO" 

      Label.text = MyString

Dim str As String    'str contient Nothing 
'Testons si str contient Nothing
If IsNothing(str) then Console.Write ( "contient Nothing")

str= ""              'str contient "" : chaîne vide de longueur 0

str= "TOTO"          'str contient "TOTO"

Dim A As String= "Visual"

Dim B As String= "Basic"

Label.text = "A+B"  affiche bêtement la chaîne  « A+B »

Label.text =  A+B    affiche "VisualBasic" 'on affiche les variables.    

A=" Bonjour ""Monsieur"" "    'Cela affiche :  Bonjour "Monsieur"

Dim Chaine as string = "Toto"

Dim x, y, z As String    'Déclare 3 variables 'String'

x.GetType.ToString

y.GetType.ToString

z.GetType.ToString

System.String

System.String

System.String

      str=str.ToUpper()

Dim a As String = "#@Informatique@#"

Dim b As Char() = {"#", "@"}    'b est un tableau de Char contenant les caractères à supprimer.

a=a.Trim(b)  Donne a= "Informatique" 

s=" Bonjour "

s=s.Trim(" ")    'donne s="Bonjour"

Dim s As String= "VB"

MsgBox(s.Length.ToString) 'Affiche 2 

s=String.Concat(a,b)

Dim s() As String = {"hello ", "my ", "friend ", "to "}
Dim c As String = String.Concat( s())

Dim s As String= "VisualBasic"

s= s.Insert(6,"  " ) 'Donne s= "Visual  Basic" 

Dim s As String = "VisualBasic"

s = s.Remove(2, 7) 'Donne s= "Viic" 

Dim s As String= "Visual_Basic"

s= s.Replace("_"," " ) 'Donne s= "Visual  Basic"

Dim ladate as string= "12.02.1990"

ladate= ladate.Replace(".","/" ) 'Donne ladate= "12/02/1990"

Dim s As String= "Philippe;Jean ;Toto"  

Dim separateur As Char = ";"

Dim nom() As String

nom=s.Split(separateur)

      nom(0)= "Philippe"

      nom(1)= "Jean"

      nom(2)= "Toto"

nom=s.Split( New Char() {" "c, ","c, "."c }) 'ici on a 3 séparateurs: l'espace, la virgule et le point.

Dim sep() As Char={" "c, ","c, "."c}

Dim nom() As String = S.Split ( sep, 100, StringSplitOptions.RemoveEmptyEntries ) 

Imports System.Text.RegularExpressions

Dim S As String = "abc ; def ; ghi"

' On crée un Regex

Dim R As New Regex("\s*;\s*")

' décomposition de ligne en champs

Dim Nom As String() = R.Split(S)

Dim myText As String = String.Join ( ControlChars.CrLf, myLines)

Dim a As String= "LDF.EXE"

Dim r As Char()={"."}

a.IndexOf(r)  retourne 3

Dim a As String= "LDF.EXE"

Dim r As Char()={"."}

a.IndexOfAny(r)  recherche à partir du début de chaîne.

a.IndexOfAny(r,2)  recherche à partir du deuxième caractère.

Dim str As String ="gfdjzak;,vdqsygeak"

Dim start As Integer =2

Dim at As Integer 

Dim count As Integer =5

Dim target As String = "ou" 'chaîne à chercher 

Dim anyOf As Char() = target.ToCharArray() 'on transforme la chaîne en tableau de char 

at = str.IndexOfAny(anyOf, start, count) 
'on cherche le tableau de Char anyOf dans str à partir de la position start et sur count caractères.

Dim rep As Integer

rep=String.Compare(a,b)

      -1 si a<b

      0 si a=b

      1 si a>b

Dim myStr1 As [String] = "My Uncle Bill"
Dim myStr2 As [String] = "My uncle bill"
Dim r As Integer = String.Compare(myStr1, 2, myStr2, 2, 10, StringComparison.CurrentCultureIgnoreCase)

Dim b As Booleen= String.Equals("aaa", "AAA")
'b=False

Dim b As Booleen= String.Equals("aaa", "AAA", StringComparison.CurrentCultureIgnoreCase)
'b=True

Dim trouve As Boolean

trouve = a.Contains( "123")

Dim a As String= "Informatique"

MessageBox.show(a.Substring(2,3)) 'Affiche  for

Dim a As String= "Informatique"

MessageBox.show(a.Substring(A.Length-4)) 'Affiche  ique

Dim a As String= "Informatique"

MessageBox.show(a.Substring(0, 3)) 'Affiche  inf

Dim maString As String = "ABCDE"
Dim monChar As Char
monChar = maString.Chars(3) ' monChar = "D"

myString = New String(" ", 15)    'Créer une chaîne de 15 espaces

Dim str As String
Dim pad As Char
str = "Nom"
pad = Convert.ToChar(".") 
Console.WriteLine(str.PadRight(15, pad)) ' Affiche Nom............

If s.StartWith ("abc") And s.EndWith ("xyz") Then

If S Is Nothing AndOr S.length=0 Then

If String.IsNullOrEmpty( S) Then

If String.IsNullOrWhiteSpace(value) Then..
'Est équivalent à (mais plus rapide): 
If String.IsNullOrEmpty(value) OrElse value.Trim().Length = 0 Then...

MaString = "Mid Demonstration" 
a = Mid(MaString, 1, 3) ' Retourne "Mid".

a = Mid(MaString, 14) 

Mid(MaString, 1, 3) = "Fin"

a=Right(MaString,2)

a=Microsoft.VisualBasic.Left(MaString,2) 

MyLen = Len(MaString)

	a=LTrim("  RRRR")

n=InStr(1,"aaaaRaa","R")        'retourne 5

maString = StrDup(5, "P") ' Retourne "PPPPP"

	x=Asc("A")

x=Asc("ABCD")

Chr(65)

Chr(&H20) 

Dim maString As String = "AIDE"
Dim monChar As Char
monChar = GetChar(maString, 3) ' monChar = "D"
 

Lowercase = LCase(UpperCase)

Dim maString As String = "gauche"
Dim r As String
r = LSet(maString, 2) ' Retourne "ga" 

Si la chaîne de départ est plus courte que la longueur spécifiée, des espaces sont ajoutés.
r = LSet(maString, 8) ' Retourne "gauche  "

Dim maString As String = "STRESSED"

Dim revString As String

revString = StrReverse(maString)    ' Retourne "DESSERTS"

TableauResultat= Filter( TableauChaine, Match, Include, Compare) 

Dim TestStrings(2) As String
TestStrings(0) = "Ici"
TestStrings(1) = "Si"
TestStrings(2) = "si"
Dim subStrings() As String	'Chaîne des résultats

subStrings = Filter(TestStrings, "i", True, CompareMethod.Text)
'Retourne "Ici","Si","si"

subStrings = Filter(TestStrings, "si", True, CompareMethod.Binary)
' Retourne "si".

subStrings = Filter(TestStrings, "si", False, CompareMethod.Binary)
'Retourne "Ici","Si"

Dim R As Boolean
R = "D" Like "D" ' Est ce que "D" est égal à "D"? => True.


R = "F" Like "f" ' Est ce que "F" est égal à "f"? => False.


R = "F" Like "FFF" ' Est ce que "F" est égal à "FFF"? => False.


R = "cBBBc" Like "c*c" ' Est ce que "cBBBc" répond au pattern (avoir un "c" au 
'début, un  "c" à la fin, et des caractères au milieu? Retourne True.


R = "J" Like "[A-Z]" ' Est ce que "J" est contenu dans les caractères allant de
'  A à Z? Retourne True.


R = "I" Like "[!A-Z]" ' Est ce que "I" n'est PAS dans les caractères allant de
'  A à Z? Retourne  False.


R = "a4a" Like "a#a" ' Est ce que "a4a" commence et finie par un
' "a" et à un nombre entre les 2? Retourne True.


R = "bM6f" Like "b[L-P]#[!c-e]" ' Est ce que "bM6f" 

'commence par  "b",

'a des caractères entre L et P

'un nombre

'se termine par un caractère non compris entre c et e

'retourne True

Dim X As Integer = 2

Label1.Text= "Le carré de " & X & "  est " & X * X

Dim X As Integer

X=2

Label1.Text= "Le carré de " & X & "  est " & X * X

les instructions '=', '>', '<':

Dim s1 As String ="ABCD"

Dim s2 As String ="XYZ"

Dim myStr1 As [String] = "My Uncle Bill"
Dim myStr2 As [String] = "My uncle bill"
Dim r A Boolean= myStr1.Equals(MyStr2)

'Autre syntaxe:
Dim r A Boolean= String.Equals(MyStr1, MyStr2)

'Avec la première syntaxe on peut ajouter des options de comparaison:
Dim r A Boolean= myStr1.Equals(MyStr2, CurrentCultureIgnoreCase)

 Dim myStr1 As [String] = "My Uncle Bill"
 Dim myStr2 As [String] = "My uncle bill"
        Dim r As Integer = String.Compare(myStr1, myStr2)
        MessageBox.Show(r.ToString)

'Affiche 1 car "A"<"a"
 MessageBox.Show(String.Compare("A", "a").ToString)		

 Dim myStr1 As [String] = "My Uncle Bill"
 Dim myStr2 As [String] = "My uncle bill"
        Dim r As Integer = String.Compare(myStr1, myStr2, ignoreCase:=True)
        MessageBox.Show(r.ToString)

'Autre syntaxe: on a 2 options
Dim r As Integer = String.Compare(myStr1, myStr2, CompareOptions.IgnoreCase And CompareOptions.IgnoreSymbol)

Dim myComp As CompareInfo = CultureInfo.InvariantCulture.CompareInfo
Dim r As Integer= myComp.Compare(myStr1, myStr2))

Dim myStr1 As [String] = "My Uncle Bill"
Dim myStr2 As [String] = "My uncle bill"
Dim r As Integer = String.Compare(myStr1, 2, myStr2, 2, 10, StringComparison.CurrentCultureIgnoreCase)

Option Strict On
' ...
Dim C As Char
C = "A"c

'Autre manière de faire:
C=CChar("A")
'On converti la String "A" en Char

Dim maString As String = "abcdefghijklmnop"
Dim maArray As Char() = maString.ToCharArray

Dim maNewString As String (maArray)
 
String.Chars():

Dim maString As String = "ABCDE"

Dim monChar As Char

monChar = maString.Chars(3) ' monChar = "D"

	Dim chA As Char
        chA = "A"c
        Dim ch1 As Char
        ch1 = "1"c
        Dim str As String
        str = "test string"

        Console.WriteLine(chA.CompareTo("B"c))          ' Output: "-1" '  A est plus petit que B
        Console.WriteLine(chA.Equals("A"c))             ' Output: "True" ' Egal?
        Console.WriteLine(Char.GetNumericValue(ch1))    ' Output: 1	 'Convertir en valeur numérique (double)
        Console.WriteLine(Char.IsControl(Chr(9)))       ' Output: "True"'  Est une caractère de contrôle?
        Console.WriteLine(Char.IsDigit(ch1))            ' Output: "True"'  Est un chiffre
        Console.WriteLine(Char.IsLetter(","c))          ' Output: "False"' Est une lettre
        Console.WriteLine(Char.IsLower("u"c))           ' Output: "True" ' Est en minuscule
        Console.WriteLine(Char.IsNumber(ch1))           ' Output: "True" ' Est un nombre
        Console.WriteLine(Char.IsPunctuation("."c))     ' Output: "True" ' Est un caractère de ponctuation
        Console.WriteLine(Char.IsSeparator(str, 4))     ' Output: "True" ' Est un séparateur
        Console.WriteLine(Char.IsSymbol("+"c))          ' Output: "True" ' Est un symbole
        Console.WriteLine(Char.IsWhiteSpace(str, 4))    ' Output: "True" ' Est un espace
        Console.WriteLine(Char.ToLower("M"c))           ' Output: "m"	 ' Passe en minuscule
   

Console.WriteLine(Char.ToLower("M"c).ToString) 

Dim V as string

For Each C As Char in V    'Pour chaque caractère de V..

      C...

Next

Dim monUnicode As Short = Convert.ToInt16 ("B"c) ' le code Unicode  de B est 66.
Dim monChar As Char = Convert.ToChar (66) '   monChar="B"

Dim monAscii As Short = Asc("B") 'Asc donne le code Ascii ou l'Unicode (Ascw fait de même?)
Dim monChar As Char= Chr(66) 'Char retourne le caractère qui a le code Ascii donné.

Dim Buffer As String
Buffer = New String(CChar(" "), 25)
'appel
UserName = Left(Buffer, InStr(Buffer, Chr(0)) - 1) 'on lit jusqu'au caractère 
'chr(0) qui est en interne le dernier caractère de la chaine

Dim MaChaineFixe As New VB6.FixedLengthString(100)

'pour l'initialiser en même temps:
Dim MaChaineFixe As New VB6.FixedLengthString(100, "hello")

Imports System.Text.RegularExpressions

Dim rg As New Regex("[0-9]")

rg.IsMatch("4545896245")  'retourne True car il n'y a que des chiffres.

MsgBox(rg.IsMatch("45gdGRj1"))  'Affiche False dans une Box

Dim rg As New Regex("^([\w]+)@([\w]+)\.([\w]+)$")

MsgBox(rg.IsMatch("philippe@lasserrelyon.fr")) 'affiche True

Funtion  SiValideMail (Adresse As String) As Boolean

Dim rg As New Regex("^([\w]+)@([\w]+)\.([\w]+)$")
Return rg.IsMatch(Adresse) 

End Function

Funtion  Remplace (Chaine As String) As String

Dim rg As New Regex("hello|salut|buenas dias")
Return rg.Replace(Chaine, "bonjour") 

End Function

Dim ch As String ="az45er78ty"

Dim rg As New Regex("\d+")
Dim t() As String= rg.Split(ch) 

Dim ch As String ="az,er,ty"

Dim rg As New Regex("[a-z]{2}")
Dim mac As MatchCollection = rg.Matches(ch)

For Each m As Match In mac 
 MsgBox( m.Value &" en position " & m.Index)
Next 

Dim ch As String ="Ceci est un cours vb"

Dim rg As New Regex("(\p{Lu}|\p{Ll})+")
Dim mac As MatchCollection = rg.Matches(ch)

For Each m As Match In mac 
 MsgBox( m.Value &" en position " & m.Index)
Next 

Funtion  Remplace (Chaine As String) As String

Return Regex.Replace("salut", "bonjour") 

End Function

Funtion  Remplace (Chaine As String) As String

Return Regex.Replace("salut", "bonjour" , RegexOptions.IgnoreCase Or RegexOptions.Compiled) 

End Function

Dim rg As New Regex("salut", RegexOptions.IgnoreCase Or RegexOptions.Compiled) 

Dim s As String = "bonjour"
     
s += "mon" + "ami"

 Dim sb As new System.Text.StringBuilder()

    sb.Append("bonjour")

    sb.Append("mon ami")

    Dim s As String

    s = sb.ToString()

Dim i As Integer

Dim i As Integer= 3

Dim I As Integer=12

Label.Text = I.ToString

Dim i As Integer
i=3 ' Il faut initialiser i avant d'utiliser GetType

Label1.Text = i.GetType.ToString  'Affiche: System.Int32

Dim I As Integer=2

Dim J As Integer

J=I+3 ' J est égal à 5 car on affecte à J la valeur I+3

Imports System.Math

R=Math.Abs(N) 

Dim N As Single

Dim R As Single

 

R=Abs(N)    'retourne la valeur absolu

            'Si N=-1.2  R=1.2

R=Sign(N)   'retourne le signe

            'Si N=-1.2  R=-1 (négatif) ; retourne 1 si nombre positif

 

R=Round(N)  'retourne le nombre entier le plus proche

            ' N=1.7     R=2

            ' N=1.2     R=1

            ' N=1.5     R=2

R=Truncate(N)  

R=Floor(N)  

R=Ceiling(N) 

R=Max(2,3)

R=Min(2,3) 

R=Pow(2,3) 

R=Sqrt(9) 

Imports System.Math
Dim MonAngle, MaSecant As Double
MonAngle = 1.3 '  angle en  radians.
MaSecant = 1 / Cos(MonAngle) ' Calcul la sécante.
 

Dim R As Single= 1.7

Int(R)    'retourne 1

Dim s As Single = 2147483647 ^ 33

If Single.IsInfinity(s) Then MsgBox("infinie")

If Single.IsNaN(0 / 0) Then

        Dim i As Integer
        Dim k As Single
        Dim j As Single = 0.0001
       
        For i = 1 To 10000
            k = k + j
        Next
        
        MsgBox(k.ToString)' Affiche 1.000054

        Dim k1 As Decimal
        Dim j1 As Decimal = 0.0001
        
        For i = 1 To 10000
            k1 = k1 + j1
        Next
        
        MsgBox(k1.ToString)' Affiche 1

Imports System.Numerics
'Instanciation directe avec new 
Dim MyBitInteger As New BigInteger(17903)
'Si variable avec virgule, la partie après la virgule sera tronquée.

'A partir d'un long
Dim MylongValue As Long = 631548935      
Dim MyBigInteger2 As BigInteger = Mylong

Dim MyBigInteger As BigInteger = CType(64312.65d, BigInteger)      

Dim n1 As BigInteger = BigInteger.Pow(2190, 2)
Dim n2 As BigInteger = BigInteger.Multiply(42656, 35)

Console.WriteLine("Le plus grand commun diviseur de {0} et de {1} est {2}.", _
                     n1, n2, BigInteger.GreatestCommonDivisor(n1, n2))
					

Imports System.Numerics

Module Example
   Public Sub Main()
      ' Creationn d'un complexe 11+ 6i .
      Dim c1 As New Complex(11, 6)
      Console.WriteLine(c1) 'Affiche  (11, 6)

      ' Assigne un  Double à un complex .
      Dim c2 As Complex = 3.1416
      Console.WriteLine(c2) 'Affiche  (3.1416, 0)


      ' Assign la valeur retournée .
      Dim c3 As Complex = Complex.One + Complex.One
      Console.WriteLine(c3) 'Affiche  (2, 0)

      ' Instancie un complex à partir des coordonnées polaires.
      Dim c4 As Complex = Complex.FromPolarCoordinates(10, .524)
      Console.WriteLine(c4) 'Affiche  (8.65824721882145, 5.00347430269914)
     
     'Affichage coordonnées cartésiennes
      Console.Write(c4.Real)
      Console.Write(c4.Imaginary)
      'Affichage coordonnées polaires
      Console.WriteLine("   Magnitude: {0}", c4.Magnitude)
      Console.WriteLine("   Phase:     {0} radians", c4.Phase)

   End Sub
End Module

 Dim c4 As New Complex(1, 1)
        Dim c2 As New Complex(2, 2)
        Dim c1 As New Complex
        ' c1 = c4 - c2
        c1 = Complex.Subtract(c4, c2)
        ' ou c1=c4-c2
        Console.Write(c1)

Dim c1 As Complex = New Complex(12.1, 15.4)
      Console.WriteLine("Formatting with ToString():       " + 
                        c1.ToString())
      Console.WriteLine("Formatting with ToString(format): " + 
                        c1.ToString("N2"))
      Console.WriteLine("Custom formatting with I0:        " + 
                        String.Format(New ComplexFormatter(), "{0:I0}", c1))
      Console.WriteLine("Custom formatting with J3:        " + 
                        String.Format(New ComplexFormatter(), "{0:J3}", c1))
                        ' The example displays the following output:
'    Formatting with ToString():       (12.1, 15.4)
'    Formatting with ToString(format): (12.10, 15.40)
'    Custom formatting with I0:        12 + 15i
'    Custom formatting with J3:        12.100 + 15.400j
'Merci Microsoft pour cet exemple

     Dim i As Integer=12        'On déclare une variable I qu'on initialise à 12

     Label.text = i.ToString 

     Dim i As Integer=12        'On déclare une variable I qu'on initialise à 12

     Label.text = CStr(i)

Dim s as String

Dim i as Integer

s= InputBox ("Test", "Taper un nombre") 'Saisie dans une InputBox  d'un nombre par l'utilisateur.

's contient maintenant une chaîne de caractères, "45" par exemple

i= CInt(S)     'on transforme la chaîne s en Integer                   

Dim s as String

Dim i as Integer

s= InputBox ("Test", "Taper un nombre") 'Saisie dans une InputBox  d'un nombre par l'utilisateur.

's contient maintenant une chaîne de caractères, "45" par exemple

i= Integer.Parse(s)     'on transforme la chaîne s en Integer                   

Dim i As Integer

Dim s As String= "12"

 i=CType(s,Integer)  ' s est la variable à modifier, Integer est le type à obtenir.

 Dim d As Double = 2.65

 Dim i As Integer

 i=CType(d,Integer)    'conversion d'un Double en entier 

 Dim d As Double = 2.65

 Dim s As String

 s=CType(d,String)    'conversion  d'un Double  en String 

 Dim d As Integer = 2

 Dim S As Single

 S=CType(d, Single)    'conversion d'un Integer en Single 

' nécessite Option Strict Off.
Dim Q As Object = 2.37   ' crée un objet contenant un double.
Dim K As Integer =CType(Q, Integer)       'Marche

Dim J As Integer = DirectCast(Q, Integer)   ' échoue 

 Dim chaine As String = TryCast(b, String)
 If IsNothing(chaine) Then..

CBool()  'Pour convertir en Booléen
CByte()  'Pour convertir en octet
CChar()  'Pour convertir en Char
CDate()  'Pour convertir en Date
CDbl()   'Pour convertir en Double
CDec()   'Pour convertir en Decimal
CInt()   'Pour convertir en Integer
CLng()   'Pour convertir en Long
CObj()   'Pour convertir en Objet
CShort() 'Pour convertir en  Short
CSng()   'Pour convertir en Single
CStr()   'Pour convertir en String
'Et en VB 2005
CSByte()  'Pour convertir en SByte
CUShort() 'Pour convertir en  UShort
CUInt()   'Pour convertir en UInteger
CULng()   'Pour convertir en ULong

Dim I As Integer=123

Dim D As Double

D=CDbl(I)    'donnera D=123  D est un Double (réel double précision)

Dim i As Integer

i=Val("5")    ' i=5

Dim i As Double

i=Val("5.45")    ' donnera i=5,45

i=Val("5,45")    ' donnera i=5