MIDlet Pascal
Поиск по сайту
Форма входа

Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0


Яндекс.Метрика

Друзья сайта
IT юмор - развлечения
Заработать в интернете - легко!Просто сиди и кликай.
Четверг, 15.11.2018, 01.10.15
Приветствую Вас Гость | RSS
Главная | Регистрация | Вход
Урок №24.4 - Выбор ника и меню - Крестики-нолики

Доброго времени суток!Для того что бы можно было играть в интерете бдет идентефицировать по нику.
Я не буду делать регистрацию/авторизацию я сделаю что бы при запуске можно было ввести ник(послать ник серверу и принять) дальше делайте с этой возможнотью что вам нравится!
И так делаем форму ввода ника


var play, click:command; //команды меню
    name:string;

begin
  //Спрашиваем ник для игры
  showTextBox('Ваш ник', 'default', 200, TF_ANY);  //Показываем форму ввода
  play := createCommand('Ok', CM_SCREEN, 1); //Добавляем команду "Ок"
  addCommand(play);  
 
  repeat  
    delay(100);  
    click:=getClickedCommand;  
  until click=play;  //ждем нажатия "Ок"
 
  name:=getTextBoxString; //Получаем введенное слово
end.


Разбираемся что к чему.
Переменные:
play,click - перемнные для создания команды ОК в меню и форме ввода имени
name - хранит ник игрока в себе.
После ввода нужно еще сделать мен в котором будет три пункта "Подключиться", "Создать стол" и "Выйти".
Теперь добавте еще переменные менюшки:


connect,create,exit:integer; //пункты меню


и добавляем менюшку после ввода имени


repeat
  showMenu('Меню игры', CH_IMPLICIT); //Покаываем меню
  connect:=menuAppendString('Подключиться');   //Создаем пункты меню
  create :=menuAppendString('Создать стол');  
  exit   :=menuAppendString('Выйти');

  play := createCommand('Выбрать', CM_SCREEN, 1);
  addCommand(play);

  repeat  
    delay(100);  
    click:=getClickedCommand;   
  until click=play;  //ждем нажатия кнопки "Выбрать"
 
  showCanvas;  //показываем канву
 
  if menuGetSelectedIndex=create then ctable; //если создаем стол
  if menuGetSelectedIndex=connect then stable; //подключаемся
  if menuGetSelectedIndex=exit then halt; //Если выбрали "Выйти" закрываем приложение
until false; //бесконечный цикл


Информацию по схеме такого меню Вы можете найти в прилагающей документации к вашей версии MIDlet Pascal.
Менюшку используем под стиль телефона.При попытке откомпилировтаь выдаст ошибку на несуществующие процедуры ctable и stable.Добавим пока пустые процедуры ctable и stable.


Procedure stable;
begin

end;

Procedure ctable;
begin

end;


В следующем уроке будем пытаться соеденить два телефона.

Если вы нашли ошибки/очепятки в тексте то сообщите о них на форуме
А также можете заказать программу/игру на этой странице

www.parkflyer.ru - радиоуправляемые модели, радиоуправляемые модели самолетов, магазин радиоуправляемых моделей
Роспись стен, скульптуры на заказ
Wladymyr © 2012-2018
Создать бесплатный сайт с uCoz