Scrolling text objects example failing

Author

Message

Unseen Ghost

22

Years of Service

User Offline

Joined: 2nd Sep 2002

Location: Ohio

Posted: 30th Dec 2023 05:25 Edited at: 30th Dec 2023 05:27

Link

Hi, I am trying to make a scrolling text example with 2 text objects and keep track of their "y" positions using an array when the respective buttons are pressed. Arrays are a serious weak point for me. My brain goes on overload just looking at arrays.

For my example I have a text file named Team.txt with the following text inside:
Player 1
Player 2

I want the text to be put into the 2 text objects that are displayed on the screen. For the "UP" button I want the text to move down the screen like you are scrolling to the top of a list and the "Down" button move the text up like you are scrolling down the list

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Scrolling Text" )
SetWindowSize( 640, 480, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 640, 480 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 60, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

Global Text$
Global T_Players = 2

Text as integer
y as integer
TxtObj as integer [ 1 ]
T_Obj as integer

x = 50

OpenToRead(1,"Team.txt")

While FileEOF(1) = 0

For T_Obj = 1 to T_Players
		For y = 250 to 350 step 100
			Text$ = ReadString(1)
			CreateText(T_Obj, Text$)
			SetTextSize(T_Obj,15)
			SetTextColor(T_Obj, 250, 250, 0, 255)
			SetTextPosition(T_Obj, 50, y)
		Next y	
	Next T_Obj

EndWhile

AddVirtualButton(1,400,200,40)
SetVirtualButtonSize(1,50,50)
SetVirtualButtonColor(1,10,0,200)
SetVirtualButtonText(1,"UP")

AddVirtualButton(2,400,400,40)
SetVirtualButtonSize(2,50,50)
SetVirtualButtonColor(2,10,0,200)
SetVirtualButtonText(2,"DOWN")

do
	
	For T_Obj  = 1 to T_Players
		x = GetTextX ( TxtObj [ T_Obj ] )
		y = GetTextY ( TxtObj [ T_Obj ] )

If GetVirtualButtonState(1)=1
		   SetTextPosition(T_Obj,50,y-5)
		Endif
	
	   If GetVirtualButtonState(2)=1
		   SetTextPosition(T_Obj,50,y+5)
	   Endif
   Next T_Obj
   	
	sync()

loop

+ Code Snippet

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "Scrolling Text" )
SetWindowSize( 640, 480, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 640, 480 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 60, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts

Global Text$
Global T_Players = 2

Text as integer
y as integer
TxtObj as integer [ 1 ]
T_Obj as integer

x = 50


OpenToRead(1,"Team.txt")

While FileEOF(1) = 0

	For T_Obj = 1 to T_Players
		For y = 250 to 350 step 100
			Text$ = ReadString(1)
			CreateText(T_Obj, Text$)
			SetTextSize(T_Obj,15)
			SetTextColor(T_Obj, 250, 250, 0, 255)
			SetTextPosition(T_Obj, 50, y)
		Next y	
	Next T_Obj

EndWhile

AddVirtualButton(1,400,200,40)
SetVirtualButtonSize(1,50,50)
SetVirtualButtonColor(1,10,0,200)
SetVirtualButtonText(1,"UP")

AddVirtualButton(2,400,400,40)
SetVirtualButtonSize(2,50,50)
SetVirtualButtonColor(2,10,0,200)
SetVirtualButtonText(2,"DOWN")


do
	
	For T_Obj  = 1 to T_Players
		x = GetTextX ( TxtObj [ T_Obj ] )
		y = GetTextY ( TxtObj [ T_Obj ] )

  	   If GetVirtualButtonState(1)=1
		   SetTextPosition(T_Obj,50,y-5)
		Endif
	
	   If GetVirtualButtonState(2)=1
		   SetTextPosition(T_Obj,50,y+5)
	   Endif
   Next T_Obj
   	
	sync()

loop

Gigabyte Board/ AMD 3.3 Ghtz Quad core/8GB Ram/Nvidia Geforce 1080 GTX 8GB/1TB Western Dig. SSD/Windows 10 Home/Dark Basic Pro 9Ex/AGK2/AGKStudio

No one cares how much you know until they know how much you care.

Attachments

Login to view attachments

Back to top

Profile PM Email

Zaxxan

Developer

4

Years of Service

User Offline

Joined: 17th Nov 2020

Location: England

Posted: 30th Dec 2023 13:47 Edited at: 30th Dec 2023 16:37

Link

You are incrementing t_obj but within that loop you have another loop that creates the text twice (y250 and y 350) with the same id.

If you move the createtext from the second loop and put it in the first loop you will not get the error

Back to top

Profile PM

JosephB

18

Years of Service

User Offline

Joined: 12th Sep 2006

Location:

Posted: 30th Dec 2023 14:08

Link

As @Zaxxan noted you have two for loops creating the same text object number. There are also some array errors as well. I did not want to work with reading a file, so I commented that out of your code and then tried to simplify your code a little to show the arrays.

// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "TextScroll" )
SetWindowSize( 640, 480, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 640, 480 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 60, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
//Global Text$
Global T_Players = 1

TxtObj as integer [1] //text object numbers assigned by AGK for two text objects: TxtObj[0] and TxtObj[1] 
Text as String [1] = ["Player 1", " Player 2"] //two strings, Text[0], Text[1], for the text objects TxtObj[0] and TxtObj[1]
yPos as integer [1] = [250, 350] //initial y positions for text objects in an array in array positions 0 (250) and 1 (350)

T_Obj as integer
 
x = 50
 
 
//OpenToRead(1,"Team.txt") //I prefer to use 
 
//While FileEOF(1) = 0
 
    For T_Obj = 0 to T_Players
        //For y = 250 to 350 step 100
            //Text$ = ReadString(1)
            TxtObj[T_Obj] = CreateText(Text[T_Obj])
            SetTextSize(TxtObj[T_Obj],15)
            SetTextColor(TxtObj[T_Obj], 250, 250, 0, 255)
            SetTextPosition(TxtObj[T_Obj], 50, yPos[T_Obj])
        //Next y  
    Next T_Obj
 
//EndWhile
 
AddVirtualButton(1,400,200,40)
SetVirtualButtonSize(1,50,50)
SetVirtualButtonColor(1,10,0,200)
SetVirtualButtonText(1,"UP")
 
AddVirtualButton(2,400,400,40)
SetVirtualButtonSize(2,50,50)
SetVirtualButtonColor(2,10,0,200)
SetVirtualButtonText(2,"DOWN")
 
 
do
     
    For T_Obj  = 0 to T_Players
        x = GetTextX ( TxtObj [ T_Obj ] )
        y = GetTextY ( TxtObj [ T_Obj ] )
 
       If GetVirtualButtonState(1)=1
           SetTextPosition(TxtObj[T_Obj],50,y-5)
        Endif
     
       If GetVirtualButtonState(2)=1
           SetTextPosition(TxtObj[T_Obj],50,y+5)
       Endif
   Next T_Obj
     
    sync()
 
loop

+ Code Snippet

 
// show all errors
SetErrorMode(2)
 
// set window properties
SetWindowTitle( "TextScroll" )
SetWindowSize( 640, 480, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window
 
// set display properties
SetVirtualResolution( 640, 480 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 60, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts
 
//Global Text$
Global T_Players = 1

TxtObj as integer [1] //text object numbers assigned by AGK for two text objects: TxtObj[0] and TxtObj[1] 
Text as String [1] = ["Player 1", " Player 2"] //two strings, Text[0], Text[1], for the text objects TxtObj[0] and TxtObj[1]
yPos as integer [1] = [250, 350] //initial y positions for text objects in an array in array positions 0 (250) and 1 (350)

T_Obj as integer
 
x = 50
 
 
//OpenToRead(1,"Team.txt") //I prefer to use 
 
//While FileEOF(1) = 0
 
    For T_Obj = 0 to T_Players
        //For y = 250 to 350 step 100
            //Text$ = ReadString(1)
            TxtObj[T_Obj] = CreateText(Text[T_Obj])
            SetTextSize(TxtObj[T_Obj],15)
            SetTextColor(TxtObj[T_Obj], 250, 250, 0, 255)
            SetTextPosition(TxtObj[T_Obj], 50, yPos[T_Obj])
        //Next y  
    Next T_Obj
 
//EndWhile
 
AddVirtualButton(1,400,200,40)
SetVirtualButtonSize(1,50,50)
SetVirtualButtonColor(1,10,0,200)
SetVirtualButtonText(1,"UP")
 
AddVirtualButton(2,400,400,40)
SetVirtualButtonSize(2,50,50)
SetVirtualButtonColor(2,10,0,200)
SetVirtualButtonText(2,"DOWN")
 
 
do
     
    For T_Obj  = 0 to T_Players
        x = GetTextX ( TxtObj [ T_Obj ] )
        y = GetTextY ( TxtObj [ T_Obj ] )
 
       If GetVirtualButtonState(1)=1
           SetTextPosition(TxtObj[T_Obj],50,y-5)
        Endif
     
       If GetVirtualButtonState(2)=1
           SetTextPosition(TxtObj[T_Obj],50,y+5)
       Endif
   Next T_Obj
     
    sync()
 
loop

Back to top

Profile PM Email

Unseen Ghost

22

Years of Service

User Offline

Joined: 2nd Sep 2002

Location: Ohio

Posted: 30th Dec 2023 15:21 Edited at: 30th Dec 2023 15:34

Link

@Zaxxan
Yes, I understand it sees that the same ID is being assigned to both text objects, but the for/next loop should be incrementing T_Obj by 1 each loop with the way I have it set up. How the for/next loop could be assigning the same ID to both text objects I don't see it

@JosephB
I knew the array stuff was screwed up. I understand arrays if they are basic(no pun intended) and I can understand a more complex one if there is an explanation of what is going on to read, but when I try to set up a complex array and setting it up the way it is in the example my brain gets fried because the example is never set up for my situation. Thank you for your snippet, I will read the remarks and try to see and understand what is going on. Arrays screw with my head, but for what I am trying to do with my program I am going to need a bunch of massive arrays ugh lol. I will need use text files to load the information into the text objects, because it will take way to long to type all 30,000 player names and attributes in code. I was just using the "Player 1", and "Player 2" as an example to try to set some basic example up that I could get started with and modify as I go for things. This scrolling text will be for like the team roster among other things.

ASRock motherboard/ AMD 4.1 Ghtz Duel core/16GB Ram/Nvidia Geforce 1080 GTX 8GB/1TB Western Dig. SSD/Windows 10 Home/Dark Basic Pro 9Ex/AGK2/AGKStudio

No one cares how much you know until they know how much you care.

Back to top

Profile PM Email

Unseen Ghost

22

Years of Service

User Offline

Joined: 2nd Sep 2002

Location: Ohio

Posted: 30th Dec 2023 15:46 Edited at: 30th Dec 2023 15:59

Link

This post has been marked by the post author as the answer.

I checked the position of the text objects set by the code and they should not be showing up as they are in the image. They are offset, player 2 is slightly to the right more. Why is this happening?

[Edit

Never mind I figured out why it was happening. In the text for the array to insert the "Player 2" had a space between the first double quotes and the text as such: " Player 2"

ASRock motherboard/ AMD 4.1 Ghtz Duel core/16GB Ram/Nvidia Geforce 1080 GTX 8GB/1TB Western Dig. SSD/Windows 10 Home/Dark Basic Pro 9Ex/AGK2/AGKStudio

No one cares how much you know until they know how much you care.

Attachments

Login to view attachments

Back to top

Profile PM Email

JosephB

18

Years of Service

User Offline

Joined: 12th Sep 2006

Location:

Posted: 30th Dec 2023 15:50

Link

That was an accidental space I added before "Player 2" when I typed the line: Text as String [1] = ["Player 1", " Player 2"] //two strings, Text[0], Text[1], for the text objects TxtObj[0] and TxtObj[1]. Delete that extra space and all should be fine.

Back to top

Profile PM Email

Zaxxan

Developer

4

Years of Service

User Offline

Joined: 17th Nov 2020

Location: England

Posted: 30th Dec 2023 16:39 Edited at: 30th Dec 2023 16:40

Link

@unseen ghost Within the t_obj loop you have another loop that creates the text object twice (y250 and y350) using the same ID

Back to top

Profile PM

Unseen Ghost

22

Years of Service

User Offline

Joined: 2nd Sep 2002

Location: Ohio

Posted: 30th Dec 2023 17:01

Link

@Zaxxan
I will look harder at my original code and go step by step through it to see.

Currently I see that the only variable that seems to be setting T_Obj variable is the outer For/Next loop. The inner one is only suppose to set the "y" coordinates for each text object.

I will try to set up another example to see if I can do it without getting the error. I'm just not seeing it. Usually I see something like that fairly easy.

The only thing I can come up with is that the inner loop causes the outer loop to create 2 text objects with the same ID. If that is correct, I really had to follow the code slow to see it

ASRock motherboard/ AMD 4.1 Ghtz Duel core/16GB Ram/Nvidia Geforce 1080 GTX 8GB/1TB Western Dig. SSD/Windows 10 Home/Dark Basic Pro 9Ex/AGK2/AGKStudio

No one cares how much you know until they know how much you care.

Back to top

Profile PM Email

Zaxxan

Developer

4

Years of Service

User Offline

Joined: 17th Nov 2020

Location: England

Posted: 30th Dec 2023 18:41 Edited at: 30th Dec 2023 18:42

Link

This creates the text object twice using the same T_obj value

+ Code Snippet

For y = 250 to 350 step 100
            CreateText(T_Obj, Text$)
        Next y

Back to top

Profile PM

Zaxxan

Developer

4

Years of Service

User Offline

Joined: 17th Nov 2020

Location: England

Posted: 30th Dec 2023 18:47 Edited at: 30th Dec 2023 18:55

Link

Try this

+ Code Snippet

For T_Obj = 1 to T_Players
CreateText(T_Obj, Text$)
For y = 250 to 350 step 100
Text$ = ReadString(1)
SetTextString(T_Obj,Text$)
SetTextSize(T_Obj,15)
SetTextColor(T_Obj, 250, 250, 0, 255)
SetTextPosition(T_Obj, 50, y)
Next y
Next T_Obj

Back to top

Profile PM

Unseen Ghost

22

Years of Service

User Offline

Joined: 2nd Sep 2002

Location: Ohio

Posted: 30th Dec 2023 22:34 Edited at: 30th Dec 2023 22:35

Link

Quote: "Try this"

+ Code Snippet

For T_Obj = 1 to T_Players
CreateText(T_Obj, Text$)
For y = 250 to 350 step 100
Text$ = ReadString(1)
SetTextString(T_Obj,Text$)
SetTextSize(T_Obj,15)
SetTextColor(T_Obj, 250, 250, 0, 255)
SetTextPosition(T_Obj, 50, y)
Next y
Next T_Obj

I tried it and had to make some other adjustments for there not to be any errors. Problem is, is that no text showed up, just the buttons. I will have to make other changes to the other part of my code(left over original code) with the above snippet to get it to work properly. My array stuff in original code is all wrong and fails to do the job. I suck at arrays lol

ASRock motherboard/ AMD 4.1 Ghtz Duel core/16GB Ram/Nvidia Geforce 1080 GTX 8GB/1TB Western Dig. SSD/Windows 10 Home/Dark Basic Pro 9Ex/AGK2/AGKStudio

No one cares how much you know until they know how much you care.

Back to top

Profile PM Email

Zaxxan

Developer

4

Years of Service

User Offline

Joined: 17th Nov 2020

Location: England

Posted: 30th Dec 2023 22:51

Link

Keep trying, I'm sure you will solve it.

Back to top

Profile PM

Sorry your browser is not supported!

AppGameKit Classic Chat / [SOLVED] Scrolling text objects example failing

Attachments

Attachments