forum.boolean.name
Страница 1 из 2 1 2 >
Показывать 64 сообщений этой темы на одной странице

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

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)
или
If pot Then
While Not Eof(pot)
Flip()
Text 10,100,ReadLine$(pot)
Cls()
Wend
EndIf
Не уверен, будет ли вообще видно текст, так что можно Cls вообще убрать
текст накладывается друг на друга(без 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'ом
 
Еще такой вопросик. Почему комп тормозит, если в коде программы:
Код:
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?


Часовой пояс GMT +4, время: 17:13.
Страница 1 из 2 1 2 >
Показывать 64 сообщений этой темы на одной странице

vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot