Graphics

I am new to scripting and have been trying to teach myself Visual Basic but I need some help trying to make this work. Essentially I am working on a basketball score bug and I want it to play different animations depending on how much a certain text object increases. I have it set up right now to only play a single animation every time a text objects changes/updates. My script looks like this (for reference I have two text objects each for HOME and AWAY, one hidden and one visible, it is Datalinqd to Daktronics):

On the scene itself:

OnOnline

Dim scr as xpTextObject

scene.GetObjectByName("AW ScrText" , scr)

scene.GetObjectByName("Aw Score" , txt)

txt.Text = scr.Text

--------------------------------------------------------------------

On the hidden script (this example is only for the away score):

OnSetText

Dim dir as xpSceneDirector

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

______________________________________________

I want to change this to play a simple animation when the hidden text increases by 1 or 2 (For a free throw or field goal in basketball), and then play a different more complicated animation when it increases by 3. I know this is probably simple I am just in the process of learning so thank you for any help you can provide!

I am guessing something like this but don't know how to connect it to the previous and current values.

Dim previousValue As Double

Dim currentValue As Double

Dim increaseAmount As Double = 1.0

Dim dir as xpSceneDirector

If currentValue > previousValue AndAlso currentValue - previousValue >= increaseAmount Then

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

Or is there an easier way to do this with Visual Logic?

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN
------------------------------

I would compare the old score with the new score and calculate the delta. 

If the delta equals 3 then play the animation else play the other animation. 

I'm traveling and writing this on the move or I'd write the code for you here. 

I am new to scripting and have been trying to teach myself Visual Basic but I need some help trying to make this work. Essentially I am working on a basketball score bug and I want it to play different animations depending on how much a certain text object increases. I have it set up right now to only play a single animation every time a text objects changes/updates. My script looks like this (for reference I have two text objects each for HOME and AWAY, one hidden and one visible, it is Datalinqd to Daktronics):

On the scene itself:

OnOnline

Dim scr as xpTextObject

scene.GetObjectByName("AW ScrText" , scr)

scene.GetObjectByName("Aw Score" , txt)

txt.Text = scr.Text

--------------------------------------------------------------------

On the hidden script (this example is only for the away score):

OnSetText

Dim dir as xpSceneDirector

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

______________________________________________

I want to change this to play a simple animation when the hidden text increases by 1 or 2 (For a free throw or field goal in basketball), and then play a different more complicated animation when it increases by 3. I know this is probably simple I am just in the process of learning so thank you for any help you can provide!

I am guessing something like this but don't know how to connect it to the previous and current values.

Dim previousValue As Double

Dim currentValue As Double

Dim increaseAmount As Double = 1.0

Dim dir as xpSceneDirector

If currentValue > previousValue AndAlso currentValue - previousValue >= increaseAmount Then

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

Or is there an easier way to do this with Visual Logic?

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN
------------------------------

Thank you I updated my code but I am still not sure how to have it know what the previous score is. How would I store this?

This is what I have so far (For an increase in 3 points):

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = GetPreviousScore() 'this is where I am thinking I would get it from I just don't know if there is a method for this
currentValue = GetCurrentScore()

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("AW Score", dir)
    dir.PlayRange(0, 60)

I would compare the old score with the new score and calculate the delta. 

If the delta equals 3 then play the animation else play the other animation. 

I'm traveling and writing this on the move or I'd write the code for you here. 

I am new to scripting and have been trying to teach myself Visual Basic but I need some help trying to make this work. Essentially I am working on a basketball score bug and I want it to play different animations depending on how much a certain text object increases. I have it set up right now to only play a single animation every time a text objects changes/updates. My script looks like this (for reference I have two text objects each for HOME and AWAY, one hidden and one visible, it is Datalinqd to Daktronics):

On the scene itself:

OnOnline

Dim scr as xpTextObject

scene.GetObjectByName("AW ScrText" , scr)

scene.GetObjectByName("Aw Score" , txt)

txt.Text = scr.Text

--------------------------------------------------------------------

On the hidden script (this example is only for the away score):

OnSetText

Dim dir as xpSceneDirector

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

______________________________________________

I want to change this to play a simple animation when the hidden text increases by 1 or 2 (For a free throw or field goal in basketball), and then play a different more complicated animation when it increases by 3. I know this is probably simple I am just in the process of learning so thank you for any help you can provide!

I am guessing something like this but don't know how to connect it to the previous and current values.

Dim previousValue As Double

Dim currentValue As Double

Dim increaseAmount As Double = 1.0

Dim dir as xpSceneDirector

If currentValue > previousValue AndAlso currentValue - previousValue >= increaseAmount Then

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

Or is there an easier way to do this with Visual Logic?

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN
------------------------------

When you do your animation you must be animating the old score off I assume?

Then the new score in?

You can pull the old score from the object you are animating out? 

Thank you I updated my code but I am still not sure how to have it know what the previous score is. How would I store this?

This is what I have so far (For an increase in 3 points):

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = GetPreviousScore() 'this is where I am thinking I would get it from I just don't know if there is a method for this
currentValue = GetCurrentScore()

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("AW Score", dir)
    dir.PlayRange(0, 60)

I would compare the old score with the new score and calculate the delta. 

If the delta equals 3 then play the animation else play the other animation. 

I'm traveling and writing this on the move or I'd write the code for you here. 

I am new to scripting and have been trying to teach myself Visual Basic but I need some help trying to make this work. Essentially I am working on a basketball score bug and I want it to play different animations depending on how much a certain text object increases. I have it set up right now to only play a single animation every time a text objects changes/updates. My script looks like this (for reference I have two text objects each for HOME and AWAY, one hidden and one visible, it is Datalinqd to Daktronics):

On the scene itself:

OnOnline

Dim scr as xpTextObject

scene.GetObjectByName("AW ScrText" , scr)

scene.GetObjectByName("Aw Score" , txt)

txt.Text = scr.Text

--------------------------------------------------------------------

On the hidden script (this example is only for the away score):

OnSetText

Dim dir as xpSceneDirector

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

______________________________________________

I want to change this to play a simple animation when the hidden text increases by 1 or 2 (For a free throw or field goal in basketball), and then play a different more complicated animation when it increases by 3. I know this is probably simple I am just in the process of learning so thank you for any help you can provide!

I am guessing something like this but don't know how to connect it to the previous and current values.

Dim previousValue As Double

Dim currentValue As Double

Dim increaseAmount As Double = 1.0

Dim dir as xpSceneDirector

If currentValue > previousValue AndAlso currentValue - previousValue >= increaseAmount Then

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

Or is there an easier way to do this with Visual Logic?

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN
------------------------------

Oh yes I do have that. So would this be correct? (Note that the HM Score is the visible text object on the scorebug itself, and then HM ScrText is the hidden one being updated by Daktronics then will update the HM Score after the animation)

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = scene.GetObjectByValue("HM Score", previousValue)
currentValue = scene.GetObjectByValue("HM ScrText", currentValue)

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("HM Three Point", dir)
    dir.PlayRange(0, 60)
End If

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-15-2024 14:57
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

When you do your animation you must be animating the old score off I assume?

Then the new score in?

You can pull the old score from the object you are animating out? 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 14:54
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Thank you I updated my code but I am still not sure how to have it know what the previous score is. How would I store this?

This is what I have so far (For an increase in 3 points):

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = GetPreviousScore() 'this is where I am thinking I would get it from I just don't know if there is a method for this
currentValue = GetCurrentScore()

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("AW Score", dir)
    dir.PlayRange(0, 60)

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-13-2024 06:25
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

I would compare the old score with the new score and calculate the delta. 

If the delta equals 3 then play the animation else play the other animation. 

I'm traveling and writing this on the move or I'd write the code for you here. 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-13-2024 03:21
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

I am new to scripting and have been trying to teach myself Visual Basic but I need some help trying to make this work. Essentially I am working on a basketball score bug and I want it to play different animations depending on how much a certain text object increases. I have it set up right now to only play a single animation every time a text objects changes/updates. My script looks like this (for reference I have two text objects each for HOME and AWAY, one hidden and one visible, it is Datalinqd to Daktronics):

On the scene itself:

OnOnline

Dim scr as xpTextObject

scene.GetObjectByName("AW ScrText" , scr)

scene.GetObjectByName("Aw Score" , txt)

txt.Text = scr.Text

--------------------------------------------------------------------

On the hidden script (this example is only for the away score):

OnSetText

Dim dir as xpSceneDirector

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

______________________________________________

I want to change this to play a simple animation when the hidden text increases by 1 or 2 (For a free throw or field goal in basketball), and then play a different more complicated animation when it increases by 3. I know this is probably simple I am just in the process of learning so thank you for any help you can provide!

I am guessing something like this but don't know how to connect it to the previous and current values.

Dim previousValue As Double

Dim currentValue As Double

Dim increaseAmount As Double = 1.0

Dim dir as xpSceneDirector

If currentValue > previousValue AndAlso currentValue - previousValue >= increaseAmount Then

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

Or is there an easier way to do this with Visual Logic?

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN
------------------------------

Where do you plan to run that? On the text object itself when a score is changed? 

You can of course add an else to run the other scene director for different animation.  

Yours looks good, mine would have probably looked like this;

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 15:51
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Oh yes I do have that. So would this be correct? (Note that the HM Score is the visible text object on the scorebug itself, and then HM ScrText is the hidden one being updated by Daktronics then will update the HM Score after the animation)

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = scene.GetObjectByValue("HM Score", previousValue)
currentValue = scene.GetObjectByValue("HM ScrText", currentValue)

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("HM Three Point", dir)
    dir.PlayRange(0, 60)
End If

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-15-2024 14:57
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

When you do your animation you must be animating the old score off I assume?

Then the new score in?

You can pull the old score from the object you are animating out? 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 14:54
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Thank you I updated my code but I am still not sure how to have it know what the previous score is. How would I store this?

This is what I have so far (For an increase in 3 points):

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = GetPreviousScore() 'this is where I am thinking I would get it from I just don't know if there is a method for this
currentValue = GetCurrentScore()

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("AW Score", dir)
    dir.PlayRange(0, 60)

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-13-2024 06:25
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

I would compare the old score with the new score and calculate the delta. 

If the delta equals 3 then play the animation else play the other animation. 

I'm traveling and writing this on the move or I'd write the code for you here. 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-13-2024 03:21
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

I am new to scripting and have been trying to teach myself Visual Basic but I need some help trying to make this work. Essentially I am working on a basketball score bug and I want it to play different animations depending on how much a certain text object increases. I have it set up right now to only play a single animation every time a text objects changes/updates. My script looks like this (for reference I have two text objects each for HOME and AWAY, one hidden and one visible, it is Datalinqd to Daktronics):

On the scene itself:

OnOnline

Dim scr as xpTextObject

scene.GetObjectByName("AW ScrText" , scr)

scene.GetObjectByName("Aw Score" , txt)

txt.Text = scr.Text

--------------------------------------------------------------------

On the hidden script (this example is only for the away score):

OnSetText

Dim dir as xpSceneDirector

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

______________________________________________

I want to change this to play a simple animation when the hidden text increases by 1 or 2 (For a free throw or field goal in basketball), and then play a different more complicated animation when it increases by 3. I know this is probably simple I am just in the process of learning so thank you for any help you can provide!

I am guessing something like this but don't know how to connect it to the previous and current values.

Dim previousValue As Double

Dim currentValue As Double

Dim increaseAmount As Double = 1.0

Dim dir as xpSceneDirector

If currentValue > previousValue AndAlso currentValue - previousValue >= increaseAmount Then

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

Or is there an easier way to do this with Visual Logic?

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN
------------------------------

Thank you very much for your help! I do plan to run it on the hidden text for the score (HM ScrText). Then I will have a script on the scene director to change the score (HM ScrText to HM Score). Does this still work?

Where do you plan to run that? On the text object itself when a score is changed? 

You can of course add an else to run the other scene director for different animation.  

Yours looks good, mine would have probably looked like this;

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 15:51
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Oh yes I do have that. So would this be correct? (Note that the HM Score is the visible text object on the scorebug itself, and then HM ScrText is the hidden one being updated by Daktronics then will update the HM Score after the animation)

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = scene.GetObjectByValue("HM Score", previousValue)
currentValue = scene.GetObjectByValue("HM ScrText", currentValue)

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("HM Three Point", dir)
    dir.PlayRange(0, 60)
End If

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-15-2024 14:57
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

When you do your animation you must be animating the old score off I assume?

Then the new score in?

You can pull the old score from the object you are animating out? 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 14:54
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Thank you I updated my code but I am still not sure how to have it know what the previous score is. How would I store this?

This is what I have so far (For an increase in 3 points):

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = GetPreviousScore() 'this is where I am thinking I would get it from I just don't know if there is a method for this
currentValue = GetCurrentScore()

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("AW Score", dir)
    dir.PlayRange(0, 60)

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-13-2024 06:25
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

I would compare the old score with the new score and calculate the delta. 

If the delta equals 3 then play the animation else play the other animation. 

I'm traveling and writing this on the move or I'd write the code for you here. 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-13-2024 03:21
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

I am new to scripting and have been trying to teach myself Visual Basic but I need some help trying to make this work. Essentially I am working on a basketball score bug and I want it to play different animations depending on how much a certain text object increases. I have it set up right now to only play a single animation every time a text objects changes/updates. My script looks like this (for reference I have two text objects each for HOME and AWAY, one hidden and one visible, it is Datalinqd to Daktronics):

On the scene itself:

OnOnline

Dim scr as xpTextObject

scene.GetObjectByName("AW ScrText" , scr)

scene.GetObjectByName("Aw Score" , txt)

txt.Text = scr.Text

--------------------------------------------------------------------

On the hidden script (this example is only for the away score):

OnSetText

Dim dir as xpSceneDirector

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

______________________________________________

I want to change this to play a simple animation when the hidden text increases by 1 or 2 (For a free throw or field goal in basketball), and then play a different more complicated animation when it increases by 3. I know this is probably simple I am just in the process of learning so thank you for any help you can provide!

I am guessing something like this but don't know how to connect it to the previous and current values.

Dim previousValue As Double

Dim currentValue As Double

Dim increaseAmount As Double = 1.0

Dim dir as xpSceneDirector

If currentValue > previousValue AndAlso currentValue - previousValue >= increaseAmount Then

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

Or is there an easier way to do this with Visual Logic?

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN
------------------------------

Sounds good to me. 

Thank you very much for your help! I do plan to run it on the hidden text for the score (HM ScrText). Then I will have a script on the scene director to change the score (HM ScrText to HM Score). Does this still work?

Where do you plan to run that? On the text object itself when a score is changed? 

You can of course add an else to run the other scene director for different animation.  

Yours looks good, mine would have probably looked like this;

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 15:51
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Oh yes I do have that. So would this be correct? (Note that the HM Score is the visible text object on the scorebug itself, and then HM ScrText is the hidden one being updated by Daktronics then will update the HM Score after the animation)

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = scene.GetObjectByValue("HM Score", previousValue)
currentValue = scene.GetObjectByValue("HM ScrText", currentValue)

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("HM Three Point", dir)
    dir.PlayRange(0, 60)
End If

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-15-2024 14:57
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

When you do your animation you must be animating the old score off I assume?

Then the new score in?

You can pull the old score from the object you are animating out? 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 14:54
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Thank you I updated my code but I am still not sure how to have it know what the previous score is. How would I store this?

This is what I have so far (For an increase in 3 points):

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = GetPreviousScore() 'this is where I am thinking I would get it from I just don't know if there is a method for this
currentValue = GetCurrentScore()

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("AW Score", dir)
    dir.PlayRange(0, 60)

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-13-2024 06:25
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

I would compare the old score with the new score and calculate the delta. 

If the delta equals 3 then play the animation else play the other animation. 

I'm traveling and writing this on the move or I'd write the code for you here. 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-13-2024 03:21
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

I am new to scripting and have been trying to teach myself Visual Basic but I need some help trying to make this work. Essentially I am working on a basketball score bug and I want it to play different animations depending on how much a certain text object increases. I have it set up right now to only play a single animation every time a text objects changes/updates. My script looks like this (for reference I have two text objects each for HOME and AWAY, one hidden and one visible, it is Datalinqd to Daktronics):

On the scene itself:

OnOnline

Dim scr as xpTextObject

scene.GetObjectByName("AW ScrText" , scr)

scene.GetObjectByName("Aw Score" , txt)

txt.Text = scr.Text

--------------------------------------------------------------------

On the hidden script (this example is only for the away score):

OnSetText

Dim dir as xpSceneDirector

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

______________________________________________

I want to change this to play a simple animation when the hidden text increases by 1 or 2 (For a free throw or field goal in basketball), and then play a different more complicated animation when it increases by 3. I know this is probably simple I am just in the process of learning so thank you for any help you can provide!

I am guessing something like this but don't know how to connect it to the previous and current values.

Dim previousValue As Double

Dim currentValue As Double

Dim increaseAmount As Double = 1.0

Dim dir as xpSceneDirector

If currentValue > previousValue AndAlso currentValue - previousValue >= increaseAmount Then

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

Or is there an easier way to do this with Visual Logic?

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN
------------------------------

For some reason it still isn't working. I copied and pasted your code into the script editor, made sure all the play ranges were correct. All the scene directors are named correctly. I am trying it with a counter widget since I don't have Daktronics up at the moment. Any ideas to why it might not be working?

Sounds good to me. 

Thank you very much for your help! I do plan to run it on the hidden text for the score (HM ScrText). Then I will have a script on the scene director to change the score (HM ScrText to HM Score). Does this still work?

Where do you plan to run that? On the text object itself when a score is changed? 

