proton bank taşması

hdalcı · 06 Mayıs 2013, 02:03:56

selam arkadaşlar değişkenlerle oynamadan taşmaları nasıl düzeltebilirim
öyle bir komut varmı yada ne yapabilirim öneriniz varmı

;________________________________________
Device = 18F8722
Declare Xtal = 4

Dim DEGER27 As Byte
Dim DEGER2 As Byte
Dim DEGER3 As Byte
Dim DEGER4 As Byte
Dim DEGER5 As Byte
Dim DEGER6 As Byte
Dim DEGER7 As Byte
Dim DEGER8 As Byte
Dim DEGER9 As Byte
Dim DEGER10 As Byte
Dim DEGER11 As Byte
Dim DEGER12 As Byte
Dim DEGER13 As Byte
Dim DEGER14 As Word
Dim DEGER15 As Byte
Dim DEGER16 As Byte
Dim DEGER17 As Byte
Dim DEGER18 As Byte
Dim DEGER19 As Byte
Dim DEGER20 As Byte
Dim DEGER21 As Byte
Dim DEGER22 As Byte
Dim DEGER23 As Byte
Dim DEGER24 As Byte
Dim DEGER25 As Byte
Dim DEGER26 As Byte
Dim DEGER1 As Byte
Dim DEGER28 As Byte
Dim DEGER29 As Byte
Dim DEGER30 As Byte
Dim DEGER31 As Byte
Dim DEGER32 As Byte
Dim DEGER33 As Byte
Dim DEGER34 As Byte
Dim DEGER35 As Byte
Dim DEGER36 As Byte
Dim DEGER37 As Byte
Dim DEGER38 As Byte
Dim DEGER39 As Byte
Dim DEGER40 As Byte
Dim DEGER41 As Byte
Dim DEGER42 As Byte
Dim DEGER43 As Byte
Dim DEGER44 As Byte
Dim DEGER45 As Byte
Dim DEGER46 As Byte
Dim DEGER47 As Byte
Dim DEGER48 As Byte
Dim DEGER49 As Byte
Dim DEGER50 As Byte
Dim DEGER51 As Byte
Dim DEGER52 As Byte
Dim DEGER53 As Byte
Dim DEGER54 As Byte
Dim DEGER55 As Byte
Dim DEGER56 As Byte
Dim DEGER57 As Byte
Dim DEGER58 As Byte
Dim DEGER59 As Byte
Dim DEGER60 As Byte
Dim DEGER61 As Byte
Dim DEGER62 As Byte
Dim DEGER63 As Byte
Dim DEGER64 As Byte
Dim DEGER65 As Byte
Dim DEGER66 As Byte
Dim DEGER67 As Byte
Dim DEGER68 As Byte
Dim DEGER69 As Byte
Dim DEGER70 As Byte
Dim DEGER71 As Byte
Dim DEGER72 As Byte
Dim DEGER73 As Byte
Dim DEGER74 As Byte
Dim DEGER75 As Byte
Dim DEGER76 As Byte
Dim DEGER77 As Byte
Dim DEGER78 As Byte
Dim DEGER79 As Byte
Dim DEGER80 As Byte
Dim DEGER81 As Byte
Dim DEGER82 As Byte
Dim DEGER84 As Byte
Dim DEGER85 As Byte
Dim DEGER86 As Byte
Dim DEGER87 As Byte
Dim DEGER88 As Byte
Dim DEGER89 As Byte
Dim DEGER90 As Byte
Dim DEGER91 As Byte
Dim DEGER92 As Byte
Dim DEGER93 As Byte
Dim DEGER94 As Byte
Dim DEGER95 As Byte
Dim DEGER96 As Byte
Dim DEGER97 As Byte
Dim DEGER98 As Byte
Dim DEGER99 As Byte
Dim deger100 As Byte
Dim DEGER101 As Byte
Dim DEGER102 As Byte
Dim DEGER103 As Byte
Dim DEGER104 As Byte
Dim DEGER105 As Byte
Dim DEGER106 As Byte
Dim DEGER107 As Byte
Dim DEGER108 As Byte
Dim DEGER109 As Byte
Dim DEGER110 As Byte
Dim DEGER111 As Byte
Dim DEGER112 As Byte
Dim DEGER113 As Byte
Dim DEGER114 As Word
Dim DEGER115 As Byte
Dim DEGER116 As Byte
Dim DEGER117 As Byte
Dim DEGER118 As Byte
Dim DEGER119 As Byte
Dim DEGER120 As Byte
Dim DEGER121 As Byte
Dim DEGER122 As Byte
Dim DEGER123 As Byte
Dim DEGER124 As Byte
Dim DEGER125 As Byte
Dim DEGER126 As Byte
Dim DEGER127 As Byte
Dim DEGER128 As Byte
Dim DEGER129 As Byte
Dim DEGER130 As Byte
Dim DEGER131 As Byte
Dim DEGER132 As Byte
Dim DEGER133 As Byte
Dim DEGER134 As Byte
Dim DEGER135 As Byte
Dim DEGER136 As Byte
Dim DEGER137 As Byte
Dim DEGER138 As Byte
Dim DEGER139 As Byte
Dim DEGER140 As Byte
Dim DEGER141 As Byte
Dim DEGER142 As Byte
Dim DEGER143 As Byte
Dim DEGER144 As Byte
Dim DEGER145 As Byte
Dim DEGER146 As Byte
Dim DEGER147 As Byte
Dim DEGER148 As Byte
Dim DEGER149 As Byte
Dim DEGER150 As Dword
Dim DEGER151 As Byte
Dim DEGER152 As Dword
Dim DEGER153 As Dword
Dim DEGER154 As Dword
Dim DEGER155 As Dword
Dim DEGER156 As Dword
Dim DEGER157 As Dword
Dim DEGER158 As Dword
Dim DEGER159 As Dword
Dim DEGER160 As Dword
Dim DEGER161 As Dword
Dim DEGER162 As Dword
Dim DEGER163 As Dword
Dim DEGER164 As Dword
Dim DEGER165 As Dword
Dim DEGER166 As Byte
Dim DEGER167 As Byte

Dim DEGER1001 As Byte
Dim DEGER1002 As Byte
Dim DEGER1003 As Byte
Dim DEGER1004 As Byte
Dim DEGER1005 As Byte

Dim DEGER168 As Dword
Dim DEGER169 As Dword
Dim DEGER170 As Dword
Dim DEGER171 As Dword
Dim DEGER172 As Dword
Dim DEGER173 As Dword
Dim DEGER174 As Dword
Dim DEGER175 As Dword
Dim DEGER176 As Dword
Dim DEGER177 As Dword
Dim DEGER178 As Dword
Dim DEGER179 As Dword
Dim DEGER180 As Dword
Dim DEGER181 As Dword
Dim DEGER182 As Dword
Dim DEGER183 As Dword
Dim DEGER184 As Dword
Dim DEGER185 As Dword
Dim DEGER186 As Dword
Dim DEGER187 As Dword
Dim DEGER188 As Dword
Dim DEGER189 As Dword
Dim DEGER190 As Dword
Dim DEGER191 As Dword
Dim DEGER192 As Byte
Dim DEGER193 As Byte
Dim DEGER194 As Byte
Dim DEGER195 As Byte
Dim DEGER196 As Byte
Dim DEGER197 As Byte
Dim DEGER198 As Byte
Dim DEGER199 As Byte
Dim DEGER200 As Byte
Dim DEGER201 As Byte
Dim DEGER202 As Byte
Dim DEGER203 As Byte
Dim DEGER204 As Byte
Dim DEGER205 As Byte
Dim DEGER206 As Byte
Dim DEGER207 As Byte
Dim DEGER208 As Byte
Dim DEGER209 As Byte
Dim DEGER210 As Byte
Dim DEGER211 As Byte
Dim DEGER212 As Byte
Dim DEGER213 As Byte
Dim DEGER214 As Word
Dim DEGER215 As Byte
Dim DEGER216 As Byte
Dim DEGER217 As Byte
Dim DEGER218 As Byte
Dim DEGER219 As Byte
Dim DEGER220 As Byte
Dim DEGER221 As Byte
Dim DEGER222 As Byte
Dim DEGER223 As Byte
Dim DEGER224 As Byte
Dim DEGER225 As Byte
Dim DEGER226 As Byte
Dim DEGER227 As Byte
Dim DEGER228 As Byte
Dim DEGER229 As Byte
Dim DEGER230 As Byte
Dim DEGER231 As Byte
Dim DEGER232 As Byte
Dim DEGER233 As Byte
Dim DEGER234 As Byte
Dim DEGER235 As Byte
Dim DEGER236 As Byte
Dim DEGER237 As Byte
Dim DEGER238 As Byte
Dim DEGER239 As Byte
Dim DEGER240 As Byte
Dim DEGER241 As Byte
Dim DEGER242 As Byte
Dim DEGER243 As Byte
Dim DEGER244 As Byte
Dim DEGER245 As Byte
Dim DEGER246 As Byte
Dim DEGER247 As Byte
Dim DEGER248 As Byte
Dim DEGER249 As Byte
Dim DEGER250 As Byte
Dim DEGER251 As Byte
Dim DEGER252 As Byte
Dim DEGER253 As Byte
Dim DEGER254 As Byte
Dim DEGER255 As Byte
Dim DEGER256 As Byte
Dim DEGER257 As Byte
Dim DEGER258 As Byte
Dim DEGER259 As Byte
Dim DEGER260 As Byte
Dim DEGER261 As Byte
Dim DEGER262 As Byte
Dim DEGER263 As Byte
Dim DEGER264 As Byte
Dim DEGER265 As Byte
Dim DEGER266 As Byte
Dim DEGER267 As Byte
Dim DEGER268 As Byte
Dim DEGER269 As Byte
Dim DEGER270 As Byte
Dim DEGER271 As Byte
Dim DEGER272 As Byte
Dim DEGER273 As Byte
Dim DEGER274 As Byte
Dim DEGER275 As Byte
Dim DEGER276 As Byte
Dim DEGER277 As Byte
Dim DEGER278 As Byte
Dim DEGER279 As Byte
Dim DEGER280 As Byte
Dim DEGER281 As Byte
Dim DEGER282 As Byte
Dim DEGER284 As Byte
Dim DEGER285 As Byte
Dim DEGER286 As Byte
Dim DEGER287 As Byte
Dim DEGER288 As Byte
Dim DEGER289 As Byte
Dim DEGER290 As Byte
Dim DEGER291 As Byte
Dim DEGER292 As Byte
Dim DEGER293 As Byte
Dim DEGER294 As Byte
Dim DEGER295 As Byte
Dim DEGER296 As Byte
Dim DEGER297 As Byte
Dim DEGER298 As Byte
Dim DEGER299 As Byte
Dim DEGER300 As Byte
Dim DEGER301 As Dword
Dim DEGER302 As Dword
Dim DEGER303 As Dword
Dim DEGER304 As Dword
Dim DEGER305 As Dword
Dim DEGER306 As Dword
Dim DEGER307 As Dword
Dim DEGER308 As Dword
Dim DEGER309 As Dword
Dim DEGER310 As Dword
Dim DEGER311 As Dword
Dim DEGER312 As Dword
Dim DEGER1007 As Byte
Dim DEGER1008 As Byte
Dim DEGER313 As Dword
Dim DEGER314 As Dword
Dim DEGER1009 As Byte
Dim DEGER1010 As Byte
Dim DEGER315 As Dword
Dim DEGER316 As Dword
Dim DEGER317 As Dword
Dim DEGER318 As Dword
Dim DEGER319 As Dword
Dim DEGER320 As Dword
Dim DEGER321 As Dword
Dim DEGER322 As Dword
Dim DEGER1011 As Byte
Dim DEGER323 As Dword
Dim DEGER324 As Dword
Dim DEGER325 As Dword
Dim DEGER326 As Dword
Dim DEGER327 As Dword
Dim DEGER328 As Dword
Dim DEGER329 As Dword
Dim DEGER330 As Dword
Dim DEGER331 As Dword
Dim DEGER332 As Dword
Dim DEGER333 As Dword
Dim DEGER334 As Dword
Dim DEGER335 As Dword
Dim DEGER336 As Dword
Dim DEGER337 As Dword
Dim DEGER338 As Dword
Dim DEGER339 As Dword
Dim DEGER340 As Dword
Dim DEGER341 As Dword
Dim DEGER342 As Dword
Dim DEGER343 As Dword
Dim DEGER344 As Dword
Dim DEGER345 As Dword
Dim DEGER346 As Dword
Dim DEGER347 As Dword
Dim DEGER348 As Dword
Dim DEGER349 As Dword
Dim DEGER350 As Dword
Dim DEGER351 As Dword
Dim DEGER352 As Dword
Dim DEGER353 As Dword
Dim DEGER354 As Dword
Dim DEGER355 As Dword
Dim DEGER356 As Dword
Dim DEGER357 As Dword
Dim DEGER358 As Dword
Dim DEGER359 As Dword
Dim DEGER360 As Dword
Dim DEGER361 As Byte
Dim DEGER362 As Byte
Dim DEGER363 As Byte
Dim DEGER364 As Byte
Dim DEGER365 As Byte
Dim DEGER366 As Byte
Dim DEGER367 As Byte
Dim DEGER368 As Byte
Dim DEGER369 As Byte
Dim DEGER370 As Byte
Dim DEGER371 As Byte
Dim DEGER372 As Byte
Dim DEGER373 As Byte
Dim DEGER374 As Byte
Dim DEGER375 As Byte
Dim DEGER376 As Byte
Dim DEGER377 As Byte
Dim DEGER378 As Byte
Dim DEGER379 As Byte
Dim DEGER380 As Byte
Dim DEGER381 As Byte
Dim DEGER382 As Byte
Dim DEGER384 As Byte
Dim DEGER385 As Byte
Dim DEGER386 As Byte
Dim DEGER387 As Byte
Dim DEGER388 As Byte
Dim DEGER389 As Byte
Dim DEGER390 As Byte
Dim DEGER391 As Byte
Dim DEGER392 As Byte
Dim DEGER393 As Byte
Dim DEGER394 As Byte
Dim DEGER395 As Byte
Dim DEGER396 As Byte
Dim DEGER397 As Byte
Dim DEGER398 As Byte
Dim DEGER399 As Byte
Dim DEGER400 As Dword
Dim DEGER401 As Dword
Dim DEGER402 As Dword
Dim DEGER403 As Dword
Dim DEGER404 As Dword
Dim DEGER405 As Dword
Dim DEGER406 As Dword
Dim DEGER407 As Dword
Dim DEGER408 As Dword
Dim DEGER409 As Dword
Dim DEGER410 As Dword
Dim DEGER411 As Dword
Dim DEGER412 As Dword
Dim DEGER413 As Dword
Dim DEGER414 As Dword
Dim DEGER415 As Dword
Dim DEGER416 As Dword
Dim DEGER417 As Dword
Dim DEGER418 As Dword
Dim DEGER419 As Dword
Dim DEGER420 As Dword
Dim DEGER421 As Dword
Dim DEGER422 As Dword
Dim DEGER423 As Dword
Dim DEGER424 As Dword
Dim DEGER425 As Dword
Dim DEGER426 As Dword
Dim DEGER427 As Dword
Dim DEGER428 As Dword
Dim DEGER429 As Dword
Dim DEGER430 As Dword
Dim DEGER431 As Dword
Dim DEGER432 As Dword
Dim DEGER433 As Dword
Dim DEGER434 As Dword
Dim DEGER435 As Dword
Dim DEGER436 As Dword
Dim DEGER437 As Dword
Dim DEGER438 As Dword
Dim DEGER439 As Dword
Dim DEGER440 As Dword
Dim DEGER441 As Dword
Dim DEGER442 As Dword
Dim DEGER443 As Dword
Dim DEGER444 As Dword
Dim DEGER445 As Dword
Dim DEGER446 As Dword
Dim DEGER447 As Dword
Dim DEGER448 As Dword
Dim DEGER449 As Dword
Dim DEGER450 As Dword
Dim DEGER451 As Dword
Dim DEGER452 As Dword
Dim DEGER453 As Dword
Dim DEGER454 As Dword
Dim DEGER455 As Dword
Dim DEGER456 As Dword
Dim DEGER457 As Dword
Dim DEGER458 As Dword
Dim DEGER459 As Dword
Dim DEGER460 As Dword
Dim DEGER461 As Dword
Dim DEGER462 As Dword
Dim DEGER463 As Dword
Dim DEGER464 As Dword
Dim DEGER465 As Dword
Dim DEGER466 As Dword
Dim DEGER467 As Dword
Dim DEGER468 As Dword
Dim DEGER469 As Dword
Dim DEGER470 As Dword
Dim DEGER471 As Dword
Dim DEGER472 As Dword
Dim DEGER473 As Dword
Dim DEGER474 As Dword
Dim DEGER475 As Dword
Dim DEGER476 As Dword
Dim DEGER477 As Dword
Dim DEGER478 As Dword
Dim DEGER479 As Dword
Dim DEGER480 As Dword
Dim DEGER481 As Dword
Dim DEGER482 As Dword
Dim DEGER483 As Dword
Dim DEGER484 As Dword
Dim DEGER485 As Dword
Dim DEGER486 As Dword
Dim DEGER487 As Dword
Dim DEGER488 As Dword
Dim DEGER489 As Dword
Dim DEGER490 As Dword
Dim DEGER491 As Dword
Dim DEGER492 As Dword
Dim DEGER493 As Byte
Dim DEGER494 As Byte
Dim DEGER495 As Byte
Dim DEGER496 As Byte
Dim DEGER497 As Byte
Dim DEGER498 As Byte
Dim DEGER499 As Byte
Dim DEGER500 As Byte
Dim DEGER501 As Byte
Dim DEGER502 As Byte
Dim DEGER503 As Byte
Dim DEGER504 As Byte
Dim DEGER505 As Byte
Dim DEGER506 As Byte
Dim DEGER507 As Byte
Dim DEGER508 As Byte
Dim DEGER509 As Byte
Dim DEGER510 As Byte
Dim DEGER511 As Byte
Dim DEGER512 As Byte
Dim DEGER513 As Byte
Dim DEGER514 As Word
Dim DEGER515 As Byte
Dim DEGER516 As Byte
Dim DEGER517 As Byte
Dim DEGER518 As Byte
Dim DEGER519 As Byte
Dim DEGER520 As Byte
Dim DEGER521 As Byte
Dim DEGER522 As Byte
Dim DEGER523 As Byte
Dim DEGER524 As Byte
Dim DEGER525 As Byte
Dim DEGER526 As Byte
Dim DEGER527 As Byte
Dim DEGER528 As Byte
Dim DEGER529 As Byte
Dim DEGER530 As Byte
Dim DEGER531 As Byte
Dim DEGER532 As Byte
Dim DEGER533 As Byte
Dim DEGER534 As Byte
Dim DEGER535 As Byte
Dim DEGER536 As Byte
Dim DEGER537 As Byte
Dim DEGER538 As Byte
Dim DEGER539 As Byte
Dim DEGER540 As Byte
Dim DEGER541 As Byte
Dim DEGER542 As Byte
Dim DEGER543 As Byte
Dim DEGER544 As Byte
Dim DEGER545 As Byte
Dim DEGER546 As Byte
Dim DEGER547 As Byte
Dim DEGER548 As Byte
Dim DEGER549 As Byte
Dim DEGER550 As Byte
Dim DEGER551 As Byte
Dim DEGER552 As Byte
Dim DEGER553 As Byte
Dim DEGER554 As Byte
Dim DEGER555 As Byte
Dim DEGER556 As Byte
Dim DEGER557 As Byte
Dim DEGER558 As Byte
Dim DEGER559 As Byte
Dim DEGER560 As Byte
Dim DEGER561 As Byte
Dim DEGER562 As Byte
Dim DEGER563 As Byte
Dim DEGER564 As Byte
Dim DEGER565 As Byte
Dim DEGER566 As Byte
Dim DEGER567 As Byte
Dim DEGER568 As Byte
Dim DEGER569 As Byte
Dim DEGER570 As Byte
Dim DEGER571 As Byte
Dim DEGER572 As Byte
Dim DEGER573 As Byte
Dim DEGER574 As Byte
Dim DEGER575 As Byte
Dim DEGER576 As Byte
Dim DEGER577 As Byte
Dim DEGER578 As Byte
Dim DEGER579 As Byte
Dim DEGER580 As Byte
Dim DEGER581 As Byte
Dim DEGER582 As Byte
Dim DEGER584 As Byte
Dim DEGER585 As Byte
Dim DEGER586 As Byte
Dim DEGER587 As Byte
Dim DEGER588 As Byte
Dim DEGER589 As Byte
Dim DEGER590 As Byte
Dim DEGER591 As Byte
Dim DEGER592 As Byte
Dim DEGER593 As Byte
Dim DEGER594 As Byte
Dim DEGER595 As Byte
Dim DEGER596 As Byte
Dim DEGER597 As Byte
Dim DEGER598 As Byte
Dim DEGER599 As Byte
Dim DEGER600 As Byte
Dim DEGER601 As Dword
Dim DEGER602 As Dword
Dim DEGER603 As Dword
Dim DEGER604 As Dword
Dim DEGER605 As Dword
Dim DEGER606 As Dword
Dim DEGER607 As Dword
Dim DEGER608 As Dword
Dim DEGER609 As Dword
Dim DEGER610 As Dword
Dim DEGER611 As Dword
Dim DEGER612 As Dword
Dim DEGER1016 As Byte
Dim DEGER1015 As Byte
Dim DEGER613 As Dword
Dim DEGER614 As Dword
Dim DEGER1014 As Byte
Dim DEGER1017 As Byte
Dim DEGER615 As Dword
Dim DEGER616 As Dword
Dim DEGER1013 As Byte
Dim DEGER617 As Dword
Dim DEGER618 As Dword
Dim DEGER619 As Dword
Dim DEGER620 As Dword
Dim DEGER621 As Dword
Dim DEGER622 As Dword
;Dim DEGER1011 As Byte
Dim DEGER623 As Dword
Dim DEGER624 As Dword
Dim DEGER625 As Dword
Dim DEGER626 As Dword
Dim DEGER627 As Dword
Dim DEGER628 As Dword
Dim DEGER629 As Dword
Dim DEGER630 As Dword
Dim DEGER631 As Dword
Dim DEGER632 As Dword
Dim DEGER633 As Dword
Dim DEGER634 As Dword
Dim DEGER635 As Dword
Dim DEGER636 As Dword
Dim DEGER637 As Dword
Dim DEGER638 As Dword
Dim DEGER639 As Dword
Dim DEGER640 As Dword
Dim DEGER641 As Dword
Dim DEGER642 As Dword
Dim DEGER643 As Dword
Dim DEGER644 As Dword
Dim DEGER645 As Dword
Dim DEGER646 As Dword
Dim DEGER647 As Dword
Dim DEGER648 As Dword
Dim DEGER649 As Dword
Dim DEGER650 As Dword
Dim DEGER651 As Dword
Dim DEGER652 As Dword
Dim DEGER653 As Dword
Dim DEGER654 As Dword
Dim DEGER655 As Dword
Dim DEGER656 As Dword
Dim DEGER1012 As Byte
Dim DEGER657 As Dword
Dim DEGER658 As Dword
Dim DEGER659 As Dword
Dim DEGER660 As Dword
Dim DEGER661 As Byte
Dim DEGER662 As Byte
Dim DEGER663 As Byte
Dim DEGER664 As Byte
Dim DEGER665 As Byte
Dim DEGER666 As Byte
Dim DEGER667 As Byte
Dim DEGER668 As Byte
Dim DEGER669 As Byte
Dim DEGER670 As Byte
Dim DEGER671 As Byte
Dim DEGER672 As Byte
Dim DEGER673 As Byte
Dim DEGER674 As Byte
Dim DEGER675 As Byte
Dim DEGER676 As Byte
Dim DEGER677 As Byte
Dim DEGER678 As Byte
Dim DEGER679 As Byte
Dim DEGER680 As Byte
Dim DEGER681 As Byte
Dim DEGER682 As Byte
Dim DEGER684 As Byte
Dim DEGER685 As Byte
Dim DEGER686 As Byte
Dim DEGER687 As Byte
Dim DEGER688 As Byte
Dim DEGER689 As Byte
Dim DEGER690 As Dword
Dim DEGER691 As Word
Dim DEGER692 As Byte
Dim DEGER693 As Byte
Dim DEGER694 As Byte
Dim DEGER695 As Byte
Dim DEGER696 As Byte
Dim DEGER697 As Byte
Dim DEGER698 As Dword
Dim DEGER699 As Dword
Dim DEGER700 As Word

