morpheus Posted July 22, 2006 Report Share Posted July 22, 2006 Este e o codigo fonte eu queria que auguem me ajudace a fazer com que ele imprima x colunas e y linhas se tiver auguem que possa me ajudar eu agradeso obrigado. ======================================================================================================================== *------------------------ETIQUETA DE PRODUTOS PEQUENAS-------------------- @ 05,15 SAY "ÉÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃû" @ 06,15 SAY "º Etiqueta pequena de produtos º" @ 07,15 SAY "º----------------------------------------------------º" @ 08,15 SAY "º Codigo.....: º" @ 09,15 SAY "º Produto....: º" @ 10,15 SAY "º----------------------------------------------------º" @ 11,15 SAY "º Quantidade.: COLUNAS.: º" @ 12,15 SAY "º Cod.Barra..: º" @ 13,15 SAY "º Impressora.: H-HP E-EPSON º" @ 14,15 SAY "º º" @ 15,15 SAY "º º" @ 16,15 SAY "º º" @ 17,15 SAY "ÈÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃü" *SAVE SCREEN TO TELA4 *** ABRE_ESTOQUE() aqui ele abre o arquivo do estoque CODIGO=SPACE(15) DESCRICAO=SPACE(30) CDBARRA="S" IMPRE=SPACE(1) DO WHILE .T. *--------------------------AQUI ELE PEGA O PRODUTO DO ESTOQUE---------- * RESTORE SCREEN FROM TELA4 * SET COLOR TO &COR_ALERTA * @ 21,1 SAY 'Msg: Digite o codigo do produto o qual voce deseja imprimir a etiqueta. ' * SET COLOR TO &COR_NORMAL * IF .NOT. PEGA_PRO1(08,30,09,30) * EXIT * ENDIF *----------------------------------------------------------------------- OK =0 X =0 CLN =0 @ 08,30 GET CODIGO PICTURE "@!" @ 09,30 GET DESCRICAO PICTURE "@!" @ 11,30 GET OK PICTURE "###" @ 11,45 GET CLN PICTURE "###" @ 12,30 GET CDBARRA PICTURE "@!" @ 13,30 GET IMPRE PICTURE "@!" READ ****************** SEGUE AS VARIAVEIS DO PROGRAMA ********************** IF OK = 0 CLN= 0 RETURN ENDIF DO WHILE X < OK IF CDBARRA="S" PUBLIC ESC,NULL,PRINTER,HEIGHT ESC = CHR(27) NULL = "" * DEFAULT TO TWO LINE LASERjET BARCODE PRINTER = IMPRE ******** DEZENHO DA IMPRESAO ****** HEIGHT = 2 IF PRINTER = "H" DO SETUP_HP ELSEIF PRINTER = "E" DO SETUP_EPSON ENDIF **************** FIN VARIAVEL ************* ***** Define CODE 3of9 Characer Set ***** DO DEF_CODE39 ***** Get text to print and print barcode ***** STAY = .T. * DO WHILE STAY ***** Create empty variable. The length is arbitrary as there is ***** ***** no defined maximum length of a 3o9 barcode. ***** MESSAGE = SPACE(25) MESSAGE = CODIGO BARCODE = SPACE(25) BARCODE = CODIGO ***MUDOU 01/06/06 MESSAGE1= LEFT (DESCRICAO,20) IF EMPTY(M->MESSAGE) ***** exit on no message text STAY = .F. LOOP ENDIF ***** Prepend and append required asterik's to trimmed message ***** M->MESSAGE = TRIM (M->MESSAGE) M->MESSAGE1 = TRIM (M->MESSAGE1) M->BARCODE = TRIM (M->BARCODE) SET DEVICE TO PRINT @ 1,00 SAY + M->MESSAGE + BARCODE (M->BARCODE) @ 1,15 SAY + M->MESSAGE + BARCODE (M->BARCODE) @ 1,30 SAY + M->MESSAGE @ 1,45 SAY + M->MESSAGE @ 1,60 SAY + M->MESSAGE @ PROW()+1,00 SAY +M->MESSAGE1 @ PROW()+2,00 say" " SET DEVICE TO SCREEN ***** Check for page eject ***** ***** (necessary to see what you've done on a laserjet) ***** EJECT = .F. * ENDDO * RETURN X=X+1 LOOP ENDIF IF CDBARRA="N" SET DEVICE TO PRINT @ PROW()+1,00 SAY " " @ PROW()+1,00 SAY "Cod. "+ALLTRIM(CODIGO) @ PROW() ,20 SAY "Cod. "+ALLTRIM(CODIGO) @ PROW() ,41 SAY "Cod. "+ALLTRIM(CODIGO) @ PROW() ,62 SAY "Cod. "+ALLTRIM(CODIGO) *@ PROW() ,83 SAY "Cod. "+ALLTRIM(CODIGO) @ PROW()+1,00 SAY LEFT(DESCRICAO,15) @ PROW() ,20 SAY LEFT(DESCRICAO,15) @ PROW() ,41 SAY LEFT(DESCRICAO,15) @ PROW() ,62 SAY LEFT(DESCRICAO,15) *@ PROW() ,83 SAY LEFT(DESCRICAO,15) @ PROW()+1,00 SAY ' ' X=X+1 ENDIF ENDDO SET DEVICE TO SCREEN ENDDO RETURN ***************** FUNCTION BARCODE PARAMETERS MESSAGE CODE = "" DO CASE CASE PRINTER = "H" * read message character at a time and build barcode FOR L = 1 TO LEN(M->MESSAGE) LETTER = SUBSTR(M->MESSAGE,I,1) CODE = CODE + IF(AT(LETTER,CHARS)=0,LETTER,CHAR[AT(LETTER,CHARS)]) + NS NEXT *********************** tenho que muda aqui ******************* * CODE = START + CODE + END CASE PRINTER = "E" ******** CONTROLA LARGURA E ALTURA ****** FOR H = 1 TO HEIGHT FOR I = 1 TO LEN(M->MESSAGE) LETTER = SUBSTR(M->MESSAGE,I) * build barcoded string CODE = IF(AT(LETTER,CHARS)=0,LETTER,CHAR[AT(LETTER,CHARS)]) + NS * print barcode character at a time on Epson PRINTCODE(ESC + CHR(76) + CHR(N1) + CHR(N2) + CODE) NEXT * perform 23/216 line feed PRINTCODE(ESC+CHR(74)+CHR(23)+CHR(13)) NEXT * perform 5/216 line feed PRINTCODE(ESC+CHR(74)+CHR(5)+CHR(13)) * reset printer to turn off graphics and reset to 10cpi PRINTCODE(ESC+"@") ENDCASE RETURN CODE ***** End of Function(BARCODE) ***** PROCEDURE SETUP_HP PUBLIC NB,WB,NS,WS,START,END *** define bars and spaces for HP LaserJet II SMALL_BAR = 3 && NUMBER OF POINTS PER BAR WIDE_BAR = ROUND(SMALL_BAR * 2.25,0) && 2.25 X SMALL_BAR DPL = 50 && DOTS PER LINE 300DPI/6LPI = ESC="*C"+TRANSFORM(SMALL_BAR,'99')+"A"+ALLTRIM(STR(HEIGHT*DPL))+"B0P"+ESC+"*P+"+TRANSFORM(SMALL_BAR,'99')+"X" ESC="*C"+TRANSFORM(WIDE_BAR,'99')+"A"+ALLTRIM(STR(HEIGHT*DPL))+"B0P"+ESC+"*P+"+TRANSFORM(WIDE_BAR,'99')+"X" NS = ESC+"*P+"+TRANSFORM(SMALL_BAR,'99')+"x" WS = ESC+"*P+"+TRANSFORM(WIDE_BAR,'99')+"x" *** adjust cusor position to start at top of line and return to bottom of line START = ESC+"*P-50Y" END = ESC+"*P+50Y" RETURN ***** End of Procedure(SETUP_HP) ***** PROCEDURE SETUP_EPSON PUBLIC NB,WB,NS,WS,N1,N2 ***** DEFINE EPSON BARS AND SPACES NS = CHR(0) + CHR(0) WS = CHR(0) + CHR(0) + CHR(0) + CHR(0) NB = CHR(255) WB = CHR(255) + CHR(255) + CHR(255) ***** set printer to 2/216 lines per inch PRINTCODE(ESC+CHR(51)+CHR(2)) ***** calculate N1 and N2 values for dot graphics command COLS = 21 N1 = COLS % 256 && MODULUS N2 = INT(COLS/256) RETURN ***** End of Procedure(SETUP_EPSON) ***** PROCEDURE DEF_CODE39 PUBLIC CHAR[44], CHARS CHARS = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ-. *$/+%" CHAR[01] = WB+NS+NB+WS+NB+NS+NB+NS+WB && "1" CHAR[02] = NB+NS+WB+WS+NB+NS+NB+NS+WB && "2" CHAR[03] = WB+NS+WB+WS+NB+NS+NB+NS+NB && "3" CHAR[04] = NB+NS+NB+WS+WB+NS+NB+NS+WB && "4" CHAR[05] = WB+NS+NB+WS+WB+NS+NB+NS+NB && "5" CHAR[06] = NB+NS+WB+WS+WB+NS+NB+NS+NB && "6" CHAR[07] = NB+NS+NB+WS+NB+NS+WB+NS+WB && "7" CHAR[08] = WB+NS+NB+WS+NB+NS+WB+NS+NB && "8" CHAR[09] = NB+NS+WB+WS+NB+NS+WB+NS+NB && "9" CHAR[10] = NB+NS+NB+WS+WB+NS+WB+NS+NB && "0" CHAR[11] = WB+NS+NB+NS+NB+WS+NB+NS+WB && "A" CHAR[12] = NB+NS+WB+NS+NB+WS+NB+NS+WB && "B" CHAR[13] = WB+NS+WB+NS+NB+WS+NB+NS+NB && "C" CHAR[14] = NB+NS+NB+NS+WB+WS+NB+NS+WB && "D" CHAR[15] = WB+NS+NB+NS+WB+WS+NB+NS+NB && "E" CHAR[16] = NB+NS+WB+NS+WB+WS+NB+NS+NB && "F" CHAR[17] = NB+NS+NB+NS+NB+WS+WB+NS+WB && "G" CHAR[18] = WB+NS+NB+NS+NB+WS+WB+NS+NB && "H" CHAR[19] = NB+NS+WB+NS+NB+WS+WB+NS+NB && "I" CHAR[20] = NB+NS+NB+NS+WB+WS+WB+NS+NB && "J" CHAR[21] = WB+NS+NB+NS+NB+NS+NB+WS+WB && "K" CHAR[22] = NB+NS+WB+NS+NB+NS+NB+WS+WB && "L" CHAR[23] = WB+NS+WB+NS+NB+NS+NB+WS+NB && "M" CHAR[24] = NB+NS+NB+NS+WB+NS+NB+WS+WB && "N" CHAR[25] = WB+NS+NB+NS+WB+NS+NB+WS+NB && "O" CHAR[26] = NB+NS+WB+NS+WB+NS+NB+WS+NB && "P" CHAR[27] = NB+NS+NB+NS+NB+NS+WB+WS+WB && "Q" CHAR[28] = WB+NS+NB+NS+NB+NS+WB+WS+NB && "R" CHAR[29] = NB+NS+WB+NS+NB+NS+WB+WS+NB && "S" CHAR[30] = NB+NS+NB+NS+WB+NS+WB+WS+NB && "T" CHAR[31] = WB+WS+NB+NS+NB+NS+NB+NS+WB && "U" CHAR[32] = NB+WS+WB+NS+NB+NS+NB+NS+WB && "V" CHAR[33] = WB+WS+WB+NS+NB+NS+NB+NS+NB && "W" CHAR[34] = NB+WS+NB+NS+WB+NS+NB+NS+WB && "X" CHAR[35] = WB+WS+NB+NS+WB+NS+NB+NS+NB && "Y" CHAR[36] = NB+WS+WB+NS+WB+NS+NB+NS+NB && "Z" CHAR[37] = NB+WS+NB+NS+NB+NS+WB+NS+WB && "-" CHAR[38] = WB+WS+NB+NS+NB+NS+WB+NS+NB && "." CHAR[39] = NB+WS+WB+NS+NB+NS+WB+NS+NB && " " CHAR[40] = NB+WS+NB+NS+WB+NS+WB+NS+NB && "*" CHAR[41] = NB+WS+NB+WS+NB+WS+NB+NS+NB && "$" CHAR[42] = NB+WS+NB+WS+NB+NS+NB+WS+NB && "/" CHAR[43] = NB+WS+NB+NS+NB+WS+NB+WS+NB && "+" CHAR[44] = NB+NS+NB+WS+NB+WS+NB+WS+NB && "%" RETURN ***************** FUNCTION PRINTCODE PARAMETERS CODE SET CONSOLE OFF SET PRINT ON ?? CODE SET PRINT OFF SET CONSOLE ON ***RETURN NULL ***** End of Function(PRINTCODE) ***** Editado por - morpheus on 22/07/2006 21:30:26 KennethTymnLY 1 Quote Link to comment Share on other sites More sharing options...
morpheus Posted July 22, 2006 Author Report Share Posted July 22, 2006 Este e o codigo fonte eu queria que auguem me ajudace a fazer com que ele imprima x colunas e y linhas se tiver auguem que possa me ajudar eu agradeso obrigado. ======================================================================================================================== *------------------------ETIQUETA DE PRODUTOS PEQUENAS-------------------- @ 05,15 SAY "ÉÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃû" @ 06,15 SAY "º Etiqueta pequena de produtos º" @ 07,15 SAY "º----------------------------------------------------º" @ 08,15 SAY "º Codigo.....: º" @ 09,15 SAY "º Produto....: º" @ 10,15 SAY "º----------------------------------------------------º" @ 11,15 SAY "º Quantidade.: COLUNAS.: º" @ 12,15 SAY "º Cod.Barra..: º" @ 13,15 SAY "º Impressora.: H-HP E-EPSON º" @ 14,15 SAY "º º" @ 15,15 SAY "º º" @ 16,15 SAY "º º" @ 17,15 SAY "ÈÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃÃü" *SAVE SCREEN TO TELA4 *** ABRE_ESTOQUE() aqui ele abre o arquivo do estoque CODIGO=SPACE(15) DESCRICAO=SPACE(30) CDBARRA="S" IMPRE=SPACE(1) DO WHILE .T. *--------------------------AQUI ELE PEGA O PRODUTO DO ESTOQUE---------- * RESTORE SCREEN FROM TELA4 * SET COLOR TO &COR_ALERTA * @ 21,1 SAY 'Msg: Digite o codigo do produto o qual voce deseja imprimir a etiqueta. ' * SET COLOR TO &COR_NORMAL * IF .NOT. PEGA_PRO1(08,30,09,30) * EXIT * ENDIF *----------------------------------------------------------------------- OK =0 X =0 CLN =0 @ 08,30 GET CODIGO PICTURE "@!" @ 09,30 GET DESCRICAO PICTURE "@!" @ 11,30 GET OK PICTURE "###" @ 11,45 GET CLN PICTURE "###" @ 12,30 GET CDBARRA PICTURE "@!" @ 13,30 GET IMPRE PICTURE "@!" READ ****************** SEGUE AS VARIAVEIS DO PROGRAMA ********************** IF OK = 0 CLN= 0 RETURN ENDIF DO WHILE X < OK IF CDBARRA="S" PUBLIC ESC,NULL,PRINTER,HEIGHT ESC = CHR(27) NULL = "" * DEFAULT TO TWO LINE LASERjET BARCODE PRINTER = IMPRE ******** DEZENHO DA IMPRESAO ****** HEIGHT = 2 IF PRINTER = "H" DO SETUP_HP ELSEIF PRINTER = "E" DO SETUP_EPSON ENDIF **************** FIN VARIAVEL ************* ***** Define CODE 3of9 Characer Set ***** DO DEF_CODE39 ***** Get text to print and print barcode ***** STAY = .T. * DO WHILE STAY ***** Create empty variable. The length is arbitrary as there is ***** ***** no defined maximum length of a 3o9 barcode. ***** MESSAGE = SPACE(25) MESSAGE = CODIGO BARCODE = SPACE(25) BARCODE = CODIGO ***MUDOU 01/06/06 MESSAGE1= LEFT (DESCRICAO,20) IF EMPTY(M->MESSAGE) ***** exit on no message text STAY = .F. LOOP ENDIF ***** Prepend and append required asterik's to trimmed message ***** M->MESSAGE = TRIM (M->MESSAGE) M->MESSAGE1 = TRIM (M->MESSAGE1) M->BARCODE = TRIM (M->BARCODE) SET DEVICE TO PRINT @ 1,00 SAY + M->MESSAGE + BARCODE (M->BARCODE) @ 1,15 SAY + M->MESSAGE + BARCODE (M->BARCODE) @ 1,30 SAY + M->MESSAGE @ 1,45 SAY + M->MESSAGE @ 1,60 SAY + M->MESSAGE @ PROW()+1,00 SAY +M->MESSAGE1 @ PROW()+2,00 say" " SET DEVICE TO SCREEN ***** Check for page eject ***** ***** (necessary to see what you've done on a laserjet) ***** EJECT = .F. * ENDDO * RETURN X=X+1 LOOP ENDIF IF CDBARRA="N" SET DEVICE TO PRINT @ PROW()+1,00 SAY " " @ PROW()+1,00 SAY "Cod. "+ALLTRIM(CODIGO) @ PROW() ,20 SAY "Cod. "+ALLTRIM(CODIGO) @ PROW() ,41 SAY "Cod. "+ALLTRIM(CODIGO) @ PROW() ,62 SAY "Cod. "+ALLTRIM(CODIGO) *@ PROW() ,83 SAY "Cod. "+ALLTRIM(CODIGO) @ PROW()+1,00 SAY LEFT(DESCRICAO,15) @ PROW() ,20 SAY LEFT(DESCRICAO,15) @ PROW() ,41 SAY LEFT(DESCRICAO,15) @ PROW() ,62 SAY LEFT(DESCRICAO,15) *@ PROW() ,83 SAY LEFT(DESCRICAO,15) @ PROW()+1,00 SAY ' ' X=X+1 ENDIF ENDDO SET DEVICE TO SCREEN ENDDO RETURN ***************** FUNCTION BARCODE PARAMETERS MESSAGE CODE = "" DO CASE CASE PRINTER = "H" * read message character at a time and build barcode FOR L = 1 TO LEN(M->MESSAGE) LETTER = SUBSTR(M->MESSAGE,I,1) CODE = CODE + IF(AT(LETTER,CHARS)=0,LETTER,CHAR[AT(LETTER,CHARS)]) + NS NEXT *********************** tenho que muda aqui ******************* * CODE = START + CODE + END CASE PRINTER = "E" ******** CONTROLA LARGURA E ALTURA ****** FOR H = 1 TO HEIGHT FOR I = 1 TO LEN(M->MESSAGE) LETTER = SUBSTR(M->MESSAGE,I) * build barcoded string CODE = IF(AT(LETTER,CHARS)=0,LETTER,CHAR[AT(LETTER,CHARS)]) + NS * print barcode character at a time on Epson PRINTCODE(ESC + CHR(76) + CHR(N1) + CHR(N2) + CODE) NEXT * perform 23/216 line feed PRINTCODE(ESC+CHR(74)+CHR(23)+CHR(13)) NEXT * perform 5/216 line feed PRINTCODE(ESC+CHR(74)+CHR(5)+CHR(13)) * reset printer to turn off graphics and reset to 10cpi PRINTCODE(ESC+"@") ENDCASE RETURN CODE ***** End of Function(BARCODE) ***** PROCEDURE SETUP_HP PUBLIC NB,WB,NS,WS,START,END *** define bars and spaces for HP LaserJet II SMALL_BAR = 3 && NUMBER OF POINTS PER BAR WIDE_BAR = ROUND(SMALL_BAR * 2.25,0) && 2.25 X SMALL_BAR DPL = 50 && DOTS PER LINE 300DPI/6LPI = ESC="*C"+TRANSFORM(SMALL_BAR,'99')+"A"+ALLTRIM(STR(HEIGHT*DPL))+"B0P"+ESC+"*P+"+TRANSFORM(SMALL_BAR,'99')+"X" ESC="*C"+TRANSFORM(WIDE_BAR,'99')+"A"+ALLTRIM(STR(HEIGHT*DPL))+"B0P"+ESC+"*P+"+TRANSFORM(WIDE_BAR,'99')+"X" NS = ESC+"*P+"+TRANSFORM(SMALL_BAR,'99')+"x" WS = ESC+"*P+"+TRANSFORM(WIDE_BAR,'99')+"x" *** adjust cusor position to start at top of line and return to bottom of line START = ESC+"*P-50Y" END = ESC+"*P+50Y" RETURN ***** End of Procedure(SETUP_HP) ***** PROCEDURE SETUP_EPSON PUBLIC NB,WB,NS,WS,N1,N2 ***** DEFINE EPSON BARS AND SPACES NS = CHR(0) + CHR(0) WS = CHR(0) + CHR(0) + CHR(0) + CHR(0) NB = CHR(255) WB = CHR(255) + CHR(255) + CHR(255) ***** set printer to 2/216 lines per inch PRINTCODE(ESC+CHR(51)+CHR(2)) ***** calculate N1 and N2 values for dot graphics command COLS = 21 N1 = COLS % 256 && MODULUS N2 = INT(COLS/256) RETURN ***** End of Procedure(SETUP_EPSON) ***** PROCEDURE DEF_CODE39 PUBLIC CHAR[44], CHARS CHARS = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ-. *$/+%" CHAR[01] = WB+NS+NB+WS+NB+NS+NB+NS+WB && "1" CHAR[02] = NB+NS+WB+WS+NB+NS+NB+NS+WB && "2" CHAR[03] = WB+NS+WB+WS+NB+NS+NB+NS+NB && "3" CHAR[04] = NB+NS+NB+WS+WB+NS+NB+NS+WB && "4" CHAR[05] = WB+NS+NB+WS+WB+NS+NB+NS+NB && "5" CHAR[06] = NB+NS+WB+WS+WB+NS+NB+NS+NB && "6" CHAR[07] = NB+NS+NB+WS+NB+NS+WB+NS+WB && "7" CHAR[08] = WB+NS+NB+WS+NB+NS+WB+NS+NB && "8" CHAR[09] = NB+NS+WB+WS+NB+NS+WB+NS+NB && "9" CHAR[10] = NB+NS+NB+WS+WB+NS+WB+NS+NB && "0" CHAR[11] = WB+NS+NB+NS+NB+WS+NB+NS+WB && "A" CHAR[12] = NB+NS+WB+NS+NB+WS+NB+NS+WB && "B" CHAR[13] = WB+NS+WB+NS+NB+WS+NB+NS+NB && "C" CHAR[14] = NB+NS+NB+NS+WB+WS+NB+NS+WB && "D" CHAR[15] = WB+NS+NB+NS+WB+WS+NB+NS+NB && "E" CHAR[16] = NB+NS+WB+NS+WB+WS+NB+NS+NB && "F" CHAR[17] = NB+NS+NB+NS+NB+WS+WB+NS+WB && "G" CHAR[18] = WB+NS+NB+NS+NB+WS+WB+NS+NB && "H" CHAR[19] = NB+NS+WB+NS+NB+WS+WB+NS+NB && "I" CHAR[20] = NB+NS+NB+NS+WB+WS+WB+NS+NB && "J" CHAR[21] = WB+NS+NB+NS+NB+NS+NB+WS+WB && "K" CHAR[22] = NB+NS+WB+NS+NB+NS+NB+WS+WB && "L" CHAR[23] = WB+NS+WB+NS+NB+NS+NB+WS+NB && "M" CHAR[24] = NB+NS+NB+NS+WB+NS+NB+WS+WB && "N" CHAR[25] = WB+NS+NB+NS+WB+NS+NB+WS+NB && "O" CHAR[26] = NB+NS+WB+NS+WB+NS+NB+WS+NB && "P" CHAR[27] = NB+NS+NB+NS+NB+NS+WB+WS+WB && "Q" CHAR[28] = WB+NS+NB+NS+NB+NS+WB+WS+NB && "R" CHAR[29] = NB+NS+WB+NS+NB+NS+WB+WS+NB && "S" CHAR[30] = NB+NS+NB+NS+WB+NS+WB+WS+NB && "T" CHAR[31] = WB+WS+NB+NS+NB+NS+NB+NS+WB && "U" CHAR[32] = NB+WS+WB+NS+NB+NS+NB+NS+WB && "V" CHAR[33] = WB+WS+WB+NS+NB+NS+NB+NS+NB && "W" CHAR[34] = NB+WS+NB+NS+WB+NS+NB+NS+WB && "X" CHAR[35] = WB+WS+NB+NS+WB+NS+NB+NS+NB && "Y" CHAR[36] = NB+WS+WB+NS+WB+NS+NB+NS+NB && "Z" CHAR[37] = NB+WS+NB+NS+NB+NS+WB+NS+WB && "-" CHAR[38] = WB+WS+NB+NS+NB+NS+WB+NS+NB && "." CHAR[39] = NB+WS+WB+NS+NB+NS+WB+NS+NB && " " CHAR[40] = NB+WS+NB+NS+WB+NS+WB+NS+NB && "*" CHAR[41] = NB+WS+NB+WS+NB+WS+NB+NS+NB && "$" CHAR[42] = NB+WS+NB+WS+NB+NS+NB+WS+NB && "/" CHAR[43] = NB+WS+NB+NS+NB+WS+NB+WS+NB && "+" CHAR[44] = NB+NS+NB+WS+NB+WS+NB+WS+NB && "%" RETURN ***************** FUNCTION PRINTCODE PARAMETERS CODE SET CONSOLE OFF SET PRINT ON ?? CODE SET PRINT OFF SET CONSOLE ON ***RETURN NULL ***** End of Function(PRINTCODE) ***** Editado por - morpheus on 22/07/2006 21:30:26 Quote Link to comment Share on other sites More sharing options...
evandro Posted July 30, 2006 Report Share Posted July 30, 2006 Olá, Não posso ajudá-lo na solução deste problema, mas recomendo que poste em "Programação". []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib Quote Link to comment Share on other sites More sharing options...
fgsistem Posted January 12, 2023 Report Share Posted January 12, 2023 Verifpro.net - paypal, ebay, stripe, banks, crypto, docs and more! Follow channel https://t.me/Verifpro_accounts to get more info Quote Link to comment Share on other sites More sharing options...
fgsistem Posted February 14, 2023 Report Share Posted February 14, 2023 https://t.me/pump_upp - best crypto pumps on telegram Make 1000% and more within 1 day, join channel @pump_upp ! Quote Link to comment Share on other sites More sharing options...
fgsistem Posted February 14, 2023 Report Share Posted February 14, 2023 https://t.me/pump_upp - best crypto pumps on telegram Make 1000% and more within 1 day, join channel @pump_upp ! Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.