ریموت کنترل IR یک کاناله - قابل برنامه ریزی با هر نوع کنترل خانگی

[jimbo54]

پاسخ : ریموت کنترل IR یک کاناله - قابل برنامه ریزی با هر نوع کنترل خانگی

دارم سعی میکنم که برنامه رو برای ATINY تغییر بدم ولی با اشکالات عجیب غریبی در تبدیل برنامش روبرو شدم و نمیدونم باید چکار کنم . ضمنا من نتونستم atiny 13 رو توی بسکام استفاده کنم .یعنی اصلا نمیشناسدش .توی کتابخونشم چیزی پیدا نکردم .اگه کتابخونه داره فردی جان برام پلود کن ببینم میشه کاری کرد .شاید مشکلات 13 کمتر باشه از 12 و 15 تینی ها.

[feredi]

پاسخ : ریموت کنترل IR یک کاناله - قابل برنامه ریزی با هر نوع کنترل خانگی

من نتونستم atiny 13 رو توی بسکام استفاده کنم .یعنی اصلا نمیشناسدش .توی کتابخونشم چیزی پیدا نکردم

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



کتابخونه مجزایی براش نصب نکردم و با نصب اولیه خود نرم افزار تو کتابخونه خودش موجود بود.
توی samples هم ازش نمونه هست.



من از ورژن 1.11.9.8 استفاده میکنم.

[jimbo54]

پاسخ : ریموت کنترل IR یک کاناله - قابل برنامه ریزی با هر نوع کنترل خانگی

خوب مهربان ورژن مال من قدیمی تره دیگه ونداره .اگه میتونی همون فایل کتابخونه ایشو برام پ لود کن تا ببینم جواب میده یا نه . :icon_razz:

[alipoor90]

پاسخ : ریموت کنترل IR یک کاناله - قابل برنامه ریزی با هر نوع کنترل خانگی

اقا جواد بهتره همین ورژن اقای فردی رو دانلود کنی چون اخرین ورژن استیبل بسکام(با کرک) هست و با امکانات بیشتر

[feredi]

پاسخ : ریموت کنترل IR یک کاناله - قابل برنامه ریزی با هر نوع کنترل خانگی

همون فایل کتابخونه ایشو برام پ لود کن

کتابخونه مال خودم رو پ کردم. ببین به دردت میخوره؟
http://www.jetup.ir/do.php?filename=...3036503801.rar

[feredi]

پاسخ : ریموت کنترل IR یک کاناله - قابل برنامه ریزی با هر نوع کنترل خانگی

خوب مهربان :icon_razz:

بهتر بود بجای نیش و کنایه ، نوشته هامو خوب میخوندی!!
همونطور که گفتم، تو نوشتن اسم آیسی مشکل وجود داره!
اون کلمه def بعد از اسم آیسی نباید باشه!



با نوشته من، که بالا گذاشتم مقایسه کن!

[jimbo54]

پاسخ : ریموت کنترل IR یک کاناله - قابل برنامه ریزی با هر نوع کنترل خانگی

اقا جواد بهتره همین ورژن اقای فردی رو دانلود کنی چون اخرین ورژن استیبل بسکام(با کرک) هست و با امکانات بیشتر

علی جان اگه زحمتی نیست میشه لینکش رو برام بزاری ببینم با اینترنت گازوئیلی ایرانسل میشه دانلودش کرد یا نه.

[alipoor90]

پاسخ : ریموت کنترل IR یک کاناله - قابل برنامه ریزی با هر نوع کنترل خانگی

لینک مستقیم http://techno.directdl.net/dl1/Softwares/bascom_1.11.9.8%5Btechno-electro.com%5D.zip

[jimbo54]

پاسخ : ریموت کنترل IR یک کاناله - قابل برنامه ریزی با هر نوع کنترل خانگی

بهتر بود بجای نیش و کنایه ، نوشته هامو خوب میخوندی!!
همونطور که گفتم، تو نوشتن اسم آیسی مشکل وجود داره!
اون کلمه def بعد از اسم آیسی نباید باشه!



با نوشته من، که بالا گذاشتم مقایسه کن!

فردیجان حالا چرا میزنی بابام جان .یه شوخی کردیم بهت گفتیم مهربان .حالا بهت میگم نامهربان .
ببین اون DEF رو هم برداشتم بازم همون پیغامو داد .آخه اصلا توی ردیف آی سی هاش این 13 رو نداره .خوب زوری که نمیشه بابام جان .این فایل 237 کیلوئی رو هم یکساعته میخوام دانلود کنم تا 187 کیلوش رسیده و بقیش نمیاد .مردشورشون رو ببرن با این اینترنتهای مسخرشون .مثلا خیر سرمون از اینترنت پرسرعت استفاده میکنیم .

[alipoor90]

پاسخ : ریموت کنترل IR یک کاناله - قابل برنامه ریزی با هر نوع کنترل خانگی

بیا اقا جواد واست فشرده ترش کردم و پیوست کردم

[jimbo54]

پاسخ : ریموت کنترل IR یک کاناله - قابل برنامه ریزی با هر نوع کنترل خانگی

