Forum > Visual Basic 6 > Langages dérivés > VBA
pour python en visual basic 2010
(traitement simple en boucle sur ces caractères, d'une chaîne de caractères !)
for index, char in enumerate(chars.upper()):'
'result += char * factor[index % 3] '
'return result % 10 print 'le print sa va ses pour afficher à l'ecran.
if char == '<': char = 0 elif char >= 'A' and char <= 'Z': char = ord(char) - 55 else: char = int(char
dim char as string = 0 if char = '<' then char = 0
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionresult += char * factor[index % 3]
Module Module1 Sub Main() Dim Algo As String = 0 Dim Resultat As String = 0 'Saisi des caracteres à calculer Algo = Console.ReadLine() 'ici devrait etre l'algo qui est applique 'Affiche le resultat obtenu apres calcul Console.WriteLine(Resultat) 'Pause avant de fermer la fenetre Console.Read() End Sub End Module
for index, char in enumerate(chars.upper()):
Sa fai seulement 3 jours que je suis sur un tuto :)
Je ne connais pas python non plus (trop mordant)
def(Algo(chars)) factor = [7, 3, 1] result = 0 for index, char in enumerate(chars.upper()):# if char == '<': char = 0 elif char >= 'A' and char <= 'Z': char = ord(char) - 55 else: char = int(char) result += char * factor[index % 3] return result % 10 print Algo('numero')
Module Module1 Sub Main() Console.WriteLine(Algo(3)) Console.Read() End Sub Function Algo(ByVal chars As String) As String Dim Factor As String Dim Result As String Factor = ( ???) Result = 5 Result = 4 * Factor Return Result End Function End Module
les chiffres de contrôles doivent être calculés sur la base du modulo 10 avec factorisation respective 731 731
exemple
date de naissance :16/01/1976
sous sa forme numérique ça donne 7 6 0 1 1 6
factorisation 7 3 1 7 3 1
=7*7+6*3+0*1+1*7+1*3+6*1
=49+18+0+7+3+6=83
83 div 10=8 reste 3
le chiffre de contrôle qui suit la date de naissance est donc 3
Dim Variable0 As string = 0 Dim Variable1 As string = 1 Etc... Dim VariableA As string = 10 Dim VariableB As string = 11 Etc...
Dim MonDict As New Dictionary(Of Char,Integer) MonDict.Aff("8",8) MonDict.Aff("A",10) MonDict.Aff(">",0)
Module Module1 Sub Main() 'initialisation des variables Dim MonTableau(35) As Integer 'Remplissage du tableau de nb de 0 à 35 For i As Integer = 0 To MonTableau.Length MonTableau(i) = ' ici j'ai pas trouver comment dire au soft de remplir mon tableau de 0 à 35 Next End Sub End Module
'initialisation de la variable MonDict (par contre tu ne lui attribut tout de suite si s'est 'un integer,string, etc... ' Je ne connais pas trop New Dictionary(Of Char, integer) <- on appel sa un index se qui est ' entre parenthese ? Apres je vois quel valeur il retour "character" est en suite sont equivalence Dim MonDict As New Dictionary(Of Char,Integer) MonDict.Aff("8",8) MonDict.Aff("A",10) MonDict.Aff(">",0) 'apres la je pense qu'il faut aussi initialise cette variable PoidsCar. PoidsCar=MonDict(MonChar)