Ir para conteúdo
Fórum Script Brasil

Graymalkin

Veteranos
  • Total de itens

    8.257
  • Registro em

  • Última visita

Tudo que Graymalkin postou

  1. Graymalkin

    Type Record

    Até onde sei, Delphi não possui execução dinâmica de código, e também não tem instrospecção (ou reflexão) sobre Records. Qualquer um dos dois permitiria fazer o que você quer. De qualquer forma, existe uma certa forma (limitada) de instrospecção sobre atributos de classes (uma função chamada FieldAddress). Apesar de compreender para que ela serve, não sei exatamente como utilizá-la (talvez você tenha sucesso em uma busca no Google). É claro que isso implicaria em você utilizar uma classe ao invés de um record. Abraços, Graymalkin
  2. Graymalkin

    Tserversocket

    Veja essa parte aqui: for(i=0;i<Form->ServerSocket1->Socket->ActiveConnections;i++) { Form->ServerSocket1->Socket->Connections[i]->SendBuf(Buff, Tam); } É só uma palpite, mas ActiveConnections não irá ser alterado a medida que os clientes forem sendo desconectados? Se for esse o caso, pode acontecer dele ser 0 (nenhuma conexão) e "i" ser um outro valor maior que 0, certo? Caso positivo, acredito que o código entraria em um loop infinito, não? Abraços, Graymalkin
  3. Utilize o botão "Responder" e não o botão "Reportar", ok? Sua resposta chegou aqui como uma denúncia: Abraços, Graymalkin
  4. Dessa forma aí você está fazendo uma comparação (que vai retornar True ou False) e está transformando o resultado em um Double... acredito que não seja essa a idéia, né? Acho que o que você quer seria: Private Sub Somatoria() Dim se as double, tri as double, bic as double, pei as double, axv as double, axo as double, abh as double, abv as double, sio as double, siv as double, cxs as double, cxm as double, pam as double, out as double se = cdbl(txtCcSub.Text) tri = cdbl(txtCcTri.Text) bic = cdbl(txtCcBic.Text) pei = cdbl(txtCcPei.Text) axv = cdbl(txtCcAxv.Text) axo = cdbl(txtCcAxo.Text) abv = cdbl(txtCcAxv.Text) abh = cdbl(txtCcAbh.Text) sio = cdbl(txtCcSio.Text) siv = cdbl(txtCcSiv.Text) cxs = cdbl(txtCcCxs.Text) cxm = cdbl(txtCcCxm.Text) pam = cdbl(txtCcPam.Text) out = cdbl(txtCcOutro.Text) txtCcSom.Text = Format(se + tri + bic + pei + axv + axo + abv _ + abh + sio + siv + cxs + cxm + cxm + pam, _ "Standard") End Sub Certo? Abraços, Graymalkin
  5. Graymalkin

    Formulário

    Sim, irá perder. Por isso existem soluções para reajustar os controles de acordo com a resolução. Experimente fazer uma busca aqui e você encontrará posts sobre isso. Particularmente eu sempre faço as janelas para funcionarem em 800x600, por isso nunca me preocupei em reajustar os controles para outras resoluções (qualquer resolução acima dessa vai funcionar, apenas vai ficar "espaço sobrando", o que não é realmente um problema). Abraços, Graymalkin
  6. Graymalkin

    Despertador...

    Fechando então. Abraços, Graymalkin
  7. Você tem certeza de que a pasta de trabalho é realmente a esperada (a que possui esses arquivos)? Você especificou caminhos relativos na origem, porém pode ser que a pasta de trabalho não esteja correta (dê uma olhada nas propriedades do atalho do programa [se não me engano, é em "Iniciar em:" que deve estar a pasta], ou tente abrir o programa pelo Windows Explorer estando na pasta dele [não utilizando o Iniciar -> Executar] e veja se dá certo). É só uma idéia, Abraços, Graymalkin
  8. Como o próprio nome sugere, uma propriedade que pode ser alterada em tempo de execução é justamente um atributo que você pode alterar enquanto o programa está sendo executado. Por exemplo, a propriedade Caption (dos botões, forms, etc.) pode ser alterada em tempo de execução: botao1.Caption := 'novo título'; Existem algumas poucas que não podem ser alteradas assim (ou seja, programaticamente). Obviamente, a propriedade Name é uma delas (e não consigo lembrar de outro exemplo no momento... mas acho que deu pra ter uma idéia, né? ). Abraços, Graymalkin
  9. Graymalkin

    Despertador...

    Nenhuma diferença. Apenas, quem quer que tenha criado o código, preferiu atribuir o valor de Key à uma variável chamada Tecla que foi declarada como sendo visível a toda unit (por isso ela está depois do Implementation). Como essa variável é vista por toda a unit, a última tecla digitada permanece nela e poderia ser acessada por outra função (mas acredito que isso não tem uma utilidade definida, neste caso). Abraços, Graymalkin
  10. Graymalkin

    Abater No Esoque

    A idéia é a do JCMP ou a minha? Se for a dele, você postou o código errado (este daí foi o que eu fiz). Em todo caso, se esse for mesmo o código, repare que Request.Form() vai ter também todos os options buttons que estavam no form da página anterior. Basta você ver qual foi o selecionado. Quanto a pegar os dados do BD, você sabe pelo menos abrir a conexão? Se sim, basta você dar um Execute do tipo: set rs = cn.Execute("SELECT campo_quantidade FROM tabela WHERE campo_codigo=" & id_selecionada) qt = rs.fields("campo_quantidade").value No caso ali, "cn" é um ADODB.Connection e você terá que substituir os nomes dos campos. Fiz isso aí de cabeça, por isso pode estar faltando algo ali, certo? Abraços, Graymalkin
  11. O problema é a função Val() que retorna só a parte inteira. Faça o teste: ? val(15.34) 15 ? val("15,34") 15 Use Cdbl() para transformar o valor em um duplo (double). Abraços, Graymalkin
  12. Graymalkin

    Formulário

    Já tentou mudar a propriedade WindowState para Maximized? Abraços, Graymalkin
  13. Precisando, 'stamos aí. Abraços, Graymalkin
  14. Graymalkin

    Vb E C++

    Essas comparações levam a extensas e inúteis discussões, onde cada qual quer elevar o "ego" da sua linguagem favorita. No entanto, é meio que absurdo querer comparar linguagens com "propósitos" tão diferentes, como é esse caso. Procure aqui no fórum e você achará outras "comparações" desse tipo (todas sem lógica alguma... ). Se você está querendo uma opinião sobre qual das duas deve aprender, meu conselho é tentar ambas e ver qual serve aos seus propósitos. Abraços, Graymalkin
  15. Graymalkin

    Abater No Esoque

    Na tag <form> você pode ter um atributo chamado action no qual você indica qual o script/página que receberá os valores desse form. Dessa maneira, esse script/página é que verificaria isso e retornaria se está acima ou não. Essa página que você descreveu acima teria o seguinte código (nesse caso aqui eu o chamei de teste1.asp): <html> <head> <title>x</title> </head> <body> <form name="frm" method="POST" action="compara.asp"> <input type="text" name="valor" size=20> <input type="submit"> </form> </body> </html> E haveria um arquivo chamado "compara.asp" na mesma pasta, com o seguinte código: <html> <head> <title>x</title> <meta HTTP-EQUIV="refresh" CONTENT="5;URL=teste1.asp"> </head> <body> <% 'aqui você vai ter a parte que abre a tabela e descobre a quantidade no BD '... 'qt = ... 'a linha abaixo obtém a quantidade informada na outra página valor=int(Request.Form("valor")) if valor<=qt then 'aqui você vai descontar do estoque na tabela Response.Write("<p>Ok!</p>") else Response.Write("<p>Valor informado acima do estoque atual!</p>") end if Response.Write("<p>Voltando em 5 segundos...</p>") %> </body> </html> Substitua "teste1.asp" no código acima pelo nome do seu arquivo. Bom, pelo menos eu faria assim. Certo? Abraços, Graymalkin
  16. Graymalkin

    Campo Numerico

    Não bastaria definir "Requerido" como "Não" na estrutura da tabela? Abraços, Graymalkin
  17. Graymalkin

    - Replace -

    Tem que ser um para cada. Ou você pode criar um vetor e utilizar um for...next para não ter que repetir a linha do replace() várias vezes. Abraços, Graymalkin
  18. você citou R$ 300,00, eu apenas sugeri um valor que realmente deveria ser caracterizado e poderia ser escolhido. Leia o título do tópico. Eu quis dizer que nem sempre é a "opinião" que conta, mas sim o mercado. Não sei se isso ficou claro. Abraços, Graymalkin
  19. Bom cada um com sua opniao Mas eu so queria acrescentar que você encontra varios programas pequenos espalhados ae pela net e você compre licenças ai por 10, 20 30 Porque cobrar tanto por um programinha! Porque é um "programinha" feito (a princípio) *exclusivamente* para resolver todos os problemas *do* cliente. Mas, ainda assim fazer um sistema dá trabalho e deve ser valorizado. E, como eu disse acima, você não está fazendo um programa genérico (desses que você encontra por aí), mas sim desenvolvendo uma solução completa para atender todas as necessidades do cliente. Softwares como o Microsoft Office e o Windows é que deveriam ser bem mais baratos (o que não ocorre), já que não são exclusivos para cada cliente. E, o VB ser pirata ou não, não é realmente um fator importante (existem várias ferramentas livres tão boas e funcionais quando o VB). Bom, mas como você disse, cada um com a sua opinião. Apesar de que a faixa de valor apresentada pelo OSJunior é exatamente a mesma que a minha. Abraços, Graymalkin
  20. 30? Eu diria 300... hehehehe... Abraços, Graymalkin
  21. Graymalkin

    Só Para Confirmar...

    Qual a versão do Access utilizada para a criação do arquivo? Já experimentou baixar o arquivo para ver se ele está realmente íntegro? Abraços, Graymalkin
  22. Graymalkin

    Sql

    Ah... pode ser. Eu estava imaginando que você estava usando OLEDB. Se você tiver como trocar, faça a experiência. Abraços, Graymalkin
  23. No caso do DFD, dê uma olhadela aqui: http://w3.ualg.pt/~pventura/ep/aulas_t/dfd.pdf Abraços, Graymalkin
  24. Ah tá, quando eu falei no JUDE (no outro fórum) eu pensei que você queria uma ferramenta de modelagem UML. No caso do DFD, dê uma olhadela aqui: http://w3.ualg.pt/~pventura/ep/aulas_t/dfd.pdf Abraços, Graymalkin
×
×
  • Criar Novo...