The Town of Animemusicvideos.org

[Jace Tsunami]

very cool Kamoc, but I definetly think you should throw back in mayor phade.

[kthulhu]

That was good shit.

[Ashton]

Im not sure how this works, but here is my 1.2 cents:

[EarthCurrent]

I have fianlly decided something about all of you...but I haven't figured out what it is yet.....

[EarthCurrent]

And RadicalEd with a goatee and mustache...

[RadicalEd0]

HE SPELLED MY NAME WRONG
I dont have a goatee :\

[RadicalEd0]

I'm in visual basic class before lunch like omg yAy
wanna see what we're doing

Option Explicit

Private Sub txtName_Keypress(KeyAscii As Integer)
'splits name and displays in a label

Dim strName As String
Dim strFirst As String
Dim strLast As String
Dim strFirst2 As String
Dim strLast2 As String
Dim strReSort As String
Dim j As Integer

Select Case KeyAscii
Case 13
strName = Trim(txtName.Text)

For j = 1 To 22
If Mid(strName, j, 1) = " " Then
strFirst = Left(strName, (j - 1))
strFirst2 = UCase(Left(strFirst, 1)) & LCase(Right(strFirst, Len(strFirst) - 1))
strLast = Right(strName, Len(strName) - j)
strLast2 = UCase(Left(strLast, 1)) & LCase(Right(strLast, Len(strLast) - 1))
strReSort = strLast2 & ", " & strFirst2
End If
Next j

lblName.Caption = strReSort

cmdClear.SetFocus
End Select

End Sub


Private Sub cmdClear_Click()
'clears textbox and label

txtName.Text = ""
lblName.Caption = ""

txtName.SetFocus
End Sub

Private Sub cmdExit_Click()
'ends program

Unload frmMain
End

End Sub

the end

[SSJVegita0609]

Wow Ed... That certainly is interesting...

[klinky]

I'm in visual basic class before lunch like omg yAy
wanna see what we're doing

Code: Select all

Option Explicit

Private Sub txtName_Keypress(KeyAscii As Integer)
    'splits name and displays in a label
    
    Dim strName As String
    Dim strFirst As String
    Dim strLast As String
    Dim strFirst2 As String
    Dim strLast2 As String
    Dim strReSort As String
    Dim j As Integer
    
    Select Case KeyAscii
        Case 13
        strName = Trim(txtName.Text)
    
        For j = 1 To 22
            If Mid(strName, j, 1) = " " Then
                strFirst = Left(strName, (j - 1))
                strFirst2 = UCase(Left(strFirst, 1)) & LCase(Right(strFirst, Len(strFirst) - 1))
                strLast = Right(strName, Len(strName) - j)
                strLast2 = UCase(Left(strLast, 1)) & LCase(Right(strLast, Len(strLast) - 1))
                strReSort = strLast2 & ", " & strFirst2
            End If
        Next j
    
        lblName.Caption = strReSort
        
        cmdClear.SetFocus
    End Select

End Sub


Private Sub cmdClear_Click()
    'clears textbox and label
    
    txtName.Text = ""
    lblName.Caption = ""
    
    txtName.SetFocus
End Sub

Private Sub cmdExit_Click()
    'ends program
    
    Unload frmMain
    End

End Sub

the end

There is a

Code: Select all

 bbcode :}

Also your l33t program takes a single string from a text box, splits it to a first and last, adds a capital letter to the first character of each and then ouputs to a label caption with the last name in front of the first name.


Of course the comment at the time says that already :O But whatever.. I didn't see it until reviewing AFTER reviewing the code.

:}

~klinky

[klinky]

I am going to bed :O

That last post almost made no sense...


Tonight I tried programming a SOCKS4 Proxy, but it wasn't as easy as I thought it would be. It LOOKED EASY, but it wasn't THAT easy... Anyways. Another night wasted to a crappy TCP program that doesn't work. I need to move from the MS Winsock Control to the Winsock API :... O. I don't like working with the API tho.. It's all messy looking.


~klinky