Motivo
Para começar, cada pessoa vive em um tempo que, infelizmente, não pode ser parado. E já que vivemos neste mundo, vamos acompanhar o tempo e não perder um minuto, desperdiçando-o. Para isso, criei este dispositivo maravilhoso, chamado de relógio .
Vamos começar!
O sol nasceu na rua, desenhei uma placa de circuito e o arranhei em uma máquina de fotocópia para imprimir a placa de circuito.
Em seguida, quem sabe como são feitas as placas de circuito entenderá que transferi o desenho com um ferro para textolite, gravado, enlatado, etc. e aqueles que não sabem - leia na Internet sobre a fabricação de placas de circuito usando o método LUT - (tecnologia de passar a laser).Eu esqueci de gravar o resultado, mas acho que a qualidade será visível no tabuleiro acabado: você
pode ver lugares que não surgiram, mas nada de ruim aconteceu, apenas o aterro ficou para trás.Em seguida, foi necessário soldar os componentes, sobre os quais não vou me debruçar, apenas deixe uma lista deles:- AtTiny2313 - microcontrolador de 8 bits
- ds1307 - contador de chip com boa precisão
- relógio de quartzo a 32.768 kHz
- 2 x 10K resistores
- 7 resistores por 10 ohms
- 1 x resistor de 5,2 kΩ
- 4 resistores por 1 kOhm
- 4 transistores KT315 (seus irmãos modernos)
- Campainha de 5 volts
- 2 botões de relógio (montagem em canto)
- Ânodo comum de 4 indicadores (10011-BSR)
- 47 microfarad tantalum
- e tomada de força e montagem de canto (diâmetro do orifício - 5,1 mm, diâmetro do contato central - 1,5 mm)
E não deixe o comprimento desta lista incomodá-lo, porque montamos o dispositivo há muitos anos e ele deve ser montado no nível adequado!Quem quer ver o quadro do outro lado, aqui está uma foto:
O programa
Como todos os dispositivos, um relógio precisa de um programa. Nesse caso, o programa é escrito em BASIC no BASCOM AVR. Essa linguagem é muito conveniente para programação, pois o código é claro, eficiente e não ocupa muito espaço no microcontrolador. Não comecei a escrever o programa do zero, mas peguei o código-fonte de um artigo no site com um ferro de soldar. Quem estiver interessado encontrará, deixo o código que finalizei aqui:$regfile = "attiny2313.dat"
$crystal = 8000000
Dim Count As Byte
Dim Number(4) As Integer
Dim Pointmem As Byte
Dim Point As Bit
Dim Mine As Byte
Dim Hour As Byte
Dim Seco As Byte
Config Porta.1 = Output
Porta.1 = 1
Waitms 10
Porta.1 = 0
Waitms 70
Porta.1 = 1
Waitms 10
Porta.1 = 0
Config Portb = Output
Config Porta.0 = Output
Config Portd.2 = Output
Config Portd.3 = Output
Config Portd.6 = Output
Config Sda = Portd.5
Config Scl = Portd.4
Config Pind.0 = Input
Portd.0 = 1
Config Pind.1 = Input
Portd.1 = 1
Config Timer1 = Timer , Prescale = 64
On Timer1 Awake:
Config Timer0 = Timer , Prescale = 64
On Ovf0 Refresh
Dig1 Alias Porta.0 : Dig2 Alias Portd.2 : Dig3 Alias Portd.3 : Dig4 Alias Portd.6
Enable Interrupts
Enable Ovf0
Enable Timer1
Start Timer1
Hour = 0
Mine = 0
If Pind.1 = 0 And Pind.0 = 0 Then
Porta.1 = 1
Waitms 100
Porta.1 = 0
Hour = 0
Mine = 0
Seco = 1
Seco = Makebcd(seco)
I2cstart
I2cwbyte &HD0
I2cwbyte 0
I2cwbyte Seco
I2cstop
Mine = Makebcd(mine)
I2cstart
I2cwbyte &HD0
I2cwbyte 1
I2cwbyte Mine
I2cstop
Hour = Makebcd(hour)
I2cstart
I2cwbyte &HD0
I2cwbyte 2
I2cwbyte Hour
I2cstop
Waitms 1000
Porta.1 = 1
Waitms 10
Porta.1 = 0
End If
Do
I2cstart
I2cwbyte &HD0
I2cwbyte &H00
I2cstart
I2cwbyte &HD1
I2crbyte Seco , Ack
I2crbyte Mine , Ack
I2crbyte Hour , Nack
I2cstop
Seco = Makedec(seco)
Mine = Makedec(mine)
Hour = Makedec(hour)
If Seco = 80 Then
Seco = 10
Seco = Makebcd(seco)
I2cstart
I2cwbyte &HD0
I2cwbyte 0
I2cwbyte Seco
I2cstop
End If
If Hour > 9 Then
Number(1) = Hour / 10
Number(1) = Abs(number(1))
Else
Number(1) = 20
End If
Number(2) = Hour Mod 10
If Mine > 9 Then
Number(3) = Mine / 10
Number(3) = Abs(number(3))
Else
Number(3) = 0
End If
Number(4) = Mine Mod 10
If Pind.1 = 0 Then
Porta.1 = 1
Waitms 10
Porta.1 = 0
If Mine = 59 Then
Mine = 0
Else
Incr Mine
End If
Mine = Makebcd(mine)
I2cstart
I2cwbyte &HD0
I2cwbyte 1
I2cwbyte Mine
I2cstop
Else
If Pind.0 = 0 Then
Porta.1 = 1
Waitms 10
Porta.1 = 0
If Hour = 23 Then
Hour = 0
Else
Incr Hour
End If
Hour = Makebcd(hour)
I2cstart
I2cwbyte &HD0
I2cwbyte 2
I2cwbyte Hour
I2cstop
End If
End If
Waitms 250
Loop
Awake:
If Point = 1 Then
Porta.1 = 1
Waitus 10
Porta.1 = 0
End If
Toggle Point
Return
Refresh:
Reset Dig1 : Reset Dig2 : Reset Dig3 : Reset Dig4
Incr Count : If Count > 4 Then Count = 1
If Count = 2 And Point = 1 Then
Pointmem = Number(2) + 10
Portb = Lookup(pointmem , Digits)
Else
Portb = Lookup(number(count) , Digits)
End If
Select Case Count
Case 1 : Set Dig1
Case 2 : Set Dig2
Case 3 : Set Dig3
Case 4 : Set Dig4
End Select
Return
Digits:
Data &B00101000 , &B01111011 , &B00110100 , &B00110010 , &B01100011
Data &B10100010 , &B10100000 , &B00101011 , &B00100000 , &B00100010
Data &B00001000 , &B01011011 , &B00010100 , &B00010010 , &B01000011
Data &B10000010 , &B10000000 , &B00001011 , &B00000000 , &B00000010
Data &B11111111
Mostramos quase 2 kilobytes de código em mícrons e observamos como o dispositivo que acabou de ganhar vida começou a servir a pessoa.Para ser sincero, sinto um prazer incrível pelo fato de poder criar algo que está longe e não está claro para muitos)Parece um dispositivo sem estojo, o farei depois de escrever este artigo:
E assim, o relógio está pronto, mas como funciona? Demonstro isso na primeira metade deste vídeo (não peço uma assinatura ou qualquer outra coisa, apenas o material)Conclusão
Assim, em 2 dias, criei um dispositivo que me mostrará quanto me resta para fazer uma coisa e passar para outra na hora de começar, ou iniciar algo importante.Bem, isso é tudo, graças a quem leu até o fim, o sucesso em seus projetos e, como eles dizem: “cuide de você, 47 anos, e vejo você em outras frequências! QRZ .. "