سلام دوستان همنجور كه گفتم من شنبه يا يكشنه امتحان عملي ويژوال بسيك دارم لطفان كمك كنيد اگر ويژوال رو پاسش كردم ديپلممممم رو مي گيرم به اميد خدا از شما مي خوام كه به من كمك كنيد سوال مهم با جواب رو بهم بديد خيلي خيلي ممنون مي شم اگر كمك كنيدددددد:20::10::11:
salam ye mail bezar ye dictionary barat beferstam shayad be darde bokhore ya inke mail bezan be [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
ما كه سوال و جواب نداريم ننه!ولي دعاي ما پشت سرت!بهتر نبود تو طول ترم درس مي خوندي تا بخواي سوالاي مهم رو حفظ كني
الهي كه قبول بشي
ولي مجيد جان راست ميگه
من فكر نمي كنم 2 روزه بتوني چيزي ياد بگيري .
نه ........... فايده نداره:41:
خودت رو براي سري بعدي آماده كن:13:
بشر جايز الخطا است ديگر چه كنيم .
.
.
.
.
.
.
شوخي كردم داداش :31:
انشاالله قبول ميشي .
2 روز زياد هم هست
يه برنامه تفريحي هم مي توني بينش بزاري
و در كل اميدوارم كه رديف قبول بشي
سلام به همگي
اقا من براي مدرك ويژوال بيسك 2بار تا حالا امتحان دادم كه اين دفعه قبول شدم در امتحان كتبي و چند روز ديگه امتحان عملي دارم خيلي تا حالا خوندم راستشو مي گم ولي اين عملي خيلي ساخته بايداز 100 بالا 70 بياري تا قبول بشي:41:
مي دونيددوستان مشكل چي؟ مشكلي اين كه بعضي موقعه كه امتحان مي دم سوال هاش رو براي بار اول مي ببينم يا شخصي با خلاقيت خودش يك برنامه درست مي كنه و به تو مگه برنامه نويسش كن و بعضي موقعه ها سوالش از اسون اسون تر ولي بعضي موقع ها :31:
من قبلان رايانه كار در جه1 و درجه 2 رو پاس كردم حالا مونده اين يكي يعني ويژوال بيسك پيشرفته اگر بگيرمش ديپلم من مي شه برنامه نويسي كامپيوتر انشالله:20:
حالا از شما يك چيزي مي خوام به من كمك كنيد چندتا سوال كه بنظر خودتون مهم ميايد رو بگييد يا اون بخش هايشو رو كه مهم هستن بگيد بيشتر بخونم اگر تونستيد يكي سوال به من بديد تا خودم حلش كنم خدا خيرتون بده:11::10:
---------------
ممنون از اينكه برام دعا كرديد:10::11:
منم براي شما دعا مي كنم توي زندگيتون هميشه موفق باشيد تقديم به شما:40::11::10:
سلام
اقا كسي سوال ها مهم رو پيدا كرددد؟:20:
ما فقط میتونیم دعا کنیم .. چون اینقدر سوال میشه پرسید که حتی فکرشم نمیتونی بکنی ... ولی یه خورده علاقه داشته باشی قبول میشی
دعا هم نمیشه کرد چون همه چیز بر میگرده به خود طرف اینطور نیست که آدم تلاش نکنه بعد هم بگه "خوب دیگه خدایا منو قبول کنی ها!"
در این مورد من با مجید عزیز موافقم "بهتر نبود تو طول ترم درس مي خوندي تا بخواي سوالاي مهم رو حفظ كني"
ولی در کل امیدوارم همیشه موفق و پیروز باشی
سلام دوست من اول از همه تقديم به شماااااااااااا:11:نقل قول:
بعدشم من درسم رو مي خونم الان حدود 1 ماه دارم مي خونم شايد هم بيشتر علاقه هم دارم حتا خود ابتكاري هم دارم توي بعضي فرومول ها ولي دوست من در ويژوال بسيك پيشرفته فرمول ها زياد است ادم گمشون مي كنه مشكل همين جا تازه بعضي فرومول ها كمي پيچيده هستن
من مي گم خوندم ولي شما هم يك دعا كنيد ما قبول بشيمممممممم ديپلمون رو بگيريم:20::11:
دوست عزيز پس كي امتحان ميدي ؟؟؟؟؟
ما رو هم از نتيجه با خبر كن
سلام ذوست عزيزنقل قول:
گفتن چهار شنبه صبح ساعت 8 بيايذ امتحان است
از نتيجه امتحان با خبرتون مي كنم
در شمن خيلي ممنون كه بع فكر من هستيذ تقديم به شما:11:
عزیز منم امتحان دارمم اگه سوالی دستت اومد منو یادت نره Mer30:10::10::10:
طا هالا اينغدر قلت ديكطه اي يك جا نديده بودم.نقل قول:
سلام خب نتيجه چي شد ؟
اگر قبول شدي بگو ما هم از اين به بعد درس نخونيم
سلام باشه روي چشم :10::11:نقل قول:
سلامنقل قول:
دوست عزیز دستور if شما فاقد endif هست
سلام دوستان من امتحان دادم
ولي امتحان زياد خوب نبودددددددد:41:
--------------------
يكي از سوال ها اين بود كه برنامه بنويسيد كه 10 عدد دريافت و بعد انها رو به صورت نزولي در ليست باكس قرار دهد
----------------
يكي ديگه از سوال ها اين بود برنامه بنويسيد كه نام و نام خانوادگي و ادرس و شمار شناسمه و +يك كمبو باكسي بسازيد كه جنسيت رو مشخص كندد و انها رو ذخير كنند در يك text ساد و يا ذخير كند در يك data base
---------
يكي برنامه بسازيد كه drive , dir , filelistbox +يك imagbox كه يك عكس رو نشان بده ولي فقط با پسوند jpg
-------------
برنامه بنوسيد كه به اساس روز هفته بگوييد امروز روز چندم هفته هست
------------
اگر كسي جواب اين سوال ها رو بلده ممنون مي شم بهم بگه
مگر امتحانت تموم نشده؟
چرا امتحانم تمام شد:20:نقل قول:
فقط حالا مي خوام جوابشو رو بدونم چي؟
منظورتون از if و end if چیه؟؟؟؟
برای سوال اولتون باید بگم لیست باکس خودش یک درستور 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:
نقل قول:
ببین دوست عزیز اینطوری نمیشه من واسه شما یک سورس میزارم بعد اگر سوالی داشتی بپرس
-ای بابا چرا نمیزارینقل قول:
-چشم میزارم
-پس چی شد
-دارم روش کار میکنم
-زود باش دیگه
-خوب آماده شد
اینم لینکش:
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
--
موفق باشید
--------نقل قول:
سلام دوست من از اينكه مي خواستيد پاسخ من رو بديد ممنون راستش ديگه نياز ندارم
من قبول شدممممممممممممممممممممممم مممم: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:
خوب عالیهنقل قول:
امیدوارم در تمام مراحل زندگیتون موفق باشید
--
یا حق
حالا که میخوای سوالی به پرسیم پس میگم:
یه برنامه بنویس که اعداد فرد منفی را گرفته وتعداد اعداد منفی را در نوار عنوان نمایش دهد
خوب اگر جواب بدی احتمالا آمادگی امتحان دادن را داری
انشا الله قبول میشی
دوست عزیز امتحانش رو داد قبول هم شد ولی شیرنی ندادنقل قول:
حالا تازه شما اومدی میگی گاوش نر بود یا ماده
ممنون دوست من كه به فكر من بوديد تقديم به شما:11:نقل قول:
ولي من امتحان رو قبول شدم رفتتتتتتتتتتتتتت
شكر خدا:20:
دستت درد نكون در كل
-----------------------------
شيرني نداريم ولي اين جاش بهتون مي دم:11:
دوستان خوبم:10::11:
:10: خوب برای چی میزنی رو دستم که بعد با اونجور دنده هام رو خورد کنی:46:
به هر حال من کار ندارم باید شیرنی رو بفرستی در خونمون وگرنه زنگ میزنم آموزش پرورش میگم شیرنی ندادی اونا هم بن میکننت ها اااااااا یعنی دیپلمت رو باطل میکنن:27:
--
در هر صورت موفق باشید
اقا اين كار رو نكونياااااااااااااااااااا ا:18:نقل قول:
:31::20:
ما با هم رفيقيممم:31::18:
اين گل فعلان از ما داشته باش:11:(اگه مي شه واسي هميشه از ما داشته باش)
دوستتتتتتتتتتتت خوبمممممممممممممممممممممم ممممممممممممممممممممممممم مممممم
ممممممممممممممممممممممممم ممممممممممممممممممممممممم مم
ممممممممممممممممممممممممم ممممممممممممممممممممممممم ممم
ممممممممممممممممممممممممم ممممممممممممممممممممممممم ممممممممممممممم
ممممممممممممممممممممممممم ممممممممممممممممممممممممم ممممممممممممم
ممممممممممممممممممممممممم ممممممممممممممممممممممممم ممممممممممم
ممممممممممممممممممممممممم ممممممممممممممممممممممممم مممم
:11::11::11::11::11::11::11::11::11::11::11::11::1 1:
آقای جمشیدی کاش میشد که در مورد برنامه ها یه کم توضیح هم بدی که چیشد اونجا اینطور شد و همچنین کامل البته فعلا اگه اولی رو توضیح بدی خیلی خوبه من سورس رو گرفتم و اجرا کردم خیلی وقته دنبال همچین چیزی می گشتم عالی بود . اگه لطف کنی کامل در موردش توضیح بدی ممنون میشم من حدودا یه هفتست که شروع کردم وی بی رو .
پیشا پیش از لطفت ممنون
در ابتدا ورود شما رو به P30World تبریک میگم
دوست عزیز شما کجاش موندی بگو تا توضیح بدم
مرسی ولی من تاریخ عضویتم جدید به نظر نمیاد
ممنون من اول برنامه اول رو می پرسم :
در کنترل CmdAdd کد Trim چیه ؟ اون بزرگ و کوچیکتر که در دستور اول گذاشتین چی ؟ بعد برنامه چطور داده ی اشتباه رو تشخیص میده در این برنامه و ارور میده ؟ چطور میشه اعداد اعشاری رو هم به اینصورت در برنامه به کار برد ؟
در مورد این کد این کنترل ( CmdSort ) هم اگه توضیح بدین ممنون میشم
خیلی ممنون و متشکر از لطف شما
میتونم بپرسم چرا پست هات اینقدر کمه؟
کد Trim فاصله ها رو از آخر و اول جمله حذف میکنه تا اگر کاربر اول یا آخر جمله فاصله داد برنامه با مشکل مواجه نشه
من سورس برنامه رو پاک کردم اگر ممکنه دستور رو بنویسید
منظور شما از داده توی کدوم قسمتشه؟
درستور های به کار برده شده در این دستور اول یکی یکی اعداد رو چک میکنه بعد الان شرط یادم نمیاد اما در صورت درست بودن شرط اون فیلد رو پاک میکنه و دوباره اضافه میکنه
سلام دوستان خيلي خيلي ببخشيد كه وسط حرفتون پريدم داخل
يك پيشنهاد دارم يك ساعتي رو مشخص كنيد اون بشيد باهم حرف بزنيد اينطوري فكر كنم جواب ها كامل تر خواهد بود:20::10::11:
موافقم و تشکر بابت پیشنهاد اما باید یک نکته رو در نظر گرفتنقل قول:
شاید کس دیگه ای هم این سورس رو بگیره و همین سوال ها براش پیش بیاد باز باید براش توضیح بدم و این کار آدم رو سخت میکنه
من تمام طول شبانه روز آنلاین هستم مگر بخوابم یا مشکلی برای کانکشنم پیش بیاد که ایزی تو کال سر تا پا مشکله
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 رو اضافه کنه میتونی از کد زیر استفاده کنینقل قول:
کد:Private Sub Command1_Click()
List1.AddItem Val(Text1.Text)
End Sub
من نمیتونم این رو برات توضیح بدم چون خودم ننوشتم و فقط کپی کردم
و حوصله تجزیه کردنش رو ندارم اگر یکی دیگه این زحمت رو برات بکشه ممنون میشم
لطفاً کدهایی رو که میزارید از چپ به راست باشه که بشه بخوانیش ... نمیشه همش کپی پیست کنیم تو ورد و ...