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

[АгниКай]

Вопрос в теме

[Dzirt]

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

[АгниКай]

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

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

[АгниКай]

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

[Dzirt]

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

терпите парни!!! покажем как мы в старые добрые времена отвечали на вопросы.

[АгниКай]

да ну...

[Reks888]

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

[АгниКай]

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

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

[АгниКай]

Сообщение от Reks888

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

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

[DeeJex]

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

[Reks888]

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

[АгниКай]

Сообщение от Reks888

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

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

[Dzirt]

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

If pot Then
     While Not Eof(pot)
         Cls()
         Text 10,100,ReadLine$(pot)
         Flip()
     Wend
EndIf

[АгниКай]

Еще такой вопросик. Почему комп тормозит, если в коде программы:

SetBuffer BackBuffer()
Text 0,0,"Сервер выключен."
starton=LoadImage("D:\serv\starton.png")
offoff=LoadImage("D:\serv\offoff.png")
While Not KeyHit(1)
DrawImage starton,100,0
DrawImage offoff,220,0
If MouseX()>100 And MouseX()<200 And MouseY()>0 And MouseY()<20 And MouseHit(1)
Cls
Goto startserv
EndIf
Flip
Wend
End

, eсть Flip?