Liberty BASIC Community Forum
« Wanting to use a loop, please help »

Welcome Guest. Please Login or Register.
Feb 18th, 2018, 3:46pm


Rules|Home|Help|Search|Recent Posts|Notification


« Previous Topic | Next Topic »
Pages: 1  Notify Send Topic Print
 thread  Author  Topic: Wanting to use a loop, please help  (Read 74 times)
Cor
New Member
Image


member is offline

Avatar




PM

Gender: Male
Posts: 31
xx Wanting to use a loop, please help
« Thread started on: Jan 22nd, 2018, 3:18pm »

Hello all,

I've been able to solve nearly all problems I've encountered using LB. But, I now have a problem I can only partially solve myself.

The code below will occur 15 times if I don't find a proper solution.
I can easily make line 1 (ARTIFACT01 through 15) suitable to operate in a loop. I just don't see how I need to modify line 5 (also ARTIFACT01 through 15). Any help will really be appreciated.

Cor

1 file$ = "L:\IDEASW\ARTIFACT01.ICO"
2 hBmp = LoadImgFromFile(file$)
3 if hBmp <> 0 then
4 loadbmp "pic", hBmp
5 print #main.ARTIFACT01, "drawbmp pic 0 0;flush"
6 unloadbmp "pic"
7 calldll #gdi32, "DeleteObject", hBmp as ulong, ret as ulong 'LB doesnt delete it for us.
8 end if
User IP Logged

tsh73
Board Moderator

member is online

Avatar

Anatoly (real name)


PM

Gender: Male
Posts: 1745
xx Re: Wanting to use a loop, please help
« Reply #1 on: Jan 22nd, 2018, 3:28pm »

Handle Variable

start with Reply#3 - it might be enough.
User IP Logged

damned Dog in the Manger
cor
New Member
Image


member is offline

Avatar




PM

Gender: Male
Posts: 7
xx Re: Wanting to use a loop, please help
« Reply #2 on: Jan 22nd, 2018, 5:12pm »

A most elegant solution which works as hoped.

Thanks a lot for the speedy reply.
User IP Logged

cor massar, Dutch member located in Germany
Pages: 1  Notify Send Topic Print
« Previous Topic | Next Topic »

Rules|Home|Help|Search|Recent Posts|Notification

Donate $6.99 for 50,000 Ad-Free Pageviews!

| |

This forum powered for FREE by Conforums ©
Sign up for your own Free Message Board today!
Terms of Service | Privacy Policy | Conforums Support | Parental Controls