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 ê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ère qui est remplacé par le chiffre de contrô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 ?>