Dim Raw As Word
Dim Volts As Float
;_______________________________________________

OG · 06 Mayıs 2013, 03:19:00

Taşma yapan yerleri aşağı doğru kaydırman gerekir.
Yer israf etmeden bunun en kolay yolu, sonlardaki byte büyüklüğündeki değişkenleri alıp taşma yapan yerin önüne girmek (taşımak) ile olabilir.

1 byte taşmaya engel olmadıysa bir tane daha taşınır, gerekirse 1 tane daha. Gibi. Aşağıdaki kod bu yöntemle düzeltilmiş hali.

Ayrıca Array (dizi) kullanmadan bu kadar değişken ile nasıl başa çıkacaksın merak ettim...

Device = 18F8722
   Declare Xtal = 4
 
 
 
 
         Dim DEGER27 As Byte
         Dim DEGER2  As Byte
         Dim DEGER3  As Byte
         Dim DEGER4  As Byte
         Dim DEGER5  As Byte
         Dim DEGER6  As Byte
         Dim DEGER7  As Byte 
         Dim DEGER8  As Byte
         Dim DEGER9  As Byte                             
         Dim DEGER10 As Byte
         Dim DEGER11 As Byte
         Dim DEGER12 As Byte
         Dim DEGER13 As Byte
         Dim DEGER14 As Word 
         Dim DEGER15 As Byte
         Dim DEGER16 As Byte
         Dim DEGER17 As Byte
         Dim DEGER18 As Byte
         Dim DEGER19 As Byte
         Dim DEGER20 As Byte
         Dim DEGER21 As Byte
         Dim DEGER22 As Byte
         Dim DEGER23 As Byte 
         Dim DEGER24 As Byte
         Dim DEGER25 As Byte
         Dim DEGER26 As Byte
         Dim DEGER1  As Byte
         Dim DEGER28 As Byte
         Dim DEGER29 As Byte
         Dim DEGER30 As Byte
         Dim DEGER31 As Byte
         Dim DEGER32 As Byte
         Dim DEGER33 As Byte 
         Dim DEGER34 As Byte
         Dim DEGER35 As Byte                             
         Dim DEGER36 As Byte
         Dim DEGER37 As Byte
         Dim DEGER38 As Byte
         Dim DEGER39 As Byte
         Dim DEGER40 As Byte
         Dim DEGER41 As Byte
         Dim DEGER42 As Byte
         Dim DEGER43 As Byte
         Dim DEGER44 As Byte
         Dim DEGER45 As Byte
         Dim DEGER46 As Byte
         Dim DEGER47 As Byte
         Dim DEGER48 As Byte
         Dim DEGER49 As Byte 
         Dim DEGER50 As Byte
         Dim DEGER51 As Byte
         Dim DEGER52 As Byte
         Dim DEGER53 As Byte
         Dim DEGER54 As Byte
         Dim DEGER55 As Byte
         Dim DEGER56 As Byte
         Dim DEGER57 As Byte 
         Dim DEGER58 As Byte
         Dim DEGER59 As Byte                             
         Dim DEGER60 As Byte
         Dim DEGER61 As Byte
         Dim DEGER62 As Byte
         Dim DEGER63 As Byte
         Dim DEGER64 As Byte 
         Dim DEGER65 As Byte
         Dim DEGER66 As Byte
         Dim DEGER67 As Byte
         Dim DEGER68 As Byte
         Dim DEGER69 As Byte
         Dim DEGER70 As Byte
         Dim DEGER71 As Byte
         Dim DEGER72 As Byte
         Dim DEGER73 As Byte 
         Dim DEGER74 As Byte
         Dim DEGER75 As Byte
         Dim DEGER76 As Byte
         Dim DEGER77 As Byte
         Dim DEGER78 As Byte
         Dim DEGER79 As Byte
         Dim DEGER80 As Byte
         Dim DEGER81 As Byte
         Dim DEGER82 As Byte 
         Dim DEGER84 As Byte
         Dim DEGER85 As Byte                             
         Dim DEGER86 As Byte
         Dim DEGER87 As Byte
         Dim DEGER88 As Byte
         Dim DEGER89 As Byte
         Dim DEGER90 As Byte 
         Dim DEGER91 As Byte
         Dim DEGER92 As Byte
         Dim DEGER93 As Byte
         Dim DEGER94 As Byte
         Dim DEGER95 As Byte
         Dim DEGER96 As Byte
         Dim DEGER97 As Byte
         Dim DEGER98 As Byte
         Dim DEGER99 As Byte
         Dim deger100 As Byte
         Dim DEGER101 As Byte
         Dim DEGER102 As Byte
         Dim DEGER103 As Byte
         Dim DEGER104 As Byte
         Dim DEGER105 As Byte
         Dim DEGER106 As Byte
         Dim DEGER107 As Byte 
         Dim DEGER108 As Byte
         Dim DEGER109 As Byte                             
         Dim DEGER110 As Byte
         Dim DEGER111 As Byte
         Dim DEGER112 As Byte
         Dim DEGER113 As Byte
         Dim DEGER114 As Word 
         Dim DEGER115 As Byte
         Dim DEGER116 As Byte
         Dim DEGER117 As Byte
         Dim DEGER118 As Byte
         Dim DEGER119 As Byte
         Dim DEGER120 As Byte
         Dim DEGER121 As Byte
         Dim DEGER122 As Byte
         Dim DEGER123 As Byte 
         Dim DEGER124 As Byte
         Dim DEGER125 As Byte
         Dim DEGER126 As Byte
         Dim DEGER127 As Byte
         Dim DEGER128 As Byte
         Dim DEGER129 As Byte
         Dim DEGER130 As Byte
         Dim DEGER131 As Byte
         Dim DEGER132 As Byte
         Dim DEGER133 As Byte 
         Dim DEGER134 As Byte
         Dim DEGER135 As Byte                             
         Dim DEGER136 As Byte
         Dim DEGER137 As Byte
         Dim DEGER138 As Byte
         Dim DEGER139 As Byte
         Dim DEGER140 As Byte
         Dim DEGER141 As Byte
         Dim DEGER142 As Byte
         Dim DEGER143 As Byte
         Dim DEGER144 As Byte
         Dim DEGER145 As Byte
         Dim DEGER146 As Byte
         Dim DEGER147 As Byte
         Dim DEGER148 As Byte
         Dim DEGER149 As Byte 
         Dim DEGER150 As Dword
         Dim DEGER151 As Byte
         Dim DEGER152 As Dword
         Dim DEGER153 As Dword
         Dim DEGER154 As Dword
         Dim DEGER155 As Dword
         Dim DEGER156 As Dword
         Dim DEGER157 As Dword
         Dim DEGER158 As Dword
         Dim DEGER159 As Dword                             
         Dim DEGER160 As Dword
         Dim DEGER161 As Dword
         Dim DEGER162 As Dword
         Dim DEGER163 As Dword
         Dim DEGER164 As Dword
         Dim DEGER165 As Dword
         Dim DEGER166 As Byte
         Dim DEGER167 As Byte 
         
         Dim DEGER1001 As Byte
         Dim DEGER1002 As Byte
         Dim DEGER1003 As Byte
         Dim DEGER1004 As Byte
         Dim DEGER1005 As Byte
                     
         Dim DEGER168 As Dword
         Dim DEGER169 As Dword
         Dim DEGER170 As Dword
         Dim DEGER171 As Dword
         Dim DEGER172 As Dword
         Dim DEGER173 As Dword
         Dim DEGER174 As Dword
         Dim DEGER175 As Dword
         Dim DEGER176 As Dword

         Dim DEGER696 As Byte
         Dim DEGER697 As Byte
         
         
         Dim DEGER177 As Dword
         Dim DEGER178 As Dword
         Dim DEGER179 As Dword
         Dim DEGER180 As Dword
         Dim DEGER181 As Dword
         Dim DEGER182 As Dword
         Dim DEGER183 As Dword     
         Dim DEGER184 As Dword
         Dim DEGER185 As Dword                             
         Dim DEGER186 As Dword
         Dim DEGER187 As Dword
         Dim DEGER188 As Dword
         Dim DEGER189 As Dword
         Dim DEGER190 As Dword
         Dim DEGER191 As Dword
         Dim DEGER192 As Byte
         Dim DEGER193 As Byte
         Dim DEGER194 As Byte
         Dim DEGER195 As Byte
         Dim DEGER196 As Byte
         Dim DEGER197 As Byte
         Dim DEGER198 As Byte
         Dim DEGER199 As Byte
         Dim DEGER200 As Byte
         Dim DEGER201 As Byte
         Dim DEGER202 As Byte
         Dim DEGER203 As Byte
         Dim DEGER204 As Byte
         Dim DEGER205 As Byte
         Dim DEGER206 As Byte
         Dim DEGER207 As Byte 
         Dim DEGER208 As Byte
         Dim DEGER209 As Byte                             
         Dim DEGER210 As Byte
         Dim DEGER211 As Byte
         Dim DEGER212 As Byte
         Dim DEGER213 As Byte
         Dim DEGER214 As Word 
         Dim DEGER215 As Byte
         Dim DEGER216 As Byte
         Dim DEGER217 As Byte
         Dim DEGER218 As Byte
         Dim DEGER219 As Byte
         Dim DEGER220 As Byte
         Dim DEGER221 As Byte
         Dim DEGER222 As Byte
         Dim DEGER223 As Byte 
         Dim DEGER224 As Byte
         Dim DEGER225 As Byte
         Dim DEGER226 As Byte
         Dim DEGER227 As Byte
         Dim DEGER228 As Byte
         Dim DEGER229 As Byte
         Dim DEGER230 As Byte
         Dim DEGER231 As Byte
         Dim DEGER232 As Byte
         Dim DEGER233 As Byte 
         Dim DEGER234 As Byte
         Dim DEGER235 As Byte                             
         Dim DEGER236 As Byte
         Dim DEGER237 As Byte
         Dim DEGER238 As Byte
         Dim DEGER239 As Byte
         Dim DEGER240 As Byte
         Dim DEGER241 As Byte
         Dim DEGER242 As Byte
         Dim DEGER243 As Byte
         Dim DEGER244 As Byte
         Dim DEGER245 As Byte
         Dim DEGER246 As Byte
         Dim DEGER247 As Byte
         Dim DEGER248 As Byte
         Dim DEGER249 As Byte 
         Dim DEGER250 As Byte
         Dim DEGER251 As Byte
         Dim DEGER252 As Byte
         Dim DEGER253 As Byte
         Dim DEGER254 As Byte
         Dim DEGER255 As Byte
         Dim DEGER256 As Byte
         Dim DEGER257 As Byte
         Dim DEGER258 As Byte
         Dim DEGER259 As Byte                             
         Dim DEGER260 As Byte
         Dim DEGER261 As Byte
         Dim DEGER262 As Byte
         Dim DEGER263 As Byte
         Dim DEGER264 As Byte
         Dim DEGER265 As Byte
         Dim DEGER266 As Byte
         Dim DEGER267 As Byte
         Dim DEGER268 As Byte
         Dim DEGER269 As Byte
         Dim DEGER270 As Byte
         Dim DEGER271 As Byte
         Dim DEGER272 As Byte
         Dim DEGER273 As Byte
         Dim DEGER274 As Byte
         Dim DEGER275 As Byte
         Dim DEGER276 As Byte
         Dim DEGER277 As Byte
         Dim DEGER278 As Byte
         Dim DEGER279 As Byte
         Dim DEGER280 As Byte
         Dim DEGER281 As Byte
         Dim DEGER282 As Byte     
         Dim DEGER284 As Byte
         Dim DEGER285 As Byte                             
         Dim DEGER286 As Byte
         Dim DEGER287 As Byte
         Dim DEGER288 As Byte
         Dim DEGER289 As Byte
         Dim DEGER290 As Byte 
         Dim DEGER291 As Byte
         Dim DEGER292 As Byte
         Dim DEGER293 As Byte
         Dim DEGER294 As Byte
         Dim DEGER295 As Byte
         Dim DEGER296 As Byte
         Dim DEGER297 As Byte
         Dim DEGER298 As Byte
         Dim DEGER299 As Byte
         Dim DEGER300 As Byte 
         Dim DEGER301 As Dword
         Dim DEGER302 As Dword
         Dim DEGER303 As Dword
         Dim DEGER304 As Dword
         Dim DEGER305 As Dword
         Dim DEGER306 As Dword
         Dim DEGER307 As Dword
         Dim DEGER308 As Dword
         Dim DEGER309 As Dword                             
         Dim DEGER310 As Dword
         Dim DEGER311 As Dword
         Dim DEGER312 As Dword                             
         Dim DEGER1007 As Byte
         Dim DEGER1008 As Byte
         Dim DEGER313 As Dword
         Dim DEGER314 As Dword                     
         Dim DEGER1009 As Byte
         Dim DEGER1010 As Byte
         Dim DEGER315 As Dword
         Dim DEGER316 As Dword
         Dim DEGER317 As Dword
         Dim DEGER318 As Dword
         Dim DEGER319 As Dword
         Dim DEGER320 As Dword
         
         Dim DEGER693 As Byte
         Dim DEGER694 As Byte
         Dim DEGER695 As Byte
         
         
         Dim DEGER321 As Dword
         Dim DEGER322 As Dword                     
         Dim DEGER1011 As Byte 
         Dim DEGER323 As Dword
         Dim DEGER324 As Dword
         Dim DEGER325 As Dword
         Dim DEGER326 As Dword
         Dim DEGER327 As Dword
         Dim DEGER328 As Dword
         Dim DEGER329 As Dword
         Dim DEGER330 As Dword
         Dim DEGER331 As Dword
         Dim DEGER332 As Dword
         Dim DEGER333 As Dword 
         Dim DEGER334 As Dword
         Dim DEGER335 As Dword                             
         Dim DEGER336 As Dword
         Dim DEGER337 As Dword
         Dim DEGER338 As Dword
         Dim DEGER339 As Dword
         Dim DEGER340 As Dword
         Dim DEGER341 As Dword
         Dim DEGER342 As Dword
         Dim DEGER343 As Dword
         Dim DEGER344 As Dword
         Dim DEGER345 As Dword
         Dim DEGER346 As Dword
         Dim DEGER347 As Dword
         Dim DEGER348 As Dword
         Dim DEGER349 As Dword 
         Dim DEGER350 As Dword
         Dim DEGER351 As Dword
         Dim DEGER352 As Dword
         Dim DEGER353 As Dword
         Dim DEGER354 As Dword
         Dim DEGER355 As Dword
         Dim DEGER356 As Dword
         Dim DEGER357 As Dword
         Dim DEGER358 As Dword
         Dim DEGER359 As Dword                           
         Dim DEGER360 As Dword
         Dim DEGER361 As Byte
         Dim DEGER362 As Byte
         Dim DEGER363 As Byte
         Dim DEGER364 As Byte
         Dim DEGER365 As Byte
         Dim DEGER366 As Byte
         Dim DEGER367 As Byte
         Dim DEGER368 As Byte
         Dim DEGER369 As Byte
         Dim DEGER370 As Byte
         Dim DEGER371 As Byte
         Dim DEGER372 As Byte
         Dim DEGER373 As Byte
         Dim DEGER374 As Byte
         Dim DEGER375 As Byte
         Dim DEGER376 As Byte
         Dim DEGER377 As Byte
         Dim DEGER378 As Byte
         Dim DEGER379 As Byte
         Dim DEGER380 As Byte
         Dim DEGER381 As Byte
         Dim DEGER382 As Byte     
         Dim DEGER384 As Byte
         Dim DEGER385 As Byte                             
         Dim DEGER386 As Byte
         Dim DEGER387 As Byte
         Dim DEGER388 As Byte
         Dim DEGER389 As Byte
         Dim DEGER390 As Byte
         Dim DEGER391 As Byte
         Dim DEGER392 As Byte
         Dim DEGER393 As Byte
         Dim DEGER394 As Byte
         Dim DEGER395 As Byte
         Dim DEGER396 As Byte
         Dim DEGER397 As Byte
         Dim DEGER398 As Byte
         Dim DEGER399 As Byte
         Dim DEGER400 As Dword
         Dim DEGER401 As Dword
         Dim DEGER402 As Dword
         Dim DEGER403 As Dword
         Dim DEGER404 As Dword
         Dim DEGER405 As Dword
         Dim DEGER406 As Dword
         Dim DEGER407 As Dword
         Dim DEGER408 As Dword
         Dim DEGER409 As Dword                             
         Dim DEGER410 As Dword
         Dim DEGER411 As Dword
         Dim DEGER412 As Dword
         Dim DEGER413 As Dword
         
         Dim DEGER692 As Byte
         
         Dim DEGER414 As Dword 
         Dim DEGER415 As Dword
         Dim DEGER416 As Dword
         Dim DEGER417 As Dword
         Dim DEGER418 As Dword
         Dim DEGER419 As Dword
         Dim DEGER420 As Dword
         Dim DEGER421 As Dword
         Dim DEGER422 As Dword
         Dim DEGER423 As Dword
         Dim DEGER424 As Dword
         Dim DEGER425 As Dword
         Dim DEGER426 As Dword
         Dim DEGER427 As Dword
         Dim DEGER428 As Dword
         Dim DEGER429 As Dword
         Dim DEGER430 As Dword
         Dim DEGER431 As Dword
         Dim DEGER432 As Dword
         Dim DEGER433 As Dword
         Dim DEGER434 As Dword
         Dim DEGER435 As Dword                             
         Dim DEGER436 As Dword
         Dim DEGER437 As Dword
         Dim DEGER438 As Dword
         Dim DEGER439 As Dword
         Dim DEGER440 As Dword
         Dim DEGER441 As Dword
         Dim DEGER442 As Dword
         Dim DEGER443 As Dword
         Dim DEGER444 As Dword
         Dim DEGER445 As Dword
         Dim DEGER446 As Dword
         Dim DEGER447 As Dword
         Dim DEGER448 As Dword
         Dim DEGER449 As Dword
         Dim DEGER450 As Dword
         Dim DEGER451 As Dword
         Dim DEGER452 As Dword
         Dim DEGER453 As Dword
         Dim DEGER454 As Dword
         Dim DEGER455 As Dword
         Dim DEGER456 As Dword
         Dim DEGER457 As Dword
         Dim DEGER458 As Dword
         Dim DEGER459 As Dword                             
         Dim DEGER460 As Dword
         Dim DEGER461 As Dword
         Dim DEGER462 As Dword
         Dim DEGER463 As Dword
         Dim DEGER464 As Dword
         Dim DEGER465 As Dword
         Dim DEGER466 As Dword
         Dim DEGER467 As Dword
         Dim DEGER468 As Dword
         Dim DEGER469 As Dword
         Dim DEGER470 As Dword
         Dim DEGER471 As Dword
         Dim DEGER472 As Dword
         Dim DEGER473 As Dword
         Dim DEGER474 As Dword
         Dim DEGER475 As Dword
         Dim DEGER476 As Dword
         Dim DEGER477 As Dword
         Dim DEGER478 As Dword
         Dim DEGER479 As Dword
         Dim DEGER480 As Dword
         Dim DEGER481 As Dword
         Dim DEGER482 As Dword
         Dim DEGER483 As Dword     
         Dim DEGER484 As Dword
         Dim DEGER485 As Dword                             
         Dim DEGER486 As Dword
         Dim DEGER487 As Dword
         Dim DEGER488 As Dword
         Dim DEGER489 As Dword
         Dim DEGER490 As Dword
         Dim DEGER491 As Dword
         Dim DEGER492 As Dword
         Dim DEGER493 As Byte
         Dim DEGER494 As Byte
         Dim DEGER495 As Byte
         Dim DEGER496 As Byte
         Dim DEGER497 As Byte
         Dim DEGER498 As Byte
         Dim DEGER499 As Byte
         Dim DEGER500 As Byte
         Dim DEGER501 As Byte
         Dim DEGER502 As Byte
         Dim DEGER503 As Byte
         Dim DEGER504 As Byte
         Dim DEGER505 As Byte
         Dim DEGER506 As Byte
         Dim DEGER507 As Byte 
         Dim DEGER508 As Byte
         Dim DEGER509 As Byte                             
         Dim DEGER510 As Byte
         Dim DEGER511 As Byte
         Dim DEGER512 As Byte
         Dim DEGER513 As Byte
         Dim DEGER514 As Word 
         Dim DEGER515 As Byte
         Dim DEGER516 As Byte
         Dim DEGER517 As Byte
         Dim DEGER518 As Byte
         Dim DEGER519 As Byte
         Dim DEGER520 As Byte
         Dim DEGER521 As Byte
         Dim DEGER522 As Byte
         Dim DEGER523 As Byte 
         Dim DEGER524 As Byte
         Dim DEGER525 As Byte
         Dim DEGER526 As Byte
         Dim DEGER527 As Byte
         Dim DEGER528 As Byte
         Dim DEGER529 As Byte
         Dim DEGER530 As Byte
         Dim DEGER531 As Byte
         Dim DEGER532 As Byte
         Dim DEGER533 As Byte 
         Dim DEGER534 As Byte
         Dim DEGER535 As Byte                             
         Dim DEGER536 As Byte
         Dim DEGER537 As Byte
         Dim DEGER538 As Byte
         Dim DEGER539 As Byte
         Dim DEGER540 As Byte
         Dim DEGER541 As Byte
         Dim DEGER542 As Byte
         Dim DEGER543 As Byte
         Dim DEGER544 As Byte
         Dim DEGER545 As Byte
         Dim DEGER546 As Byte
         Dim DEGER547 As Byte
         Dim DEGER548 As Byte
         Dim DEGER549 As Byte 
         Dim DEGER550 As Byte
         Dim DEGER551 As Byte
         Dim DEGER552 As Byte
         Dim DEGER553 As Byte
         Dim DEGER554 As Byte
         Dim DEGER555 As Byte
         Dim DEGER556 As Byte
         Dim DEGER557 As Byte
         Dim DEGER558 As Byte
         Dim DEGER559 As Byte                             
         Dim DEGER560 As Byte
         Dim DEGER561 As Byte
         Dim DEGER562 As Byte
         Dim DEGER563 As Byte
         Dim DEGER564 As Byte
         Dim DEGER565 As Byte
         Dim DEGER566 As Byte
         Dim DEGER567 As Byte
         Dim DEGER568 As Byte
         Dim DEGER569 As Byte
         Dim DEGER570 As Byte
         Dim DEGER571 As Byte
         Dim DEGER572 As Byte
         Dim DEGER573 As Byte
         Dim DEGER574 As Byte
         Dim DEGER575 As Byte
         Dim DEGER576 As Byte
         Dim DEGER577 As Byte
         Dim DEGER578 As Byte
         Dim DEGER579 As Byte
         Dim DEGER580 As Byte
         Dim DEGER581 As Byte
         Dim DEGER582 As Byte     
         Dim DEGER584 As Byte
         Dim DEGER585 As Byte                             
         Dim DEGER586 As Byte
         Dim DEGER587 As Byte
         Dim DEGER588 As Byte
         Dim DEGER589 As Byte
         Dim DEGER590 As Byte 
         Dim DEGER591 As Byte
         Dim DEGER592 As Byte
         Dim DEGER593 As Byte
         Dim DEGER594 As Byte
         Dim DEGER595 As Byte
         Dim DEGER596 As Byte
         Dim DEGER597 As Byte
         Dim DEGER598 As Byte
         Dim DEGER599 As Byte
         Dim DEGER600 As Byte 
         Dim DEGER601 As Dword
         Dim DEGER602 As Dword
         Dim DEGER603 As Dword
         Dim DEGER604 As Dword
         Dim DEGER605 As Dword
         Dim DEGER606 As Dword
         Dim DEGER607 As Dword
         Dim DEGER608 As Dword
         Dim DEGER609 As Dword                             
         Dim DEGER610 As Dword
         Dim DEGER611 As Dword
         Dim DEGER612 As Dword                             
         Dim DEGER1016 As Byte
         Dim DEGER1015 As Byte
         Dim DEGER613 As Dword
         Dim DEGER614 As Dword                     
         Dim DEGER1014 As Byte
         Dim DEGER1017 As Byte
         Dim DEGER615 As Dword
         Dim DEGER616 As Dword
         Dim DEGER1013 As Byte
         Dim DEGER617 As Dword
         Dim DEGER618 As Dword
         Dim DEGER619 As Dword
         Dim DEGER620 As Dword
         
         Dim DEGER689 As Byte
         Dim DEGER688 As Byte
         Dim DEGER687 As Byte
         
         Dim DEGER621 As Dword
         Dim DEGER622 As Dword                     
        ;Dim DEGER1011 As Byte 
         Dim DEGER623 As Dword
         Dim DEGER624 As Dword
         Dim DEGER625 As Dword
         Dim DEGER626 As Dword
         Dim DEGER627 As Dword
         Dim DEGER628 As Dword
         Dim DEGER629 As Dword
         Dim DEGER630 As Dword
         Dim DEGER631 As Dword
         Dim DEGER632 As Dword
         Dim DEGER633 As Dword 
         Dim DEGER634 As Dword
         Dim DEGER635 As Dword                             
         Dim DEGER636 As Dword
         Dim DEGER637 As Dword
         Dim DEGER638 As Dword
         Dim DEGER639 As Dword
         Dim DEGER640 As Dword
         Dim DEGER641 As Dword
         Dim DEGER642 As Dword
         Dim DEGER643 As Dword
         Dim DEGER644 As Dword
         Dim DEGER645 As Dword
         Dim DEGER646 As Dword
         Dim DEGER647 As Dword
         Dim DEGER648 As Dword
         Dim DEGER649 As Dword 
         Dim DEGER650 As Dword
         Dim DEGER651 As Dword
         Dim DEGER652 As Dword
         Dim DEGER653 As Dword
         Dim DEGER654 As Dword
         Dim DEGER655 As Dword
         Dim DEGER656 As Dword       
         Dim DEGER1012 As Byte
         Dim DEGER657 As Dword
         Dim DEGER658 As Dword
         Dim DEGER659 As Dword                           
         Dim DEGER660 As Dword
         Dim DEGER661 As Byte
         Dim DEGER662 As Byte
         Dim DEGER663 As Byte
         Dim DEGER664 As Byte
         Dim DEGER665 As Byte
         Dim DEGER666 As Byte
         Dim DEGER667 As Byte
         Dim DEGER668 As Byte
         Dim DEGER669 As Byte
         Dim DEGER670 As Byte
         Dim DEGER671 As Byte
         Dim DEGER672 As Byte
         Dim DEGER673 As Byte
         Dim DEGER674 As Byte
         Dim DEGER675 As Byte
         Dim DEGER676 As Byte
         Dim DEGER677 As Byte
         Dim DEGER678 As Byte
         Dim DEGER679 As Byte
         Dim DEGER680 As Byte
         Dim DEGER681 As Byte
         Dim DEGER682 As Byte     
         Dim DEGER684 As Byte
         Dim DEGER685 As Byte                             
         Dim DEGER686 As Byte
