ايران ويج

ايران ويج > الکترونیک و رباتیک > الكترونيك > چت باکس علمی ایران ویج
نسخه‌ی کامل: چت باکس علمی ایران ویج
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
صفحه‌ها: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200

omid_phoenix

۳۰-تير-۱۳۹۳, ۲۰:۱۵:۱۲
(۳۰-تير-۱۳۹۳, ۱۵:۳۶:۲۳)a.mehran نوشته است: [ -> ]منظورت چیه منظق نداره ؟

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

a.mehran

۳۰-تير-۱۳۹۳, ۲۰:۱۶:۵۴
خب منم موندم چجوری با یه جفت فرستنده گیرنده کد رو میخونن !

رسول

۳۱-تير-۱۳۹۳, ۱۴:۲۸:۴۱
سلام Biggrin

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

کد:
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

۳۱-تير-۱۳۹۳, ۱۵:۲۰:۵۹
کارای سخت از بسکام نخوایدBiggrin
برای این کار باید دستور getkbd رو خودت بنویسی و براش زمان بزاریBiggrin

رسول

۳۱-تير-۱۳۹۳, ۱۵:۳۵:۵۱
(۳۱-تير-۱۳۹۳, ۱۵:۲۰:۵۹)behzady نوشته است: [ -> ]کارای سخت از بسکام نخوایدBiggrin
برای این کار باید دستور getkbd رو خودت بنویسی و براش زمان بزاریBiggrin

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

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

a.mehran

۳۱-تير-۱۳۹۳, ۱۶:۰۴:۱۲
سلام بر محققان ایرانویجی
آقا من امروز رفتم سروقت دستگاه پول شمار ولی خب قسمت نشد عکس بندازم اما میگم چی ازش فهمیدم :
خیلی سادس ! ورودی دستگاه طوری طراحی شده که فقط یک اسکناس میتونه وارد دستگاه بشه ! (جوری که یه بلبرینگ بالاس و یکی دیگه پاین و فاصله اینها اندازه یه اسکناسه و طراحیش جوریه که تحت هیچ شرایطی بیش از یک اسکناس وارد نمیشه ) بعد که وارد شد تو سط یه چیزی که شبیه پروانس پول به بیرون میاد و همون که میاد بیرون با یه سنسوری شبیه مادون قرمز شمرده میشه

omid_phoenix

۳۱-تير-۱۳۹۳, ۲۱:۵۱:۴۶
(۳۱-تير-۱۳۹۳, ۱۴:۲۸:۴۱)رسول نوشته است: [ -> ]سلام Biggrin

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

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

رسول

۰۱-مرداد-۱۳۹۳, ۰۹:۱۴:۲۳
یعنی برای هر کلید باید یه waitkey تعریف کنم؟

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

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

رسول

۰۲-مرداد-۱۳۹۳, ۰۹:۲۷:۵۵
ممنون امید جونم Heart

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

کد:
$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

۰۲-مرداد-۱۳۹۳, ۱۵:۱۱:۴۶
دوستان یه سوال داشتم بخواهین یه ربات هواپیما کوچک طراحی کنین که روش یه دوربین هم باشه و بصورت بی سیم باشه توسط کامپیوتر بتونم مدیریتش کنم ؟چقدر هزینه میبره؟

ضمنا" فرستنده گیرنده بی سیم و دوربین باسیم هم دارم که فکر کنم توسط همین فرستنده گیرنده بشه دوربین بی سیم کرد !
صفحه‌ها: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200
ايران ويج > الکترونیک و رباتیک > الكترونيك > چت باکس علمی ایران ویج