Jimmy 2

Olá. Estou usando File System Object para verificar arquivos em determinado Path, como no exemplo abaixo: Set FSO = CreateObject("Scripting.FileSystemObject") Set ConteudoPath = FSO.Getfolder(“D:\”) Gostaria de gerar um objeto “arquivo” com o último arquivo da coleção de arquivos que tem dentro de ConteudoPath. Sei que posso percorrer todos eles usando as linhas abaixo: For Each ARQ in ConteudoPath.Files Next e após percorrer todos, terei o último, mas gostaria de acessar diretamente o último. Sei a quantidade de arquivos pelo ConteudoPath.Files.COUNT. Tentei algo do tipo: Qtd = ConteudoPath.Files.Count Set ARQ = ConteudoPath.Files.Item(Qtd) Set ARQ = ConteudoPath.Files(Qtd) Ou Debug.Print ConteudoPath.Files.Item(Qtd).Name Debug.Print ConteudoPath.Files(Qtd).Name mas não consegui indexar dessa forma pois dá erro. Se souber como posso fazer esse acesso direto ao enésimo arquivo, sem passar pelos outros, agradeço pela ajuda. A mesma pergunta vale para Subfolders. Jimmy San Juan

Acredito ser possível fazer isso com ajuda de macros. Você pode criar uma macro no evento SELECT, que dependendo da coluna selecionada, se ela for menor que X, congela 3 linhas, se ele for maior que Y, congela 5, se estiver no meio não congela nada. adicionado 39 minutos depois Abra a planilha. Tecle ALT + F11. Deve abrir a janela de desenvolvimento. Na arvore de planilhas que aparece da coluna da esquerda do vídeo, dê um duplo-clique na planilha em questão. Na janela grande, da direita, na parte superior há 2 campos de seleção. O primeiro está escrito (Geral); altere para WorkSheet. O segundo campo deve ser SelectionChange. Devem aparecer as 2 linhas abaixo: Private Sub Worksheet_SelectionChange(ByVal Target As Range) End Sub Incremente para que fique da seguinte forma: Private Sub Worksheet_SelectionChange(ByVal Target As Range) Aux1 = Target.Column 'Pega número da coluna ActiveWindow.FreezePanes = False 'Desliga o congelamento If Aux1 <= 10 Or Aux1 >= 20 Then 'Verifica se irá congelar Aux2 = Application.EnableEvents 'Guarda status dos eventos Application.EnableEvents = False 'Desabilita eventos If Aux1 <= 10 Then Range("A4").Select 'Prepara para congelar 3 linhas If Aux1 >= 20 Then Range("A6").Select 'Prepara para congelar 5 linhas ActiveWindow.FreezePanes = True 'Congela linhas Target.Select 'Seleciona onde estava Application.EnableEvents = Aux2 'Restaura status dos eventos End If End Sub No exemplo acima serão congeladas 3 linhas sempre que a seleção estiver em célula da 1ª (A) à 10ª coluna (J). Para seleção entre as colunas 11ª (K) e 19ª (S), nada é congelado. A partir da coluna 20ª (T), serão congeladas 5 linhas. Essa solução pode tornar a planilha lenta pois sempre que a seleção mudar, o procedimento será executado. Teste pra ver se na planilha real, com uma utilização típica, ela não torna a planilha não usável. Dá pra tentar otimizar a rotina guardando a quantidade de linhas atualmente congeladas em uma variável pública, e só recongelar se houver necessidade, mas teste antes pra ver se da forma acima te atende. Jimmy 2

Olá Faller, Entendi o que disse sobre o DC. Realmente, com minha falta de conhecimento, não havia considerado a possibilidade do multímetro estar medindo DC, mas ser tensão pulsada. Havia pensado apenas no DC sem pulsos. Agora faz sentido! Obrigado. Vou medir agora a frequência. Está vendo? Já está valendo a pena consertar a fonte, mesmo que isso tudo acabe com ela no lixo, pois o conhecimento é o objetivo principal, como eu já havia mencionado. O processo está bem distante de ser apenas uma troca aleatória de componentes, na base da tentativa e erro. Por exemplo, a troca do opto envolveu pesquisa na internet, entendimento de seu funcionamento, publicações de como testá-los, etc. Processo parecido ocorrerá com relação aos transistores de potência, ou ao C.I. oscilador, caso sejam os próximos suspeitos. Essa é a forma que eu escolhi para formar meu conhecimento, e tem funcionado para mim. Obrigado por terem contribuído nesse processo.

