Cours VB.NET

 
Public Class ClasseLivre
Private m_Titre As String
Private m_Auteur As String
 
' Propriété Titre
Public Property Titre() As String
Get
Return m_Titre
End Get
Set(ByVal value As String)
m_Titre = value
End Set
End Property
 
' Propriété Auteur
Public Property Auteur() As String
Get
Return m_Auteur
End Get
Set(ByVal value As String)
m_Auteur = value
End Set
End Property
 
End Class
 

Imports System.Collections.Generic
 
Public Class ClasseLivres 
Private ListLivre As New List(Of ClasseLivre) 'Collection de Livre
Private m_numero As Integer
Private ad As New AccesAuxDonnees
 
'Constructeur, charge la collection
Public Sub New()
Me.LoadData()
End Sub
 
Public Sub LoadData()
ad.LoadData(ListLivre)
m_numero = 0
End Sub
 
Public Sub SaveData()
ad.SaveData(ListLivre)
End Sub
 
'Retourne le livre courant
Public Function LivrePointé() As ClasseLivre
If ListLivre.Count <> 0 Then
If m_numero < ListLivre.Count Then
Return ListLivre.Item(m_numero)
Else
Return Nothing
End If
Else
Return Nothing
End If
End Function
 
'Ajouter un livre
Public Sub AddLivre(ByVal l As ClasseLivre)
ListLivre.Add(l)
End Sub
 
'Effacer le livre courant
Public Sub RemoveLivre()
ListLivre.RemoveAt(m_numero)
End Sub
 
'Mettre à jour un livre
Public Sub UpdateLivre(ByVal l As ClasseLivre)
ListLivre.Item(m_numero) = l
End Sub
 
'Livre suivant
Public Sub NextLivre()
If m_numero < ListLivre.Count Then
m_numero += 1
End If
End Sub
 
'Livre précédent
Public Sub PreviousLivre()
If m_numero > 0 Then
m_numero -= 1
End If
End Sub
 
'Premier Livre 
Public Sub FirstLivre()
m_numero = 0
End Sub
 
'Dernier livre
Public Sub LastLivre()
m_numero = ListLivre.Count - 1
End Sub
End Class
 
 

Public Class ClasseLivres
Private ListLivre As New List(Of ClasseLivre) 'Collection de Livre
Private m_numero As Integer
 
Dim ad As New AccesAuxDonnees
 

 
Imports System.Xml.Serialization
Imports System.IO
 
Public Class AccesAuxDonnees
 
Public Sub SaveData(ByVal list As Collections.Generic.List(Of ClasseLivre))
' Déclaration
Dim serialXML As Xml.Serialization.XmlSerializer = Nothing
Dim streamIO As StreamWriter = Nothing
Try
serialXML = New Xml.Serialization.XmlSerializer(GetType(Collections.Generic.List(Of ClasseLivre)))
' Ouverture d'un flux en écriture sur le fichier XML 
streamIO = New StreamWriter("Meslivres.Xml")
' Sérialisation de la liste des contacts
serialXML.Serialize(streamIO, list)
Catch ex As Exception
' Propager l'exception
Throw ex
Finally
' En cas d'erreur, n'oublier pas de fermer le flux en écriture si ce dernier est toujours ouvert
If streamIO IsNot Nothing Then
streamIO.Close()
End If
End Try
End Sub
 
Public Sub LoadData(ByRef list As Collections.Generic.List(Of ClasseLivre))
' Déclaration
Dim streamIO As StreamReader = Nothing
Dim serialXML As Xml.Serialization.XmlSerializer = Nothing
Try
' Tester l'existance du fichier
If System.IO.File.Exists("Meslivres.Xml") = True Then
serialXML = New Xml.Serialization.XmlSerializer(GetType(Collections.Generic.List(Of ClasseLivre)))
' Ouverture d'un flux en lecture sur le fichier XML des contacts
streamIO = New StreamReader("Meslivres.Xml")
' Désérialisation de la liste 
list = CType(serialXML.Deserialize(streamIO), Collections.Generic.List(Of ClasseLivre))
End If
Catch ex As Exception
' Propager l'exception
Throw ex
Finally
' En cas d'erreur, n'oublier pas de fermer le flux en lecture si ce dernier est toujours ouvert
If streamIO IsNot Nothing Then
streamIO.Close()
End If
End Try
End Sub
End Class
 

 
Public Class InterfaceGraphique
 
Dim Livres As New ClasseLivres
Dim iFlagNewLivre As Integer
 
Sub LireLivre(ByVal l As ClasseLivre)
l.Titre = TextBoxTitre.Text
l.Auteur = TextBoxAuteur.Text
End Sub
 
Sub AfficheLivre(ByVal l As ClasseLivre)
If l IsNot Nothing Then
TextBoxTitre.Text = l.Titre
TextBoxAuteur.Text = l.Auteur
End If
End Sub
 
Private Sub ButtonNext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles ButtonNext.Click
Livres.NextLivre()
AfficheLivre(Livres.LivrePointé)
iFlagNewLivre = False
End Sub
 
 
Private Sub ButtonPrevious_Click(ByVal sender As Object, ByVal e As System.EventArgs) _ 
Handles ButtonPrevious.Click
Livres.PreviousLivre()
AfficheLivre(Livres.LivrePointé)
iFlagNewLivre = False
End Sub
 