You can of course add an else to run the other scene director for different animation.  

Yours looks good, mine would have probably looked like this;

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 15:51
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Oh yes I do have that. So would this be correct? (Note that the HM Score is the visible text object on the scorebug itself, and then HM ScrText is the hidden one being updated by Daktronics then will update the HM Score after the animation)

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = scene.GetObjectByValue("HM Score", previousValue)
currentValue = scene.GetObjectByValue("HM ScrText", currentValue)

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("HM Three Point", dir)
    dir.PlayRange(0, 60)
End If

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-15-2024 14:57
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

When you do your animation you must be animating the old score off I assume?

Then the new score in?

You can pull the old score from the object you are animating out? 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 14:54
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Thank you I updated my code but I am still not sure how to have it know what the previous score is. How would I store this?

This is what I have so far (For an increase in 3 points):

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = GetPreviousScore() 'this is where I am thinking I would get it from I just don't know if there is a method for this
currentValue = GetCurrentScore()

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("AW Score", dir)
    dir.PlayRange(0, 60)

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-13-2024 06:25
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

I would compare the old score with the new score and calculate the delta. 

If the delta equals 3 then play the animation else play the other animation. 

I'm traveling and writing this on the move or I'd write the code for you here. 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-13-2024 03:21
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

I am new to scripting and have been trying to teach myself Visual Basic but I need some help trying to make this work. Essentially I am working on a basketball score bug and I want it to play different animations depending on how much a certain text object increases. I have it set up right now to only play a single animation every time a text objects changes/updates. My script looks like this (for reference I have two text objects each for HOME and AWAY, one hidden and one visible, it is Datalinqd to Daktronics):

On the scene itself:

OnOnline

Dim scr as xpTextObject

scene.GetObjectByName("AW ScrText" , scr)

scene.GetObjectByName("Aw Score" , txt)

txt.Text = scr.Text

--------------------------------------------------------------------

On the hidden script (this example is only for the away score):

OnSetText

Dim dir as xpSceneDirector

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

______________________________________________

I want to change this to play a simple animation when the hidden text increases by 1 or 2 (For a free throw or field goal in basketball), and then play a different more complicated animation when it increases by 3. I know this is probably simple I am just in the process of learning so thank you for any help you can provide!

I am guessing something like this but don't know how to connect it to the previous and current values.

Dim previousValue As Double

Dim currentValue As Double

Dim increaseAmount As Double = 1.0

Dim dir as xpSceneDirector

If currentValue > previousValue AndAlso currentValue - previousValue >= increaseAmount Then

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

Or is there an easier way to do this with Visual Logic?

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN
------------------------------

What does the debug monitor say? 

For some reason it still isn't working. I copied and pasted your code into the script editor, made sure all the play ranges were correct. All the scene directors are named correctly. I am trying it with a counter widget since I don't have Daktronics up at the moment. Any ideas to why it might not be working?

Sounds good to me. 

Thank you very much for your help! I do plan to run it on the hidden text for the score (HM ScrText). Then I will have a script on the scene director to change the score (HM ScrText to HM Score). Does this still work?

Where do you plan to run that? On the text object itself when a score is changed? 

You can of course add an else to run the other scene director for different animation.  

Yours looks good, mine would have probably looked like this;

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 15:51
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Oh yes I do have that. So would this be correct? (Note that the HM Score is the visible text object on the scorebug itself, and then HM ScrText is the hidden one being updated by Daktronics then will update the HM Score after the animation)

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = scene.GetObjectByValue("HM Score", previousValue)
currentValue = scene.GetObjectByValue("HM ScrText", currentValue)

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("HM Three Point", dir)
    dir.PlayRange(0, 60)
End If

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-15-2024 14:57
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

When you do your animation you must be animating the old score off I assume?

Then the new score in?

You can pull the old score from the object you are animating out? 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 14:54
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Thank you I updated my code but I am still not sure how to have it know what the previous score is. How would I store this?

This is what I have so far (For an increase in 3 points):

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = GetPreviousScore() 'this is where I am thinking I would get it from I just don't know if there is a method for this
currentValue = GetCurrentScore()

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("AW Score", dir)
    dir.PlayRange(0, 60)

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-13-2024 06:25
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

I would compare the old score with the new score and calculate the delta. 

If the delta equals 3 then play the animation else play the other animation. 

I'm traveling and writing this on the move or I'd write the code for you here. 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-13-2024 03:21
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

I am new to scripting and have been trying to teach myself Visual Basic but I need some help trying to make this work. Essentially I am working on a basketball score bug and I want it to play different animations depending on how much a certain text object increases. I have it set up right now to only play a single animation every time a text objects changes/updates. My script looks like this (for reference I have two text objects each for HOME and AWAY, one hidden and one visible, it is Datalinqd to Daktronics):

On the scene itself:

OnOnline

Dim scr as xpTextObject

scene.GetObjectByName("AW ScrText" , scr)

scene.GetObjectByName("Aw Score" , txt)

txt.Text = scr.Text

--------------------------------------------------------------------

On the hidden script (this example is only for the away score):

OnSetText

Dim dir as xpSceneDirector

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

______________________________________________

I want to change this to play a simple animation when the hidden text increases by 1 or 2 (For a free throw or field goal in basketball), and then play a different more complicated animation when it increases by 3. I know this is probably simple I am just in the process of learning so thank you for any help you can provide!

I am guessing something like this but don't know how to connect it to the previous and current values.

Dim previousValue As Double

Dim currentValue As Double

Dim increaseAmount As Double = 1.0

Dim dir as xpSceneDirector

If currentValue > previousValue AndAlso currentValue - previousValue >= increaseAmount Then

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

Or is there an easier way to do this with Visual Logic?

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN
------------------------------

It says that everything is complied no messages, it is green. When I increase the widget (Data source set to Counter 2) any amount on the AW ScrText it does the simple animation (AW Score) for the "else" statement but doesn't do the three point animation when I increase it by 3 (For example I type 3 into the counter when it is 0). Just to make sure this is exactly what I have: 

Dim currentValue, previousValue as xpTextObject
Dim dir as xpSceneDirector
scene.GetObjectByName("AW Score", previousValue)
scene.GetObjectByName("AW ScrText", currentValue)
Dim delta As Integer = currentValue.Text - previousValue.Text
If delta = 3
    scene.GetSceneDirectorByName("AW Three Point", dir)
    dir.PlayRange(0, 131)
else
    scene.GetSceneDirectorByName("AW Score", dir)
    dir.PlayRange(0, 60)
End If

I have attached some images as well

Compiler on the AW ScrText (OnSetText)

Inside the AW Three Point

This code is inside the script on the scene director:

Dim scr as xpTextObject

scene.GetObjectByName("AW ScrText" , scr)

scene.GetObjectByName("Aw Score" , txt)

txt.Text = scr.Text

What does the debug monitor say? 

For some reason it still isn't working. I copied and pasted your code into the script editor, made sure all the play ranges were correct. All the scene directors are named correctly. I am trying it with a counter widget since I don't have Daktronics up at the moment. Any ideas to why it might not be working?

Sounds good to me. 

Thank you very much for your help! I do plan to run it on the hidden text for the score (HM ScrText). Then I will have a script on the scene director to change the score (HM ScrText to HM Score). Does this still work?

Where do you plan to run that? On the text object itself when a score is changed? 

You can of course add an else to run the other scene director for different animation.  

Yours looks good, mine would have probably looked like this;

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 15:51
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Oh yes I do have that. So would this be correct? (Note that the HM Score is the visible text object on the scorebug itself, and then HM ScrText is the hidden one being updated by Daktronics then will update the HM Score after the animation)

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = scene.GetObjectByValue("HM Score", previousValue)
currentValue = scene.GetObjectByValue("HM ScrText", currentValue)

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("HM Three Point", dir)
    dir.PlayRange(0, 60)
End If

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-15-2024 14:57
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

When you do your animation you must be animating the old score off I assume?

Then the new score in?

You can pull the old score from the object you are animating out? 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 14:54
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Thank you I updated my code but I am still not sure how to have it know what the previous score is. How would I store this?

This is what I have so far (For an increase in 3 points):

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = GetPreviousScore() 'this is where I am thinking I would get it from I just don't know if there is a method for this
currentValue = GetCurrentScore()

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("AW Score", dir)
    dir.PlayRange(0, 60)

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-13-2024 06:25
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

I would compare the old score with the new score and calculate the delta. 

If the delta equals 3 then play the animation else play the other animation. 

I'm traveling and writing this on the move or I'd write the code for you here. 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-13-2024 03:21
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

I am new to scripting and have been trying to teach myself Visual Basic but I need some help trying to make this work. Essentially I am working on a basketball score bug and I want it to play different animations depending on how much a certain text object increases. I have it set up right now to only play a single animation every time a text objects changes/updates. My script looks like this (for reference I have two text objects each for HOME and AWAY, one hidden and one visible, it is Datalinqd to Daktronics):

On the scene itself:

OnOnline

Dim scr as xpTextObject

scene.GetObjectByName("AW ScrText" , scr)

scene.GetObjectByName("Aw Score" , txt)

txt.Text = scr.Text

--------------------------------------------------------------------

On the hidden script (this example is only for the away score):

OnSetText

Dim dir as xpSceneDirector

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

______________________________________________

I want to change this to play a simple animation when the hidden text increases by 1 or 2 (For a free throw or field goal in basketball), and then play a different more complicated animation when it increases by 3. I know this is probably simple I am just in the process of learning so thank you for any help you can provide!

I am guessing something like this but don't know how to connect it to the previous and current values.

Dim previousValue As Double

Dim currentValue As Double

Dim increaseAmount As Double = 1.0

Dim dir as xpSceneDirector

If currentValue > previousValue AndAlso currentValue - previousValue >= increaseAmount Then

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

Or is there an easier way to do this with Visual Logic?

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN
------------------------------

The debug monitor I am talking about is this one. 

It says that everything is complied no messages, it is green. When I increase the widget (Data source set to Counter 2) any amount on the AW ScrText it does the simple animation (AW Score) for the "else" statement but doesn't do the three point animation when I increase it by 3 (For example I type 3 into the counter when it is 0). Just to make sure this is exactly what I have: 

Dim currentValue, previousValue as xpTextObject
Dim dir as xpSceneDirector
scene.GetObjectByName("AW Score", previousValue)
scene.GetObjectByName("AW ScrText", currentValue)
Dim delta As Integer = currentValue.Text - previousValue.Text
If delta = 3
    scene.GetSceneDirectorByName("AW Three Point", dir)
    dir.PlayRange(0, 131)
else
    scene.GetSceneDirectorByName("AW Score", dir)
    dir.PlayRange(0, 60)
End If

I have attached some images as well

Compiler on the AW ScrText (OnSetText)

Inside the AW Three Point

This code is inside the script on the scene director:

Dim scr as xpTextObject

scene.GetObjectByName("AW ScrText" , scr)

scene.GetObjectByName("Aw Score" , txt)

txt.Text = scr.Text

What does the debug monitor say? 

For some reason it still isn't working. I copied and pasted your code into the script editor, made sure all the play ranges were correct. All the scene directors are named correctly. I am trying it with a counter widget since I don't have Daktronics up at the moment. Any ideas to why it might not be working?

Sounds good to me. 

Thank you very much for your help! I do plan to run it on the hidden text for the score (HM ScrText). Then I will have a script on the scene director to change the score (HM ScrText to HM Score). Does this still work?

Where do you plan to run that? On the text object itself when a score is changed? 

You can of course add an else to run the other scene director for different animation.  

Yours looks good, mine would have probably looked like this;

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 15:51
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Oh yes I do have that. So would this be correct? (Note that the HM Score is the visible text object on the scorebug itself, and then HM ScrText is the hidden one being updated by Daktronics then will update the HM Score after the animation)

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = scene.GetObjectByValue("HM Score", previousValue)
currentValue = scene.GetObjectByValue("HM ScrText", currentValue)

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("HM Three Point", dir)
    dir.PlayRange(0, 60)
