You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » Lounge » How Many Members
Register User       Forum List       Calendar       FAQ
Page 1 of 3 123>
Topic Options
#178023 - 2007-07-17 10:46 PM How Many Members
NTDOC Administrator Offline
Administrator
*****

Registered: 2000-07-28
Posts: 11624
Loc: CA
"How many forum members does it take to change a lightbulb?

1 to change the light bulb and 1 to post that the light bulb has been changed

14 to share similar experiences of changing light bulbs and how the light bulb could have been changed differently

7 to caution about the dangers of changing light bulbs

27 to point out spelling/grammar errors in posts about changing light bulbs

53 to flame the spell checkers

41 to correct spelling/grammar flames

6 to argue over whether it's "lightbulb" or "light bulb"

... another 6 to condemn those 6 as anal-retentive

2 industry professionals to inform the group that the proper term is "lamp"

15 know-it-alls who claim they were in the industry, and that "light bulb"is perfectly correct

156 to email the participant's ISPs complaining that they are in violation of their "acceptable use policy"

109 to post that this forum is not about light bulbs and to please take this discussion to a lightbulb forum

203 to demand that cross posting to hardware forum, off-topic forum, and lightbulb forum about changing light bulbs be stopped

111 to defend the posting to this forum saying that we all use light bulbs and therefore the posts are relevant to this forum

306 to debate which method of changing light bulbs is superior, where to buy the best light bulbs, what brand of light bulbs work best for this technique and what brands are faulty

27 to post URL's where one can see examples of different light bulbs

14 to post that the URL's were posted incorrectly and then post the corrected URL's

3 to post about links they found from the URL's that are relevant to this group which makes light bulbs relevant to this group

33 to link all posts to date, quote them in their entirety including all headers and signatures, and add "Me too"

12 to post to the group that they will no longer post because they cannot handle the light bulb controversy

19 to quote the "Me too's" to say "Me three"

4 to suggest that posters request the light bulb FAQ

44 to ask what is a "FAQ"

4 to say "didn't we go through this already a short time ago?"

143 to say "do a Google search on light bulbs before posting questions about light bulbs"

1 new forum member to respond to the original post 6 months from now and start it all over again."





[taken from a post on UBB]
Top
#178024 - 2007-07-17 11:45 PM Re: How Many Members [Re: NTDOC]
StarwarsKid Offline
Seasoned Scripter
*****

Registered: 2005-06-15
Posts: 506
Loc: Oregon, USA
That sounds waaaaaaay too familiar. (gives me the shivers)
_________________________
let the wise listen and add to their learning,
and let the discerning get guidance- Proverbs 1:5

Top
#178029 - 2007-07-18 12:28 AM Re: How Many Members [Re: StarwarsKid]
Glenn Barnas Administrator Offline
KiX Supporter
*****

Registered: 2003-01-28
Posts: 4396
Loc: New Jersey
Thank god I have a Kix script to silently change the lamps...

And no, it doesn't auto-post to KORG! ;\)

G-
_________________________
Actually I am a Rocket Scientist! \:D

Top
#178031 - 2007-07-18 01:12 AM Re: How Many Members [Re: Glenn Barnas]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
hmm...
a script to change a lamb.
that's interesting.
_________________________
!

download KiXnet

Top
#178033 - 2007-07-18 02:15 AM Re: How Many Members [Re: Lonkero]
Glenn Barnas Administrator Offline
KiX Supporter
*****

Registered: 2003-01-28
Posts: 4396
Loc: New Jersey
Lam"B"???

I think lambs and sheep are Shawn's domain... \:o

G-
_________________________
Actually I am a Rocket Scientist! \:D

Top
#178035 - 2007-07-18 04:01 AM Re: How Many Members [Re: Glenn Barnas]
Shawn Administrator Offline
Administrator
*****

Registered: 1999-08-13
Posts: 8611
Sheep ? someone see Sheep ?
Top
#178036 - 2007-07-18 08:27 AM Re: How Many Members [Re: Shawn]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
I KNEW this would happen \:D

I love you guys!
_________________________
!

download KiXnet

Top
#178037 - 2007-07-18 08:32 AM Re: How Many Members [Re: Shawn]
Arend_ Moderator Offline
MM club member
*****

Registered: 2005-01-17
Posts: 1895
Loc: Hilversum, The Netherlands
Silence of the lamps \:\)
Top
#178038 - 2007-07-18 09:35 AM Re: How Many Members [Re: Shawn]
Jochen Administrator Offline
KiX Supporter
*****

Registered: 2000-03-17
Posts: 6380
Loc: Stuttgart, Germany
*Baaaaaah*
_________________________



Top
#178043 - 2007-07-18 01:56 PM Re: How Many Members [Re: Jochen]
Glenn Barnas Administrator Offline
KiX Supporter
*****

Registered: 2003-01-28
Posts: 4396
Loc: New Jersey
I said "lamP"! I swear!! lamp.kix!

G-

Hmmm..
baaa.kix? Call the sheep via the fnBAA() UDF
BoPeep.kix?? Herd the sheep via Main:BoPeep and the secondary Crook() and Staff()UDFs
ShawnZZZ.kxf Shawn's KixForms implementation of a scripted sheep counter
_________________________
Actually I am a Rocket Scientist! \:D

Top
#178044 - 2007-07-18 02:15 PM Re: How Many Members [Re: Glenn Barnas]
Mart Moderator Offline
KiX Supporter
*****

Registered: 2002-03-27
Posts: 4673
Loc: The Netherlands
How about calling doggy.kix when they don't listen? or maybe just make kebab.kix
_________________________
Mart

- Chuck Norris once sold ebay to ebay on ebay.

Top
#178045 - 2007-07-18 03:10 PM Re: How Many Members [Re: Mart]
Richard H. Administrator Offline
Administrator
*****

Registered: 2000-01-24
Posts: 4946
Loc: Leatherhead, Surrey, UK
This is the script that I used to use when I had failed lightbulb issues.

Feel free to update and post as a UDF if you think it would be generally useful.

 Code:
Break ON
$=SetOption("Explicit","ON")
 
; ChangeLamp.kix
;	Automated lightbulb changer
 
Dim $sLampRef, $oLamp, $oNewLamp, $oSwitch, $iLampState
 
"Please enter lightbulb maintenance reference: " GetS $sLampRef
 
$oLamp=GetObject("Lamp:/"+$sLampRef)
$oSwitch=GetObject("Switch:/"+$sLampRef)

$iLampState=$oLamp.Illuminated
$oSwitch.Toggle
$iLampState=$oLampState | $oLamp.Illuminated
$oSwitch.Toggle
 
If $iLampState 
	Select
	Case $oLamp.Type="Bayonet"
		$oLamp.Push
		$oLamp.Rotate(-90)
		$oLamp.Pull
		:GetNewLampBayonet
		$oNewLamp=CreateObject("Lamp.Bayonet")
		$oNewLamp.Push
		If $oNewLamp.IsHot
			$oSwitch.Toggle
			$=RunFingersUnderColdWater(@WKSTA)
			If $oNewLamp.Broken Goto "GetNewLampBayonet" EndIf
		EndIf
		$oLamp.Rotate(90)
	Case $oLamp.Type="Edison Screw"
		While Not $oLamp.Released
			$oLamp.Rotate(-180)
		Loop
		:GetNewLampScrew
		$oNewLamp=CreateObject("Lamp.Screw")
		While $oNewLamp.Loose
			$oNewLamp.Rotate(180)
			If $oNewLamp.IsHot
				$oSwitch.Toggle
				$=RunFingersUnderColdWater(@WKSTA)
				If $oNewLamp.Broken Goto "GetNewLampScrew" EndIf
			EndIf
		Loop
	EndSelect

	$iLampState=$oLamp.Illuminated
	$oSwitch.Toggle
	$iLampState=$oLampState | $oLamp.Illuminated
	$oSwitch.Toggle
	If $iLampState
		"Lamp successfully changed and tested"+@CRLF
	Else
		"Lamp still not working.  Please try running FixFuse.kix then retry ChangeLamp.kix"+@CRLF
	EndIf
Else
	"Lamp is OK, no need to change"+@CRLF
EndIf
Top
#178046 - 2007-07-18 03:18 PM Re: How Many Members [Re: Richard H.]
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
Now, I think all we are missing is to Golf that down
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#178047 - 2007-07-18 03:24 PM Re: How Many Members [Re: Benny69]
Mart Moderator Offline
KiX Supporter
*****

Registered: 2002-03-27
Posts: 4673
Loc: The Netherlands
LOL
_________________________
Mart

- Chuck Norris once sold ebay to ebay on ebay.

Top
#178048 - 2007-07-18 03:27 PM Re: How Many Members [Re: Mart]
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
here is a start:
 Code:
; ChangeLamp.kix
;	Automated lightbulb changer
 
Dim $R, $O, $N, $S, $I
 
"Please enter lightbulb maintenance reference: " Gets $R
 
$O=GetObject("Lamp:/"+$R)
$S=GetObject("Switch:/"+$R)

$I=$O.Illuminated
$S.Toggle
$I=$OState | $O.Illuminated
$S.Toggle
 
If $I 
	If $O.Type="Bayonet"
		$O.Push
		$O.Rotate(-90)
		$O.Pull
		:GetNewLampBayonet
		$N=CreateObject("Lamp.Bayonet")
		$N.Push
		If $N.IsHot
			$S.Toggle
			$=RunFingersUnderColdWater(@WKSTA)
			If $N.Broken Goto "GetNewLampBayonet" EndIf
		EndIf
		$O.Rotate(90)
	Else ;$O.Type="Edison Screw"
		While Not $O.Released
			$O.Rotate(-180)
		Loop
		:GetNewLampScrew
		$N=CreateObject("Lamp.Screw")
		While $N.Loose
			$N.Rotate(180)
			If $N.IsHot
				$S.Toggle
				$=RunFingersUnderColdWater(@WKSTA)
				If $N.Broken Goto "GetNewLampScrew" EndIf
			EndIf
		Loop
	EndIf

	$I=$O.Illuminated
	$S.Toggle
	$I=$OState | $O.Illuminated
	$S.Toggle
	If $I
		"Lamp successfully changed and tested"+@CRLF
	Else
		"Lamp still not working.  Please try running FixFuse.kix then retry ChangeLamp.kix"+@CRLF
	EndIf
Else
	"Lamp is OK, no need to change"+@CRLF
EndIf
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#178054 - 2007-07-18 08:30 PM Re: How Many Members [Re: Benny69]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
 Code:
; ChangeLamp.kix
;	Automated lightbulb changer
 
Dim $R, $O, $N, $S, $I
 
"Please enter lightbulb maintenance reference: " Gets $R
 
$O=GetObject("Lamp:/"+$R)
$S=GetObject("Switch:/"+$R)


$S.Toggle
$I=$OState | $O.Illuminated
$S.Toggle
 
If $I 
	If $O.Type="Bayonet"
		$O.Push
		$O.Rotate(-90)
		$O.Pull
		:GetNewLampBayonet
		$N=CreateObject("Lamp.Bayonet")
		$N.Push
		If $N.IsHot
			$S.Toggle
			$=RunFingersUnderColdWater(@WKSTA)
			If $N.Broken Goto "GetNewLampBayonet" EndIf
		EndIf
		$O.Rotate(90)
	Else ;$O.Type="Edison Screw"
		While Not $O.Released
			$O.Rotate(-180)
		Loop
		:GetNewLampScrew
		$N=CreateObject("Lamp.Screw")
		While $N.Loose
			$N.Rotate(180)
			If $N.IsHot
				$S.Toggle
				$=RunFingersUnderColdWater(@WKSTA)
				If $N.Broken Goto "GetNewLampScrew" EndIf
			EndIf
		Loop
	EndIf

	$S.Toggle
	$I=$OState | $O.Illuminated
	$S.Toggle
	If $I
		"Lamp successfully changed and tested"+@CRLF
	Else
		"Lamp still not working.  Please try running FixFuse.kix then retry ChangeLamp.kix"+@CRLF
	EndIf
Else
	"Lamp is OK, no need to change"+@CRLF
EndIf

bit shorter but none of them would work.
there is no such variable as $oState
_________________________
!

download KiXnet

Top
#178055 - 2007-07-18 08:53 PM Re: How Many Members [Re: Lonkero]
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
Doh!
5 less
 Code:
; ChangeLamp.kix
;	Automated lightbulb changer
 
Dim $R, $O, $N, $S, $I
 
"Please enter lightbulb maintenance reference: " Gets $R
 
$O=GetObject("Lamp:/"+$R)
$S=GetObject("Switch:/"+$R)


$S.Toggle
$I=$OState | $O.Illuminated
$S.Toggle
 
