من شنبه يا يكشنبه امتحان عملي ويژوال بسيك پيشرفته دارم لطفان كمك كنيد

[sinaset]

سلام دوستان همنجور كه گفتم من شنبه يا يكشنه امتحان عملي ويژوال بسيك دارم لطفان كمك كنيد اگر ويژوال رو پاسش كردم ديپلممممم رو مي گيرم به اميد خدا از شما مي خوام كه به من كمك كنيد سوال مهم با جواب رو بهم بديد خيلي خيلي ممنون مي شم اگر كمك كنيدددددد:20::10::11:

[soda_india]

salam ye mail bezar ye dictionary barat beferstam shayad be darde bokhore ya inke mail bezan be hoomanet_2000@yahoo.com

[majid_kntu]

ما كه سوال و جواب نداريم ننه!ولي دعاي ما پشت سرت!بهتر نبود تو طول ترم درس مي خوندي تا بخواي سوالاي مهم رو حفظ كني

[mamad_tk_pk]

الهي كه قبول بشي
ولي مجيد جان راست ميگه
من فكر نمي كنم 2 روزه بتوني چيزي ياد بگيري .

نه ........... فايده نداره:41:
خودت رو براي سري بعدي آماده كن:13:
بشر جايز الخطا است ديگر چه كنيم .
.
.
.
.
.
.
شوخي كردم داداش :31:
انشاالله قبول ميشي .
2 روز زياد هم هست
يه برنامه تفريحي هم مي توني بينش بزاري
و در كل اميدوارم كه رديف قبول بشي

[sinaset]

سلام به همگي
اقا من براي مدرك ويژوال بيسك 2بار تا حالا امتحان دادم كه اين دفعه قبول شدم در امتحان كتبي و چند روز ديگه امتحان عملي دارم خيلي تا حالا خوندم راستشو مي گم ولي اين عملي خيلي ساخته بايداز 100 بالا 70 بياري تا قبول بشي:41:
مي دونيددوستان مشكل چي؟ مشكلي اين كه بعضي موقعه كه امتحان مي دم سوال هاش رو براي بار اول مي ببينم يا شخصي با خلاقيت خودش يك برنامه درست مي كنه و به تو مگه برنامه نويسش كن و بعضي موقعه ها سوالش از اسون اسون تر ولي بعضي موقع ها :31:
من قبلان رايانه كار در جه1 و درجه 2 رو پاس كردم حالا مونده اين يكي يعني ويژوال بيسك پيشرفته اگر بگيرمش ديپلم من مي شه برنامه نويسي كامپيوتر انشالله:20:

حالا از شما يك چيزي مي خوام به من كمك كنيد چندتا سوال كه بنظر خودتون مهم ميايد رو بگييد يا اون بخش هايشو رو كه مهم هستن بگيد بيشتر بخونم اگر تونستيد يكي سوال به من بديد تا خودم حلش كنم خدا خيرتون بده:11::10:
---------------
ممنون از اينكه برام دعا كرديد:10::11:
منم براي شما دعا مي كنم توي زندگيتون هميشه موفق باشيد تقديم به شما:40::11::10:

[sinaset]

سلام
اقا كسي سوال ها مهم رو پيدا كرددد؟:20:

[mehdibarghi]

ما فقط میتونیم دعا کنیم .. چون اینقدر سوال میشه پرسید که حتی فکرشم نمیتونی بکنی ... ولی یه خورده علاقه داشته باشی قبول میشی

[MrJamshidy]

دعا هم نمیشه کرد چون همه چیز بر میگرده به خود طرف اینطور نیست که آدم تلاش نکنه بعد هم بگه "خوب دیگه خدایا منو قبول کنی ها!"

در این مورد من با مجید عزیز موافقم "بهتر نبود تو طول ترم درس مي خوندي تا بخواي سوالاي مهم رو حفظ كني"

ولی در کل امیدوارم همیشه موفق و پیروز باشی

[sinaset]

دعا هم نمیشه کرد چون همه چیز بر میگرده به خود طرف اینطور نیست که آدم تلاش نکنه بعد هم بگه "خوب دیگه خدایا منو قبول کنی ها!"

در این مورد من با مجید عزیز موافقم "بهتر نبود تو طول ترم درس مي خوندي تا بخواي سوالاي مهم رو حفظ كني"

ولی در کل امیدوارم همیشه موفق و پیروز باشی
سلام دوست من اول از همه تقديم به شماااااااااااا:11:
بعدشم من درسم رو مي خونم الان حدود 1 ماه دارم مي خونم شايد هم بيشتر علاقه هم دارم حتا خود ابتكاري هم دارم توي بعضي فرومول ها ولي دوست من در ويژوال بسيك پيشرفته فرمول ها زياد است ادم گمشون مي كنه مشكل همين جا تازه بعضي فرومول ها كمي پيچيده هستن
من مي گم خوندم ولي شما هم يك دعا كنيد ما قبول بشيمممممممم ديپلمون رو بگيريم:20::11:

[mamad_tk_pk]

دوست عزيز پس كي امتحان ميدي ؟؟؟؟؟
ما رو هم از نتيجه با خبر كن

[sinaset]

دوست عزيز پس كي امتحان ميدي ؟؟؟؟؟
ما رو هم از نتيجه با خبر كن
سلام ذوست عزيز
گفتن چهار شنبه صبح ساعت 8 بيايذ امتحان است
از نتيجه امتحان با خبرتون مي كنم
در شمن خيلي ممنون كه بع فكر من هستيذ تقديم به شما:11:

[bermuda_1367]

عزیز منم امتحان دارمم اگه سوالی دستت اومد منو یادت نره Mer30:10::10::10:

[majid_kntu]

سلام ذوست عزيز
گفتن چهار شنبه صبح ساعت 8 بيايذ امتحان است
از نتيجه امتحان با خبرتون مي كنم
در شمن خيلي ممنون كه بع فكر من هستيذ تقديم به شما:11:

طا هالا اينغدر قلت ديكطه اي يك جا نديده بودم.

[nibble]

سلام خب نتيجه چي شد ؟
اگر قبول شدي بگو ما هم از اين به بعد درس نخونيم

[sinaset]

عزیز منم امتحان دارمم اگه سوالی دستت اومد منو یادت نره Mer30:10::10::10:
سلام باشه روي چشم :10::11:

[majj]

ما فقط میتونیم دعا کنیم .. چون اینقدر سوال میشه پرسید که حتی فکرشم نمیتونی بکنی ... ولی یه خورده علاقه داشته باشی قبول میشی

سلام
دوست عزیز دستور if شما فاقد endif هست

[sinaset]

سلام دوستان من امتحان دادم
ولي امتحان زياد خوب نبودددددددد:41:

--------------------
يكي از سوال ها اين بود كه برنامه بنويسيد كه 10 عدد دريافت و بعد انها رو به صورت نزولي در ليست باكس قرار دهد
----------------
يكي ديگه از سوال ها اين بود برنامه بنويسيد كه نام و نام خانوادگي و ادرس و شمار شناسمه و +يك كمبو باكسي بسازيد كه جنسيت رو مشخص كندد و انها رو ذخير كنند در يك text ساد و يا ذخير كند در يك data base
---------
يكي برنامه بسازيد كه drive , dir , filelistbox +يك imagbox كه يك عكس رو نشان بده ولي فقط با پسوند jpg
-------------
برنامه بنوسيد كه به اساس روز هفته بگوييد امروز روز چندم هفته هست
------------
اگر كسي جواب اين سوال ها رو بلده ممنون مي شم بهم بگه

[MrJamshidy]

مگر امتحانت تموم نشده؟

[sinaset]

مگر امتحانت تموم نشده؟
چرا امتحانم تمام شد:20:
فقط حالا مي خوام جوابشو رو بدونم چي؟

[mehdibarghi]

منظورتون از if و end if چیه؟؟؟؟

[MrJamshidy]

سلام دوستان من امتحان دادم
ولي امتحان زياد خوب نبودددددددد:41:

--------------------
يكي از سوال ها اين بود كه برنامه بنويسيد كه 10 عدد دريافت و بعد انها رو به صورت نزولي در ليست باكس قرار دهد
----------------
يكي ديگه از سوال ها اين بود برنامه بنويسيد كه نام و نام خانوادگي و ادرس و شمار شناسمه و +يك كمبو باكسي بسازيد كه جنسيت رو مشخص كندد و انها رو ذخير كنند در يك text ساد و يا ذخير كند در يك data base
---------
يكي برنامه بسازيد كه drive , dir , filelistbox +يك imagbox كه يك عكس رو نشان بده ولي فقط با پسوند jpg
-------------
برنامه بنوسيد كه به اساس روز هفته بگوييد امروز روز چندم هفته هست
------------
اگر كسي جواب اين سوال ها رو بلده ممنون مي شم بهم بگه

برای سوال اولتون باید بگم لیست باکس خودش یک درستور Sorted داره
----------
سوال 2

Open "C:\A.TXT" For Binary As #1
Print #1, Name
Print #1, Family
...
Close #1

---------
سوال 3
امیدوارم بقیهش رو بلد باشید ولی برای این که یک فایل خاص رو ببینید خاصیت
Pattern رو برابر با

JPG.*

---------
سوال 4
این واسه بدست آوردن روز هفته بکار میاد ولی سوالت رو نفهمیدم
Weekday(Now, vbSaturday)

[sinaset]

برای سوال اولتون باید بگم لیست باکس خودش یک درستور Sorted داره
----------
سوال 2

Open "C:\A.TXT" For Binary As #1
Print #1, Name
Print #1, Family
...
Close #1

---------
سوال 3
امیدوارم بقیهش رو بلد باشید ولی برای این که یک فایل خاص رو ببینید خاصیت
Pattern رو برابر با

JPG.*

---------
سوال 4
این واسه بدست آوردن روز هفته بکار میاد ولی سوالت رو نفهمیدم

Weekday(Now, vbSaturday)

------------------------------------
در مورد سوال اولتون مي شه يك خورد توضيح كامل بديد من متوجه نمي شه ؟؟؟ جواب سوال رو مي تونيد بنويسيد

-------------
در مورد سوال دوم گفته بود كه فرم طراحي كنيد كه يك تكس باكس نام و يك تكس باكس فاميلي و يك تكس باكس شماره تلفن و يك كمبو باكس جنسيت (فقط داري دوگزينه مرد و زن)و يك تكس باكس در ان ادرس نوشته شود رو طراحي و بعد اين گزينه ها رو به دو صورت سيو كند يا به صورت تكس ساده و يا به صورت database سيو كند
و يك فرم به سازيد كه داري دو اپشين باتون باشد كه يكي از اپشن باتون كارش سرچ توي گزينه ها سيو شده به صورت متي ساده باشد و يك گزينه سرچ توي database باشد
---------------

در مورد سوال 3
اين فرمول رو بايد كجا نوشته شود در filelistbox يا dirيا driver كجا بايد نوشته شود و به چه صورتي نوشته شود
File1.Pattern = "(jpg)|*.jpg|"s
ايا بايد به صورت بالا نوشته شود(sكه نوشته شود براي هماهنگ كردن نوشته خارجي بود جزو فرمول نيست)
يك سوال ديگه هم است گفته كه يك گزينه باشد كه وقتي روش كليك كرديم تمام محتويات filelistbox پاك شود , ويك گزينه باشد كه هر وقت روش كليك كرديم در همان drivelistbox يك new folder ايجاد كند
-------------------------
سوال 4 گفته بود كه بر اساس اين كه روز هفته كه شروع مي شود بگوييد الان چندومين روز هفت است يني الان 1 روز هفته است يا 2 ومين يا ....
---------------
منظزره جواب شما هستم دوست خوبمممممممممممم:10::11:

[MrJamshidy]

------------------------------------
در مورد سوال اولتون مي شه يك خورد توضيح كامل بديد من متوجه نمي شه ؟؟؟ جواب سوال رو مي تونيد بنويسيد

-------------
در مورد سوال دوم گفته بود كه فرم طراحي كنيد كه يك تكس باكس نام و يك تكس باكس فاميلي و يك تكس باكس شماره تلفن و يك كمبو باكس جنسيت (فقط داري دوگزينه مرد و زن)و يك تكس باكس در ان ادرس نوشته شود رو طراحي و بعد اين گزينه ها رو به دو صورت سيو كند يا به صورت تكس ساده و يا به صورت database سيو كند
و يك فرم به سازيد كه داري دو اپشين باتون باشد كه يكي از اپشن باتون كارش سرچ توي گزينه ها سيو شده به صورت متي ساده باشد و يك گزينه سرچ توي database باشد
---------------

در مورد سوال 3
اين فرمول رو بايد كجا نوشته شود در filelistbox يا dirيا driver كجا بايد نوشته شود و به چه صورتي نوشته شود
File1.Pattern = "(jpg)|*.jpg|"s
ايا بايد به صورت بالا نوشته شود(sكه نوشته شود براي هماهنگ كردن نوشته خارجي بود جزو فرمول نيست)
يك سوال ديگه هم است گفته كه يك گزينه باشد كه وقتي روش كليك كرديم تمام محتويات filelistbox پاك شود , ويك گزينه باشد كه هر وقت روش كليك كرديم در همان drivelistbox يك new folder ايجاد كند
-------------------------
سوال 4 گفته بود كه بر اساس اين كه روز هفته كه شروع مي شود بگوييد الان چندومين روز هفت است يني الان 1 روز هفته است يا 2 ومين يا ....
---------------
منظزره جواب شما هستم دوست خوبمممممممممممم:10::11:


ببین دوست عزیز اینطوری نمیشه من واسه شما یک سورس میزارم بعد اگر سوالی داشتی بپرس

[MrJamshidy]

ببین دوست عزیز اینطوری نمیشه من واسه شما یک سورس میزارم بعد اگر سوالی داشتی بپرس

-ای بابا چرا نمیزاری

-چشم میزارم

-پس چی شد

-دارم روش کار میکنم

-زود باش دیگه

-خوب آماده شد
اینم لینکش:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

--
موفق باشید

[sinaset]

-ای بابا چرا نمیزاری

-چشم میزارم

-پس چی شد

-دارم روش کار میکنم

-زود باش دیگه

-خوب آماده شد
اینم لینکش:
[ برای مشاهده لینک ، لطفا با نام کاربری خود وارد شوید یا ثبت نام کنید ]

--
موفق باشید
--------
سلام دوست من از اينكه مي خواستيد پاسخ من رو بديد ممنون راستش ديگه نياز ندارم
من قبول شدممممممممممممممممممممممم مممم:11::11::11::11::11::11::11::11::11::11::1 1::11::11::11::11::11::11::11::11::11::11:
-------------------------
من ديپلممممممممممممممممممممم م رو گرفتممممممممممممممممممممم ممممممممممممممممم
:10::10::10::10::10::10::10::10:
كتبي 56
عملي 71
در كل قبول:31::31::20::20::20:
ممنون از همه دوستان كه براي من دعا كردن خيلي خيلي ممنون:46::5::5:

[MrJamshidy]

--------
سلام دوست من از اينكه مي خواستيد پاسخ من رو بديد ممنون راستش ديگه نياز ندارم
من قبول شدممممممممممممممممممممممم مممم:11::11::11::11::11::11::11::11::11::11::1 1::11::11::11::11::11::11::11::11::11::11:
-------------------------
من ديپلممممممممممممممممممممم م رو گرفتممممممممممممممممممممم ممممممممممممممممم
:10::10::10::10::10::10::10::10:
كتبي 56
عملي 71
در كل قبول:31::31::20::20::20:
ممنون از همه دوستان كه براي من دعا كردن خيلي خيلي ممنون:46::5::5:

خوب عالیه
امیدوارم در تمام مراحل زندگیتون موفق باشید

--
یا حق

[sajad boy]

حالا که میخوای سوالی به پرسیم پس میگم:
یه برنامه بنویس که اعداد فرد منفی را گرفته وتعداد اعداد منفی را در نوار عنوان نمایش دهد
خوب اگر جواب بدی احتمالا آمادگی امتحان دادن را داری
انشا الله قبول میشی

[MrJamshidy]

حالا که میخوای سوالی به پرسیم پس میگم:
یه برنامه بنویس که اعداد فرد منفی را گرفته وتعداد اعداد منفی را در نوار عنوان نمایش دهد
خوب اگر جواب بدی احتمالا آمادگی امتحان دادن را داری
انشا الله قبول میشی

دوست عزیز امتحانش رو داد قبول هم شد ولی شیرنی نداد
حالا تازه شما اومدی میگی گاوش نر بود یا ماده

[sinaset]

حالا که میخوای سوالی به پرسیم پس میگم:
یه برنامه بنویس که اعداد فرد منفی را گرفته وتعداد اعداد منفی را در نوار عنوان نمایش دهد
خوب اگر جواب بدی احتمالا آمادگی امتحان دادن را داری
انشا الله قبول میشی
ممنون دوست من كه به فكر من بوديد تقديم به شما:11:
ولي من امتحان رو قبول شدم رفتتتتتتتتتتتتتت
شكر خدا:20:
دستت درد نكون در كل
-----------------------------
شيرني نداريم ولي اين جاش بهتون مي دم:11:
دوستان خوبم:10::11:

[MrJamshidy]

:10: خوب برای چی میزنی رو دستم که بعد با اونجور دنده هام رو خورد کنی:46:

به هر حال من کار ندارم باید شیرنی رو بفرستی در خونمون وگرنه زنگ میزنم آموزش پرورش میگم شیرنی ندادی اونا هم بن میکننت ها اااااااا یعنی دیپلمت رو باطل میکنن:27:

--
در هر صورت موفق باشید

[sinaset]

:10: خوب برای چی میزنی رو دستم که بعد با اونجور دنده هام رو خورد کنی:46:

به هر حال من کار ندارم باید شیرنی رو بفرستی در خونمون وگرنه زنگ میزنم آموزش پرورش میگم شیرنی ندادی اونا هم بن میکننت ها اااااااا یعنی دیپلمت رو باطل میکنن:27:

--
در هر صورت موفق باشید
اقا اين كار رو نكونياااااااااااااااااااا ا:18:
:31::20:
ما با هم رفيقيممم:31::18:
اين گل فعلان از ما داشته باش:11:(اگه مي شه واسي هميشه از ما داشته باش)
دوستتتتتتتتتتتت خوبمممممممممممممممممممممم ممممممممممممممممممممممممم مممممم
ممممممممممممممممممممممممم ممممممممممممممممممممممممم مم
ممممممممممممممممممممممممم ممممممممممممممممممممممممم ممم
ممممممممممممممممممممممممم ممممممممممممممممممممممممم ممممممممممممممم
ممممممممممممممممممممممممم ممممممممممممممممممممممممم ممممممممممممم
ممممممممممممممممممممممممم ممممممممممممممممممممممممم ممممممممممم
ممممممممممممممممممممممممم ممممممممممممممممممممممممم مممم
:11::11::11::11::11::11::11::11::11::11::11::11::1 1:

[hamidak]

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

[MrJamshidy]

در ابتدا ورود شما رو به P30World تبریک میگم

دوست عزیز شما کجاش موندی بگو تا توضیح بدم

[hamidak]

مرسی ولی من تاریخ عضویتم جدید به نظر نمیاد

ممنون من اول برنامه اول رو می پرسم :
در کنترل CmdAdd کد Trim چیه ؟ اون بزرگ و کوچیکتر که در دستور اول گذاشتین چی ؟ بعد برنامه چطور داده ی اشتباه رو تشخیص میده در این برنامه و ارور میده ؟ چطور میشه اعداد اعشاری رو هم به اینصورت در برنامه به کار برد ؟
در مورد این کد این کنترل ( CmdSort ) هم اگه توضیح بدین ممنون میشم
خیلی ممنون و متشکر از لطف شما

[MrJamshidy]

میتونم بپرسم چرا پست هات اینقدر کمه؟

کد Trim فاصله ها رو از آخر و اول جمله حذف میکنه تا اگر کاربر اول یا آخر جمله فاصله داد برنامه با مشکل مواجه نشه

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

منظور شما از داده توی کدوم قسمتشه؟

درستور های به کار برده شده در این دستور اول یکی یکی اعداد رو چک میکنه بعد الان شرط یادم نمیاد اما در صورت درست بودن شرط اون فیلد رو پاک میکنه و دوباره اضافه میکنه

[sinaset]

سلام دوستان خيلي خيلي ببخشيد كه وسط حرفتون پريدم داخل
يك پيشنهاد دارم يك ساعتي رو مشخص كنيد اون بشيد باهم حرف بزنيد اينطوري فكر كنم جواب ها كامل تر خواهد بود:20::10::11:

[MrJamshidy]

سلام دوستان خيلي خيلي ببخشيد كه وسط حرفتون پريدم داخل
يك پيشنهاد دارم يك ساعتي رو مشخص كنيد اون بشيد باهم حرف بزنيد اينطوري فكر كنم جواب ها كامل تر خواهد بود:20::10::11:
موافقم و تشکر بابت پیشنهاد اما باید یک نکته رو در نظر گرفت
شاید کس دیگه ای هم این سورس رو بگیره و همین سوال ها براش پیش بیاد باز باید براش توضیح بدم و این کار آدم رو سخت میکنه

من تمام طول شبانه روز آنلاین هستم مگر بخوابم یا مشکلی برای کانکشنم پیش بیاد که ایزی تو کال سر تا پا مشکله

[hamidak]

میتونم بپرسم چرا پست هات اینقدر کمه؟

کد Trim فاصله ها رو از آخر و اول جمله حذف میکنه تا اگر کاربر اول یا آخر جمله فاصله داد برنامه با مشکل مواجه نشه

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

منظور شما از داده توی کدوم قسمتشه؟

درستور های به کار برده شده در این دستور اول یکی یکی اعداد رو چک میکنه بعد الان شرط یادم نمیاد اما در صورت درست بودن شرط اون فیلد رو پاک میکنه و دوباره اضافه میکنه
Private Sub CmdSort_Click(Index As Integer)
Dim i As Integer, i2 As Integer, Hold$
Select Case Index
Case 0

For i = 0 To LstNumbers.ListCount - 1

For i2 = 0 To LstNumbers.ListCount - 1
If i <> i2 Then

ValPer1 = Val(LstNumbers.List(i))

ValPer2 = Val(LstNumbers.List(i2))

If ValPer1 < ValPer2 Then

Hold = LstNumbers.List(i)

LstNumbers.List(i) = LstNumbers.List(i2)

LstNumbers.List(i2) = Hold

End If

End If

Next

Next
Case 1
For i = 0 To LstNumbers.ListCount - 1

For i2 = 0 To LstNumbers.ListCount - 1

If i <> i2 Then


ValPer1 = Val(LstNumbers.List(i))

ValPer2 = Val(LstNumbers.List(i2))

If ValPer1 > ValPer2 Then

Hold = LstNumbers.List(i)

LstNumbers.List(i) = LstNumbers.List(i2)

LstNumbers.List(i2) = Hold

End If

End If

Next

Next
End Select
End Sub

اینو می گفتم که برام توضیح بدین می دونم سادست ولی خب من یه کم مشکل دارم. در ضمن من نمی دونم وضعیت اضافه شدن پست ها در پی سی چطوریه من فعالیتم بد نبوده البته درسته من یه مدت نبودم ولی خب حداقل فکر می کنم بالای 50 پست تا حالا زده باشم .
یه سوال دیگه : وقتی عدد 045 رو به برنامه میدیم مقدار رو درست sort می کنه ولی می خوام عدد رو مثلا به 45 ویرایش کنه و صفر اضافی رو برداره . لطفا راهنماییم کنید.
ممنون

[MrJamshidy]

Private Sub CmdSort_Click(Index As Integer)
Dim i As Integer, i2 As Integer, Hold$
Select Case Index
Case 0

For i = 0 To LstNumbers.ListCount - 1

For i2 = 0 To LstNumbers.ListCount - 1
If i <> i2 Then

ValPer1 = Val(LstNumbers.List(i))

ValPer2 = Val(LstNumbers.List(i2))

If ValPer1 < ValPer2 Then

Hold = LstNumbers.List(i)

LstNumbers.List(i) = LstNumbers.List(i2)

LstNumbers.List(i2) = Hold

End If

End If

Next

Next
Case 1
For i = 0 To LstNumbers.ListCount - 1

For i2 = 0 To LstNumbers.ListCount - 1

If i <> i2 Then


ValPer1 = Val(LstNumbers.List(i))

ValPer2 = Val(LstNumbers.List(i2))

If ValPer1 > ValPer2 Then

Hold = LstNumbers.List(i)

LstNumbers.List(i) = LstNumbers.List(i2)

LstNumbers.List(i2) = Hold

End If

End If

Next

Next
End Select
End Sub

اینو می گفتم که برام توضیح بدین می دونم سادست ولی خب من یه کم مشکل دارم. در ضمن من نمی دونم وضعیت اضافه شدن پست ها در پی سی چطوریه من فعالیتم بد نبوده البته درسته من یه مدت نبودم ولی خب حداقل فکر می کنم بالای 50 پست تا حالا زده باشم .
یه سوال دیگه : وقتی عدد 045 رو به برنامه میدیم مقدار رو درست sort می کنه ولی می خوام عدد رو مثلا به 45 ویرایش کنه و صفر اضافی رو برداره . لطفا راهنماییم کنید.
ممنون

در مورد اینکه زمانی که 045 رو وارد میکنی 45 رو اضافه کنه میتونی از کد زیر استفاده کنی



برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید


من نمیتونم این رو برات توضیح بدم چون خودم ننوشتم و فقط کپی کردم
و حوصله تجزیه کردنش رو ندارم اگر یکی دیگه این زحمت رو برات بکشه ممنون میشم

[mehdibarghi]

لطفاً کدهایی رو که میزارید از چپ به راست باشه که بشه بخوانیش ... نمیشه همش کپی پیست کنیم تو ورد و ...

[hamidak]

آقا مهدی اینا که چپ به راسته شاید مساله از کامپیوتر شماست .

[mehdibarghi]

منظورم تنظیمات پرانتزاشونو از این جور چیزا هست ، و اگر نه برو بچز p30 بی کار نبودن یه گزینه به اسم کد درست کنن !!!

[hamidak]

من نمی دونم شما چه مشکلی با اون پرانتزا و .... دارین همه چی برای من سر جاشه .... به هر حال چشم از این به بعد از اون گزینه ی کد استفاده می کنم ... خوبه ؟

[MrJamshidy]

کاش قبل از پست دادن یک نگاهی هم به تاریخ ها بندازید

[mehdibarghi]

آقا دستتون درد نکنه ... ممنون که به فکر ما هم هستید ...