edcronos

hum, switchs são os Case certo, vb também tem Obs. eu não faço VB é apenas VBA ( PARA EXCEL) limitado ao programa sobre erros de programação eu já escutei(Li) alguns discursos acalorados sobre goto, gosub e variáveis publicas, nomes de variaveis muito curtos "a maioria com apenas 2 ou 3 letras até mesmo em uma macro de quase 500 linha, umas 50 variáveis de 3 letras , um punhado de Gosub que controla o fluxo e apenas 1 For mas não vou entrar em discussão sobre meu achismo sobre o assunto. Mas como você sairia de um monte de linhas desnecessárias ? For 1 if for 2 if fi for 3 fof 4 for 5 if true --->>>--- pule para o for 3 " no caso a contagem de for 4 e 5 é zerada if false --->>--- pule para o for 1 " no caso a contagem de for 2, 3 , 4 e 5 é zerada eu ainda não descobri uma maneira de se fazer isso facilmente sem usar o goto claro que tem o exit if, exit for ... mas para se sair da cascata seria trabalhoso Até

"Se você fala que vb é de outro mundo, o que eu digo quando vejo os programas em C ?" mas é uma barreira linguística que estou querendo quebrar se bem que para mim é muito mais intuitivo "for n=1 to 10" contar de 1 até 10 e colocar o valor em n, do que for (i=0; i<5; i++) se bem que pelo que vi o C dá muito mais ferramentas e opções para loop arrays e comparações que é o que eu mais gosto de brincar, mas em contra partida de maneira muito mais complexa Bem em vb também desaconselham o uso do goto e do gosub mas é da época que o pessoal programava tipo espaguete como eu faço muito o uso de loops arrays e if then acabo usando o goto para pular todas as instruções quando não são mais necessárias mas explicando o codigo seria mais ou menos isso Ou: <<<Label para o gosub que chama o trecho ouLxO=10 For L = LxO To 1 Step -1 '<<--- for (L = LxO; L >= 1; L--) "acho que seria isso" If ResulFolm(L, 1) <> 2 Then <<-- if (ResulFolm[L][1]<>2) For c = Cid To Cfd '<<---for (c = Cid ; L < Cfd ; L++) v = ColunO(L, c) '<<--- V == ColunO[L][1] If Tipo <> "" Then <<-- if ( Tipo <> "" ) call Convert_tipo( v, Tipo)'é uma função de conversão de valor, "essa não descobri" End If For C2 = 1 To UBound(Comand) '<<---Conta de 1 até o final da array comand, como saber o tamanho de um array ? If v = Comand(C2) Then '<<-- se valor de v = ao valor de comand ResulFolm(L, 1) = 1 'adiciona o valor 1 na array ResulFolm GoTo pula_Ou <<--- pula os loop que não são mais necessários (função (OU) qualquer valor verdadeiro já passa no teste) End If Next Next ResulFolm(L, 1) = 2 <<-- se varrer todas as colunas e não achar algum valor maque como false(valor2) End Ifpula_Ou: Label(badeira) para o goto que pula os loops desnecessarios Next Return retorna para depois do Gosub que chamou estou fazendo uma macro que funciona como o Select do SQL para trabalhar com os dados da minha planilha mas ainda estou perdido nas formulas apesar de conseguir separar as partes

cara não sei em C mas end normalmente é para finalizar algo scanf("%s",&c[i].end); já tive problemas no vba com nomes de funções e variarei que eram iguais a instruções já existentes que eu desconhecia, algumas somente davam erro com certos valores bem posso estar enganado, mas poderia tentar trocar o nome para ende *metendo o nariz em algo que nem sei que cheiro tem

