Graymalkin

Para definir se está "ligado" (verdadeiro) ou não (falso). É apenas uma maneira de poder controlar se o "despertador" vai estar ligado ou não. Lógica Booleana. Um AND entre dois valores lógicos só retornará um valor lógico verdadeiro se *ambos* os valores forem verdadeiros. Aqui (em um dos posts) tem uma explicação básica sobre isso: http://scriptbrasil.com.br/forum/index.php?showtopic=54869 É porque só depois de 1 segundo é que o código do Timer vai ser executado. O que é maior ou menor do que algo é... diferente: = (igual), < (menor), > (maior), <> (diferente). Algumas linguagens representam isso como !=, sendo o ! o símbolo de negação (ou seja, não-igual, o que dá no mesmo). Para anular a tecla digitada. Esse "var" ali tem uma outra conotação. Para mais detalhes, vide tópico: http://scriptbrasil.com.br/forum/index.php?showtopic=58176 Abraços, Graymalkin

Na minha concepção, "argumentos" e "parâmetros" sempre foram sinônimos para a mesma coisa. No caso ali, dois inteiros são os argumentos requisitados pela função. Ou ainda, dois inteiros são os parâmetros que devem ser passados para a função. As duas frases, significam a mesma coisa, em suma. Pode ser que hajam outras conotações, dentro de contextos diferentes, mas eu, pelo menos, desconheço. Abraços, Graymalkin

Sinceramente, nunca vi curso disso não... Abraços, Graymalkin

Seria interessante compartilhar essa solução, se for possível. Abraços, Graymalkin

Qual o seu Windows? Abraços, Graymalkin

strSQL = "SELECT lxCampo FROM lxTabela" rsRecordset.Open strSQL, cn, adOpenStatic, adLockReadOnly If Not rsRecordset.EOF Then For R = 1 To .RecordCount lxVariavel = rsRecordset.Fields("lxCampo").Value Seria isso? Abraços, Graymalkin

Enviar? GET (pegar) é para receber. Para enviar, se não me engano, é PUT (pôr). Abraços, Graymalkin

Exato, tem que ser ">1" porque uma tecla (a segunda) já é a que está sendo digitada e esse código é executado *antes* que ela seja inserida na Combo (ou seja, quando só existe um caracter na combo, então o código é executado). Abraços, Graymalkin

Funcionou aqui no FireFox também. Abraços, Graymalkin

Sem problemas, brother! Precisando, 'stamos aí. Abraços, Graymalkin

Habilite a propriedade ReadOnly (Somente Leitura) dela e você bloqueará as duas coisas (inserção e edição). Abraços, Graymalkin

Existe o Input32X, uma ótima coleção de componentes de entrada de dados, que inclui um controle para entrada de data: http://www.eoliv.com/ Mas, você já experimentou a função IsDate()? Ela retorna se uma data é válida ou não: Debug.WriteLine(IsDate("31/15/2005")) Certo? Abraços, Graymalkin

Acho que não entendi bem... a tarefa de uma função é justamente retornar um valor (é claro, você pode ter uma Function sem retorno, mas para isso existem a Sub). Ou seja, lá no seu form você vai ter algo assim: valor = SuaFunção(parâmetros_da_sua_função) Seria isso? Ou a sua dúvida é como fazer uma função retornar um valor? Abraços, Graymalkin

Qual o erro, exatamente? Abraços, Graymalkin

E o problema ainda é o mesmo ou está diferente? Abraços, Graymalkin

Não esqueça de acrescentar DateUtils na cláusula Uses e use: var agora : TDateTime; hora : integer; retorno : String; begin agora := now; hora := HourOf(agora); case hora of 0..11: retorno := 'Bom dia!'; 12..17: retorno := 'Boa tarde!'; 18..23: retorno := 'Boa noite!'; end; label1.caption := retorno; end; Seria algo assim? Abraços, Graymalkin

Ele trava em algum momento em especial? Em alguma opção que é escolhida? Abraços, Graymalkin

Acho que o jeito mais fácil de fazer isso é alterando na própria consulta: SELECT cad as Cadastro, end as Endereço FROM tabela É claro que aí você vai precisar especificar todos os campos (mas isso é bom, porque as vezes existe um campo ou outro que *não* precisa aparecer para o usuário, então é só não incluí-lo). Abraços, Graymalkin

Mas, realmente não tem... Isso aí é valido só no VB.NET. No entanto, você pode utilizar o evento KeyPress para fazer algo assim: If KeyAscii <> 8 Then If Len(Combo1.Text) > 1 Then KeyAscii = 0 End If End If Abraços, Graymalkin

Não, você só coloca os que você vai preencher. Os de autonumeração *não* devem aparecer nessa lista de campos. Abraços, Graymalkin

Hummm... eu não tinha reparado essa parte do meio. Realmente, é bem legal isso ali, mas também não sei como foi feito... Abraços, Graymalkin

Porque ele estava utilizando MySQL, onde não deve existir essa função DateValue(). Mas, tanto melhor que você tenha conseguido a partir dele. Abraços, Graymalkin

Supondo que você já tenha um DataSet com pelo menos uma tabela, seria algo assim: Dim tabela As DataTable = ds.Tables(0) '1ª tabela do DataSet Dim n As Integer = Rnd() * (tabela.Rows.Count - 1) Msgbox(tabela.Rows(n)("campo")) Onde "ds" é o DataTable. Abraços, Graymalkin

Já tentou preencher sem utilizar binding? Abraços, Graymalkin

Adolfo, acho que você clicou no botão errado, pois o que se segue veio como uma denúncia: Utilize o botão "Responder" ou "Resp. Rápida", para responder a um post, ok? Abraços, Graymalkin