mod77
Messages postés1273Date d'inscriptionvendredi 10 juillet 2009StatutMembreDernière intervention14 janvier 2024 10 déc. 2012 à 18:15
Bonjour,
Je viens de récupérer le zip mais je ne vois rien qui me permet d'exécuter le programme. Que faut-il que je fasse SVP?
VBsearch
Messages postés50Date d'inscriptionjeudi 21 juillet 2005StatutMembreDernière intervention22 août 2009 11 juil. 2009 à 02:28
Bonjour
La fonction de conversion "bin_dec" retourne des valeurs in correctes.
Voici le code correct:
Public Function bin_dec(binStr As String) As Integer
Dim I As Integer, sInt%, Result%
Result = 0
sInt = Len(binStr)
For I = 0 To sInt
If Mid(binStr, I + 1, 1) = "1" Then
Result = Result + 2 ^ (sInt - I - 1)
Else
End If
Next I
bin_dec = Result
End Function
Essaie ce code et fais-moi signe .........
Moritus
Messages postés130Date d'inscriptionjeudi 22 décembre 2005StatutMembreDernière intervention23 novembre 2011 15 déc. 2008 à 22:13
j'avais pas jugé bon de mettre un exe c'est pour ca
cs_johndave
Messages postés35Date d'inscriptionjeudi 4 octobre 2007StatutMembreDernière intervention 2 juin 2015 15 déc. 2008 à 19:54
Quand tu envoies un exe, change toujours l'extension afin que cet exe ne soit pas supprimé automatiquement. Ex: "mon_pplication.exe" en "mon_application.ex_"
10 déc. 2012 à 18:15
Je viens de récupérer le zip mais je ne vois rien qui me permet d'exécuter le programme. Que faut-il que je fasse SVP?
11 juil. 2009 à 02:28
La fonction de conversion "bin_dec" retourne des valeurs in correctes.
Voici le code correct:
Public Function bin_dec(binStr As String) As Integer
Dim I As Integer, sInt%, Result%
Result = 0
sInt = Len(binStr)
For I = 0 To sInt
If Mid(binStr, I + 1, 1) = "1" Then
Result = Result + 2 ^ (sInt - I - 1)
Else
End If
Next I
bin_dec = Result
End Function
Essaie ce code et fais-moi signe .........
15 déc. 2008 à 22:13
15 déc. 2008 à 19:54