AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

  • CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 07 11 21:01:05
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

12 commentaire(s) de blq sur des sources sur tout CodeS-SourceS

Le : 30/05/2009 20:06:32
Source : GÉNÉRATEUR DE MOT DE PASSE (TRÈS SIMPLE)
Toujours pour les débutant, voici la même fonction mais avec la suppression du Select Case, trop long et peu optimisé. Cette variante utilise un alphabet et la fonction Mid$. Tout ceci peut encore être amélioré pour réduire la taille du code :

Public Function GeneratePassword(ByVal nbCharacter As Integer, ByVal nbNumber As Integer) As String
    Dim valueNumber As Integer, charLetter As String
    Dim posNumber As Integer, ct As Integer
    
    
    GeneratePassword = vbNullString
    
    If nbCharacter <= 0 And nbNumber <= 0 Then Exit Function
    
    For ct = 1 To nbCharacter
        Call Randomize
        
        charLetter = Mid$("abcdefghijklmnopqrstuvwxyz", 1 + Int(26 * Rnd), 1)
        GeneratePassword = GeneratePassword & IIf(Int(6 * Rnd) > 3, UCase$(charLetter), charLetter)
    Next ct
    
    For ct = 1 To nbNumber
        valueNumber = Int(9 * Rnd)
        
        Call Randomize
        posNumber = Int(Len(GeneratePassword) * Rnd)
        
        If posNumber >= 0 And posNumber <= Len(GeneratePassword) Then
            GeneratePassword = Left$(GeneratePassword, posNumber) & valueNumber & Right$(GeneratePassword, Len(GeneratePassword) - posNumber)
        Else
            GeneratePassword = GeneratePassword & valueNumber
        End If
    Next ct
    
    ct = Int(Len(GeneratePassword) * Rnd)
End Function

Le : 30/05/2009 19:57:32
Source : GÉNÉRATEUR DE MOT DE PASSE (TRÈS SIMPLE)
Le code est effective simple à comprendre. Il bien d'autres méthodes sur VBFrance, mais celle-ci permet à un débutant de comprendre le code. J'en profite donc pour proposer une variante, avec mise en majuscule de certaines lettres et mélange des lettres et des chiffres, toujours en utilisant la méthode Rnd.

Il s'agit d'une fonction à appeler. L'étape supplémentaire serait de supprimer la partie Select Case par un appel à la table de l'alphabet par son numéro :

Public Function GeneratePassword(ByVal nbCharacter As Integer, ByVal nbNumber As Integer) As String
    Dim valueNumber As Integer, charLetter As String
    Dim posNumber As Integer, ct As Integer
    
    
    GeneratePassword = vbNullString
    
    If nbCharacter <= 0 And nbNumber <= 0 Then Exit Function
    
    Call Randomize
    
    For ct = 1 To nbCharacter
        Select Case 1 + Int(26 * Rnd)
            Case 1
                charLetter = "a"
            Case 2
                charLetter = "b"
            Case 3
                charLetter = "c"
            Case 4
                charLetter = "d"
            Case 5
                charLetter = "e"
            Case 6
                charLetter = "f"
            Case 7
                charLetter = "g"
            Case 8
                charLetter = "h"
            Case 9
                charLetter = "i"
            Case 10
                charLetter = "j"
            Case 11
                charLetter = "k"
            Case 12
                charLetter = "l"
            Case 13
                charLetter = "m"
            Case 14
                charLetter = "n"
            Case 15
                charLetter = "o"
            Case 16
                charLetter = "p"
            Case 17
                charLetter = "q"
            Case 18
                charLetter = "r"
            Case 19
                charLetter = "s"
            Case 20
                charLetter = "t"
            Case 21
                charLetter = "u"
            Case 22
                charLetter = "v"
            Case 23
                charLetter = "w"
            Case 24
                charLetter = "x"
            Case 25
                charLetter = "y"
            Case 26
                charLetter = "z"
        End Select
        
        Call Randomize
        GeneratePassword = GeneratePassword & IIf(Int(6 * Rnd) > 3, UCase$(charLetter), charLetter)
    Next ct
    
    For ct = 1 To nbNumber
        valueNumber = Int(9 * Rnd)
        
        Call Randomize
        posNumber = Int(Len(GeneratePassword) * Rnd)
        
        If posNumber >= 0 And posNumber <= Len(GeneratePassword) Then
            GeneratePassword = Left$(GeneratePassword, posNumber) & valueNumber & Right$(GeneratePassword, Len(GeneratePassword) - posNumber)
        Else
            GeneratePassword = GeneratePassword & valueNumber
        End If
    Next ct
    
    ct = Int(Len(GeneratePassword) * Rnd)