Obrigado pelas respostas. Kleber, o modelo é Cooler Master RP-600-PCAR. O objetivo principal é aprender mesmo. Vou pesquisar sobre o que é PFC ativo. Rodrigo, sim, coloquei um clips aberto, fechando o verde e o preto. Faller,o concerto é mais pra aprender mesmo. O que acharam da questão do trafo estar recebendo 320VDC (saída zero por ser entrada DC) e os transistores de potência esquentando muito e rápido? O que pode estar causando a falta de chaveamento? Tem um C.I. de 8 terminais que pelo que vi comanda isso.

Olá a todos!!! Inicio pedindo desculpas pela falta de conhecimento; sou amador e iniciante em eletrônica. O desktop de minha filha foi ligado no 220V com a chavinha em 110V. Estalo e cheiro de queimado. Troquei a fonte e o PC funcionou, mas como trata-se de uma fonte real de 600W, estou tentando recupera-la. É uma Cooler Master RP-600-PCAR. O objetivo primeiro da recuperação é aprender. O segundo também. J Torrou um varistor e seu calor derreteu os terminais de 2 diodos, também abriu o fusível. Troquei tudo e... nada de funcionar. A tensão entra, mas as saídas de 5VDC e 12VDC estão em zero. Na dúvida, troquei os 3 optoacopladores. Deixei ligada e medi a entrada (lado de potência da placa) do trafo principal (o maior). Tá dando 320V DC. Estranhei o fato de ser DC, o que me levou a crer que o defeito está no chaveamento, que não está sendo feito. Percebi que o dissipador dos transistores Toshiba K2908 aqueceu bastante nos 2 minutos em que testei o trafo. PERGUNTA: O fato de ter dado corrente contínua do lado de potência do Trafo indica realmente que há problema no chaveamento? Caso positivo, que componentes tem maior chance de estar com problema, e como posso testar? Ainda não consegui comprar um osciloscópio, mas eu tenho um bom multímetro. Agradeço por qualquer ajuda. Jimmy San Juan

Novidades no caso acima. Mesmo tendo praticamente resolvido o problema com o modo de compatibilidade WIn8, fiz algo que resolveu o problema de vez: coloquei dentro do loop principal o comando DOEVENTS. A vantagem é que quando eu entrava em debug, ao dar play novamente ficava na tela de desenvolvimento VBA. Com esse comando acima, consigo até voltar pra planilha durante a execucão, com o ALT-TAB.

Pessoal, obrigado pelas respostas. O LED é um retangular amarelinho. Não consigo mada mais específico do que isso. Com o gráfico do Sérgio e a corrente média citada pelo aphawk, entendi o porque da queima quando incluí o capacitor. valeu. Não entendi ainda é a questão da corrente. Se eles acenderam bem com corrente medida de 34mA (10 conjuntos em série), e se cada conjunto tem 2 leds em paralelo, porque não posso supor que cada um dos leds acendeu bem com 17mA? Agradeço novamente pelos ensinamentos. Jimmy

Olá Tito, obrigado por ter respondido. Não limitei a corrente por causa do experimento: Liguei 11 conjuntos nos 27VDC e os leds ligaram super fracos, mas quando liguei 10 conjuntos, acenderam com brilho bom,e corrente 34mA. Ou seja, 27VDC seria próximo ao limite inferior de tensão. Calculei que os 22 conjuntos acenderiam com corrente correta se ligados com 60VDC, e duas barras em sérir com 120VDC. Obrigado

Olá Estou estudando Tecnologia em Automação Industrial, com alguns conhecimentos em eletrônica, mas não vastos. Para fins de aprendizado, estive fazendo experiências com 2 lâmpadas tubulares de led (de 60cm) que estavam com a eletrônica queimada, mas com a barra de leds boa Tenho algumas dúvidas que gostaria de tirar com vocês, que são importantes para enriquecer meu conhecimento. Peço desculpas se forem muito básicas. A barra de leds tem 22 duplas de leds. As duplas estão ligadas entre si em série, e cada dupla tem 2 leds em paralelo. Liguei a barra numa fonte DC regulável, na tensão máxima de 27,6V, e fui jumpiando os leds, dupla por dupla, para ir tirando-os da alimentação. Os leds acenderam quando deixei apenas 10 duplas (20 leds), e a corrente que medi foi 34mA. Fiz uma regra de 3, e concluí que para ligar os 22 conjuntos seriam necessários aprox. 60V. Conclui também que se eu ligasse 2 barras de leds em série, nos 127V da tomada, acenderiam bem. Foi o que ocorreu, mas ficaram piscando a 60Hz, o que é natural porque os leds são diodos. Montei uma ponte de 4 diodos, passei a pegar onda rebatida e parou de piscar. Deixei vários minutos ligados sem problemas. Resolvi colocar um capacitor na saída da ponte, para retificar a tensão. Em poucos segundos queimaram 2 leds de cada barra. Perguntas: A) Posso concluir que cada led acende com tensão de 2,7V (27V divididos por 10 conjuntos), e corrente de 17mA (34mA dividido por 2 leds por conjunto)? B ) Se os leds aguentaram a tensão sem retificação, porque não aguentaram após a colocação do capacitor? A tensão de pico, nos 2 casos, não é a mesma? C) Se eu quiser ligar apenas uma barra nos 127V, poderia usar um divisor de tensão? Eu tentei fazer o cálculo dos 2 resistores, mas meus cálculos resultaram em apenas 1 resistor de aprox. 1k8, ligado em série com uma das barras. Isso está correto? D) Para que serve a eletrônica que vem na lâmpada, se 1 resistor poderia fazer a tensão da rede ficar adequada para ligar os leds (se é que poderia!!)? Sei que a eletrônica também é responsável por permitir ligar a lâmpada em 110 ou 220V, mas tem alguma outra função? Agraço pela sua ajuda. Jimmy San Juan