'         Dim DEGER687 As Byte
'         Dim DEGER688 As Byte
'         Dim DEGER689 As Byte
         Dim DEGER690 As Dword
         Dim DEGER691 As Word
'         Dim DEGER692 As Byte
'         Dim DEGER693 As Byte
'         Dim DEGER694 As Byte
'         Dim DEGER695 As Byte
'         Dim DEGER696 As Byte
'         Dim DEGER697 As Byte
         Dim DEGER698 As Dword
         Dim DEGER699 As Dword
         Dim DEGER700 As Word
       
         
         Dim Raw As Word
         Dim Volts As Float

hdalcı · 06 Mayıs 2013, 08:27:32

cevabınız için teşekkurederim bende byte değerleri araya girerek halletmiştim ama programda ilaveler olunca tekrar düzenlemem gerekti içinden çıkılmaz hale geldi
array nasıl kullanılır bilmiyorum biraz açabilirmisiniz $:-\$

hdalcı · 06 Mayıs 2013, 09:40:36

;________________________
Device = 18F8722
Declare Xtal = 4

Dim deger1[128] As Dword
Dim deger2[256] As Byte
Dim deger3[128] As Dword
Dim deger4[256] As Byte
Dim deger5[256] As Dword
Dim deger6[256] As Byte
Dim deger7[256] As Dword
;________________________________

