سلام
معلم ما برای پروژه گفته باید
بازی مارپله را طراحی کنید دوستان سورس نمیخوام میخوام راهنمایی کنید چطوری باید پیاده سازی کنم ؟
حرکت مهره و..
و بازی معمای 8 هم گفته که اصلا نفهمیدم منظورش چی بود
سلام
معلم ما برای پروژه گفته باید
بازی مارپله را طراحی کنید دوستان سورس نمیخوام میخوام راهنمایی کنید چطوری باید پیاده سازی کنم ؟
حرکت مهره و..
و بازی معمای 8 هم گفته که اصلا نفهمیدم منظورش چی بود
سلام. من قبلا مارو پله رو نوشتم، البته با vb6. الان نمی دونم کجاست.
شما استارت کار رو بزن. هر جا مشکل داشتی بگو توضیح بدم.
آخرین ویرایش به وسیله vbhamed : چهارشنبه 10 دی 1393 در 10:57 صبح
مشکل کار توی حرکت مهره هست
چطوری مهره رو حرکت بدم ؟
مثلا با تابع رندوم بین 1 تا 6 یک عدد تصادفی ایجاد کردم..
آخرین ویرایش به وسیله vbhamed : چهارشنبه 10 دی 1393 در 10:57 صبح
سلام خدمت دوست عزیز . ابتدا یه صفحه طراحی میکنی ( آرایه ای از اشیا مثلا لیبل یا ایمیج و ... ) سپس اندیس خانه ها چون به ترتیب 1-100 و یا .... هست باید به صورت ستر و ستون در بیاری . بعد خیلی راحت میکنی اون جدول رو کنترل کنی . و نوشتن بازی هم شبیه همون بازی روی کاغذ هست :)
و اما معمای 8 ( یعنی بازی 8 وزیر توی شطرنج ) باید ویزیر ها رو جوری بزاری که همدیگرو نزنن که اینم باز شبیه همون منچ هست با این تفاوت که اینجا با قطر های اصلی هم سرو کار داری . از اونجایی که صفحه شطرنج 8 × 8 هست یعنی مربع هست خیلی راحت میتونی قطر ها رو بدست بیاری :)
در ضمن برای جلوگیری از تکراری نبودن اعداد هنگام تاس ریختن قبل از عمل رندم از تابع رندومایز استفاده کن ...
موفق و سربلند باشی ... یا علی
یه متغیر بگیر که شماره مکان جاری رو داشته باشه. مثلا 90. حالا با کد زیر مهر رو ببر به اون خونه.
mohre1.Left = lblBase(mohreLocation).Left
آخرین ویرایش به وسیله vbhamed : چهارشنبه 10 دی 1393 در 10:58 صبح
تا اینجا پیشرفتم ولی گیر کردم
میخوام طوری تعریف کنم که تاس قبلی بازیکن از بین نره
پروژه رو Attach کردم لطفا سورس اضافه کردید یک کامنت براش بزارید
آخرین ویرایش به وسیله vbhamed : چهارشنبه 10 دی 1393 در 10:58 صبح
من رو سیستمم vb6 رو ندارم.
خب یه جا ذخیرش کن. این همه جا. دیتابیس، آرایه، متغیر رشته ای
آخرین ویرایش به وسیله vbhamed : چهارشنبه 10 دی 1393 در 10:58 صبح
VB6پرتابل 5 مگ بیشتر نیست
امکانش هست نگاهی بهش بنداز
آخرین ویرایش به وسیله vbhamed : چهارشنبه 10 دی 1393 در 10:59 صبح
سلام
شما میتونی فرضا مقدار c رو بصورت static تعریف کنی تا از بین نره و در هر مرحله باید مقدار a رو با اون c قبلی جمع کنی.مثلا کدت یه همچین چیزی میشه:
Private Sub Command2_Click()
Static c As Byte
Command2.Enabled = False
Command1.Enabled = True
Randomize
a = Int(Rnd * 6) + 1
c = a + c
Label4.Caption = a
Shape3.Top = Label1(c).Top + 190
Shape3.Left = Label1(c).Left
End Sub
البته نحوه تولید عدد تصادقی رو هم یکم تغییر دادم :)
فقط یک مشکل داره به صورت رندوم همش 5 تولید میکنه چرا ؟
آخرین ویرایش به وسیله vbhamed : چهارشنبه 10 دی 1393 در 10:59 صبح
یه randomize اوله ایونت بنویس. پایینه Command2_Click()
بخوایم یک شیپ روی عکس قرار بگیره نره زیر عکس باید چیکار کنیم ؟
یا بجای picturebox از image استفاده کن و یا شیپ ها تو داخل picturebox بذار نه داخل فرم
اگر بخوایم مثلا
if a=2 then
بقیه برنامه کدهای نوشته شده توی این کامند اجرا نشه باید جی بنویسیم ؟
end if
باید اینو بنویسی
Exit sub
یک مشکل دیگه
اگر بخوای طرف با کامپیوتر بازی کنه باید چیکار کنیم ؟
چرا دو تا؟
آخرین ویرایش به وسیله vbhamed : چهارشنبه 10 دی 1393 در 11:07 صبح
برای هر پلیر یک تاس گذاشتم ...
بگذریم مار و پله تموم شد !
اما انچه باقیست پازل هست ..
یک مقداری دوستان کمک کنند این پازل هشت تایی ( به صورت عدد باید باشه 1 تا 8 )
چطوری حرکت ها , یک مقداری سورس , و.. ممنون میشم
آخرین ویرایش به وسیله vbhamed : چهارشنبه 10 دی 1393 در 11:07 صبح
سلام میشه تمامی کد های بازه مار پله رو بهم بدی ممنون میشم