Текстовая консоль

Раздел посвящен программированию с использованием Power Basic.
jangle
Википедик
Википедик
Аватара пользователя
 
Сообщения: 3013
Зарегистрирован: 03.06.2005 (Пт) 12:02
Откуда: Нидерланды

Текстовая консоль

Сообщение jangle » 12.12.2011 (Пн) 10:07

Очень удобная штука появилась в 10 версии. Консоль для ввода/вывода данных. Можно использовать для вывода отладочной информации или логов. А также быстро вводить данные. Пример использования:

Код: Выделить всё
Compile Exe
#Dim All

Function PBMain () As Long
   Local hText    As Long
   Local x, y     As Long
   Local sName    As String
   Local MyTime   As IPowerTime
   MyTime = Class "PowerTime"
   Desktop Get Client To x, y
   MyTime.Now
   Txt.Window("Текстовая консоль", (x-780)\2, (y-470)\2) To hText
   Txt.Color = %rgb_Blue
   Txt.Color = %rgb_Brown
   Txt.Print "Today is " + DayName$(MyTime.DayOfWeek) + " " + MonthName$(MyTime.Month) + " " + Format$(MyTime.Day) + ", " + Format$(MyTime.Year) + _
      "  Time is " + MyTime.TimeString
   Txt.Print
   Txt.Color = %Black
   Txt.Print MyTime.DateStringLong
   Txt.Line.Input "What is your name ? ", sName
   If Len(sName) Then
      Txt.Print: Txt.Print
      Txt.Print "Hello there " + MCase$(sName)
      Txt.Print: Txt.Print
     For x = 1 To 12
         Txt.Print MonthName$(x)
     Next x
      Txt.Print "Press a key to exit..."
      Txt.WaitKey$
   End If
   Txt.End
End Function
Вложения
txt_console.zip
Текстовая консоль
(17.93 Кб) Скачиваний: 272

spamjokester
Начинающий
Начинающий
 
Сообщения: 18
Зарегистрирован: 13.08.2011 (Сб) 20:09

Re: Текстовая консоль

Сообщение spamjokester » 24.12.2011 (Сб) 20:24

Блин. Ну полезная штука. Мне нужна. Только нужно,что додумывать.
Так как прилагаемый код не компилируется. Например,должна быть структура (As IPowerTime) и.т.д.
А нельзя ли по проще. Например,инициализация пару переменных. Вводим их имя и получаем значение.
Спасибо.

jangle
Википедик
Википедик
Аватара пользователя
 
Сообщения: 3013
Зарегистрирован: 03.06.2005 (Пт) 12:02
Откуда: Нидерланды

Re: Текстовая консоль

Сообщение jangle » 24.12.2011 (Сб) 23:45

у меня все компилируется

spamjokester
Начинающий
Начинающий
 
Сообщения: 18
Зарегистрирован: 13.08.2011 (Сб) 20:09

Re: Текстовая консоль

Сообщение spamjokester » 26.12.2011 (Пн) 21:02

Возможно, потому, что используется оболочка forms,у меня редактор PBedit.
В любом случае,было бы хорошо,если бы существовал,специальный раздел. Где пользователи VB60,могли бы
получить некоторые похожие методы отладки, к которым, они привыкли в старой системе.
Так быстрее и больше людей смогли перейти к PWBASIC.

Димитрий
Продвинутый пользователь
Продвинутый пользователь
 
Сообщения: 194
Зарегистрирован: 26.01.2005 (Ср) 22:47
Откуда: Волгоград

Re: Текстовая консоль

Сообщение Димитрий » 27.12.2011 (Вт) 10:40

spamjokester писал(а):Вводим их имя и получаем значение.

Запустите в режиме debug. В меню Debug - Watch Variables. В окне Variable Vatcher двойной клик. Вводите имя переменной - смотрите значение или меняете его.
Не знаю то ли имели ввиду.

PS Всё компилится в PBedit (10) :wink:

spamjokester
Начинающий
Начинающий
 
