PowerPoint Presentation:
Microprocessor :Atmega16 Progroming language: basic Software: bascome
HARDWARE::
HARDWARE: IR TRANSMITTER:
PowerPoint Presentation:
IR RECIEVER: Lm324( op _amp): It used for campare and amplify the output amplitude of ir reciever. It circuit work well for 0.5 meter detection range(at my board).
Atmega16::
Atmega16:
For industrial Implementation:
For industrial Implementation Hs0038b usullay is used In industrial Implementation for this projects. Hs0038b is a IR reciever with three pin. It sensor has 10 meter detection range .
PowerPoint Presentation:
Flowchart:
progrome: :
progrome : $regfile = "m16def.dat" $crystal = 1000000 Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.3 , Db6 = Porta.2 , Db7 = Porta.1 , E = Porta.6 , Rs = Porta.5 Config Lcd = 16 * 2 Config Portd.6 = Input Config Portd.5 = Input Dim A As Word Dim B As Word Cls Lcd "ir control" Wait 1 Cls Lcd "number in:" Lowerline Lcd "number out:"
PowerPoint Presentation:
Do Locate 1 , 12 Lcd " " Locate 2 , 12 Lcd " " If Pind.5 = 1 Then A = A + 1 Locate 1 , 12 Lcd A Waitms 500 End If If Pind.6 = 1 Then B = B + 1 Locate 2 , 12 Lcd B Waitms 500 End If Loop End 'end program
PowerPoint Presentation:
END Thanks for your attention