ورود

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



sinaset
13-02-2008, 17:38
سلام دوستان همنجور كه گفتم من شنبه يا يكشنه امتحان عملي ويژوال بسيك دارم لطفان كمك كنيد اگر ويژوال رو پاسش كردم ديپلممممم رو مي گيرم به اميد خدا از شما مي خوام كه به من كمك كنيد سوال مهم با جواب رو بهم بديد خيلي خيلي ممنون مي شم اگر كمك كنيدددددد:20::10::11:

soda_india
13-02-2008, 19:47
salam ye mail bezar ye dictionary barat beferstam shayad be darde bokhore ya inke mail bezan be hoomanet_2000@yahoo.com

majid_kntu
13-02-2008, 21:32
ما كه سوال و جواب نداريم ننه!ولي دعاي ما پشت سرت!بهتر نبود تو طول ترم درس مي خوندي تا بخواي سوالاي مهم رو حفظ كني

mamad_tk_pk
14-02-2008, 00:38
الهي كه قبول بشي
ولي مجيد جان راست ميگه
من فكر نمي كنم 2 روزه بتوني چيزي ياد بگيري .

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

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

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

sinaset
15-02-2008, 09:50
سلام
اقا كسي سوال ها مهم رو پيدا كرددد؟:20:

mehdibarghi
18-02-2008, 00:45
ما فقط میتونیم دعا کنیم .. چون اینقدر سوال میشه پرسید که حتی فکرشم نمیتونی بکنی ... ولی یه خورده علاقه داشته باشی قبول میشی

MrJamshidy
18-02-2008, 01:55
دعا هم نمیشه کرد چون همه چیز بر میگرده به خود طرف اینطور نیست که آدم تلاش نکنه بعد هم بگه "خوب دیگه خدایا منو قبول کنی ها!"

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

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

sinaset
18-02-2008, 11:07
دعا هم نمیشه کرد چون همه چیز بر میگرده به خود طرف اینطور نیست که آدم تلاش نکنه بعد هم بگه "خوب دیگه خدایا منو قبول کنی ها!"

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

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

mamad_tk_pk
18-02-2008, 19:55
دوست عزيز پس كي امتحان ميدي ؟؟؟؟؟
ما رو هم از نتيجه با خبر كن

sinaset
18-02-2008, 21:37
دوست عزيز پس كي امتحان ميدي ؟؟؟؟؟
ما رو هم از نتيجه با خبر كن
سلام ذوست عزيز
گفتن چهار شنبه صبح ساعت 8 بيايذ امتحان است
از نتيجه امتحان با خبرتون مي كنم
در شمن خيلي ممنون كه بع فكر من هستيذ تقديم به شما:11:

bermuda_1367
18-02-2008, 23:05
عزیز منم امتحان دارمم اگه سوالی دستت اومد منو یادت نره Mer30:10::10::10:

majid_kntu
18-02-2008, 23:40
سلام ذوست عزيز
گفتن چهار شنبه صبح ساعت 8 بيايذ امتحان است
از نتيجه امتحان با خبرتون مي كنم
در شمن خيلي ممنون كه بع فكر من هستيذ تقديم به شما:11:

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

nibble
19-02-2008, 07:11
سلام خب نتيجه چي شد ؟
اگر قبول شدي بگو ما هم از اين به بعد درس نخونيم

sinaset
19-02-2008, 11:41
عزیز منم امتحان دارمم اگه سوالی دستت اومد منو یادت نره Mer30:10::10::10:
سلام باشه روي چشم :10::11:

majj
19-02-2008, 12:33
ما فقط میتونیم دعا کنیم .. چون اینقدر سوال میشه پرسید که حتی فکرشم نمیتونی بکنی ... ولی یه خورده علاقه داشته باشی قبول میشی

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

sinaset
20-02-2008, 11:41
سلام دوستان من امتحان دادم
ولي امتحان زياد خوب نبودددددددد:41:

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

MrJamshidy
20-02-2008, 20:18
مگر امتحانت تموم نشده؟

sinaset
20-02-2008, 21:24
مگر امتحانت تموم نشده؟
چرا امتحانم تمام شد:20:
فقط حالا مي خوام جوابشو رو بدونم چي؟

mehdibarghi
21-02-2008, 16:14
منظورتون از if و end if چیه؟؟؟؟

MrJamshidy
22-02-2008, 00:08
سلام دوستان من امتحان دادم
ولي امتحان زياد خوب نبودددددددد: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
22-02-2008, 11:30
برای سوال اولتون باید بگم لیست باکس خودش یک درستور 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
23-02-2008, 06:17
------------------------------------
در مورد سوال اولتون مي شه يك خورد توضيح كامل بديد من متوجه نمي شه ؟؟؟ جواب سوال رو مي تونيد بنويسيد

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

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


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

