50 replies to this topic

[JAM0]

Worked right out of the box! Thanks Rosve for all your great work!

[frans]

line 1431 error

Sub UpdateGI2(nr, status) (Sintaxe error)
Select Case nr
Case 0
Select Case status
Case 0,1,2,3,4
setlamp 100,0
for each obj in bombillasIz:obj.state=0:next
Case 5,6,7,8
setlamp 100,1
for each obj in bombillasDer:obj.state=0:next
Case 5,6,7,8
setlamp 101,1
for each obj in bombillasDer:obj.state=1:next
End Select
End Select
End Sub

Have anything wrong in the my script?

'****************************************************************************
*******************
'***************************************** B2S ************************************************
'****************************************************************************
*******************
' ExecuteGlobal GetTextFile("b2s.vbs")
ResetB2SData 0,49,0 'Initialise the b2s data area

'***********************************************************************
' Choose where to display the THING lights
SetB2SData 0,0 ' *THING* lights in the DMD panel
'SetB2SData 0,1 ' *THING* lights on the backglass

LaunchBackGlass "TheAddamsFamily_FS_B2S", true 'True=Launch bg , False=Don't launch bg.
'***********************************************************************

Set GICallback2 = GetRef("UpdateGI2")

Sub UpdateGI2(nr, status)
Select Case nr
Case 0
Select Case status
Case 0,1,2,3,4
setlamp 100,0 for each obj in bombillasIz:obj.state=0:next
Case 5,6,7,8
setlamp 100,1

for each obj in bombillasIz:obj.state=1:next
End Select
Case 4
Select Case status
Case 0,1,2,3,4
setlamp 101,0

for each obj in bombillasDer:obj.state=0:next
Case 5,6,7,8
setlamp 101,1

for each obj in bombillasDer:obj.state=1:next
End Select
End Select
End Sub

Sub SendLights()
Select Case LampState(117)

Case 4:SetB2SData 1, 0

Case 5:SetB2SData 1, 1

End Select
Select Case LampState(118)

Case 4:SetB2SData 2, 0

Case 5:SetB2SData 2, 1

End Select
Select Case LampState(119)

Case 4:SetB2SData 3, 0 Case 5:SetB2SData 3, 1 End Select
Select Case LampState(120)

Case 4:SetB2SData 4, 0 Case 5:SetB2SData 4, 1 End Select
Select Case LampState(121)


Case 4:SetB2SData 5, 0 Case 5:SetB2SData 5, 1 End Select
Select Case LampState(122)

Case 4:SetB2SData 6, 0 Case 5:SetB2SData 6, 1

End Select

Select Case LampState(81)

Case 4:SetB2SData 7, 0 Case 5:SetB2SData 7, 1

End Select
Select Case LampState(82) Case 4:SetB2SData 8, 0 Case 5:SetB2SData 8, 1

End Select
Select Case LampState(83) Case 4:SetB2SData 9, 0 Case 5:SetB2SData 9, 1 End Select
Select Case LampState(84)

Case 4:SetB2SData 10, 0 Case 5:SetB2SData 10, 1

End Select
Select Case LampState(85)

Case 4:SetB2SData 11, 0

Case 5:SetB2SData 11, 1

End Select
Select Case LampState(86) Case 4:SetB2SData 12, 0

Case 5:SetB2SData 12, 1

End Select
Select Case LampState(87)

Case 4:SetB2SData 13, 0

Case 5:SetB2SData 13, 1

End Select
End Sub

'****************************************************************************
*******************
'***************************************** B2S ************************************************
'****************************************************************************
*******************

Can you help me?

[gStAv]

Hi'ya Frans!

You have to check so you have the ' in front of the ********* lines

when you copy it in it seems here that you missing this in on line in the top, and one in the bottom of the script

ex.

'****************************************************************************
*******************
'***************************************** B2S ************************************************
'****************************************************************************
*******************

cheers!

[koadic]

that just comes from pasting it here, due to the word wrap...

[frans]

yes, i have the ' in the front of lines, my problem is another....

[frans]

I copy exactly the script to the TAF_FS_B2S_DIY folowing the instructions by rosve, I'm noob. have how more simple explanation this?

Can me help? Please. I love the TAF.

[rosve]

I think the best is to start all over again, there are several code lines missing in your script.

[frans]

Ok rosve, i downloaded again and i will try, thanks.

[Arcade4]

Line 1411 error, why? Tks.

line 1411 error: setlamp 100,0 for each obj in bombillasIz:obj.state=0:next
Can me help? tks.

Something went wrong when you pasted the script,
That should be two lines,

setlamp 100,0
for each obj in bombillasIz:obj.state=0:next

I'm getting an error from the .NET Framework when I run this, is it just me? If I hit continue it seems to work fine from what I can see, but I'd like to figure out if I did something wrong.

Microsoft .NET Framework

Unhandled exception has occurred in your application. If you click Continue, the application will ignore the error and attempt to continue. If you click Quit, the application will close immediately.

Length of argument "String" must be greater than zero.

Try moving this line:
ResetB2SData 0,49,0 'Initialise the b2s data area

up to the top of the script right after "ExecuteGlobal GetTextFile("b2s.vbs")"

Thanks. I will try moving that line up to the top and see if it helps.
It will take awhile to find out because it does not give me the "String must be greater than zero" error very often.

[jhoff80]

I'm getting an error from the .NET Framework when I run this, is it just me? If I hit continue it seems to work fine from what I can see, but I'd like to figure out if I did something wrong.

Microsoft .NET Framework

Unhandled exception has occurred in your application. If you click Continue, the application will ignore the error and attempt to continue. If you click Quit, the application will close immediately.

Length of argument "String" must be greater than zero.

Try moving this line:
ResetB2SData 0,49,0 'Initialise the b2s data area

up to the top of the script right after "ExecuteGlobal GetTextFile("b2s.vbs")"

I had the error the first three times I tried the table.

After making the change, I was able to open it three times in a row with no error, so it appears that fixed it for me, thanks.

[frans]

No way to works!!!! I´m noob too.