If $I 
	If $O.Type="Bayonet"
		$O.Push
		$O.Rotate(-90)
		$O.Pull
		:GetNewLampBayonet
		$N=CreateObject("Lamp.Bayonet")
		$N.Push
		If $N.IsHot
			$S.Toggle
			$=RunFingersUnderColdWater(@WKSTA)
			If $N.Broken Goto "GetNewLampBayonet" EndIf
		EndIf
		$O.Rotate(90)
	Else ;$O.Type="Edison Screw"
		While Not $O.Released
			$O.Rotate(-180)
		Loop
		:GetNewLampScrew
		$N=CreateObject("Lamp.Screw")
		While $N.Loose
			$N.Rotate(180)
			If $N.IsHot
				$S.Toggle
				$=RunFingersUnderColdWater(@WKSTA)
				If $N.Broken Goto "GetNewLampScrew" EndIf
			EndIf
		Loop
	EndIf

	$S.Toggle
	$I=$OState | $O.Illuminated
	$S.Toggle
	If $I
		"Lamp successfully changed and tested"+@CRLF
	Else
		"Lamp still not working.  Please try running FixFuse.kix then retry ChangeLamp.kix"+@CRLF
	EndIf
Else
	"Lamp is OK, no need to change"+@CRLF
;EndIf
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#178056 - 2007-07-18 09:31 PM Re: How Many Members [Re: Benny69]
Lonkero Administrator Offline
KiX Master Guru
*****

Registered: 2001-06-05
Posts: 22346
Loc: OK
ten out of yours.
 Code:
; ChangeLamp.kix
;	Automated lightbulb changer
 
Dim $R, $O, $N, $S, $I
 
"Please enter lightbulb maintenance reference: " Gets $R
 
$O=GetObject("Lamp:/"+$R)
$S=GetObject("Switch:/"+$R)


$S.Toggle
$I=$OState | $O.Illuminated
$S.Toggle
 
If $I 
	If $O.Type="Bayonet"
		$O.Push
		$O.Rotate(-90)
		$O.Pull
		:GetNewLampBayonet
		$N=CreateObject("Lamp.Bayonet")
		$N.Push
		If $N.IsHot
			$S.Toggle
			$=RunFingersUnderColdWater(@WKSTA)
			If $N.Broken Goto "GetNewLampBayonet" EndIf
		EndIf
		$O.Rotate(90)
	Else ;$O.Type="Edison Screw"
		do
			$O.Rotate(-180)
		until $O.Released
		:GetNewLampScrew
		$N=CreateObject("Lamp.Screw")
		While $N.Loose
			$N.Rotate(180)
			If $N.IsHot
				$S.Toggle
				$=RunFingersUnderColdWater(@WKSTA)
				If $N.Broken Goto "GetNewLampScrew" EndIf
			EndIf
		Loop
	EndIf

	$S.Toggle
	If $OState | $O.Illuminated
		"Lamp successfully changed and tested"+@CRLF
	Else
		"Lamp still not working.  Please try running FixFuse.kix then retry ChangeLamp.kix"+@CRLF
	EndIf
	$S.Toggle
Else
	"Lamp is OK, no need to change"+@CRLF
;EndIf


hmm...
I think richie only had a typo in his original code.
 Code:
$iLampState=$oLamp.Illuminated
$oSwitch.Toggle
$iLampState=$oLampState | $oLamp.Illuminated
$oSwitch.Toggle

should have been:
 Code:
$iLampState=$oLamp.Illuminated
$oSwitch.Toggle
$iLampState=$iLampState | $oLamp.Illuminated
$oSwitch.Toggle


and if so, that changes the golfing a lot.
_________________________
!

download KiXnet

Top
#178057 - 2007-07-18 09:36 PM Re: How Many Members [Re: Lonkero]
Benny69 Offline
Moderator
*****

Registered: 2003-10-29
Posts: 1036
Loc: Lincoln, Ne
Dang! I think your right Jooel, now i gota rework this.
_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)

Top
#178060 - 2007-07-18 11:38 PM Re: How Many Members [Re: Lonkero]
Richard H. Administrator Offline
Administrator
*****

Registered: 2000-01-24
Posts: 4946
Loc: Leatherhead, Surrey, UK
 Code:
I think richie only had a typo in his original code.


True, I didn't spot that one - that's what happens if you don't test properly.

There is also a logic error that I introduced to see if anyone was paying attention \:\/
Top
Page 1 of 3 123>


Moderator:  Arend_, Allen, Jochen, Radimus, Glenn Barnas, ShaneEP, Ruud van Velsen, Mart 
Hop to:
Shout Box

Who's Online
0 registered and 918 anonymous users online.
details
Newest Members
rrosell, PatrickPinto, Raoul, Timothy, Jojo67
17877 Registered Users
My Cookies · Mark all read Powered by UBB.threads™ Contact Us · KiXtart.org website · Top

Generated in 0.088 seconds in which 0.025 seconds were spent on a total of 13 queries. Zlib compression enabled.
Search the board with:
superb Board Search
or try with google:
Google
Web kixtart.org