كمك در مورد درس پروژه ساخت

[سيد امير]

سلام خدمت همه ي دوستان و عزيزان استاد در الكترونيك
از عزيزاني كه در رشته ي الكترونيك تحصيل مي كنند خواهش مي كنم كه بنده را در انتخاب مدار براي درس پروژه ساخت مرا كمك كنند. با توجه به اين كه وقت چنداني ندارم. كسي اگر مداري مناسب داره خواهش مي كنم پيشنهاد بده. ممنون ميشم.
در ضمن من كارداني الكترونيك مي خونم.
از لطفتون ممنونم.

[Mirzaie]

یک مدار با میکرو ببند تا نمره خوب بیاری

[سيد امير]

خب ممنونم
اگر چيزي داري پيشنهاد بدي ممنون ميشم.
مرسي.

[Mirzaie]

خب ممنونم
اگر چيزي داري پيشنهاد بدي ممنون ميشم.
مرسي.

چیز خوب در کتاب پیدا میشه! کتاب پروژه های Avr یا 8051 تهیه کن.

[سيد امير]

لطف كردينا
زحمت كشيدين
اما اين طوري فايده نداره.

[Mirzaie]

لطف كردينا
زحمت كشيدين
اما اين طوري فايده نداره.

باور کن بهترین راه ممکن رو بهت گفتم... باور نداری پس برو وقتت رو هدر بده!
اگر میخواهی واقعا یک کار نو بکنی یک پروژه عالی تصویر سازی با لیزر دارم که فکر کنم برای تز لیسانس و حتی فوق لیسانس هم خوبه! ولی ساختش با پدر آدم سر و کار داره!

[سيد امير]

ممنوم
مرسي
حتما
باز هم ممنون

[mahmood karimi]

سلام خدمت همه ي دوستان و عزيزان استاد در الكترونيك
از عزيزاني كه در رشته ي الكترونيك تحصيل مي كنند خواهش مي كنم كه بنده را در انتخاب مدار براي درس پروژه ساخت مرا كمك كنند. با توجه به اين كه وقت چنداني ندارم. كسي اگر مداري مناسب داره خواهش مي كنم پيشنهاد بده. ممنون ميشم.
در ضمن من كارداني الكترونيك مي خونم.
از لطفتون ممنونم.

بگو چه جور پروژه هایی می خواهی کار کنی تا بهتر بشه کمکت کرد. (میکرو؟- آنالوگ؟ - دیجیتال؟)
منم نظر دوستمون رو درام اگه با میکرو درست کنی یه 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