somente por motivo de curiosidade e já me preparando Como ficaria esse tipo de codigo em C ? é vba Ou: '------------------------------------------------------------------- '@Ou(#Data,%Semana,1,2,3) For L = LxO To 1 Step -1 If ResulFolm(L, 1) <> 2 Then For c = Cid To Cfd v = ColunO(L, c) If Tipo <> "" Then call Convert_tipo( v, Tipo)'é uma função de conversão de valor End If For C2 = 1 To UBound(Comand) If v = Comand(C2) Then ResulFolm(L, 1) = 1 ' True GoTo pula_Ou End If Next Next ResulFolm(L, 1) = 2 ' False End Ifpula_Ou: Next ReturnE: '------------------------------------------------------------------------------ Desculpa o uso do Goto , mas ainda não descobri uma maneira de pular todas as linhas quando não forem mais necessárias

não entendi muito bem, e sou péssimo em matematica mas ve se é isso Private Sub btnCalcular_Click() If txta = "" Or txtb = "" Or txtc = "" Then MsgBox ("Todos os campos devem ser preenchidos!!!") ElseIf Val(txta) + Val(txtb) < Val(txtc) Or Val(txtc) + Val(txta) < Val(txtb) Or Val(txtc) + Val(txtb) < Val(txta) Then MsgBox ("Triangulo não existe ") ElseIf txta = txtb And txta = txtc Then MsgBox ("Triangulo Equilatero") ElseIf txta = txtb Or txta = txtc Or txtb = txtc Then MsgBox ("Triangulo Isosceles") Else MsgBox ("Triangulo Escaleno") End IfEnd Sub mas eu apliquei val() do vba que converte valor numerico em texto para numero não sei se funciona no VB

Decidi fazer uma varredura completa dos dados para cada parte da formula e adicionar o resultado em, um array a parte, que tem a mesma quantidade de linhas em vez de colocar funções separadas e ter que definir varios atributos a cada vez, fiz numa mesma macro com chamada com Gosub " isso porque eu raciocino melhor assim", depois dependendo se pode separar para funções a parte mas a tradução da formula ainda está me dando uma surra ' simbolos dos comandos $ = plan ! = Setor # = coluna, Coluna do array de dados que vai ser analisada @ = Funções Expl. E,OU,Lin,Col,Retorno,"ou algo assim" % = Tipo 'Expl. If Tipo = "dia" Then Valor = Day(Valor) _ = Retorno "pensei em ter apenas o valor de uma das colunas como resultado para se filtrar outro setor por esse resultado !Despesas,@E(@E(#custo,@>,100,@Ou(#Data,%Semana,1,2,3)),@Ou(#Data,%Dia,1,4,12,31))_#Data,!Entradas seria algo assim : pega o setor !Despesas verifica se na linha na (coluna "#Data" a "%Semana" é igual a ( 1 ou 2 ou 3) e a coluna #custo o valor é maior "@ >" que 100) E (o dia da coluna #Data é igual a 1 ou 4 ou 12 ou 31) SE verdadeiro retorna a linha do Setor !Entradas que a data seja igual mas ainda estou enrolado numa melhor organização da formula e como fazer a leitura dela alguem teria uma ideia de como organizar melhor e como fazer a leitura por nó prioritário da formula?

Ainda quebrando a cabeça com o Filtro "TIPO" Select de SQL mas (feito em vba para o excel) como são varia colunas e milhares de linhas a serem verificadas ficou algo moroso isso porque cada parte da formula tem que ser separada criada array e varrer as colunas de cada linha isso X a quantidade de linhas então pensei em criar um array com a mesma quantidade de linhas do setor a ser filtrado nisso apenas seria necessário definir cada parte da formula 1 vez e varrer todas as linhas do setor e marcar o array de saida com true ou false na proxima parte da formula somente varreria as linhas que fossem true e no final da formula apenas pegaria as linhas que tivessem como true ou até na criação da array do setor se definir uma coluna a mais para colocar o resultado das formulas será uma boa solução, e será que não limitaria a expansão do filtro futuramente ?

Depois de uma boa dor de cabeça e seguindo para a execução do filtro e ser obrigado a mudar a sintaxe novamente me veio a cabeça se não era melhor executar a formula sequencialmente "!Despesas,@E(@Ou(#Data,%Semana,1,2,3,@E(nada,tudo)),@Ou(%Dia,1,4,12,31))" !Despesas>passa o setor para um array @E aciona o operador (E) qualquer valor falso descarta o resto da formula pertencente a ele @Ou Aciona o operador (OU) qualquer valor verdadeiro valida o resto da formula pertencente a ele ... eu consegui fazer um teste de filtragem aqui, mas não estou conseguindo elaborar questões mais complexas, tipo (filtrar a linha do setor se na mesma data o outro setor tiver certo valor) varredura sequencial facilitaria testes mais complexos, mas deixaria mais lento a operação a não ser que eu transformasse os operadores em numéricos e passasse para um array bem o fato é, ainda estou totalmente enrolado com isso

bem acho que defini uma sintaxe apropriada para o que eu quero @E(!Despesas,1,2,3,@Ou(#Data,%Semana,1,2,3),@Ou(%Dia,1,4,12,31))@E(@Ou(!Despesas,#Data,%Semana,1,2,3,@E(nada,tudo)),@Ou(%Dia,1,4,12,31)) fiz uma função para separar as partes da formula 1º pela chave @ e depois por (***) Public Function Contfor(ByVal TextoX As String, Optional ByVal OcorrenciaX As Long) As String Dim pos As Long, Ax As Long, ltx As Long, ax2 As Long lent1 = Len(TextoX) For Ax = 1 To lent1 lety = Mid(TextoX, Ax, 1) If lety = "@" Then pos = pos + 1 If pos = OcorrenciaX Then nucle = 0: ax2 = Ax dd = 0 GoTo tex: End If Next Contfor = "Erro" Exit Functiontex: For Ax = ax2 To lent1 lety = Mid(TextoX, Ax, 1) If lety = "(" Then nucle = nucle + 1: dd = 1 If lety = ")" Then nucle = nucle - 1 If nucle = 0 And dd = 1 Then Contfor = Mid(TextoX, ax2, Ax - ax2 + 1) Exit Function End If Next End Function MsgBox Contfor(@E(@Ou(!Despesas,#Data,%Semana,1,2,3,@E(nada,tudo)),@Ou(%Dia,1,4,12,31)), 2)=@Ou(!Despesas,#Data,%Semana,1,2,3,@E(nada,tudo)) MsgBox Contfor(@E(@Ou(!Despesas,#Data,%Semana,1,2,3,@E(nada,tudo)),@Ou(%Dia,1,4,12,31)), 3)=@E(nada,tudo) MsgBox Contfor(@E(@Ou(!Despesas,#Data,%Semana,1,2,3,@E(nada,tudo)),@Ou(%Dia,1,4,12,31)), 4)=@Ou(%Dia,1,4,12,31) ainda preciso ajeitar alguns pontos importantes como as sub formulas que fazem parte das internas ou externas mas daqui para frente creio ser mais fácil

é , está brabo pensei em deixar do jeito que estava para E e ou mas não acho uma maneira de quebrar a formula e que fique fácil executar por estágios corretos função que separa por estágios em uma array que uso para o antigo e para outras coisas Sub SplitVALArray(ByVal StringsVal As String, ByVal Separador As String, ByRef nomeArrayRetorno) cotin = Split(StringsVal, Separador) ReDim nomeArrayRetorno(1 To UBound(cotin) + 2) For h = 0 To UBound(cotin) v = cotin(h) If IsNumeric(v) = True Then nomeArrayRetorno(h + 1) = Val(v) Else nomeArrayRetorno(h + 1) = v End If NextEnd Sub Dim Comand() Aaaa = "!Despesas(#Data(@E(@Ou(%Semana,1,2,3))(@Ou(%Dia,1,4,12,31)))))" Call SplitVALArray(Aaaa, "(", Comand) ficaria assim: !Despesas --- #Data --- @E --- @Ou --- %Semana,1,2,3)) --- @Ou --- %Dia,1,4,12,31))))) --- pensando agora enquanto escrevo uma nova ideia pode ver como a posição e a simbologia é importante para facilitar a programação " ainda mais para quem sabe quase nada" ""|@E:@Ou(!Despesas,#Data,%Semana,1,2,3): @Ou(%Dia,1,4,12,31)]|""""|@Ou:@E(!Despesas,#Data,%Semana,1,2,3): @Ou(%Dia,1,4,12,31)]|"" = "!,@,#,$,%" ' simbolos dos comandos $ =plan ou BD, !=setor ou tabela, # =coluna,@ =comandos Ainda está difícil separar corretamente, mas já facilita Se a primeira letra for um @ ele separa por ":" no array se varre o array a partir da 2ª e verifica a primeira letra, se for novamente um @ o valor é novamente dividido se for ! define um array de dados do setor se for # define a coluna do setor a ser varrido se for % converte o valor da coluna na função especificada e usa a função de varredura no caso E,Ou se a função retornar true prosegue com a formula senão dependendo se for E ou OU para bem, seguindo com os testes e adaptações

Achar uma sintaxe que facilite está mais difícil do que eu imaginei estou fazendo funções para quebrar a formula estou mudando a sintaxe de acordo para facilitar !Despesas ( @E ( #Data (@ E (@ Ou ( %Semana (1,2,3 ) ),@ Ou (% Dia(1,4,12,31 )))) essa macro é apenas para teste e desenvolvimento das funções e ordem de execução Sub testesdfsadf() Dim Comandx As String, Aaaa As String Aaaa = "!Despesas(@E(#Data(@E(@Ou(%Semana(1,2,3)),@Ou(%Dia(1,4,12,31))))" MsgBox FormulaPart(Aaaa, 1) Comandx = Left(Aaaa, 1) If Comandx = "$" Then Nome_Plan = Mid(Aaaa, 2, Postring(Aaaa, "(", 1) - 2) If Comandx = "!" Then Nome_Setor = Mid(Aaaa, 2, Postring(Aaaa, "(", 1) - 2) If Comandx = "#" Then Nome_Coluna = Mid(Aaaa, 2, Postring(Aaaa, "(", 1) - 2) If Comandx = "@" Then Nome_funcao = Mid(Aaaa, 2, Postring(Aaaa, "(", 1) - 2)End Sub estou fazendo essa para quebrar a formula, mas a sintaxe da formula que está me quebrando Public Function FormulaPart(ByVal FormulaX As String, ByVal OcorrenciaX As Long) As String v = ContLetra(FormulaX, "(", ")") FormulaPart = Left(FormulaX, Postring(FormulaX, ")", v))End Function retorna quantidade de letras da frase com opção de contar até achar uma letra especifica ContLetra("casa","a") =2 ContLetra("casa de ferias","a","s") =1 Public Function ContLetra(ByVal TextoX As String, ByVal LetraX As String, Optional ByVal Ate_Letrab As String) As Long Dim pos As Long, Ax As Long, ltx As Long ltx = Len(LetraX) lty = Len(Ate_Letrab) For Ax = 1 To Len(TextoX) If LetraX = Mid(TextoX, Ax, ltx) Then pos = pos + 1 If Ate_Letrab = Mid(TextoX, Ax, lty) Then ContLetra = pos: Exit Function Next ContLetra = posEnd Function função que retorna a posição de uma letra ou conjunto pela ocorrência Postring("casa","a",2) =4 Public Function Postring(ByVal TextoX As String, ByVal LetraX As String, ByVal OcorrenciaX As Long) As Long Dim pos As Long, Ax As Long, ltx As Long pos = 0 ltx = Len(LetraX) For Ax = 1 To Len(TextoX) If LetraX = Mid(TextoX, Ax, ltx) Then pos = pos + 1 If pos = OcorrenciaX Then Postring = Ax: Exit Function End If Next Postring = 0End Function parece que para não complicar muito vou ter que colocar algumas coisas como obrigatórias

Ola, Fiquei em duvida em onde colocar a pergunta, mas como tem a ver com estrutura Estou fazendo um filtro em VBA que funciona como formulas com E, OU , >= , <= , = ,< , SE no momento somente tem a estrutura de E e OU No caso esse filtro vai funcionar como o select do SQL, trazendo apenas as informações pertinentes Estrutura da planilha se assemelha a um Banco de Dados Abas = BD Setores = Tabelas "limitado em 10" Colunas dos setores = colunas das tabelas "Min=3 colunas [dados] (Mais colunas Fixas [ cod , data , 2 aux ] ), Max =500 colunas (não vi motivo para ter mais)" para o E e o OU usei ":" e ";" como símbolos no caso eu uso um userform com caixas de textos e combo box para escolher a aba e o setor que eu quero filtrar e para onde vai o resultado(qualquer setor da aba ativa) exemplo Ana:Saída:25;1200 vai retornar todas as linhas do setor escolhido que tenha( (Ana "E" Saída) "E" (25 "OU" 1200 )) no excel seria =E("Ana";"Saída";Ou(25;1200)) agora vou refazer o filtro e deixar mais dinâmico e completo Vou adicionar o uso de ( ) para separar conjuntos de regras Pois bem, Não tenho dificuldades para fazer as macros, mas... Que tipo de simbologia usar e que tipo de estrutura usar para não criar conflito entre dados e comandos e ficar fácil de escrever e de entender ? Pensei em usar & para a aba ! para iniciar nomes de setores # para ficar na frente de nomes de colunas e virgula como separador padrão algo como &Controle,!Despesas, #Data, >= , 06/05/2015 : <= , 05/12/2015 filtraria todas as linha do setor Despesas da aba controle em que a coluna Data tivesse valor >= 06/05/2015 E <= 05/12/2015 Certo, seria algo simples se fosse somente isso , mas eu quero colocar alguns comandos para valores fragmentados tipo Filtrar dias da semana que o dia fosse um dia especifico algo como @ para comandos !Despesas, #Data,( @ Semana,1;2;3) : ( @ Dia,1;4;12;31) não sei se ficaria legal e fácil de lembrar a estrutura ainda tem os comandos de estrutura como coluna, linha e retorno @ Se,( !Despesas, #Data,( @ Semana,1;2;3) : ( @ Dia,1;4;12;31) ), @ Lin ,!Renda seria Se dia da semana for ( 1 ou 2 ou 3 ) E o dia for (1 ou 2 ou 12 ou 31) então retorne valor da mesma linha do setor renda @ Se,( !Despesas, #Data, ( @ Semana,1;2) : ( @ Dia,1) : # Tipo, carro ), @ data , ! manutenção retornaria a linha do setor manutenção que tivesse a mesma data carro aparece no setor despesas nos dias de semana 1 ou 2 e que o sia do mes fosse 1 a estrutura da macro eu já sei como fazer mas antes tenho que definir como fica a escrita das "Formulas" o que eu coloquei aí em cima seria apenas uma ideia padrão sem nada definido ainda para a macro eu não tenho duvidas uso arrays loops for next , if then, e funções e macros que já fiz Se alguém que tenha base e que possa me ajudar nessa estruturação Olha, qualquer ajuda é bem vinda, o que eu não quero é ter que ficar remendando depois pode parecer algo bobo mas eu sempre tenho problemas com isso, tudo que eu faço funciona e de maneira bem otimizada, mas acaba ficando uma bagunça só

O problema que eu enfrento é de chamadas, vira e volta eu fico com conexões abertas e/ou dá erro pela falta da conexão no geral não enfrento problemas com o banco de dados, mas pelo projeto ser genérico e ter que se adaptar a planilha criei módulos de comandos para se comunicar ao banco de dados estou ajustando aos poucos para evitar os erros, o difícil é conciliar com outras pendencias que já tenho o acces pelas limitações que eu li não caberia os dados que eu estou querendo , claro que facilitaria não ter que ficar instalando e configurando outros programas, mas sobre comunicação é praticamente a mesma coisa, com ressalva com certos parâmetros que pelo que vi cada banco tem suas particularidades para falar a verdade nem a pergunta que fiz faz sentido

vamos ser sinceros né, é maluquice sim mas como eu me conheço e sei que se não definir algo robusto e que eu goste para iniciar eu logo iria desistir e tem o fato de somente aprender lendo o basico tentar fazer algo e implementar e mudar até funcionar "método de aprendizagem nada otimizado" bem nem seria um banco de dados, seria mais como uma tabela estou definindo um rumo a estrutura de um programa em C e do uso da ide DEV os principais comandos entender a estrutura das variáveis e arrays da linguagem a estrutura dos laços e os tipos de comparação de valores como criar um arquivo para guardar os dados depois disso eu consigo ir brincando mais facilmente e me divertir enquanto aprendo

Ola a todos Estou pensando em aprender a programar em C e para não perder o foco e o interesse tenho que definir um projeto para ir aprendendo e implementando pensei em tentar fazer um banco de dados simples como projeto, não que eu tenha a pretensão de fazer um, é a pena para estudo e aprendizagem Tá, sei, é meio "muita" maluquice começar com algo assim, sendo que não tenho nem base da linguagem C nem da estrutura de um banco de dados mas como tem a ver com meu projeto inicial com o qual aprendi a mexer com excel e vba e estou implementando o postgres como banco de dados vai me fazer ter um maior esfosso na aprendizagem pesquisando aqui sobre a estrutura achei um link com algo para poder ter uma ideia por onde começar "acho que o cara perdeu o interesse pelas criticas aleias" http://www.hardware.com.br/comunidade/banco-desenvolvendo/317794/ então se alguem tiver algo de estruturação e programação em cima do assunto para me passar eu agradeço lembrando que apenas estou tentando aprender, somente vou usar para ter um rumo Até

Enquanto não consigo fazer a programação pelo próprio sql " nada parece ter padrão naquilo, nem os comandos" estou montando o controle do postgres pelo vba mesmo já consigo fazer bastante coisa: criar bd já com um usuario ou sem usuario vinculado "pelo ativo" criar usuario "por algum motivo não consegui excluir pelo vba, mas deve ser pelas associações" listar usuários todos ou apenas conectados criar tabela, listar tabelas inserir coluna inserir valores em colunas buscar valores e alguns intermediários, tipo trocar usuario ativo, trocar banco Mas antes de dar sequencia preciso estruturar os comandos e suas sequencias, pelo menos para conectar e desconectar tipo, eu deixo isoladas para serem chamadas em cascata ou defino já a macro de maneira completa? modo independente firaria sub test() desconecta_sql Call Conecta_Banco("teste", "edcron", "123") MsgBox Tabela_existe("casa")end subdessa forma tem a facilidade de se fazer varias coisas dentro do banco sem precisar ficar definindo o nome do bando usuario e senha para cada ação sendo que a senha vai estar no proprio banco e não no excel e para não dar erro se verifica se o usuario existe tem a possibilidade de em cada ação se ter que entrar todos os dados sub test() if Tabela_existe("casa", "teste", "edcron", "123")=true thenend sub mesmo eu fazendo o controle pelo vba do excel, muitas verificações vai ter que ser pelo sql, tipo se o usuario existe, que tem que ser com permissão de superusuário por isso quero "tentar " criar funções que tenham permissões interna de superusuarios mas que possam ser chamados por qualquer um deles apenas para ter true ou false como retorno

no minimo o pessoal iria te orientar de como escolher uma fonte não tão vagabunda uma fonte chaveada em vez de por transformador chaveadas são Mais leves e estabilizadas, normalmente com proteção contra curtos verificar a qualidade dos fios, isso indica o esmero do fabricante na qualidade de seu produto "se bem que muitos são grossos mas só tem borracha" poderia te aproveitado outra fonte e colocado um controle de tensão --------------------------------------------------------------- mas alguem me tire uma duvida pilhas e baterias tem uma tensão levemente maior que fontes estabilizadas uma bateria 12V fornece uns 13V certo?

mroberto98 também não é assim né existe chinesas e existe "chinesas" eu não levaria qualquer chinesa para casa com uma vai ser só alegrias, e outras até a cabeça vai cair quando chegar em casa e provavelmente essas que ele comprou são da china "nem sei se o brasil fabrica algo hoje em dia"

???R$175 por uma fonte 9V 200mA ???? que roubo é esse? estão pior que o governo você poderia ter procurado uma fonte em outro lugar ou até der montado uma, ou ter comprado de maior corrente para garantir ou até pedido a alguem do forum para te vender uma que ia ser da melhor qualidade e não iria custar isso

com tanto foco em projeto de fontes me deu vontade de montar uma... mas usando apenas as peças que já tenho se vocês puderem ajudar caso a resposta seja sim faço uma garimpada aqui e ver o que dá para aproveitar mas será que dá para usar aqueles multímetros vagabundos como instrumentos fixos da fonte?

no caso dele não parece ter avaria no enrolamento,( ou foi recentemente enrolado ) o bom seria saber a marca e o modelo para tentar encontra fotos ou o esquema eletrico, ou até mesmo se alguem tiver um igual tirar uma foto das ligações.

se eu não me engano deve medir com um multímetro na faixa de resistência mais baixa, o fio que tiver a resistência mais alta para os outros é o comum e cada um dos outros é a derivação de velocidade tem o capacitor de partida, que tem que ver http://feralima2010.blogspot.com.br/2012/01/reparo-de-ventilador-ii-melhorar-o.html http://comandoseletricosii.blogspot.com.br/2013_09_01_archive.html http://eletronico01.blogspot.com.br/2011/08/motor-eletricos.html

O primeiro vídeo-game que eu tive, o meu irmão achou num ferro velho e eu consertei "estava com o regulador de 5V queimado", eu acho que tinha uns 12 ou 13 anos na época e adorava eletrônica. Passava horas e horas dias e dias jogando River raid, Enduro, Frostbit e Pitifall tentando chegar no final deles. Cada pessoa pegava um tique diferente pra jogar, uns faziam o controle percorrer quase a sala inteira, outros movimentavam mais o corpo que a própria alavanca e eu balançava um dos pés "pelo menos o meu controle durava bastante (aquelas chapinhas dos contatos colados com durex e aquele plástico que os acionavam eram horríveis)". Bons tempos em que os jogos não eram quebra cabeças ou de matanças com gráficos quase realisticos e que se termina em 3 dias se jogando 2 ou 3 horas por dia. Dá pra se lembrar da emoção que se sentia na época, mas ela não seria a mesma nos dias de hoje em que a gente se acostumou a coisas tão sofisticadas e tão mais modernas. Lembro também do tk95x que eu tive "também consertado" e que tinha que escrever linha por linha em basic ou então gravar em fitas de audio , na época eu me arriscava a fazer alguns programas tipo jogo da velha que por ter poucas jogadas possíveis e eu tinha colocado todas as possibilidades no programa quase nunca dava pra ganhar da maquina, e um jogo tipo 21 que passei uns 2 meses escrevendo a lógica e calculando as posições das cartas tentando usar um pouco de assembly do Z80 ou 81 nem lembro direito, era coisa de maluco aquilo, boa parte dos meus neurônios devem ter cometido suicídio na epoca.

Daria pra fazer com zenês resistores e transistores mais o relé, já fiz para sub tensão que era ligado nos switehs porque eles travavam quando as fontes caiam abaixo de certa tensão. Edit: agora deu vontade de fazer um protetor de sub-tensão e sobre-tensão mas para minha geladeira e freezer, já até pensei no esquema. basicamente 3 transistores, 1 relê, 2 zenes, 2 tripot para ajustes, 1 diodo pra proteger o transistor que aciona o relê 2 capacitares e 2 resistores para o retardo "para não ficar acionando por qualquer variação suportada pelo aparelho" o circuito de fonte para alimentar o circuito, talves um pequeno transformador que também poderia forncer a tensão do sensor.