[lovevb6]

اريد الكراك الختص بالفلوكود

[lovevb6]

السلام عليكم
الحمدالله لقد انتهت مشكلتى مع الكراك

بعد بحث طويل ودراسة متعبة لاستقبال الاشعة تحت الحمراء (ذلك بعد تخصيص الريموت على تردد معين) لقد انتجت هذا الكود ولم اجربة لانة طور التطوير
واطلب من الاخوة الخبراء التمعن فية وهل هو صالح بان يستقبل الداتا واخراج البلس على البورت c1 وذلك بعد استقبال الاشارة المطلوبة


وسوف اقوم بشرح الكود وما هى وظيفة كل كود

Device=16F877A
Xtal=4
Input PORTB.7
out PORTC.1

Symbol ir sensor=PORTB.7
Dim ir_word As Word
Dim st As Word
Dim flg As Byte


main:
GoSub sony_in
If flg=0 Then GoTo main
DelayMS 200

If flg=1 Then
PORTC.1=1
Else
PORTC.1=0
End If

GoTo main

sony_in:
flg=1
If ir_sensor=1 Then GoTo no_sig
st=PulsIn ir_sensor,0
If st < 200 Then GoTo no-sig
If st > 270 Then GoTo no-sig
For i=0 To 11
id=PulsIn ir_sensor,0
If ID >=90 Then
ir_word.0=1
Else
ir_word.0=0
End If

ir_word=ir_word<<1
Next i

Return
no_sig:
flg=0
Return
باختصار شديد هو اذ تم استقبال الاشارة من البورت بى7 فانة سوف يخرج بلس من البورت سى1
ولكن لم اعرف هل هذا الكود صحيح او يريد بعض التعديل
والسلام عليكم

[eabueida]

السلام عليكم

بعد استقبال starting bit ما بين 2 --> 2.6 ms

حيستقبل 12 بت وهي المخزنة في ir_word ومن ثم تحدد ما تريد عن طريق ما سيخزن داخل المتغير المذكور انفا

وفي المشاركة التالية سأعدل الكود ان شاء الله

لكن لم اجرب عملي لعدم توفر القطع عندي

[eabueida]

السلام عليكم

أخي عدل الأخطاء الموجودة بالكود وعدلت الكود

حتى يسمح بتقبل اوامر اخري لكن يجب معركة الأكواد الخاصة بالأزرة ولني لا اعرفها وضعت مكان لأي زر يضغط تقريبا

 
Device=16F877A
Xtal=4
All_Digital =true
Input PORTB.7
Output PORTC.1
Symbol ir_sensor = PORTB.7
Dim ir_word As Word
Dim st As Word
Dim flg As Byte
Dim i As Byte
Dim id As Word
main:
GoSub sony_in
DelayMS 200 
 
Select Case ir_word ' this code to place the order based on your design
 
 
Case 1
 
Case 2
 
Case Else ' if you do not know your the code of your key put it here
PORTC.1=1
 
 
EndSelect
 
GoTo main
sony_in:
If ir_sensor=1 Then GoTo sony_in 
st=PulsIn ir_sensor,0
If st < 200 OR st > 270 Then GoTo sony_in
For i=0 To 11
id=PulsIn ir_sensor,0
 
If id >=90 Then
ir_word.0=1
Else
ir_word.0=0
End If
 
ir_word=ir_word<<1
Next i
Return

ولا تنسانا من دعائك الصالح

والسلام عليكم

[eabueida]

السلام عليكم

في هذا اللنك بهذا المنتدي ممكن يفيدك بالتحكم بالإنفرا ريد

http://www.qariya.com/vb/showthread.php?t=60212
والسلام عليكم

[lovevb6]

السلام عليكم
شكراا ياخى وبارك الله فيك واتمنى من الله ان يتقبل عملك فانت متعاون معى جداا

اخى اتمنى ان تكمل لى معروفك بفرض ان الاشارة التى اريد استقبالها هى رقم 32 بالعشرى اى (0010 0000 ) وطبعا بعد تاكد من عرض الاشارة الابتدائية التى تميز سونى(عن باقى الاشارات) (عرض الاشارة الابتدائية 240us ) فان سى1 ستخرج بلس دائم واذا استقبل الاشارة نفسها من جديد سوف يوقف البلس اى يطفئ


