Printable View
سلام خدمت همه ي دوستان و عزيزان استاد در الكترونيك
از عزيزاني كه در رشته ي الكترونيك تحصيل مي كنند خواهش مي كنم كه بنده را در انتخاب مدار براي درس پروژه ساخت مرا كمك كنند. با توجه به اين كه وقت چنداني ندارم. كسي اگر مداري مناسب داره خواهش مي كنم پيشنهاد بده. ممنون ميشم.
در ضمن من كارداني الكترونيك مي خونم.
از لطفتون ممنونم.
یک مدار با میکرو ببند تا نمره خوب بیاری
خب ممنونم
اگر چيزي داري پيشنهاد بدي ممنون ميشم.
مرسي.
چیز خوب در کتاب پیدا میشه! کتاب پروژه های Avr یا 8051 تهیه کن.نقل قول:
لطف كردينا
زحمت كشيدين
اما اين طوري فايده نداره.
باور کن بهترین راه ممکن رو بهت گفتم... باور نداری پس برو وقتت رو هدر بده!نقل قول:
اگر میخواهی واقعا یک کار نو بکنی یک پروژه عالی تصویر سازی با لیزر دارم که فکر کنم برای تز لیسانس و حتی فوق لیسانس هم خوبه! ولی ساختش با پدر آدم سر و کار داره!
ممنوم
مرسي
حتما
باز هم ممنون
بگو چه جور پروژه هایی می خواهی کار کنی تا بهتر بشه کمکت کرد. (میکرو؟- آنالوگ؟ - دیجیتال؟)نقل قول:
منم نظر دوستمون رو درام اگه با میکرو درست کنی یه 20 خوشگل می تونی بگیری تازه خیلی راحتر هم هست. من ساده تر از این ندارم ولی شاید برای این زمان کم خوب باشه.می تونی بهش یه مدار مادون قرمز یا pir یا آلتراسونیک به عنوان آشکار ساز حرکت اضافه کنی که مثلا یه در را هم کنترل کنه.یا بهش یه آیسی isd25120 (آیسی ضبط صدا هستش ) اضافه کنی تا سخنگو هم برات بشه و ... دیگه خودت میدونی چقدر می خوایی هزینه کنی. امید وارم با bascom avr و پروتئوس بتونی کار کنی مهندس بعد از این;)
موفق باشی
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
این هم برنامش تو bascom کپی کن. بعد خودت بهش شاخ و برگ بده تا زیاد بشه
$regfile = "M16def.dat"
$crystal = 4000000
Dim Keyread As Byte
Dim Key As Byte
Dim Code As Word
Dim Mycode As Word
Dim Digits As Byte
Dim Point As Byte
Config Portc = Output
Portc = 0
Relay Alias Portc.4
Beep Alias Portc.3
Config Kbd = Portd , Debounce = 40
Mycode = 1384
Cursor Off
Do
Lcd "Initializing..."
Set Beep
Waitms 100
Reset Beep
Wait 2
Cls
Lcd "Enter Password"
Begin:
Code = 0
Digits = 0
Point = 0
Do
Keyread = Getkbd()
If Keyread <> 16 Then Gosub Gotkey
Waitms 100
If Digits = 4 Then
If Code = Mycode Then
Goto Opendoor
Else
Goto Error
End If
End If
Loop
Loop
Gotkey:
Ddrd = 255
Set Beep
Waitms 100
Reset Beep
Waitms 100
Key = Lookup(keyread , Dta)
Incr Digits
Point = Digits + 6
Locate 2 , Point
Lcd Key
Code = Code * 10
Code = Code + Key
Return
Dta:
Data 7 , 8 , 9 , 255 , 4 , 5 , 6 , 255 , 1 , 2 , 3 , 255 , 255 , 0 , 255 , 255
Error:
Cls
Lcd "Invalid Password"
Waitms 100
Set Beep
Wait 1
Reset Beep
Lowerline
Lcd "Wait 10 sec"
Wait 10
Cls
Lcd "Enter Password"
Goto Begin
Ok:
Waitms 100
Set Beep
Waitms 200
Reset Beep
Waitms 200
Set Beep
Waitms 200
Reset Beep
Return
Opendoor:
Cls
Lcd "Pass Accepted"
Gosub Ok
Lowerline
Lcd "Door's Openning"
Waitms 300
Set Relay
Wait 1
Reset Relay
Wait 1
Cls
Goto Begin