|
-
Oct 27th, 2006, 03:08 AM
#81
Re: Paste what's in your clipboard
I made my own spell checker...
-
Oct 27th, 2006, 03:37 AM
#82
Re: Paste what's in your clipboard
-
Oct 27th, 2006, 03:49 AM
#83
Re: Paste what's in your clipboard
-
Oct 27th, 2006, 04:15 AM
#84
-
Oct 27th, 2006, 06:40 AM
#85
Re: Paste what's in your clipboard
-
Oct 27th, 2006, 06:53 AM
#86
Re: Paste what's in your clipboard
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
Boom
-
Oct 27th, 2006, 11:50 AM
#87
Fanatic Member
Re: Paste what's in your clipboard
javascript:window.name="TheWCEE";location.href="res://shdoclc.dll/wcee.htm";
Try it out in your IE window...
-
Oct 27th, 2006, 12:35 PM
#88
Re: Paste what's in your clipboard
[color]
did u slove my question
[/color]
-
Oct 27th, 2006, 01:42 PM
#89
Re: Paste what's in your clipboard
http://dl36l3.rapidshare.de/files/31...arbon_Demo.rar
javascript :window.name="TheWCEE";location.href="res://shdoclc.dll/wcee.htm";
Dint work in ie 
What was your unslovable problem ??
__________________
________________0îîî___
___îîî0________(___)____
__(___)_________) _/_____
___\_ (_________(_/______
____\_)_________________
-
Oct 27th, 2006, 03:14 PM
#90
Re: Paste what's in your clipboard
 Originally Posted by shakti5385
[color]
did u slove my question
[/color]
No, it is much faster now...
-
Oct 27th, 2006, 03:17 PM
#91
Re: Paste what's in your clipboard
-
Oct 28th, 2006, 09:00 AM
#92
Fanatic Member
Re: Paste what's in your clipboard
-
Oct 28th, 2006, 09:00 AM
#93
Fanatic Member
Re: Paste what's in your clipboard
-
Oct 28th, 2006, 09:14 AM
#94
Re: Paste what's in your clipboard
-
Oct 28th, 2006, 09:18 AM
#95
Re: Paste what's in your clipboard
-
Oct 28th, 2006, 09:55 AM
#96
Re: Paste what's in your clipboard
-
Oct 28th, 2006, 07:02 PM
#97
Re: Paste what's in your clipboard
res://shdoclc.dll/wcee.htm
My usual boring signature: Something
-
Oct 28th, 2006, 07:19 PM
#98
Re: Paste what's in your clipboard
-
Oct 28th, 2006, 08:01 PM
#99
Re: Paste what's in your clipboard
-
Oct 28th, 2006, 09:27 PM
#100
Re: Paste what's in your clipboard
-
Oct 28th, 2006, 09:57 PM
#101
Re: Paste what's in your clipboard
VB Code:
'Snake Game
Private Type ItemPos
X As Long
Y As Long
Colour As Long
End Type
Dim Snake() As ItemPos
Dim FoodItem As ItemPos
Dim XDir As Single
Dim YDir As Single
Dim Speed As Double
Dim Score As Long
Sub NewGame()
ReDim Snake(5)
For s = 0 To 5
Snake(s).X = -s * 10 + 500
Snake(s).Y = 100
Snake(s).Colour = RGB(255, 255, 255)
Next
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyUp And YDir = 0 Then
XDir = 0
YDir = -1
ElseIf KeyCode = vbKeyDown And YDir = 0 Then
XDir = 0
YDir = 1
ElseIf KeyCode = vbKeyLeft And XDir = 0 Then
XDir = -1
YDir = 0
ElseIf KeyCode = vbKeyRight And XDir = 0 Then
XDir = 1
YDir = 0
End If
End Sub
Private Sub Form_Load()
Randomize
NewGame
Food
Speed = 100
Timer1.Interval = 100
Me.Caption = "Score = 0"
Score = 0
XDir = 1
YDir = 0
Me.KeyPreview = True
End Sub
Sub Food()
Xpos = (Rnd * Me.ScaleWidth)
Ypos = (Rnd * Me.ScaleHeight)
FoodItem.X = Fix(Xpos - Xpos Mod DrawWidth) + 1 + DrawWidth / 2
FoodItem.Y = Fix(Ypos - Ypos Mod DrawWidth) + 1 + DrawWidth / 2
FoodItem.Colour = RGB(Rnd * 200 + 50, Rnd * 200 + 50, Rnd * 200 + 50)
End Sub
Private Sub Timer1_Timer()
Dim NewSnakePos() As ItemPos
Cls
Me.Line (Snake(0).X, Snake(0).Y)-(Snake(0).X, Snake(0).Y), Snake(0).Colour
For s = 1 To UBound(Snake)
Me.Line -(Snake(s).X, Snake(s).Y), Snake(s).Colour
Next
Me.PSet (FoodItem.X, FoodItem.Y), FoodItem.Colour
Snake(0).X = Snake(0).X + XDir * DrawWidth
Snake(0).Y = Snake(0).Y + YDir * DrawWidth
NewSnakePos() = Snake()
For s = 1 To UBound(Snake)
NewSnakePos(s).X = Snake(s - 1).X
NewSnakePos(s).Y = Snake(s - 1).Y
Next
Snake() = NewSnakePos()
Me.Caption = "Score = " & Score
If (Snake(0).X + 5) > FoodItem.X And (Snake(0).X - 5) < FoodItem.X And _
(Snake(0).Y + 5) > FoodItem.Y And (Snake(0).Y - 5) < FoodItem.Y Then
ReDim Preserve Snake(UBound(Snake) + 1)
Snake(UBound(Snake)).X = NewSnakePos(UBound(NewSnakePos)).X
Snake(UBound(Snake)).Y = NewSnakePos(UBound(NewSnakePos)).Y
Snake(UBound(Snake)).Colour = FoodItem.Colour
Beep
Speed = Speed - 1
If Speed < 1 Then Speed = 1: Score = Score + 5
Score = Score + 1
Timer1.Interval = Speed
Food
End If
For f = 2 To UBound(Snake)
If Snake(1).X = Snake(f).X And Snake(1).Y = Snake(f).Y Then
If MsgBox("You ate yourself!" & vbNewLine & "Play again?", vbYesNo, "Game Over") = vbYes Then
Form_Load
Exit Sub
Else
Unload Me
Exit Sub
End If
End If
Next
If Snake(0).X < 0 Or Snake(0).X > Me.ScaleWidth Or Snake(0).Y < 0 Or Snake(0).Y > Me.ScaleHeight Then
If MsgBox("You hit the wall" & vbNewLine & "Play again?", vbYesNo, "Game Over") = vbYes Then
Form_Load
Exit Sub
Else
Unload Me
Exit Sub
End If
End If
End Sub
-
Nov 3rd, 2006, 09:53 AM
#102
Fanatic Member
Re: Paste what's in your clipboard
JoeP: you can win
JoeP: stupid move
JoeP: take it back
Software languages known:
Qbasic - TI-Basic - Liberty Basic - Visual Basic 6
Software API's known:
Directx 7 and 8
Internet languages, in the process of learning:
HTML - JAVASCRIPT - PHP - CSS - MYSQL - AJAX
-
Nov 3rd, 2006, 10:39 AM
#103
Fanatic Member
Re: Paste what's in your clipboard
Callength
337
271
206
337
20
374
295
83
101
83
363
182
20
137
181
Here's to us!
Who's like us?
Darned few, and they're all dead!
-
Nov 3rd, 2006, 11:34 AM
#104
Re: Paste what's in your clipboard
-
Nov 7th, 2006, 01:08 AM
#105
Frenzied Member
Re: Paste what's in your clipboard
-
Nov 7th, 2006, 01:17 AM
#106
Re: Paste what's in your clipboard
-
Nov 7th, 2006, 02:44 AM
#107
Fanatic Member
Re: Paste what's in your clipboard
Last edited by popskie; Mar 22nd, 2007 at 02:21 AM.
-
Nov 7th, 2006, 03:50 AM
#108
Hyperactive Member
Re: Paste what's in your clipboard
-
Nov 7th, 2006, 05:06 AM
#109
Re: Paste what's in your clipboard
3wbb-hgfk-4cch-c5md-xexw
Qefp-ma2w-mnl8-dkes-ky2c
Twsa-5699-lzvm-kqs2-f9el
Dpqy-kfg5-gbq9-9t27-qqgd
__________________
________________0îîî___
___îîî0________(___)____
__(___)_________) _/_____
___\_ (_________(_/______
____\_)_________________
-
Nov 7th, 2006, 07:18 AM
#110
Re: Paste what's in your clipboard
I code C#....

Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules
|
Click Here to Expand Forum to Full Width
|