меню

[Sazary]

На экране крупно написано "введите количество дисков" снизу поле для ввода. Если я нажимаю на цифру, она соответственно должна появиться в поле. Если цифра неверная (за возможными пределами), то пишет ошибку. Цифру можно стереть.

Читайте цифру как букву. И выводите в поле строку.
Если нажат backspace, то просто стираете последний символ и выводите строку заново.
А потом уже преобразуете строку в число (процедура val).

Сообщение от Djels

+небольшой вопрос по ходам. В любом случае, если я нажму на стрелку вниз - количество прибавляется. То есть считывается не опускание диска , а нажатие. как это можно исправить?

Я вам говорил про это. Нужно проверять, не стоит ли курсор с блоком над тем же местом, откуда его взяли. Если так оно и есть, то не увеличивать количество ходов.

[Djels]

Sazary, Вот так, я вставил всю часть с ходами сюда:

if hb[i,j]=0 then
      begin
           hb[i,j]:=a;
           d:=hb[i,j];
           a:=0;
           disk(x1,d);
           remdisk(0,0);
           SetFillPattern(G, 0);
           bar (200,81,250,101);
inc(CountHod);
    str(CountHod, hod);
    str(CountHod-1,predhod);
setcolor(0);
  outtextxy(370,30,''+predHod);
  setcolor(15);
    outtextxy(370,30,''+Hod);
    setcolor(3);

        end

В таком случае он правильно делает, если диск ставится на пустое поле, а не на диск. Немного тяжело доходит это


[UPD]:

      outtextxy(130,200,'Vvedite Kolichestvo diskov [2.10]');
      repeat
      readln(m);
      str(m,mx);
      outtextxy(300,300,''+mx);

      until (m>=2) and (m<=9) ;

Жалкие попытки вывести на экран цифорку

[Sazary]

Вот так, я вставил всю часть с ходами сюда:

Не туда вставили. Это должно быть в конце процедуры down (как у вас и было).
Ну или вставьте еще этот же кусок чуть повыше, в блок:

if hb[i,j]=0 then

[Djels]

Так... если я ставлю выше, в блок

if hb[i,j]=0 then begin

то тоже самое - не считает при опускании диска на диск.
А если внизу оставить, можете написать, какое условие должно быть? я что-то пытался делать проверку на курсор, но не получилось
ЗЫ. посмотрите пожалуйста в прошлом посте UPD.

[Sazary]

то тоже самое - не считает при опускании диска на диск.

Нужно и туда и туда.

А если внизу оставить, можете написать, какое условие должно быть?

Условие нужно прописывать не в одном месте. Например, завести еще одну переменную. Взяли блок - переменная = 0 (к примеру). Нажали влево - увеличили переменную, вправо - уменьшили. При опускании блока проверяем ее значение. Если =0, то ход не сделан.

Жалкие попытки вывести на экран цифорку

Вводить нужно не через readln, а readkey.

[Djels]

Сообщение от Sazary

Условие нужно прописывать не в одном месте. Например, завести еще одну переменную. Взяли блок - переменная = 0 (к примеру). Нажали влево - увеличили переменную, вправо - уменьшили. При опускании блока проверяем ее значение. Если =0, то ход не сделан.

А полегче это никак не сделается?(((

Сообщение от Sazary

Вводить нужно не через readln, а readkey.

И это не получается.. как мне быть...

[Sazary]

А полегче это никак не сделается?(((

Нет. По крайней мере, я так думаю (по крайней мере, сейчас).

И это не получается.. как мне быть...

Что не получается? readkey читает один символ. Вы его обрабатываете и выводите. Потом читаете следующий. Это все в цикле, пока код не равен 13.

[Djels]

Sazary, вот приблизительно то, что я понял из ваших слов:

   repeat
{      readln(m);   } (?)
      str(m,mx);
       readkey;
      outtextxy(300,300,''+mx);      
     val(mx,m);
      until (m>=2) and (m<=9) and (key=#13);

Как Вы сами понимаете - не правильно )), прошу поправить)

[Sazary]

readkey возвращает код символа. Вы бы знали об этом, если бы почитали описание функции.

[NSvirus]

key:=readkey;