End If

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-15-2024 14:57
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

When you do your animation you must be animating the old score off I assume?

Then the new score in?

You can pull the old score from the object you are animating out? 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 14:54
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Thank you I updated my code but I am still not sure how to have it know what the previous score is. How would I store this?

This is what I have so far (For an increase in 3 points):

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = GetPreviousScore() 'this is where I am thinking I would get it from I just don't know if there is a method for this
currentValue = GetCurrentScore()

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("AW Score", dir)
    dir.PlayRange(0, 60)

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-13-2024 06:25
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

I would compare the old score with the new score and calculate the delta. 

If the delta equals 3 then play the animation else play the other animation. 

I'm traveling and writing this on the move or I'd write the code for you here. 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-13-2024 03:21
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

I am new to scripting and have been trying to teach myself Visual Basic but I need some help trying to make this work. Essentially I am working on a basketball score bug and I want it to play different animations depending on how much a certain text object increases. I have it set up right now to only play a single animation every time a text objects changes/updates. My script looks like this (for reference I have two text objects each for HOME and AWAY, one hidden and one visible, it is Datalinqd to Daktronics):

On the scene itself:

OnOnline

Dim scr as xpTextObject

scene.GetObjectByName("AW ScrText" , scr)

scene.GetObjectByName("Aw Score" , txt)

txt.Text = scr.Text

--------------------------------------------------------------------

On the hidden script (this example is only for the away score):

OnSetText

Dim dir as xpSceneDirector

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

______________________________________________

I want to change this to play a simple animation when the hidden text increases by 1 or 2 (For a free throw or field goal in basketball), and then play a different more complicated animation when it increases by 3. I know this is probably simple I am just in the process of learning so thank you for any help you can provide!

I am guessing something like this but don't know how to connect it to the previous and current values.

Dim previousValue As Double

Dim currentValue As Double

Dim increaseAmount As Double = 1.0

Dim dir as xpSceneDirector

If currentValue > previousValue AndAlso currentValue - previousValue >= increaseAmount Then

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

Or is there an easier way to do this with Visual Logic?

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN
------------------------------

Thank you! I checked the debug monitor and nothing is popping up when I run the script. It is kind of working now however just not correctly. When I delete the scorebug from the sequence and re-add it back in then it does the three point animation and the alternate animation at the same time. But after that no matter what I put in it does the alternate one only.

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-16-2024 04:19
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

The debug monitor I am talking about is this one. 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 18:34
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

It says that everything is complied no messages, it is green. When I increase the widget (Data source set to Counter 2) any amount on the AW ScrText it does the simple animation (AW Score) for the "else" statement but doesn't do the three point animation when I increase it by 3 (For example I type 3 into the counter when it is 0). Just to make sure this is exactly what I have: 

Dim currentValue, previousValue as xpTextObject
Dim dir as xpSceneDirector
scene.GetObjectByName("AW Score", previousValue)
scene.GetObjectByName("AW ScrText", currentValue)
Dim delta As Integer = currentValue.Text - previousValue.Text
If delta = 3
    scene.GetSceneDirectorByName("AW Three Point", dir)
    dir.PlayRange(0, 131)
else
    scene.GetSceneDirectorByName("AW Score", dir)
    dir.PlayRange(0, 60)
End If

I have attached some images as well

Compiler on the AW ScrText (OnSetText)

Inside the AW Three Point

This code is inside the script on the scene director:

Dim scr as xpTextObject

scene.GetObjectByName("AW ScrText" , scr)

scene.GetObjectByName("Aw Score" , txt)

txt.Text = scr.Text

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-15-2024 18:00
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

What does the debug monitor say? 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 17:55
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

For some reason it still isn't working. I copied and pasted your code into the script editor, made sure all the play ranges were correct. All the scene directors are named correctly. I am trying it with a counter widget since I don't have Daktronics up at the moment. Any ideas to why it might not be working?

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-15-2024 16:22
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

Sounds good to me. 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 16:20
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Thank you very much for your help! I do plan to run it on the hidden text for the score (HM ScrText). Then I will have a script on the scene director to change the score (HM ScrText to HM Score). Does this still work?

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-15-2024 16:06
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

Where do you plan to run that? On the text object itself when a score is changed? 

You can of course add an else to run the other scene director for different animation.  

Yours looks good, mine would have probably looked like this;

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 15:51
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Oh yes I do have that. So would this be correct? (Note that the HM Score is the visible text object on the scorebug itself, and then HM ScrText is the hidden one being updated by Daktronics then will update the HM Score after the animation)

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = scene.GetObjectByValue("HM Score", previousValue)
currentValue = scene.GetObjectByValue("HM ScrText", currentValue)

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("HM Three Point", dir)
    dir.PlayRange(0, 60)
End If

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-15-2024 14:57
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

When you do your animation you must be animating the old score off I assume?

Then the new score in?

You can pull the old score from the object you are animating out? 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 14:54
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Thank you I updated my code but I am still not sure how to have it know what the previous score is. How would I store this?

This is what I have so far (For an increase in 3 points):

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = GetPreviousScore() 'this is where I am thinking I would get it from I just don't know if there is a method for this
currentValue = GetCurrentScore()

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("AW Score", dir)
    dir.PlayRange(0, 60)

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-13-2024 06:25
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

I would compare the old score with the new score and calculate the delta. 

If the delta equals 3 then play the animation else play the other animation. 

I'm traveling and writing this on the move or I'd write the code for you here. 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-13-2024 03:21
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

I am new to scripting and have been trying to teach myself Visual Basic but I need some help trying to make this work. Essentially I am working on a basketball score bug and I want it to play different animations depending on how much a certain text object increases. I have it set up right now to only play a single animation every time a text objects changes/updates. My script looks like this (for reference I have two text objects each for HOME and AWAY, one hidden and one visible, it is Datalinqd to Daktronics):

