Coduri sursa pt unele programele..

eujupanu · Membru junior Data inscrierii: 14/Sep/2007 Mesaje: 79

a ***VERY DIFFERENT*** Screen Saver

Level: Beginner
Compatibility:VB 5.0, VB 6.0

this is a totally differn't type of screensaver than what i've found here, this is actually pretty funny to just sit back and watch =-)

code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!

Terms of Agreement:
By using this code, you agree to the following terms...
1) You may use this code in your own programs (and may compile it into a program and distribute it in compiled compus for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.

'**************************************
' Name: a ***VERY DIFFERENT*** Screen Sa
' ver
' BY www.funny.8k.ro

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Unload Me
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
Unload Me
End Sub

Private Sub Form_Load()

Form1.BackColor = vbBlack

Form1.BorderStyle = 0
Timer1.Interval = 175
End Sub

Private Sub Timer1_Timer()
ht = RandomNum(Min, Max)
wh = RandomNum(Min, Max)

Form1.Move wh, ht

Form1.Height = ht

Form1.Width = wh

Form1.Height = wh

Form1.Width = ht
End Sub

Public Function RandomNum(Min, Max) As Long
RandomNum = Int((Max - Min + 9500) * Rnd + Min)
End Function
SUCCES

DeMoN · BosS Data inscrierii: 14/Sep/2007 Mesaje: 144

Level: Intermediate
Compatibility:VB 6.0

code:
Can't Copy and Paste this?
Click here for a copy-and-paste friendly version of this code!

Terms of Agreement:
By using this code, you agree to the following terms...
1) You may use this code in your own programs (and may compile it into a program and distribute it in compiled compus for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this code (for example to a web site) without written permission from the autentic author. Failure to do so is a violation of copyright laws.
3) You may link to this code from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.

'
' By: www.funny.8k.ro
'

Option Explicit
Private DX7 As DirectX7
Private DXD As DirectDraw7
Private DXDS As DirectDrawSurface7
Private DXSD As DDSURFACEDESC2

Private Sub Form_Load()
Dim i As Long, j As Long

Form1.Show
Set DX7 = New DirectX7
Set DXD = DX7.DirectDrawCreate("")

With DXSD
.lFlags = DDSD_CAPS
.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE
End With
DXD.SetCooperativeLevel Form1.hWnd, DDSCL_EXCLUSIVE Or DDSCL_FULLSCREEN
DXD.SetDisplayMode 640, 480, 16, 0, DDSDM_DEFAULT
Set DXDS = DXD.CreateSurface(DXSD)
i = 0

Do Until DoEvents()

For j = 0 To ScaleWidth Step 50
DXDS.SetForeColor i
DXDS.DrawLine Rnd * Screen.Width, Rnd * Screen.Height, j, 0
i = i + 1

If i = 65536 Then
i = 0
End If
Next j
Loop
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call endp
End Sub

Private Sub endp()
DXD.RestoreDisplayMode
Set DX7 = Nothing
Set DXD = Nothing
Set DXDS = Nothing
End
End Sub

spor sa ai ... bastanule...
_________________
Un NImeni celebru!!

seby · Junior Data inscrierii: 28/Sep/2008 Mesaje: 9

o sa fac si yo un tutorial dar o sa il pun in chineza :|