Jump to content
Fórum Script Brasil

didex

Membros
  • Posts

    15
  • Joined

  • Last visited

About didex

  • Birthday 06/24/1988

Perfil

  • Gender
    Male

didex's Achievements

0

Reputation

  1. didex

    Validator HTML

    menu window -> results
  2. valeu Raphael... com o onpress também tinha dado certo.... t+
  3. olha deu com o onPress, mas gostaria de ententer porque o onmousedown faz isso, se quiser baixe neste link o meu exemplo : Link Valeuuu
  4. sim, mas usando o onmousedown e o onmouseup, sei que podia fazer um botão mas queria saber se assim há maneira de funcionar....
  5. mas o onmouseDown era pra executar uma ação, como por exemplo abrir um link.
  6. E aeee pessoal...beleza?? Aminha dúvida é a seguinte: Tenho vários mc's no palco, e tenho as ações: _root.mc1.onMouseDown=function { \\instruções } _root.mc1.onMouseUp=function { \\instruções } _root.mc2.onMouseDown=function { \\instruções } _root.mc2.onMouseUp=function { \\instruções } mas quando clico em um mc ele faz a ação dos dois mc's, poderia usar o onrelease mas o onreleaseoutside não funciona da mesma maneira do onmouseup... valeuu...t+
  7. Mas este codigo me retorna os registos da tabela, mas eu queria do banco de dados no geral...
  8. E aeee galera ...beleza??? Eu queria mostrar os ultimos 5 registos adicionados...no banco de dados...tem como? .. valeuuuuuu...
  9. didex

    Phptriad

    Mas tem como atualizar somente o mysql?
  10. didex

    Phptriad

    E aeee galera beleza??? Instalei o phpTriad... mas qual a versão do mysql que é intalado junto? pois estou tentando executar uma query e não está dando... o códgo que estou usando é o seguinte: $conecta = mysql_connect('localhost','',''); $bancodados = mysql_select_db('bd1',$conecta); $pesquisa = "SELECT id, nome FROM tabela WHERE id<(SELECT max(id) FROM tabela);"; $resultado = mysql_query($pesquisa) valeu....
  11. didex

    Ciclo For Invertido

    Fala galera...beleza???? Tem como fazer um ciclo for invertido? Por exemplo, tenho uma matriz(10,10) quero que comece a preecher apartir da matriz(0,10) depois matriz(0,9) e assim por diante. tentei usar assim mas não deu: for x=10 to 0 flwwwwwwwwww
  12. E aeeee cara beleza??? ;) Bom....esse foi o jeito que eu achei mais facil. para escrever um numero por extenso....acho que não existe uma formula no excel para isso, então fiz esse código no vba do excel: Vá no menu "Ferramentas/macro/Editor do Visual Basic". No lado esquedo, escolha a folha em que quer implementar esse código e cole-o. Fiz somente até o 50, para você ter uma ideia, mas claro que você quer trabalhar com numeros maiores, mas ai é só copiar o codigo e apenas alterar o valores. lembrando este código foi implementado na "folha1", caso a sua folha esteja com outro nome tem que altera-lo... Depois me diga se conseguiu.... Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Worksheets("folha1").Range("A1").Value < 20 Then menor_que_dez Else: maior_que_dez End If End Sub Function menor_que_dez() If Worksheets("folha1").Range("A1").Value = 1 Then Worksheets("folha1").Range("b1").Value = "UM" ElseIf Worksheets("folha1").Range("A1").Value = 2 Then Worksheets("folha1").Range("b1").Value = "Dois" ElseIf Worksheets("folha1").Range("A1").Value = 3 Then Worksheets("folha1").Range("b1").Value = "Três" ElseIf Worksheets("folha1").Range("A1").Value = 4 Then Worksheets("folha1").Range("b1").Value = "Quatro" ElseIf Worksheets("folha1").Range("A1").Value = 5 Then Worksheets("folha1").Range("b1").Value = "Cinco" ElseIf Worksheets("folha1").Range("A1").Value = 6 Then Worksheets("folha1").Range("b1").Value = "Seis" ElseIf Worksheets("folha1").Range("A1").Value = 7 Then Worksheets("folha1").Range("b1").Value = "Sete" ElseIf Worksheets("folha1").Range("A1").Value = 8 Then Worksheets("folha1").Range("b1").Value = "Oito" ElseIf Worksheets("folha1").Range("A1").Value = 9 Then Worksheets("folha1").Range("b1").Value = "Nove" ElseIf Worksheets("folha1").Range("A1").Value = 10 Then Worksheets("folha1").Range("b1").Value = "Dez" ElseIf Worksheets("folha1").Range("A1").Value = 11 Then Worksheets("folha1").Range("b1").Value = "Onze" ElseIf Worksheets("folha1").Range("A1").Value = 12 Then Worksheets("folha1").Range("b1").Value = "Doze" ElseIf Worksheets("folha1").Range("A1").Value = 13 Then Worksheets("folha1").Range("b1").Value = "Treze" ElseIf Worksheets("folha1").Range("A1").Value = 14 Then Worksheets("folha1").Range("b1").Value = "Quatorze" ElseIf Worksheets("folha1").Range("A1").Value = 15 Then Worksheets("folha1").Range("b1").Value = "Quinze" ElseIf Worksheets("folha1").Range("A1").Value = 16 Then Worksheets("folha1").Range("b1").Value = "Dezesseis" ElseIf Worksheets("folha1").Range("A1").Value = 17 Then Worksheets("folha1").Range("b1").Value = "Dezessete" ElseIf Worksheets("folha1").Range("A1").Value = 18 Then Worksheets("folha1").Range("b1").Value = "Dezoito" ElseIf Worksheets("folha1").Range("A1").Value = 19 Then Worksheets("folha1").Range("b1").Value = "Dezenove" End If End Function Function trunc(Number As Double, DecPlaces As Integer) As Double trunc = Fix(Number * (10 ^ DecPlaces)) / (10 ^ DecPlaces) End Function Function maior_que_dez() If trunc(Worksheets("folha1").Range("A1").Value, -1) = 20 Then Text = "Vinte" ElseIf trunc(Worksheets("folha1").Range("A1").Value, -1) = 30 Then Text = "Trinta" ElseIf trunc(Worksheets("folha1").Range("A1").Value, -1) = 40 Then Text = "Quarenta" ElseIf trunc(Worksheets("folha1").Range("A1").Value, -1) = 50 Then Text = "Cinquenta" End If If Worksheets("folha1").Range("A1").Value > trunc(Worksheets("folha1").Range("A1").Value, -1) Then num Worksheets("folha1").Range("b1").Value = Text & " e " & num Else: Worksheets("folha1").Range("b1").Value = Text End If End Function Function num() If Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 1 Then num = "UM" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 2 Then num = "Dois" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 3 Then num = "Três" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 4 Then num = "Quatro" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 5 Then num = "Cinco" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 6 Then num = "Seis" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 7 Then num = "Sete" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 8 Then num = "Oito" ElseIf Worksheets("folha1").Range("A1").Value - trunc(Worksheets("folha1").Range("A1").Value, -1) = 9 Then num = "Nove" End If End Function
  13. E aeeee galera.... ;) Será que alguém sabe qual o Limite de Uma matriz no vba??? valeuuuuu....... flwwwwwwwww
  14. didex

    Campos

    Valeu....cara... deu certo..... flwwwwwwwwww.....
  15. didex

    Campos

    E aeee galera.... A minha dúvida é a seguinte: Tenho alguns(bastantes) campos no formulário...teria como fazer um ciclo assim: for x=0 to 20 me.campo(x).value=x next Os nomes dos campos são assim: campo0 campo1 campo2 ...etc. valeuuuuuu....... flwwwwwwwwwwww
×
×
  • Create New...