On the scene itself:

OnOnline

Dim scr as xpTextObject

scene.GetObjectByName("AW ScrText" , scr)

scene.GetObjectByName("Aw Score" , txt)

txt.Text = scr.Text

--------------------------------------------------------------------

On the hidden script (this example is only for the away score):

OnSetText

Dim dir as xpSceneDirector

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

______________________________________________

I want to change this to play a simple animation when the hidden text increases by 1 or 2 (For a free throw or field goal in basketball), and then play a different more complicated animation when it increases by 3. I know this is probably simple I am just in the process of learning so thank you for any help you can provide!

I am guessing something like this but don't know how to connect it to the previous and current values.

Dim previousValue As Double

Dim currentValue As Double

Dim increaseAmount As Double = 1.0

Dim dir as xpSceneDirector

If currentValue > previousValue AndAlso currentValue - previousValue >= increaseAmount Then

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

Or is there an easier way to do this with Visual Logic?

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN
------------------------------

To stop them playing when they first come online you can add some control such as an if that surrounds all the other if statements. 

Dim IN as xpSceneDirector

If sd.position < 5

else 

<--- rest of you code here

end if 

That means when it first comes online that update text will be triggered but won't do anything. 

As for the other issues, you could try storing that value in a text object. 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-16-2024 16:00
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Thank you! I checked the debug monitor and nothing is popping up when I run the script. It is kind of working now however just not correctly. When I delete the scorebug from the sequence and re-add it back in then it does the three point animation and the alternate animation at the same time. But after that no matter what I put in it does the alternate one only.

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-16-2024 04:19
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

The debug monitor I am talking about is this one. 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 18:34
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

It says that everything is complied no messages, it is green. When I increase the widget (Data source set to Counter 2) any amount on the AW ScrText it does the simple animation (AW Score) for the "else" statement but doesn't do the three point animation when I increase it by 3 (For example I type 3 into the counter when it is 0). Just to make sure this is exactly what I have: 

Dim currentValue, previousValue as xpTextObject
Dim dir as xpSceneDirector
scene.GetObjectByName("AW Score", previousValue)
scene.GetObjectByName("AW ScrText", currentValue)
Dim delta As Integer = currentValue.Text - previousValue.Text
If delta = 3
    scene.GetSceneDirectorByName("AW Three Point", dir)
    dir.PlayRange(0, 131)
else
    scene.GetSceneDirectorByName("AW Score", dir)
    dir.PlayRange(0, 60)
End If

I have attached some images as well

Compiler on the AW ScrText (OnSetText)

Inside the AW Three Point

This code is inside the script on the scene director:

Dim scr as xpTextObject

scene.GetObjectByName("AW ScrText" , scr)

scene.GetObjectByName("Aw Score" , txt)

txt.Text = scr.Text

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-15-2024 18:00
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

What does the debug monitor say? 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 17:55
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

For some reason it still isn't working. I copied and pasted your code into the script editor, made sure all the play ranges were correct. All the scene directors are named correctly. I am trying it with a counter widget since I don't have Daktronics up at the moment. Any ideas to why it might not be working?

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-15-2024 16:22
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

Sounds good to me. 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 16:20
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Thank you very much for your help! I do plan to run it on the hidden text for the score (HM ScrText). Then I will have a script on the scene director to change the score (HM ScrText to HM Score). Does this still work?

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-15-2024 16:06
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

Where do you plan to run that? On the text object itself when a score is changed? 

You can of course add an else to run the other scene director for different animation.  

Yours looks good, mine would have probably looked like this;

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 15:51
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Oh yes I do have that. So would this be correct? (Note that the HM Score is the visible text object on the scorebug itself, and then HM ScrText is the hidden one being updated by Daktronics then will update the HM Score after the animation)

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = scene.GetObjectByValue("HM Score", previousValue)
currentValue = scene.GetObjectByValue("HM ScrText", currentValue)

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("HM Three Point", dir)
    dir.PlayRange(0, 60)
End If

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-15-2024 14:57
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

When you do your animation you must be animating the old score off I assume?

Then the new score in?

You can pull the old score from the object you are animating out? 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 14:54
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Thank you I updated my code but I am still not sure how to have it know what the previous score is. How would I store this?

This is what I have so far (For an increase in 3 points):

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = GetPreviousScore() 'this is where I am thinking I would get it from I just don't know if there is a method for this
currentValue = GetCurrentScore()

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("AW Score", dir)
    dir.PlayRange(0, 60)

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-13-2024 06:25
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

I would compare the old score with the new score and calculate the delta. 

If the delta equals 3 then play the animation else play the other animation. 

I'm traveling and writing this on the move or I'd write the code for you here. 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-13-2024 03:21
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

I am new to scripting and have been trying to teach myself Visual Basic but I need some help trying to make this work. Essentially I am working on a basketball score bug and I want it to play different animations depending on how much a certain text object increases. I have it set up right now to only play a single animation every time a text objects changes/updates. My script looks like this (for reference I have two text objects each for HOME and AWAY, one hidden and one visible, it is Datalinqd to Daktronics):

On the scene itself:

OnOnline

Dim scr as xpTextObject

scene.GetObjectByName("AW ScrText" , scr)

scene.GetObjectByName("Aw Score" , txt)

txt.Text = scr.Text

--------------------------------------------------------------------

On the hidden script (this example is only for the away score):

OnSetText

Dim dir as xpSceneDirector

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

______________________________________________

I want to change this to play a simple animation when the hidden text increases by 1 or 2 (For a free throw or field goal in basketball), and then play a different more complicated animation when it increases by 3. I know this is probably simple I am just in the process of learning so thank you for any help you can provide!

I am guessing something like this but don't know how to connect it to the previous and current values.

Dim previousValue As Double

Dim currentValue As Double

Dim increaseAmount As Double = 1.0

Dim dir as xpSceneDirector

If currentValue > previousValue AndAlso currentValue - previousValue >= increaseAmount Then

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

Or is there an easier way to do this with Visual Logic?

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN
------------------------------

