---
title: Backwall Runs
slug: backwall-runs
description: Learn how to control the functionality of backwall lamps using VB programming language with this in-depth example. Explore subroutines for enabling and disabling various types of flashing lights, along with a timer-based loop to effortlessly manage the se
createdAt: 2021-01-16T16:57:25.000Z
---

this is a very basic example



```vb

	'****************************
	' Backwall Lamps
	'****************************
	'backlamp "run"
	sub backlamp(x)
		if WeakComputer = false then
			if x = "run" Then
				backwallrun.enabled=1
			end If
			if x = "flash" Then
				backwallflash.enabled=1
			end If
		end if
	end Sub



	sub flash1_hit 
		strip1.visible = 1

		vpmtimer.addtimer 200, "f1off '"
	End Sub
	sub f1off
		strip1.visible = 0

	end Sub

	sub flash001_hit
		flash1_hit
	end Sub

	sub flash2_hit 
		strip3.visible = 1


		vpmtimer.addtimer 200, "f2off '"
	End Sub
	sub f2off
		strip3.visible = 0
	end Sub

	sub flash002_hit
		flash2_hit
	end Sub

	sub flash3_hit 
		strip5.visible = 1

		vpmtimer.addtimer 200, "f3off '"

	End Sub
	sub f3off
		Strip5.visible = 0

	end Sub

	sub flash4_hit 
		Strip7.visible = 1

		vpmtimer.addtimer 200, "f4off '"
	End Sub
	sub f4off
		Strip7.visible = 0
	end Sub

	sub flash003_hit
		flash4_hit
	end Sub

	sub flash5_hit 
		strip9.visible = 1

		vpmtimer.addtimer 200, "f5off '"
	End Sub
	sub f5off
		strip9.visible = 0
	end Sub

	sub bwallon
		strip1.visible = 1

		Strip3.visible = 1

		Strip5.visible = 1
		Strip7.visible = 1
		Strip9.visible = 1
	end Sub

	sub bwalloff
		strip1.visible = 0

		Strip3.visible = 0

		Strip5.visible = 0
		Strip7.visible = 0
		Strip9.visible = 0
	end sub

	dim bwflash:bwflash=0
	sub backwallflash_timer
		bwflash=bwflash+1
		select case bwflash
			case 1:bwallon
			case 3:bwalloff
			case 5:bwallon
			case 7:bwalloff
			case 9:bwallon
			case 11:bwalloff
			case 13:bwallon
			case 15:bwalloff
			case 17:bwallon
			case 19:bwalloff
			case 21:bwallon
			case 23:bwalloff:backwallflash.enabled=0:bwflash=0
		end Select
	end Sub


	dim bwrun:bwrun=0
	sub backwallrun_timer
		bwrun=bwrun+1
		select case bwrun
			case 1:flash1_hit 
			case 2:flash2_hit 
			case 3:flash3_hit 
			case 4:flash4_hit 
			case 5:flash5_hit 
			case 6:flash1_hit 
			case 7:flash2_hit 
			case 8:flash3_hit 
			case 9:flash4_hit 
			case 10:flash5_hit 
			case 13:bwallon
			case 15:bwalloff
			case 17:bwallon
			case 19:bwalloff
			case 21:bwallon
			case 23:bwalloff:backwallrun.enabled=0:bwrun=0
		end Select
	end Sub


```