EEVblog Electronics Community Forum
General => Contests & Events => Topic started by: FreeThinker on November 27, 2010, 04:29:42 pm
-
Well done to Apex,
I was hoping that David L Jones would come out..... that would of been a real hoot ;D ;D
-
Gratz Apex.
I want to see the source code of the wobulator, I'm curious :D
And next time I wanna see something electronics related instead of the dice. I don't know like the least digit of the resistance of a resistor drawn at random from a box :P
Cheers
-
Why did Dave call it the wobulator?
I see no relation between that and this:
http://en.wikipedia.org/wiki/Wobulator (http://en.wikipedia.org/wiki/Wobulator)
-
I thought he said 'wombulator', and I recognized it a generic 'doohickey' sort of term. I've heard it used in the context of an imaginary device, the sort that the new guy gets sent looking for (like left handed screwdriver or brick stretcher, et. al.).
Also, congratulations Apex. :)
-
Well done to Apex,
I was hoping that David L Jones would come out..... that would of been a real hoot ;D ;D
That's possible, I didn't code out the first entry!
Dave.
-
And next time I wanna see something electronics related instead of the dice. I don't know like the least digit of the resistance of a resistor drawn at random from a box :P
Good idea, I like it!
Dave.
-
I want to see the source code of the wobulator, I'm curious :D
It ain't that exciting I'm afraid:
Module Module1
Sub Main()
Dim label As String = " The EEVblog Contest Wobulator "
Dim TextLine As String
Dim name As String
Dim Asterix As Integer
Dim Counter As Integer
Dim Counter2 As Integer
Dim NameArray(10000) As String
Dim NameArray2(10000) As String
Dim c As Integer
Dim d As Integer
Dim tempstring As String
Dim duplicate As Boolean
Dim DuplicateCount As Integer
Dim Random As Integer
If Command$() = "" Then
MsgBox("No filename specified")
End
End If
FileOpen(1, Command$, OpenMode.Input)
Counter = 0
Do While Not EOF(1)
TextLine = LineInput(1)
If Left$(TextLine, 8) = "Post by:" Then 'look only for lines with usernames
'filter name from text line
name = Mid$(TextLine, 11)
Asterix = name.IndexOf("*")
name = Left$(name, Asterix)
NameArray(Counter) = name
Counter = Counter + 1
End If
Loop
FileClose(1)
MsgBox(Str$(Counter) + " names found.", 0, label)
Counter2 = 0
DuplicateCount = 0
For c = 0 To Counter - 1
duplicate = False
tempstring = NameArray(c)
For d = c + 1 To Counter - 1
If NameArray(d) = tempstring Then
duplicate = True
DuplicateCount = DuplicateCount + 1
End If
Next
If duplicate = False Then
NameArray2(Counter2) = tempstring
Counter2 = Counter2 + 1
End If
Next
MsgBox("Found " + Str$(DuplicateCount) + " duplicate names. We now have " + Str$(Counter2) + " names.", 0, label)
MsgBox("Now doing random shit to calculate the winner...", 0, label)
Randomize()
Random = Int(Rnd() * Counter2)
MsgBox("And the winner is... " + NameArray2(Random), 0, label)
End Sub
End Module
-
Cheers mate, like I said I was just curious. You can tell a few things from how people write code ;)
More than anything I wanted to see what language you used.
Glad you liked the resistor idea :)
-
Cheers mate, like I said I was just curious. You can tell a few things from how people write code ;)
More than anything I wanted to see what language you used.
Glad you liked the resistor idea :)
It's rigged I tell you, rigged, dengorius suggested the the Idea of the last digit and saw the code :)
Seriously thought, Congratulations Mate.
Cheers
Chris
-
Cheers mate, like I said I was just curious. You can tell a few things from how people write code ;)
More than anything I wanted to see what language you used.
Glad you liked the resistor idea :)
Mate, well done !
You suggested it and scored it in the process, hope you love the meter !
-
Ahhaha, yes of course is rigged!! I was playing with butterflies and cosmic rays (xkcd docet, http://xkcd.com/378/ (http://xkcd.com/378/) ) to flip bits on Dave's ram during his random shit calculations :D
Thanks everybody and thanks Dave :)
Cheers
-
Make a circuit with a 555 and a decade counter as an electronic die. :)
And don't stick a bloody micro controller into the circuit even if it is $0.50 PIC10F!
-
How about i print 555 on a pic10. Does that count :P
A most convincing cheat circuit competition thats what we need.
-
OHL has that covered way too well............