Ir para conteúdo
Fórum Script Brasil

ramon

Membros
  • Total de itens

    1.354
  • Registro em

  • Última visita

Tudo que ramon postou

  1. Ok agora me surgiu uma outra duvida é possivel eu definir a frequencia de quantos Hz o monitor vai ficar trabalhando Pois tipo quando eu to nas minhas proiedades de video configurado o monitor para 75 Hz e depois executo o Form ele muda a resoluçao para e tambem a frequencia Mas quando eu fecho o Form ele retorna a resolução mas a frequencia ele n retorna alguém sabe o porque?
  2. ramon

    Icones No Menu

    está mas aeh que está como eu coloco uma figura em vez de colocar o titulo do menu?
  3. ramon

    Smartmenuxp

    Ali no .Add 0, "mnArquivo", smiNone, "&Arquivo" Enves de colocar escrita "Arquivo" tem como eu colocar uma icone?
  4. ramon

    Icones No Menu

    Gostei o smart menu porem gostaria de colocar icones na parte horizontal do menu ous seja no smart menu só tem icones no submenu mas no menu não tem alguém pode me ajudar Tipo este http://www.planetamananger.avaliado.com/menu.jpg
  5. ramon

    Gerador De Contra-senha

    alguém sabe aonde eu encontro um exemplo deste codigo?
  6. ramon

    Reduzir O Codigo

    Como reduzir o codigo abaixo usando em uma função alguém tem alguma ideia? if(teclapressionada==10){ output_bit(PIN_E0,0); escreve_disp(B); for(A=B;A<10;A++){ escreve_disp(A);} output_bit(PIN_E0,1); } if(teclapressionada==11){ output_bit(PIN_E0,0); escreve_disp(B); for(A=B;A<10;A--){ escreve_disp(A); } output_bit(PIN_E0,1); }
  7. ramon

    Gerador De Contra-senha

    alguém sabe aonde eu posso conseguir um gerador de contra senha em PHP Tipo o usuario digita o seu nome e é gerado uma senha Ex: Ramon Lourenco então eu gero uma senha 3fh82-kiut9-kgeq Tipo estes seriais q agente usa para registrar um programa e tal alguém sabe aonde eu posso encontra ou tem algum codigo ae
  8. ramon

    Tela Pisca

    beleza já consegui resolver o problema era o tamanho da imagem eu tinha colocado como 230 Kb e a tela tremia agora reduzi o arquivo para 160 Kb e funciona perfeitamente falou! :P
  9. ramon

    Tela Pisca

    Eaee conseguiu?
  10. ramon

    Tela Pisca

    pera aee Graymalkin você tem 3 partições certo mas nestas partições você tem um outro sistema operacional instalado nela ? Pois claro se você testar em qualquer partição mas se seu SO tiver o Vb instalado ae não pisca. Mas se você inicializar o micro numa outra particao que tenha um outro SO ou o mesmo SO mas sem o vb instalado neste SO ae vai piscara a tela. Tente executar em um outro micro q não tenha e nunca teve o VB instalado e você verá que vai piscar no meu caso em cada particao eu tenho um SO instalado então inicializo o micro em uma outra partição q não tenho o vb instalado e a tela pisca entendeu?
  11. ramon

    Tela Pisca

    Estranho tetsei em dois pcs e o efeito foi o mesmo de piscar a tela Usam o processador da AMD Sei la então Valeu pela sua ajuda
  12. ramon

    Tela Pisca

    já te enviei execute o .exe num outro micro ou paricao q não tenho sido instalado o vb e nem desisntalado
  13. ramon

    Tela Pisca

    mas aee q tah ele pisca uma duas as vezes tres vezes e a carrega a imagem é bem leve e não to usando picturebox é direto no form Me.picture já testei em micro mais rapido e da a mesma coisa já coloquei no evento form_inicialise mas não adiantou sei la o q pode ser?
  14. ramon

    Tela Pisca

    Bom criei um programa e quando eu rodo ele o .exe na partição q tem o vb instalado ele não treme a imagem mais se eu executo na partição q não o vb instalado a imagem no form da uma piscada e depois abre normal. Ae vai uma parte do codigo Private Sub Form_Load() Me.Picture = LoadPicture("data\grama.gif") End Sub alguém sabe se na particao do hd eu tenho que colocar alguma dll ou ocx para resolver este pequeno bug
  15. ramon

    Função

    éh mesmo bom a sua é mais interessante já que reduz bastante o codigo! valeu cara pela força!
  16. ramon

    Função

    Ou então usar a função cdate If CDate(data1) > CDate(data2) Then MsgBox "maior" Elseif CDate(data1) = CDate(data2) then MsgBox "igual" else MsgBox "menor" End If
  17. ramon

    Função

    Existe alguma função q me diga qual data é amior do q a outra Tipo 20/4/2006 1/5/2006 Então eu gostaria de comparar estas duas datas Exemplo bem idiota Ex If 20/4/2006 < 1/5/2006 then Msgbox "Maio é maior do q Abril"
  18. ramon

    Pegar Ip Da Internet

    beleza Ma snão existe outra maneira Ter q abrir o ipconfig gravar num arquivo e depois carregar ele
  19. ramon

    Matriz

    Agora sim Valeu!
  20. ramon

    Qual Modificaçao

    Bah mas que idiota que eu sou mesmo Matou a xarada!
  21. ramon

    Matriz

    mas cada vez q eu fizer um redim o conteud desta matriz não será perdido?
  22. Qual modificaçao eu teria que fazer para o debug.print imprimi-se alem do nome do time imprimi-se tambem os valores dos pontos e saldos de gols juntos alguém pode me ajudar a lterar isso? Dim i As Integer Dim rsDesconectado As ADODB.Recordset Set rsDesconectado = New ADODB.Recordset rsDesconectado.Fields.Append "Time", adChar, 40 rsDesconectado.Fields.Append "Pontos", adInteger rsDesconectado.Fields.Append "SaldoGols", adInteger rsDesconectado.ActiveConnection = Nothing rsDesconectado.CursorLocation = adUseClient rsDesconectado.Open rsDesconectado.AddNew rsDesconectado("Time").Value = "Grêmio" rsDesconectado("Pontos") = 3 rsDesconectado("SaldoGols") = 1 rsDesconectado.AddNew rsDesconectado("Time").Value = "Santástico Futebol Show" rsDesconectado("Pontos") = 9 rsDesconectado("SaldoGols") = 13 rsDesconectado.AddNew rsDesconectado("Time").Value = "Juventude" rsDesconectado("Pontos") = 4 rsDesconectado("SaldoGols") = -3 rsDesconectado.AddNew rsDesconectado("Time").Value = "Caxias" rsDesconectado("Pontos") = 4 rsDesconectado("SaldoGols") = 1 rsDesconectado.Sort = ("Pontos desc, SaldoGols desc") Dim dados() quantidade = 0 With rsDesconectado .MoveFirst Do While Not .EOF ReDim v(.Fields.Count - 1) qt = 0 For Each f In .Fields v(qt) = f.Value qt = qt + 1 Next f ReDim Preserve dados(quantidade) dados(quantidade) = v quantidade = quantidade + 1 .MoveNext Loop End With For Each informação In dados For Each dado In informação Debug.Print Trim(dado) Exit For Next dado B = B + 1 Next informação
  23. Como eu faço pra captar o ip da internet tipo me conecto eu ganho um ip ex 201.35.87.128 Com uma winsock eu so consigo pegar o ip interno.... este eu não quero eu quero o da internet alguém sabe como eu faço isso?
  24. ramon

    Matriz

    Tenho uma matriz e gostaria de definir o seu tamanho atraves de uma variavel. Isso é possivel? tipo Dim A as Byte A= 30 Dim Matriz(A) as Byte Como fazer uma variavel virar uma constante
  25. ramon

    Pedro

    Olha sei la o q houve este post é antigo desconheco o titulo, deve ser um bug do forum se não você mesmo Graymalkin teria comentado sobre o titulo a 2 anos atras hehehe
×
×
  • Criar Novo...