Войти
NeoBooker.ru
Добро пожаловать к нам в гости!
Наш сайт посвящён программе NeoBook, с помощью которой вы легко сможете создавать собственные мультимедиа-приложения без необходимости изучать сложные языки программирования! Зарегистрируйтесь, чтобы стать членом нашего сообщества.
  • Страница 1 из 1
  • 1
Модератор форума: Peter, DEMBEL  
Форум NeoBook » Всё о программе NeoBook » Проекты NeoBook » игра (змейка)
игра
novichokДата: Пн, 04 Апреля 2016, 18:17 | Сообщение # 1
Приколист
может кому надо
Прикрепления: zmeika.rar (2.9 Kb)
 
Сообщениеможет кому надо

Автор - novichok
Дата добавления - 04 Апреля 2016 в 18:17
AS3856Дата: Вт, 05 Апреля 2016, 08:03 | Сообщение # 2
Эксперт форума
при запуске проекта кнопки управления остаются за "бортом".С начала подумал так и должно быть - но без кнопки пуска как то работать незахотело - перетащил кнопки на поле - поставвил где удобно-незнаю так ли это по задумке- но мешают когда змейка ходит по полю и хавчик собирает. Да- ещё б блокировку кнопки пуск прописать- иначе повторно пуск можно нажимать- (хотя незнаю- может так задумано).
Доведи уж "до ума" - в копилку игрушек определённо пойдёт...

Добавлено (05 Апреля 2016, 08:03)
---------------------------------------------
Разобрался с кодом-сделано ж всё на кнопках клавиатуры- сразу то непонял.
Зачёт.

 
Сообщениепри запуске проекта кнопки управления остаются за "бортом".С начала подумал так и должно быть - но без кнопки пуска как то работать незахотело - перетащил кнопки на поле - поставвил где удобно-незнаю так ли это по задумке- но мешают когда змейка ходит по полю и хавчик собирает. Да- ещё б блокировку кнопки пуск прописать- иначе повторно пуск можно нажимать- (хотя незнаю- может так задумано).
Доведи уж "до ума" - в копилку игрушек определённо пойдёт...

Добавлено (05 Апреля 2016, 08:03)
---------------------------------------------
Разобрался с кодом-сделано ж всё на кнопках клавиатуры- сразу то непонял.
Зачёт.


Автор - AS3856
Дата добавления - 05 Апреля 2016 в 08:03
novichokДата: Вт, 05 Апреля 2016, 16:02 | Сообщение # 3
Приколист
Всем доброго времени суток....Я подумал изучать { 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]"

Loop "2" "20" "[i]"
GetObjectInfo "Rectangle[i]" "Visible" "[vid-xvost[i]]"
endloop

If "[naprovlenie]" "=" "vverx"
SetVar "[znak-y]" "-"
If "[verx1]" ">" "0"
SetVar "[levo20]" "[levo19]"
SetVar "[verx20]" "[verx19]"

Math "[verx1][znak-y]16" "-1" "[verx1]"

Loop "1" "20" "[i]"
MoveObject "Rectangle[i]" "[levo[i]]" "[verx[i]]"
endloop
else
SetVar "[igra]" "0"
endif
endif

If "[naprovlenie]" "=" "vniz"
SetVar "[znak-y]" "+"
If "[niz1]" "<>" "[PubHeight]"
SetVar "[levo20]" "[levo19]"
SetVar "[verx20]" "[verx19]"

Math "[verx1][znak-y]16" "-1" "[verx1]"
Loop "1" "20" "[i]"
MoveObject "Rectangle[i]" "[levo[i]]" "[verx[i]]"
endloop
else
SetVar "[igra]" "0"
endif
endif

If "[naprovlenie]" "=" "vlevo"
SetVar "[znak-x]" "-"
If "[levo1]" ">" "0"
SetVar "[levo20]" "[levo19]"
SetVar "[verx20]" "[verx19]"

Math "[levo1][znak-x]16" "-1" "[levo1]"
Loop "1" "20" "[i]"
MoveObject "Rectangle[i]" "[levo[i]]" "[verx[i]]"
endloop
else
SetVar "[igra]" "0"
endif
endif

If "[naprovlenie]" "=" "vpravo"
SetVar "[znak-x]" "+"
If "[pravo1]" "<" "[PubWidth]"
SetVar "[levo20]" "[levo19]"
SetVar "[verx20]" "[verx19]"

Math "[levo1][znak-x]16" "-1" "[levo1]"
Loop "1" "20" "[i]"
MoveObject "Rectangle[i]" "[levo[i]]" "[verx[i]]"
endloop
else
SetVar "[igra]" "0"
endif
endif
GetObjectInfo "xavchik" "Left" "[xava-x]"
GetObjectInfo "xavchik" "Top" "[xava-y]"
IfEx "[levo1]=[xava-x] and [verx1]=[xava-y]"
Math "[itog]+1" "-1" "[itog]"
Loop "2" "20" "[i]"
GetObjectInfo "Rectangle[i]" "Visible" "[vid[i]]"
If "[vid[i]]" "=" "false"
ShowObject "Rectangle[i]" "None" "0"
exitloop
endif
endloop
GoSub "xavchik"
endif
EndWhile


