Olá Gilberto, A ajuda on-line do LibreOffice contempla a grande maioria das funções do BASIC, inclusive com exemplos de uso.
Nos links abaixo você encontrará mais informações (em português) sobre macros, funções do usuário, BASIC e API do LibreOffice. http://www.broffice.org/proj_macros http://www.broffice.org/?q=docs_prog http://www.broffice.org/files/programando_broo.odt http://www.broffice.org/files/iooobasic_v2.zip Att. -- Noelson Em 25 de abril de 2011 11:01, gilbe...@schiavinatto.com < gilbe...@schiavinatto.com> escreveu: > Necessito de mais informações > > Não consegui descobrir quais funções (do BrOffice - ex. INT(x) pode) podem > ser usadas no Basic. Aonde posso descobrir quais são possiveis de uso, e > como usa-las (parametros / modo de uso). > > Depois que descobrir como usa-las pode deixar que vou futicar até travar o > micro. > > Só um exemplo do que estou tentando fazer > Esta função ira conferir a digitação do código de produto > Utilizando Digito Virificador Modulo 11 > Depois de tentar montar em uma só instrução, descobri que > o máximo de digitos por linha é 512. > > Depois de uns cafés, descobri que podia "fatiar" a função principal. > > Function DIGI6(a) > DIGI61 = (INT(a/10^5)) > DIGI62 = (INT(a/10^4))-(INT(INT(a/10^4)/10))*10 > DIGI63 = (INT(a/10^3))-(INT(INT(a/10^3)/10))*10 > DIGI64 = (INT(a/100))-(INT(INT(a/100)/10))*10 > DIGI65 = (INT(a/10))-(INT(INT(a/10)/10))*10 > DIGI66 = (DIGI61*6)+(DIGI62*5)+(DIGI63*4)+(DIGI64*3)+(DIGI65*2) > 'DIGI6 = SE(INT(DIGI66/11)+1)*11-DIGI66>9 ValorEntão 0 ValorSenão > (INT(DIGI66/11)+1)*11-DIGI66) End SE > End Function > > Não esta completa não sei com usar a condicional "se" > A intenção é, quando for digitado codigo errado, > mostre a mensagem que produto não existe, ou algo parecido. > O uso dela esta condicionado com codigo de 5 digitos e 1 dv - ex. 29845-0. > > Aguardo alguma Luz no tunel > Obrigado > Gilberto Schiavinatto > > Ps. Se a maneira de postar não for essa, queiram por gentileza me > instruir.... > > -- > Unsubscribe instructions: E-mail to usuarios+h...@pt-br.libreoffice.org > Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette > List archive: http://listarchives.libreoffice.org/pt-br/usuarios/ > All messages sent to this list will be publicly archived and cannot be > deleted > > -- Unsubscribe instructions: E-mail to usuarios+h...@pt-br.libreoffice.org Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette List archive: http://listarchives.libreoffice.org/pt-br/usuarios/ All messages sent to this list will be publicly archived and cannot be deleted
