Справочник Жаркова по проектированию и программированию искусственного интеллекта. Том 6: Программирование на Visual Basic искусственного интеллекта. Продолжение 2. Валерий Алексеевич Жарков
Чтение книги онлайн.

Читать онлайн книгу Справочник Жаркова по проектированию и программированию искусственного интеллекта. Том 6: Программирование на Visual Basic искусственного интеллекта. Продолжение 2 - Валерий Алексеевич Жарков страница 40

СКАЧАТЬ style="font-size:15px;">       Const BORIS_COLLISION_DX = 31

       Const BORIS_COLLISION_STARTY = 6

       Const BORIS_COLLISION_DY = 7

       Me.CollisionRectangle = New Rectangle( _

      BORIS_COLLISION_STARTX, BORIS_COLLISION_STARTY, _

      BORIS_COLLISION_DX, BORIS_COLLISION_DY)

      End Sub

      '–

      'This function should be called to bring about any change

      'of state

      'It sets/resets any other variables we need to when we deal

      'with state transitions

      '–

      Private Sub ChangeMyMovementState(ByVal newState As _

      ModeOfMovement)

       m_myModeOfMovement = newState

      End Sub

      '–

      'MOVE Boris

      '

      'This function is called to move the character on the screen

      Конец ознакомительного фрагмента.

      Текст предоставлен ООО «ЛитРес».

      Прочитайте эту книгу целиком, купив полную легальную версию на ЛитРес.

      Безопасно оплатить книгу можно банковской картой Visa, MasterCard, Maestro, со счета мобильного телефона, с платежного терминала, в салоне МТС или Связной, через PayPal, WebMoney, Яндекс.Деньги, QIWI Кошелек, бонусными картами или другим удобным Вам способом.

