ساخت بازی با کمک تو

[سونامی]

دوستان ویبی کار بیایید با کمک هم بازی مار وپله رو بسازیم

[Open-Source]

اولین قدم اینه که یه ماتریس درست کنی.(فکر کنم 10*10)
بعد روی سطر وستون آن کار کنی(مثلا به خانه های پر یک مقدار بدی وبه خانه های خال صفر )
و....

[سونامی]

من از ماتریس بدم میاد اینو تا یجاییش ساختم و به مشکل برخوردم زدم پاک کردمش حالا کسی نیست بیاد و با هم بسازیم

[rap0661]

آقا كسي سورس داره بزار تا همه استفاده كنيم

[سایه ی مرگ]

من هم فکر کنم اول به ماتریس نیاز باشه اما کار بر روی تاس هم بد نیست

[سایه ی مرگ]

private sub button1_click()
Randomize Timer
Dim DiceNum as Integer
DiceNum=CInt(rnd*10)+1
Label1.text=DiceNum
End Sub
نکته این تاس 1 تا 10 است!

[milad_20]

سلام بر دوستان!
اینم یه سورس ؟ایجاد حرکت!

خاصیت name فرم را به F1 تغییر دهید.

یک کنترلShape روی فرم ایجاد کنید و خاصیت Name آن را به S1 تغییر دهید.

یک کنترلtimer روی فرم ایجاد کنید و خاصیت Name آن را به T1 و خاصیت interval آن را به 1 تغییر دهید.

S1 را به سمت راست صفحه ببرید.

این کد ها را در قسمت ماژول کد وارد نمایید:

Private Sub t1_timer()

S1.Left = S1.Left - 100

If S1.Left <= -1000 Then S1.Left = F1.Width

End Sub

[milad_20]

سلام بر دوستان!
اینم یه سورس ؟ایجاد حرکت!

خاصیت name فرم را به F1 تغییر دهید.

یک کنترلShape روی فرم ایجاد کنید و خاصیت Name آن را به S1 تغییر دهید.

یک کنترلtimer روی فرم ایجاد کنید و خاصیت Name آن را به T1 و خاصیت interval آن را به 1 تغییر دهید.

S1 را به سمت راست صفحه ببرید.

این کد ها را در قسمت ماژول کد وارد نمایید:

Private Sub t1_timer()

S1.Left = S1.Left - 100

If S1.Left <= -1000 Then S1.Left = F1.Width

End Sub

[milad_20]

اون هایی که سورس خواسته بودند؟
اين سورس فرم شما را به صورت كلاسيك و بدون تم نمايش مي دهد.
كد :
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Sub Form_Load()
SetWindowRgn Me.hWnd, 1, True
End Sub

[milad_20]

یکی دیگه؟
توسط اين سورس كد مي توانيد همه ي پنجره هاي باز را به حالت مينيمايز در بياوريد.
كد :
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Declare Function CloseWindow Lib "user32" (ByVal hwnd As Long) As Long
Private Sub Timer1_Timer()
CloseWindow GetForegroundWindow
End Sub