|
Home → WINDEV 25 → WX - Como posso exibir o código de barras no meu aplicativo Android? |
WX - Como posso exibir o código de barras no meu aplicativo Android? |
Started by BOLLER, Aug., 12 2017 8:15 AM - 1 reply |
| |
| | | |
|
| |
Registered member 3,655 messages Popularité : +175 (223 votes) |
|
Posted on August, 12 2017 - 8:15 AM |
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/ |
| |
| |
| | | |
|
| | |
| |
Registered member 3,655 messages Popularité : +175 (223 votes) |
|
Posted on August, 12 2017 - 8:16 AM |
Teste também:
MonEANCode est un CodeBarres MonEANCode..TypeContenu = cbTypeTexte MonEANCode..TypeCodeBarres = CB_EAN13 MonEANCode..Contenu = "978020137962"
CBA_SansNom1 = MonEANCode
IMG_SansNom1 = dSauveImagePNG(CBA_SansNom1,enMémoire)
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | | | |
| | |
|