Dans cette rubrique, vous trouverez de nombreux petits bouts de code permettant de faire des choses interssantes !

Sommaire :

• Internet :
  • Savoir si on est connecté à internet
  • Récupérer les IP sur un PC
  • Récupérer la liste des PC
• Fichiers :
  • Sérialisation XML
  • Sérialisation binaire
  • Lister un répertoire dans une ListBox
  • Lister un répertoire dans une Treeview
  • Compresser un fichier
  • Décompresser un fichier
• Maths :
  • Résoudre équations 2eme degrés
  • Résoudre équations 3eme degrés
  • Calculer une factorielle
  • Calculer un PGCD
  • Savoir si un nombre est premier
  • Savoir si un nombre est divisible par un autre

Savoir si on est connecté à Internet (API)

‘Déclaration de l'API Private Declare Function InternetGetConnectedState Lib "wininet.dll" ( _ ByRef lpdwFlags As Integer, _ ByVal dwReserved As Integer) As Boolean ‘fonction pour savoir si on est connecté à Internet Public Function IsConnected() As Boolean Dim Desc As Integer Return InternetGetConnectedState(Desc, 0) End Function

Comment récupérer les IP sur un PC ?

Public Function GetIPaddresses(Optional ByVal computername As String = "localhost") As String() Dim saddr() As String = New String() {} Dim addr() As Net.IPAddress = Net.Dns.Resolve(computername).AddressList() Dim i As Integer If addr.Length > 0 Then saddr = New String(addr.Length - 1) {} For i = 0 To addr.Length - 1 saddr(i) = addr(i).ToString Next End If Return saddr End Function

Comment récupérer la liste des PC ?

Private Function GetPCList(ByVal DomainPath As String) As ArrayList Dim PCList As New ArrayList Dim DomainEntry As New DirectoryEntry(DomainPath) Dim Entry As DirectoryEntry DomainEntry.Children.SchemaFilter.Add("Computer") For Each Entry In DomainEntry.Children PCList.Add(Entry.Name) Next Return PCList End Function

Sérialisation XML d'une Treeview par exemple

Télécharger l'exemple (Format RAR)

Sérialisation binaire d'une Treeview par exemple

Télécharger l'exemple (Format RAR)

Lister les répertoires dans une ListBox (récursivité itérative)

Public Sub ListerMesRepertoire(ByVal Rep As String) Try ‘Recupere la liste des entrees du repetoire Dim Liste As String() = Directory.GetFileSystemEntries(Rep) Dim Entree As String For Each Entree In Liste ‘Pour chaque entree de la liste Dim TmpName As String = Microsoft.VisualBasic.Mid(Entree, Len(Rep) + 1) ‘On decoupe proprement le nom du fichier ou repertoire TmpName = Replace(TmpName, "'\'", "") ‘On enleve les caracteres parasite If File.Exists(Entree) Then ‘Si c'est un fichier ListBox1.Items.Add(TmpName) Else ‘Si c'est un repertoire ListerMesRepertoire(Entree) ‘On Liste le contenus de ce repertoire End If Next Entree Catch Ex As System.UnauthorizedAccessException ‘Si le répertoire est interdit Exit Sub Catch e As Exception ‘en cas d'erreurs MsgBox("Erreur dans la dll : " & e.Message, MsgBoxStyle.Critical) End Try End Sub

Lister les répertoires dans une Treeview (recursivité iterative)

Télécharger l'exemple (Format RAR)

Compresser un fichier en VB.NET 2005

Public Function CompresserFichier(ByVal cheminSource As String, ByVal cheminDestination As String) As Boolean ‘cheminSource : chemin complet du fichier à compresser ‘cheminDestination : chemin complet du fichier compressé à créer Try ‘Le fichier est placé dans le FileStream Dim monFileStream As New FileStream(cheminSource, FileMode.Open) Dim monBuffer(CInt(monFileStream.Length)) As Byte ‘Lecture de l'intégralité du FileStream monFileStream.Read(monBuffer, 0, CInt(monFileStream.Length)) ‘Fermeture du FileStream monFileStream.Close() ‘Création du fichier qui va contenir le fichier compressé monFileStream = New FileStream(cheminDestination, FileMode.Create) ‘Compression des données Dim monGZipStream As New GZipStream(monFileStream, CompressionMode.Compress, False) ‘Ecriture des données compressées dans le fichier de destination monGZipStream.Write(monBuffer, 0, monBuffer.Length) ‘Fermeture du GZipStream monGZipStream.Close() Return True Catch ex As Exception MessageBox.Show(ex.Message) Return False End Try End Function

