Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: sarmad on September 19, 2021, 06:27:03 am

Title: any help please?
Post by: sarmad on September 19, 2021, 06:27:03 am
hello every one
am just a bigenner in qb64  i try to make a program that print numbers from 1 to 40 and draw a circle .. very simple but when i run that i get the numbers from 13 to 40 with no scrollable screen and get the circle inside .. when i use $console:only with aame program i get no thing as shown in pictures.. how can i combine between 1 to 40 scrollable window and the circle in one o/p window?
Title: Re: any help please?
Post by: johnno56 on September 19, 2021, 06:50:28 am
I am no expert, when it comes to QB64, but from using 'help' > Keyword Index > SCREEN (statement)... Screen 12, depending on the size of font, will either have 30 or 60 lines of text. The default setting seems to be 30 lines. So, in a nutshell, once "i" has passed 30, the earlier displays of "i" have scrolled off the top of the screen. Of course, this happens quite quickly, and will 'appear' to 'start' at '13'.

Code: QB64: [Select]
  2. CIRCLE (200, 300), 50, 6
  3. FOR i = 1 TO 40
  4.     PRINT i
  5.     _DELAY 0.25
  7.  

Run this example. The delay will demonstrate what has happened to the first 12 lines of display.

I hope this helps.

As for your 'scrolling' issue... I'm afraid I may not be your best choice in answers... My simplest answer is, 'I do not know'.
But there are many more people on this forum that are much more clever than myself... It will not take long to get your answer.

J
Title: Re: any help please?
Post by: bplus on September 19, 2021, 10:48:26 am
Yes that's how I see it: for scrolling use console, no graphics. For graphics use Screen, no scrolling.

You could probable fake scrolling on a screen with graphics but it'd be some effort.
Title: Re: any help please?
Post by: SMcNeill on September 19, 2021, 01:04:02 pm
Quote from: bplus on September 19, 2021, 10:48:26 am
Yes that's how I see it: for scrolling use console, no graphics. For graphics use Screen, no scrolling.

You could probable fake scrolling on a screen with graphics but it'd be some effort.

Even the console scrolls after a certain number of lines; it doesn’t store them all in memory infinity.

Getting all the data you need to display on the screen all at once can sometimes take a good bit of effort by a programmer.  What the OP talks about here sounds like a homework problem to help sort that issue out, with the solution being to use commas, print using, tab, or some other method to properly form multiple columns and display a graphic together.
Title: Re: any help please?
Post by: bplus on September 19, 2021, 02:52:40 pm
Get a B+
  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: any help please?
Post by: bplus on September 19, 2021, 03:39:41 pm
Another B+
  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: any help please?
Post by: johnno56 on September 19, 2021, 05:23:06 pm
WHAT!! No blue?!?!  lol...
Title: Re: any help please?
Post by: bplus on September 19, 2021, 08:16:57 pm
OK blue
  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: any help please?
Post by: OldMoses on September 19, 2021, 09:28:52 pm
I generally find it easiest to put whatever you want to scroll into an array, then use a display loop with an offset value controlled by the mousewheel.

If I understand the problem right, you're trying to do something like this...
Code: QB64: [Select]
  1. 'Circle and scroll
  2. D& = _NEWIMAGE(600, 400, 32)
  4. REDIM  A(40) AS INTEGER
  5. FOR x = 1 TO 40
  6.     A(x) = x
  8. offset = 0
  9. rows = INT(_HEIGHT(D&) / 16) - 2
  10.  
  12.     CLS
  13.     CIRCLE (300, 100), 75, &HFFFF0000
  14.     FOR k = 1 TO rows
  15.         PRINT A(k + offset)
  16.     NEXT k
  18.         offset = offset + SGN(_MOUSEWHEEL)
  19.         IF offset < 0 THEN offset = 0
  20.         IF offset + rows > UBOUND(A) THEN offset = UBOUND(A) - rows
  21.     WEND
  22.     _DISPLAY 'eliminate screen flicker
  23.     _LIMIT 30
  24. LOOP UNTIL _KEYDOWN(27) 'Esc to end
  25.  
Title: Re: any help please?
Post by: bplus on September 19, 2021, 09:44:32 pm
Oh heck I thought he wanted to do this:
Code: QB64: [Select]
  1. 'Circle and scroll
  2. D& = _NewImage(600, 400, 32)
  5. For x = 1 To 40
  6.     A(x) = x
  8. offset = 0
  9. rows = Int(_Height(D&) / 16) - 2
  10.  
  12.     Cls
  13.     Circle (300, 300 - offset * 16), 75, &HFFFF0000
  14.     For k = 1 To rows
  15.         Print A(k + offset)
  16.     Next k
  18.         offset = offset + Sgn(_MouseWheel)
  19.         If offset < 0 Then offset = 0
  20.         If offset + rows > UBound(A) Then offset = UBound(A) - rows
  21.     Wend
  22.     _Display 'eliminate screen flicker
  23.     _Limit 30
  24. Loop Until _KeyDown(27) 'Esc to end
  25.  
  26.  
  27.  