علی جان خیلی لطف داری .ممنون ولی بلاخره جون کندو دانلود شد .آخه من نمیدونم چرا باید پول اینترنت پر سرعت بدیم ولی این اینترنت درپیتی رو دریافت کنیم .فکر میکنم اینقدر عموفیل ترچی گذرگاهشو تنگ کرده که همه ملت توصف واستادنو منتظرن نوبتشون بشه و بازرسی بشنو اگه موردی نداشتن رد بشن برن .

[feredi]

پاسخ : ریموت کنترل IR یک کاناله - قابل برنامه ریزی با هر نوع کنترل خانگی

آقا javad1354
کاش، ورژن اول برنامتو با mega8 میگذاشتی ، هم تست می شد و هم من یکم باهاش ورمیرفتم ، تا بعد ورژن نهایی با tiny13 آماده بشه.
اونطور که معلوم بود متن برنامه تموم شده، نه؟

[jimbo54]

پاسخ : ریموت کنترل IR یک کاناله - قابل برنامه ریزی با هر نوع کنترل خانگی

باشه فردی جان ایشالا فردا سعی میکنم تمومش کنم .اگه وقت بشه حتما برات میزارم تست کنی .

[feredi]

پاسخ : ریموت کنترل IR یک کاناله - قابل برنامه ریزی با هر نوع کنترل خانگی

کاش تو پست قبلی می گفتی که با اضافه کردن اون فایل LIB مشکل موجود بودن آیسی حل شد یه نه؟

[jimbo54]

پاسخ : ریموت کنترل IR یک کاناله - قابل برنامه ریزی با هر نوع کنترل خانگی

سلام فردی جان . یه برنامه واست نوشتم ولی برای مگا 8 هست .یه تستی بزن ببینم نتیجش چطوریه .
یه ال ای دی قرمز به پین 25 وصل کن یه سبزم به 24 وصل کن یه کلید هم با یه مقاومت پول پ به پایه 26 وصل کن و اونیکی پایه کلید رو به منفی وصل کن . کلید رو در وضعیت روشن قرار بده و میکرو رو برنامه ریزی کن . حالا باید قرمز روشن شده باشه .ترمینال امولاتورو باز کن و یک دکمه از کنترل سامسونگ رو فشار بده تا کد دکمه ثبت بشه و قرمز خاموش بشه .حالا باید فقط با همون دکمه، ال ای دی سبزت روشن بشه و دوباره با همون دکمه خاموش بشه .برای برنامه ریزی دوباره میکرو رو ریست کن ویه دکمه دیگرو برنامه ریزی کن .
'-------------------------------------------------------------------------------
' Filename : RC-6.bas
' Purpose : Remote-System
' Version : 1.0
' Support Mail: Zoland2005@yahoo.com
' Author : Javad.Shaterian
' Controller : ATMega8
' Compiler : BASCOM-AVR Rev. 1.11.7.4
' date : 90/01/28
'-------------------------------------------------------------------------------
$regfile = "m8def.dat" : $crystal = 1000000 : $baud = 2400

Config Pinc.1 = Output
Config Pinc.2 = Output
Config Pinc.3 = Input
Relay Alias Portc.1
Led Alias Portc.2
Learn_key Alias Pinc.3


Dim B As Byte , W(50) As Byte , P(50) As Byte
Dim Tim As Byte , E(50) As Byte , V As Byte


Readeeprom E(36) , 20
Readeeprom E(38) , 21
Readeeprom E(40) , 22
Readeeprom E(42) , 23

'-------------------------------------
Star:
'-------------------------------------
Debounce Learn_key , 0 , Learn , Sub

Do

Waitms 250
B = 1

Bitwait Pinb.0 , Reset

Do
Do
Incr W(b) : Waitus 1
Loop Until Pinb.0 = 1
Incr B
Do
Incr W(b) : Waitus 1
Loop Until Pinb.0 = 0
Incr B
Loop Until B > 41

For B = 36 To 42 Step 2
If W(b) > 30 Then
P(b) = 100
Else
P(b) = 10
End If
Next B

For B = 1 To 42
W(b) = 0
Next B

Print "E: " ; E(36) ; "," ; E(38) ; "," ; E(40) ; "," ; E(42)
Print "P: " ; P(36) ; "," ; P(38) ; "," ; P(40) ; "," ; P(42)
Print "*******************"

If P(36) = E(36) And P(38) = E(38) And P(40) = E(40) And P(42) = E(42) Then
If Relay = 0 Then
Set Relay
Else
Reset Relay
End If
End If

For B = 36 To 42 Step 2
P(b) = 0
Next B

Loop
'-------------------------------------
Learn:
'-------------------------------------
Set Led


Waitms 50
B = 1

Bitwait Pinb.0 , Reset

Do
Do
Incr W(b) : Waitus 1
Loop Until Pinb.0 = 1
Incr B
Do
Incr W(b) : Waitus 1
Loop Until Pinb.0 = 0
Incr B
Loop Until B > 41

For B = 36 To 42 Step 2
If W(b) > 30 Then
P(b) = 100
Else
P(b) = 10
End If
E(b) = P(b)
Next B

Writeeeprom P(36) , 20
Writeeeprom P(38) , 21
Writeeeprom P(40) , 22
Writeeeprom P(42) , 23

Print "E: " ; E(36) ; "," ; E(38) ; "," ; E(40) ; "," ; E(42)
Print "*******************"
For B = 36 To 42 Step 2
W(b) = 0
Next B
Reset Led

Return
نتیجه رو برام بزار ببینم.