Ir para o conteúdo
  1. Re: Dúvida em Backup de Aplicação em VBA

    edsudani
    Por edsudani,

    Boa tarde Santoli.

    Aqui tens um tutorial que informa o uso da ferramenta de Backup do Windows10:  https://support.microsoft.com/pt-br/help/17127/windows-back-up-restore

    Quando selecionamos manualmente o local do BKP, o programa copia os dados para um local previamente selecionado.

    Quando precisamos restaurá-los o mesmo programa pode solicitar o local correto (arquivo de origem) ou dependendo das configurações, realizar em modo automático. 

    Em ‎13‎/‎09‎/‎2017 às 20:33, Santoli disse:
    Em ‎13‎/‎09‎/‎2017 às 10:11, edsudani disse:

     

    Oi Edison, obrigado pela resposta, não entendi como é esse BKP, deixo aqui uns prints da estrutura e do conteúdo da pasta depois de instalar a aplicação, a duvida continua a ser como copio os dados e reinstalar a aplicação. Mais uma vez

    Salve seu aplicativo criado em VBA com um nome e "guarde-o" em uma pasta.

    Toda vez que necessitares reinstalar o aplicativo basta copiar e colar. É assim que resolvo pequenos problemas como corrupção do aplicativo.

    Edison

     

    • 5 respostas
  2. Re: Utilizar Webservices da AT

    joaquimpais
    Por joaquimpais,

    Guias dos Açores.

    Desde a mudança de hora quer tive que fazer uma mudança na hora de saída das Guias, tive que acrescentar uma hora para conseguir obter código caso contrário daa sempre hora de saída já passou será apenas considerada uma mera comunicação à AT.

    Eu estou a enviar a hora no Formato ToUniversalTime().

    Já vi aqui no forum que passaram pela mesma situação como resolveram?

    • 7222 respostas
  3. Re: Ideias PAP 12ºAno

  4. Re: Ideias PAP 12ºAno

    s1lva29
    Por s1lva29,

    Boa noite.

    Tenho que apresentar até ao final do mês uma ideia para fazer na PAP (Prova de Aptidão Profissional).

    A PAP consiste em fazer algo (neste caso um programa) e depois apresenta-la a um conjunto de professores.

    Estou no último ano de um curso de Gestão e Programação em Sistemas Informáticos, sendo que a minha nota na disciplina de programação é 19, mas encontro-me sem ideias para realizar o projeto.

    Estou extremamente à vontade com o Visual Basic, mas tenho conhecimentos em c++, c# e HTML, sendo que preferia fazer um programa para o projeto.

    Posso realizar qualquer tipo de projeto, sendo que se quer preferencialmente um programa que tenha utilidade.

    Obrigado :)

    • 1 resposta
  5. Re: Separ números recebidos da serial

    miglaranjeira
    Por miglaranjeira,

    Bom dia,

    Para duas casas decimais:

    Int ( numero_a_truncar* 100 ) / 100
    
    Exemplo
    
    int(0,140*100)/100=0,14

     

    Se o tratamento é apenas da string no text1.text, colaca os nºs numa listbox

    Dim aux As String
    Dim pos, nVirg As Integer
    
    Do
        aux = ""
        pos = 1
        nVirg = 0
        
        If Len(Text1.Text) >= 5 Then
        
            Do
                aux = aux + Mid(Text1.Text, pos, 1)
        
                If Mid(aux, pos, 1) = "," Then nVirg = nVirg + 1
                pos = pos + 1
            Loop Until nVirg = 2
        
                Text1.Text = Mid(Text1.Text, pos - 2, Len(Text1.Text))
                aux = Mid(aux, 1, Len(aux) - 2)
        
                List1.AddItem (aux)
        Else
            List1.AddItem (Text1.Text)
            Exit Do
        End If
        
    Loop 

    Um abraço

     

    • 1 resposta
  6. Re: Separ números recebidos da serial

    Fabio2017
    Por Fabio2017,

    Boa noite!

    Estou utilizando vb6 em uma aplicação recebendo dados da serial,os dados estáo recebendo pelo text1.text o  seguinte formato:

    0,140,450,780,890,560,450,560,250,410,780,620,950,260,150,490,150,460,29

    E preciso separar e mostrar no text2.text apenas no formato 0,14.

    agradecido

    • 1 resposta
  7. Re: For Usado Em Assign

    BHAMF
    Por BHAMF,

    Já resolvi minha questão, obrigado pela dica!

     

    • 2 respostas
  8. Como imprimir algo em Pascal

    BHAMF
    Por BHAMF,

    Observação: Variáveis não declaradas nesta procedures estão declaradas em outra parte do programa.

     

    Estou com uma dúvida sobre como imprimir algo em Pascal, utilizei o seguinte código para um programa que estou fazendo mas a impressora nem deu sinal de que iria imprimir, o código compilou sem nenhum erro. A impressora utilizada era EPSON e era USB.

    código usado: 

     O objetivo era imprimira  dados de um cliente que iria fazer uma viagem.

    procedure impressaoDeDados;
    var
     R : string;
    begin
     clrscr;
     gotoxy(2,2);
     write('Tem certeza que deseja imprimir as informa'#135#228'es do cliente ', cliente.escolha, '?'); // Cliente.escolha é a variável que diz o número do cliente.
     writeln;
     write('S/N: ');
     readln(R);
    
     if (R = 'S') or (R = 's') or (R = 'SIM') or (R = 'Sim') or (R = 'sim') then begin
      writeln;
      write('Imprimindo os dados...'); // Só aparecia a mensagem até aqui, o programa não fechava nem nada.
      writeln;
      PRINTCENTER('Impress'#198'o de informa'#135#228'es do cliente | GDV');
      write(LST, 'Dados do cliente', cliente.escolha, ' da se'#135#198'o/ viagem ', identificacao_ADD_DEL2, '...');
      writeln(LST);
      write(LST, 'Nome do cliente: ', cliente.nome);
      writeln(LST);
      write(LST, 'Telefone do cliente: ', cliente.tel);
      writeln(LST);
      write(LST, 'Data de anivers'#160'rio do cliente: ', cliente.dataAniv);
      writeln(LST);
      write(LST, 'Identidade/CPF do cliente: ', cliente.Ident);
      writeln(LST);
      write(LST, 'Data de ida do cliente: ', cliente.datIda);
      writeln(LST);
      write(LST, 'Data de volta do cliente: ', cliente.DatVLT);
      writeln(LST);
      write(LST, 'Tipo de pagamento efetuado pelo cliente: ', cliente.PagType);
      writeln(LST);
      write(LST, 'Valor do pagamento efetuado pelo cliente: ', cliente.PagVal);
      writeln(LST);
      write(LST, 'Finalizado. GDV ( Gerenciamento de Viagens ).');
      write(LST, #12);
      writeln;
      write('Finalizado. Tecle ENTER.');
      readln;
      clrscr;
      tela_inicial;
     end
      else begin
       if (R = 'N') or (R = 'n') or (R = 'NAO') or (R = 'Nao') or (R = 'nao') or (R = 'N'#199'O') or (R = 'N'#198'o') or (R = 'n'#198'o') then begin
    
       end
        else begin
    
        end;
      end;
    end;
    procedure PRINTCENTER (MENSAGEM : string);
    var
     posicao : BYTE;
    begin
     posicao := 40 + length(MENSAGEM) div 2;
     writeln(LST, MENSAGEM:posicao);
    end;z

    Espero uma ajuda, obrigado desde já! 

    Brasil, 21:07 | 23/09/2017 (Horário de Brasília) 

    • 0 respostas
  9. Re: Criação de um programa

    julio a
    Por julio a,
    Em Saturday, January 14, 2017 às 12:22, tiagomsmslb disse:

    Bom dia, foi-me proposto um trabalho em assembly, o qual tem que percorrer um texto e no fim apresentar o número total de caracteres que compõem esse texto; número de letras minúsculas (sem acentos, ASCII puro); e por fim, número total de caracteres ASCII não representáveis. Agradeço desde já quem puder ajudar.

    Boa noite a todos. Nao sei se esse é o sitio certo. Sera que algum colega tem o disquete que acompanha o livro -- assembly puro e simples de vasco correia veloso. Qual o conteudo desse disco ?? Julio praiaclube@msn.com 

    • 19 respostas
  10. Re: Criar tabelas

    M6
    Por M6,

    Na tabela produtos registas os produtos, as batatas, feijões, etc..
    Na tabela produtos_armazem registas o id do armazém, o id do produto e a quantidade que existe desse produto nesse armazém.

    Um modelo desses pode funcionar de duas formas, ou tens apenas a quantidade atual existente do produto no armazém na tabelas produto_armazem, ou registas os movimentos de entrada e saída, situação na qual obténs um histórico de movimentos e fazendo um SUM obténs a quantidade atual. Também podes ter esta segunda opção tendo um desdobramento da solução com mais uma tabela onde registas os movimentos.

    • 3 respostas
  11. Re: Formulário autocomplete com PDO

    mikeysantana
    Por mikeysantana,
    Em 22/09/2017 às 14:07, M6 disse:

    Tens aqui dois exemplos "crús":

    e aqui um exemplo com JQuery (que recomendo mas que requer que já saibas alguma coisa de JQuery):

    Ok! Obrigado!

    • 6 respostas
  12. Re: Como fazer stream de um filme por torrent em C#?

    Matheus3693
    Por Matheus3693,

    Olá estou querendo fazer a mesma coisa me chama no email ou no whatsapp

    email: matheusmilitao@winfit.com.br

    whatsapp: 31996508625

     

    • 1 resposta
  13. Re: What the Commission found out about copyright infringement but ‘forgot’ to tell us

    Virneto
    Por Virneto,

    Isto é muito interessante.

    Citação

    This study aims to answer the following two main research questions:

    1. How do online copyright infringements affect sales of copyrighted content?

    2. How much are online copyright infringers willing to pay for copyrighted content?

     Embora das questões do estudo a resposta à primeira seja algo surpreendente (se bem que não li as 300 páginas)... já a resposta à segunda questão parece-me óbvia. :-)

    Q 1:

    Citação

    In general, the results do not show robust statistical evidence of displacement of sales by online copyright infringements. That does not necessarily mean that piracy has no effect but only that the statistical analysis does not prove with sufficient reliability that there is an effect.

    Q 2:

    Citação

    Overall, the analysis indicates that for films and TV-series current prices are higher than 80 per cent of the illegal downloaders and streamers are willing to pay.

    For books, music and games prices are at a level broadly corresponding to the willingness to pay of illegal downloaders and streamers. This suggests that a decrease in the price level would not change piracy rates for books, music and games but that prices can have an effect on displacement rates for films and TV-series.

     

    • 1 resposta
  14. Re: Criar tabelas

    acao
    Por acao,

    Obrigado yoda 

    É igual ao meu último exemplo que por acaso falta la o id do armazém.

    Poďerias dar um exemplo dos registos nas tabelas produtos e produtos_armazém. 

    Cumpts 

    Acao

    • 3 respostas
  15. Re: Criar tabelas

    yoda
    Por yoda,

    Portanto um armazém pode ter vários produtos, e um produto pode ter vários armazéns. Precisas de 3 tabelas.

    Tabela Produtos
    Tabela Produtos_Armazéns
    Tabela Armazéns

    Na tabela do meio ter os ID's das outras duas tabelas apenas, só assim resolves o problema. Chama-se many to many relationship.

    • 3 respostas
  16. Re: Criar tabelas

    acao
    Por acao,

    boa noite

    tenho como objetivo criar tabelas de produtos para gerenciar vários armazéns.

    os produtos saltam de armazém em armazém em qtds diversas.

    ex1:

    tabProdutos: idProduto, idArmazem, nome,  qtd

    (acho que não funciona porque, fico preso a não poder aumentar a qtd de armazens e  é necessário criar registos por produto e armazéns:

    exemplo: 1  armazem1, batatas, 200 .

                    2  armazem3, batatas  0.

                    3 armazem2, batatas, 0

    e depois ir tirando do armazém 1 para os necessários.

    as pesquisas apenas seriam filtradas pelo nome que não é muito consistente.

     

    ou:

    efetuar o registo normal

    exemplo: 1 armazem1, batatas, 200

    quando quero transferir os produtos efetuar novo registo com id do novo armazem e subtrair à qtd do primeiro registo  o valor qtd da transferência.

    ficaria assim:

    exemplo: 1 armazem1, batatas, 150

                   2 armazem2, batatas 50

    penso que funciona mas não o acho muito consistente.

     

    ex2:

    tabProdutosArmazemVirtual: idProdutoArmazemVirtual , nome, qtd

    tabProdutosPorArmazem: IdPodutosPorArmazem, IdProdutoArmazemVirtual, nome, qtd

    (esta opção acho que funciona, é consistente, mas duplico registos.

    quando registo no armazémvirtual tenho logo que dar-lhe um destino, 1 registo na tabProdutosArmazemVirtual  e 1 registo na tabProdutosPorArmazem.)

     

    o que acham, alguém tem opção melhor?

    cumpts

    acao

     

     

    • 3 respostas
  17. Re: Putty (Network error: connection refused)

    Bernasjb888
    Por Bernasjb888,

    Obrigado Dr_Lion. Não cheguei a fazer permissão fazer login pelo o root, mas vi essa opção. E sim concordo que não seja boa politica.

    • 9 respostas
  18. Re: What the Commission found out about copyright infringement but ‘forgot’ to tell us

    Rui Carlos
    Por Rui Carlos,
    Citação

    Does copyright infringement negatively affect legal sales? This is a fundamental question with profound implications on the way copyright and copyright enforcement policy should work.

    In January 2014, the European Commission awarded the Dutch company Ecorys a contract worth €360.000 to conduct a study on the question.

    The 300-page study was delivered to the Commission in May 2015, but was never published. Until today – I have managed to get access to a copy: Estimating displacement rates of copyrighted content in the EU

    The study’s conclusion: With the exception of recently released blockbusters, there is no evidence to support the idea that online copyright infringement displaces sales. [...]

    Fonte: https://juliareda.eu/2017/09/secret-copyright-infringement-study/

    • 1 resposta
  19. Email vs Excel

    Paulorey
    Por Paulorey,

    Andava por entre as minhas folhas excell, a preencher dados referentes a resultados que os meus alunos vão obtendo nas aulas de Educação Física e lembrei-me:

    Era ótimo se os pais pudessem receber, em tempo real, "alguma" informação que vou produzindo nas aulas (como por exemplo peso, altura, IMC, tempos de corridas, etc). de forma a poderem acompanhar a evolução dos seus filhos ao longo do tempo. Pois muita desta informação fica na escola, para tratamentos internos, e eu (como pai também) gostaria de poder acompanhar o meu filho nessas (in)evoluções.

    Há dados, por exemplo o PESO, que no caso de haver necessidade dos enc. de educação acompanharem mais de perto, a forma ideal e mais rápida de o fazerem seria receberem um email sempre que eu fizesse esse registo. Não sendo desta forma, tenho que criar um documento especifico para esse aluno, retirar apenas a informação desse aluno, gravar o documento, abrir email, anexar e enviar...... caminho longo!!

    Sei que tem forma de tornarr este processo mais rápido. Mas o que tenho visto, para mim, é demasiado complexo. Há forma de eu conseguir uma solução para a minha intenção?

    • 0 respostas
  20. Quantas redes é preciso para 16 computadores, utilizando IPs e máscaras?

    Paulo Alexandre
    Por Paulo Alexandre,

    Olá. Com 16 redes e 16 computadores, quantos IP's é preciso? Como é que eu faço para os PC's não conseguirem ver as outras redes?

    • 0 respostas
  1. Ver Mais Actividade
×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade