nyctergatis.com

Code-barres EAN

Cette petite application Sysquake Remote affiche le code-barres correspondant à un code de 8, 12 ou 13 chiffres. Les codes à 13 chiffres sont des codes EAN-13 (European Article Number) que l'on trouve sur les produits partout dans le monde; les codes à 8 chiffres sont des codes EAN-8, moins répandus; les codes à 12 chiffres sont des codes UPC (Universal Product Code), un sous-ensemble d'EAN-13. Quelle que soit la taille, le dernier chiffre est un chiffre de contrôle; si vous entrez un caractère qui n'est pas un chiffre, Sysquake Remote le calculera pour vous.

Code complet: 1234567890128

Code source

Voici le code source qui figure dans le fichier sur le serveur. Si vous jetez un coup d'oeil au code source dans votre butineur, vous ne verrez que le code HTML généré par Sysquake Remote.

La bibliothèque barcode.lml sera fournie avec la prochaine version de Sysquake et Sysquake Remote.

<?sqr
try
  c = getfield(httpvars,'c');
catch
  c = '123456789012?';
end
?>

<form method="get">
<p class="nojustif">
Code: <input type="text" name="c" size="13" value="<?sqr= c ?>">
<input type="submit" value="Update">
</p>
</form>

<?sqr
use barcode;

if length(c) ~= [8, 12, 13]
  ?><p>La taille du code doit &ecirc;tre 8, 12 ou 13.</p><?sqr
elseif any(~isdigit(c(1:end-1)))
  ?><p>Le code ne doit contenir que des chiffres, sauf le dernier
  caract&egrave;re qui est remplac&eacute; par le chiffre de
  contr&ocirc;le.</p><?sqr
else
  (b, g, num) = eanencode(c);
  beginfigure;
  image(~[repmat(b,10,1);g], 'e');
  plotoption noframe;
  endfigure;
  if ~isdigit(c(end))
    fprintf('<p>Code complet: %s</p>', num);
  end
end
?>