Contest Winner

[FreeThinker]

Well done to Apex,
I was hoping that David L Jones would come out..... that would of been a real hoot

[dengorius]

Gratz Apex.

I want to see the source code of the wobulator, I'm curious

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

Cheers

[migsantiago]

Why did Dave call it the wobulator?

I see no relation between that and this:
http://en.wikipedia.org/wiki/Wobulator

[DJPhil]

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.

[EEVblog]

Well done to Apex,
I was hoping that David L Jones would come out..... that would of been a real hoot

That's possible, I didn't code out the first entry!

Dave.

[EEVblog]

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

Good idea, I like it!

Dave.

[EEVblog]

I want to see the source code of the wobulator, I'm curious

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, = "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

[dengorius]

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

[caroper]

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

[T4P]

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 !

[dengorius]

Ahhaha, yes of course is rigged!! I was playing with butterflies and cosmic rays (xkcd docet, http://xkcd.com/378/ ) to flip bits on Dave's ram during his random shit calculations


Thanks everybody and thanks Dave

Cheers

[ivan747]

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!

[johnnyfp]

How about i print 555 on a pic10. Does that count 

A most convincing cheat circuit competition thats what we need.

[SeanB]

OHL has that covered way too well............