Сообщение отредактировано
novichok - Вт, 05 Апреля 2016, 16:18
 
СообщениеВсем доброго времени суток....Я подумал изучать { 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]"

Loop "2" "20" "[i]"
GetObjectInfo "Rectangle[i]" "Visible" "[vid-xvost[i]]"
endloop

If "[naprovlenie]" "=" "vverx"
SetVar "[znak-y]" "-"
If "[verx1]" ">" "0"
SetVar "[levo20]" "[levo19]"
SetVar "[verx20]" "[verx19]"

Math "[verx1][znak-y]16" "-1" "[verx1]"

Loop "1" "20" "[i]"
MoveObject "Rectangle[i]" "[levo[i]]" "[verx[i]]"
endloop
else
SetVar "[igra]" "0"
endif
endif

If "[naprovlenie]" "=" "vniz"
SetVar "[znak-y]" "+"
If "[niz1]" "<>" "[PubHeight]"
SetVar "[levo20]" "[levo19]"
SetVar "[verx20]" "[verx19]"

Math "[verx1][znak-y]16" "-1" "[verx1]"
Loop "1" "20" "[i]"
MoveObject "Rectangle[i]" "[levo[i]]" "[verx[i]]"
endloop
else
SetVar "[igra]" "0"
endif
endif

If "[naprovlenie]" "=" "vlevo"
SetVar "[znak-x]" "-"
If "[levo1]" ">" "0"
SetVar "[levo20]" "[levo19]"
SetVar "[verx20]" "[verx19]"

Math "[levo1][znak-x]16" "-1" "[levo1]"
Loop "1" "20" "[i]"
MoveObject "Rectangle[i]" "[levo[i]]" "[verx[i]]"
endloop
else
SetVar "[igra]" "0"
endif
endif

If "[naprovlenie]" "=" "vpravo"
SetVar "[znak-x]" "+"
If "[pravo1]" "<" "[PubWidth]"
SetVar "[levo20]" "[levo19]"
SetVar "[verx20]" "[verx19]"

Math "[levo1][znak-x]16" "-1" "[levo1]"
Loop "1" "20" "[i]"
MoveObject "Rectangle[i]" "[levo[i]]" "[verx[i]]"
endloop
else
SetVar "[igra]" "0"
endif
endif
GetObjectInfo "xavchik" "Left" "[xava-x]"
GetObjectInfo "xavchik" "Top" "[xava-y]"
IfEx "[levo1]=[xava-x] and [verx1]=[xava-y]"
Math "[itog]+1" "-1" "[itog]"
Loop "2" "20" "[i]"
GetObjectInfo "Rectangle[i]" "Visible" "[vid[i]]"
If "[vid[i]]" "=" "false"
ShowObject "Rectangle[i]" "None" "0"
exitloop
endif
endloop
GoSub "xavchik"
endif
EndWhile

Автор - novichok
Дата добавления - 05 Апреля 2016 в 16:02
AS3856Дата: Вт, 05 Апреля 2016, 16:56 | Сообщение # 4
Эксперт форума
Думаю надо изучать с азов - типы данных
Соответственно весь код приведённый выше перерабатывать надо- проще открыть учебник и читать
мои начальные проекты-уроки-эксперименты (часть кода калькулятора)
- так что просто так переписать неполучится...(хотя примерно всё одинаково- и команды понятны)

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

{$R *.dfm}
///////////////////////////Блок процедур кнопок ввода цифр///////////////
///////////////////////////////////////////////////////////////////////////

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;

 
СообщениеДумаю надо изучать с азов - типы данных
Соответственно весь код приведённый выше перерабатывать надо- проще открыть учебник и читать
мои начальные проекты-уроки-эксперименты (часть кода калькулятора)
- так что просто так переписать неполучится...(хотя примерно всё одинаково- и команды понятны)

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

{$R *.dfm}
///////////////////////////Блок процедур кнопок ввода цифр///////////////
///////////////////////////////////////////////////////////////////////////

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;


Автор - AS3856
Дата добавления - 05 Апреля 2016 в 16:56
novichokДата: Вт, 05 Апреля 2016, 18:32 | Сообщение # 5
Приколист
да не понятно!!! :D но для этого и просил код чтоб сопоставить прикинуть ,так сказать понять код
 
Сообщениеда не понятно!!! :D но для этого и просил код чтоб сопоставить прикинуть ,так сказать понять код

Автор - novichok
Дата добавления - 05 Апреля 2016 в 18:32
AS3856Дата: Вт, 05 Апреля 2016, 19:25 | Сообщение # 6
Эксперт форума
Учебник - ( начало можно и опустить) - Определение типов данных
Код приведённый выше неполучится просто взять и переписать и даже если переписать- непоймёш что и откуда и почему и куда.
Вдумчиво читать учебник, поставить делфи семёрку(сейчас в основном на ней программ), и начинать писать самому следом за учебником(самый лучший вариант самообучения)