End Function

Le : 24/04/2009 22:00:30
Source : ASP.NET - CONNAITRE LA LISTE DES PARAMETRES TRANSFERTS AU SERVEUR WEB
merci pour ce petit code. Trés instructif pour un débutant de moins d'une heure comme moi...

Le : 16/02/2009 21:52:14
Source : MÉTÉO
Ce code ne fonctionne pas ou plus, c'est devenu un lien commercial sur le site météo direct...

Le : 14/11/2007 21:18:58
Source : DIFFÉRENCE ENTRE DEUX HEURES DE FORMAT HH:MM:SS
Je vous l'accorde c'est un peu nul... J'ai du poster le code, un soir tard et fatigué ! Je met à jour le tout

Le : 01/08/2007 14:17:20
Source : RÉCUPÉRATION D'INFORMATIONS SUR LES FICHIERS
Fonctionne trés bien. Source accessible à tous.

Le : 01/08/2007 11:51:48
Source : FILE INFO
Bonjour,

Je viens de lire le code et les différents commentaires. A priori vous savez de quoi vous parlez. Alors j'ai essayé les 2 versions de code.

Le premier semble ne pas récupérer les infos sur les fichiers .exe, mais j'avoue ne pas avoir rechercher pourquoi.

Sur le second, il y a la déclartion VS_FIXEDFILEINFO. Quézako ?

Merci d'avance de vos réponses.

Le : 06/03/2007 23:07:56
Source : CALCUL MONTANT HT, TVA ET TTC EN EURO ET FRANC INSTANTANEMENT
Simple et efficace. Bravo !

Le : 16/05/2004 21:01:27
Source : CONVERSION DE CODES RTF VERS HTML
Pour obtenir des infos sur le codage RTF, il faut fouiller sur le site de Microsoft. Il y avait en détail les specs RTF et la corresondance de chaque code. Je n'ai plus le lien. Mon code est trop vieux (2000/2001) pour que je me souvienne du lien chez MS.

Le : 19/02/2004 10:23:44
Source : CONVERSION DE CODES RTF VERS HTML
Le code donné est assez vieux... ilmeriterait tout simplement d'être supprimé et, du coup, la fonction sChangeCaractere() n'a pu d'intéret avec VB6. Il suffit de remplacer sChangeCaractere par la function standard Replace de VB. Cela fait la même chose !
Le code de sChangeCaractere() est présent dans la liste des sources que j'ai du mettre en ligne, mais c'est juste pour la curiosité, car Replace() est bien plus efficace et simple d'utilisation.

Pour les variables manquantes, il s'agit juste de les remplacer le code hTML equivalent:

cconst cPARAG_HTML = "&lt;P&gt;"
cconst cPARAGf_HTML = "&lt;/P&gt;"
cconst cLIGNE_HTML = "&lt;BR&gt;"
... etc.

Aujourd'hui je crois que ce type de code est vraiment obsolète...


1


Nos sponsors

Sondage...

CalendriCode

Juillet 2009
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
2728293031  

Consulter la suite du CalendriCode

Appels d'offres

Comparez les prix Nouvelle version


HTC G1
Entre 449€ et 449€


Visiter le guide achat

Photothèque Nouveau !

Photo sitges beachPhoto femme, plage, bien être, soleil, vacances, été, détente, repos
Photo alphabet langue des sourdsPhoto handsome man

Visiter la photothèque


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,140 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.