Private Sub ButtonNew_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ 
Handles ButtonNew.Click
TextBoxTitre.Text = ""
TextBoxAuteur.Text = ""
iFlagNewLivre = True
End Sub
 
Private Sub ButtonEnregister_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ 
Handles ButtonEnregister.Click
Dim NouveauLivre As New ClasseLivre
If iFlagNewLivre = True Then
  LireLivre(NouveauLivre) 
  Livres.AddLivre(NouveauLivre)
  Livres.LastLivre()
Else
  LireLivre(NouveauLivre)
  Livres.UpdateLivre(NouveauLivre)
End If
iFlagNewLivre = False
End Sub
 
Private Sub ButtonEnregistertous_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
_Handles ButtonEnregistertous.Click
    Livres.SaveData()
End Sub
End Class
 

 
Imports System.Collections.Generic
Public Class ClasseLivre
 
Private m_Titre As String
Private m_Auteur As String
' Propriétés Titre
Public Property Titre() As String
Get
Return m_Titre
End Get
Set(ByVal value As String)
m_Titre = value
End Set
End Property
 
' Propriétés Auteur
Public Property Auteur() As String
Get
Return m_Auteur
End Get
Set(ByVal value As String)
m_Auteur = value
End Set
End Property
 
Public Function GetTitre() As String
Return m_Titre
End Function
End Class
 
Public Class ClasseLivres
Public ListLivre As New Collections.Generic.List(Of ClasseLivre)
Private ad As New AccesAuxDonnees
 
Public Sub LoadData()
ad.LoadData(ListLivre)
End Sub
 
Public Sub SaveData()
ad.SaveData(ListLivre)
End Sub
 
End Class
 

Public Class Form1
Dim MesLivres As New ClasseLivres
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 ClasseLivreBindingSource.DataSource = MesLivres.ListLivre
End Sub
 
'On peut ajouter dans la form 2 boutons permettant la sauvegarde ou la lecture sur disque.
Private Sub SauveLivres_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _ 
Handles Button1.Click
    MesLivres.SaveData()
End Sub
 
Private Sub LoadLivre_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button2.Click
    MesLivres.LoadData()
    ClasseLivreBindingSource.DataSource = MesLivres.ListLivre
End Sub
End Class

Public Class sing
'Déclaration de l'instance Singleton
Shared instance As sing
 
Private Sub New()'Pas oublier de mettre Private 
    MyBase.New()
End Sub
Shared Function getInstance() As sing 'Voici la méthode de classe
 
If IsNothing(instance) Then 'Si le singleton n'est pas créé, alors faut le créé un et un seul
    instance = New sing
End If
Return instance
End Function
...
...'Ici les autres membres de la classe 
End Class

Dim t As sing =  sing.getInstance

    Shared Function getInstance() As sing
         
        If IsNothing(instance) Then 
            SyncLock GetType(sing) 
                 If IsNothing(instance) Then 
                    instance = New sing 
                end if 
            End SyncLock 
        End If 
        Return instance 
    End Function
 

 ' Créer un tableau
Dim myArr(4) As String
myArr(0) = "toto"
myArr(1) = "lulu"
myArr(2) = "bibi"
myArr(3) = "tata"
 
Dim i As Integer = 0
 
'Créer un énumérateur
Dim myEnumerator As System.Collections.IEnumerator = myArr.GetEnumerator()
 
'Afficher sur la console successivement les élément du tableau
'en utilisant MoveNext et Current
While myEnumerator.MoveNext() And Not (myEnumerator.Current Is Nothing)
  Console.WriteLine("[{0}] {1}", i, myEnumerator.Current)
  i += 1
End While
 

' Création de la classe Student

Public Class Student 

    Public FirstName As String 

    Public LastName As String 

    Public Scores As Integer() 

End Class

 

 Sub Main()

 'Création de 4 étudiants avec nom prénom et note  

 Dim student1 As New Student With {.FirstName = "Svetlana", .LastName = "Omelchenko", _
  .Scores = New Integer() {98, 92, 81, 60}} 

 Dim student2 As New Student With {.FirstName = "Claire",  .LastName = "O'Donnell", _
  .Scores = New Integer() {75, 84, 91, 39}} 

 Dim student3 As New Student With {.FirstName = "Cesar",  .LastName = "Garcia", _
  .Scores = New Integer() {97, 89, 85, 82}} 

 Dim student4 As New Student With {.FirstName = "Sven",  .LastName = "Mortensen", _
  .Scores = New Integer() {88, 94, 65, 91}} 

 

 'Création d'une ArrayList dans laquelle on met les 4 étudiants

Dim arrList As New ArrayList() 

arrList.Add(student1) 

arrList.Add(student2)

arrList.Add(student3) 

arrList.Add(student4)

 

 ' Requête: rechercher les étudiant dont la première note est >95

Dim query = From student As Student In arrList _

 Where student.Scores(0) > 95 _

 Select student 

 

'Affichage des résultats

For Each student As Student In query

  Console.WriteLine(student.LastName & ": " & student.Scores(0)) 

Next

 

 ' referme la console. 

Console.WriteLine("Press any key to exit.")

Console.ReadKey()

 

End Sub