Forum Liberty Basic France : Voir tous les messages du membre

   Le 25/03/2014 à 22h32 Subs et Snippets » Pack de fonctions texte
en fait la fonction not existe déjà j'avais oublié ! C'est drôlement pratique en vrai couplé à une la fonction empty :)

Code VB :
 
string$ = "e"
 
if not(empty(string$)) then
    print "String is not null"
 else
    print "String is null"
end if
end
 
function empty(string$)
   if (string$="NULL") or (string$="")then
        empty=1
   else
        empty=0
   end if
end function
 
 
 
 
   Le 25/03/2014 à 22h09 Annonces » Liberty 4.5
Je traînais sur le forum anglais et là je vois un message de Carl qui annonce une sortie Beta imminente de LB 4.5. Ok, c'est toujours pas la version 5 que l'on attendait mais je suis franchement impatient de voir cette nouvelle mouture après 3 ans (ou plus ?) sans MAJ. Visible ici http://libertybasic.conforums.com/index.cgi?board=general&action=display&num=1395452699
   Le 24/03/2014 à 22h16 Subs et Snippets » Pack de fonctions texte
Qui est motivé pour faire une fonction inArray et not ?
Voilà j'ai modifier le programme à ma sauce, dis moi ce que tu en penses :)

Code VB :
 
'on créer la variable string qui contient tous les caractères que l'on souhaite voir figurer dans le mot de passe et on mélange les caractères aléatoirement grâce à la fonction shuffle
stringMDP$="aàbcdeéèêfghijklnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789,;:!%*$£&"
lenStringMDP=len(stringMDP$)
modStringMDP$=STA$(strShuffle$(stringMDP$, 0))
longueur=10
 
for i=0 to longueur 'Pour générer un mdp a 8 caractères
    [regen]
    gen = rand(0,lenStringMDP) 'On genere un nombre aléatoire
    if empty(STAi$(gen))=false then
         mdp$= mdp$ + STAi$(gen)
    else
        goto [regen]
    end if
next
 
 
print "Votre mot de passe : ";chr$(13);chr$(13);mdp$;chr$(13)
input "Appuyer sur entrer pour quitter";retour
 
 
end
 
function rand(min,max)
    rand = int(rnd(1)*(max-min+1))+min
end function
 
function STA$(string$)
    GLOBAL STA
    lenS=len(string$)
    let STA=0
    redim STAi$(lenS)
 
    while (i<>lenS)
        STAi$(i)=left$(right$(string$,lenS-i),1)
        i=i+1
    wend
    STA$=STAi$
end function
 
function empty(string$)
   if (string$="NULL") or (string$="")then
        empty=1
   else
        empty=0
   end if
end function
 
function strShuffle$(string$, val)
    STA$=STA$(string$)
    lenS=len(string$)
 
    while (p<>lenS)
        rand=rand(0, lenS)
        if empty(STAi$(rand)) then
            p=p
        else
            if val=1 then
                chaine$=trim$(chaine$;STAi$(rand))
            else
                chaine$=chaine$;STAi$(rand)
            end if
            STAi$(rand)=""
            p=p+1
        end if
    wend
    strShuffle$=chaine$
end function
 
 
et la fonction que tu cherchais est celle-ci (tu peux en trouver d'autre dans mon post "Pack de fonctions textes") dans la catégorie Subs & Snippets !

Code VB :
 
string$=STA$("abcdefghijklnopqrstuvwxyz123456789")
 
while empty(STAi$(STA))=false
     print STAi$(STA)
     STA=STA+1
wend
 
function STA$(string$)
    GLOBAL STA
    lenS=len(string$)
    let STA=0
    redim STAi$(lenS)
 
    while (i<>lenS)
        STAi$(i)=left$(right$(string$,lenS-i),1)
        i=i+1
    wend
    STA$=STAi$
end function
 
function empty(string$)
   if (string$="NULL") or (string$="")then
        empty=1
   else
        empty=0
   end if
end function
 
et pour ton second problème

Code VB :
 
for i=0 to 7 'Pour générer un mdp a 8 caractères
    gen = rand(0,35) 'On genere un nombre aléatoire
    mdp$= mdp$ + tableau$(gen) 'Et on enregistre le tout dans un autre tableau, pour pouvoir l'afficher en ligne (penser à trouver une autre solution)
next
 
    print "Votre mot de passe : "
    print
    print mdp$
    print
    input "Appuyer sur entrer pour quitter";retour
 
 
Voilà qui devrait arranger les choses pour ton tableau :)

Code VB :
 
'On rentre les lettres minuscules de a à z
for valS=0 to 25 step 1
 tableau$(valS) = chr$(97+valS)
next valS
 
'On rentre les chiffre de 1 à 9
for valN=0 to 9 step 1
 tableau$(valN+ValS+1) = str$(valS)
next valN
 
 


Edit : grilled
   Le 24/03/2014 à 17h46 Général » Labyrhinte
Très belle réalisation (tout comme les tours de Hanoi) même si je n'ai pas encore eu le temps de jeter un oeil sur le code ! :)
   Le 23/03/2014 à 20h57 Débutant » Faire du réseau avec LB
regarde du côté de RunBasic ! :)
J'y compterais pas si j'étais toi, rajoute 2 ans je dirais. Depuis le temps qu'on l'attend la V5 à intérêt à dépasser toutes nos espérance, si c'est juste pour avoir des onglets. A quand un vrai IDE à la Freeform ?

 |  |

1 Utilisateur en ligne : 0 Administrateur, 0 Modérateur, 0 Membre et 1 Visiteur
Utilisateur en ligne : Aucun membre connecté