cs_dayvid
Messages postés212Date d'inscriptionmardi 18 janvier 2011StatutMembreDernière intervention12 février 2013
-
1 juin 2011 à 15:07
cs_dayvid
Messages postés212Date d'inscriptionmardi 18 janvier 2011StatutMembreDernière intervention12 février 2013
-
9 juin 2011 à 14:02
Bonjour !
Je débute juste et j'ai commencer ceci
Q'uen penssez-vous ?
Module Module_Console
''' <summary>
''' Permet de choisir le titre de la console
''' </summary>
''' Choisisez le titre de la console et placez-le entre des guillemets, Exemple: TitreConsole("Titre de la console")
''' <remarks></remarks>
'''
Public Sub DéfinirTitreConsole(ByVal Titre As String)
Console.Title = Titre
End Sub
''' <summary>
''' Permet de renvoyer le titre de la console
''' </summary>
''' <returns>Renvoie le titre de la console</returns>
''' <remarks></remarks>
'''
Public Function RenvoyerTitreConsole() As String
Dim titre As String
titre = Console.Title
Return titre
End Function
''' <summary>
''' Permet de choisir la taille de la console
''' </summary>
''' Définie la largeur de la console
''' Définie la hauteur de la console, Max 83
''' <remarks></remarks>
'''
Public Sub DéfinirTailleConsole(ByVal Largeur As Integer, ByVal Hauteur As Integer)
If Hauteur > 83 Then
Hauteur = 83
ElseIf Hauteur <= 0 Then
Hauteur = 1
End If
If Largeur <= 0 Then
Largeur = 1
End If
Console.WindowWidth = Largeur
Console.WindowHeight = Hauteur
End Sub
''' <summary>
''' Permet de renvoyer la taille de la console
''' </summary>
''' Renvoie la largeur de la console si ce paramètre est = à 1
''' Renvoie la hauteur de la console si ce paramètre est = à 1
''' <returns>Renvoie la taille de la console</returns>
''' <remarks></remarks>
'''
Public Function RenvoyerTailleConsole(ByVal Largeur As Integer, ByVal Hauteur As Integer) As String
If Largeur 1 And Hauteur 0 Then
Largeur = Console.WindowWidth
Return Str(Largeur) + "."
ElseIf Largeur 1 And Hauteur 1 Then
Largeur = Console.WindowWidth
Hauteur = Console.WindowHeight
Return Str(Largeur) + "." + Str(Hauteur)
ElseIf Largeur 0 And Hauteur 1 Then
Hauteur = Console.WindowHeight
Return "." + Str(Hauteur)
ElseIf Largeur 0 And Hauteur 0 Then
Return "."
End If
End Function
''' <summary>
''' Permet de définir la taille de la page interne de la console
''' </summary>
''' Ce paramètre définie la largeur de la page interne de la console
''' Ce paramètre définie la hauteur de la page interne de la console
''' <remarks></remarks>
'''
Public Sub DéfinirTailleBufferConsole(ByVal LargeurBuffer As Integer, ByVal HauteurBuffer As Integer)
Dim TailleConsole As String = ""
Dim LargeurConsole As String = ""
Dim HauteurConsole As String = ""
TailleConsole = RenvoyerTailleConsole(1, 1)
LargeurConsole = Mid(TailleConsole, 1, InStr(TailleConsole, ".") - 1)
HauteurConsole = Mid(TailleConsole, InStr(TailleConsole, ".") + 1)
If HauteurBuffer > 83 Then
HauteurBuffer = 83
End If
If HauteurBuffer < HauteurConsole Then
HauteurBuffer = HauteurConsole
ElseIf HauteurBuffer <= 0 Then
HauteurBuffer = 1
End If
If LargeurBuffer < LargeurConsole Then
LargeurBuffer = LargeurConsole
ElseIf LargeurBuffer <= 0 Then
LargeurBuffer = 1
End If
Console.BufferWidth = LargeurBuffer
Console.WindowHeight = HauteurBuffer
End Sub
''' <summary>
''' Permet de renvoyer la taille de la page interne de la console
''' </summary>
''' Renvoie la largeur de la page interne de la console si ce paramètre est = à 1
''' Renvoie la hauteur de la page interne de la console si ce paramètre est = à 1
''' <returns>Renvoie la largeur et/ou hauteur de la page interne de la console</returns>
''' <remarks></remarks>
'''
Public Function RenvoyerTailleBufferConsole(ByVal LargeurBuffer As Integer, ByVal HauteurBuffer As Integer) As String
If HauteurBuffer 1 And LargeurBuffer 0 Then
HauteurBuffer = Console.WindowHeight
Return Str(LargeurBuffer) + "."
ElseIf HauteurBuffer 1 And LargeurBuffer 1 Then
LargeurBuffer = Console.BufferWidth
HauteurBuffer = Console.WindowHeight
Return Str(LargeurBuffer) + "." + Str(HauteurBuffer)
ElseIf HauteurBuffer 0 And LargeurBuffer 1 Then
LargeurBuffer = Console.BufferWidth
Return "." + Str(HauteurBuffer)
ElseIf HauteurBuffer 0 And LargeurBuffer 0 Then
Return "."
End If
End Function
''' <summary>
''' Permet de définir la posision des barres de la page si elle sont présente
''' </summary>
''' Définir la posision de la barre en bas de la console
''' Définir la posision de la barre a droite de la console
''' <remarks></remarks>
'''
Public Sub DéfinirPositionscrollBarConsole(Optional ByVal Horizontale As Integer 0, Optional ByVal Verticale As Integer 0)
If Horizontale > 0 Then
Console.WindowLeft = Horizontale
End If
If Verticale > 0 Then
Console.WindowTop = Verticale
End If
End Sub
''' <summary>
''' Permet de renvoyer la possition des barres dans la console si il en as
''' </summary>
''' Renvoie la position de la barre en bas de la console si ce paramètre est = à 1
''' Renvoie la position de la barre a droite de la console si ce paramètre est = à 1
''' <returns></returns>
''' <remarks></remarks>
'''
Public Function RenvoyerPositionscrollBarConsole(Optional ByVal Horizontale As Integer 0, Optional ByVal Verticale As Integer 0) As String
If Horizontale 1 And Verticale 0 Then
Horizontale = Console.WindowLeft
Return Str(Horizontale) + "."
ElseIf Horizontale 1 And Verticale 1 Then
Horizontale = Console.WindowLeft
Verticale = Console.WindowTop
Return Str(Horizontale) + "." + Str(Verticale)
ElseIf Horizontale 0 And Verticale 1 Then
Verticale = Console.WindowTop
Return "." + Str(Verticale)
ElseIf Horizontale 0 And Verticale 0 Then
Return "."
End If
End Function
''' <summary>
''' Permet d'éffacer la console avec la couleur spécifier
''' </summary>
''' Ce paramètre est optionnel et permet de choisir la couleur d'arrière plant de la console
''' <remarks></remarks>
'''
Public Sub EffacerConsole(Optional ByVal Couleur As Integer = 0)
If Couleur < 0 Then
Couleur = 0
ElseIf Couleur > 15 Then
Couleur = 15
End If
Console.BackgroundColor = Couleur
Console.Clear()
End Sub
''' <summary>
''' Permet de choisir la taille du cursseur de la console
''' </summary>
''' Minimum 1, Maximum 11
''' <remarks></remarks>
'''
Public Sub DéfinirTailleCursseurConsole(ByVal Taille As Integer)
Taille = Taille * 10 - 10
If Taille > 100 Then
Taille = 100
ElseIf Taille <= 0 Then
Taille = 1
End If
Console.CursorSize = Taille
End Sub
''' <summary>
''' Permet de renvoyer la taille du cursseur actuel dans la console
''' </summary>
''' <returns>Retourn la taille actuel du cursseur</returns>
''' <remarks></remarks>
'''
Public Function RenvoyerTailleCursseurConsole()
Dim TailleCursseur As Integer
TailleCursseur = Console.CursorSize / 10 + 1
Return TailleCursseur
End Function
''' <summary>
''' Permet d'afficher ou de cacher le cursseur de la console
''' </summary>
''' 1 Visible, 0 Invisible
''' <remarks></remarks>
'''
Public Sub AfficherCursseurConsole(ByVal Visibilité As Integer)
If Visibilité = 1 Then
Console.CursorVisible = True
Else
Console.CursorVisible = False
End If
End Sub
''' <summary>
''' Permet de choisir la position du cursseur dans la console
''' </summary>
''' Position du cursseur en Horizontale
''' Position du cursseur en Verticalle
''' <remarks></remarks>
'''
Public Sub DéfinirPositionCursseurConsole(ByVal X As Integer, ByVal Y As Integer)
If X < 1 Then
X = 1
End If
If Y < 1 Then
Y = 1
End If
Console.SetCursorPosition(X, Y)
End Sub
''' <summary>
''' Permet de spécifier une couleur pour le texte a écrire dans la console
''' </summary>
''' Définie la couleur du texte
''' Définie la couleur d'arrière plant du texte
''' <remarks></remarks>
'''
Public Sub DéfinirCouleurTexteConsole(ByVal CouleurTexte As Integer, ByVal CouleurFondTexte As Integer)
If CouleurTexte < 0 Or CouleurTexte > 15 Then
CouleurTexte = 7
End If
If CouleurFondTexte < 0 Or CouleurFondTexte > 15 Then
CouleurFondTexte = 0
End If
Console.BackgroundColor = CouleurFondTexte
Console.ForegroundColor = CouleurTexte
End Sub
''' <summary>
''' Permet de renvoyer la couleur du texte et/ou de l'arrière plant du texte de la console
''' </summary>
''' Renvoie la couleur du texte si ce paramètre est = à 1
''' Renvoie la couleur d'arrière plant du texte si ce paramètre est = à 1
''' <returns>Renvoie la couleur du texte de la console</returns>
''' <remarks></remarks>
'''
Public Function RenvoyerCouleurTexteConsole(ByVal Texte As Integer, ByVal FondTexte As Integer) As String
If Texte 1 And FondTexte 0 Then
Texte = Console.ForegroundColor
Return Str(Texte) + "."
ElseIf Texte 1 And FondTexte 1 Then
Texte = Console.ForegroundColor
FondTexte = Console.BackgroundColor
Return Str(Texte) + "." + Str(FondTexte)
ElseIf Texte 0 And FondTexte 1 Then
FondTexte = Console.BackgroundColor
Return "." + Str(FondTexte)
ElseIf Texte 0 And FondTexte 0 Then
Return "."
End If
End Function
''' <summary>
''' Permet de jouer un Bip a la fréquence et a la duré indiquer
''' </summary>
''' Ce paramètre optionnel définie la fréquence,le minimume est de 37 MGz, plus ce nombre est grand et plus le Bip sera egue
''' Ce paramètre optionnel détèrmine la duré du Bip
''' <remarks></remarks>
'''
Public Sub BipConsole(Optional ByVal Fréquence As Integer 800, Optional ByVal Duré As Integer 180)
If Fréquence < 37 And Fréquence <> 0 Then
Fréquence = 37
ElseIf Fréquence = 0 Then
Fréquence = 800
End If
If Duré < 0 And Duré <> 0 Then
Duré = 0
ElseIf Duré = 0 Then
Duré = 180
End If
Console.Beep(Fréquence, Duré)
End Sub
''' <summary>
''' Ceci permet de saisir des caractères avec le clavier dans la console
''' </summary>
''' Ce paramètre optionnel définie le type de donnée pris en charche, Nombre ou Texte
''' <returns>Retourne le texte taper au clavier</returns>
''' <remarks></remarks>
'''
Public Function EntrerConsole(Optional ByVal Type As String = "") As String
Dim Réponce As String = ""
Réponce = Console.ReadLine()
If LCase(Type) <> "nombre" Or LCase(Type) <> "texte" Then
ElseIf LCase(Type) = "nombre" Then
If Not IsNumeric(Réponce) Then
Réponce = "0"
End If
ElseIf LCase(Type) = "texte" Then
If IsNumeric(Réponce) Then
Réponce = ""
End If
End If
Return Réponce
End Function
''' <summary>
''' Permet d'attendre que la touche entrée soit appuiyer avent de continuer
''' </summary>
''' <remarks></remarks>
'''
Public Sub AttendreEntrerConsole()
Console.Read()
End Sub
Public Sub Ecrire(ByVal Texte As String, Optional ByVal CouleurTexte As Integer 7, Optional ByVal CouleurFondTexte As Integer 0)
If CouleurTexte < 0 Or CouleurTexte > 15 Then
CouleurTexte = 7
End If
If CouleurFondTexte < 0 Or CouleurFondTexte > 15 Then
CouleurFondTexte = 0
End If
Console.ForegroundColor = CouleurTexte
Console.BackgroundColor = CouleurFondTexte
Console.Write(Texte)
End Sub
''' <summary>
''' Permet d'aller a la ligne dans la console
''' </summary>
''' <remarks></remarks>
'''
Public Sub Alinea()
Console.WriteLine("")
End Sub
End Module
NHenry
Messages postés15102Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention27 mars 2024159 1 juin 2011 à 19:48
Bonjour,
Tout comme Renfield, l'utilité de ton code m'est difficilement perceptible.
Sinon, afin de t'aider à améliorer ton codage :
- Retire l'import de "Microsoft.VisualBasic" et actives "Option Strict" et "Option Explicit"
- Corrections :
Dim Réponce As String = ""
Évites les accents dans les noms d'élément de code (Variable, Type, Contrôles, ...).
Au passage, évite les fautes aussi énormes et mets un S à la place du C ;)
Public Function RenvoyerTitreConsole() As String
Dim titre As String
titre = Console.Title
Return titre
End Function
Pourquoi ne pas faire simplement : Return Console.Title
?
Pourquoi limiter la hauteur de la fenêtre à 83 ?
Pourquoi ne pas faire des propriétés ?
''' <summary>
''' Permet de choisir le titre de la console
''' </summary>
''' Choisisez le titre de la console et placez-le entre des guillemets, Exemple: TitreConsole("Titre de la console")
''' <remarks></remarks>
'''
Public Sub DéfinirTitreConsole(ByVal Titre As String)
Console.Title = Titre
End Sub
''' <summary>
''' Permet de renvoyer le titre de la console
''' </summary>
''' <returns>Renvoie le titre de la console</returns>
''' <remarks></remarks>
'''
Public Function RenvoyerTitreConsole() As String
Dim titre As String
titre = Console.Title
Return titre
End Function
Deviendrais :
Public Property TitreConsole () As String
Get
Return Console.Title
End Gest
Set(Byval pValue As String)
Console.Title=pValue
End Set
End Property
Est-ce que tu comprend pourquoi on ne comprend pas l'utilité de ton code ?
Dans ta fonction DéfinirTailleBufferConsole, tu utilises la fonction RenvoyerTailleConsole qui te mets des entiers dans une chaine puis que tu découpe ensuite pour revenir à des entiers, il y a pas plus simple ?
Genre mettre des paramètres de type entiers passés par référence (ByRef) ?
Toujours dans cette fonction, tu empêche de réduire la hauteur de la fenêtre, est-ce normal ?