Сообщения: 18
Зарегистрирован: 13.08.2011 (Сб) 20:09

Re: Текстовая консоль

Сообщение spamjokester » 22.01.2012 (Вс) 19:15

'Запустите в режиме debug. В меню Debug - Watch Variables.'
Если надо найти причину ошибки по определенному условию.
Например, бывают ошибки которые удобнее найти по условию IF в коде, и другими способами.
В этом случае тоже надо делать кучу глупых телодвижений. Полезте туда,нажмите то....
Мне нужно остановить программу в определенной sub, в нужный мне момент вычислений и посмотреть
значение разных переменных. Даже,если это можно адаптировать к режиму debug, я не буду менять свои
способы,поэтому мне не нужен debug,а то, что можно совместить с VB60 способами.
Не компилируется.

jangle
Википедик
Википедик
Аватара пользователя
 
Сообщения: 3013
Зарегистрирован: 03.06.2005 (Пт) 12:02
Откуда: Нидерланды

Re: Текстовая консоль

Сообщение jangle » 22.01.2012 (Вс) 21:15

spamjokester писал(а):Не компилируется.


Все компилируется. Проблема видимо в прокладке между монитором и креслом :D

Zenitchik
Постоялец
Постоялец
 
Сообщения: 369
Зарегистрирован: 21.12.2006 (Чт) 14:48

Re: Текстовая консоль

Сообщение Zenitchik » 12.02.2012 (Вс) 15:29

Я тащусь от этой штуки!
Снова можно писать прямо в код
TXT.CLS
:D
Наконец-то появился язык, пригодный для обучения программированию тех, для кого это не основной род деятельности.
Знание английского языка - затрудняет понимание кода

Dark Machine
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 126
Зарегистрирован: 26.05.2004 (Ср) 13:12

Re: Текстовая консоль

Сообщение Dark Machine » 13.02.2012 (Пн) 11:44

Да. вещь нужная.
В свое время я писал библиотеку для поддержки своих старых программ написанных на QB PDS7.
Нужно было реанимировать несколько важных ДОС-ких проектов за краткий срок (весь интерфейс был в графическом режиме).
Переписать заново под Винду - ушло бы много времени - форм было много, поэтому пришлось написать оболочку.Получилось почти тоже самое что и объект TXT... 8) -

Был однако прикол с режимом 640 на 480 - он выглядел очень мелко на фоне 1280х1024.Пришлось добавить коэффициент масштабирования - дотянул до 800х600. Больше уже не имеет смысла и выглядит не очень. В итоге заказчик был доволен. :)

jangle
Википедик
Википедик
Аватара пользователя
 
Сообщения: 3013
Зарегистрирован: 03.06.2005 (Пт) 12:02
Откуда: Нидерланды

Re: Текстовая консоль

Сообщение jangle » 13.02.2012 (Пн) 11:52

На официальном форуме есть исходник консоли Матусовского, встраивается прямо в форму. Очень круто и натурально выглядит

Smitis-R
Новичок
Новичок
 
Сообщения: 48
Зарегистрирован: 26.04.2005 (Вт) 0:37

Re: Текстовая консоль

Сообщение Smitis-R » 18.06.2012 (Пн) 11:13

Ну вот, глючок этой консоли нашёлся - после TXT.END поток, в котором идёт обработка вывода в консоль (или что он там делает), не завершается, THREADCOUNT, соответственно, на 1 больше, чем хотелось бы. Повторный TXT.WINDOW добавляет ещё один поток и т.д.

Smitis-R
Новичок
Новичок
 
Сообщения: 48
Зарегистрирован: 26.04.2005 (Вт) 0:37

Re: Текстовая консоль

Сообщение Smitis-R » 18.06.2012 (Пн) 19:35

Сподобился наконец опробовать это чудо средство и - обломисимус!
Эта консоль совершенно не умеет работать в многопоточном приложении - если выводить в неё из разных потоков, полная лажа получается.


Вернуться в Power Basic

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 9

    TopList