تور لحظه آخری
امروز : سه شنبه ، 6 آذر 1403    احادیث و روایات:  پیامبر اکرم (ص):نابودى جوانانتان را آرزو نكنيد ، گرچه بدى‏هاى بسيار در آنان باشد، زيرا آنان با ...
سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون شرکت ها

تبلیغات

تبلیغات متنی

صرافی ارکی چنج

صرافی rkchange

سایبان ماشین

دزدگیر منزل

تشریفات روناک

اجاره سند در شیراز

قیمت فنس

armanekasbokar

armanetejarat

صندوق تضمین

Future Innovate Tech

پی جو مشاغل برتر شیراز

لوله بازکنی تهران

آراد برندینگ

خرید یخچال خارجی

موسسه خیریه

واردات از چین

حمية السكري النوع الثاني

ناب مووی

دانلود فیلم

بانک کتاب

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

طراحی سایت تهران سایت

irspeedy

درج اگهی ویژه

تعمیرات مک بوک

دانلود فیلم هندی

قیمت فرش

درب فریم لس

زانوبند زاپیامکس

روغن بهران بردبار ۳۲۰

قیمت سرور اچ پی

خرید بلیط هواپیما

بلیط اتوبوس پایانه

قیمت سرور dl380 g10

تعمیرات پکیج کرج

لیست قیمت گوشی شیائومی

خرید فالوور

بهترین وکیل کرج

بهترین وکیل تهران

خرید اکانت تریدینگ ویو

خرید از چین

خرید از چین

تجهیزات کافی شاپ

ویزای چک

محصولات فوراور

خرید سرور اچ پی ماهان شبکه

دوربین سیمکارتی چرخشی

همکاری آی نو و گزینه دو

کاشت ابرو طبیعی و‌ سریع

الک آزمایشگاهی

الک آزمایشگاهی

خرید سرور مجازی

قیمت بالابر هیدرولیکی

قیمت بالابر هیدرولیکی

قیمت بالابر هیدرولیکی

لوله و اتصالات آذین

قرص گلوریا

نمایندگی دوو در کرج

خرید نهال سیب

وکیل ایرانی در استانبول

وکیل ایرانی در استانبول

وکیل ایرانی در استانبول

رفع تاری و تشخیص پلاک

پرگابالین

 






آمار وبسایت

 تعداد کل بازدیدها : 1834416900




هواشناسی

نرخ طلا سکه و  ارز

قیمت خودرو

فال حافظ

تعبیر خواب

فال انبیاء

متن قرآن



اضافه به علاقمنديها ارسال اين مطلب به دوستان آرشيو تمام مطالب
archive  refresh

سوال در مورد ويژوال بيسيك -


واضح آرشیو وب فارسی:سایت ریسک: 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]

bt

اضافه شدن مطلب/حذف مطلب







-


گوناگون

پربازدیدترینها
طراحی وب>


صفحه اول | تمام مطالب | RSS | ارتباط با ما
1390© تمامی حقوق این سایت متعلق به سایت واضح می باشد.
این سایت در ستاد ساماندهی وزارت فرهنگ و ارشاد اسلامی ثبت شده است و پیرو قوانین جمهوری اسلامی ایران می باشد. لطفا در صورت برخورد با مطالب و صفحات خلاف قوانین در سایت آن را به ما اطلاع دهید
پایگاه خبری واضح کاری از شرکت طراحی سایت اینتن