Sviluppo4d.it
Sito indipendente di informazioni tecniche per sviluppatori 4th Dimension italiani  

Sviluppatori 4D

Utility 4D

Risorse 4D



4d logo
Naviga: Prev Next

Titolo: Interaleave 2of5 codice per ottenere binario del codice

Categoria: Codice Ultimo Aggiornamento: 09/04/18


Il presente codice serve per ricavare il codice binario del codice 2 of 5 per poter poi disegnare il barcode in SVG (0) linea sottile, (1) linea spessa

C_TEXT($K)
C_TEXT($strCode)
C_TEXT($strAux)
C_TEXT($strExit)

$strCode:=$1
$strAux:=$strCode

If ($strCode="")
$0:=""
End if

For ($K=1;(Length($strCode))
C_TEXT($codice)
$codice:=Substring($strAux;$K;1)
Case of
: $codice="0"
: $codice="1"
: $codice="2"
: $codice="3"
: $codice="4"
: $codice="5"
: $codice="6"
: $codice="7"
: $codice="8"
: $codice="9"
: $codice="@"
: $codice="§"
// ok il codice non contiene caratteri non validi
Else
Alert("Errore il codice interleave 2 of 5 contiene caratteri non ammessi, sono ammessi solo numeri da 0-9)
$0:=""
End case
End for

For($K;1;length($strCode))
C_TEXT($codice)
$codice:=Substring($strCode;$K;1)
Case of
: ="1"
$strExit:=$strExit+"11010010010110"
: ="2"
$strExit:=$strExit+"11010101001100"
: ="3"
$strExit:=$strExit+"11001010100110"
: ="4"
$strExit:=$strExit+"11010010100110"
: ="5"
$strExit:=$strExit+"10110100100110"
: ="6"
$strExit:=$strExit+"10011010101100"
: ="7"
$strExit:=$strExit+"10110010101100"
: ="8"
$strExit:=$strExit+"10011001010110"
: ="9"
$strExit:=$strExit+"10110100101100"
: ="0"
$strExit:=$strExit+"11001010010110"
: ="@"
$strExit:=$strExit+"10110010110010"
: ="§"
$strExit:=$strExit+"11010000000000"
End case
// salto
End for

$0:=$strExit



Inviato da: Massimiliano Chiodi Visite: 6524

Se accedi con utente e password, puoi aggiungere dei commenti.


Accesso

User:
Pass: Accedi

Cerca

Se non trovi le informazioni che cerchi scrivi a aiuto@sviluppo4d.it

4D Principali

4D Discussioni

Faq random


Crediti

Dominio registrato da ZetaNet
Sito realizzato da Nexus srl
4D SQL 11.9.0 offerto da 4D & Italsoftware
Icone di FAMFAMFAM
Moderato da Umberto Migliore
328 utenti registrati

Pagina servita il 05/11/24 alle 22:57:37 Valid HTML 4.01! Valid CSS!

Mutuo Facile, iDigitalScout, iDigitalTags e altre app di Nexid srl per iPhone e iPad

Cidroid, distributore italiano lettori barcode per IOS Apple iPhone, iPod, iPad