Décompresser un fichier en VB.NET 2005

Public Function DecompresserFichier(ByVal cheminSource As String, ByVal cheminDestination As String) As Boolean ‘cheminSource : chemin complet du fichier compressé ‘cheminDestination : chemin complet du fichier où le fichier doit être décompressé Try ‘Lecture du fichier compresse Dim monFileStream As New FileStream(cheminSource, FileMode.Open) ‘ Données du fichier placées dans un GZipStream Dim monGzipStream As New GZipStream(monFileStream, CompressionMode.Decompress) ‘Tableau qui va contenir la taille du fichier Dim tailleOctets(3) As Byte ‘Positionnement dans le Stream pour récupérer la taille Dim position As Integer = CInt(monFileStream.Length - 4) monFileStream.Position = position ‘Récupération de la taille du fichier monFileStream.Read(tailleOctets, 0, 4) ‘Repositionnement en début du Stream monFileStream.Position = 0 ‘Conversion de la taille du fichier en entier Dim tailleFichier As Integer = BitConverter.ToInt32(tailleOctets, 0) ‘Dimesionnement du buffer Dim buffer(tailleFichier + 100) As Byte ‘Offset qui permettra de se repérer dans le Stream Dim monOffset As Integer = 0 While (True) ‘Les données sont décompressées et placées dans le buffer Dim decompressionOctets As Integer = monGzipStream.Read(buffer, monOffset, 100) ‘Tant qu'il reste des données on continue If (decompressionOctets = 0) Then Exit While End If ‘On icrémente l'offset pour ne pas repartir de 0 à chaque fois... monOffset += decompressionOctets End While ‘Création du fichier décompressé monFileStream = New FileStream(cheminDestination, FileMode.Create) ‘Ecriture des données décomrpessées dans le fichier monFileStream.Write(buffer, 0, tailleFichier - 1) ‘Efface les données en mémoire tampon monFileStream.Flush() ‘Fermeture des Streams monFileStream.Close() monGzipStream.Close() Return True Catch ex As Exception MessageBox.Show(ex.Message) Return False End Try End Function

Résoudre des équations du 2 ème degrés

Public Function Resolution_Equation_2emeDegres(ByVal a As Integer, ByVal b As Integer, ByVal c As Integer) As ArrayList Dim discriminant, x1, x2, racinediscri, enracin, x_double As Decimal Resolution_Equation_2emeDegres = New ArrayList discriminant = (b * b - (4 * a * c)) If a = 0 Then Resolution_Equation_2emeDegres.Add("La fonction saisie n'est pas un trinome") ElseIf discriminant > 0 And a <> 0 Then ‘ 2 solutins dans R racinediscri = CDec(Sqrt(discriminant)) enracin = Int(racinediscri) x1 = (-b + racinediscri) / (2 * a) x2 = (-b - racinediscri) / (2 * a) Resolution_Equation_2emeDegres.Add(x1.ToString) Resolution_Equation_2emeDegres.Add(x2.ToString) ElseIf discriminant < 0 Then ‘pas de solutions dans R Resolution_Equation_2emeDegres.Add("Pas de racine dans R") ElseIf discriminant = 0 Then ‘une racine double x_double = CDec(-b / (2 * a)) Resolution_Equation_2emeDegres.Add(x_double.ToString) End If End Function

Résoudre des équations du 3 ème degrés

Télécharger l'exemple (Format RAR)

Calculer une factorielle

Public Function Factorielle(ByVal N As Long) As Long If N = 1 Then Return 1 Else Return N * Factorielle(N - 1) End If End Function

Calculer un PGCD

Public Function PGCD(ByVal P As Long, ByVal Q As Long) As Long If Q Mod P = 0 Then Return P Else Return PGCD(Q, P Mod Q) End If End Function

Savoir si un nombre est premier

Public Function IsPremier(ByVal nombre As Integer) As Boolean Dim Max As Integer = CInt(Math.Sqrt(nombre)) For j As Integer = 2 To Max If Divisible(j, nombre) = True Then Return False If j = Max Then Return True Next End Function

Savoir si un nombre est divisible par un autre

Public Function Divisible(ByVal p As Integer, ByVal nb As Integer) As Boolean If nb Mod p = 0 Then Return True Else Return False End If End Function