[..] Random voyelles ou consonnes

[tomasomalley]

hello les amis, malgré une recherche sur les forums, j'ai rien vu qui semblait convenir à ce que je cherche/
Je souhaite faire un random de lettres (jusque là c'est OK)
mais je ne souhaite faire ce random que sur les voyelles
et même chose, que sur les consonnes....

[Uranium]

Tu peux créer une array voyelle et une consonne et faire ton random
Ex

Code : Tout sélectionner

:
$consomme[21] = ['b','c',...]
$random = Random(0,20,1)
Msgbox(0,'',$comsonne[$random])

[SurPriseS]

Une solution :
Tu créer 2 tableau, un avec les voyelles, et l'autre les consonnes, et tu fait un random dedans...

Genre :
A = 1 , E = 2 , I = 3....

Mais y'a peut être d'autre solution !

> Edit : Je suis trop lent

[Uranium]

 Edit : Je suis trop lent :o

Gniak Gniak

[silvere]

Code : Tout sélectionner

MsgBox(0,"","Voyelles aleatoire : " & RandomVoyelles() & @CRLF & "Consonne aleatoire : " & RandomConsonne())
Func RandomVoyelles($Min = 0, $Max = 5)
    If $Min < 0 Or $Max > 5 Then SetError(1)
    Local $Voyelles[6] = ["a","e","i","o","u","y"]
    Return $Voyelles[Random($Min, $Max)]
EndFunc   ;==>RandomVoyelles

Func RandomConsonne($Min = 0, $Max = 19)
 If $Min < 0 Or $Max > 19 Then SetError(1)
Local $Consonne[20] = ["b","c","d","f","g","h","j","k","l","m","n","p","q","r","s","t","v","w","x","z"]
    Return $Consonne[Random($Min, $Max)]
EndFunc  ;==>RandomConsonne
 

[TT22]

Ou alors tu fais d'un manière très compliquée

► Afficher le texte

Code : Tout sélectionner

MsgBox(64,"Info","Tirage d'une lettre : "&_RandomLetter(0))
MsgBox(64,"Info","Tirage d'une voyelle : "&_RandomLetter(1))
MsgBox(64,"Info","Tirage d'une consonne : "&_RandomLetter(2))

#cs
   $Type : 0 pour tirer toutes les lettres.
           1 pour tirer une voyelle.
           2 pour tirer une consonne.
#ce
Func _RandomLetter($Type = 0)
    Dim $Alpha[26] = ["a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z"];Alphabet.
    Dim $VoyellePos[6] = [0,4,8,14,20,24];Position des voyelles dans $Alpha[].
    If ($Type = 0) Then
        Return $Alpha[Random(0,25,1)];Donne une lettre au hasard.
    ElseIf ($Type = 1) Then
        $Voyelle = False
        While (Not $Voyelle);Cherche une voyelle.
            $ReturnValue = Random(0,25,1)
            For $i = 0 To 5 Step 1
                If ($ReturnValue = $VoyellePos[$i]) Then
                    $Voyelle = True
                    ExitLoop
                EndIf
            Next
        WEnd
        Return $Alpha[$ReturnValue]
    ElseIf ($Type = 2) Then
        While (True)
            $ReturnValue = Random(0,25,1)
            $Voyelle = False
            For $i = 0 To 5 Step 1
                If ($ReturnValue = $VoyellePos[$i]) Then
                    $Voyelle = True
                EndIf
            Next
            If (Not $Voyelle) Then
                Return $Alpha[$ReturnValue]
            EndIf
        WEnd
    Else
        Return 0
    EndIf
EndFunc

[blacksoul305]

Salut, je m'appelle TT22 et je suis parfait quand il s'agit de faire compliqué !

[silvere]

La j’avoue que ... ta fait assez compliquer pour simple regarde mon poste d'avant

[TT22]

Salut, je m'appelle TT22 et je suis parfait quand il s'agit de faire compliqué !

La j’avoue que ... ta fait assez compliquer pour simple regarde mon poste d'avant

Ça fait de la pratique des Arrays, des boucles, des conditions, des fonctions !
Ça ne peut pas faire de mal

Par contre, c'est mikell qui va pas être content

[mikell]

Niet, sur ce coup je fais honneur à ma signature

Code : Tout sélectionner

$string = "aeiouybcdfghjklmnpqrstwxz"
$lettres  = StringSplit($string, "")
Msgbox(0,"", $lettres[Random(1, 6, 1)] & "  " & $lettres[Random(7, $lettres[0], 1)] )

[blacksoul305]

Mikell vous a tous mangé avec vos tableaux à deux francs cinquante et 30 lignes...

[mikell]

black sérieux, tu es dur là
Les script précédents sont valables et propres, et j'aurais fermé ma grande g... si TwentyToo ne m'avait pas interpellé

Par contre, c'est mikell qui va pas être content

[blacksoul305]

Je plaisantais n'est-ce pas ?

[silvere]

j'ai mis au moins 10 minutes avant de trouver qui était TwentyToo

[blacksoul305]

Décidément, on peut rien faire de nous quatre... (Mikell, TT22, silvere et moi)

[tomasomalley]

merci à tous, waouh !!
que de pistes, je crois que c'est Mikell qui l'emporte !!
merci à vous tous .....

[TT22]

Si ton sujet est résolu, met la balise [R] dans ton titre

[TommyDDR]

Dans le titre du 1er message évidemment.

[TT22]

Ha oui, j'avais pas vu qu'il l'avais mis dans le dernier

[silvere]

C'est pas forcement le plus petit scripte le mieux.
(Paroles de perdant)