واضح آرشیو وب فارسی:سایت ریسک: t=33125">سوال در مورد ويژوال بيسيك Jo0o0oje hacker 02 تير 1384, 13:10سلام دوستان من ميخوام يه برنامه بنويسم شبيه همون برنامه گوي و ميدان ولي ساده تر شكل كلي برنامه از 100 تا كليد تشكيل شده كامند باتن حالا ميخوام وقتي اعداد تصادفي توليد ميشه با كنترل هاي آپ و داون و لفت و رايت حركت كنه و تو بعضي از خانه ها هم يه جايزه اي يا پيغامي چيزي بده :-? لطفا يكي كمك كنه خيلي فوريييييه Mikhak 02 تير 1384, 17:22ميتوني از دستور setfocus استفاده كني برنامت و توليد اعداد و خونه هات هم كه كلا بايد از دستور random استفده كني ------------ سينا Jo0o0oje hacker 02 تير 1384, 21:53عزیز جان من مثل شما وارد نیستم اگه ممکنه کامل بگین با این دستورات کار نکردم فقط محیط ویزوال بیسیک رو میشناسم .همین لطفا کمک کنید خیلی فوریه. مرسی Jo0o0oje hacker 02 تير 1384, 21:54اگه کسی سورس فری شبیه این برنامه داره لطفا لینک کنه . مرسی Mikhak 03 تير 1384, 09:17اولا فكر نكنم كسي بتونه يه سورس فري واسه vb پيدا كنه دوما بهتره خودت شروع كني بچه هاهم كمكت ميكنن ---------------- سينا Jo0o0oje hacker 03 تير 1384, 09:38دوست عزيز تو اين سايت كلي سورس فري ريخته فقط :cry: نميدونم كه من بايد كدوم رو دانلود كنم. اگه يكي كمك كنه يه حال حسابي بهش ميدم. Jo0o0oje hacker 04 تير 1384, 07:22سلام دوست عزيز مرسي از اينكه جواب دادي برنامه گوي و ميدان رو در نظر بگير . يه مربع بزرگ كه 100 تا مربع كوچيك توش هست. (تا اينجا رو ساختم ) حالا ميخوام يه چيزي بسازم كه اعداد راندوم ( تصادفي ) توليد كنه و وقتي يه عدد تصادفي توليد شد بتونم با حركت (چپ - راست - بالا - پايين ) كيبورد رو خانه ها ( همون مربع هاي كوچيك) حركت كنم. و چند تا از اين مربع هاي كوچيك پيغام دار باشه .مثلا وقتي كه به يكي از اونا رسيدي يه پيغام تشويق يا تنبيه بده . ترو خدا كمك كنيد خيلي فوريه MnavidM 04 تير 1384, 09:23با سلام. اول یه چیز بگم : توضیح همچین کاری یه کم سخته. به فرض شما یه مقدار عددی به برنامه میده و اون هم با توجه به اینکه اون اشاره گرت کجاش به مقدار اون عدد حرکت میکنه. حالا شما یه راه ساده دارید . اینکه اون دکمه های رو بصورت آرایه ای تعریف کنی , که به فرض اسمش btn هست و به این صورت باتن ها رد دسترس هستند (0)btn . البته باید اون باتن ها به ترتیب باشن. حالا وقتی اشاره گر (مثلا توپ) روی خانه 0 ((0)btn) هست و مقدار عددی 2 هست که می خواد 2 خانه به جلو بره. شما که یه مقدار سراسری(مثلا یه متغیر به اسم which) داری به اون 2 تا اضافه میکنی و به این صورت در نظر میگیری change=مقدار حرکت which=which+(change) btn(which). که حالا با اون دستور سوم هر کاری بخای انجام میدی مثلا btn(whche).setfocus امیدوارم متوجه شده باشی. Jo0o0oje hacker 04 تير 1384, 13:05سلام دوست خوبم مرسي از اينكه جواب دادي راستش نميخوام اونطوري هم پيشرفته باشه وقتي اعداد تصادفي توليد شد نيازي نيست كه خود به خود حركت كنه ميخوام كه دستي حركت كنه.يعني با همون كنترل چپ را ست ... من خيلي كم ويژوال بيسيك بلدم بيشتر تو اي اس پي و پي اچ پي تخصص دارم. اگه ممكنه كد ها رو برام بنويسيد در عوض منم يه حال اساسي به شما ميدم طوري كه خودتون راضي باشيد. با ايدي اليگال يا نامبر چطوري؟ خيلي امرجنسيه .لطفا خيلي زود جواب بدين .اون يه ذره آبروي كه دارم داره ميره. Mikhak 04 تير 1384, 15:51يه راه بهتر : :wink: شما ميتوني دكمه هاتو درست كني و توي كل برنامت يه تابع درست كني كه اون عدد رندم توليد كنه مثلا به اسم random يعني به اين كه صورت كه تو تابع كليك همه ي دكمه هات اون تابع random رو فراخواني كني بعد تو تابع random شروع كني بعد از توليد كردن عدد بررسي كني كه اگه عدد 1 بود فلان كار كن اگه 2 بود فلان و .....الي آخر ؟؟ :-? اين برنامه اي گذاشتم ببين اگه منظورت يه همچين چيزي باشه حركت رو دكمه رو هم واست بگم در ضمن لطفا اين همه وعده وعيد نده شايد واست برعكس جواب بده :cool: (به دل نگير :neutral: ) --------------- سينا MnavidM 04 تير 1384, 16:39با سلام. Jo0o0oje hacker جان , جواب pm رو برات فرستادم. در مورد پاداش هم زیاد جدی نگیر , ما اینجاییم که به افرادی مثل شما کمک کنیم , نیازی به این جور کارا نیست . فعلا هم مثال میخک رو ببین . نتیجه کارا رو بگو :wink: Mikhak 04 تير 1384, 21:28جوجه هكر عزي :oops: ز من بازم ميگم زياد حرفاي من و نويد رو به دل نگير :neutral: به مثال نگا كن انشالا كه ميفهمي جريان از چه قراره ٍنويد تو هم كشتي مارو با اين حافظت الان چند صد ساله نتونستي اسم منو ياد بگيري :cry: :cry: <شوخي> :D اميدوارم برنامه نويسيتم اينجوري نباشه :D </شوخي> مخلصيم ----------------------------- سينا Jo0o0oje hacker 04 تير 1384, 22:07سلام خدمت استادان عزيز آقا ايول من كه گفتم برا شما كاري نداره .منظورم دقيقا همون بود ولي خانه ها 100 تا باشه .و توي 15 -16 تا از خانه ها ژيغام به صورت اتوماتيك ظاهر شه نه با كليك .مرسي خيلي مخلصيم ولي اونم جدي گفتم استاد . در ضمن ميخك جان حتي اگه برعكس جواب بده خيالي نيست :wink: دست رو دست زياده درسته تو ويژوال بيسيك كم داريم ولي پس از كلي پس گردني خوردن يه چيزايي بلديم كه ... خلاصه دمتون گرم. انشالا كه 10000000000000000000 سال زنده باشيد :D Mikhak 04 تير 1384, 22:37اگه برنامه نويسي كار كرده باشي كه مشكلي نداري اين كدها خيلي سادست به راحتي ميتوني 100 تاش بكني در ضمن منظورت رو در مورد اينكه اتوماتيك پيغام بده متوجه نميشم يه كم بيشتر توضيح بده تا بتونم كمكت كنم -------------------- سينا Jo0o0oje hacker 04 تير 1384, 22:48باشه ميخك جان حق با تو اونو خودم 100 تا ميكنم .منظورم اينه كه چند تا از خانه ها به محظ اين كه نوبت به آن خانه رسيد خود به خود ژيغام بده . نه ابن كه با موس روش كليك كني اگه ممكنه يه كرنومتر هم داشته باشه خيلي خيلي ممنون Mikhak 05 تير 1384, 08:53فكر كنم ديگه اين ديگه اوني باشه كه تو ميخواي فقط بايد اونطوري كه خودت ميخواي دكمه هاتو اندازه بدي و رنگ و ... خلاصه خودت خفنش كن من وقت نكردم در ضمن اگه عدد اتفاقي بين 10 و 30 بشه پيغام ميده "sina" يه دونه هم تايمر گذاشتم از دكمه ي 16 تا 21 همين كه روش بري پيغام رو ميده مخلصيم --------------- سينا MnavidM 05 تير 1384, 08:58با سلام. سینا , عجب گیری دادیا ........... من دوست دارم بهت بگم Mikhak مشکلیه ............. :D جوجه هکر جان ببین : شما به این صورت عمل کن ,که کد فراخوانی تابع random رو در رویداد GotFocus قرار بده . تابع جناب میخک رو هم اصلاح کردم . در کل این جوریا میشه : Private Sub Command 1_GotFocus() Form1.random End Sub Function random() Dim navid As Integer navid = CInt(Int((10 * Rnd()) + 1)) MsgBox ("your number is 1"&str(navid)) End If مشکلی بود بگو . راستی سینا چرا وقتی اومدی برای قرار عمومی زودی در رفتی , ترسیدی بخورمت :D MnavidM 05 تير 1384, 08:59اا .... مثل اینکه , وقتی من در حال ارسال بودم سینا هم یه پست زده :wink: جوجه هکر جان , در هر صورت این راهنمایی ها بود . امید وارم کارت راه افتاده باشه . Mikhak 05 تير 1384, 09:04آره تو اين دو تا پست رو بعد از پست من زدي در ضمن اوني كه اومده بود سر قرار من نبودم داداشم بود خود من نتونستم بيام اوني كه ميبيني من تو برنامه اين همه if گذاشتم به اين دليله كه بتونه واسه هر كدوم يه دونه عمل تعريف كنه و الا بقيه رو مثل تو نوشتم ميتونستم از case هم استفاده كنم ولي ديگه بيخيال مخلصيم ---------------------- سينا MnavidM 05 تير 1384, 09:34خوبه :wink: Jo0o0oje hacker 05 تير 1384, 10:16سلام به سینا و نوید ای ول به جفتتون دمتون گرم سینا جان ما خیلی مخلصیم .کارت حرف نداره . خیلی خیلی دمت گرم .خدا عمرت بده .پیر شی ننه کارمو را انداختی فطیر.دمت گرم Mikhak 05 تير 1384, 13:44قابل نداشت خوشحالم كه كارت را افتاد -------------------- سينا MnavidM 06 تير 1384, 08:27با سلام. قابل u رو نداشت :wink: Mikhak 08 تير 1384, 23:23:neutral: :neutral: :eek: :eek: :mad: :mad: :cry: :cry: ------------------------------ سينا
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 855]