Кибор :: Версия для печати :: Вывод изображения или текста на экран

1. Val_027 - 12 Февраля, 2020 - 01:08:12 - перейти к сообщению

win w=window ("Program Manager", "Progman", -1);
activate(w);sleep(400);

savescreen("C:\Image.bmp",25,25,50,50,w);
int Image[900][900];
loadimage (#Image[0][0], "C:\Image.bmp" Подмигивание

;

//вывод Image в коор 100, 120 экрана без сжатия
visualwindow(0,0,0,imagewidth(#Image[0][0]),imageheight(#Image[0][0]),0,0,50,#Image[0][0]);
// или так
//visualwindow(1, 50, 70, 250, 150, 100, 350, 100, #Image[0][0]);

Вот что не так , взял сохранил вывел и нету ничего

А еще, можно просто текст на экран/ окно поверх кинуть. на скажем 3 сек чтоб само и исчезло не кашляя, рыл рыл ничего не нашел вся надежда на Вас.

2. Zireael - 12 Февраля, 2020 - 02:10:32 - перейти к сообщению

Цитата:

Вот что не так

Всё работает.

CODE:

win w=window ("Program Manager", "Progman", -1);

savescreen("C:\Image.bmp",25,25,50,50,w);
int Image[900][900];
loadimage (#Image[0][0], "C:\Image.bmp");

visualwindow(0,0,0,imagewidth(#Image[0][0]),imageheight(#Image[0][0]),0,0,50,#Image[0][0]);
loop()sleep(100);

Цитата:

можно просто текст на экран/ окно поверх кинуть. на скажем 3 сек чтоб само

CODE:

textout(0, 300, 300, "Текст", 1);
enabletimer(0);
// через 3 секунды надпись исчезнет

loop()sleep(100);

CREATE_TIMER(0, 3000)
{
textout(0, -1920, 0, "Текст", 1);
disabletimer(0);
}

3. Val_027 - 12 Февраля, 2020 - 03:11:24 - перейти к сообщению

Zireael пишет:

Вот как у меня получается

textout(0,300,20,"KIBORG",1);
// через 50*33=1,6 сек надпись исчезнет
loop(49)sleep(33);{textout(0,-1920,0,"зачем это ?",1);}

а в вашем варианте, да надпись исчезала, но на lopp()
она зациклиться и висит.
вот еще шрифта можно ли увеличить ?

Да еще/ рисунок не хочет выводиться , тут мб что с виндой и ее настройками /win10 у меня/ Но и за это, уже хлеб спасибо !

ps
Ура и рисунок увидел !!!

4. Zireael - 12 Февраля, 2020 - 03:22:22 - перейти к сообщению

Цитата:

вот еще шрифта можно ли увеличить ?

DLL для рисования объектов на экране

5. Val_027 - 12 Февраля, 2020 - 04:37:06 - перейти к сообщению

DLL для рисования объектов на экране[/quote]

А можно как то меньше букв

external(INT,"begin_paint","begin_paint",pathfolder()+"Draw.dll");
external(INT,"Textout","textout",pathfolder()+"Draw.dll");
string s="START";
begin_paint();
int x=0;
loop(6)
{Textout(2,900,600,s+" "+format(x),255,65279,s,-24, 0,0,0,0,0,0,0);x++;sleep(1000);}
external(INT,"end_paint","end_paint",pathfolder()+"Draw.dll");
end_paint();

6. Zireael - 12 Февраля, 2020 - 04:50:01 - перейти к сообщению

Цитата:

А можно как то меньше букв

Разве что string s="START"; убрать, тогда так:

CODE:

Textout(2,900,600,"START "+format(x),255,65279,"START",-24, 0,0,0,0,0,0,0);

Ну и переменную 'x' можно убрать если не нужна.
Все external лучше в начало скрипта.
Часть кода можно хранить в файле и подключать через #include.

7. Val_027 - 12 Февраля, 2020 - 08:38:59 - перейти к сообщению

Zireael пишет:

убрать

Спасибо на этом остановился

external(INT,"begin_paint","begin_paint",pathfolder()+"Draw.dll" Подмигивание

;
external(INT,"Textout","textout",pathfolder()+"Draw.dll" Подмигивание

;
external(INT,"end_paint","end_paint",pathfolder()+"Draw.dll" Подмигивание

;
begin_paint();
int x=6;
loop(7)
{Textout(2,900,600,""+format(x),255,65279,"",-62,0,0,0,0,0,0,0);x--;sleep(1000);}
end_paint();

8. Zireael - 12 Февраля, 2020 - 17:41:34 - перейти к сообщению

Цитата:

""+format(x)

Не нужны кавычки, оставить только format(x).
Можно указать имя какого-нибудь шрифта 7 параметром:

CODE:

external(INT,"begin_paint","begin_paint",pathfolder()+"Draw.dll");
external(INT,"Textout","textout",pathfolder()+"Draw.dll");
external(INT,"end_paint","end_paint",pathfolder()+"Draw.dll");

begin_paint();
for(int x=6; x>-1; x--){Textout(2,900,600,format(x),255,65279,"Courier",-62,0,0,0,0,0,0,0);sleep(1000);}
end_paint();