generateur de nom

Version imprimable

18/10/2013, 21h29
firenze

generateur de nom

Bonjour je découvre visual basic j'ai deja cree un petit programme (un player radio)
mon nouveau projet serait un générateur de nom mais je ne sait pas par ou commencé si vous pourriez me guide vairs des lien de tuto si cela ne vous dérange pas bien sur:calim2:

merci d'avance et bonne programmation a tous :lol:

Bonsoir firenze,

Pourrais-tu être plus précis quant au domaine de ton projet exactement stp car générateur de nom c'est assez vaste ??

Voilà un générateur de chaîne de caractères comme moi je le comprends :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Public Class Form1
 
    'Caractères utilisés pour la génération de la chaine de sortie
    Private Shared letters$ = "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz"
    'Déclaration d'une variable rnd de type Random
    Private Shared rnd As Random
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'Instanciation de l'objet rnd depuis la classe Random qui permet de générer un nombre aléatoire
        rnd = New Random()
        'Appel de la fonction GenerateName avec pour argument 8 qui est le nombre maximum de caractères à générer. Puis affichage du résultat dans MsgBox
        MsgBox("Ceci est une génération de nom qui totalise 8 caractères : " & GenerateName(8))
    End Sub
 
    Public Shared Function GenerateName(length%) As String
        Dim buffer As Char() = New Char(length - 1) {}
        For i As Integer = 0 To length - 1
            buffer(i) = letters(rnd.Next(letters.Length))
        Next
        Return New String(buffer)
    End Function
 
End class

Ta question concerne-t-elle ce type de domaine ??

19/10/2013, 13h27
firenze

Merci de votre réponse étant écrivain je recherche a faire mon propre générateur de nom tel que celui de gunof.net :calim2:

voila:ccool:
19/10/2013, 16h40
firenze

voici la forme de mon projet

http://img11.hostingpics.net/pics/933570generateur.png

generateur de nom

Bonsoir pour mon générateur de nom j'ai copier un générateur de mot de passe que j'ai transformer se que je voudrais savoir c'est si je peut séparé mes préfixe et mes suffixe pour le le générateur prenne q'un suffixe et qu'un prefixe merci

voici mon code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
option Strict Off
Option Explicit On
Friend Class Form1
    Inherits System.Windows.Forms.Form
    Dim a As Short
    Dim pass As String
    Dim charactere(35) As String
 
    Private Sub Form1_Load(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles MyBase.Load
        charactere(0) = "acantho"
        charactere(1) = "actino"
        charactere(2) = "chromat"
        charactere(3) = "crypt"
        charactere(4) = "arque"
        charactere(5) = "tomie"
        charactere(6) = "pède"
        charactere(7) = "vore"
        charactere(8) = "fique"
        charactere(9) = "xylo"
        charactere(10) = "ad"
        charactere(11) = "mo"
        charactere(12) = "dactyle"
        charactere(13) = "èdre"
        charactere(14) = "orme"
        charactere(15) = "feuille"
        charactere(16) = "gland"
        charactere(17) = "saule"
        charactere(18) = "jeune"
        charactere(19) = "myst"
        charactere(20) = "celt"
        charactere(21) = "thèque"
        charactere(22) = "philo"
        charactere(23) = "herb"
        charactere(24) = "carni"
        charactere(25) = "proto"
        charactere(26) = "mop"
        charactere(27) = "hu"
        charactere(28) = "hemi"
        charactere(29) = "artério"
        charactere(30) = "leuco"
        charactere(31) = "mném"
        charactere(32) = "mythe"
        charactere(33) = "phén"
        charactere(34) = "plouto"
        charactere(35) = "sphéno"
 
    End Sub
 
    Private Sub generate_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles button1.Click
        Randomize()
        pass = ""
        a = 0
        While (a <= 1)
            pass = pass & charactere(CShort(Rnd() * 35))
            a = a + 1
        End While
        textbox1.Text = pass
        My.Computer.Clipboard.Clear()
        My.Computer.Clipboard.SetText(textbox1.Text)
    End Sub
End Class

bonjour

Si tu es friand d'un generateur random de noms - meme english (manie anglaise de donner des noms versus biblique) - en voici un gratuit...
Son auteur en a fait une lib.dll...
Sa lib permet soit
1/de recuperer un list de FirstName&LastName (male,female)
2/de generer un firstname ou un lastname en vol...

Ses listes de nom proviennent de l' U.S. Census Gov(donnees publiques)...
C'est deplorable que l'Insee qui dispose des memes data pour la France trouve le moyen de les ....vendre...
Typique de l'administration d'esprit latine et son travers pour se constituer des monopoles...

lien due blog post dl'auteur de la lib(ou tu trouveras la lib dans un zip telechargeable):
http://www.markdavidrogers.com/oxite...or-net-library

exemple de code d'utilisation dans un projet apres avoir ajoute une reference au fichier RandomNameGenerator.dll:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Imports RandomNameGenerator Public Class frmTestRanGenLib Private rndg As PersonNameGenerator = New PersonNameGenerator() Private Sub btnListNames_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnListNames.Click ListBox1.DataSource = rndg.GenerateMultipleMaleFirstAndLastNames(10) ListBox2.DataSource = rndg.GenerateMultipleFemaleFirstAndLastNames(10) End Sub Private Sub btnFirstName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFirstName.Click TextBox1.Text = rndg.GenerateRandomFirstName() End Sub Private Sub btnLastName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLastName.Click TextBox2.Text = rndg.GenerateRandomLastName() End Sub End Class
Les listes de noms de sa lib sont elles memes crees à partir des donnees publiques du Census US telechargeable ici (globale ou par etat) sur ce lien :
http://www.google.fr/url?q=http://ww...n6SQlYD1_6N71w

Maintenant si tu veux creer ton propre generator tu as les listes d'origine en format csv et il suffit de lire le fichier par exmple yob2012.txt (ci-joint en partie vu la taille limitee à 64 k dans le forum,taille reelle 220 k ).
Pour mieux corser ce fichier
-sera ajoute au projet exemple
-pointe toi ensuite sur le fichier yob2012.txt ->proprietes->generation tu mets Ressource incorporée
-il sera inclus dans ton exe....et voila.
code exemple :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 Public Class frmMonGenerateurNom 'à declarer en portee du class form Private rndName As Random = New Random Private Sub btnGenName_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGenName.Click Dim strFichier As String = My.Resources.yob2012 Dim MaListeNoms As List(Of String) = ParseFileTextResource(strFichier) 'liste est copie dans tableau lines Dim lines() As String = MaListeNoms.ToArray() 'cree un indice au hasard entre 1er nom et dernier nom du tableau lines Dim index As Integer = rndName.Next(0, lines.GetUpperBound(0) - 1) TextBox1.Text = lines(index) End Sub Private Function ParseFileTextResource(ByVal str As String) As List(Of String) Dim tempListe As New List(Of String) 'recupere tableau des lignes (separees par retour chariot) Dim lines() As String = str.Split(Environment.NewLine) 'dans chaque ligne recupere le 1er string (index zero) suivi d'une virgule For Each line As String In lines Dim nom As String = line.Split(",")(0) tempListe.Add(nom) Next Return tempListe End Function End Class
Bon code ...et oublies les scribes latins.....

20/10/2013, 13h03
firenze

Merci beaucoup pour ta réponse qui m'aide beaucoup