Pour verifier les numeros de carte bancaire

Télécharger le projet
Commenter

Description

Ce prog verifie que le numero de carte saisie est valide. Il n'y a rien de pirate puisque tous les sites marchands utilisent un systeme comme celui ci.

Source / Exemple : 


Private Sub Command1_Click()
Dim n1, n2, n3, n4, n5, n6, n7, n8, n9, n10, n11, n12, n13, n14, n15, n16 As Integer
If Text1.Text <> "" Or Text2.Text <> "" Or Text3.Text <> "" Then
On Error GoTo suite
n1 = Mid(Text1.Text, 1, 1) * 2
n2 = Mid(Text1.Text, 2, 1)
n3 = Mid(Text1.Text, 3, 1) * 2
n4 = Mid(Text1.Text, 4, 1)

n5 = Mid(Text2.Text, 1, 1) * 2
n6 = Mid(Text2.Text, 2, 1)
n7 = Mid(Text2.Text, 3, 1) * 2
n8 = Mid(Text2.Text, 4, 1)

n9 = Mid(Text3.Text, 1, 1) * 2
n10 = Mid(Text3.Text, 2, 1)
n11 = Mid(Text3.Text, 3, 1) * 2
n12 = Mid(Text3.Text, 4, 1)

n13 = Mid(Text4.Text, 1, 1) * 2
n14 = Mid(Text4.Text, 2, 1)
n15 = Mid(Text4.Text, 3, 1) * 2
n16 = Mid(Text4.Text, 4, 1)

If n1 >= 10 Then n1 = n1 - 9
If n2 >= 10 Then n2 = n2 - 9
If n3 >= 10 Then n3 = n3 - 9
If n4 >= 10 Then n4 = n4 - 9
If n5 >= 10 Then n5 = n5 - 9
If n6 >= 10 Then n6 = n6 - 9
If n7 >= 10 Then n7 = n7 - 9
If n8 >= 10 Then n8 = n8 - 9
If n9 >= 10 Then n9 = n9 - 9
If n10 >= 10 Then n10 = n10 - 9
If n11 >= 10 Then n11 = n11 - 9
If n12 >= 10 Then n12 = n12 - 9
If n13 >= 10 Then n13 = n13 - 9
If n14 >= 10 Then n14 = n14 - 9
If n15 >= 10 Then n15 = n15 - 9
If n16 >= 10 Then n16 = n16 - 9
total = n1 + n2 + n3 + n4 + n5 + n6 + n7 + n8 + n9 + n10 + n11 + n12 + n13 + n14 + n15 + n16
div = Right$(total, 1)
If div = 0 Then
MsgBox "(" & total & ") Numero correct", vbOKOnly + vbInformation
Else
MsgBox "(" & total & ") Mauvais numero", vbOKOnly + vbExclamation
End If
Else
GoTo suite
End If
suite:
End Sub

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
End Sub

Private Sub Text3_Change()
If Len(Text3.Text) = 4 Then Text4.SetFocus
End Sub

Conclusion :


Il y a 4 boite à texte et un boutton, rien de plus simple.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (NeoFO)