DeAtHCrAsH
Messages postés2670Date d'inscriptionvendredi 25 janvier 2002StatutMembreDernière intervention 6 février 2013
-
26 mai 2002 à 00:05
joblak
Messages postés10Date d'inscriptionmercredi 26 mars 2003StatutMembreDernière intervention16 juin 2007
-
20 janv. 2005 à 01:24
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
joblak
Messages postés10Date d'inscriptionmercredi 26 mars 2003StatutMembreDernière intervention16 juin 2007 20 janv. 2005 à 01:24
Salut la mouche.
Ton idée est sympa mais bon.... Faut quand même pas exagérer...
Numéro, c'est masculin. Et bancaire ne s'écrit pas avec un Q. Il y a en tout et pour tout 7 mots en français dans ton code, et tu as fait 3 fautes... Même si on n'est pas à l'école, on n'est pas non plus des demeurés !
Merci d'avance.
Et en passant... L'économie de mémoire tu connais ?
Allez... désolé si je me suis montré un peu critique, mais là, c'est vraiment trop...
Voici ma version de ton code (excuse moi d'avance) :
Private Sub Command1_Click()
Dim Tab1(1 To 16) As Integer, nb As Integer, k As Long
If Text1 = "" Or Len(Text1) < 16 Then
MsgBox "Veuillez entrer un numéro de carte (16 chiffres) !!", vbExclamation, "Erreur :"
Exit Sub
End If
For k = 1 To 16
Tab1(k) = Mid$(Text1, k, 1)
Next k
For k = 1 To 15 Step 2
If Tab1(k) * 2 > 9 Then Tab1(k) (Tab1(k) * 2) - 9 Else Tab1(k) Tab1(k) * 2
nb = nb + Tab1(k) + Tab1(k + 1)
Next k
For k = 10 To 150 Step 10
If nb = k Then
MsgBox "Numéro correct (" & nb & ")", vbInformation, "Correct !"
Exit Sub
End If
Next k
louisvbfrance
Messages postés31Date d'inscriptiondimanche 4 mai 2003StatutMembreDernière intervention12 mars 2009 16 mai 2003 à 00:22
Carrément utile dans le cas d'un site payant !
Juste pour Khalilo et pour le fun, j'ai essayé de faire plus court en me basant sur ton code, une fonction qui renvoie Vrai si c'est une CB OK :
Public Function NumValid(ByVal Numéro As String) As Boolean
Dim i, num As Double
For i = 1 To 16
num = num + (((Val(Mid(Numéro, i, 1)) * (((i) Mod 2) + 1)) - 1) Mod 9) + 1
Next
NumValid ((num Mod 10) 0) And (num>= 10) And (num<= 150)
End Function
cs_thebigbang
Messages postés196Date d'inscriptionvendredi 21 décembre 2001StatutMembreDernière intervention25 juillet 2006 26 mai 2002 à 18:43
====================== AVIS A TOUS ========================
Si vous voulez un générateur infini de numéro de cartes bancaires, mailez moi : bigbang44@free.fr mais merci de mettre "gencb" en sujet ...
LaMoUcHe2002
Messages postés37Date d'inscriptionsamedi 4 mai 2002StatutMembreDernière intervention13 mars 2003 26 mai 2002 à 16:21
Ok,,, c'est vrai,,,que ça réduit un peu,, mais j'ai fait le code assez vite,,,ce pour ca...@++
cs_khalilo
Messages postés71Date d'inscriptionjeudi 17 janvier 2002StatutMembreDernière intervention12 mai 2004 26 mai 2002 à 12:50
g fait une faute dans le "if" il faut mettre nb < 151.
sinon c terrible non?
@+
khaliloo Le Pyroman
cs_khalilo
Messages postés71Date d'inscriptionjeudi 17 janvier 2002StatutMembreDernière intervention12 mai 2004 26 mai 2002 à 12:48
bon code mais tu pourrais abréger la fin :
If int(nb/10)= nb/10 and nb < 149 and nb > 9 then
MsgBox "Le numéro est correct !! " & nb, vbInformation, "Correct :"
else
MsgBox "Le numéro est incorrect !! " & nb, vbInformation, "Incorrect :"
End If
C'est moins long quand même non !!!!!!!!!!
Bonne prog
@+
cs_kud
Messages postés23Date d'inscriptiondimanche 3 février 2002StatutMembreDernière intervention23 novembre 2002 26 mai 2002 à 03:33
Enfin un code utile...;-)
Bon eeeeeeeee tu veut faire partie de mon équipe death_crash?
Va voir je t écri un mail;-)
LaMoUcHe2002
Messages postés37Date d'inscriptionsamedi 4 mai 2002StatutMembreDernière intervention13 mars 2003 26 mai 2002 à 00:22
Ce bon DeAtH_-_CrAsH ,,ya les fichier vbp et frm,,,,j'avais fais un gaffe ce tout :))))))
LaMoUcHe2002
Messages postés37Date d'inscriptionsamedi 4 mai 2002StatutMembreDernière intervention13 mars 2003 26 mai 2002 à 00:22
Ce bon DeAtH_-_CrAsH ,,ya les fichier vbp et frm,,,,j'avais fais un gaffe ce tout :))))))
cs_koko
Messages postés654Date d'inscriptionlundi 14 janvier 2002StatutMembreDernière intervention20 février 2005 26 mai 2002 à 00:21
Je vois pas ce qu'il y a de mal... tout les fichiers sont dans le zip...
DeAtHCrAsH
Messages postés2670Date d'inscriptionvendredi 25 janvier 2002StatutMembreDernière intervention 6 février 2013 26 mai 2002 à 00:05
Mdrrrrrrrrr ....
Soit t'es un escroc de premiere et l'executable est une connerie style trojan soit t'as oublié les fichiers vbp et frm ....
Je pense plutot a la premiere solution....
AVIS : N'EXECUTER PAS CE PROGRAMME .... CA DOIT ETRE UN ATTRAPE NIGOT !
1/10 pour la peine ... et encore t'as de la chance qu'on ne puisse pas mettre des notes negatifs lol....
20 janv. 2005 à 01:24
Ton idée est sympa mais bon.... Faut quand même pas exagérer...
Numéro, c'est masculin. Et bancaire ne s'écrit pas avec un Q. Il y a en tout et pour tout 7 mots en français dans ton code, et tu as fait 3 fautes... Même si on n'est pas à l'école, on n'est pas non plus des demeurés !
Merci d'avance.
Et en passant... L'économie de mémoire tu connais ?
Allez... désolé si je me suis montré un peu critique, mais là, c'est vraiment trop...
Voici ma version de ton code (excuse moi d'avance) :
Private Sub Command1_Click()
Dim Tab1(1 To 16) As Integer, nb As Integer, k As Long
If Text1 = "" Or Len(Text1) < 16 Then
MsgBox "Veuillez entrer un numéro de carte (16 chiffres) !!", vbExclamation, "Erreur :"
Exit Sub
End If
For k = 1 To 16
Tab1(k) = Mid$(Text1, k, 1)
Next k
For k = 1 To 15 Step 2
If Tab1(k) * 2 > 9 Then Tab1(k) (Tab1(k) * 2) - 9 Else Tab1(k) Tab1(k) * 2
nb = nb + Tab1(k) + Tab1(k + 1)
Next k
For k = 10 To 150 Step 10
If nb = k Then
MsgBox "Numéro correct (" & nb & ")", vbInformation, "Correct !"
Exit Sub
End If
Next k
MsgBox "Numéro incorrect (" & nb & ")", vbInformation, "Incorrect !"
End Sub
16 mai 2003 à 00:22
Juste pour Khalilo et pour le fun, j'ai essayé de faire plus court en me basant sur ton code, une fonction qui renvoie Vrai si c'est une CB OK :
Public Function NumValid(ByVal Numéro As String) As Boolean
Dim i, num As Double
For i = 1 To 16
num = num + (((Val(Mid(Numéro, i, 1)) * (((i) Mod 2) + 1)) - 1) Mod 9) + 1
Next
NumValid ((num Mod 10) 0) And (num>= 10) And (num<= 150)
End Function
26 mai 2002 à 18:43
Si vous voulez un générateur infini de numéro de cartes bancaires, mailez moi : bigbang44@free.fr mais merci de mettre "gencb" en sujet ...
A++
bigbang
bigbang44@free.fr
http://bigbang44.free.fr
======================================================================
26 mai 2002 à 16:21
26 mai 2002 à 12:50
sinon c terrible non?
@+
khaliloo Le Pyroman
26 mai 2002 à 12:48
If int(nb/10)= nb/10 and nb < 149 and nb > 9 then
MsgBox "Le numéro est correct !! " & nb, vbInformation, "Correct :"
else
MsgBox "Le numéro est incorrect !! " & nb, vbInformation, "Incorrect :"
End If
C'est moins long quand même non !!!!!!!!!!
Bonne prog
@+
26 mai 2002 à 03:33
Bon eeeeeeeee tu veut faire partie de mon équipe death_crash?
Va voir je t écri un mail;-)
26 mai 2002 à 00:22
26 mai 2002 à 00:22
26 mai 2002 à 00:21
26 mai 2002 à 00:05
Soit t'es un escroc de premiere et l'executable est une connerie style trojan soit t'as oublié les fichiers vbp et frm ....
Je pense plutot a la premiere solution....
AVIS : N'EXECUTER PAS CE PROGRAMME .... CA DOIT ETRE UN ATTRAPE NIGOT !
1/10 pour la peine ... et encore t'as de la chance qu'on ne puisse pas mettre des notes negatifs lol....
Bonne prog quand meme ...
A+++
DeAtH_-_CrAsH :]