سلام
من می خوام سرعت سه تا موتور رو از راه دور کنترول کنم اما بعضی موقع ها سرعت موتور یک دفعه زیاد میشه بعد موتور اول با دوم هم کار نمکنه یعنی از PWM هست نمی دونم چشه وقتی با این Clear Up یا دون می کنم کار نمی کنه یعنی با حد اکثر سرعت می چرخه نه کم میشه نه زیاد
برنامه فرستنده :
بعد برنامه خیلی زیاده موتور تیک تیک می چرخه :mrgreen:
من می خوام سرعت سه تا موتور رو از راه دور کنترول کنم اما بعضی موقع ها سرعت موتور یک دفعه زیاد میشه بعد موتور اول با دوم هم کار نمکنه یعنی از PWM هست نمی دونم چشه وقتی با این Clear Up یا دون می کنم کار نمی کنه یعنی با حد اکثر سرعت می چرخه نه کم میشه نه زیاد
برنامه فرستنده :
کد:
$regfile = "M16def.dat " $crystal = 11059200 Baud = 9600 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 '******************ADC************************************************************* Do Adc2 = Getadc(1) Call Pwm.2 Printbin U2 Adc3 = Getadc(2) Call Pwm.3 Printbin U3 Loop End '**********************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 '**********************************************************sub2**************************** Sub Pwm.2 Adc2 = Adc2 / 4 If Adc2 = 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 '**************************************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
بعد برنامه خیلی زیاده موتور تیک تیک می چرخه :mrgreen:
دیدگاه