Visual Basic Code Breakthrough

[Joseph]

Visual Basic Code Breakthrough

Mission Statement

Continue to reduce the Queue Em,TextBox,flash and primitive Reel code lines.

The newly discovered visual basic code below will replace the eval function code and reduce the code lines.

Code Test

Dim EMRel(2) ‘two buckets created
Set EMRel(1)=EMReel1  ‘ Fill bucket one
Set EMRel(2)=EMReel2  ‘ Fill bucket two

If Q1Flash_VisFalseInc>2 Then
Q1Flash_VisFalseInc=0 ‘ (out of range error will occur if dim acknowledges 0)
End If

‘comment

inc once only on the way in and inc on the way out up to text quantity (i.a.w Len_Q1FlashTxt=Len(Q1Flash_Txt)

Dim Q1Flash_VisFalseInc
Sub Q1Flash_Visibility_state_Is_False_LTFR_11()
If Q1Flash_ReelxTracker(Q1Flash_VisFalseInc) < Q1Flash_First_Reel_X_Position-Q1FlashReelWidth/5 Then EMRel(Q1Flash_VisFalseInc).visible=0  :Q1Flash_VisFalseInc=Q1Flash_VisFalseInc+1 : End If
end Sub

Test successful

It takes time to get your head around it!

You need to login in order to like this post: click here

[Author]

Posts