forum.boolean.name - как убрать текст, созданный Print'ом

forum.boolean.name (http://forum.boolean.name/index.php)

- 2D-программирование (http://forum.boolean.name/forumdisplay.php?f=13)

- - как убрать текст, созданный Print'ом (http://forum.boolean.name/showthread.php?t=13711)

АгниКай

13.11.2010 00:27

как убрать текст, созданный Print'ом

Вопрос в теме

Dzirt

13.11.2010 00:41

Ответ: как убрать текст, созданный Print'ом

Cls
Эта команда очищает текущий буфер, в котором происходит рисование, вывод текста и т.п, стирает в нём всю графику и текст и устанавливает цвет фона этого буфера со значениями, указанными в команде ClsColor.
(прямиком из страны хелпа)

АгниКай

13.11.2010 00:42

Ответ: как убрать текст, созданный Print'ом

Спасибо, а что делать если надо убрать из 10 write'ов только 1?

jimon

13.11.2010 00:45

Ответ: как убрать текст, созданный Print'ом

вывести остальные заново

АгниКай

13.11.2010 00:45

Ответ: как убрать текст, созданный Print'ом

Ууууу, это жесть. И только так?

Dzirt

13.11.2010 00:47

Ответ: как убрать текст, созданный Print'ом

Да впринцеппе это и не сложно......не нужно здесь никаких альтернатив искать.

АгниКай

13.11.2010 00:56

Ответ: как убрать текст, созданный Print'ом

да ну...

Reks888

13.11.2010 01:03

Ответ: как убрать текст, созданный Print'ом

Ну ещё можно НЕ выводить 1 из 10 принтов прямо в коде программы. Вроде такого:
If KeyHit(1) Then Print("1")
Таким образом ты принта вообще не увидишь, если только ескейп не нажмешь

АгниКай

13.11.2010 01:05

Ответ: как убрать текст, созданный Print'ом

Вот смотрите, с клиента данные поступают на сервер и вот таким кодом я вывожу координату объекта
[code]pot=AcceptTCPStream(one)

If pot Then
While Not Eof(pot)
Locate 10,100
Print ReadLine$(pot)
Cls
Wend
EndIf[code]
Вроде бы нормально все, но блин текст мигает иногда

АгниКай

13.11.2010 01:07

Ответ: как убрать текст, созданный Print'ом

Цитата:

Сообщение от Reks888 (Сообщение 168408)

Ты предлагаешь просто не выводить принт, а мне же надо выведенный убрать.

DeeJex

13.11.2010 01:07

Ответ: как убрать текст, созданный Print'ом

Знаешь команду text? Так вот сохраняй получаемые данные и потом выводи.

Reks888

13.11.2010 01:08

Ответ: как убрать текст, созданный Print'ом

или
If pot Then
While Not Eof(pot)
Flip()
Text 10,100,ReadLine$(pot)
Cls()
Wend
EndIf
Не уверен, будет ли вообще видно текст, так что можно Cls вообще убрать

АгниКай

13.11.2010 01:12

Ответ: как убрать текст, созданный Print'ом

Цитата:

Сообщение от Reks888 (Сообщение 168414)

текст накладывается друг на друга(без cls, с ним ничо не видно)
Я просто забыл сказать, что данные серверу приходят непрерывно

Dzirt

13.11.2010 01:20

Ответ: как убрать текст, созданный Print'ом

ставь очистку екрана перед тем как выводишь текст а не после него.

Код:

If pot Then

     While Not Eof(pot)

         Cls()

         Text 10,100,ReadLine$(pot)

         Flip()

     Wend

EndIf

АгниКай

13.11.2010 01:20

Ответ: как убрать текст, созданный Print'ом

АгниКай

13.11.2010 01:31

Ответ: как убрать текст, созданный Print'ом

Цитата:

Сообщение от Dzirt (Сообщение 168419)

ставь очистку екрана перед тем как выводишь текст а не после него.

Код:

If pot Then

     While Not Eof(pot)

         Cls()

         Text 10,100,ReadLine$(pot)

         Flip()

     Wend

EndIf

Спасибо, но есть одно но, хотя и не значительное.
Вначале данные доходят быстро, но потом с каждым разом все медленнее и медленнее.
Почему? И что делать?=)
А если таких штучег будет 10? Это ж ужас будет.

Dzirt

13.11.2010 01:41

Ответ: как убрать текст, созданный Print'ом

Ну думаю тут не в блице дело, а скорее в том ресурсе с которого ты данные принимаешь.

АгниКай

13.11.2010 01:42

Ответ: как убрать текст, созданный Print'ом

Ты имеешь ввиду комп или прогу?
По идее данные должны доставляться мгновенно т.к. на этом же компе и сервер и клиент.

Dzirt

13.11.2010 01:51

Ответ: как убрать текст, созданный Print'ом

Значит напартачил в коде.....влюбом случае гдето ошибка таки есть. :rolleyes:

ABTOMAT

13.11.2010 02:50

Ответ: как убрать текст, созданный Print'ом

Цитата:

eсть Flip?

Ты уверен, что именно в нём проблема? Когда убираешь, то не тормозит?
И что значит "комп тормозит" ?
То есть все остальные проги на компе медленней работают, когда это запущено?
Это потому что блиц зохавывает столько процессорного времени, сколько найдёт (хавает одно целое ядро если их несколько) даже если у него цикл, где ничего особо тяжёлого не делается (просто скорость повторов огромная). В тело цикла попробуй вставь
Delay 3
Тогда блиц будет гарантированно отдавать 3мс времени системе. Если не поможет, то вставь значение больше.

АгниКай

13.11.2010 16:36

А как вывести 3 значения таким способом который вы показали. Например X,Y,Z координаты. По разному пробовал, ошибку пишет.
Еще один способ остался, но для этого мне надо в переменную ввести текст, не получается почему-то.

Код:

s="s"

А, вот так надо было

Код:

s$="s"

Mickle_PES_fun

21.01.2011 08:27

Ответ: как убрать текст, созданный Print'ом

есть такой код:

Код:

for i=1 to 50000

 text 200,100,i

next

при выводе на экран цифры накладываются друг на друга
как исправить?
P.S. пробовал поставить cls и перед, и после вывода на экран, не помогает

Артем Валерьевич

21.01.2011 08:42

Ответ: как убрать текст, созданный Print'ом

Код:

For i=1 To 50000

Cls 

 Text 200,100,i

Next

Mickle_PES_fun

21.01.2011 08:43

Ответ: как убрать текст, созданный Print'ом

Мигает... а хочется без миганий...

SBJoker

21.01.2011 11:11

Ответ: как убрать текст, созданный Print'ом

Cls
Flip

должно помочь.

Reizel

21.01.2011 11:53

Ответ: как убрать текст, созданный Print'ом

Цитата:

Сообщение от Mickle_PES_fun (Сообщение 176394)

Мигает... а хочется без миганий...

Код:

Graphics 800,600

SetBuffer BackBuffer()

for K=0 to 50000

   cls

   text 10,10,K

   flip

next 

waitkey()

end

Вот здесь точно мигать не будет :)

Артем Валерьевич

21.01.2011 12:31

Ответ: как убрать текст, созданный Print'ом

ну как бэ да

Часовой пояс GMT +4, время: 06:07.