Добро пожаловать к нам в гости! Наш сайт посвящён программе NeoBook, с помощью которой вы легко сможете создавать собственные мультимедиа-приложения без необходимости изучать сложные языки программирования! Зарегистрируйтесь, чтобы стать членом нашего сообщества.
при запуске проекта кнопки управления остаются за "бортом".С начала подумал так и должно быть - но без кнопки пуска как то работать незахотело - перетащил кнопки на поле - поставвил где удобно-незнаю так ли это по задумке- но мешают когда змейка ходит по полю и хавчик собирает. Да- ещё б блокировку кнопки пуск прописать- иначе повторно пуск можно нажимать- (хотя незнаю- может так задумано). Доведи уж "до ума" - в копилку игрушек определённо пойдёт...
Добавлено (05 Апреля 2016, 08:03) --------------------------------------------- Разобрался с кодом-сделано ж всё на кнопках клавиатуры- сразу то непонял. Зачёт.
Всем доброго времени суток....Я подумал изучать { delphi }?есть спец или любитель,может хоть кто нибуть показать как будет выглядеть код с низу в delphi ?
setVar "[igra]" "1"
While "[igra]" "=" "1" Delay "[speed]" Loop "1" "20" "[i]" GetObjectInfo "Rectangle[i]" "Left" "[levo[i]]" GetObjectInfo "Rectangle[i]" "Top" "[verx[i]]" endloop Math "[levo1]+16" "-1" "[pravo1]" Math "[verx1]+16" "-1" "[niz1]"
Думаю надо изучать с азов - типы данных Соответственно весь код приведённый выше перерабатывать надо- проще открыть учебник и читать мои начальные проекты-уроки-эксперименты (часть кода калькулятора) - так что просто так переписать неполучится...(хотя примерно всё одинаково- и команды понятны)
private { Private declarations } public { Public declarations } end;
var Form1: TForm1; A: Boolean; //проверка записи 1 строки (по умолчанию False) B: Boolean; //проверка установки точки в 1 строке (по умолчанию False) C: Boolean; //проверка записи 2 строки (по умолчанию False) D: Boolean; //проверка установки точки во 2 строке (по умолчанию False) E: Boolean; //проверка записи знака(Умножение деление вычитание сложение) F: Boolean; //проверка записи 3 строки(полученные значения) G: Boolean; // проверка записи в память 1 строка H: Boolean; // проверка записи в память 2 строка ASt: Boolean; // проверка окна стандартного ARs: Boolean; // проверка окна расширенного implementation
procedure TForm1.BitBtn1Click(Sender: TObject); begin if (E=False) then begin //если не нажат знак действия - то //компоненту Label1 свойству Caption прибавляем строку (цифру 1 предварительно превращаем в строку) Label1.Caption:=Label1.Caption+FloatToStr(1); // присваиваем переменной А значение о том что сделана запись A:=True; end; if (E=True) then begin //если нажат знак действия - то //компоненту Label3 свойству Caption прибавляем строку (цифру 1 предварительно превращаем в строку) Label3.Caption:=Label3.Caption+FloatToStr(1); // присваиваем переменной С значение о том что сделана запись C:=True; end;
end;
procedure TForm1.BitBtn2Click(Sender: TObject); begin if (E=False) then begin //если не нажат знак действия - то //компоненту Label1 свойству Caption прибавляем строку (цифру предварительно превращаем в строку) Label1.Caption:=Label1.Caption+FloatToStr(2); // присваиваем переменной А значение о том что сделана запись A:=True; end; if (E=True) then begin //если нажат знак действия - то //компоненту Label3 свойству Caption прибавляем строку (цифру 1 предварительно превращаем в строку) Label3.Caption:=Label3.Caption+FloatToStr(2); // присваиваем переменной С значение о том что сделана запись C:=True; end; end;
procedure TForm1.BitBtn3Click(Sender: TObject); begin if (E=False) then begin //если не нажат знак действия - то //компоненту Label1 свойству Caption прибавляем строку (цифру 1 предварительно превращаем в строку) Label1.Caption:=Label1.Caption+FloatToStr(3); // присваиваем переменной А значение о том что сделана запись A:=True; end; if (E=True) then begin //если нажат знак действия - то //компоненту Label3 свойству Caption прибавляем строку (цифру 1 предварительно превращаем в строку) Label3.Caption:=Label3.Caption+FloatToStr(3); // присваиваем переменной С значение о том что сделана запись C:=True; end; end;
Учебник - ( начало можно и опустить) - Определение типов данных Код приведённый выше неполучится просто взять и переписать и даже если переписать- непоймёш что и откуда и почему и куда. Вдумчиво читать учебник, поставить делфи семёрку(сейчас в основном на ней программ), и начинать писать самому следом за учебником(самый лучший вариант самообучения)
Добавлено (05 Апреля 2016, 19:25) --------------------------------------------- - Ну и среду программирования изучить(в любом случае поставить делфи- а дальше метод тыка никто не отменял)- хотя метод тыка никчему неприведёт..- это всё равно что бросать кубики с буквами и ждать когда они соберутся в слово Hello - притом что таких букв на кубиках нет. - Но попробовать можно- простейшее "привет мир" напишет любой немного знакомый с программированием. - так что неприбедняйся- читай(учебник) и пробуй..
А вот это - правильно! В знаниях нужна система. Берясь за такие вещи как Delphi, в первую очередь, нужно помнить, что не Боги горшки обжигают, и всему можно научиться, было бы желание. И второе, придется хорошенько потрудиться не только головой, но и быть готовым к тому, что "ручной" печатной работы в Delphi несоизмеримо больше, чем во всех "конструкторах" вместе взятых.
Вот, собственно, и все...
ЦитатаAS3856 ()
if (E=False)
Можно записать проще:
Цитата
if not E then
Точно так же:
ЦитатаAS3856 ()
if (E=True) then
Цитата
if E then
Да и 'else" в Delphi тоже имеется.
- А вам какую операционку поставить - экспи, семерку или висту? - Это ты сейчас о чем? - Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный? - Ну, конечно, надежный! - Вот, значит - экспи, без вопросов! Сейчас сделаем...
(Улицы разбитых фонарей, сезон 10, серия 17)
Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!
При модном втюхе модоподдающимся начинает нравиться
Peter не суди строго- приведённый мой код это первые мои шаги в делфи - я просто хотел показать отличия от необука.. В любом случае надо самому во всё вникать....
Да я и не сужу, просто маленький пример гибкости Delphi. А вообще, настоятельно рекомендуется форматировать код Delphi в редакторе (для облегчения восприятия), и очень полезной может оказаться вот эта махонькая утилитка. Но, на этом ресурсе какого-нибудь "расширенного" обсуждения Delphi не будет, поскольку тема обширная, и к NB не относящаяся. - А вам какую операционку поставить - экспи, семерку или висту? - Это ты сейчас о чем? - Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный? - Ну, конечно, надежный! - Вот, значит - экспи, без вопросов! Сейчас сделаем...
(Улицы разбитых фонарей, сезон 10, серия 17)
Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!
При модном втюхе модоподдающимся начинает нравиться
но для этого и просил код чтоб сопоставить прикинуть ,так сказать понять код
