چت باکس علمی ایران ویج

[omid_phoenix]

منظورت چیه منظق نداره ؟

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

[a.mehran]

خب منم موندم چجوری با یه جفت فرستنده گیرنده کد رو میخونن !

[رسول]

سلام

این برنامه رو ببینین :

کد:

A:
R = Getkbd()

If R > 15 Then Goto A

If R = 0 Then Goto 0
If R = 1 Then Goto 1
If R = 2 Then Goto 2
If R = 3 Then Goto 3
If R = 4 Then Goto 4
If R = 5 Then Goto 5
If R = 6 Then Goto 6
If R = 7 Then Goto 7
If R = 8 Then Goto 8
If R = 9 Then Goto 9
If R = 10 Then Goto 10
If R = 11 Then Goto 11
If R = 12 Then Goto 12
If R = 13 Then Goto 13
If R = 14 Then Goto 14
If R = 15 Then Goto 15



0:
Do
Loop


1:
Do
Loop


2:
Do
Loop


3:
Do
Loop


4:
Do
Loop


5:
Do
Loop


6:
Do
Loop


7:
Do
Loop


8:
Do
Loop


9:
Do
Loop


10:
Do
Loop


11:
Do
Loop


12:
Do
Loop


13:
Do
Loop


14:
Do
Loop


15:
Do
Loop

هر بار که یه کلیدی زده بشه بسته به کلید زده شده میره روی یکی از دستورات 0 تا 15

حالا من میخوام اول برنامه یه مدتی صبر کنه و اگه کلیدی زده نشد خودش مستقیم بره روی یکی از دستورات مثلا بره روی شماره 15

[behzady]

کارای سخت از بسکام نخواید
برای این کار باید دستور getkbd رو خودت بنویسی و براش زمان بزاری

[رسول]

کارای سخت از بسکام نخواید
برای این کار باید دستور getkbd رو خودت بنویسی و براش زمان بزاری

برنامه اصلی نباید تغییر کنه!!

حالا اینی که میگی چجوریاست

[a.mehran]

سلام بر محققان ایرانویجی
آقا من امروز رفتم سروقت دستگاه پول شمار ولی خب قسمت نشد عکس بندازم اما میگم چی ازش فهمیدم :
خیلی سادس ! ورودی دستگاه طوری طراحی شده که فقط یک اسکناس میتونه وارد دستگاه بشه ! (جوری که یه بلبرینگ بالاس و یکی دیگه پاین و فاصله اینها اندازه یه اسکناسه و طراحیش جوریه که تحت هیچ شرایطی بیش از یک اسکناس وارد نمیشه ) بعد که وارد شد تو سط یه چیزی که شبیه پروانس پول به بیرون میاد و همون که میاد بیرون با یه سنسوری شبیه مادون قرمز شمرده میشه

[omid_phoenix]

سلام

حالا من میخوام اول برنامه یه مدتی صبر کنه و اگه کلیدی زده نشد خودش مستقیم بره روی یکی از دستورات مثلا بره روی شماره 15

سلام رسول جون
با دستور waitkey کارت راه میافته
این دستور یه پین رو چک میکنه و منتظر میمونه یه دیتایی دریافت بشه
که اگه حالتش تا یه مدت تغییر نکرد فلان کار رو انجام میده

[رسول]

یعنی برای هر کلید باید یه waitkey تعریف کنم؟

به help بیسکام مراجعه نمودم اما چیزی عایدم نشد

[omid_phoenix]

رسول جون یه نمونه برنامه واست نوشتم
ولی تست نکردم و زحمت تستش با خودت

تو این برنامه یه پین از میکرو چک میشه و به مقدار تایمر تایمر اضافه میشه
تا وقتی مقدار تایمر به 200 نرسیده، مقدار پین چک میشه
اگه تا اون موقع کلیدی فشرده نشه(مقدار پین 0 بمونه) به یه lable پرش میکنه

کد:

$regfile = "m8def.dat"
$crystal = 1000000

Config Pinb.0 = Input

Config Timer0 = Timer , Prescale = 64
Start Timer0

Dim A As byte
Dim B As Byte

A = Pinb.0
B = Timer0

A = 0
B = 0

Do

Incr B
A = Waitkey()

If B >= 200 And A = 0 Then Goto Lable

Loop

lable:
.
.
.
return

[رسول]

ممنون امید جونم

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

کد:

$regfile = "m8def.dat"
$crystal = 1000000

Config Pinb.0 = Input
Config Pind.0 = Output
Config Pind.1 = Output

Config Timer0 = Timer , Prescale = 64
Start Timer0

Dim A As byte
Dim B As Byte

A = Pinb.0
B = Timer0

A = 0
B = 0

Do

Incr B
A = Waitkey()

If B >= 200 And A = 0 Then Goto Lable1

If B < 200 And A = 1 Then Goto Lable2
Loop

Lable1:
Portd.0 = 1
Portd.1 = 0
Return

Lable2:
Portd.0 = 0
Portd.1 = 1
return

[aleas]

دوستان یه سوال داشتم بخواهین یه ربات هواپیما کوچک طراحی کنین که روش یه دوربین هم باشه و بصورت بی سیم باشه توسط کامپیوتر بتونم مدیریتش کنم ؟چقدر هزینه میبره؟

ضمنا" فرستنده گیرنده بی سیم و دوربین باسیم هم دارم که فکر کنم توسط همین فرستنده گیرنده بشه دوربین بی سیم کرد !