اطلاعیه

**mahdi_el2000** · 2012-02-20T02:59:39

پاسخ : سه تا ADC

اون وقت اینی که وگفتی یعنی چه :surprised: :eek:

شما اگه سه تا adc داری چه جوری میخوای سیگنالوتون رو با adc تغییر بدی . یه مقدار که چه عرض کنم شما خیلی بد موضوع رو مطرح کردید .

**iman-63** · 2012-02-20T11:46:22

پاسخ : سه تا ADC

سلام دادا.
والا منم نفهمیدم منظورت چی بود.
اما با برنامه می تونی اینارو به اون حد برسونی

**leylijoon** · 2012-02-20T13:30:16

پاسخ : سه تا ADC

نوشته اصلی توسط erfan m

سلام
من می خوام سه تا ADC رو اندازه بگیرم که یکیش از 0 تا 85 اون یکیش از 86 تا 170 سومیش هم از 171 تا 255 باشه که می خوام بفرسم به UART یعنی اگر اویش شد 1023 بشه 85 دومیش شد 1023 بشه 170 یعنی 6.4 بیتی باشه :biggrin:
چی کار کنم ؟ :surprised: :-??

بزار حدس بزنم اگه سومیش هم شده1023 میشه 255 :applause:
اگه adc میکرو باشه بزار بخونه سقفشو که همون 1023 باشه بعد براش تعیین کن تو برنامه که 1023 برابر فلان عدد و داده ها از صفر تا همون فلان عدد هستن
اینجور به فکرم میرسه

**erfan m** · 2012-02-20T20:26:54

پاسخ : سه تا ADC

می خوام سرعت سه تا موتور رو تغییر بدم توی فرستنده می نویسم اگر بین 0 تا 85 بود مغدارشو بفرسه روی PWM اول اگر بین 56 تا 170 مقدارشو برسه روی PWM دوم البته بازم اینا باید تبدیل بشه مثلا 85 بود PWM اول 255 باشه 84 بود PWM اول 250 باشه همین :biggrin:
اگر این طوری نمیشه چه طوری باید این مقدار ها رو بفرسم ؟
دقیقا سه تا پتانسیو متر توی فرستندس سه تا هم موتور توی گیرنده که مقدار ADC هرچقدر بود روی موتور مربوط پیاده بشه ؟

نوشته اصلی توسط تیبا

بزار حدس بزنم اگه سومیش هم شده1023 میشه 255 :applause:

افرین :applause: :applause: :applause:

نوشته اصلی توسط تیبا

اگه adc میکرو باشه بزار بخونه سقفشو که همون 1023 باشه بعد براش تعیین کن تو برنامه که 1023 برابر فلان عدد و داده ها از صفر تا همون فلان عدد هستن
اینجور به فکرم میرسه

اینطوری هم میشه که همشو شرط بنویسم اگر طور دیگه نشه همین کار رو می کنم

**erfan m** · 2012-02-21T22:48:42

پاسخ : سه تا ADC

خودم نوشتم :biggrin:

کد:

$regfile = &quot;M16def.dat &quot;
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0 , Rs = Portb.5 , E = Portb.4
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm = Clear Up , Compare B Pwm = Disconnect , Prescale = 1
Config Timer2 = Pwm , Prescale = 1 , Pwm = On , Compare Pwm = Disconnect
Config Portd = Output
Config Portc = Output
Config Adc = Single , Prescaler = Auto
Dim Adc1 As Word
Dim Adc2 As Word
Dim Adc3 As Word
Dim U1 As Byte
Dim U2 As Byte
Dim U3 As Byte
Declare Sub Pwm.1
Declare Sub Pwm.2
Declare Sub Pwm.3
&#039;******************ADC*************************************************************
Do
Cls
Adc1 = Getadc(0)
Call Pwm.1
Printbin U1
Lcd U1

Adc2 = Getadc(1)
Call Pwm.2
Printbin U2
Locate 1 , 8
Lcd U2

Adc3 = Getadc(2)
Call Pwm.3
Printbin U3
locate 2,1
Lcd U3
Loop
&#039;**********************SUB****************************************************
Sub Pwm.1
Adc1 = Adc1 / 4
If Adc1 = 3 Then
U1 = 1
End If

If Adc1 = 6 Then
U1 = 2
End If

If Adc1 = 9 Then
U1 = 3
End If

