Ir ao conteúdo
  • Cadastre-se

eduzsrj

Membro Pleno
  • Posts

    997
  • Cadastrado em

  • Última visita

Tudo que eduzsrj postou

  1. rsrsrsrs e chega ne esse topico ja rendeu de mais
  2. Em informática existem três tipos principais de dispositivos wireless: 802.11b/g/n: é a utilizada em redes sem fio, compartilhamento de internet, roteadores sem fio, impressoras wireless e até em algumas TVs, alguns blue-rays e outros midia-players. É normalmente designada "wireless", "wi-fi". Requer micro com placa wireless PCI ou USB, e que o dispositivo ou outro micro também tenha. Pode haver várias conexões simultâneas. Bluetooth: utilizada para conectar diversos dispositivos entre si, como micros, celulares, PDAs, fones de ouvido, aparelhos de som, impressora, microfones, mouses, teclados, etc. Chama-se simplesmente conexão "bluetooth". Requer que o dispositivo tenha esse tipo de conexão e que o micro tenha um adaptador bluetooth interno ou USB. Pode-se conectar diversos dispositivos ao mesmo tempo em um unico receptor, e tem grande compatibilidade entre si. Pode funcionar ate 30 ou 100 metros de distancia entre si, dependendo da versao utilizada. Conexão sem fio comum rádio frequência (RF): mais arcaica de todas, basicamente e a mesma tecnologia utilizada nos telefones sem fio antigos, é a utilizada em mouses e teclados sem fio que não sejam bluetooth, possuem um receptor de sinal proprietário, só funciona com o dispositivo com o qual foi vendido. Tem área de atuação muito limitada, geralmente nao podendo passar de 1 a 5 metros, dependendo da qualidade do produto. Você não pode misturar os dispositivos, tipo querer usar bluetooth em um wireless 802.11g, ou um RF no wireless, etc. Quase todos os mouses e teclados sem fio fácilmente encontrados nas lojas são do padrão normal e não BLUETOOTH. Teclados e mouses Bluetooth custam um bocado mais que o equivalente normal (RF).
  3. Alguém tem noticias sobre a sucessora da 5670 na série 6000? nao houvi mais falar de mid-low end na serie 6000 da ati.
  4. voce desligou a controladora na bios? Tem duas coisas que pode estar acontecendo: Se você desabilitou a controladora IDE, pode ser que tenha desabilitado a sata tb. Ve se o "SATA" tá "ENABLED" na bios Ve se está em modo "RAID" se estiver volta para o modo "IDE"
  5. esse mouse da logitec é BLUETOOTH se seu notebook tiver, ele vai funcionar, caso contrário voce precisará comprar um adaptador BLUETOOTH para ele funcionar. A MAIORIA de 99,9% dos mouses e teclados sem fio no brasil são de padrão sem fio norma mas não BLUETOOTH, BLUETOOTH é um protocolo de comunicação requer hardware e programas específicos. Teclados e mouses BLuetooth custam um bocado mais que o equivalente normal.
  6. qualquer roteador funciona voce apenas tem que ter cuidado quando instalar fazer o MAC CLONE (copiar o endereço MAC do seu computador que estava ligado ao modem, para o roteador) para que a net continue a achar que é o seu micro e nao o roteador que está conectado. é mais pratico que ficar ligando pra net pra mudar o MAC registrado.
  7. nao acho que seja possivel mudar a velocidade de leitura, ja que ele nem sequer é reconhecido. algumas tecnologias antigas tem problemas mesmo, assim como certos sons não são capazes de ler CD-R, CD-RW e vários DVDs antigos não leem DVD-R, DVD-RW, etc. O ideal é você nao tentar limpa-lo nem passar pasta de dente, pois você pode danificar de vez o cd rs, isso só é valido quando o problema for da midia e ja nao houver mais o que possa ser feito pra tentar recuperaer. se você conseguir dps upa a imagem desse joguinho ai pra galera baixar rs tb gosto desses classicos.
  8. pode tentar em quaisquer outros micros, mesmo mais novos, porque as vezes é um problema/limitação apenas do seu modelo de leitor de cd/dvd. Se não funcionar mesmo aí você vai ter que procurar um jurássico leitor/gravador de cds. boa sorte
  9. nao tem muito a se fazer pode ser que o CD esteja fisicamente danificado (mesmo que nao visivel a olho nú). Mas pelo que você relata realmente os leitores de dvd atuais estão tendo problema em ler, o lance vai ser você procurar um micro mais antigo ou mesmo um antigo leitor de cds pra ver se consegue ler e transferir para outro cd/dvd/pendrive
  10. Nossa, só demorou 2 anos pra conseguir rsrsrs
  11. qual modelo da fonte OCZ? abre um outro tópico, isso nao é assunto para este
  12. bom em vez de SUB usa uma FUNCTION então você poe na formula = SE(A1 = 1;MINHAFUNC();"") é um jeito
  13. todo mundo fala mal do estabilizador, mas desde quando joguei o meu fora já estou na 3a fonte que compro em 2 anos, coincidência apenas?
  14. Você digita textos com valores frequentemente? Já pensou usar aquela função de valor por extenso no word? Sim, agora você pode escrever valores por extenso no word rapidamente. Então basta salvar a seguinte macro no word: Sub WValorExtenso() ' Selection.MoveLeft unit:=wdWord, Count:=1, Extend:=wdExtend On Error GoTo Erro Selection.MoveStartUntil cset:=" ", Count:=wdBackward Selection.TypeText FormatCurrency(Selection.Text, 2) & " (" & ConverterParaExtenso(Selection.Text) & ")" GoTo Pula Erro: MsgBox "O valor deve ser informado sem ponto e sem 'R$'." & Chr$(10) & "O cursor deve estar imediatamente após o valor." _ & Chr$(10) & "O valor não pode estar em início de parágrafo." & Chr$(10) & _ "Exemplo: 1250,35", vbCritical, "Dados inválidos!" Exit Sub Pula: End Sub Public Function ConverterParaExtenso(NumeroParaConverter As String) As String Dim sExtensoFinal As String, sExtensoAtual As String Dim i As Integer Dim iQtdGrupos As Integer Dim sDecimais As String Dim sMoedaSing As String, sMoedaPlu As String, sCentavos As String, sConector As String Dim bSufMoeda As Boolean Dim vArrCenten As Variant 'Separa os Decimais If InStr(1, NumeroParaConverter, ",") > 0 Then sDecimais = Right(NumeroParaConverter, Len(NumeroParaConverter) - InStr(1, NumeroParaConverter, ",")) NumeroParaConverter = Mid(NumeroParaConverter, 1, InStr(1, NumeroParaConverter, ",") - 1) End If 'Obtém a separação de milhares iQtdGrupos = Fix(Len(NumeroParaConverter) / 3) If Len(NumeroParaConverter) Mod 3 > 0 Then iQtdGrupos = iQtdGrupos + 1 End If 'Chama as funções para escrever o número If iQtdGrupos > 2 Then bSufMoeda = True For i = iQtdGrupos To 1 Step -1 sExtensoAtual = DesmembraValor(NumeroParaConverter, i) If i = 1 Then If sExtensoAtual = "" Then sExtensoFinal = sExtensoFinal & sExtensoAtual Else If sExtensoFinal = "" Then sExtensoFinal = sExtensoFinal & sExtensoAtual Else vArrCenten = Array("cem", "duzentos", "trezentos", "quatrocentos", _ "quinhentos", "seiscentos", "setecentos", "oitocentos", "novecentos") sConector = "" For w = 0 To 8 If Len(NumeroParaConverter) >= 4 And Right(NumeroParaConverter, 2) = "00" _ And sExtensoAtual <> vArrCenten(w) Then sConector = "e " Exit For Next w If Len(NumeroParaConverter) >= 4 And Left(Right(NumeroParaConverter, 3), 1) = "0" Then sConector = " e " If Len(NumeroParaConverter) >= 4 And sExtensoAtual = "cem" Then sConector = " e " sExtensoFinal = sExtensoFinal & sConector & sExtensoAtual End If End If Else sExtensoFinal = sExtensoFinal & sExtensoAtual End If If iQtdGrupos > 2 Then Select Case i Case 1, 2 If sExtensoAtual <> "" Then bSufMoeda = False End If End Select End If Next i 'Define a moeda sMoedaPlu = " reais" sMoedaSing = " real" If bSufMoeda = True Then sMoedaPlu = " de reais" 'Escreve os Centavos sCentavos = EscreveCentavos(sDecimais) 'Adiciona a moeda e os centavos sExtensoFinal = IIf((sExtensoFinal = ""), "", sExtensoFinal & IIf((sExtensoFinal = "um"), sMoedaSing, sMoedaPlu)) _ & IIf((sExtensoFinal = ""), sCentavos, IIf((sCentavos = ""), "", " e " & sCentavos)) 'retorna o resultado sExtensoFinal = Replace(sExtensoFinal, " ", " ", 1, , vbTextCompare) ConverterParaExtenso = Replace(sExtensoFinal, "e e ", "e ", 1, , vbTextCompare) End Function Private Function DesmembraValor(sValor As String, iGrupoDiv As Integer) As String Dim iValor As Integer Dim sExtenso As String Dim iDivResto As Integer Dim iDivInteiro As Integer Dim iPosInicMid As Integer Dim iTamMid As Integer Dim sComplemento As String Dim vArrDez1 As Variant Dim vArrDez2 As Variant Dim vArrCentena As Variant vArrDez1 = Array("", "um", "dois", "três", "quatro", "cinco", "seis", "sete", "oito", "nove", _ "dez", "onze", "doze", "treze", "quatorze", "quinze", "dezesseis", "dezessete", _ "dezoito", "dezenove") vArrDez2 = Array("vinte", "trinta", "quarenta", "cinquenta", "sessenta", _ "setenta", "oitenta", "noventa") vArrCentena = Array("cem", "cento", "duzentos", "trezentos", "quatrocentos", _ "quinhentos", "seiscentos", "setecentos", "oitocentos", "novecentos") 'Pega o Valor a ser escrito e desmembra para o grupo numérico correto iPosInicMid = Len(sValor) - ((3 * iGrupoDiv) - 1) If iPosInicMid <= 1 Then iTamMid = 2 + iPosInicMid Else iTamMid = 3 End If If iPosInicMid < 1 Then iPosInicMid = 1 iValor = CInt(Mid(sValor, iPosInicMid, iTamMid)) Select Case iGrupoDiv Case 2 sComplemento = " mil " Case 3 If iValor = 1 Then sComplemento = " milhão " Else sComplemento = " milhões " End If Case 4 If iValor = 1 Then sComplemento = " bilhão " Else sComplemento = " bilhões " End If Case 5 If iValor = 1 Then sComplemento = " trilhão " Else sComplemento = " trilhões " End If End Select Select Case iValor Case 0 To 19 sExtenso = vArrDez1(iValor) Case 20 To 99 iDivInteiro = Fix(iValor / 10) iDivResto = iValor Mod 10 If iDivResto = 0 Then sExtenso = vArrDez2(iDivInteiro - 2) Else sExtenso = vArrDez2(iDivInteiro - 2) & " e " & vArrDez1(iDivResto) End If Case 100 To 999 iDivInteiro = Fix(iValor / 100) iDivResto = iValor Mod 100 If iDivResto = 0 Then If iDivInteiro = 1 Then sExtenso = vArrCentena(0) 'Cem Else sExtenso = vArrCentena(iDivInteiro) 'inteiro maior que 100 End If Else sExtenso = vArrCentena(iDivInteiro) & " e " Select Case iDivResto Case 0 To 19 sExtenso = sExtenso & vArrDez1(iDivResto) Case 20 To 99 iDivInteiro2 = Fix(iDivResto / 10) iDivResto2 = iDivResto Mod 10 If iDivResto2 = 0 Then sExtenso = sExtenso & vArrDez2(iDivInteiro2 - 2) Else sExtenso = sExtenso & vArrDez2(iDivInteiro2 - 2) & " e " & vArrDez1(iDivResto2) End If End Select End If End Select If sExtenso = "um" And sComplemento = " mil " And Len(sValor) < 7 Then sComplemento = "mil " sExtenso = "" End If smilx = Right(sValor, 6) If sComplemento = " milhão " Then If Left(smilx, 2) = "00" And Right(smilx, 5) <> "00000" Then sComplemento = " milhão e " Else sComplemento = " milhão " End If If sComplemento = " milhões " Then If Right(smilx, 6) = "000000" Then sComplemento = " milhões " Else If Left(smilx, 2) = "00" And Right(smilx, 5) <> "00000" Then sComplemento = " milhões e " Else sComplemento = " milhões " End If End If DesmembraValor = sExtenso & IIf(iValor > 0, sComplemento, "") End Function Private Function EscreveCentavos(sCent As String) As String Dim sExtenso As String Dim iDivResto As Integer Dim iDivInteiro As Integer Dim sComplemento As String Dim vArrDez1 As Variant Dim vArrDez2 As Variant Dim iCent As Integer vArrDez1 = Array("", "um", "dois", "três", "quatro", "cinco", "seis", "sete", "oito", "nove", _ "dez", "onze", "doze", "treze", "quatorze", "quinze", "dezesseis", "dezessete", _ "dezoito", "dezenove") vArrDez2 = Array("vinte", "trinta", "quarenta", "cinquenta", "sessenta", _ "setenta", "oitenta", "noventa") 'Adequando para duas casas decimais iCent = Fix(sCent & String(2 - Len(sCent), "0")) 'Escrevendo Singular ou plural If iCent = 1 Then sComplemento = " centavo" Else sComplemento = " centavos" End If 'Calculando os valores Select Case iCent Case 0 To 19 sExtenso = vArrDez1(iCent) Case 20 To 99 iDivInteiro = Fix(iCent / 10) iDivResto = iCent Mod 10 If iDivResto = 0 Then sExtenso = vArrDez2(iDivInteiro - 2) Else sExtenso = vArrDez2(iDivInteiro - 2) & " e " & vArrDez1(iDivResto) End If End Select EscreveCentavos = IIf(iCent > 0, sExtenso & sComplemento, "") End Function Código da sub WValorExtenso criado por mim. Código da função ConverterParaExtenso obtido em http://www.exceldoseujeito.com.br/2008/12/22/escrever-numero-por-extenso/ com adaptações feitas por mim. Depois é só atribuir um atalho de teclado para ela, por exemplo CTRL+0, da seguinte forma: 1) clique com o botão direito do mouse sobre a faixa de opções e selecione "Personalizar a Faixa de Opções"; 2) Embaixo, à esquerda, clique em Atalhos de Teclado: "PERSONALIZAR"; 3) Na janela que se abrirá, na lista da esquerda, role até embaixo e selecione MACRO; 4) Na lista da direita, selecione WValorExtenso; 5) Entre no campo "Pressione a nova tecla de atalho" e tecle CTRL+0; 6) Tcle ATRIBUIR e, depois, FECHAR. Agora bastará teclar CTRL+0 ao lado de uma valor para formatá-lo e escrevê-lo por extenso automaticamente. Exemplo: O micro vale 1200,00 Resultado: O micro vale R$ 1.200,00 (mil e duzentos reais) (observe que a macro formata o número direitinho e que o cursor deve estar imediatamente após o último dígito do valor antes de teclar CTRL+0) Espero que seja útil para vocês. Att. Eduardo
  15. O micro ficou bem mais silencioso, ou menos barulhento, nao ha silencio total, mas houve reducao sim perceptivel.
  16. Não é over nem ficar ligado direto que queima a fonte, e sim haver variacoes de energia, especificamente a subtensão (diminuição momentanea da energia eletrica, tipo caindo de 127v para 90v, 70v, quando a luzes ficam mais fracas e alguns aparelhos desligam, por exemplo).
  17. Acabei comprando o único desses recomendados que encontrei no rio. O Cooler Master SickleFlow 120 R4-C2R-20AC-GP Preto sem leds. Semana passada tava R$ 35,00, mas hoje consegui por apenas R$ 28,00, quase o preço de um genérico rsrsrsrs. Aproveitei fiz uma "limpa" no meu gabinete, como minha fonte é modular e como o cabo de força IDE so servia para alimentar os cooler, eu tirei ele, conectando o cooler direto na placa-mãe, inclusive o coolerzinho de HD que eu tenho. Também tirei uma 'gambiarra" que fiz aqui com um monte de fios e um controle de ventoinha antigo da Thermaltake. Nossa ficou outra coisa o interior do gabinete. Os fans ligados direto na mobo economiza muitos fios, ainda mais que minha fonte é modular. O RPM dele com o Asus Q-FAN desabilitado ficou em torno de 1960 rpm. Ligando o Q-FAN o rpm baixou para 1400, mesmo assim me parece ter um fluxo de ar suficiente. É bem silencioso, mas não sei ter precisão de o quanto é silencioso, mas é bem mais que o genérico que eu tinha. O único ponto fraco dele é que os buracos dos parafusos não são pré-rosqueados, ou seja, o parafuso encaixa, mas voce tem que fazer forçar para "rosquear" eles, apenas exige mais força para aparafusar eles, e tem que ter cuidado pro parafuso não entrar desalinhado/empenado senão pode quebrar o cooler aí já era. Ele tem 3 pinos e vem com um adaptador para pluga-lo direto numa ponta comum da fonte de alimentacao, bem como com 4 parafusos pra fixação. Amanha de manhã com o silencio total eu vou ligar o micro e perceber se ficou bem silencioso. Obrigado a todos pelas dicas.
  18. se o notebook for novo possivelmente veio com a versao "teste" por 30 dias? Aí voce tem que comprara versao completa para poder ter a chave.
  19. Seu processador não tem VT assistida por hardware (Intel VT-x) Não é mais necessário ter virtualização no processador, a microsoft ja liberou um hotfix pra isso. http://www.guiadohardware.net/noticias/2010-03/4BA2DE89.html
  20. Esses coreanos são maus rsrsrs bem espertinhos olha no RIO voce ja compra ANTEC 520W por 185 reais mesmo preço desse lixo de fonte. Chega a dar pena de quem deixa de comprar uma Antec pra levar uma IceAge. Poxa, que bobeira minha, mas na epoca nao existiam essas antec pore aqui, nem as ocs e corsair CX SXS. Mas hoje em dia é a maior furada. Antec = porsche, ferrari IceAge = cherry cielo eheheheh
  21. pessoal, qual o mais silencioso e eficiente fan 12" disponivel no brasil? grato

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

Ebook grátis: Aprenda a ler resistores e capacitores!

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!