Would either of you be able to upload the project file you are working on, or a different project with this script in action? I've tried implementing it into my basketball bug graphic and am having trouble calculating the delta with currentValue and previousValue.

To stop them playing when they first come online you can add some control such as an if that surrounds all the other if statements. 

Dim IN as xpSceneDirector

If sd.position < 5

else 

<--- rest of you code here

end if 

That means when it first comes online that update text will be triggered but won't do anything. 

As for the other issues, you could try storing that value in a text object. 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-16-2024 16:00
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Thank you! I checked the debug monitor and nothing is popping up when I run the script. It is kind of working now however just not correctly. When I delete the scorebug from the sequence and re-add it back in then it does the three point animation and the alternate animation at the same time. But after that no matter what I put in it does the alternate one only.

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-16-2024 04:19
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

The debug monitor I am talking about is this one. 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 18:34
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

It says that everything is complied no messages, it is green. When I increase the widget (Data source set to Counter 2) any amount on the AW ScrText it does the simple animation (AW Score) for the "else" statement but doesn't do the three point animation when I increase it by 3 (For example I type 3 into the counter when it is 0). Just to make sure this is exactly what I have: 

Dim currentValue, previousValue as xpTextObject
Dim dir as xpSceneDirector
scene.GetObjectByName("AW Score", previousValue)
scene.GetObjectByName("AW ScrText", currentValue)
Dim delta As Integer = currentValue.Text - previousValue.Text
If delta = 3
    scene.GetSceneDirectorByName("AW Three Point", dir)
    dir.PlayRange(0, 131)
else
    scene.GetSceneDirectorByName("AW Score", dir)
    dir.PlayRange(0, 60)
End If

I have attached some images as well

Compiler on the AW ScrText (OnSetText)

Inside the AW Three Point

This code is inside the script on the scene director:

Dim scr as xpTextObject

scene.GetObjectByName("AW ScrText" , scr)

scene.GetObjectByName("Aw Score" , txt)

txt.Text = scr.Text

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-15-2024 18:00
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

What does the debug monitor say? 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 17:55
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

For some reason it still isn't working. I copied and pasted your code into the script editor, made sure all the play ranges were correct. All the scene directors are named correctly. I am trying it with a counter widget since I don't have Daktronics up at the moment. Any ideas to why it might not be working?

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-15-2024 16:22
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

Sounds good to me. 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 16:20
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Thank you very much for your help! I do plan to run it on the hidden text for the score (HM ScrText). Then I will have a script on the scene director to change the score (HM ScrText to HM Score). Does this still work?

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-15-2024 16:06
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

Where do you plan to run that? On the text object itself when a score is changed? 

You can of course add an else to run the other scene director for different animation.  

Yours looks good, mine would have probably looked like this;

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 15:51
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Oh yes I do have that. So would this be correct? (Note that the HM Score is the visible text object on the scorebug itself, and then HM ScrText is the hidden one being updated by Daktronics then will update the HM Score after the animation)

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = scene.GetObjectByValue("HM Score", previousValue)
currentValue = scene.GetObjectByValue("HM ScrText", currentValue)

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("HM Three Point", dir)
    dir.PlayRange(0, 60)
End If

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-15-2024 14:57
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

When you do your animation you must be animating the old score off I assume?

Then the new score in?

You can pull the old score from the object you are animating out? 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-15-2024 14:54
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

Thank you I updated my code but I am still not sure how to have it know what the previous score is. How would I store this?

This is what I have so far (For an increase in 3 points):

Dim previousValue As Double
Dim currentValue As Double
Dim dir As xpSceneDirector

previousValue = GetPreviousScore() 'this is where I am thinking I would get it from I just don't know if there is a method for this
currentValue = GetCurrentScore()

Dim delta As Double = currentValue - previousValue

If Math.Abs(delta) = 3 Then
    scene.GetSceneDirectorByName("AW Score", dir)
    dir.PlayRange(0, 60)

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN

Original Message:
Sent: 01-13-2024 06:25
From: Simon Redmile
Subject: Basketball Score Bug Animation Scripting

I would compare the old score with the new score and calculate the delta. 

If the delta equals 3 then play the animation else play the other animation. 

I'm traveling and writing this on the move or I'd write the code for you here. 

------------------------------
Simon Redmile
Senior Graphic Programmer & Designer
Ross Video
Bristol United Kingdom

Original Message:
Sent: 01-13-2024 03:21
From: Nathaniel Rudolph
Subject: Basketball Score Bug Animation Scripting

I am new to scripting and have been trying to teach myself Visual Basic but I need some help trying to make this work. Essentially I am working on a basketball score bug and I want it to play different animations depending on how much a certain text object increases. I have it set up right now to only play a single animation every time a text objects changes/updates. My script looks like this (for reference I have two text objects each for HOME and AWAY, one hidden and one visible, it is Datalinqd to Daktronics):

On the scene itself:

OnOnline

Dim scr as xpTextObject

scene.GetObjectByName("AW ScrText" , scr)

scene.GetObjectByName("Aw Score" , txt)

txt.Text = scr.Text

--------------------------------------------------------------------

On the hidden script (this example is only for the away score):

OnSetText

Dim dir as xpSceneDirector

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

______________________________________________

I want to change this to play a simple animation when the hidden text increases by 1 or 2 (For a free throw or field goal in basketball), and then play a different more complicated animation when it increases by 3. I know this is probably simple I am just in the process of learning so thank you for any help you can provide!

I am guessing something like this but don't know how to connect it to the previous and current values.

Dim previousValue As Double

Dim currentValue As Double

Dim increaseAmount As Double = 1.0

Dim dir as xpSceneDirector

If currentValue > previousValue AndAlso currentValue - previousValue >= increaseAmount Then

scene.GetSceneDirectorByName("AW Score" , dir)

dir.PlayRange(0,60)

Or is there an easier way to do this with Visual Logic?

------------------------------
Nathaniel Rudolph
Xpression Graphics Operator
CSBN
------------------------------