Como posso exibir o código de barras no meu aplicativo Android?
Sim claro!
Aqui é a chamada de procedimento GenereImageCodeEAN13:
GenereImageCodeEAN13(sCodeArticle,IMG_Vignette..NomComplet)
E o procedimento:
Procedure GenereImageCodeEAN13(sCodeArt est une chaîne, sChampImage est une chaîne)
i est un entier
nX1 est un entier = 10
nY1 est un entier = 10
nX2 est un entier = 10
nY2 est une entier = 70
nPas est un entier = 2
taStruct est un tableau associatif de chaînes
dDébutDessin({sChampImage,indChamp})
ta_A[0] = "0001101"
ta_A[1] = "0011001"
ta_A[2] = "0010011"
ta_A[3] = "0111101"
ta_A[4] = "0100011"
ta_A[5] = "0110001"
ta_A[6] = "0101111"
ta_A[7] = "0111011"
ta_A[8] = "0110111"
ta_A[9] = "0001011"
ta_B[0] = "0100111"
ta_B[1] = "0110011"
ta_B[2] = "0011011"
ta_B[3] = "0100001"
ta_B[4] = "0011101"
ta_B[5] = "0111001"
ta_B[6] = "0000101"
ta_B[7] = "0010001"
ta_B[8] = "0001001"
ta_B[9] = "0010111"
ta_C[0] = "1110010"
ta_C[1] = "1100110"
ta_C[2] = "1101100"
ta_C[3] = "1000010"
ta_C[4] = "1011100"
ta_C[5] = "1001110"
ta_C[6] = "1010000"
ta_C[7] = "1000100"
ta_C[8] = "1001000"
ta_C[9] = "1110100"
taStruct[0] = "AAAAAA"
taStruct[1] = "AABABB"
taStruct[2] = "AABBAB"
taStruct[3] = "AABBBA"
taStruct[4] = "ABAABB"
taStruct[5] = "ABBAAB"
taStruct[6] = "ABBBAA"
taStruct[7] = "ABABAB"
taStruct[8] = "ABABBA"
taStruct[9] = "ABBABA"
sVal est une chaîne
nChiffre est un entier
nDebut est un entier
nDebut = sCodeArt[[1]]
sStruct est une chaîne
sStruct = taStruct[nDebut]
sTableau est une chaîne
dTexte(nX1 -10 ,nY2 ,nDebut,Noir)
dLigne(nX1,nY1,nX2,nY2+10,Noir,nPas)
nX1 += nPas
nX2 += nPas
dLigne(nX1,nY1,nX2,nY2+10,Blanc,nPas)
nX1 += nPas
nX2 += nPas
dLigne(nX1,nY1,nX2,nY2+10,Noir,nPas)
nX1 += nPas
nX2 += nPas
POUR i = 2 A 7
nChiffre = sCodeArt[[i]]
dTexte(nX1,nY2 ,nChiffre,Noir)
sTableau = "ta_" + sStruct[[i-1]]
sVal = {sTableau,indVariable}[nChiffre]
POUR n = 1 A 7
SI sVal[[n]] = "1" ALORS
dLigne(nX1,nY1,nX2,nY2,Noir,nPas)
nX1 += nPas
nX2 += nPas
SINON
dLigne(nX1,nY1,nX2,nY2,Blanc,nPas)
nX1 += nPas
nX2 += nPas
FIN
FIN
FIN
dLigne(nX1,nY1,nX2,nY2+10,Blanc,nPas)
nX1 += nPas
nX2 += nPas
dLigne(nX1,nY1,nX2,nY2+10,Noir,nPas)
nX1 += nPas
nX2 += nPas
dLigne(nX1,nY1,nX2,nY2+10,Blanc,nPas)
nX1 += nPas
nX2 += nPas
dLigne(nX1,nY1,nX2,nY2+10,Noir,nPas)
nX1 += nPas
nX2 += nPas
dLigne(nX1,nY1,nX2,nY2+10,Blanc,nPas)
nX1 += nPas
nX2 += nPas
POUR i = 8 A 13
nChiffre = sCodeArt[[i]]
dTexte(nX1,nY2 ,nChiffre,Noir)
sVal = ta_C[nChiffre]
POUR n = 1 A 7
SI sVal[[n]] = "1" ALORS
dLigne(nX1,nY1,nX2,nY2,Noir,nPas)
nX1 += nPas
nX2 += nPas
SINON
dLigne(nX1,nY1,nX2,nY2,Blanc,nPas)
nX1 += nPas
nX2 += nPas
FIN
FIN
FIN
dLigne(nX1,nY1,nX2,nY2+10,Blanc,nPas)
nX1 += nPas
nX2 += nPas
dLigne(nX1,nY1,nX2,nY2+10,Noir,nPas)
nX1 += nPas
nX2 += nPas
dLigne(nX1,nY1,nX2,nY2+10,Blanc,nPas)
nX1 += nPas
nX2 += nPas
dLigne(nX1,nY1,nX2,nY2+10,Noir,nPas)
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/