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

واضح آرشیو وب فارسی:سایت ریسک: sinaset13-02-2008, 05:38 PMسلام دوستان همنجور كه گفتم من شنبه يا يكشنه امتحان عملي ويژوال بسيك دارم لطفان كمك كنيد اگر ويژوال رو پاسش كردم ديپلممممم رو مي گيرم به اميد خدا از شما مي خوام كه به من كمك كنيد سوال مهم با جواب رو بهم بديد خيلي خيلي ممنون مي شم اگر كمك كنيدددددد:20::10::11: soda_india13-02-2008, 07:47 PMsalam ye mail bezar ye dictionary barat beferstam shayad be darde bokhore ya inke mail bezan be [email protected] majid_kntu13-02-2008, 09:32 PMما كه سوال و جواب نداريم ننه!ولي دعاي ما پشت سرت!بهتر نبود تو طول ترم درس مي خوندي تا بخواي سوالاي مهم رو حفظ كني mamad_tk_pk14-02-2008, 12:38 AMالهي كه قبول بشي ولي مجيد جان راست ميگه من فكر نمي كنم 2 روزه بتوني چيزي ياد بگيري . نه ........... فايده نداره:41: خودت رو براي سري بعدي آماده كن:13: بشر جايز الخطا است ديگر چه كنيم . . . . . . . شوخي كردم داداش :31: انشاالله قبول ميشي . 2 روز زياد هم هست يه برنامه تفريحي هم مي توني بينش بزاري و در كل اميدوارم كه رديف قبول بشي sinaset14-02-2008, 10:17 AMسلام به همگي اقا من براي مدرك ويژوال بيسك 2بار تا حالا امتحان دادم كه اين دفعه قبول شدم در امتحان كتبي و چند روز ديگه امتحان عملي دارم خيلي تا حالا خوندم راستشو مي گم ولي اين عملي خيلي ساخته بايداز 100 بالا 70 بياري تا قبول بشي:41: مي دونيددوستان مشكل چي؟ مشكلي اين كه بعضي موقعه كه امتحان مي دم سوال هاش رو براي بار اول مي ببينم يا شخصي با خلاقيت خودش يك برنامه درست مي كنه و به تو مگه برنامه نويسش كن و بعضي موقعه ها سوالش از اسون اسون تر ولي بعضي موقع ها :31: من قبلان رايانه كار در جه1 و درجه 2 رو پاس كردم حالا مونده اين يكي يعني ويژوال بيسك پيشرفته اگر بگيرمش ديپلم من مي شه برنامه نويسي كامپيوتر انشالله:20: حالا از شما يك چيزي مي خوام به من كمك كنيد چندتا سوال كه بنظر خودتون مهم ميايد رو بگييد يا اون بخش هايشو رو كه مهم هستن بگيد بيشتر بخونم اگر تونستيد يكي سوال به من بديد تا خودم حلش كنم خدا خيرتون بده:11::10: --------------- ممنون از اينكه برام دعا كرديد:10::11: منم براي شما دعا مي كنم توي زندگيتون هميشه موفق باشيد تقديم به شما:40::11::10: sinaset15-02-2008, 09:50 AMسلام اقا كسي سوال ها مهم رو پيدا كرددد؟:20: mehdibarghi18-02-2008, 12:45 AMما فقط میتونیم دعا کنیم .. چون اینقدر سوال میشه پرسید که حتی فکرشم نمیتونی بکنی ... ولی یه خورده علاقه داشته باشی قبول میشی MrJamshidy18-02-2008, 01:55 AMدعا هم نمیشه کرد چون همه چیز بر میگرده به خود طرف اینطور نیست که آدم تلاش نکنه بعد هم بگه "خوب دیگه خدایا منو قبول کنی ها!" در این مورد من با مجید عزیز موافقم "بهتر نبود تو طول ترم درس مي خوندي تا بخواي سوالاي مهم رو حفظ كني" ولی در کل امیدوارم همیشه موفق و پیروز باشی sinaset18-02-2008, 11:07 AMدعا هم نمیشه کرد چون همه چیز بر میگرده به خود طرف اینطور نیست که آدم تلاش نکنه بعد هم بگه "خوب دیگه خدایا منو قبول کنی ها!" در این مورد من با مجید عزیز موافقم "بهتر نبود تو طول ترم درس مي خوندي تا بخواي سوالاي مهم رو حفظ كني" ولی در کل امیدوارم همیشه موفق و پیروز باشی سلام دوست من اول از همه تقديم به شماااااااااااا:11: بعدشم من درسم رو مي خونم الان حدود 1 ماه دارم مي خونم شايد هم بيشتر علاقه هم دارم حتا خود ابتكاري هم دارم توي بعضي فرومول ها ولي دوست من در ويژوال بسيك پيشرفته فرمول ها زياد است ادم گمشون مي كنه مشكل همين جا تازه بعضي فرومول ها كمي پيچيده هستن من مي گم خوندم ولي شما هم يك دعا كنيد ما قبول بشيمممممممم ديپلمون رو بگيريم:20::11: mamad_tk_pk18-02-2008, 07:55 PMدوست عزيز پس كي امتحان ميدي ؟؟؟؟؟ ما رو هم از نتيجه با خبر كن sinaset18-02-2008, 09:37 PMدوست عزيز پس كي امتحان ميدي ؟؟؟؟؟ ما رو هم از نتيجه با خبر كن سلام ذوست عزيز گفتن چهار شنبه صبح ساعت 8 بيايذ امتحان است از نتيجه امتحان با خبرتون مي كنم در شمن خيلي ممنون كه بع فكر من هستيذ تقديم به شما:11: bermuda_136718-02-2008, 11:05 PMعزیز منم امتحان دارمم اگه سوالی دستت اومد منو یادت نره Mer30:10::10::10: majid_kntu18-02-2008, 11:40 PMسلام ذوست عزيز گفتن چهار شنبه صبح ساعت 8 بيايذ امتحان است از نتيجه امتحان با خبرتون مي كنم در شمن خيلي ممنون كه بع فكر من هستيذ تقديم به شما:11: طا هالا اينغدر قلت ديكطه اي يك جا نديده بودم. nibble19-02-2008, 07:11 AMسلام خب نتيجه چي شد ؟ اگر قبول شدي بگو ما هم از اين به بعد درس نخونيم sinaset19-02-2008, 11:41 AMعزیز منم امتحان دارمم اگه سوالی دستت اومد منو یادت نره Mer30:10::10::10: سلام باشه روي چشم :10::11: majj19-02-2008, 12:33 PMما فقط میتونیم دعا کنیم .. چون اینقدر سوال میشه پرسید که حتی فکرشم نمیتونی بکنی ... ولی یه خورده علاقه داشته باشی قبول میشی سلام دوست عزیز دستور if شما فاقد endif هست sinaset20-02-2008, 11:41 AMسلام دوستان من امتحان دادم ولي امتحان زياد خوب نبودددددددد:41: -------------------- يكي از سوال ها اين بود كه برنامه بنويسيد كه 10 عدد دريافت و بعد انها رو به صورت نزولي در ليست باكس قرار دهد ---------------- يكي ديگه از سوال ها اين بود برنامه بنويسيد كه نام و نام خانوادگي و ادرس و شمار شناسمه و +يك كمبو باكسي بسازيد كه جنسيت رو مشخص كندد و انها رو ذخير كنند در يك text ساد و يا ذخير كند در يك data base --------- يكي برنامه بسازيد كه drive , dir , filelistbox +يك imagbox كه يك عكس رو نشان بده ولي فقط با پسوند jpg ------------- برنامه بنوسيد كه به اساس روز هفته بگوييد امروز روز چندم هفته هست ------------ اگر كسي جواب اين سوال ها رو بلده ممنون مي شم بهم بگه MrJamshidy20-02-2008, 08:18 PMمگر امتحانت تموم نشده؟ sinaset20-02-2008, 09:24 PMمگر امتحانت تموم نشده؟ چرا امتحانم تمام شد:20: فقط حالا مي خوام جوابشو رو بدونم چي؟ mehdibarghi21-02-2008, 04:14 PMمنظورتون از if و end if چیه؟؟؟؟ MrJamshidy22-02-2008, 12:08 AMسلام دوستان من امتحان دادم ولي امتحان زياد خوب نبودددددددد: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) sinaset22-02-2008, 11:30 AMبرای سوال اولتون باید بگم لیست باکس خودش یک درستور 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: MrJamshidy23-02-2008, 06:17 AM------------------------------------ در مورد سوال اولتون مي شه يك خورد توضيح كامل بديد من متوجه نمي شه ؟؟؟ جواب سوال رو مي تونيد بنويسيد ------------- در مورد سوال دوم گفته بود كه فرم طراحي كنيد كه يك تكس باكس نام و يك تكس باكس فاميلي و يك تكس باكس شماره تلفن و يك كمبو باكس جنسيت (فقط داري دوگزينه مرد و زن)و يك تكس باكس در ان ادرس نوشته شود رو طراحي و بعد اين گزينه ها رو به دو صورت سيو كند يا به صورت تكس ساده و يا به صورت database سيو كند و يك فرم به سازيد كه داري دو اپشين باتون باشد كه يكي از اپشن باتون كارش سرچ توي گزينه ها سيو شده به صورت متي ساده باشد و يك گزينه سرچ توي database باشد --------------- در مورد سوال 3 اين فرمول رو بايد كجا نوشته شود در filelistbox يا dirيا driver كجا بايد نوشته شود و به چه صورتي نوشته شود File1.Pattern = "(jpg)|*.jpg|"s ايا بايد به صورت بالا نوشته شود(sكه نوشته شود براي هماهنگ كردن نوشته خارجي بود جزو فرمول نيست) يك سوال ديگه هم است گفته كه يك گزينه باشد كه وقتي روش كليك كرديم تمام محتويات filelistbox پاك شود , ويك گزينه باشد كه هر وقت روش كليك كرديم در همان drivelistbox يك new folder ايجاد كند ------------------------- سوال 4 گفته بود كه بر اساس اين كه روز هفته كه شروع مي شود بگوييد الان چندومين روز هفت است يني الان 1 روز هفته است يا 2 ومين يا .... --------------- منظزره جواب شما هستم دوست خوبمممممممممممم:10::11: ببین دوست عزیز اینطوری نمیشه من واسه شما یک سورس میزارم بعد اگر سوالی داشتی بپرس MrJamshidy23-02-2008, 08:36 AMببین دوست عزیز اینطوری نمیشه من واسه شما یک سورس میزارم بعد اگر سوالی داشتی بپرس -ای بابا چرا نمیزاری -چشم میزارم -پس چی شد -دارم روش کار میکنم -زود باش دیگه -خوب آماده شد اینم لینکش: http://new.iranupload.net/file.php?file=7f7803c102d 47c9ae4478a 3476b 0b 9bb -- موفق باشید sinaset23-02-2008, 11:40 AM-ای بابا چرا نمیزاری -چشم میزارم -پس چی شد -دارم روش کار میکنم -زود باش دیگه -خوب آماده شد اینم لینکش: http://new.iranupload.net/file.php?file=7f7803c102d 47c9ae4478a 3476b 0b 9bb -- موفق باشید -------- سلام دوست من از اينكه مي خواستيد پاسخ من رو بديد ممنون راستش ديگه نياز ندارم من قبول شدممممممممممممممممممممممم مممم: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: MrJamshidy23-02-2008, 04:39 PM-------- سلام دوست من از اينكه مي خواستيد پاسخ من رو بديد ممنون راستش ديگه نياز ندارم من قبول شدممممممممممممممممممممممم مممم: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 boy28-02-2008, 02:34 AMحالا که میخوای سوالی به پرسیم پس میگم: یه برنامه بنویس که اعداد فرد منفی را گرفته وتعداد اعداد منفی را در نوار عنوان نمایش دهد خوب اگر جواب بدی احتمالا آمادگی امتحان دادن را داری انشا الله قبول میشی MrJamshidy28-02-2008, 07:14 AMحالا که میخوای سوالی به پرسیم پس میگم: یه برنامه بنویس که اعداد فرد منفی را گرفته وتعداد اعداد منفی را در نوار عنوان نمایش دهد خوب اگر جواب بدی احتمالا آمادگی امتحان دادن را داری انشا الله قبول میشی دوست عزیز امتحانش رو داد قبول هم شد ولی شیرنی نداد حالا تازه شما اومدی میگی گاوش نر بود یا ماده sinaset28-02-2008, 11:53 AMحالا که میخوای سوالی به پرسیم پس میگم: یه برنامه بنویس که اعداد فرد منفی را گرفته وتعداد اعداد منفی را در نوار عنوان نمایش دهد خوب اگر جواب بدی احتمالا آمادگی امتحان دادن را داری انشا الله قبول میشی ممنون دوست من كه به فكر من بوديد تقديم به شما:11: ولي من امتحان رو قبول شدم رفتتتتتتتتتتتتتت شكر خدا:20: دستت درد نكون در كل ----------------------------- شيرني نداريم ولي اين جاش بهتون مي دم:11: دوستان خوبم:10::11: MrJamshidy29-02-2008, 10:24 AM:10: خوب برای چی میزنی رو دستم که بعد با اونجور دنده هام رو خورد کنی:46: به هر حال من کار ندارم باید شیرنی رو بفرستی در خونمون وگرنه زنگ میزنم آموزش پرورش میگم شیرنی ندادی اونا هم بن میکننت ها اااااااا یعنی دیپلمت رو باطل میکنن:27: -- در هر صورت موفق باشید sinaset29-02-2008, 12:02 PM:10: خوب برای چی میزنی رو دستم که بعد با اونجور دنده هام رو خورد کنی:46: به هر حال من کار ندارم باید شیرنی رو بفرستی در خونمون وگرنه زنگ میزنم آموزش پرورش میگم شیرنی ندادی اونا هم بن میکننت ها اااااااا یعنی دیپلمت رو باطل میکنن:27: -- در هر صورت موفق باشید اقا اين كار رو نكونياااااااااااااااااااا ا:18: :31::20: ما با هم رفيقيممم:31::18: اين گل فعلان از ما داشته باش:11:(اگه مي شه واسي هميشه از ما داشته باش) دوستتتتتتتتتتتت خوبمممممممممممممممممممممم ممممممممممممممممممممممممم مممممم ممممممممممممممممممممممممم ممممممممممممممممممممممممم مم ممممممممممممممممممممممممم ممممممممممممممممممممممممم ممم ممممممممممممممممممممممممم ممممممممممممممممممممممممم ممممممممممممممم ممممممممممممممممممممممممم ممممممممممممممممممممممممم ممممممممممممم ممممممممممممممممممممممممم ممممممممممممممممممممممممم ممممممممممم ممممممممممممممممممممممممم ممممممممممممممممممممممممم مممم :11::11::11::11::11::11::11::11::11::11::11::11::1 1: hamidak29-02-2008, 07:32 PMآقای جمشیدی کاش میشد که در مورد برنامه ها یه کم توضیح هم بدی که چیشد اونجا اینطور شد و همچنین کامل البته فعلا اگه اولی رو توضیح بدی خیلی خوبه من سورس رو گرفتم و اجرا کردم خیلی وقته دنبال همچین چیزی می گشتم عالی بود . اگه لطف کنی کامل در موردش توضیح بدی ممنون میشم من حدودا یه هفتست که شروع کردم وی بی رو . پیشا پیش از لطفت ممنون MrJamshidy01-03-2008, 06:13 PMدر ابتدا ورود شما رو به P30World تبریک میگم دوست عزیز شما کجاش موندی بگو تا توضیح بدم hamidak02-03-2008, 06:53 AMمرسی ولی من تاریخ عضویتم جدید به نظر نمیاد ممنون من اول برنامه اول رو می پرسم : در کنترل CmdAdd کد Trim چیه ؟ اون بزرگ و کوچیکتر که در دستور اول گذاشتین چی ؟ بعد برنامه چطور داده ی اشتباه رو تشخیص میده در این برنامه و ارور میده ؟ چطور میشه اعداد اعشاری رو هم به اینصورت در برنامه به کار برد ؟ در مورد این کد این کنترل ( CmdSort ) هم اگه توضیح بدین ممنون میشم خیلی ممنون و متشکر از لطف شما MrJamshidy02-03-2008, 01:18 PMمیتونم بپرسم چرا پست هات اینقدر کمه؟ کد Trim فاصله ها رو از آخر و اول جمله حذف میکنه تا اگر کاربر اول یا آخر جمله فاصله داد برنامه با مشکل مواجه نشه من سورس برنامه رو پاک کردم اگر ممکنه دستور رو بنویسید منظور شما از داده توی کدوم قسمتشه؟ درستور های به کار برده شده در این دستور اول یکی یکی اعداد رو چک میکنه بعد الان شرط یادم نمیاد اما در صورت درست بودن شرط اون فیلد رو پاک میکنه و دوباره اضافه میکنه sinaset02-03-2008, 02:00 PMسلام دوستان خيلي خيلي ببخشيد كه وسط حرفتون پريدم داخل يك پيشنهاد دارم يك ساعتي رو مشخص كنيد اون بشيد باهم حرف بزنيد اينطوري فكر كنم جواب ها كامل تر خواهد بود:20::10::11: MrJamshidy02-03-2008, 07:12 PMسلام دوستان خيلي خيلي ببخشيد كه وسط حرفتون پريدم داخل يك پيشنهاد دارم يك ساعتي رو مشخص كنيد اون بشيد باهم حرف بزنيد اينطوري فكر كنم جواب ها كامل تر خواهد بود:20::10::11: موافقم و تشکر بابت پیشنهاد اما باید یک نکته رو در نظر گرفت شاید کس دیگه ای هم این سورس رو بگیره و همین سوال ها براش پیش بیاد باز باید براش توضیح بدم و این کار آدم رو سخت میکنه من تمام طول شبانه روز آنلاین هستم مگر بخوابم یا مشکلی برای کانکشنم پیش بیاد که ایزی تو کال سر تا پا مشکله hamidak02-03-2008, 09:14 PMمیتونم بپرسم چرا پست هات اینقدر کمه؟ کد 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 ویرایش کنه و صفر اضافی رو برداره . لطفا راهنماییم کنید. ممنون MrJamshidy02-03-2008, 09:45 PMPrivate 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 رو اضافه کنه میتونی از کد زیر استفاده کنی !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! من نمیتونم این رو برات توضیح بدم چون خودم ننوشتم و فقط کپی کردم و حوصله تجزیه کردنش رو ندارم اگر یکی دیگه این زحمت رو برات بکشه ممنون میشم mehdibarghi03-03-2008, 12:20 AMلطفاً کدهایی رو که میزارید از چپ به راست باشه که بشه بخوانیش ... نمیشه همش کپی پیست کنیم تو ورد و ... hamidak04-03-2008, 09:58 PMآقا مهدی اینا که چپ به راسته شاید مساله از کامپیوتر شماست . mehdibarghi04-03-2008, 11:14 PMمنظورم تنظیمات پرانتزاشونو از این جور چیزا هست ، و اگر نه برو بچز p30 بی کار نبودن یه گزینه به اسم کد درست کنن !!! hamidak08-03-2008, 09:56 AMمن نمی دونم شما چه مشکلی با اون پرانتزا و .... دارین همه چی برای من سر جاشه .... به هر حال چشم از این به بعد از اون گزینه ی کد استفاده می کنم ... خوبه ؟ MrJamshidy08-03-2008, 06:28 PMکاش قبل از پست دادن یک نگاهی هم به تاریخ ها بندازید mehdibarghi08-03-2008, 06:42 PMآقا دستتون درد نکنه ... ممنون که به فکر ما هم هستید ... سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود

این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]

[مشاهده در: www.ri3k.eu]

[تعداد بازديد از اين مطلب: 305]