Ir ao conteúdo
  • Cadastre-se

Intrudera6

Membros Plenos
  • Total de itens

    423
  • Registro em

  • Última visita

  • Qualificações

    0%

Reputação

307

Sobre Intrudera6

  • Data de Nascimento 29-06-1964 (54 anos)

Informações gerais

  • Cidade e Estado
    Salvador, BA
  • Sexo
    Masculino

Outros

  • Ocupação
    Eng. Mecânico e de Petróleo
  1. É pouco, se você puder de alguma forma testar a fonte com uma carga eletrônica, ou até com várias resistências de potência em paralelo para forçar a fonte ao limite de corrente (ou mais um pouco), e se possível, observar a tensão num osciloscópio com uma carga severa. Se você tiver uma fonte de bancada, teste também com as tensões perto dos limites. Nunca fiz um teste destes, mas talvez deixando uma semana inteira com a corrente no máximo já seria uma avaliação razoável. Mas o melhor é ver a opinião dos verdadeiros especialistas de como se pode fazer um burn-in efetivo!
  2. A China também fabrica algumas coisas de qualidade e este produto não é o conversor mais barato (não existe almoço grátis). Este em específico eu nunca coloquei a mão (e não dá para garantir), mas tenho um similar que está rodando há vários anos como um conversor de tensão num "nobreak" CC abaixando de 12V para 5V alimentando algumas coisas em 5V. Mas num caso destes é bom realmente espremer ele bastante, e até colocando ele para trabalhar perto dos limites de tensão e corrente e ver como ele se comporta (medir a tensão, temperatura, corrente máxima numa carga eletrônica, riple e etc.), se ele aguentar sem queimar e for capaz de fornecer a corrente informada (ou mais) com estabilidade, normalmente é um bom sinal! Eu também sou meio paranoico com estas fontes, e numa aplicação mais séria é sempre bom ser mesmo!
  3. Tem este conversor DC-DC 24/12V para 5V 3A, ele parece ser bastante robusto. https://www.ebay.com/itm/DC-DC-Converter-Step-Down-Module-12V-24V-to-5V-3A-15W/123259682311?hash=item1cb2d97e07:g:-9oAAOSwtgZb77MJ:rk:59:pf:0
  4. O preço em Salvador (R$ 0,76 por kWh na conta com vencimento em 25 de janeiro de 2019) já é com impostos (ainda tem mais a taxa de iluminação pública de R$ 25,19 e R$ 3,50 de bandeira amarela). E este em São Paulo, quanto fica no total? Parece que a energia ai custa muito mais barato, até nisso a gente é sacaneado pelo governo (e pela empresa de energia Espanhola) e para ter uma energia elétrica bastante precária! A minha conta abaixo para vocês verem o assalto:
  5. Aqui vai o programa em Bascom, no qual eu uso 2 teclas num RTC DS3231 (mesma biblioteca do DS1307 mas uso algumas funções próprias a mais para ter mais controle), mas tem um tempo enorme que não programo em Bascom e não lembro mais direito como funciona! Mas neste caso o Paulo tem toda condição de te ajudar, ele é o rei do Bascom! $regfile = "m328pdef.dat" ' specify the used micro $crystal = 16000000 ' Frequência do Cristal em Hz $loadersize = &H800 ' Bootloader de 2048 bytes $baud = 19200 ' use baud rate $hwstack = 64 ' default use 32 for the hardware stack $swstack = 40 ' default use 10 for the SW stack $framesize = 160 ' default use 40 for the frame space $initmicro Const Valor_prescale = 256 Const Interrupcoes_por_segundo = 100 Const Tempo_aguardando = Interrupcoes_por_segundo * 2 ' Tempo em segundos Const Preload = 65535 - _xtal \(valor_prescale * Interrupcoes_por_segundo) + 1 Const T_acerta_segundos = 60 * 10 ' intervalo de tempo em segundos para acertar o relógio pelo RTC Const T_acerta = Interrupcoes_por_segundo * T_acerta_segundos 'address of Ds3231 Const Ds3231w = &HD0 ' Endereço de escrita do RTC Ds3231 Const Ds3231r = &HD1 ' Endereço de leitura do RTC Ds3231 'configure the scl and sda pins Config Sda = Portc.4 Config Scl = Portc.5 Config I2cdelay = 2 ' para 500 kHz (aproximadamente) Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portc.1 , Rs = Portc.2 Config Lcd = 16 * 2 ' Configurando o LCD Config Pinb.0 = Input ' Configura porta B0 para entrada Config Pinb.1 = Input ' Configura porta B1 para entrada Set Pinb.0 ' Liga resistência interna do AVR (valor é forçado a 1 se não está apertado) Set Pinb.1 ' Liga resistência interna do AVR (valor é forçado a 1 se não está apertado) S2 Alias Pinb.0 ' Define que porta B0 é S2 S1 Alias Pinb.1 ' Define que porta B1 é S1 Buzzer: Config Portd.3 = Output ' Define porta D3 para saída (Buzzer) Buzzer Alias Portd.3 ' Define que porta D3 é Buzzer Config Clock = User ' we use I2C for the clock Config Date = Dmy , Separator = / Timer1_label: Config Timer1 = Timer , Prescale = Valor_prescale ' Valores possíveis para Prescale => 1|8|64|256|1024 On Timer1 Tim1_isr ' Executa rotina Tim1_usr nas interrupções do Timer1 Timer1 = Preload Enable Timer1 Timer0_label: ' usando para sincronismo do buzzer Const Const_timer0 = 193 Config Timer0 = Timer , Prescale = 64 On Timer0 Tim0_isr Timer0 = Const_timer0 Enable Interrupts ' As interrupções são habilitadas ' Fornece o número máximo de dias do mês na variável Global NDias Declare Sub Diasmes(ano_ent As Word , Mes_ent As Byte ) ' Formata a saída com dois dígitos e separador retornando na variável Entrada_Texto Declare Sub Formata(entrada As Byte , Entrada_texto As String * 8 , Complemento As String * 1) Dim Cont As Dword , Cont_ant As Dword Dim Contador As Dword , Contador2 As Dword , Contador_ant As Dword Dim Var1dword As Dword , Var2dword As Dword Dim Var1word As Word , Var2word As Word Dim Var1byte As Byte , Var2byte As Byte Dim Posicao As Byte , Buzzer_aux As Word Dim Acerta As Bit , S1_apertado As Bit , S2_apertado As Bit , Bissexto As Bit Dim Status_teclas As Bit , S1_aux As Bit , S2_aux As Bit , Mostra As Bit Dim Centesimo As Byte , Segundo As Byte , Minuto As Byte , Hora As Byte Dim Dia As Byte , Mes As Byte , Ano As Word , Ano2 As Word , Anoaux As Byte Dim Ndias As Byte Dim Laco As Bit , Buzzer_up As Bit Dim Linha1 As String * 8 , Linha2 As String * 8 , Aux As String * 1 'dim the used variables Dim Lvar1 As Long , Mday As Byte , Bweekday As Byte , Strweekday As String * 10 Dim Strdate As String * 8 , Strtime As String * 8 Dim Bsec As Byte , Bmin As Byte , Bhour As Byte Dim Bday As Byte , Bmonth As Byte , Byear As Byte Dim Lsecofday As Long , Wsysday As Word , Lsyssec As Long , Wdayofyear As Word Dim Temperatura As Single , Temp_msb As Byte , Temp_lsb As Byte Dim Sec_alarme1 As Byte , Min_alarme1 As Byte , Hour_alarme1 As Byte Dim Weekday_alarme1 As Byte , Day_alarme1 As Byte Dim Min_alarme2 As Byte , Hour_alarme2 As Byte Dim Weekday_alarme2 As Byte , Day_alarme2 As Byte Dim Ds3231_control As Byte , Ds3231_control_status As Byte , Ds3231_aging_offset As Byte Contador = 0 Cont = 0 Centesimo = 00 Segundo = 00 Minuto = 30 Hora = 12 Dia = 01 Mes = 01 Ano = 2012 Gosub Pega_hora_rtc Call Diasmes(ano , Mes) Cont_ant = 1 ' força que mostre no LCD Cls Set S1_apertado ' = 1 se o botão esquerdo não foi apertado Set S2_apertado ' = 1 se o botão direito não foi apertado Posicao = 0 Reset Acerta ' = 0 se não está em modo de edição Reset Mostra ' = 1 mostra Temperatura (se o RTC está conectado). Reset Buzzer Reset Buzzer_up Buzzer_aux = 0 Do S1_aux = S1 S2_aux = S2 If S2_aux = 0 Then 'If Buzzer_aux <= 200 Then ' 1/10 de segundo 'If Buzzer_up = 0 Then 'Set Buzzer 'Waitus 125 'Else 'Reset Buzzer 'Waitus 125 'Incr Buzzer_aux 'End If 'Buzzer_up = Not Buzzer_up 'End If If S2_apertado = 1 Then Buzzer_aux = 0 Timer0 = Const_timer0 Enable Timer0 End If 'Set Buzzer 'Waitus 125 'Reset Buzzer 'Waitus 125 Else Disable Timer0 Reset Buzzer Reset Buzzer_up 'Buzzer_aux = 0 End If If S1_aux = 1 And S1_apertado = 1 Then Status_teclas = 0 If Acerta = 0 And S2_aux = 0 Then ' se S2 (botão direito) está apertado mostra Temperatura ou não mostra (permuta) Reset Status_teclas If S2_apertado = 1 Then Reset S2_apertado Mostra = Not Mostra End If Else If Acerta = 0 And S2_apertado = 0 And S2_aux = 1 Then Set S2_apertado End If If Acerta = 0 And S1_aux = 0 Then ' Botão da esquerda (S1=0) apertado entra em modo de edição (Acerta => 1) Reset S1_apertado If Status_teclas < 1 Then Set Status_teclas Contador_ant = Contador ' Começa a contar o tempo até 2 segundos Else Var1dword = Contador - Contador_ant If Var1dword >= Tempo_aguardando Then ' Até ser maior ou igual a 2 segundos Posicao = 1 End If End If Else If Acerta = 0 And Posicao = 1 And S1_aux = 1 Then Set Acerta Set S1_apertado Reset Status_teclas Else If S1_aux = 0 And S2_aux = 1 Then ' Botão da esquerda (S1=0) apertado e Botão da direita (S2=1) não apertado If S1_apertado = 1 Then Reset S1_apertado If Posicao < 6 Then Incr Posicao Else Posicao = 0 Reset Acerta Reset Status_teclas End If End If Elseif S1_aux = 1 And S1_apertado = 0 Then Set S1_apertado End If End If End If End If If Posicao > 0 And Posicao <= 6 Then ' colocar o cursor piscando na posição de edição If Posicao < 4 Then Var1byte = Posicao - 1 Var1byte = Var1byte * 3 Var1byte = Var1byte + 1 Locate 1 , Var1byte ' Linha 1 do LCD Else Var1byte = 6 - Posicao Var1byte = Var1byte * 3 Var1byte = Var1byte + 1 Locate 2 , Var1byte ' Linha 2 do LCD End If Cursor On Blink Else Posicao = 0 Reset Acerta Cursor Off Blink End If Acerta_hora: If S1_aux = 1 Then ' Botão da esquerda (S1=1) não apertado If Posicao > 0 And Acerta = 1 Then If S2_aux = 0 And S2_apertado = 1 Then ' Botão da direita (S2=0) apertado Reset S2_apertado Select Case Posicao Case 1 : If Hora < 23 Then Incr Hora Else Hora = 0 End If Gosub Settime_aux Gosub Mostrahora Case 2 : If Minuto < 59 Then Incr Minuto Else Minuto = 0 End If Gosub Settime_aux Gosub Mostrahora Case 3 : If Segundo >= 30 Then If Minuto < 59 Then Incr Minuto Else Minuto = 0 End If End If Timer1 = Preload Centesimo = 0 Segundo = 0 Gosub Settime_aux Gosub Mostrahora Case 4 To 5 : If Posicao = 4 Then Var1word = Ano Mod 100 If Var1word < 99 Then Incr Ano Else Ano = Ano - Var1word End If Else If Mes < 12 Then Incr Mes Else Mes = 1 End If End If Call Diasmes(ano , Mes) If Dia > Ndias Then Dia = Ndias Gosub Setdate_aux Gosub Mostradata Case 6 : If Dia < Ndias Then Incr Dia Else Dia = 1 End If Gosub Setdate_aux Gosub Mostradata End Select Cont_ant = 0 Elseif S2_aux = 1 And S2_apertado = 0 Then ' Botão da direita (S2=1) não apertado Set S2_apertado End If Elseif S1_apertado = 0 Then Set S1_apertado End If End If Mostra_no_lcd: Dim Segundos_dia As Dword Dim Segundos_dia_ant As Dword Gosub Getdatetime Segundos_dia = Secofday() If Cont_ant <> Cont And Err > 0 Or Err = 0 And Segundos_dia <> Segundos_dia_ant Then If Err = 0 Then Segundos_dia_ant = Segundos_dia End If Cont_ant = Cont If Contador > Contador2 Then Contador2 = Contador + T_acerta ' tempo em segundos para acertar o relogio automaticamente pelo RTC Gosub Pega_hora_rtc ' acerta o relógio interno pelo RTC End If Gosub Mostrahora Gosub Mostradata End If Loop End 'end program _init_micro: Set Ddrc.3 Reset Portc.3 'LCD: R/W low Return ' Fornece o número máximo de dias do mês na variável NDias Sub Diasmes(ano_ent As Word , Mes_ent As Byte ) Local Div4 As Word Div4 = Ano_ent And 3 ' equivalente a Mod 4, e se é maior que 0 não é divisível If Div4 > 0 Then Reset Bissexto Else Set Bissexto Var2word = Ano_ent Mod 400 ' se é maior que 0 não é divisível Var1word = Ano_ent Mod 100 ' se é maior que 0 não é divisível If Var1word = 0 And Var2word > 0 Then Reset Bissexto End If End If If Mes_ent = 2 Then Ndias = 28 + Bissexto Else Var1byte = Mes_ent And &B00001001 If Var1byte = &B00001000 Or Var1byte = &B00000001 Then Ndias = 31 Else Ndias = 30 End If End If End Sub ' ============================================================================== ' Formata a saída com dois dígitos e separador retornando na variável Entrada_Texto Sub Formata(entrada As Byte , Entrada_texto As String * 8 , Complemento As String * 1) If Entrada < 10 Then Entrada_texto = Entrada_texto + "0" End If Entrada_texto = Entrada_texto + Str(entrada) Entrada_texto = Entrada_texto + Complemento End Sub ' ============================================================================== 'only when we use I2C for the clock we need to set the clock date time 'called from datetime.lib Dim Weekday As Byte Getdatetime: I2cstart ' Generate start code I2cwbyte Ds3231w ' Enviando endereço de escrita no Ds3231 I2cwbyte 0 ' Endereço no Ds3231 I2cstart ' Generate start code I2cwbyte Ds3231r ' Enviando endereço de leitura no Ds3231 I2crbyte _sec , Ack I2crbyte _min , Ack ' MINUTES I2crbyte _hour , Ack ' Hours I2crbyte Weekday , Ack ' Day of Week I2crbyte _day , Ack ' Day of Month I2crbyte _month , Ack ' Month of Year I2crbyte _year , Nack ' Year I2cstop If Err = 0 Then ' Err = 0 => não houve erro na leitura no relógio RTC via i2c _sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour) _day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year) Else ' ou usando o relógio via Timer1 _sec = Segundo : _min = Minuto : _hour = Hora _day = Dia : _month = Mes : Var2word = Ano Mod 100 : _year = Var2word End If Return Weekdays: Data "Segunda" , "Terça" , "Quarta" , "Quinta" , "Sexta" , "Sábado" , "Domingo" Setdate: _day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year) I2cstart ' Generate start code I2cwbyte Ds3231w ' Enviando endereço de escrita no Ds3231 I2cwbyte 4 ' Endereço no Ds3231 I2cwbyte _day ' Send Data to dia I2cwbyte _month ' Month I2cwbyte _year ' Yesr I2cstop Return Setdate_aux: Var1word = Ano Mod 100 _year = Var1word _month = Mes _day = Dia Gosub Setdate Return Settime: _sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour) I2cstart ' Generate start code I2cwbyte Ds3231w ' Enviando endereço de escrita no Ds3231 I2cwbyte 0 ' Endereço no Ds3231 I2cwbyte _sec ' Send Data to SECONDS I2cwbyte _min ' MINUTES I2cwbyte _hour ' Hours I2cstop Return Settime_aux: _hour = Hora _min = Minuto _sec = Segundo Gosub Settime Return Getalarme1: I2cstart ' Generate start code I2cwbyte Ds3231w ' Enviando endereço de escrita no Ds3231 I2cwbyte &H07 ' Endereço Alarme1 no Ds3231 I2cstart ' Generate start code I2cwbyte Ds3231r ' Enviando endereço de leitura no Ds3231 I2crbyte Sec_alarme1 , Ack ' Segundos Alarme1 I2crbyte Min_alarme1 , Ack ' Minutos Alarme1 I2crbyte Hour_alarme1 , Ack ' Horas Alarme1 I2crbyte Weekday_alarme1 , Ack ' Dia da Semana Alarme1 I2crbyte Day_alarme1 , Nack I2cstop If Err = 0 Then ' Err = 0 => não houve erro na leitura no relógio RTC via i2c Sec_alarme1 = Makedec(sec_alarme1) : Min_alarme1 = Makedec(min_alarme1) ' Dia do Mês Alarme1 Hour_alarme1 = Makedec(hour_alarme1) : Day_alarme1 = Makedec(day_alarme1) End If Return Setalarme1: Sec_alarme1 = Makebcd(sec_alarme1) : Min_alarme1 = Makebcd(min_alarme1) Hour_alarme1 = Makebcd(hour_alarme1) : Day_alarme1 = Makebcd(day_alarme1) I2cstart ' Generate start code I2cwbyte Ds3231w ' Enviando endereço de escrita no Ds3231 I2cwbyte &H07 ' Endereço Alarme1 no Ds3231 I2cwbyte Sec_alarme1 ' Send Data to SECONDS I2cwbyte Min_alarme1 ' MINUTES I2cwbyte Hour_alarme1 ' Hours I2cwbyte Weekday_alarme1 I2cwbyte Day_alarme1 I2cstop Return Getalarme2: I2cstart ' Generate start code I2cwbyte Ds3231w ' Enviando endereço de escrita no Ds3231 I2cwbyte &H0B ' Endereço Alarme2 no Ds3231 I2crbyte Min_alarme2 , Ack ' Minutos Alarme2 I2crbyte Hour_alarme2 , Ack ' Horas Alarme2 I2crbyte Weekday_alarme2 , Ack ' Dia da Semana Alarme2 I2crbyte Day_alarme2 , Nack ' Dia do Mês Alarme2 I2cstop If Err = 0 Then ' Err = 0 => não houve erro na leitura no relógio RTC via i2c Min_alarme2 = Makedec(min_alarme2) : Hour_alarme2 = Makedec(hour_alarme2) Day_alarme2 = Makedec(day_alarme2) End If Return Setalarme2: Min_alarme2 = Makebcd(min_alarme2) : Hour_alarme2 = Makebcd(hour_alarme2) Day_alarme2 = Makebcd(day_alarme2) I2cstart ' Generate start code I2cwbyte Ds3231w ' Enviando endereço de escrita no Ds3231 I2cwbyte &H0B ' Endereço Alarme2 no Ds3231 I2cwbyte Min_alarme2 ' MINUTES I2cwbyte Hour_alarme2 ' Hours I2cwbyte Weekday_alarme2 I2cwbyte Day_alarme2 I2cstop Return Gettemp: I2cstart ' Generate start code I2cwbyte Ds3231w ' Enviando endereço de escrita no Ds3231 I2cwbyte &H11 ' Endereço Temperatura no Ds3231 I2cstart ' Generate start code I2cwbyte Ds3231r ' Enviando endereço de leitura no Ds3231 I2crbyte Temp_msb , Ack I2crbyte Temp_lsb , Nack I2cstop If Err = 0 Then ' Err = 0 => não houve erro na leitura no relógio RTC via i2c Rotate Temp_lsb , Right , 6 Temperatura = Temp_lsb / 4 Temperatura = Temperatura + Temp_msb End If Return Getstatus: I2cstart ' Generate start code I2cwbyte Ds3231w ' Enviando endereço de escrita no Ds3231 I2cwbyte &H0E ' Endereço do Status no Ds3231 I2cstart ' Generate start code I2cwbyte Ds3231r ' Enviando endereço de leitura no Ds3231 I2crbyte Ds3231_control , Ack I2crbyte Ds3231_control_status , Ack I2crbyte Ds3231_aging_offset , Nack I2cstop Return Pega_hora_rtc: Reset Laco Do Gosub Getdatetime ' Pega a Data e Hora do RTC If Err > 0 Then ' se o RTC não está conectado pula e usa os valores padrão Exit Do End If If _sec <> Segundo And Laco = 1 Then Segundo = _sec : Centesimo = 0 : Minuto = _min : Hora = _hour Dia = _day : Mes = _month : Ano = _year + 2000 Exit Do Else Laco = Not Laco End If Loop Return Mostrahora: 'Home 'Lowerline Locate 1 , 1 If Err = 0 Then Lcd Time$ Else Linha1 = "" Aux = ":" Call Formata(hora , Linha1 , Aux) Call Formata(minuto , Linha1 , Aux) Aux = "" Call Formata(segundo , Linha1 , Aux) Lcd Linha1 ' usando o RTC Ds3231 ou o relógio vai Timer1 End If Return Mostradata: 'Lowerline Locate 2 , 1 If Err = 0 And Mostra = 1 Then Gosub Gettemp End If If Acerta = 0 And Mostra = 1 And Err = 0 Then 'Lcd Str(temperatura) ; " C" ; " " Lcd Fusing(temperatura , "##.##") ; Chr(223) ; "C " Else If Err = 0 Then Lcd Date$ Else Ano2 = Ano Mod 100 Anoaux = Ano2 Linha2 = "" Aux = "/" Call Formata(dia , Linha2 , Aux) Call Formata(mes , Linha2 , Aux) Aux = "" Call Formata(anoaux , Linha2 , Aux) Lcd Linha2 End If End If Return '------------------------------------------------------------------ ' Sub-rotina de timer0, chamada para gerar tons no Buzzer ' Tim0_isr: Timer0 = Const_timer0 If Buzzer_aux <= 200 Then If Buzzer_up = 0 Then Set Buzzer Set Buzzer_up Else Reset Buzzer Reset Buzzer_up Incr Buzzer_aux End If Else Disable Timer0 End If Return '------------------------------------------------------------------ ' Sub-rotina de timer1, chamada 1 vez por segundo ou mais, dependendo da Constante Interrupções_por_segundo ' Tim1_isr: Timer1 = Preload Incr Contador If Centesimo < 99 Then Incr Centesimo Else Centesimo = 0 If Segundo < 59 Then Incr Segundo Else Segundo = 0 If Minuto < 59 Then Incr Minuto Else Minuto = 0 If Hora < 23 Then Incr Hora Else Hora = 0 If Dia < Ndias Then Incr Dia Else Dia = 1 If Mes < 12 Then Incr Mes Else Mes = 1 Incr Ano End If Call Diasmes(ano , Mes) End If End If End If End If Incr Cont End If Return '------------------------------------------------------------------
  6. Aqui em Salvador a energia está custando 0,76 reais por kWh com a Coelba. Onde está custando mesmo este valor 0,35?
  7. @AmigoLegal Não sei porque o pessoal gosta tanto do DS1307, quando existe o DS3231 que é absurdamente mais preciso, tem compatibilidade com o DS1307 na maioria dos comandos e bibliotecas e ainda está custando menos de 1 dólar. Acho difícil que o DS1307 custe muito mais barato que ele! Tenho um programa completo para isso, muito parecido com este que você quer (com algumas diferenças), mas em Bascom para o DS3231 e controlador AVR (Arduino Uno)!
  8. Uma boia de nível baixo (normalmente fechada com chave de nível a mercúrio, nem sei se ainda fazem com mercúrio, mas deve ter similares sem mercúrio) é disparado o melhor método para evitar que a bomba trabalhe em vazio, é só colocar um cabo elétrico comprido e o cabo elétrico da bomba ligado em série com a boia. Mas se você não tem acesso a cisterna, então como você pode dar manutenção na bomba submersa (bomba sapo ou bomba centrifuga submersa)? Explique melhor porque você não tem acesso a cisterna? Eu tenho um conhecimento básico sobre poços, mas pelo visto melhor que o seu, pois uma boia de nível baixo é um equipamento muito conhecido e bastante útil neste tipo de aplicação. Não achei até agora nada sobre estas boias de mercúrio (estou meio sem tempo para ir mais fundo), mas eu já utilizei estas coisas há algumas décadas atrás. Encontrei algumas coisas que podem ser bem uteis e mostra algo parecido que serviria para você. Links e vídeos uteis abaixo. https://www.bombac.com.br/2-superboia adicionado 8 minutos depois Não vi antes de postar. Foi exatamente o que eu utilizei no passado, mas isto foi há mais de 20 anos (hoje não preciso mais disso), não fabricam mais este modelo, tem similares sem mercúrio!
  9. 1/2 off-topic. As multis praticamente não tem P&D no Brasil, fazem a maior parte fora, nas suas matrizes, e é pesquisa e desenvolvimento que gera empregos de qualidade, senão engenheiros só conseguem emprego de capataz de luxo (fiscal de serviço e similares). Então como você gera empregos de qualidade se não for com as estatais ou com as universidades ? Se as multis gerassem empregos, empregos de qualidade, não apenas para operários de baixa qualificação ou capatazes de luxo, eu não teria nada contra! Sei que a reserva de mercado de informática trouxe diversos problemas, eu vivi naquela época, não como Paulo viveu, e sim com usuário de equipamentos, e lembro dos aborrecimentos, mas a gente poderia ter aproveitado a oportunidade e ter desenvolvido de verdade a indústria de componentes para hoje não termos que importar tudo! Lembro que na década de 80 até o início da década de 90 existia também uma politica de substituição de importações (na Petrobras e em outras empresas), que trazia problemas por produtos de menor qualidade, mas pelo menos a gente começou a movimentar a nossa indústria, mesmo que a substituição de importações fosse feita com engenharia reversa (que não deixa de ser uma forma de pirataria, que a China pratica muito), isto estava levando a nossa indústria a se desenvolver, mas ai começaram as reduções de investimentos e as privatizações, que fizeram toda esta indústria nascente morrer. A Engesa, que era importantíssima na área militar, foi deixada falir pelo governo brasileiro (os EUA não deixam uma indústria estratégica morrer), a Engesa foi vítima da redução de gastos militares brasileiros, do calote pelo Iraque, e também sofreu muito com a redução de investimentos da Petrobras, com a sua subsidiaria, a Engex na Bahia, que fabricava ótimas unidades de bombeio, hastes de bombeio, e também muitos componentes do carro de combate Urutu. Foi uma pena ver tudo isso morrer e ver milhares de engenheiros perderem o emprego. Mas agora está muito pior, e com o desmonte da Petrobras estamos vendo o desmonte total da indústria pesada, que no final irradiava empregos de qualidade (engenheiros e técnicos) em todas as direções em muitos outros tipos de industrias, inclusiva na de automação e eletrônica! Vou tentar parar por aqui pois estamos deturpando o tópico do nosso colega, e esta conversa realmente não terá fim se a gente der corda!
  10. Não falar de política as vezes é difícil pois mesmo não gostando a nossa vida depende dela! É, querer ser engenheiro no Brasil é ser masoquista, infelizmente! No passado recente existia a Telebras, a Eletrobras (ainda existe mas hoje é insignificante), a Embraer, a Vale do Rio Doce, a Petrobras (que está sendo privatizada aos pedaços) e por ai vai. Elas investiam muito em P&D, que é o que emprega engenheiros e pesquisadores (de todas as áreas). Mas a nossa industria está sendo toda destruída e junto os nossos empregos! Extrativismo (tirando a de petróleo) e agronegócio praticamente não empregam engenheiros! E para piorar, o governo retirou a obrigação de contratação de conteúdo local no desenvolvimento do pré-sal, o que certamente iria fazer toda a industria progredir, começando pela pesada até as universidades. Todo mundo iria ganhar, mas agora infelizmente só quem vai ganhar são os operadores e os seus países de origem, para a gente vai sobrar apenas os danos ambientais! A Nigéria é um bom exemplo do que acontece nessa situação, e a Noruega é o exemplo de conteúdo local (antes da mudança da lei do pré-sal estavamos neste caminho) como política de desenvolvimento! Isto pode parecer off-topic, mas as privatizações sempre tiveram estes efeitos colaterais indesejados, desempregam engenheiros brasileiros e empregam os estrangeiros (exportando empregos), o que é terrível para todos nós, de todas as engenharias!
  11. @luizfelipecss A COPPE-UFRJ é um lugar com reputação de ensino de qualidade, acho que você está num ótimo lugar para fazer mestrado! Eu não sou da área (meu ramo original é a eng. mecânica e depois o petróleo) mas sempre me interessei pela programação e automação como hobby e no trabalho, e estou sempre tentando aprender com você e com outros como o Paulo e Isadora (não sei se vou conseguir mas tentarei assim mesmo). O controle PWM e controle PID é um dos meu ramos de interesse, e no meu trabalho eu me meto um pouco nesta área, mesmo sem ter todos os conhecimentos necessário (sempre tem quem possa fazer as coisas mais complicadas no trabalho quando necessário) eu tento comer pelas beiradas!
  12. Acho que o nosso colega (autor do tópico) tem muita coisa para ensinar, para mim pelo menos, e talvez consiga aprender um pouco com a gente (com o Paulo pelo menos). Me meti na conversa porque comecei a achar a conversa interessante, e não está parecendo nada com conversa de iniciante, nada mesmo! Comecei a ver uma ótima oportunidade de aprender um pouco (ou muito) com o desenrolar deste tópico! Quem sabe eu retome aos projetos com microcontrolador no decorrer disso! Paulo dei uma congelada no meu tópico do PT100/ESP32, mas em algum momento retomarei. Dei uma tremenda desacelerada por causa das eleições, e ainda não consegui digerir o resultado (acho que vai demorar muito), mas em algum momento posso retomar a vontade de brincar com o ESP32 (estou muito desanimado e desmotivado atualmente para isso)!
  13. Está fazendo mestrado onde e em que universidade? Está fazendo a tese sobre o que ? Pelo início do seu tópico (e título do tópico) você parecia bem iniciante, mas seu nível não é tão básico assim! Você já está entendendo muitas das coisas necessárias para usar bem um microcontrolador! E acrescentando o que Paulo (aphawk) não falou (acho que foi esquecimento porque ele é o rei do Bascom), é interessante baixar o Bascom, tem uma versão gratuita até 4K, no meu caso eu acabei comprando porque não demorou muito para achar 4Kbytes (de código compilado) muito pouco para mim, mas dá para fazer muita coisa com 4K se programar direito!
  14. Se esta tensão fosse real sua placa-mãe já teria ido para o espaço!
  15. Estou dando umas cabeçadas com o Fritzing (que me pareceu o programa mais fácil para eu desenhar o diagrama eletrônico), mas não tem alguns componentes, como por exemplo, o LM4040-DIZ-2.5V (e nem um componente parecido, pensei em adaptar um Zener), e não tem um PT100 (RTD) para eu representar, comecei a definir alguns novos (resistências) mas não terminei por não ter como desenhar todos os componentes. Quando eu conseguir desenhar tudo no Fritzing postarei aqui o circuito! Fui olhar o datasheet do 2N7000 e ele realmente tem uma RDI muito alta (máxima de 5 Ohms), o que no meu caso vai representar mais 50% de energia dissipada no PT100 e no R ref (o que não vai fazer nenhuma diferença no meu caso), e o tempo de chaveamento dele é da ordem dos nanosegundos, o que é perfeito para esta aplicação por ser muito menor que o tempo de 1/60seg! Achei o Fritzing meio complicado de usar (nunca tinha usado ele antes), talvez exista coisa mais fácil e com bem mais opções de componentes. Até pensei em criar nele o LM4040-DIZ-2.5V mas ainda não consegui encontrar onde estão os componentes novos criados pelo usuário para editar em modo texto, acho que se encontrar eu até conseguirei criar alguma coisa mais simples!

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×