متر دیجیتال با srf05

[abbasalifix]

سلام

اینم یکی دیگه از پروژه هایی هست که برای بچه های دانشگاه ساختم

این یک پروژه متر دیجیتال هست با ماژول 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
altium

$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 konim
 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

[korosh00]

با کد ویژن رو دارید ؟
من درایور خودسنسور رو دارم مدل srf04