POUR VERIFIER LES NUMEROS DE CARTE BANCAIRE
yoman64
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
-
6 juin 2002 à 17:58
c00ol Messages postés 40 Date d'inscription dimanche 22 décembre 2002 Statut Membre Dernière intervention 9 septembre 2007 - 27 nov. 2003 à 19:05
c00ol Messages postés 40 Date d'inscription dimanche 22 décembre 2002 Statut Membre Dernière intervention 9 septembre 2007 - 27 nov. 2003 à 19:05
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/3534-pour-verifier-les-numeros-de-carte-bancaire
https://codes-sources.commentcamarche.net/source/3534-pour-verifier-les-numeros-de-carte-bancaire
27 nov. 2003 à 19:05
7 juin 2002 à 22:33
A++
bigbang
bigbang44@free.fr
7 juin 2002 à 10:23
/** POUR VB .NET **/
Private Function verifcode(ByVal numCB As String) As Boolean
Dim result As Boolean
result = False
If numCB.Length = 16 Then
Dim nb1 As Integer
Dim nb2 As Integer
Dim tmp As Integer
nb1 = 0
nb2 = 0
For cnt = 1 To 16
tmp = CInt(Val(Mid$(numCB, cnt, 1)))
If ((cnt - 1) Mod 2) = 0 Then
If (tmp * 2) > 9 Then
nb1 = nb1 + 1 + ((tmp * 2) - 10)
Else
nb1 = nb1 + (tmp * 2)
End If
Else
nb2 = nb2 + tmp
End If
Next cnt
If Not ((nb1 + nb2) 0) And ((nb1 + nb2) Mod 10) 0 Then
result = True
End If
Catch e As Exception
End Try
End If
verifcode = result
End Function
/** POUR VB 6 **/
Private Function verifcode(ByVal numCB As String) As Boolean
Dim result As Boolean
result = False
If Len(numCB) = 16 Then
Dim nb1 As Integer
Dim nb2 As Integer
Dim tmp As Integer
nb1 = 0
nb2 = 0
For cnt = 1 To 16
tmp = CInt(Val(Mid$(numCB, cnt, 1)))
If ((cnt - 1) Mod 2) = 0 Then
If (tmp * 2) > 9 Then
nb1 = nb1 + 1 + ((tmp * 2) - 10)
Else
nb1 = nb1 + (tmp * 2)
End If
Else
nb2 = nb2 + tmp
End If
Next cnt
If Not ((nb1 + nb2) 0) And ((nb1 + nb2) Mod 10) 0 Then
result = True
End If
End If
verifcode = result
End Function
7 juin 2002 à 08:48
Merci
7 juin 2002 à 08:01
Private Sub Text1_Change()
If Len(Text1.Text) = 4 Then Text2.SetFocus
End Sub
Private Sub Text2_Change()
If Len(Text2.Text) = 4 Then Text3.SetFocus
If Len(Text2.Text) = 0 Then Text1.SetFocus
End Sub
Private Sub Text3_Change()
If Len(Text3.Text) = 4 Then Text4.SetFocus
If Len(Text3.Text) = 0 Then Text2.SetFocus
End Sub
Private Sub Text4_Change()
If Len(Text4.Text) = 0 Then Text3.SetFocus
End Sub
Pour que lorsque l'on c'est trompé on ne sois pas obligé de remprendre la souris ou de faire alt + tab.
http://www.robisoft.fr.st (Prog SMS, JPG, Install)
6 juin 2002 à 18:02
Je pense avoir répondu à ta question meme si ça n'en n'était pas une.
6 juin 2002 à 17:58