Ir para conteúdo
Fórum Script Brasil

kuroi

Membros
  • Total de itens

    7.184
  • Registro em

  • Última visita

Tudo que kuroi postou

  1. leandro, não conheco essa forma q te passaram pra mostrar o relatorio, entretanto aqui tem uma explicacao de um modo bem mais facil: http://scriptbrasil.com.br/forum/index.php?showtopic=122749 de todos esses componentes q você passou, so precisaria desses dois: Crystal Reports 8.5 ActiveX Designer Run Time Library Crystal Report Viewer Control e se o .rpt já ta criado e ta salvo, nem precisaria do crystal no designers. so uma coisa, o seu .rpt já aponta pro banco de dados ou você quer passar os dados pelo recordset??
  2. michelle, na minha opiniao isso não tem muito jeito, se as parcelas vao ter o mesmo valor, vai ter q passar um centavo sim. ou vai ter q ser um centavo a menos. você vai ter q prever isso e ajustar do jeito q você quer. depois de dividir, faca o calculo inverso e veja, se não bater o valor você teria q modificar. acontece q o cara não pode pagar meio centavo ne. o valor 4,37, por exemplo, você teria essas tres opcoes: 1 - o cara paga duas parcelas de 2,19 o q da um centavo A MAIS 2 - o cara paga duas parcelas de 2,18 o q da um centavo A MENOS 3 - o cara paga paga uma parcela de 2,19 e otra de 2,18 o q vai dar o valor exato. se não me engano nas lojas em geral, eles usam essa 3ª opcao ai.
  3. é verdade, mas olha esse seu codigo aqui: int nr,aux,par,impar,maior_par,menor_impar,soma_total; aux = nr; par = nr; impar = nr; maior_par = par; menor_impar = impar;[/code] assim q você declara uma variavel, o valor dela vai ser exatamente o q tava na area de memoria onde ela foi instanciada. e você não sabe o q vai ser, então você vai acabar setando um valor nd a ve pra essas variaveis. pra evitar isso, declare o nr valendo 0. tipo assim: [code]int nr = 0; e ai mude o seu while pra ele poder entrar. em vez de: while( nr != 0 ) { ... }[/code] faca [code]do { ... } while( nr != 0 ); e na hora q você ta testando aqui: if ( impar < menor_impar ) note q o menor_impar comeca com 0 ne. e nunca o q ele digitou vai ser menor q 0 ne. então faca assim: if ( impar < menor_impar || menor_impar == 0) com essas alteracoes deve funcionar, tenta ai.
  4. kuroi

    Números Palíndromos

    e q parte você não ta conseguindo?? você não sabe calcular se é palindromo ou não sabe como contar os palindromos??
  5. e o q acontece de errado??
  6. kuroi

    Números Palíndromos

    sempre q der true, some 1 numa variavel ue. alem de q não precisa de array, so vai atrapalhar. olha essa parte do seu codigo: if(m[i] < 10) count++;[/code] m[i] vai ter exatamente o mesmo valor de i. então pra q pega do array se você pode pegar direto do i??
  7. kuroi

    Números Palíndromos

    os numeros vao tar em string ou em inteiro?? se tiver em string, é so inverter a string e comparar se não for igual. se tiver em numero, é o mesmo, so q da mais trabalho pra separar os digitos e inverter. mas td o q você tem q fazer é ir dividindo (divisao inteira) o valor por 10 ate chegar em 0. e você guarda o resto da divisao numa variavel e vai multiplicando ela por 10 a cada passagem do for. exemplo, o numero 123 esta na variavel x: 1ª passagem do for: 123 / 10 = 12 com resto 3. ai você guarda o 3 na variavel y e o 12 na x. 2ª passagem do for: 12 / 10 = 1 com resto 2. você multiplica y por 10 -> 3 * 10 = 30. e soma com o resto, vai dar q y = 32. e x fica valendo 1. 3ª passagem do for: 1 / 10 = 0 com resto 1 você multiplica y por 10 -> 32 * 10 = 320. e soma com o resto, vai dar q y = 321. e x fica valendo 0, o q vai fazer o for terminar. ai você achou o numero 123 invertido (321). ai você compara um com o outro, se for igual é palindromo. se não me engando, o vetor é passado por referencia não?? ai se você altera o vetor dentro da funcao, ele fica alterado fora. ou você declara a funcao como *int. EDITADO: mas porque você precisa de uma funcao q retorne o array?? não é simplesmente ira calculando e mostrando?? ele te pediu q fosse uma funcao?? pra mim você podia faze so a funcao q calcula o palindromo (retornando bool), e se fosse true, você mostrava. não precisava nem declara o array.
  8. o espaco do array deveria ser alocado com o malloc ou o new, porque senao o endereco é liberado depois do return e você não vai conseguir pegar os valores.
  9. é o FileSystemObject: http://www.w3schools.com/asp/asp_ref_filesystem.asp http://database.vvg.com/asp/artigos/article.asp?17
  10. é so por dentro dum for. e tb é pra apagar os [], só pus pra identificar: For i = 0 To ListBox1.ListCount - 1 Set r = Sheets("BDCQE").Range("C2:C500").Find(What:=Val(Listbox1.List(i, 1)), After:=Sheets("BDCQE").Range("C2"), LookIn:=xlValues, LookAt _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False) If Not r Is Nothing Then Sheets("BDCQE").Range("E" & r.Row) = Sheets("BDCQE").Range("E" & r.Row) + Listbox1.List(i, 2) End If Next[/code]
  11. kuroi

    criar setup

    o q é o "editor de texto VB6"?? existe alguma linha no seu projeto q você faz alguma coisa tipo isso?? Set objeto = CreateObject("qualquer_coisa_aqui") se tiver, ai você ta usando um objeto sem referenciar. nesse caso, você vai ter q achar a dll ou ocx e adiciona-la na mao. senao, em q momente ocorre esse erro?? é na hora q você abre o projeto?? ou é quando você executa algum formulario ou funcao especifica?? ai se você souber qual essa funcao, você pode saber qual a ocx q você usa nessa hora.
  12. então, se eu entendi, seria tipo isso q você quer: Select prod_est, IIf(empresa_est = 1, qtd_est, 0) As qtd_filial1, IIf(empresa_est = 2, qtd_est, 0) As qtd_filial2, IIf(empresa_est = 3, qtd_est, 0) As qtd_filial3, IIf(empresa_est = 4, qtd_est, 0) As qtd_filial4[/code]
  13. michelle, se eu entendi, é so você fazer um codigo parecido com aquele do find q te passei no tópico do corresp. so q em vez de alterar no formulario, você altera na planilha. mais o menos isso: Set r = Sheets("[0]").Range("[1]").Find(What:=Val([2]), After:=Sheets("[0]").Range("[3]"), LookIn:=xlValues, LookAt _ :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False) If Not r Is Nothing Then Sheets("[0]").Range("[4]" & r.Row) = Sheets("[0]").Range("[4]" & r.Row) + [5] End If[/code] onde você deve substituir o seguinte: [0] = nome da planilha onde tão os dados q você quer somar [1] = range q corresponde à coluna toda onde tão os codigos. [2] = o codigo q ta vindo do listbox [3] = a primera celula do range q você pos em [1]. exemplo, se você pos "C2:C50" em [1], ponha "C2" em [3] [4] = coluna onde estao os valores das saidas (exemplo, se for na coluna E, ponha somente "E") [5] = valor q você quer somar (q se eu entendi vem do listbox) veja ai se não é isso, qualquer coisa poste.
  14. no c# não sei, vo mover pra .net e dexar o atalho do tópico aqui, assim você tem mais chance de obter resposta.
  15. não conheco esse componente. qual o nome dele?? tipo qual a referencia q você adiciona?? e qual a versao do crystal você ta usando?? de qualquer modo, você já criou o .rpt e td?? com esse componente ai não sei. com os q eu usava você conseguia criar o relatorio pelo codigo mesmo. mas de qualquer forma, acho q o mais facil é criar no crystal mesmo.
  16. tem q ver qual o software você for comprar, os caras devem te passar uma ocx pra você fazer a programacao. o maximo q posso fazer é te passar esse tópico aqui: http://scriptbrasil.com.br/forum/index.php?showtopic=108228
  17. você fala fullscreen igual a quando a gente aperta F11?? se for isso não acho mesmo q de pra fazer por script. tipo, acho q não teria como fazer com q quando o cara abrisse o seu site, o ie dele fosse pra fullscreen. entretanto, se você ta tentando fazer isso localmente no seu ie, é so apertar F11 com ele aberto. e ai se você fechar enquanto ainda tiver na tela cheia, quando você abrir de novo ele já abre com tela cheia.
  18. kuroi

    criar setup

    são os q tão adicionado sim ne. mas quando você faz o instalador pelo package & deployment, ele cria uma pasta chamada Support e tb um arquivo .cab onde vao estar todas as dlls e ocxs q você precisa. abre la o cab q você vai ver. devem ter uns .exes la dentro, tipo o instalador, o uninstall e o executavel do seu programa. td mais q não for .exe la dentro (e não for arquivo q você mesmo adicionou), são as bibliotecas e componentes q seu programa usa. se tiver arquivo .tlb, o qualquer otra extensao la dentro tem q copiar tb.
  19. como assim não passa da funcao tela?? você nem ta chamando ela no codigo.
  20. hum, explica essas partes sublinhadas ó: qual tabela é essa?? é essa segunda planilha q você quer fazer?? mas como vai ser procurado se ela ainda ta sendo feita?? ou é a primera planilha?? porque tem q procurar se os dados tão vindo do listbox?? ou essa tabela q você fala é aquela lista com todos os produtos?? de onde vem essa "quantidade existente na SAÍDAS"??
  21. kuroi

    Soma de campos

    pelo numero não sei. qual a mensagem do erro 13?? e em qual linha acontece??
  22. qual banco você usa?? se for access faca com Iif() se for sql faca com case mysql, oracle acho q tb é com case
  23. michelle, não entendi direito, mas é praticamente o mesmo codigo do otro tópico. aquele q você faz o find, e pega os valores de umas colunas na frente.
  24. acho q você pode executar esse codigo ai como query no recordset ne. so q não vai funciona pra otros bancos. quanto ao ADOX, deve ter sim. q windows você usa?? você ta entrando em referencias ou em componentes?? tem q ser em menu Project -> References então, mostra um printscreen da lista de referencias, mostrando todos os q comecam com "Microsoft A..." pra ver se eu identifico.
  25. existe sim, mas pode ta escrito diferente dependendo da versao. veja se tem essa: Microsoft ADO Ext. 2.X for DLL and Security
×
×
  • Criar Novo...