PureBasic - форум

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Консоль

Консоль

Страница: 1

Сообщений 1 страница 2 из 2

1

  • Автор: LisTen
  • Активный участник
  • Зарегистрирован: 17.08.2011
  • Приглашений: 0
  • Сообщений: 30
  • Уважение: [+0/-0]
  • Позитив: [+2/-0]
  • Провел на форуме:
    7 часов 22 минуты
  • Последний визит:
    09.09.2012 11:18:12

Есть консоль сделанная  одним человек вот ссылка : http://rghost.ru/38617063

вот посмотрите там она создает папки где можо писать скрипты но это все  не нужно.
Мне нужно такой же интерфейс.А именно строка ввода там где вводить команды.тоже самое как унего над строкой версия проги.
Команды которые мне нужны.
-exit - выходит из программы
-help - показывает описание программы
-clearlog -очищает лог консоли
-swapcolor -меняет цвет фона программы
-changelog -история обновлений программы
Все эти команды есть в этой программе как мне это все сделать.
Напишите пожалуйста код кому не сложно(

0

2

  • Автор: Пётр
  • Активный участник
  • Зарегистрирован: 14.06.2009
  • Приглашений: 0
  • Сообщений: 2944
  • Уважение: [+96/-5]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    2 месяца 9 дней
  • Последний визит:
    Вчера 17:14:34

Ссылка не открывается, но если я правильно понял, то так.

Код:
OpenConsole()
EnableGraphicalConsole(1)
Repeat
  PrintN("Input Command: (exit, help, clearlog, swapcolor, changelog)")
  Command.s=LCase(Trim(Input()))
  Cmd.s=StringField(Command, 1, " ")
  Select Cmd
    Case "exit"
      Break
    Case "help"
      PrintN("Example program for PureBasic")
    Case "clearlog"
      ClearConsole()
    Case "swapcolor"
      Pos=FindString(Command, " ", 1)
      If Pos>0
        ConsoleColor(8, Val(Mid(Command, Pos)))
      EndIf
    Case "changelog"
      PrintN("Program v 1.0")
    Default
      PrintN("Command not found")
  EndSelect
ForEver

0

Страница: 1

Вы здесь » PureBasic - форум » Вопросы по PureBasic » Консоль