If Adc1 = 12 Then
U1 = 4
End If

If Adc1 = 15 Then
U1 = 5
End If

If Adc1 = 18 Then
U1 = 6
End If

If Adc1 = 21 Then
U1 = 7
End If

If Adc1 = 24 Then
U1 = 8
End If

If Adc1 = 27 Then
U1 = 9
End If

If Adc1 = 30 Then
U1 = 10
End If

If Adc1 = 33 Then
U1 = 11
End If

If Adc1 = 36 Then
U1 = 12
End If

If Adc1 = 39 Then
U1 = 13
End If

If Adc1 = 42 Then
U1 = 14
End If


If Adc1 = 45 Then
U1 = 15
End If

If Adc1 = 48 Then
U1 = 16
End If

If Adc1 = 51 Then
U1 = 17
End If

If Adc1 = 54 Then
U1 = 18
End If

If Adc1 = 57 Then
U1 = 19
End If

If Adc1 = 60 Then
U1 = 20
End If

If Adc1 = 63 Then
U1 = 21
End If

If Adc1 = 66 Then
U1 = 22
End If

If Adc1 = 69 Then
U1 = 23
End If

If Adc1 = 72 Then
U1 = 24
End If

If Adc1 = 75 Then
U1 = 25
End If

If Adc1 = 78 Then
U1 = 26
End If

If Adc1 = 81 Then
U1 = 27
End If

If Adc1 = 84 Then
U1 = 28
End If

If Adc1 = 87 Then
U1 = 29
End If

If Adc1 = 90 Then
U1 = 30
End If

If Adc1 = 93 Then
U1 = 31
End If

If Adc1 = 96 Then
U1 = 32
End If

If Adc1 = 99 Then
U1 = 33
End If

If Adc1 = 102 Then
U1 = 34
End If

If Adc1 = 105 Then
U1 = 35
End If

If Adc1 = 108 Then
U1 = 36
End If

If Adc1 = 111 Then
U1 = 37
End If

If Adc1 = 114 Then
U1 = 38
End If

If Adc1 = 117 Then
U1 = 39
End If

If Adc1 = 120 Then
U1 = 40
End If

If Adc1 = 123 Then
U1 = 41
End If

If Adc1 = 126 Then
U1 = 42
End If

If Adc1 = 129 Then
U1 = 43
End If

If Adc1 = 132 Then
U1 = 44
End If

If Adc1 = 135 Then
U1 = 45
End If

If Adc1 = 138 Then
U1 = 46
End If

If Adc1 = 141 Then
U1 = 47
End If

If Adc1 = 144 Then
U1 = 48
End If

If Adc1 = 147 Then
U1 = 49
End If

If Adc1 = 150 Then
U1 = 50
End If

If Adc1 = 153 Then
U1 = 51
End If

If Adc1 = 156 Then
U1 = 52
End If

If Adc1 = 159 Then
U1 = 53
End If

If Adc1 = 162 Then
U1 = 54
End If

If Adc1 = 165 Then
U1 = 55
End If

If Adc1 = 168 Then
U1 = 56
End If

If Adc1 = 171 Then
U1 = 57
End If

If Adc1 = 174 Then
U1 = 58
End If

If Adc1 = 177 Then
U1 = 59
End If

If Adc1 = 180 Then
U1 = 60
End If

If Adc1 = 183 Then
U1 = 61
End If

If Adc1 = 186 Then
U1 = 62
End If

If Adc1 = 189 Then
U1 = 63
End If

If Adc1 = 192 Then
U1 = 64
End If

If Adc1 = 195 Then
U1 = 65
End If

If Adc1 = 198 Then
U1 = 66
End If

If Adc1 = 201 Then
U1 = 67
End If

If Adc1 = 204 Then
U1 = 68
End If

If Adc1 = 207 Then
U1 = 69
End If

If Adc1 = 210 Then
U1 = 70
End If

If Adc1 = 213 Then
U1 = 71
End If

If Adc1 = 216 Then
U1 = 72
End If

If Adc1 = 219 Then
U1 = 73
End If

If Adc1 = 222 Then
U1 = 74
End If

If Adc1 = 225 Then
U1 = 75
End If

If Adc1 = 228 Then
U1 = 76
End If

If Adc1 = 231 Then
U1 = 77
End If

If Adc1 = 234 Then
U1 = 78
End If

If Adc1 = 237 Then
U1 = 79
End If

If Adc1 = 240 Then
U1 = 80
End If

If Adc1 = 243 Then
U1 = 81
End If

If Adc1 = 246 Then
U1 = 82
End If

If Adc1 = 249 Then
U1 = 83
End If

If Adc1 = 252 Then
U1 = 84
End If

If Adc1 = 255 Then
U1 = 85
End If
End Sub

&#039;**********************************************************sub2****************************
Sub Pwm.2
Adc2 = Adc2 / 4
If Adc3 = 3 Then
U3 = 86
End If

If Adc2 = 6 Then
U2 = 87
End If

If Adc2 = 9 Then
U2 = 88
End If

If Adc2 = 12 Then
U2 = 89
End If

If Adc2 = 15 Then
U2 = 90
End If

If Adc2 = 18 Then
U2 = 91
End If

If Adc2 = 21 Then
U2 = 92
End If

If Adc2 = 24 Then
U2 = 93
End If

If Adc2 = 27 Then
U2 = 94
End If

If Adc2 = 30 Then
U2 = 95
End If

If Adc2 = 33 Then
U2 = 96
End If

If Adc2 = 36 Then
U2 = 97
End If

If Adc2 = 39 Then
U2 = 98
End If

If Adc2 = 42 Then
U2 = 99
End If


If Adc2 = 45 Then
U2 = 100
End If

If Adc2 = 48 Then
U2 = 101
End If

If Adc2 = 51 Then
U2 = 102
End If

If Adc2 = 54 Then
U2 = 103
End If

If Adc2 = 57 Then
U2 = 104
End If

If Adc2 = 60 Then
U2 = 105
End If

If Adc2 = 63 Then
U2 = 106
End If

If Adc2 = 66 Then
U2 = 107
End If

If Adc2 = 69 Then
U2 = 108
End If

If Adc2 = 72 Then
U2 = 109
End If

If Adc2 = 75 Then
U2 = 110
End If

If Adc2 = 78 Then
U2 = 111
End If

If Adc2 = 81 Then
U2 = 112
End If

If Adc2 = 84 Then
U2 = 113
End If

If Adc2 = 87 Then
U2 = 114
End If

If Adc2 = 90 Then
U2 = 115
End If

If Adc2 = 93 Then
U2 = 116
End If

If Adc2 = 96 Then
U2 = 117
End If

If Adc2 = 99 Then
U2 = 118
End If

If Adc2 = 102 Then
U2 = 119
End If

If Adc2 = 105 Then
U2 = 120
End If

If Adc2 = 108 Then
U2 = 121
End If

If Adc2 = 111 Then
U2 = 122
End If

If Adc2 = 114 Then
U2 = 123
End If

If Adc2 = 117 Then
U2 = 124
End If

If Adc2 = 120 Then
U2 = 125
End If

If Adc2 = 123 Then
U2 = 126
End If

If Adc2 = 126 Then
U2 = 127
End If

If Adc2 = 129 Then
U2 = 128
End If

If Adc2 = 132 Then
U2 = 129
End If

If Adc2 = 135 Then
U2 = 130
End If

If Adc2 = 138 Then
U2 = 131
End If

If Adc2 = 141 Then
U2 = 132
End If

If Adc2 = 144 Then
U2 = 133
End If

If Adc2 = 147 Then
U2 = 134
End If

If Adc2 = 150 Then
U2 = 135
End If

If Adc2 = 153 Then
U2 = 136
End If

If Adc2 = 156 Then
U2 = 137
End If

If Adc2 = 159 Then
U2 = 138
End If

If Adc2 = 162 Then
U2 = 139
End If

If Adc2 = 165 Then
U2 = 140
End If

If Adc2 = 168 Then
U2 = 141
End If

If Adc2 = 171 Then
U2 = 142
End If

If Adc2 = 174 Then
U2 = 143
End If

If Adc2 = 177 Then
U2 = 144
End If

If Adc2 = 180 Then
U2 = 145
End If

If Adc2 = 183 Then
U2 = 146
End If

If Adc2 = 186 Then
U2 = 147
End If

If Adc2 = 189 Then
U2 = 148
End If

If Adc2 = 192 Then
U2 = 149
End If

If Adc2 = 195 Then
U2 = 150
End If

If Adc2 = 198 Then
U2 = 151
End If

If Adc2 = 201 Then
U2 = 152
End If

If Adc2 = 204 Then
U2 = 153
End If

If Adc2 = 207 Then
U2 = 154
End If

If Adc2 = 210 Then
U2 = 155
End If

If Adc2 = 213 Then
U2 = 156
End If

If Adc2 = 216 Then
U2 = 157
End If

If Adc2 = 219 Then
U2 = 158
End If

If Adc2 = 222 Then
U2 = 159
End If

If Adc2 = 225 Then
U2 = 160
End If

If Adc2 = 228 Then
U2 = 161
End If

If Adc2 = 231 Then
U2 = 162
End If

If Adc2 = 234 Then
U2 = 163
End If

If Adc2 = 237 Then
U2 = 164
End If

If Adc2 = 240 Then
U2 = 165
End If

If Adc2 = 243 Then
U2 = 166
End If

If Adc2 = 246 Then
U2 = 167
End If

If Adc2 = 249 Then
U2 = 168
End If

If Adc2 = 252 Then
U2 = 169
End If

If Adc2 = 255 Then
U2 = 170
End If
End Sub

&#039;**************************************sub3**********************************************
Sub Pwm.3
Adc3 = Adc3 / 4
If Adc3 = 3 Then
U3 = 171
End If

If Adc3 = 6 Then
U3 = 172
End If

If Adc3 = 9 Then
U3 = 173
End If

If Adc3 = 12 Then
U3 = 174
End If

If Adc3 = 15 Then
U3 = 175
End If

If Adc3 = 18 Then
U3 = 176
End If

If Adc3 = 21 Then
U3 = 177
End If

If Adc3 = 24 Then
U3 = 178
End If

If Adc3 = 27 Then
U3 = 179
End If

If Adc3 = 30 Then
U3 = 180
End If

If Adc3 = 33 Then
U3 = 181
End If

If Adc3 = 36 Then
U3 = 182
End If

If Adc3 = 39 Then
U3 = 183
End If

If Adc3 = 42 Then
U3 = 184
End If


If Adc3 = 45 Then
U3 = 185
End If

If Adc3 = 48 Then
U3 = 186
End If

If Adc3 = 51 Then
U3 = 187
End If

If Adc3 = 54 Then
U3 = 188
End If

If Adc3 = 57 Then
U3 = 189
End If

If Adc3 = 60 Then
U3 = 190
End If

If Adc3 = 63 Then
U3 = 191
End If

If Adc3 = 66 Then
U3 = 192
End If

If Adc3 = 69 Then
U3 = 193
End If

If Adc3 = 72 Then
U3 = 194
End If

If Adc3 = 75 Then
U3 = 195
End If

If Adc3 = 78 Then
U3 = 196
End If

If Adc3 = 81 Then
U3 = 197
End If

If Adc3 = 84 Then
U3 = 198
End If

If Adc3 = 87 Then
U3 = 199
End If

If Adc3 = 90 Then
U3 = 200
End If

If Adc3 = 93 Then
U3 = 201
End If

If Adc3 = 96 Then
U3 = 202
End If

If Adc3 = 99 Then
U3 = 203
End If

If Adc3 = 102 Then
U3 = 204
End If

If Adc3 = 105 Then
U3 = 205
End If

If Adc3 = 108 Then
U3 = 206
End If

If Adc3 = 111 Then
U3 = 207
End If

If Adc3 = 114 Then
U3 = 208
End If

If Adc3 = 117 Then
U3 = 29
End If

If Adc3 = 120 Then
U3 = 210
End If

If Adc3 = 123 Then
U3 = 211
End If

If Adc3 = 126 Then
U3 = 212
End If

If Adc3 = 129 Then
U3 = 213
End If

If Adc3 = 132 Then
U3 = 214
End If

If Adc3 = 135 Then
U3 = 215
End If

If Adc3 = 138 Then
U3 = 216
End If

If Adc3 = 141 Then
U3 = 217
End If

If Adc3 = 144 Then
U3 = 218
End If

If Adc3 = 147 Then
U3 = 219
End If

If Adc3 = 150 Then
U3 = 220
End If

If Adc3 = 153 Then
U3 = 221
End If

If Adc3 = 156 Then
U3 = 222
End If

If Adc3 = 159 Then
U3 = 223
End If

If Adc3 = 162 Then
U3 = 224
End If

If Adc3 = 165 Then
U3 = 225
End If

If Adc3 = 168 Then
U3 = 226
End If

If Adc3 = 171 Then
U3 = 227
End If

If Adc3 = 174 Then
U3 = 228
End If

If Adc3 = 177 Then
U3 = 239
End If

If Adc3 = 180 Then
U3 = 230
End If

If Adc3 = 183 Then
U3 = 231
End If

If Adc3 = 186 Then
U3 = 232
End If

If Adc3 = 189 Then
U3 = 233
End If

If Adc3 = 192 Then
U3 = 234
End If

If Adc3 = 195 Then
U3 = 235
End If

If Adc3 = 198 Then
U3 = 236
End If

If Adc3 = 201 Then
U3 = 237
End If

If Adc3 = 204 Then
U3 = 238
End If

If Adc3 = 207 Then
U3 = 239
End If

If Adc3 = 210 Then
U3 = 240
End If

If Adc3 = 213 Then
U3 = 241
End If

If Adc3 = 216 Then
U3 = 242
End If

If Adc3 = 219 Then
U3 = 243
End If

If Adc3 = 222 Then
U3 = 244
End If

If Adc3 = 225 Then
U3 = 245
End If

If Adc3 = 228 Then
U3 = 246
End If

If Adc3 = 231 Then
U3 = 247
End If

If Adc3 = 234 Then
U3 = 248
End If

If Adc3 = 237 Then
U3 = 249
End If

If Adc3 = 240 Then
U3 = 250
End If

If Adc3 = 243 Then
U3 = 251
End If

If Adc3 = 246 Then
U3 = 252
End If

If Adc3 = 249 Then
U3 = 253
End If

If Adc3 = 252 Then
U3 = 254
End If

If Adc3 = 255 Then
U3 = 255
End If
End Sub

**پروفسور** · 2012-02-21T23:13:06

پاسخ : سه تا ADC

ای بابا اینقدر IF داره این برنامه قاط میزنه که
اولا وقتی یک شرط اجراشدنی داری نیازی به END IF نداری
مثلا
IF A=0 THEN D=X
میری خط بعد
پانیا بهتر نبود از دستور CASE یا مشابهات اون استفاده میشد
ما که اخر نفهمیدیم این برنامه چی بید

**leylijoon** · 2012-02-22T10:14:21

پاسخ : سه تا ADC

سلام

الان این برنامه جواب داد..؟؟؟ راضی هستی ازش؟؟

مگه قرار نبود مقدار یک کانال ADC و بخونی اگه فلان فلان فلان؟؟

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

**erfan m** · 2012-02-22T12:59:16

پاسخ : سه تا ADC

نوشته اصلی توسط شهرام کشت پور

ای بابا اینقدر IF داره این برنامه قاط میزنه که
اولا وقتی یک شرط اجراشدنی داری نیازی به END IF نداری
مثلا
IF A=0 THEN D=X
میری خط بعد
پانیا بهتر نبود از دستور CASE یا مشابهات اون استفاده میشد
ما که اخر نفهمیدیم این برنامه چی بید

دیر گفتی دیگه که از کاز استفاده کنم :angry:

نوشته اصلی توسط تیبا

سلام

الان این برنامه جواب داد..؟؟؟ راضی هستی ازش؟؟

مگه قرار نبود مقدار یک کانال ADC و بخونی اگه فلان فلان فلان؟؟

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

اره به چه توپی هم جواب داد :wow:
مشکل کمبود سرعت هم نداره
765 خط برنامس که توی یه ثانیه با فرکانس 1M انجام میده :wow:

**leylijoon** · 2012-02-22T13:33:15

پاسخ : سه تا ADC

نوشته اصلی توسط erfan m

دیر گفتی دیگه که از کاز استفاده کنم :angry:
اره به چه توپی هم جواب داد :wow:
مشکل کمبود سرعت هم نداره
765 خط برنامس که توی یه ثانیه با فرکانس 1M انجام میده :wow:

بابا تو دیگه کی هستی دست ش ......

:mrgreen:
ولی خلاصه برنامه هرچی کمتر باشه تعداد خط هاش بهتره
خلاصه ایول که جواب گرفتی

اطلاعیه

سه تا ADC

سه تا ADC

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه

دیدگاه