Correspondance CMJN

Résolu
cs_NoFutur Messages postés 171 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 6 mai 2007 - 16 juil. 2005 à 17:59
cs_NoFutur Messages postés 171 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 6 mai 2007 - 18 juil. 2005 à 21:43
Bonjour,

Je cherche un code me permettant de convertir une couleur en valeur CMJN, j'ai déjà tout ce qui faut pour l'Héxadécimal le RVB et le Décimal mais pas moyen de trouver un code pour le format papier !

Si vous avez une idée je suis preneur, merci d'avance :-)

Generation Software
http://www.gen-software.com

2 réponses

Zlub Messages postés 809 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 29 septembre 2010 9
18 juil. 2005 à 07:10
Salut,










Vas voir sur se site ... tu devrais trouver ton bonheur ...

http://www.vbAccelerator.com










Private Sub calcCMYK()

' Get CMY model colours:
m_lC = &HFF& - m_lR
m_lM = &HFF& - m_lG
m_lY = &HFF& - m_lB

' Choose minimum as black:
If (m_lC < m_lM) Then
If (m_lC < m_lY) Then
m_lK = m_lC
Else
m_lK = m_lY
End If
Else
If (m_lM < m_lY) Then
m_lK = m_lM
Else
m_lK = m_lY
End If
End If

' Set the CMY with black adjustment.
If (m_lK = &HFF&) Then
m_lC = &HFF&
m_lM = &HFF&
m_lY = &HFF&
Else
m_lC = ((&HFF& - m_lR - m_lK) * &HFF&) / (&HFF& - m_lK)
m_lM = ((&HFF& - m_lG - m_lK) * &HFF&) / (&HFF& - m_lK)
m_lY = ((&HFF& - m_lB - m_lK) * &HFF&) / (&HFF& - m_lK)
End If

End Sub






++





Zlub
3
cs_NoFutur Messages postés 171 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 6 mai 2007
18 juil. 2005 à 21:43
Mais oui vbaccelerator je l'oubli toujours celui-là (c'est un comble tout de même :o)) et merci pour l'info ;-)

Generation Software
http://www.gen-software.com
0
Rejoignez-nous