Добавлено (05 Апреля 2016, 19:25)
---------------------------------------------
- Ну и среду программирования изучить(в любом случае поставить делфи- а дальше метод тыка никто не отменял)- хотя метод тыка никчему неприведёт..- это всё равно что бросать кубики с буквами и ждать когда они соберутся в слово Hello - притом что таких букв на кубиках нет. - Но попробовать можно- простейшее "привет мир" напишет любой немного знакомый с программированием. - так что неприбедняйся- читай(учебник) и пробуй..

 
СообщениеУчебник - ( начало можно и опустить) - Определение типов данных
Код приведённый выше неполучится просто взять и переписать и даже если переписать- непоймёш что и откуда и почему и куда.
Вдумчиво читать учебник, поставить делфи семёрку(сейчас в основном на ней программ), и начинать писать самому следом за учебником(самый лучший вариант самообучения)

Добавлено (05 Апреля 2016, 19:25)
---------------------------------------------
- Ну и среду программирования изучить(в любом случае поставить делфи- а дальше метод тыка никто не отменял)- хотя метод тыка никчему неприведёт..- это всё равно что бросать кубики с буквами и ждать когда они соберутся в слово Hello - притом что таких букв на кубиках нет. - Но попробовать можно- простейшее "привет мир" напишет любой немного знакомый с программированием. - так что неприбедняйся- читай(учебник) и пробуй..


Автор - AS3856
Дата добавления - 05 Апреля 2016 в 19:25
PeterДата: Ср, 06 Апреля 2016, 15:43 | Сообщение # 7
Админ NeoBook
Цитата AS3856 ()
хотя метод тыка никчему неприведёт

А вот это - правильно!
В знаниях нужна система.
Берясь за такие вещи как Delphi, в первую очередь, нужно помнить, что не Боги горшки обжигают, и всему можно научиться, было бы желание.
И второе, придется хорошенько потрудиться не только головой, но и быть готовым к тому, что "ручной" печатной работы в Delphi несоизмеримо больше, чем во всех "конструкторах" вместе взятых.

Вот, собственно, и все...
;)



- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
Сообщение
Цитата AS3856 ()
хотя метод тыка никчему неприведёт

А вот это - правильно!
В знаниях нужна система.
Берясь за такие вещи как Delphi, в первую очередь, нужно помнить, что не Боги горшки обжигают, и всему можно научиться, было бы желание.
И второе, придется хорошенько потрудиться не только головой, но и быть готовым к тому, что "ручной" печатной работы в Delphi несоизмеримо больше, чем во всех "конструкторах" вместе взятых.

Вот, собственно, и все...
;)


Автор - Peter
Дата добавления - 06 Апреля 2016 в 15:43
AS3856Дата: Ср, 06 Апреля 2016, 16:09 | Сообщение # 8
Эксперт форума
Peter не суди строго- приведённый мой код это первые мои шаги в делфи - я просто хотел показать отличия от необука.. В любом случае надо самому во всё вникать....
 
СообщениеPeter не суди строго- приведённый мой код это первые мои шаги в делфи - я просто хотел показать отличия от необука.. В любом случае надо самому во всё вникать....

Автор - AS3856
Дата добавления - 06 Апреля 2016 в 16:09
PeterДата: Ср, 06 Апреля 2016, 16:32 | Сообщение # 9
Админ NeoBook
Цитата AS3856 ()
Peter не суди строго

Да я и не сужу, просто маленький пример гибкости Delphi.
А вообще, настоятельно рекомендуется форматировать код Delphi в редакторе (для облегчения восприятия), и очень полезной может оказаться вот эта махонькая утилитка.
;)
Но, на этом ресурсе какого-нибудь "расширенного" обсуждения Delphi не будет, поскольку тема обширная, и к NB не относящаяся.


- А вам какую операционку поставить - экспи, семерку или висту?
- Это ты сейчас о чем?
- Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный?
- Ну, конечно, надежный!
- Вот, значит - экспи, без вопросов! Сейчас сделаем...

(Улицы разбитых фонарей, сезон 10, серия 17)

Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!


При модном втюхе модоподдающимся начинает нравиться
 
Сообщение
Цитата AS3856 ()
Peter не суди строго

Да я и не сужу, просто маленький пример гибкости Delphi.
А вообще, настоятельно рекомендуется форматировать код Delphi в редакторе (для облегчения восприятия), и очень полезной может оказаться вот эта махонькая утилитка.
;)
Но, на этом ресурсе какого-нибудь "расширенного" обсуждения Delphi не будет, поскольку тема обширная, и к NB не относящаяся.

Автор - Peter
Дата добавления - 06 Апреля 2016 в 16:32
Форум NeoBook » Всё о программе NeoBook » Проекты NeoBook » игра (змейка)
  • Страница 1 из 1
  • 1
Поиск: