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

[Jo0o0oje hacker]

سلام دوستان
من ميخوام يه برنامه بنويسم شبيه همون برنامه گوي و ميدان ولي ساده تر
شكل كلي برنامه از 100 تا كليد تشكيل شده كامند باتن
حالا ميخوام وقتي اعداد تصادفي توليد ميشه با كنترل هاي آپ و داون و لفت و رايت حركت كنه و تو بعضي از خانه ها هم يه جايزه اي يا پيغامي چيزي بده
لطفا يكي كمك كنه خيلي فوريييييه

 

[Mikhak]

ميتوني از دستور setfocus استفاده كني
برنامت و توليد اعداد و خونه هات هم كه كلا بايد از دستور random استفده كني
------------
سينا

 

[Jo0o0oje hacker]

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

 

[Jo0o0oje hacker]

اگه کسی سورس فری شبیه این برنامه داره لطفا لینک کنه . مرسی

 

[Mikhak]

اولا فكر نكنم كسي بتونه يه سورس فري واسه vb پيدا كنه
دوما بهتره خودت شروع كني بچه هاهم كمكت ميكنن
----------------
سينا

 

[Jo0o0oje hacker]

دوست عزيز تو اين سايت كلي سورس فري ريخته فقط نميدونم كه من بايد كدوم رو دانلود كنم.
اگه يكي كمك كنه يه حال حسابي بهش ميدم.
http://www.freevbcode.com/

 

[Jo0o0oje hacker]

سلام دوست عزيز مرسي از اينكه جواب دادي
برنامه گوي و ميدان رو در نظر بگير . يه مربع بزرگ كه 100 تا مربع كوچيك توش هست. (تا اينجا رو ساختم ) حالا ميخوام يه چيزي بسازم كه اعداد راندوم ( تصادفي ) توليد كنه و وقتي يه عدد تصادفي توليد شد بتونم با حركت (چپ - راست - بالا - پايين ) كيبورد رو خانه ها ( همون مربع هاي كوچيك) حركت كنم. و چند تا از اين مربع هاي كوچيك پيغام دار باشه .مثلا وقتي كه به يكي از اونا رسيدي يه پيغام تشويق يا تنبيه بده .
ترو خدا كمك كنيد خيلي فوريه

 

[MnavidM]

با سلام.

اول یه چیز بگم :

توضیح همچین کاری یه کم سخته.

به فرض شما یه مقدار عددی به برنامه میده و اون هم با توجه به اینکه اون اشاره گرت کجاش به مقدار اون عدد حرکت میکنه.

حالا شما یه راه ساده دارید .

اینکه اون دکمه های رو بصورت آرایه ای تعریف کنی , که به فرض اسمش btn هست و به این صورت باتن ها رد دسترس هستند (0)btn .

البته باید اون باتن ها به ترتیب باشن.

حالا وقتی اشاره گر (مثلا توپ) روی خانه 0 ((0)btn) هست و مقدار عددی 2 هست که می خواد 2 خانه به جلو بره.

شما که یه مقدار سراسری(مثلا یه متغیر به اسم which) داری به اون 2 تا اضافه میکنی و به این صورت در نظر میگیری

change=مقدار حرکت
which=which+(change)
btn(which).

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

btn(whche).setfocus

امیدوارم متوجه شده باشی.

 

[Jo0o0oje hacker]

سلام دوست خوبم
مرسي از اينكه جواب دادي
راستش نميخوام اونطوري هم پيشرفته باشه وقتي اعداد تصادفي توليد شد نيازي نيست كه خود به خود حركت كنه ميخوام كه دستي حركت كنه.يعني با همون كنترل چپ را ست ...
من خيلي كم ويژوال بيسيك بلدم بيشتر تو اي اس پي و پي اچ پي تخصص دارم.
اگه ممكنه كد ها رو برام بنويسيد در عوض منم يه حال اساسي به شما ميدم طوري كه خودتون راضي باشيد.
با ايدي اليگال يا نامبر چطوري؟
خيلي امرجنسيه .لطفا خيلي زود جواب بدين .اون يه ذره آبروي كه دارم داره ميره.

 

[Mikhak]

يه راه بهتر :
شما ميتوني دكمه هاتو درست كني و توي كل برنامت يه تابع درست كني كه اون عدد رندم توليد كنه مثلا به اسم random
يعني به اين كه صورت كه تو تابع كليك همه ي دكمه هات اون تابع random رو فراخواني كني
بعد تو تابع random شروع كني بعد از توليد كردن عدد بررسي كني كه اگه عدد 1 بود فلان كار كن اگه 2 بود فلان و .....الي آخر ؟؟
اين برنامه اي گذاشتم ببين اگه منظورت يه همچين چيزي باشه حركت رو دكمه رو هم واست بگم
در ضمن لطفا اين همه وعده وعيد نده شايد واست برعكس جواب بده (به دل نگير )
---------------
سينا

 

[MnavidM]

با سلام.

Jo0o0oje hacker جان , جواب pm رو برات فرستادم.

در مورد پاداش هم زیاد جدی نگیر , ما اینجاییم که به افرادی مثل شما کمک کنیم , نیازی به این جور کارا نیست .

فعلا هم مثال میخک رو ببین .

نتیجه کارا رو بگو

 

[Mikhak]

جوجه هكر عزي ز من بازم ميگم زياد حرفاي من و نويد رو به دل نگير به مثال نگا كن انشالا كه ميفهمي جريان از چه قراره
ٍنويد تو هم كشتي مارو با اين حافظت الان چند صد ساله نتونستي اسم منو ياد بگيري
<شوخي> اميدوارم برنامه نويسيتم اينجوري نباشه </شوخي>
مخلصيم
-----------------------------
سينا

 

[Jo0o0oje hacker]

سلام خدمت استادان عزيز
آقا ايول من كه گفتم برا شما كاري نداره .منظورم دقيقا همون بود ولي خانه ها 100 تا باشه .و توي 15 -16 تا از خانه ها ژيغام به صورت اتوماتيك ظاهر شه نه با كليك .مرسي
خيلي مخلصيم
ولي اونم جدي گفتم استاد .
در ضمن ميخك جان حتي اگه برعكس جواب بده خيالي نيست دست رو دست زياده
درسته تو ويژوال بيسيك كم داريم ولي پس از كلي پس گردني خوردن يه چيزايي بلديم كه ...
خلاصه دمتون گرم.
انشالا كه 10000000000000000000 سال زنده باشيد

 

[Mikhak]

اگه برنامه نويسي كار كرده باشي كه مشكلي نداري اين كدها خيلي سادست
به راحتي ميتوني 100 تاش بكني در ضمن منظورت رو در مورد اينكه اتوماتيك پيغام بده متوجه نميشم يه كم بيشتر توضيح بده تا بتونم كمكت كنم
--------------------
سينا

 

[Jo0o0oje hacker]

باشه ميخك جان حق با تو اونو خودم 100 تا ميكنم .منظورم اينه كه چند تا از خانه ها به محظ اين كه نوبت به آن خانه رسيد خود به خود ژيغام بده .
نه ابن كه با موس روش كليك كني
اگه ممكنه يه كرنومتر هم داشته باشه خيلي خيلي ممنون

 

[Mikhak]

فكر كنم ديگه اين ديگه اوني باشه كه تو ميخواي
فقط بايد اونطوري كه خودت ميخواي دكمه هاتو اندازه بدي و رنگ و ... خلاصه خودت خفنش كن من وقت نكردم
در ضمن اگه عدد اتفاقي بين 10 و 30 بشه پيغام ميده "sina" يه دونه هم تايمر گذاشتم
از دكمه ي 16 تا 21 همين كه روش بري پيغام رو ميده
مخلصيم
---------------
سينا

 

[MnavidM]

با سلام.

سینا , عجب گیری دادیا ...........

من دوست دارم بهت بگم Mikhak مشکلیه .............

جوجه هکر جان ببین :

شما به این صورت عمل کن ,که کد فراخوانی تابع random رو در رویداد GotFocus قرار بده .

تابع جناب میخک رو هم اصلاح کردم .

در کل این جوریا میشه :

Private Sub Command1_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

مشکلی بود بگو .

راستی سینا چرا وقتی اومدی برای قرار عمومی زودی در رفتی , ترسیدی بخورمت

 

[MnavidM]

اا ....

مثل اینکه , وقتی من در حال ارسال بودم سینا هم یه پست زده

جوجه هکر جان , در هر صورت این راهنمایی ها بود .

امید وارم کارت راه افتاده باشه .

 

[Mikhak]

آره تو اين دو تا پست رو بعد از پست من زدي
در ضمن اوني كه اومده بود سر قرار من نبودم داداشم بود خود من نتونستم بيام
اوني كه ميبيني من تو برنامه اين همه if گذاشتم به اين دليله كه بتونه واسه هر كدوم يه دونه عمل تعريف كنه و الا بقيه رو مثل تو نوشتم ميتونستم از case هم استفاده كنم ولي ديگه بيخيال
مخلصيم
----------------------
سينا

 

[MnavidM]

خوبه