Title: Re: any help please?
Post by: SMcNeill on September 19, 2021, 09:48:47 pm
For this type issue, I’d just keep it very simple:

SCREEN _NEWIMAGE(640,480,32)

FOR I = 1 TO 40 STEP 2
   PRINT USING “####          ####”; I, I +1
NEXT

CIRCLE (300, 300), 100, _RGB32(255, 255, 0)


2 Simple columns of data.  One circle. 

It’s not going to get much simpler than that.
Title: Re: any help please?
Post by: bplus on September 19, 2021, 10:18:45 pm
Actually we can create a whole image to scroll up and down:
Code: QB64: [Select]
  1. 'Circle and scroll
  2. D& = _NewImage(600, 400, 32)
  5. For x = 1 To 40
  6.     A(x) = x
  8. offset = 0
  9. rows = Int(_Height(D&) / 16) - 2
  10. s& = _NewImage(600, 672)
  12. For i = 1 To 40
  13.     If Rnd < .5 Then
  14.         Circle (Rnd * 600, Rnd * 672), Rnd * 50 + 10, _RGB32(Rnd * 255, Rnd * 255, Rnd * 255)
  15.     Else
  16.         Line (Rnd * 600, Rnd * 672)-Step(Rnd * 100, Rnd * 100), _RGB32(Rnd * 255, Rnd * 255, Rnd * 255), B
  17.     End If
  21.     Cls
  22.     _PutImage , s&, 0, (0, offset * 16)-Step(600, 400)
  23.     For k = 1 To rows
  24.         Print A(k + offset)
  25.     Next k
  27.         offset = offset + Sgn(_MouseWheel)
  28.         If offset < 0 Then offset = 0
  29.         If offset + rows > UBound(A) Then offset = UBound(A) - rows
  30.     Wend
  31.     _Display 'eliminate screen flicker
  32.     _Limit 30
  33. Loop Until _KeyDown(27) 'Esc to end
  34.  
  35.  
  36.  

I didn't think it this easy!
Title: Re: any help please?
Post by: bplus on September 19, 2021, 10:22:54 pm
Quote
It’s not going to get much simpler than that.

Here is simpler:
Code: QB64: [Select]
  2. Circle (200, 300), 50, 6
  3. For i = 1 To 40
  4.     Print i,
  6.  

Just 1 char more than original.
Title: Re: any help please?
Post by: bplus on September 19, 2021, 10:48:48 pm
How about scrolling down a moving graphic image?
Code: QB64: [Select]
  1. _Title "Scroll Moving Image" 'b+ 2021-09-19
  2. D& = _NewImage(600, 400, 32)
  5. For x = 1 To 40
  6.     A(x) = x
  8. offset = 0
  9. rows = Int(_Height(D&) / 16) - 2
  10. s& = _NewImage(600, 672)
  11. ca = _Pi(2 / 40)
  12. start = _Pi(3 / 2)
  13. rstart = 12
  14. af = 6
  16.     _Dest s& ' update image
  17.     Color &HFFBBBBFF, &H00330044 ' transparent background for letters
  18.     Cls
  19.     r = rstart
  20.     i = 1
  21.     For a = start To start + _Pi(2) Step ca
  22.         _PrintString (300 + r * Cos(af * a) - 8, 300 + r * Sin(af * a) - 8), Right$(Str$(i), 2)
  23.         i = i + 1
  24.         r = r + 5
  25.     Next
  26.     Circle (300, 300), 216
  27.     af = af - .005
  28.  
  29.     _Dest 0 ' update view screen
  30.     Cls
  31.     _PutImage , s&, 0, (0, offset * 16)-Step(600, 400)
  32.     For k = 1 To rows
  33.         Print A(k + offset)
  34.     Next k
  36.         offset = offset + Sgn(_MouseWheel)
  37.         If offset < 0 Then offset = 0
  38.         If offset + rows > UBound(a) Then offset = UBound(a) - rows
  39.     Wend
  40.     _Display 'eliminate screen flicker
  41.     _Limit 30
  42. Loop Until _KeyDown(27) 'Esc to end
  43.  
  44.  
  45.  
Title: Re: any help please?
Post by: johnno56 on September 20, 2021, 01:04:52 am
Quote from: bplus on September 19, 2021, 08:16:57 pm
OK blue

Nice. I even like the spiral effect... Cool...
Title: Re: any help please?
Post by: sarmad on September 20, 2021, 01:15:56 am
thank you guys that was amazing !!! thanx alot
Title: Re: any help please?
Post by: johnno56 on September 20, 2021, 04:40:43 am
There you go. Didn't have to wait too long...

Make full use of the help menu. Work your way through the installed examples. Check out stuff created by these guys. Ask questions.

Have fun and enjoy your stay with us...
Text Only | Text with Attachments