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

[jangle]

Очень удобная штука появилась в 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

[spamjokester]

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

[jangle]

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

[spamjokester]

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

[Димитрий]

Вводим их имя и получаем значение.

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

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

[spamjokester]

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

[jangle]

Не компилируется.

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

[Zenitchik]

Я тащусь от этой штуки!
Снова можно писать прямо в код
TXT.CLS

Наконец-то появился язык, пригодный для обучения программированию тех, для кого это не основной род деятельности.

[Dark Machine]

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

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

[jangle]

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

[Smitis-R]

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

[Smitis-R]

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