Вниз  MobPascal
<< 1 ... 5 6 7 8 9 ... 123 >>
- 23.01.2011 / 19:16
#46037
aleksey
  Пользователь
aleksey 
Сейчас: Offline
deem (23.01.2011/18:12)
А как сделать чтобы одно действие повторялось бесконечно?http://annimon.com/forum/?act=post&id=45851
- 23.01.2011 / 23:32
#46090
MG42
  Пользователь
MG42 
Сейчас: Offline
Кто знает что обозначает эта ошибка shоwСurentDir(3) null/jаvа.lаng.Null Роinter Exeptiоn:null
она возникает при запуске МР
- 23.01.2011 / 23:46
#46095
aNNiMON
  Супервизор
aNNiMON 
Сейчас: Offline
MG42, Чтение с переменной, имеющая нулевое значение.

Судя по названию метода та папка, к которой производится доступ удалена.
__________________
 let live
- 24.01.2011 / 21:19
#46258
Dimonik
  Пользователь
Dimonik 
Сейчас: Offline
Как делать опрос клавиш? Чет ничего не выходит. Мож кто пример написать?
Спасиб!
- 24.01.2011 / 21:29
#46262
XakepPRO
  Пользователь
XakepPRO 
Витя уже писал жёлудю, ищи.
- 25.01.2011 / 10:09
#46303
Dimonik
  Пользователь
Dimonik 
Сейчас: Offline
чет ненашел нифига. Пишу как в примерах-не пашет.
- 25.01.2011 / 10:23
#46305
ScRoLiS
  Пользователь
ScRoLiS 
Сейчас: Offline
Dimonik, Попробуй тaк:
  1. program keys;
  2.  
  3.  var k, x, y:integer;
  4.  
  5.  procedure key();
  6.   begin
  7.    k:=getKeyPressed;
  8.    if k=KE_KEY2 then y:=y-1;
  9.    if k=KE_KEY4 then x:=x-1;
  10.    if k=KE_KEY8 then y:=y+1;
  11.    if k=KE_KEY6 then x:=x+1;
  12.   end;
  13.  
  14. begin
  15.  x:=0; y:=0;
  16.  
  17.  while true do
  18.   begin
  19.    key;
  20.    setColor(255, 255, 255);
  21.    fillRect(0, 0, getWidth, getHeight);
  22.    setColor(0, 0, 0);
  23.    fillRect(x, y, 50, 50);
  24.    repaint;
  25.    delay(20);
  26.   end;
  27.  
  28. end.

__________________
 Чпок... Добрый вечер!
Изменено ScRoLiS (25.01 / 10:25) (всего 1 раз)

Прикрепленные файлы:
key.txt (0.43 кб.) Скачано 627 раз
- 25.01.2011 / 10:39
#46308
Dimonik
  Пользователь
Dimonik 
Сейчас: Offline
спасибо!
- 25.01.2011 / 11:43
#46316
deem
  Пользователь
deem 
Сейчас: Offline
Дайте нормальный учебник:-(со справкой ниче путного не напишешь,не хватает мелочей всяких,короче кто поможет?
- 25.01.2011 / 11:56
#46319
aNNiMON
  Супервизор
aNNiMON 
Сейчас: Offline
deem, Никто не поможет, что есть то есть. Остальные же как-то разобрались.
__________________
 let live
<< 1 ... 5 6 7 8 9 ... 123 >>
Наверх  Всего сообщений: 1221
Фильтровать сообщения
Поиск по теме
Файлы топика (97)