;böyle olacak galiba
;çağırmak için de
deger2[9]=1 gibi sanırım
deger2[9]=deger2[9] +1
deger2[9]=deger2[9] -1

EWrite 776,[deger2[9]] :DelayMS 10

deger2[9]=ERead 776 :DelayMS 10

;derlemede sorun yok
;teşekkür aderim arkadaşım
;PROTONlamaya devam
Not: birde şu sizin Kod:[Seç] sıyah bölüm nasıl yapılıyor
forumu kirletmek istemıyorum

OG · 06 Mayıs 2013, 09:48:39

Mesaj yazarken gülen yüzlerin üstündeki sırada PI sayısının sembolunun solunda # var. O işaret kod eklemek için.

Ona tıklarsanız [cod e][/cod e] (" e" yi "d" ile arasını bilerek açtım pencereyi eklemesin diye) yazısı çıkar.

İkisinin arasına, yani iki köşeli parantezin arasına kodu yapıştırdınızmı, yapıştırılanlar kod penceresi içinde görülür.

# tıklamadan el ile de
[cod e]
....
[/cod e]

şeklinde yazabilirsiniz.

hdalcı · 06 Mayıs 2013, 10:20:23

;________________________
Device = 18F8722
   Declare Xtal = 4
 
   Dim deger1[128] As Dword
   Dim deger2[256] As Byte
   Dim deger3[128] As Dword
   Dim deger4[256] As Byte
   Dim deger5[256] As Dword
   Dim deger6[256] As Byte
   Dim deger7[256] As Dword
;________________________________

  ;böyle olacak galiba
  ;çağırmak için de
  deger2[9]=1 gibi  sanırım
  deger2[9]=deger2[9] +1
  deger2[9]=deger2[9] -1

  EWrite 776,[deger2[9]] :DelayMS 10

  deger2[9]=ERead 776 :DelayMS 10
   
 ;derlemede sorun yok
 ;teşekkür aderim arkadaşım
 ;PROTONlamaya devam 
 ; teşekkürler

Picproje Elektronik Sitesi

Haberler:

proton bank taşması

hdalcı

OG

hdalcı

hdalcı

OG

hdalcı