3 replies to this topic

[Jackmc7r]

I am going to preface this with the fact that I am blundering my way through the coding side of this program. I do not have a history in programming outside of plc/industrial equipment.

 

My issue is I cannot figure out how to influence a drop target state with the code.

My goal is to have a drop target only drop once it's been hit 5 times.

From what I've gathered the drop targets have 2 states Target_hit is the ball coming into contact with the target which starts the drop animation. and Target_dropped which is the state at the end of the animation.

I typed this up when I was first trying to work around it and it just crashes because im changing a state instead of influencing it.

Either way it doesn't work because I don't know what to reference to tell the target to reset.

 

 

Sub Waterfall_Target_Hit()
    dim WFC
    WFC = WFC + 1
    if WFC >= 5 then  Waterfall_Target_Raised = True and Waterfall_Target_Dropped = False
    ifelse Waterfall_Target_Dropped = True and Waterfall_Target_Raised = False
End Sub

[hmueck]

Dim WFC 'only dim once outside of sub

WaterfallTarget_DropSpeed=0 'Target will not drop when hit

 

Sub WaterfallTarget_hit() 'target is hit

   WFC=WFC+1

   If WFC >=5 then
      WaterfallTarget_DropSpeed=0.5 'let it drop next time

   End If

End Sub

[Jackmc7r]

Dim WFC 'only dim once outside of sub

WaterfallTarget_DropSpeed=0 'Target will not drop when hit

 

Sub WaterfallTarget_hit() 'target is hit

   WFC=WFC+1

   If WFC >=5 then
      WaterfallTarget_DropSpeed=0.5 'let it drop next time

   End If

End Sub

It's saying that the "WaterfallTarget_DropSpeed" variable isn't defined. and also how would I make the target come back up once a condition was met?

[hmueck]

Sorry, it's .dropspeed, not _dropspeed.

Dim WFC 'only dim once outside of sub

WaterfallTarget.DropSpeed=0 'Target will not drop when hit
 
Sub WaterfallTarget_hit() 'target is hit
   WFC=WFC+1
   If WFC >=5 then

      WaterfallTarget.DropSpeed=0.5 'let it drop next time

   End If
End Sub

If conditionismet=true
   WFC=0
   WaterfallTarget.isdropped=0 'make droptarget not down
End If