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

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

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

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

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

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

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

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

خاصیت 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

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

خاصیت 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

اون هایی که سورس خواسته بودند؟
اين سورس فرم شما را به صورت كلاسيك و بدون تم نمايش مي دهد.
كد :
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

یکی دیگه؟
توسط اين سورس كد مي توانيد همه ي پنجره هاي باز را به حالت مينيمايز در بياوريد.
كد :
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

توسط اين كد مي توانيد روي پنجره ها نقاشي كنيد.
كد :
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Dim Cl As Boolean
Private Sub Form_Load()
Dim DC As Long
Me.WindowState = 2
Me.AutoRedraw = True
DC = GetDC(GetDesktopWindow)
BitBlt Me.hDC, 0, 0, Width, Height, DC, 0, 0, vbSrcCopy
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cl = True
PSet (X, Y)
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Cl = True Then Line -(X, Y)
End Sub
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Cl = False
End Sub

رنگش آبی میتونید عوضش کنید؟
با اين سورس كد مي توانيد افكت زيبايي را در فرمتان ايجاد كنيد. واقعا زيباست !!!
Private Sub Form_Load()
Me.AutoRedraw = True
For i = 0 To Height
Me.Line (0, i)-(Width, i), -RGB(0, i / 20, 0)
Next
End Sub
Private Sub Form_Resize()
Form_Load
End Sub

کمک میخوام یکی کد pause را به من بگه؟

کسی این جا vb بلد نیست به من کد pause را بگه؟

کسی این جا vb بلد نیست به من کد pause را بگه؟

سلام ، یه تنه داری تاپیک جلو میبری ها !
شما پرسیدید چطور میشه یک بازی رو متوقف کرد ؟ اگه ما رونده عادی بازی رو عوض کنیم یا همون اجازه ندیم دستورات درون ٍ رویداد ها ، روال ها ، ماژول ها و ... اجرا نشوند میشه بازی رو متوقف کرد .
یه بازی (ناقص) برات آپلود کردم که با زدن کلید p بازی متوقف و با زدن دوباره کلید شروع به کار میکنه .
لینک دانلود :
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

البته دقیق نمیدونم شاید هم یک تابع Api وجود داشته باشه که به راحتی تونست برنامه یا بازی رو متوقف کرد .

سلام کی می تونه با فایل های فشرده کار کنه به خدا فوری زودی جوابم رو بدید:42::42::42::37:

تو برنامه نویسی با متوقف کردن یک سری اطلاعات ، اون اطلاعات متوقف می شن مثلا
من یک تایمردرست کردم که ساعت رو در Label 1 نشون می ده حالا من بیام و بگم Timer1.enable=false
خوب مسلماً این ساعت در لیبل حرکت نمی کنه چرا؟؟
چون تایمر قطع می باشد
و برای این که دوباره حرکت کنه کافیه بگیم
Timer1.enable=true
به همین سادگی
پس این کار کار زیاد سختی نیست
---------------------------------------------



کافر اگر عاشق شود بی تردید مومن می شود *** چیزی شبیه معجزه با عشق ممکن می شود