O CTRL+Pause Brake cai no mesmo caso do ESC, ou seja, o WIndows não repassa a tecla para o Excel. Fuçando, acabei fazendo uma mudança que resolveu o problema. Entrei nas propriedades do Excel, e assinalei "Executar este programa em mode de compatibilidade". Coloquei Windows 8, e funcionou. Achei estranho o fato de eu já estar usar Windows 8 (8.1 na verdade). @CasaDoHardware, agradeço pela sua ajuda.

A medida que vou percebendo novos aspectos do problema, vou postando aqui para ajudar a chegar à solução. Coloquei em um ponto de execução da macro, dentro do loop, o comando Rows(1000).Delete que é executado algumas vezes por segundos. O Windows passou a não colocar mais o Excel no status "(Não está respondendo)". Com isso a tecla ESC consegue interromper a execução, e a tela é atualizada. Aparentemente, de alguma forma que desconheço, esses comando indica ao Windows que o Excel está respondendo.

@CasaDoHardware obrigado pela resposta. Percebi algo que agora me faz pensar que o problema está no Windows. Após os 5 segundos, quando a tela do Excel para de ser atualizada e o ESC não interrompe a macro, no título da a janela do Excel aparece "(Não está respondendo)". Aparentemente o Windows é quem coloca o Excel em status de não responde, e fica aguardando ele responder. Imagino que com esse status do Excel, o Windows deixa de passar o que está sendo teclado para o Excel, e assim o Excel não processa o ESC. Pergunto: quais os critérios para o Windows definir que o programa não está respondendo?

Olá, Na época do XP, rodava macros demoradas, que iam dando informações de em que ponto da execução estavam, através de mensagens na barra de status. Em qualquer momento durante a execução, eu podia teclar ESC para interromper ou inspecionar variáveis. Agora uso o Office Plus 2013, e as mensagens na barra de status só aparecem nos primeiros 5 segundos de execução, e o ESC também só consegue interromper a execução nos primeiros 5 segundos. Depois disso, a macro roda normalmente, mas a tela fica congelada, e o ESC não interrompe mais. Se durante o desenvolvimento da macro, sem querer, ela entrar em loop, tenho que encerrar o processo do Excel pelo gerenciador de tarefas. Alguém sabe o que pode estar havendo? Obrigado, Jimmy San Juan

Alguém pode ajudar? Obrigado.

Olá, Ainda uso o Windows XP. Resolvi trocar a letra de acesso de um disco, e para isso dei um clique direito sobre o "Meu Computador", e clique na opção Gerenciar. Abriu o "Gerenciamento do Computador", mas na opção "Gerenciamento de discos" não consta do menu (ver anexo). Alguém pode dar uma luz sobre esse problema? Obrigado, Jimmy San Juan

@diegosoares90 Finalmente consegui comprar e trocar o componente. A fonte voltou a funcionar perfeitamente!! Concluo que o componente, por algum motivo, deixou de subir a resistência, mesmo com a temperatura subindo. Assim, a corrente continuou acima do normal, e a temperatura foi subindo até torrar. Obrigado pela grande ajuda que você me deu. Abraço

Bom dia Diego, Quero te agradecer pela resposta e pelas fotos enviadas. Vou tentar comprar um Fusível PTC de 60V, 0,1A e colocar lá pra ver o que acontece, se bem que quando queima fusível, geralmente o problema é em outro canto. Vamos ver. Obrigado. Jimmy San Juan

@diegosoares90, obrigado pela resposta. Realmente não são muitos, é uma placa simples (uma face), e consigo tirar o esquema, porém, meu interesse no esquema é ver a especificação do componente que queimou, e não o esquema em si. Não tenho conhecimento técnico suficiente para deduzir qual era o componente apenas analisando o esquema.

