Show Posts

126

Anarchy / Celebrate good times

« on: May 09, 2009, 05:48:02 PM »

Come on!

I just passed SOA Exam FM/2

I now have 2 of the 5 preliminary Actuarial exams passed. Now onto either MLC or MFE...

127

Entertainment / I am amused

« on: April 16, 2009, 12:46:07 AM »

http://www.youtube.com/v/XxScTbIUvoA

128

Hardware, Software, and Other Imperialist Crap / Re: My first Visual Basic 2008 Program

« on: April 13, 2009, 11:55:27 PM »

Quote from: xolik on April 13, 2009, 05:49:53 PM

Keylogger ITT

SHHHH!

129

Hardware, Software, and Other Imperialist Crap / Re: My first Visual Basic 2008 Program

« on: April 11, 2009, 04:16:04 AM »

Rapid share link
http://rapidshare.com/files/219993138/10key.exe.html

And also source:

Code: [Select]

Public Class Form1
    Dim cnt As Integer
    Dim num As Stack(Of Integer)
    Dim clock As Double
    Dim ks As Integer
    Dim err As Integer
    Dim avg As Long
    Dim wins As Integer
    Dim fail As Boolean

    Private Sub Form1_HelpButtonClicked(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles Me.HelpButtonClicked
        MsgBox("This 10key practice program was written by" & Chr(10) & "Jeffrey Wong" & Chr(10) & "Copyright 2009" & Chr(10) & Chr(10) & "Just use the numpad to type the number displayed." & Chr(10) & "No backspacing supported in this version, sorry.", MsgBoxStyle.OkOnly)
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = False
        newgame()
    End Sub
    Private Sub newgame()
        Label5.Text = "Press 's' to stop"
        Label4.Text = "You may begin when ready."
        Label2.Text = "KSPH:"
        Label3.Text = "Accuracy:"
        wins = 0
        fail = False
        clock = 0
        cnt = 1
        Label1.Text = 0
        num = New Stack(Of Integer)
        num.Push(0)
    End Sub
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Select Case e.KeyCode
            Case Keys.NumPad0
                numpress(0)
            Case Keys.NumPad1
                numpress(1)
            Case Keys.NumPad2
                numpress(2)
            Case Keys.NumPad3
                numpress(3)
            Case Keys.NumPad4
                numpress(4)
            Case Keys.NumPad5
                numpress(5)
            Case Keys.NumPad6
                numpress(6)
            Case Keys.NumPad7
                numpress(7)
            Case Keys.NumPad8
                numpress(8)
            Case Keys.NumPad9
                numpress(9)
            Case Keys.S
                If Timer1.Enabled Then
                    Timer1.Enabled = False
                    calc()
                End If
            Case Keys.R
                If Not Timer1.Enabled Then
                    newgame()
                End If
        End Select
    End Sub
    Private Sub numpress(ByVal a)
        If Not Timer1.Enabled Then
            Timer1.Enabled = True
            Label4.Text = ""
        End If
        ks += 1
        Label4.Text = Label4.Text & a
        If Not num.Count = 0 And Not a = num.Pop() Then
            err += 1
            fail = True
        End If
        If num.Count = 0 Then
            Label4.Text = ""
            If fail And Not cnt = 1 Then
                cnt -= 1
                wins = 0
                fail = False
            End If
            If Not fail Then
                wins += 1
                If wins = 10 Then
                    Timer1.Enabled = False
                    calc()
                    MsgBox("You Win!", MsgBoxStyle.OkOnly)
                    Exit Sub
                End If
                If Not cnt = 10 And cnt = wins Then
                    cnt += 1
                    wins = 0
                End If
            End If
            newnum(cnt)
        End If
    End Sub
    Private Sub newnum(ByVal c)
        Dim rand As Random = New Random
        For i As Integer = 1 To c Step 1
            num.Push(rand.Next(0, 10))
        Next i
        Dim number As String
        Dim copy As Stack(Of Integer) = New Stack(Of Integer)
        Dim a As Integer
        For i As Integer = 1 To num.Count Step 1
            a = num.Pop()
            copy.Push(a)
            number = number & a
        Next i
        For i As Integer = 1 To copy.Count Step 1
            num.Push(copy.Pop)
        Next i
        Label1.Text = number
    End Sub
    Private Sub calc()
        Dim ksph As Double = (ks / (clock / (10 * 60 * 60)))
        Label2.Text = "KSPH: " & System.Math.Round(ksph, 3)
        Dim acc As Double = 100 * ((ks - err) / ks)
        Label3.Text = "Accuracy:  " & System.Math.Round(acc, 3) & "%"
        ks = 1
        err = 0
        avg = 0
        clock = 0
        Label5.Text = "Press 'r' to restart"
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        clock = clock + 1
    End Sub
End Class

130

Hardware, Software, and Other Imperialist Crap / My first Visual Basic 2008 Program

« on: April 11, 2009, 03:59:40 AM »

Just finished the first release of my very first functioning program written in Visual Basic!

It's a program that lets you practice and evaluate your proficiency with the 10 key.

I know, it has a lot of room for improvement.

It won't let me upload a .exe file, so I changed the extension to jpg.

save as and then rename it (if you trust it's not a virus, which it's not.)

131

Entertainment / What headphones should I buy?

« on: March 10, 2009, 11:51:38 PM »

I'm decision challenged.

Which set of headphones should I get and why?

I listen mostly to rock and classical.

132

Entertainment / You have been recruited...

« on: February 01, 2009, 01:33:01 AM »

by the Star League to defend the frontier against Xur, and the Kodan Armada.

http://www.roguesynapse.com/games/last_starfighter.php

'5' key inserts coin. Arrow keys and mouse to control

133

Anarchy / Re: A berry, berry serious issue.

« on: January 30, 2009, 03:33:59 PM »

Ties will be decided alphabetically, or by cage match.

134

Anarchy / A berry, berry serious issue.

« on: January 30, 2009, 01:50:32 AM »

You may choose up to three favorites.

But in the end, only one fruit can reign as supreme berry of the Geek Forum.

135

Sticky Stuff (no pun intended) / Re: IBTNP

« on: December 29, 2008, 05:31:20 PM »

False.

IBTNP keeps their loose change in a jar.

136

Anarchy / Merry Christmas!

« on: December 25, 2008, 03:27:43 AM »

Unless your name is Bill O'reilly, in which case I say, "Happy Holidays."

Hope everyone has a great time and ends up with lots of swag, and grog!

137

Sticky Stuff (no pun intended) / Re: IBTNP

« on: December 22, 2008, 01:15:17 AM »

True... I think. Don't really remember.

IBTNP loves Shaun of the Dead

138

Anarchy / Re: It's Been Awhile

« on: December 20, 2008, 04:08:31 PM »

Quote from: bananaskittles on December 18, 2008, 07:57:18 PM

I go wherever. In a bush. In a bottle. On a squirrel...

You don't go on the squirrel! How are you to use it for toilet paper afterward if it's already soiled!?

139

Sticky Stuff (no pun intended) / Re: IBTNP

« on: December 20, 2008, 04:00:20 PM »

True, sometimes. Though the cookies I make most often from scratch do not require baking.

IBTNP thinks Baldur's Gate 1 and 2 were the greatest RPG ever.

140

Sticky Stuff (no pun intended) / Re: IBTNP

« on: December 19, 2008, 08:05:58 PM »

True, and I really hope there's a DVD of Avenue Q available some day.

IBTNP is a pyromaniac.

141

Sticky Stuff (no pun intended) / Re: IBTNP

« on: December 19, 2008, 07:28:11 PM »

False

IBTNP has written fanfiction

142

Sticky Stuff (no pun intended) / Re: IBTNP

« on: December 18, 2008, 05:07:42 PM »

False, but The Shadow knows.

IBTNP prefers blue post-it notes to the other colors.

143

Anarchy / Re: It's Been Awhile

« on: December 17, 2008, 01:43:14 AM »

This poll confuses me on several points.

1. Where is the option "whichever one appears cleanest"

and

2. Does the "Depends" option mean it depends on the situation, or that you use Depends^tm and thus do not require the use of a stall?

144

Hardware, Software, and Other Imperialist Crap / Re: EM PEE THREE PLAYER

« on: December 17, 2008, 01:37:26 AM »

So are you ever going to share this miraculous prototype technology? Or are you just going to sit on it because of pressure from big lithium?

It's people like you who are the reason we don't have cars running on water and perpetual motion machines powering our homes!

145

Entertainment / Re: New audio server is here!

« on: December 17, 2008, 01:33:32 AM »

Actually, all you'd have to do is make several chocolate cookies in the same phallic shape, and then cement them together with icing.

Only problem with that is that when it came time to eat the cookie you'd get the white, creamy icing all over your face, hands, etc.

Unfortunately, There's absolutely no way to make a joke from that situation. So it'd hardly be worth the effort.

146