Essai de calcul de Log

ghhfdahc Messages postés 14 Date d'inscription samedi 9 décembre 2017 Statut Membre Dernière intervention 11 décembre 2017 - 11 déc. 2017 à 10:14
michael59330 Messages postés 30 Date d'inscription dimanche 27 janvier 2008 Statut Non membre Dernière intervention 29 octobre 2023 - 7 juil. 2019 à 21:43
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/102425-essai-de-calcul-de-log

michael59330 Messages postés 30 Date d'inscription dimanche 27 janvier 2008 Statut Non membre Dernière intervention 29 octobre 2023
7 juil. 2019 à 21:43
Bonjour,

Je vous remercie pour votre réponse,

Concernant les balises, j'ai bien essayer d'en mettre mais les retours à la ligne avaient disparus, alors j'ai dû retirer les balises.

Les doublons présents dans la fonction sont volontaires afin que les toutes principales couleurs soient représentées, même si la différence ne se voit pas à l'oeil nu.

Belle journée,

Bien cordialement
vb95 Messages postés 3483 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 17 juillet 2024 169
Modifié le 6 juil. 2019 à 22:17
Bonsoir
Plusieurs choses :
1) L'utilisation des balises de code donnerait un code plus agréable à lire : https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
Il me semble que on te l'ai déjà dit .
2) une collection List(of) éviterait de redimensionner à chaque le tableau des couleurs
3) Si je prends les 4 premiers If
If couleur = "noir" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 0, 0)
If couleur = "noir" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 0, 51)
If couleur = "noir" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 0, 102)
If couleur = "noir" And ton = "foncé" Then ReDim Preserve couleurs(couleurs.Count) : couleurs(couleurs.Count - 1) = Color.FromArgb(255, 0, 0, 153)

Les 4 sont considérés comme des couleurs noir avec un ton foncé avec des paramètres de ton différent
De plus plus loin on retrouve encore des couleurs "noir avec ton foncé"
4) Il y a de l'optimisation à faire en exploitant les paramètres de Color.FromArgb et les 3 valeurs RGB associés à chaque couleur et le ton donné à cette couleur
Rejoignez-nous