سلام
اینم یکی دیگه از پروژه هایی هست که برای بچه های دانشگاه ساختم
این یک پروژه متر دیجیتال هست با ماژول SRF05 که خیلی هم ارزان قیمت هست درست شده و به زبان بیسیک برنامه این رو نوشتم
قابلیت تغییر مقدار های اندازه گیری شده برای کالیبره کردن سنسور وجود داره
میکرو استفاده شده مگا32 هستش که شما میتونید خودتون از میکرو های دیگه ای هم استفاده کنید
برد مدار چاپی که برای این مدار طراحی شده دقت کنید که ال سی دی که من استفاده کردم جای پایه های نور پشت صفحه این طرف دیگه ال سی دی هست
در کل خیلی جالب و کاربردی هست برای ربات ها و پروژه میتونید بهش اعتماد کنید
این هم لینک تصاویر
http://s5.picofile.com/file/8143958634/15062014031.jpg
http://s5.picofile.com/file/8143958726/15062014030.jpg
http://s5.picofile.com/file/8143959350/wefew.PNG
http://s5.picofile.com/file/8143959384/asfaf.PNG
فایل پی سی بی وشماتیک با التیوم 2013 ضمیمه گردید.
[code=vb]
$regfile = "m32def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Rs = Porta.0 , E = Porta.1 , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5
Config Lcd = 16 * 2
Cursor Off
Cls
Config Pind.4 = Input 'tarife kilid ha
Config Pind.5 = Input
Config Pind.3 = Input
Config Pind.2 = Input
Portd.4 = 1
Portd.5 = 1 ' moghavemate pull up
Portd.3 = 1
Portd.2 = 1
Config Portb.0 = Output
Config Portb.1 = Output
Portb.0 = 1
Portb.1 = 0
Config Portd.7 = Output 'tarife paye haye eco va trig
Config Pind.6 = Input
Dim A As Word 'tarife moteghayer
Dim E As Byte
Dim C As Byte
Readeeprom E , 1 ' khandane hafeze mandegar
Waitms 10
Readeeprom C , 2
Waitms 10
Cls
Locate 1 , 1
Lcd "abbasalifix"
Waitms 5000
Do
Toggle Portb.0
Toggle Portb.1
Pulseout Portd , 7 , C 'ersale pulse
Pulsein A , Pind , 6 , 1 'daryafte pulse
A = A * 4 'dar datasheet formol ra neveshte
A = A / E
Cls
Home
Lcd "distance:" ; A ; "cm"
Locate 2 , 1
Lcd "Cal:" ; E ; "," ; C
Waitms 300
If Pind.5 = 0 Then 'farmane kar ba kelid ha
E = E - 1
Writeeeprom E , 1 'neveshtan dar eprom
Waitms 10 'betrar ast bade kar ba eeprom yek zamane kotah sabr ****m
End If
If Pind.4 = 0 Then
E = E + 1
Writeeeprom E , 1
Waitms 10
End If
If Pind.3 = 0 Then
C = C + 1
Writeeeprom C , 2
Waitms 10
End If
If Pind.2 = 0 Then
C = C - 1
Writeeeprom C , 2
Waitms 10
End If
Loop
End 'end program
[/code]
اینم یکی دیگه از پروژه هایی هست که برای بچه های دانشگاه ساختم
این یک پروژه متر دیجیتال هست با ماژول SRF05 که خیلی هم ارزان قیمت هست درست شده و به زبان بیسیک برنامه این رو نوشتم
قابلیت تغییر مقدار های اندازه گیری شده برای کالیبره کردن سنسور وجود داره
میکرو استفاده شده مگا32 هستش که شما میتونید خودتون از میکرو های دیگه ای هم استفاده کنید
برد مدار چاپی که برای این مدار طراحی شده دقت کنید که ال سی دی که من استفاده کردم جای پایه های نور پشت صفحه این طرف دیگه ال سی دی هست
در کل خیلی جالب و کاربردی هست برای ربات ها و پروژه میتونید بهش اعتماد کنید
این هم لینک تصاویر
http://s5.picofile.com/file/8143958634/15062014031.jpg
http://s5.picofile.com/file/8143958726/15062014030.jpg
http://s5.picofile.com/file/8143959350/wefew.PNG
http://s5.picofile.com/file/8143959384/asfaf.PNG
فایل پی سی بی وشماتیک با التیوم 2013 ضمیمه گردید.
[code=vb]
$regfile = "m32def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Rs = Porta.0 , E = Porta.1 , Db4 = Porta.2 , Db5 = Porta.3 , Db6 = Porta.4 , Db7 = Porta.5
Config Lcd = 16 * 2
Cursor Off
Cls
Config Pind.4 = Input 'tarife kilid ha
Config Pind.5 = Input
Config Pind.3 = Input
Config Pind.2 = Input
Portd.4 = 1
Portd.5 = 1 ' moghavemate pull up
Portd.3 = 1
Portd.2 = 1
Config Portb.0 = Output
Config Portb.1 = Output
Portb.0 = 1
Portb.1 = 0
Config Portd.7 = Output 'tarife paye haye eco va trig
Config Pind.6 = Input
Dim A As Word 'tarife moteghayer
Dim E As Byte
Dim C As Byte
Readeeprom E , 1 ' khandane hafeze mandegar
Waitms 10
Readeeprom C , 2
Waitms 10
Cls
Locate 1 , 1
Lcd "abbasalifix"
Waitms 5000
Do
Toggle Portb.0
Toggle Portb.1
Pulseout Portd , 7 , C 'ersale pulse
Pulsein A , Pind , 6 , 1 'daryafte pulse
A = A * 4 'dar datasheet formol ra neveshte
A = A / E
Cls
Home
Lcd "distance:" ; A ; "cm"
Locate 2 , 1
Lcd "Cal:" ; E ; "," ; C
Waitms 300
If Pind.5 = 0 Then 'farmane kar ba kelid ha
E = E - 1
Writeeeprom E , 1 'neveshtan dar eprom
Waitms 10 'betrar ast bade kar ba eeprom yek zamane kotah sabr ****m
End If
If Pind.4 = 0 Then
E = E + 1
Writeeeprom E , 1
Waitms 10
End If
If Pind.3 = 0 Then
C = C + 1
Writeeeprom C , 2
Waitms 10
End If
If Pind.2 = 0 Then
C = C - 1
Writeeeprom C , 2
Waitms 10
End If
Loop
End 'end program
[/code]
دیدگاه