MrJamshidy
23-02-2008, 08:36
ببین دوست عزیز اینطوری نمیشه من واسه شما یک سورس میزارم بعد اگر سوالی داشتی بپرس

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

-چشم میزارم

-پس چی شد

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

-زود باش دیگه

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

--
موفق باشید

sinaset
23-02-2008, 11:40
-ای بابا چرا نمیزاری

-چشم میزارم

-پس چی شد

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

-زود باش دیگه

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

--
موفق باشید
--------
سلام دوست من از اينكه مي خواستيد پاسخ من رو بديد ممنون راستش ديگه نياز ندارم
من قبول شدممممممممممممممممممممممم مممم: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
23-02-2008, 16:39
--------
سلام دوست من از اينكه مي خواستيد پاسخ من رو بديد ممنون راستش ديگه نياز ندارم
من قبول شدممممممممممممممممممممممم مممم: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
28-02-2008, 02:34
حالا که میخوای سوالی به پرسیم پس میگم:
یه برنامه بنویس که اعداد فرد منفی را گرفته وتعداد اعداد منفی را در نوار عنوان نمایش دهد
خوب اگر جواب بدی احتمالا آمادگی امتحان دادن را داری
انشا الله قبول میشی

MrJamshidy
28-02-2008, 07:14
حالا که میخوای سوالی به پرسیم پس میگم:
یه برنامه بنویس که اعداد فرد منفی را گرفته وتعداد اعداد منفی را در نوار عنوان نمایش دهد
خوب اگر جواب بدی احتمالا آمادگی امتحان دادن را داری
انشا الله قبول میشی

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

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

MrJamshidy
29-02-2008, 10:24
:10: خوب برای چی میزنی رو دستم که بعد با اونجور دنده هام رو خورد کنی:46:

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

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

sinaset
29-02-2008, 12:02
:10: خوب برای چی میزنی رو دستم که بعد با اونجور دنده هام رو خورد کنی:46:

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

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

hamidak
29-02-2008, 19:32
آقای جمشیدی کاش میشد که در مورد برنامه ها یه کم توضیح هم بدی که چیشد اونجا اینطور شد و همچنین کامل البته فعلا اگه اولی رو توضیح بدی خیلی خوبه من سورس رو گرفتم و اجرا کردم خیلی وقته دنبال همچین چیزی می گشتم عالی بود . اگه لطف کنی کامل در موردش توضیح بدی ممنون میشم من حدودا یه هفتست که شروع کردم وی بی رو .
پیشا پیش از لطفت ممنون

MrJamshidy
01-03-2008, 18:13
در ابتدا ورود شما رو به P30World تبریک میگم

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

hamidak
02-03-2008, 06:53
مرسی ولی من تاریخ عضویتم جدید به نظر نمیاد

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

MrJamshidy
02-03-2008, 13:18
میتونم بپرسم چرا پست هات اینقدر کمه؟

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

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

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

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

sinaset
02-03-2008, 14:00
سلام دوستان خيلي خيلي ببخشيد كه وسط حرفتون پريدم داخل
يك پيشنهاد دارم يك ساعتي رو مشخص كنيد اون بشيد باهم حرف بزنيد اينطوري فكر كنم جواب ها كامل تر خواهد بود:20::10::11:

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

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

hamidak
02-03-2008, 21:14
میتونم بپرسم چرا پست هات اینقدر کمه؟

کد 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
02-03-2008, 21:45
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
03-03-2008, 00:20
لطفاً کدهایی رو که میزارید از چپ به راست باشه که بشه بخوانیش ... نمیشه همش کپی پیست کنیم تو ورد و ...

hamidak
04-03-2008, 21:58
آقا مهدی اینا که چپ به راسته شاید مساله از کامپیوتر شماست .

mehdibarghi
04-03-2008, 23:14
منظورم تنظیمات پرانتزاشونو از این جور چیزا هست ، و اگر نه برو بچز p30 بی کار نبودن یه گزینه به اسم کد درست کنن !!!

hamidak
08-03-2008, 09:56
من نمی دونم شما چه مشکلی با اون پرانتزا و .... دارین همه چی برای من سر جاشه .... به هر حال چشم از این به بعد از اون گزینه ی کد استفاده می کنم ... خوبه ؟

MrJamshidy
08-03-2008, 18:28
کاش قبل از پست دادن یک نگاهی هم به تاریخ ها بندازید

mehdibarghi
08-03-2008, 18:42
آقا دستتون درد نکنه ... ممنون که به فکر ما هم هستید ...