Jump to content

Mark Ritter

Members
  • Content Count

    137
  • Joined

  • Last visited

Posts posted by Mark Ritter

  1. [ATTACH=CONFIG]40035[/ATTACH]

    Here is a copy of my files

    Here is the info for alllightsoncode

    dim i as integer

    print("all lights on\r")

    light.setonlevel(255)

    light.setoneffect(aleffectramp)

    'turn on master dimmer for DMX fixtures

    light.setrate(alrateramp,3000)

    light.setrate(alratefade,3000)

    for i=0 to 47

    light.on(i)

    next i

    'delay for 20 minutes

    for i=1 to 91

    delay_seconds(60)

    next i

    for i=0 to 47

    light.off(i)

    next i

    delay_seconds(3)

    post-876-129571257189_thumb.gif

  2. HELP

    Here is what I am trying to do.

    Show A - I want to play a music file, but keep the lights on steady from 4:30 - 6:00 p.m.

    Show B - Start the Animated Music from 6:00 to 9:30 p.m.

    Show C - All lights on, but no music or animation

    When I get to Show B the music plays but the lights just go dark.

    Here is my Start up file

    dim i as integer

    ' =================================================================

    ' ===== Init Device Ranges =====

    ' =================================================================

    System.SetRange(0, 0, 0, 0, 16)

    System.SetRange(1, 0, 0, 0, 16)

    System.SetRange(2, 0, 0, 0, 16)

    System.SetRange(3, 0, 0, 0, 16)

    System.SetRange(4, 0, 0, 0, 16)

    System.SetRange(5, 0, 0, 0, 16)

    System.SetRange(6, 0, 0, 0, 16)

    System.SetRange(7, 0, 0, 16, 16)

    System.SetRange(8, 0, 0, 16, 16)

    System.SetRange(9, 0, 0, 16, 16)

    System.SetRange(10, 0, 8, 0, 8)

    System.SetRange(13, 0, 0, 32, 16)

    System.SetRange(14, 0, 0, 32, 16)

    System.SetRange(15, 0, 0, 32, 16)

    System.SetRange(20, 0, 0, 320, 16)

    System.SetRange(21, 0, 0, 336, 16)

    ' =================================================================

    ' ===== Init Groups =====

    ' =================================================================

    ' =================================================================

    ' ===== Loop Forever =====

    ' =================================================================

    Infinite

    Triggers:

    ' =================================================================

    ' ===== Trigger Input Conditions =====

    ' =================================================================

    Do While (1)

    Dim TheTime As Integer

    Dim TheMinute as Integer

    TheTime = ((Hour() * 100) + Minute())

    TheMinute = (Minute())

    If ((TheTime >= 1630) And (TheTime <= 1800)) Then

    Goto ShowA

    elseIf ((TheTime >= 1800) And (TheTime <= 2130)) Then

    'all lights on

    Goto ShowB

    elseIf ((TheTime >= 2130) And (TheTime <= 2300)) Then

    'all lights on

    Goto ShowC

    else

    print("All lights off at ",hour(),":",minute(),":",second(),"\r")

    light.setonlevel(255)

    light.setoneffect(aleffectramp)

    light.setrate(alrateramp,3000)

    light.setrate(alratefade,3000)

    for i=0 to 47

    light.off(i)

    next i

    delay_seconds(10)

    End If

    Loop

  3. Can I still come. just found out about it yesterday. Also I have some extra blowmolds that I want to sell. Anyone interested in them let me know and I will load up the van and bring them down. About 15 different types of santa's.

    Mark

  4. Don't tell the other blow mold collectors on here, but I drill 2 holes in the bottom and put in 12 inch spikes into the ground. They don't move and no one can slide them up off of the rebar like they did the one year I had them tied down with rebar.

  5. I see a nice display but I dont see a yard?? LOL

    Jim

    Please don't let my wife here you say that. She is already telling me that I have to much stuff in the yard. I keep telling that you can't have bare spots or the grass will grow to long and we don't want our grass to look like no one is cutting it.

    So put more decorations out to keep the grass down.

    LOL

    And no, she doesn't really buy that excuse or any of the other ones that I tell her when a new box shows up at our door. Thank goodness she love me alot or I would be dead for sure.

    Mark

  6. Mark

    Didn't realize it was you. Send me your address in a pm I have some extra Steeler stickers just in case you may ever need them I'll mail them to you. Glad you like him. Enjoy and oh by the way GO STEELERS!!!!!

    Sent PM

    Yes go Steelers

    I think we need 7 Super Bowls

    Mark

×
×
  • Create New...