cs_Ouneufe
Messages postés60Date d'inscriptionmardi 4 septembre 2001StatutMembreDernière intervention19 janvier 2009 4 janv. 2003 à 02:11
c'est juste une démo des fonctions vb, c tout, pour les very débutants
Vbsupernul
Messages postés287Date d'inscriptionvendredi 25 octobre 2002StatutMembreDernière intervention18 janvier 2004 26 nov. 2002 à 12:47
merci 6Po et KaViDee (à vrai dire j'ai pas compris grand chose, mais bon, c'est tjrs ça...)
cs_6Po
Messages postés105Date d'inscriptionjeudi 16 mai 2002StatutMembreDernière intervention22 janvier 2009 26 nov. 2002 à 10:33
Pour vbsupernul,
Dim chaine As String
chaine = "abc"
chaine = lcase(chaine) 'Tous en minuscule --- CF. plus bas !
For i = 1 To Len(chaine)
'asc donne la valeur ASCII d'un char
'si tu fais ALT + no (avec les chiffres de droites) ca te donne le dit char
'donc asc("a") = 97 donc si on fait un "a à z" - 97 on va trouve des valeurs entre 0 et 25
'attention ! A 65 et a 97 donc il faut tout mettre en majuscule ou en minuscule
MsgBox Asc(Mid(chaine, i, 1)) - 97
Next i
KaViDee
Messages postés262Date d'inscriptiondimanche 1 septembre 2002StatutMembreDernière intervention18 juin 2008 25 nov. 2002 à 21:00
Pour te donner un exemple concret, tu met un CommandButton(Command1) et une ListBox(List1) et tu met ce code :
Private Sub Command1_Click()
Dim Texte
Texte = "abcdefghijklmnopqrstuvwxyz"
For i = 1 To Len(Texte)
List1.AddItem (Mid(Texte, i, 1)) & " - " & i - 1
Next i
End Sub
Et puis après t'es pas obligé de mettre des ListBox, c juste pour l'exemple !
Voila, j'espère que c'est ça que tu voulais :-)
@+
Vbsupernul
Messages postés287Date d'inscriptionvendredi 25 octobre 2002StatutMembreDernière intervention18 janvier 2004 25 nov. 2002 à 19:35
Et t'aurais pas un truc pour remplacer a par 0, b par 1, c par 2 et ainsi de suite?
KaViDee
Messages postés262Date d'inscriptiondimanche 1 septembre 2002StatutMembreDernière intervention18 juin 2008 25 nov. 2002 à 17:36
Ah oui je tiens à préciser que c un prog fait pour vos programme, c très utile pour le cryptage etc ....
Donc le prog n'a pas directement d'interet en lui meme
Vbsupernul
Messages postés287Date d'inscriptionvendredi 25 octobre 2002StatutMembreDernière intervention18 janvier 2004 25 nov. 2002 à 09:03
dsl, j'ai rien dit, c'était juste que j'ai fait 2 fois la même fonction.
On peut pas changer sa note??????
10/10
Vbsupernul
Messages postés287Date d'inscriptionvendredi 25 octobre 2002StatutMembreDernière intervention18 janvier 2004 25 nov. 2002 à 09:01
Bon, j'explik:
supposons que dans la zone (le textbox) où tu entres ton texte, tu mettes " kavidee ", et tu utilises la fonction qui enlève les espaces, dans le dauxième textbox, tu as "kavidee".
Si après, tu enlèves le " kavidee " en haut, tu mets par exemple "vIVE VB" et que tu utilises la fonction qui met tout en minuscules sauf la 1ere lettre, la zone où il y a le "kavidee" sans les espaces ne change pas...
PS: de rien pour le 9, ça les vaut...
alex1er
Messages postés39Date d'inscriptionjeudi 11 avril 2002StatutMembreDernière intervention 5 juin 2006 25 nov. 2002 à 08:42
Quel est l'interet de ce que tu as codé?
Ca aurait valut le coup si tu en avais fait une DLL.
@+
KaViDee
Messages postés262Date d'inscriptiondimanche 1 septembre 2002StatutMembreDernière intervention18 juin 2008 24 nov. 2002 à 19:13
Je comprends pas ça :
"mais dommage que quand le résultat est plein, on peut rien faire"
Explique STP
@+
PS: Merci pour le 9 :-)
Vbsupernul
Messages postés287Date d'inscriptionvendredi 25 octobre 2002StatutMembreDernière intervention18 janvier 2004 24 nov. 2002 à 18:42
Super, mais dommage que quand le résultat est plein, on peut rien faire, ou en tout cas ça chang pas.
Je mets quand même un beau 9/10
4 janv. 2003 à 02:11
26 nov. 2002 à 12:47
26 nov. 2002 à 10:33
Dim chaine As String
chaine = "abc"
chaine = lcase(chaine) 'Tous en minuscule --- CF. plus bas !
For i = 1 To Len(chaine)
'asc donne la valeur ASCII d'un char
'si tu fais ALT + no (avec les chiffres de droites) ca te donne le dit char
'donc asc("a") = 97 donc si on fait un "a à z" - 97 on va trouve des valeurs entre 0 et 25
'attention ! A 65 et a 97 donc il faut tout mettre en majuscule ou en minuscule
MsgBox Asc(Mid(chaine, i, 1)) - 97
Next i
25 nov. 2002 à 21:00
Private Sub Command1_Click()
Dim Texte
Texte = "abcdefghijklmnopqrstuvwxyz"
For i = 1 To Len(Texte)
List1.AddItem (Mid(Texte, i, 1)) & " - " & i - 1
Next i
End Sub
Et puis après t'es pas obligé de mettre des ListBox, c juste pour l'exemple !
Voila, j'espère que c'est ça que tu voulais :-)
@+
25 nov. 2002 à 19:35
25 nov. 2002 à 17:36
Donc le prog n'a pas directement d'interet en lui meme
25 nov. 2002 à 09:03
On peut pas changer sa note??????
10/10
25 nov. 2002 à 09:01
supposons que dans la zone (le textbox) où tu entres ton texte, tu mettes " kavidee ", et tu utilises la fonction qui enlève les espaces, dans le dauxième textbox, tu as "kavidee".
Si après, tu enlèves le " kavidee " en haut, tu mets par exemple "vIVE VB" et que tu utilises la fonction qui met tout en minuscules sauf la 1ere lettre, la zone où il y a le "kavidee" sans les espaces ne change pas...
PS: de rien pour le 9, ça les vaut...
25 nov. 2002 à 08:42
Ca aurait valut le coup si tu en avais fait une DLL.
@+
24 nov. 2002 à 19:13
"mais dommage que quand le résultat est plein, on peut rien faire"
Explique STP
@+
PS: Merci pour le 9 :-)
24 nov. 2002 à 18:42
Je mets quand même un beau 9/10