@Isadora Ferraz, Obrigado pela resposta. Sim, o problema fará aniversário, mas não pretendo comemorar rssss O aniversário pode ser evitado se, seguindo sua ótima sugestão, o amigo @MOR verifique que peça é essa, aproveitando que tem equipamento igual. A da minha placa está torrada e irreconhecível. Você mencionou: Não é possível que um problema na parte de baixa potência (controle de corrente, display, etc), ou seja, na outra placa, cause uma queima de um componente da placa de potência?

Bom dia. Peço a ajuda de vocês para resolver o problema acima. Apesar de muito procurar ainda não encontrei o esquema da fonte variável Minipa MPL-1303. Se alguém tiver, ou souber onde tem, agradeço muito. Valeu, Jimmy San Juan

@MOR, eu resolvi o problema que por muitos meses a minha fonte apresentou. Descobri porque é que a tensão variava tanto. O motivo eu tenho até vergonha de contar, mas pelo bem da comunidade, vamos lá A chave seletora 110/220V na traseira da fonte estava em 220, mas eu a usava em 110. Algum dia, por algum motivo, alterei a chave e não lembrava. Só um detalhe: a variação ocorria apenas no valor apresentado no display, mas medindo pelo multímetro percebia que a tensão estava correta. Conte pra gente se é esse o seu caso, pra eu não passar vergonha sozinho... Agora um componente da placa de potência torrou. Estou procurando alguém que faça o reparo aqui em São Paulo. Alguém pode indicar um técnico? Jimmy San Juan

@Bommu Perneta e @Mestre88, Obrigado pelas respostas. Concluí que não é o trafo. Explico abaixo. A pergunta agora é: esse aparelho tem fusível? Na minha visão de ainda estudante de eletrônica não vi nenhum fusível. Vocês poderiam confirmar isso pelas fotos ou pelo esquema anexos? No esquema PDF a fonte está na página 14 (15ª folha do PDF). Na foto da placa a entrada AC é no conector branco no canto superior direito. O trafo fica naquela clareira a esquerda do CI central. Como concluí que não é o trafo: Peguei o esquema pela indicação do @Bommu Perneta e entendi entre quais terminais há enrolamento. Testes o trafo com base nisso e há condutividade entre os terminais de todos os enrolamentos, e não há entre os terminais que não formam o enrolamento. Assim, concluí que o trafo está bom. Agora vou pesquisar porque não há tensão na saída. É possível que esse teste não seja conclusivo quanto ao trafo estar bom ou não? Obrigado, Jimmy Som Philips MCM1150x-78 esquema.pdf

Olá, Meu Micro System Philips MCM1150X/78 pifou. Desmontei pra limpar a lente do DVD e a placa encostou na carcaça, deu uma faisca e não funcionou mais. Sim, esqueci de desligar da tomada. Pelo que pude medir, há tensão na entrada do trafo mas não há na saída. Seguem fotos do trafo. Tem vários terminais tanto na entrada quanto na saída. PERGUNTAS: 1) como saber quais terminais devo testar, e o valor que devo obter? (meu multímetro mede bobinas) 2) como obter as especificações dele para comprar um outro numa loja de trafos? 3) Alguém tem o esquema desse Micro System? Procurei e não encontrei. 4) O trafo tem uma cinta de cobre em volta dos enrolamentos. Para que serve isso? Obrigado pela ajuda. Jimmy adicionado 1 minuto depois Esqueci os anexos....

@Bcpetronzio, obrigado mais uma vez. Vou fazer o teste pra ver se precisa atenuar, mas caso seja necessário atenuar o sinal, pensei em algo: Poderia colocar um resistor (ou um pot) entre o terra da TV e o terra do conector P2. Se você achar que a ideia pode dar certo, como eu ligaria os 3 terminais do pot? Um no terra da TV, outro no terra do P2... e o terceiro? Jimmy

@Bcpetronzio, Eu tinha conseguido chegar no desenho com o interruptor automático, como mostrado no post que você recomendou, mas não consegui conjuga-lo com o potenciômetro. Ou seja, um esquema que ligue o pot + a interrupção automática. Se eu colocar o pot entre o conector e as saídas da TV, quando o plug estiver desconectados, funcionarão os falantes originais, porém atenuados pelo pot. Este é o problema. Imaginei 2 saídas: 1) Colocar o pot dentro das caixinhas, mas ficaria preso a usar aquelas caixinhas, não podendo trocar para outras ou para um fone de ouvidos. 2) Usar uma chave para comutação manual. Desviaria o sinal para os falantes originais ou para o P2. Nesse caso o pot ficaria entre a chave e o P2 para atenuar o sinal apenas do P2. Quas das 2 você julga melhor? Obrigado Jimmy