any help please?

[sarmad]

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?

[johnno56]

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]

1. SCREEN 12
2. CIRCLE (200, 300), 50, 6
3. FOR i = 1 TO 40
4.     PRINT i
5.     _DELAY 0.25
6. NEXT
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

[bplus]

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.

[SMcNeill]

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.

[bplus]

Get a B+
  [ You are not allowed to view this attachment ]  

[bplus]

Another B+
  [ You are not allowed to view this attachment ]  

[johnno56]

WHAT!! No blue?!?!  lol...

[bplus]

OK blue
  [ You are not allowed to view this attachment ]  

[OldMoses]

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)
3. SCREEN D&
4. REDIM  A(40) AS INTEGER
5. FOR x = 1 TO 40
6.     A(x) = x
7. NEXT x
8. offset = 0
9. rows = INT(_HEIGHT(D&) / 16) - 2
10.  
11. DO
12.     CLS
13.     CIRCLE (300, 100), 75, &HFFFF0000
14.     FOR k = 1 TO rows
15.         PRINT A(k + offset)
16.     NEXT k
17.     WHILE _MOUSEINPUT
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.  

[bplus]

Oh heck I thought he wanted to do this:

Code: QB64: [Select]

1. 'Circle and scroll
2. D& = _NewImage(600, 400, 32)
3. Screen D&
4. ReDim A(40) As Integer
5. For x = 1 To 40
6.     A(x) = x
7. Next x
8. offset = 0
9. rows = Int(_Height(D&) / 16) - 2
10.  
11. Do
12.     Cls
13.     Circle (300, 300 - offset * 16), 75, &HFFFF0000
14.     For k = 1 To rows
15.         Print A(k + offset)
16.     Next k
17.     While _MouseInput
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.  

[SMcNeill]

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.

[bplus]

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)
3. Screen D&
4. ReDim A(40) As Integer
5. For x = 1 To 40
6.     A(x) = x
7. Next x
8. offset = 0
9. rows = Int(_Height(D&) / 16) - 2
10. s& = _NewImage(600, 672)
11. _Dest s&
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
18. Next
19. _Dest 0
20. Do
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
26.     While _MouseInput
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!

[bplus]

It’s not going to get much simpler than that.

Here is simpler:

Code: QB64: [Select]

1. Screen 12
2. Circle (200, 300), 50, 6
3. For i = 1 To 40
4.     Print i,
5. Next
6.  

Just 1 char more than original.

[bplus]

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)
3. Screen D&
4. ReDim A(40) As Integer
5. For x = 1 To 40
6.     A(x) = x
7. Next 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
15. Do
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
35.     While _MouseInput
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.  

[johnno56]

OK blue

Nice. I even like the spiral effect... Cool...