cs_dayvid
Messages postés212Date d'inscriptionmardi 18 janvier 2011StatutMembreDernière intervention12 février 2013
-
20 déc. 2012 à 14:32
cs_dayvid
Messages postés212Date d'inscriptionmardi 18 janvier 2011StatutMembreDernière intervention12 février 2013
-
20 déc. 2012 à 15:55
Salut,
Je suis nouveau et débute tout juste dans VB (oui oui)
Bon, je souhaiterais savoir:
Bin, les bases quoi, pour le moment je cherche à savoir c'est quoi un module, une classe, etc.
Je suis perdu , j'ai un peut de connaissance en programmation (PureBasic) et je souhaite changer et apprendre autre chose car je suis limité dans PB , et VB me semble vraiment pas mal du tout , ont peut faire beaucoup de choses et personnaliser tout nos contrôles, se que en PB est très difficilement réalisable
Bon, j'ai juste besoin de savoir c'est quoi un module, une classe et comment ça s'utiliser
Ouais ouais, je sais pas c'est quoi toutes ses choses là...
Par exemple j'ai crée des Sub et Functions pour la console:
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
Return ""
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
Return ""
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
Return ""
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 renvoyer la position horizontale du curseur dans la console
''' </summary>
''' <remarks></remarks>
'''
Public Function RenvoyerPositionHorizontaleCursseurConsole()
Return Console.CursorLeft
End Function
''' <summary>
''' Permet de renvoyer la position verticale du curseur dans la console
''' </summary>
''' <remarks></remarks>
'''
Public Function RenvoyerPositionVerticaleCursseurConsole()
Return Console.CursorTop
End Function
''' <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
Return ""
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
''' <summary>
''' Ceci permet de d'écrire du texte dans la console
''' </summary>
''' Ce paramètre définie le texte à écrire ddans la console
''' Ce paramètre optionnel définie la future couleur du texte dans la console
''' Ce paramètre optionnel définie la future couleur de font du texte dans la console
''' <remarks></remarks>
'''
Public Sub Ecrire(ByVal Texte As String, Optional ByVal Alinea As Integer 0, 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
If Alinea = 0 Then
Console.Write(Texte)
Else
Console.WriteLine("")
End If
End Sub
''' <summary>
''' Permet d'aller a la ligne dans la console
''' </summary>
''' <remarks></remarks>
'''
Public Sub Alinea()
Console.WriteLine("")
End Sub
End Module
Je voudrait l'inclure dans mon projet, par exemple j'ai deux fichier, un générale ou je vais appeler les Sub et Function crée précédemment et un vous l'aurez deviner, ou j'ai mes Sub et Functions (je sais je me répète )
Voilà, merci à vous pour votre infinie miséricorde et votre bonté
cs_dayvid
Messages postés212Date d'inscriptionmardi 18 janvier 2011StatutMembreDernière intervention12 février 20131 20 déc. 2012 à 15:55
Désoler mais malgré que j'ai lue une partie, toujours pas piger comment on fais
Je sais que je dois crée un module, puis y mettre mon code (les Sub et Function de la console)
Mais après je fais quoi, comment je fais pour les utiliser dans d'autres fichier
