پاسخ : :::::: کوچکترین میکرو و سنسور ؟ ::::::::::::::
به نام خدا
چشم الان میبندم خبرتون میکنم.
به نام خدا
چشم الان میبندم خبرتون میکنم.
-
به نام خدا
دیدم آن چشمه ی هستی که جهانش خوانند
_-_-_-_-_-_-_-_-
آنقدر آب کزان دست توان شست نداشت به به به به -
پاسخ : :::::: کوچکترین میکرو و سنسور ؟ ::::::::::::::
به نام خدا
سلام میلاد جان
داداش من اینو بستم ولی نمیدونم باید به کدوم پایه های میکرو وصل کنم
کد گیرنده :
' in the name of GOD
' RECIVER UNIT
$regfile = "m8def.dat"
$crystal = 8000000
Dim Address As Byte , Command As Byte
Config Rc5 = Pinc.6
Config Portb = Output
Enable Interrupts
Do
Getrc5(address , Command)
Print "asd"
If Address = 5 Then
If Command = 1 Then Set Portb.0
If Command = 2 Then Reset Portb.0
End If
Loop
کد فرستنده :
' in the name of GOD
' SENDER UNIT
$regfile = "m8def.dat"
$crystal = 8000000
Config Portc = Input
Config Debounce = 30
Dim Togbit As Byte , Command As Byte , Address As Byte
Togbit = 0
Address = 0
Hamed:
Do
Debounce Pinc.6 , 1 , Comm
Debounce Pinc.6 , 0 , Comm2
Loop
End
Comm:
Waitms 50
Command = 1
Rc5send Togbit , Address , Command
jmp hamed
Cmm2:
waitms 50
command=2
Rc5send Togbit,address,command
jmp hamed
حالا بکدوم پایه های ATMEGA8 وصل کنم؟
IN فرستنده رو به کدوم پایه؟
برق مثبت میکرو رو به کدوم پایه؟
برق منفی به کدوم پایه؟
خروجی گیرنده به کدوم پایه ؟به نام خدا
دیدم آن چشمه ی هستی که جهانش خوانند
_-_-_-_-_-_-_-_-
آنقدر آب کزان دست توان شست نداشت به به به بهدیدگاه
-
پاسخ : :::::: کوچکترین میکرو و سنسور ؟ ::::::::::::::
بچه ها کمک کنید :cry: :cry: :cry: :cry: :cry: :cry: :cry:به نام خدا
دیدم آن چشمه ی هستی که جهانش خوانند
_-_-_-_-_-_-_-_-
آنقدر آب کزان دست توان شست نداشت به به به بهدیدگاه
-
پاسخ : :::::: کوچکترین میکرو و سنسور ؟ ::::::::::::::
سلام.
خوبی آقا؟؟
چقدر عجله داری؟؟؟
خوب تو برنامه گیرنده که مشخص هستش ورودی کدام پایه از میکرو هست؟ چون خودت تو برنامه مشخص کردی Config Rc5 = Pinc.6
تو فرستنده هم خیلی واضح هستش به شرطی که help رو میخوندی. خروجی میکرو رو باید از پین OC1A بگیری که تو mega8 پایه شماره 15 میباشد.
برق میکرو هم که پایه های 7 و 8 هستش.
راستی کریستال خارجی 16 مگ میذاری؟؟؟
www.icesi.irدیدگاه
-
پاسخ : :::::: کوچکترین میکرو و سنسور ؟ ::::::::::::::
راستی باید مقدار Address رو هم تو گیرنده و فرستنده برابر هم قرار بدی..
مثلا اگه تو فرستنده برابر 10 گذاشتی تو گیرنده باید If Address = 10 Then باشه.
www.icesi.irدیدگاه
-
پاسخ : :::::: کوچکترین میکرو و سنسور ؟ ::::::::::::::
به نام خدا.
به به
به به
چشم الان امتحان میکنم خبر میدم.
لامصب این کریستال 16 عجب چیزیه کارایش رو نمیگما قیافش رو میگم انگار باقلوا
oo: oo:
به نام خدا
دیدم آن چشمه ی هستی که جهانش خوانند
_-_-_-_-_-_-_-_-
آنقدر آب کزان دست توان شست نداشت به به به بهدیدگاه
-
پاسخ : :::::: کوچکترین میکرو و سنسور ؟ ::::::::::::::
سلام :cry:
بچه ها من دیگه میخوام از الکترونیک کناره گیری کنم :cry: خب بگو مرد عاقل تو برنامه نویسی بلدی نه الکترونیک چیکارت به این کارا :angry: :angry: :angry:
خدا وکیلی از ظهر تا الآن که ساعت 1:37 شب ( صبح ) هست دارم با این ور میرم نمیشه :cry2:
فرستنده :
' in the name of GOD
' SENDER UNIT
$regfile = "m8def.dat"
$crystal = 8000000
Config Portc = Input
Config Portb = Output
Dim Togbit As Byte , Command As Byte , Address As Byte
Togbit = 0
Address = 5
Main:
Do
Debounce Pinc.0 , 1 , Hamed
Debounce Pinc.0 , 0 , Sina
Loop
End
Hamed:
Command = 1
Portb.0 = 1
Rc5send Togbit , Address , Command
jmp main
Sina:
Command = 2
Rc5send Togbit , Address , Command
Portb.0 = 0
jmp main
گیرنده :
' in the name of GOD
' RECIVER UNIT
$regfile = "m8def.dat"
$crystal = 8000000
Dim Address As Byte , Command As Byte
Config Rc5 = Pinc.6
Config Portb = Output
Enable Interrupts
Do
Getrc5(address , Command)
If Address = 5 Then
If Command = 1 Then Portb.0 = 1
If Command = 2 Then Portb.0 = 0
End If
Loop
دیگه هیچی ندارم بگم.
.
.
.
.
.
.
چرا یادم اومد یچی بگم :
دلم برای کریستال 16 مگ تنگ میشه :cry:
سلامش رو برسونیدبه نام خدا
دیدم آن چشمه ی هستی که جهانش خوانند
_-_-_-_-_-_-_-_-
آنقدر آب کزان دست توان شست نداشت به به به بهدیدگاه
دیدگاه