/9j/4AAQSkZJRgABAQEAZABkAAD/4gHbSUNDX1BST0ZJTEUAAQEAAAHLAAAAAAJAAABtbnRyUkdCIFhZWiAAAAAAAAAAAAAAAABhY3NwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA9tYAAQAAAADTLVF0BQ8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAlyWFlaAAAA8AAAABRnWFlaAAABBAAAABRiWFlaAAABGAAAABR3dHB0AAABLAAAABRjcHJ0AAABQAAAAAxyVFJDAAABTAAAACBnVFJDAAABTAAAACBiVFJDAAABTAAAACBkZXNjAAABbAAAAF9YWVogAAAAAAAAb58AADj0AAADkVhZWiAAAAAAAABilgAAt4cAABjcWFlaIAAAAAAAACShAAAPhQAAttNYWVogAAAAAAAA808AAQAAAAEWwnRleHQAAAAATi9BAHBhcmEAAAAAAAMAAAACZmYAAPKnAAANWQAAE9AAAApbZGVzYwAAAAAAAAAFc1JHQgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/2wBDAAoHBwgHBgoICAgLCgoLDhgQDg0NDh0VFhEYIx8lJCIfIiEmKzcvJik0KSEiMEExNDk7Pj4+JS5ESUM8SDc9Pjv/2wBDAQoLCw4NDhwQEBw7KCIoOzs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozs7Ozv/wAARCASwBkADASIAAhEBAxEB/8QAGwABAAMBAQEBAAAAAAAAAAAAAAMEBQYCAQf/xABiEAABAwMBAgYMCAsGBAQEAQ0BAAIDBAUREhMhBhQiMVTwFRYyQVFSkZKT0dLhIzVTYXFzo7IkMzRCVXJ0gZSxwwdjZaGz4jZiwcIXJUVkQ3WCojdEg4S001bxJjh2labE/8QAGwEBAQEBAQEBAQAAAAAAAAAAAAECAwQFBgf/xAA+EQEAAQMCAwYEBAQEBgMBAQAAAQIDERJREyExBBRBUmGhMnGRsQUVgfAiM8HRBjRT4RYjQmKi8UNygiSS/9oADAMBAAIRAxEAPwDSRFYo6QVUoY6UMz4Bk+TK+1f7Ra7PRruziHhppmqcQropbgyC3zbN8+snGNLd/wC8ZUIcx29jw4fMd4+kd5Zsdqs388OrLpd7PdsxE1xjPR9Reo43SyNjYMueQ0DwkrandbrPin4q2qnwC9z8Y7/04+jHNhdqqsco5y5RGWGitXCelqJWyU1OYct5bd2M/MB1+ZWncHa8Raxs3OwOQHb/AFf5priIjVyMbMtFPR0UtdI+OHTqawuwTjPzf5q8/g5XN04MT8nBw47vn3hJrpicTJETLKRX62z1VDEJZND2ZwSwk6fp3L5RWmrrmbSNrWx957zgH6E104zkxPRRRWa2hnoJRHMBvGWubzFVlqJiYzCC+r4paeLb1EUOdO0eG5xnGThJEaLWv9HHTVMckTGMZI3uW7t45937wprlamxUlEyMMbKXiJxA7pzu+Tz84/zXKLsYid2tM82Gi178yZvFttFAzDC0bInvY+YYHgH0qOGwV00YeQyLPM15Of8AIKxcjTmTTOcM1FoRWSqm2mh0RMcmzPK7+7f/AJ/So6i11FPUx02WSSyDIazPN+8fT5FddMzjKYlTRacvB+tiic8GOTSM6WEkn6NyiorRVV0Rlj0MZnALyRq+jcnEpxnJplRRWZrfPDWikw2SU4wGHP8A/D96ty8H62KJzwY5NIzpYSSfo3JNdMeJiWYi2+D1LkS1eGuc3LIwT38b+9u73+a+Cnlr78Yq7Zu2TOU1hIGMbsd/ncszdiKpjZdPJior11oH0dQXnQGSvcWNZ3hn3qWzxwVTZ6OZrdb25jeWjLT38Hn8Bx8xWtcadSY54ZiK7QUDqi5CnkbgRkmUZ7wO8eXdu8K1aVjpairlo4aUwn4FocMcw38w3g5/fuWa7kUrFOXOortHaKqtiMseljM4BeSNX0bl8NsnFwFFrj2hGch27mz9K1rpzjKYlTRWIqKSWuNG1zRIHObkk43Z9SlprVUVNRNCwsBhOHOJ3Zzj/oUmqmOsmJU0VmtoJ6B4bMG4d3LmnIPh/mrd2aG2+3BoAGyJ3D5mprjMY8TDLRWrbTx1VwihlyWOJyAcZwCf+iu11VRRbejFua0sGlj9wdnw+H5+ff8AvUmvFWIgiOWWQi1rRbmVVJUSOa1ziCyMuJ5Jxz/5hVmWmd9dJRh8e0jbqJJOO983zpxKczGxplSRWKKikrpjFE5ocG6uUd3XevVHbqiuJ2TQGg4L3HAC1NUR1MSqot8WySms81O4xmWWRoDm829zQMnH0qtfGTN4ttY4WYYWjZZ72PmGB4B9K503YqnELNOIZK+rSisNZLE15MceoZ0vJBH07lQlikgkdFK0te04IK3FVM8olMTDwiIqCIiqPqIiAiIooiIg+oiICIiAiIg+oiICIiAiIgIiICIiD6iIgIiIC+r4vqgIiICIioL6vi+qAiIgIiIPqIiAiIgIiICIigIiKj6iIoCIiAiIgIiICIiAvq+L6gIiKAiIqC+r4vqAiIoCIiD6iIgIiICIiAiIgIiIPqIiAiIoCIiD6iIgIiIC+r4vqAiIgIiIC+r4vqAiIiiIiAiIgIiIC+r4vqgIiKgiIgL6vi+qAiIgIiIPqIiAiIgIiIPqIiAiIgIiKAiIgIiICIiAiIgK/aaeGoqJGzM1tbGXAZI35Hg+lUFp2P8AKZvqT95q5XpmLczDVEZqhf4hQ9Fb57vWnEKHorfPd61Oi+Txrnml7NFOzMtFPTVVsjqJqdrnvfJnDnAACRwA5+8AFc4hQ9Fb57vWq1g+Iqf9eX/Veueh/tHiqIWTwcE+FEsUjQ9j2W4Oa5pGQQQ7eCFeLc3k0U7Ni+xwUdDG+ngax7542F2pxwC7fzlaENBRGnhc6mDnOja4nW7eSB86yLpXRXPg5brhA17YqqSnmYHgBwa7BGcd/BWhdq6rtvB01tDbn3Gohp2ObSsfpdIMDODg7wMnGCTjA3lb4lejOfFnTTq6LPEKHorfPd61k3tkVLLRR08LYxLI4POSSQGk43nw/wAlRqf7RrGzg1BeKJ76yWrdsqWhj/HyTbvgy0ZwQSMnfzjGctzZu8k8zLPLU0/Fp35dLDrD9m4x726huODuyOdLdy5NcRMz1KqadM8mAvkU8tC1z2Zk5ZeCedpxzbu8vqL7N+xTeommf/Ty2q9FdNUxnE5KCkdcJ3z3BztbQNLCRn6f8v8ANeDAyKpkdGTg7j4CvaL53ZPwyez3Jq4kzHLl0jP78Hq7Z2ye1TEzGMJKWVsNVDK4EtY9rjjnwCtW9W+olrDVQMdNFKGkGMZxux3vozn51jKzTXKspGaIZ3Nb4pAIH0Z5l9Sqmc6qXjiYxiWzX7autdGKhuxllqA1w0kae6HMVPR0lLRVwhiparaAEbc50EYzvOcfNzc65upq6irfrnlc8jmzzD6B3lZbe7i1oaKk4Axva0ny4XKbVWnES1qjOWhaf+Iq3/8AOffCissj22646XuGmPU3B5jh28eQeRZ7blVsqn1TZcTPGlztI3jd3sfMFHDVz08cscT9LZRpeMA5G/1lam3MxP6eyamnA5x4LVIJJDZQBk8wy1XJWMfaKPTQmrjawFwjkLdLt3eHOc5+jesFtVOylfStfiF51Obgbzu7/wC4L3TXCqo2ubTzFjXHJGARn96TbnrG5FULdyrHOo4aN1G+nDSHtD5C443jvjKo0szKepZLJC2Zrc5Y7mO5famsqKxzXVEpeWjA3AAfuCgXSmnFOGZnmuV9ZDV7PY0bKfTnOjHKzj5gpLJHtLrDlmoNy47s43HB8uFnqemqp6OQyQP0OI0k4B3fvUmn+HTBE88y6OlfFctbHPcTS1Je0tdnUMkt3+DvfuVapqG3C1Vz2cvRKCwc5a0aRnHezgnyrFgq56XXsJXM1jDsd/r4Uhqp6eOWOJ+lso0vGAcjf6yuXBxOYa1NWvdG2Gzulxsw0F2RkY5Ody83yCunuBxDLJE0DZ6Wkgbt/N86zJqqeojijlfqbENLBgDA3eoKWG611PGI46hwaOYEB2PKtRRVGJgzEtCLax8H64Pc4Sich5zvzloO/wAqg4PujFzw/GosIZkd/wD/AIZVR9wqpIpYnzFzJXanggbzu9QUDXOY4OaS1wOQQd4KuidMxPimecNe00tbFdg+WKVoGraOdnB3eHv78L3FWcY20MtFJV0hmc5jo2HLd5P/AF+bnVCW7V08TopKgljhggNAyP3Beae51lLFsoZy1gOQCAceVZmiqec9VzENako4LffhCHFwfCTHqGSDnw/QCq9ppa2K7B8sUrQNW0c7ODu8Pf34WW+eWSczvkcZCc6s78qxLdq6eJ0UlQSxwwQGgZH7gk0Vb9TMNCje2WO8SMOWvDiD4QdSpWT43g/+r7pVaGqmgjkjifpbKMPGAcjqV4je6KRsjDhzCCD4CFrR8Ub/ANkz0WLjFJHXTOfG5rXyuLS5pAdv7yipah1LVRzt3lhzjwjvjyL1U1tRWaeMSa9GdPJAxn6PoUC3ETpxKT15OmqnU9DTzXGD8ZUgBhx3yOcbv3nPPhZ/Bz4wk+qP8ws6Sqnlgjgklc6OPuWnvJTVU1JIZIH6HEYJwDu/euXCmKJjxlrVzy0LfUOko+Kz0MlTTB24xtOWnn730+HvqaGiZQcIaeKN7nNcwuGrnG5w/wCizqe51lLFsoZi1gOQCAceVQPnlknM75HGQnOrO/KaJzO0mYbNLR1LOET5XQuEYe92sjdg5xv/AHhfIqCCWWsq52SzBlQ5oijG87/f/kqJvNwJB4ydxzua31KKGvqoJpJo5S18hy84GD3+bmU0VmYa130dhYNnHJE0SgBkmdQ3O8Kr3f4vtv1X/RqqT3SsqIXRSzamO5xpA/6KKSqmlgZDI/UyPuMgZH7+dWm3MYyTVEvMDJZJ2MgDjITydPPlbtLt6+GSK6U2ljGEiZ7dDm9f+m9YMUskErZYnFr2nIIVia6VtRGY5KhxaecABufItV0zV0SJiFyzNLqG4taCXGLAAG87nL7YI3xXKRkjHMcIjlrhgjeFm01VNSSGSB+hxGCcA7v3r66sqHVXGjIdtkHUAB3sKVUTOr1ImOTWsdHUU9dK6aFzGhhblw3E5HN4eZfI2TScHGMoxl5edqGYyRv9ypdmbhqDuMHIGO5GP5KCmrKikc50EhYXDB3Ag+VZmiqZzPouY6NGOKSHg5UtljdG4yA4cMHnavVcY2w2h0uNmGguyMjHJyqE90rKiJ0Us2pjucaQP+iimqpp4445X6mxDDBgDA6hWKKs5n98jVDRutLWyXUviilcDp2bm5wP397fleOED2vuIa05LIwHfMd5/kQq8V1roYmxxzkNaMAFoOPKFVLi5xc4kuJySTvKtNExMZ8CZh8REXRkREVR9REQERFFEREH1ERAREQEREH1ERAREQEREBERAREQfUREBERAX1fF9UBERAREVBfV8X1QEREBERB9REQEREBERAREUBERUfURFAREQEREBERAREQF9XxfUBERQERFQX1fF9QERFAREQfUREBERAREQEREBERB9REQERFAREQfUREBERAX1fF9QEREBERAX1fF9QEREUREQEREBERAX1fF9UBERUEREBfV8X1QEREBERB9REQEREBERB9REQEREBERQEREBERAREQEREBadj/KZvqT95qzFp2P8pm+pP3mrle/ly3b+KGbWf2lcEKCtno6m77OenkdFKzi0p0uacEZDcHeO8t21XWivdtiuNun29LNnRJpc3OCWncQDzgq2i+K9rirwYncGrHBUXmos9NNcZmTVUFSKdzWhtQ4DWd2C5redZlDQ0Ntu1mp+DPDmorpXTOhFLUV7auBkQgkO+JhbuBa0DeANy7iwfEVP+vL/qvWgtTI5yvoOxXBa127a7XijqeDaadOvThucb8ZxzLTu1xltPB010FBUXCWGnYWU1O0ufI4gAAY72TknBwMnBUHCb4vg/aovvLVi/JoPqWfdC3/APH+rP8A1PzCPgjwkslSOHDIaSsvbpHzVtrihaG7Nw3ticATtAM5IyXZO92/adfd6jjbLPU7GWDbZk2UzdL2ZjzpcO8RzEeFdEsPhH+VW36x/wBwpbnNyn5lfwyi7Vf/AHv2XvTtV/8Ae/Ze9dCqlxulJao4n1Rl+Hk2UbYYHzOe7SXYDWAnma483eXXvl/ze0M8KjZk9qv/AL37L3p2q/8AvfsvetCK/UEsTpSKuFjZI4s1FFNDl0jgxgGtozlxA3c2d+FZpa6KrqKyCNrw6jmEMhcBguMbJN3zYeP35Tvd/wA3tBwqNmN2q/8Avfsv СКАЧАТЬ