nyctergatis.com
 
Contact

Projets
Sysquake Remote Live
NME
PDF
Sudoku
Code-barres EAN
GifBuilder
jpeglib for Palm OS
MySQL Client
Cross-GCC for Mac OS

en fr

Sysquake Remote

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:

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
?>
Copyright 2008, Yves Piguet.
All rights reserved.