مرجع سورس های ویژوال بیسیک ( درخواست سورس )

[ravegoat]

سلام
من یک برنامه (جهت دست گرمی !) ساخته ام که از کاربر 2 عدد گرفته و کاربر پس از کلیک بر روی command1 تمامی اعداد صحیح بین آن دو را در Text1 قرار داده و از بین همین اعداد , اعدادی که قابل تقسیم به 5 و 3 هستند را جدا کرده و در Text2 قرار می دهد . حالا سوال من این است که من نیاز دارم کاربر با کلیک بر روی Command2 هر عددی که در Text2 موجود است را با Text1 مقایسه کرده و آن مقدار را از Text1حذف کرده و باقی مانده را در Text3 قرار دهد . لازم به ذکر است هر عدد به طور جداگانه و در یک خط در هر جعبه تکست موجود است . فقط می خواهم بدانم چه راه حلی برای Text3 بدست آورم .
مثال : (راهنما : Label1.catiopn = "1" و دو جعبه تکست 4 و 5 برای دو عدد دلخواه کاربر است)
_______________________________
label1.caption = Text1.text
if Label1.caption = Text2.text then
Exit sub
Else
for i = Text4.text to Text5.text
Label1.caption = Label1.caption + 1
Text1.text = Text1.text + Label1.caption + VbNewLine
Next i
End if
______________________________
مثال عملی : مثلا ما اعداد 5 الی 20 را در نظر می گیریم . خوب , اعدادی که در Text1 و Text2 قرار میگیرند دقیقا به صورت زیر خواهد بود :

Text1 = 5 - 6 - 7 - 8 - 9 - 10 - 11 - 12 - 13 - 14 - 15 - 16 - 17 - 18 - 19 - 20

Text2 = 5 - 6 - 9 - 10 - 12 - 15 - 18 - 20

مشکل من هم همین است که چطوری می تونم از مقایسه Text1 و Text2 با هم به جواب زیر برسم
Text3 = 7 - 8 - 11 - 13 - 14 - 16 - 17 - 19
یادآوری می کنم من نیاز دارم آن دو تکست با یکدیگر مقایسه شوند .
از لطفتون ممنون .

با سلام!

دوست عزيز عضويت شما رو در PCN تبريك مي گم.برای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید

بر اساس كدي كه گذاشتيد و فرموده هاي خودتون هر عدد در يك خط جداگانه قرار مي گيره. پس كافيه هريك از خطوط تكست 2 رو با تك تك خطوط تكست 1 مقايسه كنيم. چون اعداد به صورت صعودي قرار گرفتند پس لازم نيست در هر بار مقايسه مقدار خط تكست 2 رو با تمام خطوط تكست 1 مقايسه كنيم. مثلا" اگر در مقايسه ي اول 5 لاين اول تكست 1 بررسي شد در مقايسه ي دوم بررسي از لاين 6 ام شروع بشه. (البته اين كار براي سريع تر كردنه كد هستش).

براي به دست آوردن مقادير يك خط در تكست ها مي تونيد از اين كد استفاده كنيد:
http://www.freevbcode.com/ShowCode.asp?ID=2493

خودتون تاكيد داشتيد كه با مقايسه تكست ها مقادير وارد تكست 3 بشه. ولي كلا" خوندن ارزش ها از يك كنترل براي مقايسه، باعث ميشه كد خيلي كند بشه. شما مي تونيد دكمه ي 2 رو طور كد نويسي كنيد كه اعدادي كه بر 5 و 3 بخش پذير نيستند وارد تكست باكس 3 بشوند؛ اين طوري روند اجرا بهتر مي شه و نياز به مقايسه تكست ها از بين ميره.

موفق باشيد
آرمينبرای مشاهده این لینک/عکس می بایست عضو شوید ! برای عضویت اینجا کلیک کنید