وغير ذالك فانة لا يشغل البورت سى1
لانى اريد استغلال كل الازرار فى شئ معين فاذا اعطيتنى هذا الامر فانى سوف اكمل باقى المشروع واكون لك شاكراا

[eabueida]

وعليكم السلام
اعتقد ان هذا الكود بعد التعديل ممكن يفيدك

Device =16F877A 
XTAL=4 
ALL_DIGITAL =true 
Input PORTB.7 
Output PORTC.1 
Symbol ir_sensor = PORTB.7 
Dim ir_word As Word 
Dim st As Word 
Dim flg As Byte 
Dim i As Byte 
Dim id As Word 
main: 
GoSub sony_in 
DelayMS 200 
 
Select Case ir_word ' this code to place the order based on your design 
Case 32 ' for the order 32 pule for 1 sec will appear at portc.0
PORTC.0=1
DelayMS 500
PORTC.0=0
DelayMS 500
 
Case 2 '<=== change the number to be suitable for your order 
 
 
Case Else ' if you do not know your the code of your key put it here 
PORTC.1=1 
EndSelect 
GoTo main 
　
sony_in: 
If ir_sensor=1 Then GoTo sony_in 
st=PulsIn ir_sensor,0 
If st < 200 Or st > 270 Then GoTo sony_in 
 
For i=0 To 11 
id=PulsIn ir_sensor,0 
If id >=90 Then 
ir_word.0=1 
Else 
ir_word.0=0 
End If 
ir_word=ir_word<<1
Next i 
Return

اخي 32 بالثنائي = 00100000
ولا تنسانا من دعائك الصالح


والسلام عليكم

[lovevb6]

السلام عليكم فعلا انك افدتنى وبارك الله فيك
استفسار بسيط
اولا:

Case 32 ' for the order 32 pule for 1 sec will appear at portc.0
PORTC.0=1
DelayMS 500
PORTC.0=0
DelayMS 500
انت تقصد البورت سى 1 وليس الورت 0
هذا الكود سوف يعطى بلس ثم يتوقف
لماذا عملت تاخير وانا كنت اريد بلس دائم على البورت سى1 فى حالة استقبال 32(هل تقصد شئ اخر او انا لم افهم الكود)

ثانيا:


Case Else ' if you do not know your the code of your key put it here PORTC.1=1
EndSelect
هذا الكود اعتقد ليس ظرورى لانة سوف يعطى بلس فى حالة اى اشارة

اخير هل من الضرورى ان اقوم بكتابة هذا الكود :
ALL_DIGITAL =true
فائدتة ان يجعل كل الارجل رقمية (هل المفهوم هذا صحيح ام انا مخطئ)

اسف جداا لانى كترت عليك
الخلاصة ما رايك فى الكود النهائى
وهو اذا استقبل البورت بى 7 تردد تساوى 32 فان البورت سى1 يخرج بلس دائم
ليد مثلاا (اى يبقى اليد والع دائما وليس مدة معينة)
واذا استقبل نفس التردد فانة يطفى اليد اى )
وهذا هو الكود النهائى
هل هو صحيح ام لا ياصديقى

Device =16F877A
XTAL=4
ALL_DIGITAL =true

Input PORTB.7

Output PORTC.1

Symbol ir_sensor = PORTB.7
Dim ir_word As Word
Dim st As Word
Dim flg As Byte
Dim i As Byte
Dim id As Word

Main:

GoSub sony_in

DelayMS 200
Select Case ir_word ' this code to place the order based on your design
Case 32 ' for the order 32 pule for 1 sec will appear at portc.0

PORTC.1=1


Case Else ' if you do not know your the code of your key put it here
PORTC.1=0
EndSelect

GoTo main 　
sony_in:
If ir_sensor=1 Then GoTo sony_in
st=PulsIn ir_sensor,0
If st < 200 Or st > 270 Then GoTo sony_in
For i=0 To 11
id=PulsIn ir_sensor,0
If id >=90 Then
ir_word.0=1
Else ir_word.0=0
End If
ir_word=ir_word<<1
Next i
Return

Read more: http://www.qariya.com/vb/showthread....#ixzz0qFQF3wpl