estimation utilisation d'encre

[swolf]

Bonjour!
J'ai pour projet de creer un programme qui determinerait la quantité d'encre nécessaire pour imprimer une page en se basant sur la surface de noir présente sur cette page.
Pour cela, il faudrait que je sache quelle volume d'encre est consommé pour une certaine "couche de noir" (par exemple pour un carré de 1cm de côté, 10µL d'encre, je dis ça au pif).
Je suppose que ça varie selon les marques, je n'ai pas trouvé dans la doc de mon imprimante...
Si quelqu'un a une info...
merci d'avance, en espérant m'être bien exprimé

[Backup]

en fait on peut le savoir a peut près
puisque des tests ont démontrés qu'on peut vider une cartouche
avec environ 15 "A-plat" sur feuille 21x29,7

(un "A-plat" est une impression couvrant toute une surface d'une seule couleur )

il existe des sites parlant de la durée des cartouches d'encre ,
et les 15 feuilles reviennent assez souvent,

tu n'aura jamais rien de précis, parce que ça dépend du constructeur
et du modèle d'imprimante ....

même les constructeurs donne une approximation sur les imprimantes
j'ai une canon a la maison, qui me dit depuis 1 mois, que je dois changer de cartouche
parce qu'elle est vide , et pourtant .... ça imprime toujours

ils nous pousse a la conso ...

[swolf]

ah ok c'est vrai qu'ils poussent un peu à l'achat!
merci pour l'info je vais faire quelques calcul, un peu de code et je vous donne des nouvelles!

[swolf]

ça y est j'ai fait une premiere version...

Code : Tout sélectionner

;capacité d'une cartouche: 9355.5cm²
; aire page 21*29.7: 623.7
Structure img
  x.l
  y.l
  color.l
EndStructure
UseJPEGImageDecoder()
aire_page.f = 623.7
capacite_cartouche.f = 9355.5
file$ = OpenFileRequester("fichier image", "", "image |*.bmp;*.jpg", 0)
If LoadImage(1, file$) ; <--- ont charge l'image du dessus
  If StartDrawing(ImageOutput(1))
      width = ImageWidth(1)
      height = ImageHeight(1)
      size = width * height ;nb total de px
      Dim Array.img(size)
      
      ; <------------------------- ont récupère la  couleur de chaque pixel -----------------------
      i = 0
      For y = 0 To height - 1
        For x = 0 To width - 1
          color = Point(x, y)
          Array(i)\x = x
          Array(i)\y = y
          Array(i)\color = color
          If color = 0
            n= n + 1
          EndIf
          
          i + 1
        Next
      Next
      ; <------------------------------------------------------------------------------------------
    StopDrawing()
    EndIf
Else 
Debug "erreur"
EndIf
Debug n
Debug size
pourcentage_noir.f = n / size
Debug Int(pourcentage_noir.f*100)
surface_noire_feuille.f = pourcentage_noir.f*aire_page.f  ; surface de noir sur une feuille 21*29.7
pourcentage_encre_utilisee.f = surface_noire_feuille.f / capacite_cartouche.f
Debug pourcentage_encre_utilisee.f

le problème est que je n'ai aucun moyen de vérifier...

[edit] ça marche si à l'impression, l'image est mise à l'échelle de la page... (exemple: une image de 500*500px contenant 50% de noir donnera une impression avec 50% de la page en noir.
je ne sais pas comment faire autrement, j'ai du mal avec les histoires d'échelles. le but est de faire fonctionner le programme pour des documents word donc c'est pas grave si ça ne prend pas en compte l'échelle.

p-s: j'ai utilisé le code de venom http://www.purebasic.fr/french/viewtopi ... ge+couleur