Replace Printing Multi-Digit Numbers with Images?

Author

Message

FakeBlood

21

Years of Service

User Offline

Joined: 18th Nov 2002

Location: Alabama, United States

Posted: 10th Dec 2004 14:11 Edited at: 10th Dec 2004 16:17

Link

If i have an image for each number 1-9 (1.gif,2.gif..etc) and lets say I have a variable called number. In the variable number a random number between 1 and 300 will be stored. Now the part I dont know how to do is how would I print a number out on the screen with my images instead of just a normal number print. I could do it with a one digit number probably but with 2 or more digits I have no clue. Anyone know?

This is a little thing I wrote that is like what I want but like I said only single digit numbers. This only gives a random number from 1 - 6. Obviously it wouldnt be very convenient to do it this way from 1 - 300

+ Code Snippet

START:
CLS
number = RND(5)+1
LOAD IMAGE "1.bmp",1
LOAD IMAGE "2.bmp",2
LOAD IMAGE "3.bmp",3
LOAD IMAGE "4.bmp",4
LOAD IMAGE "5.bmp",5
LOAD IMAGE "6.bmp",6
IF number = 1 THEN PASTE IMAGE 1,0,0
IF number = 2 THEN PASTE IMAGE 2,0,0
IF number = 3 THEN PASTE IMAGE 3,0,0
IF number = 4 THEN PASTE IMAGE 4,0,0
IF number = 5 THEN PASTE IMAGE 5,0,0
IF number = 6 THEN PASTE IMAGE 6,0,0

SET CURSOR 0,200
PRINT "Random number chosen was " ; number
set cursor 0,300
PRINT "Type 1 to continue, 2 to quit"
INPUT continue
if continue = 1 then goto START
if continue = 2 THEN DELETE IMAGE 1 : DELETE IMAGE 2 : DELETE IMAGE 3 : DELETE IMAGE 4 : DELETE IMAGE 5: DELETE IMAGE 6 : END

Back to top

Profile PM

wmf

19

Years of Service

User Offline

Joined: 6th Nov 2004

Location:

Posted: 10th Dec 2004 21:00

Link

+ Code Snippet

START:
CLS
number = RND(5)+1 rem this is good for image number 1 to 5
LOAD IMAGE str$(number) + ".bmp",1
PASTE IMAGE number,0,0
SET CURSOR 0,200
PRINT "Random number chosen was " ; number
set cursor 0,300
PRINT "Type 1 to continue, 2 to quit"
INPUT continue
if continue = 1 then goto START
if continue = 2 THEN DELETE IMAGE number: END

Back to top

Profile PM

wmf

19

Years of Service

User Offline

Joined: 6th Nov 2004

Location:

Posted: 10th Dec 2004 21:04

Link

mistake I used number for the paste. here is the correct code

+ Code Snippet

START:
CLS
number = RND(5)+1 rem this is good for image number 1 to 5
LOAD IMAGE str$(number) + ".bmp",1
PASTE IMAGE 1,0,0
SET CURSOR 0,200
PRINT "Random number chosen was " ; number
set cursor 0,300
PRINT "Type 1 to continue, 2 to quit"
INPUT continue
if continue = 1 then goto START
if continue = 2 THEN DELETE IMAGE 1: END

Back to top

Profile PM

wmf

19

Years of Service

User Offline

Joined: 6th Nov 2004

Location:

Posted: 10th Dec 2004 21:36

Link

ok I was on my wife's pc and didn't check your code
try this last post

+ Code Snippet

randomize timer()
START:
CLS
number = RND(5)+1
LOAD IMAGE str$(number) + ".bmp",1
PASTE IMAGE 1,0,0
SET CURSOR 0,200
PRINT "Random number chosen was " ; number
set cursor 0,300
PRINT "Type 1 to continue, 2 to quit"
do
   continue$ = inkey$()
   if continue$ = "1" or continue$ = "2"
      repeat: until scancode() = 0
      if continue$ = "1" then goto START
      if continue$ = "2" THEN DELETE IMAGE 1: END
   endif
loop

Back to top

Profile PM

FakeBlood

21

Years of Service

User Offline

Joined: 18th Nov 2002

Location: Alabama, United States

Posted: 11th Dec 2004 11:09

Link

That is still only for single digit random numbers. I need to know how to do it with big numbers. Like if the random number is 256 i need to print the images 2.bmp, 5.bmp, and 6.bmp side by side to display 256. I'm sure its possible since lots of games use images for scores etc instead of just printing the numbers.

Back to top

Profile PM

wmf

19

Years of Service

User Offline

Joined: 6th Nov 2004

Location:

Posted: 12th Dec 2004 05:51

Link

sorry, I misunderstood. this code is for rnd 256. change the picwidth to match your bmp's. you should be able to use some of this.

+ Code Snippet

number = 256
number$ = str$(number)
picwidth = 71
for i = 1 to 6
   LOAD IMAGE str$(i) + ".bmp",i,1
next i
cls
for x = 1 to len(number$)
   img = val(mid$(number$,x))
   paste image img,(x-1)*picwidth,0
next x
sync
wait key

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Replace Printing Multi-Digit Numbers with Images?