| Val_027 |
Отправлено: 12 Февраля, 2020 - 09:08:12 
|
Участник
Покинул форум
Сообщений всего: 114
Дата рег-ции: Февр. 2020
Репутация: 0
|
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 сек чтоб само и исчезло не кашляя, рыл рыл ничего не нашел вся надежда на Вас. |
| |
|
| Zireael |
Отправлено: 12 Февраля, 2020 - 10:10:32
|
Эксперт
Покинул форум
Сообщений всего: 4466
Дата рег-ции: Нояб. 2017
Репутация: 585
|
Цитата: Вот что не так
Всё работает.
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);
} |
| |
|
| Val_027 |
Отправлено: 12 Февраля, 2020 - 11:11:24
|
Участник
Покинул форум
Сообщений всего: 114
Дата рег-ции: Февр. 2020
Репутация: 0
|
Zireael пишет: textout(0, 300, 300, "Текст", 1);
enabletimer(0);
// через 3 секунды надпись исчезнет
loop()sleep(100);
CREATE_TIMER(0, 3000)
{
textout(0, -1920, 0, "Текст", 1);
disabletimer(0);
}
Вот как у меня получается
textout(0,300,20,"KIBORG",1);
// через 50*33=1,6 сек надпись исчезнет
loop(49)sleep(33);{textout(0,-1920,0,"зачем это ?",1);}
а в вашем варианте, да надпись исчезала, но на lopp()
она зациклиться и висит.
вот еще шрифта можно ли увеличить ?
Да еще/ рисунок не хочет выводиться , тут мб что с виндой и ее настройками /win10 у меня/ Но и за это, уже хлеб спасибо !
ps
Ура и рисунок увидел !!!(Отредактировано автором: 12 Февраля, 2020 - 11:17:14) |
| |
|
| Zireael |
Отправлено: 12 Февраля, 2020 - 11:22:22
|
Эксперт
Покинул форум
Сообщений всего: 4466
Дата рег-ции: Нояб. 2017
Репутация: 585
|
Цитата: вот еще шрифта можно ли увеличить ?
DLL для рисования объектов на экране(Отредактировано автором: 12 Февраля, 2020 - 11:29:24) |
| |
|
| Val_027 |
Отправлено: 12 Февраля, 2020 - 12:37:06
|
Участник
Покинул форум
Сообщений всего: 114
Дата рег-ции: Февр. 2020
Репутация: 0
|
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(); |
| |
|
| Zireael |
Отправлено: 12 Февраля, 2020 - 12:50:01
|
Эксперт
Покинул форум
Сообщений всего: 4466
Дата рег-ции: Нояб. 2017
Репутация: 585
|
Цитата: А можно как то меньше букв
Разве что 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. |
| |
|
| Val_027 |
Отправлено: 12 Февраля, 2020 - 16:38:59
|
Участник
Покинул форум
Сообщений всего: 114
Дата рег-ции: Февр. 2020
Репутация: 0
|
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();(Отредактировано автором: 12 Февраля, 2020 - 16:39:31) |
| |
|
| Zireael |
Отправлено: 13 Февраля, 2020 - 01:41:34
|
Эксперт
Покинул форум
Сообщений всего: 4466
Дата рег-ции: Нояб. 2017
Репутация: 585
|
Цитата: ""+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(); (Отредактировано автором: 13 Февраля, 2020 - 01:44:41) |
| |
|
|
Помощь
Поиск
Пользователи
Кибор » Кибор - Интегрированная среда разработки ботов » Вопросы и решение проблем
Без описания
