دوستان امروز اولین مرحله مسابقات علمی عملی بود اگه خدا بخواد و قبول شدم :41: تو این مبحث تمام مثالهای سال قبل رو میذارم و دوستان مشکلات خود رو بگن تا با هم حل کنیم.:20:
البته این مسابقات واسه سوم هنرستانی ها هست.
موفق باشید:11:
Printable View
دوستان امروز اولین مرحله مسابقات علمی عملی بود اگه خدا بخواد و قبول شدم :41: تو این مبحث تمام مثالهای سال قبل رو میذارم و دوستان مشکلات خود رو بگن تا با هم حل کنیم.:20:
البته این مسابقات واسه سوم هنرستانی ها هست.
موفق باشید:11:
دوستان گفتم دیگه از امروز شروع کنیم.امید خدا قبول نشدیم هم حداقل یه تمرینی کردیم:31:
چجوری میتونم تو یه کنترل تصویر کاراکتر ستاره را با توجه به مختصات x,y چاپ کنم.
تو مایه یه برنامه مثل paint
:46::46::46:
من یک سوال داشتم.
این تمرینات برای مراحل عملیه؟
اگه میشه جزوه ای یا کتابی معرفی کنید؟
این کد رو باید توی رویداد MouseDown کنترل تصویر بنویسیم.نقل قول:
کد:Picture1.CurrentX = X
Picture1.CurrentY = Y
Picture1.Print "*"
آره دیگه واسه مرحله عملی هست(البته نمیدونم تئوری قبول میشم یا نه)
محسن جان من کتاب ندارم ولی چند نمونه از این سوال ها که واسه سال قبل بوده رو دارم که دارم همشو جمع میکنم بعد آپ میکنم.
:20: ولی کلا دو نوع سوال میدن یا برنامه مثل paint یا بازی توپ:31:
موفق باشید
اینم دوتا از نمونه سوالات توپ خدمت دوستان گلم:46:
موفق باشید.کد:http://amirxbest.persiangig.com/amirxbest/Amirxbest.zip
من هم پارسال شرکت کردم اما توی مسابقات کارگاهی رایانه
تا مرحله استانی هم رفتم و چهارم شدم ولی برای کشوری در نیومدم
تو توی کدوم مرحله ای؟
من که فقط تو استانی فعلا شرکت کردم اگه تئوری قبول شدم.میریم عملی بعدم خدا بخواد کشوری.
3شنبه نتایج رو میزنن تو سایت.اگه قسمت بود قبول میشیم نبودم که چاره ای نداریم که قبول کنیم:20:
اين مسابقه براي دوم هنرستاني ها هم هست؟
نه متاسفانه
برای سوم هاست
الیته یک آزمون دیگه دارند که فکر کنم اون هم برگزار شد.
آزمون بنيه علمي مال دوماستنقل قول:
كنكور آزمايشي هم واسه سوما و همين مسابقات
سوال های مربوط به مرحله دوم(مرحله عملی) رو از درس برنامه سازی و بانک اطلاعاتی براتون میذارم.
البته برای کار و دانشی هاست ولی بازم هم زیاد فکر نکنم فرقی بکنه.
کد:http://s1.picofile.com/file/6392605630/%D8%B3%D8%A6%D9%88%D8%A7%D9%84%D8%A7%D8%AA_%D8%B9%D9%84%D9%85%DB%8C_%D8%B9%D9%85%D9%84%DB%8C_%D8%B1%D8%B4%D8%AA%D9%87_%DA%A9%D8%A7%D9%85%D9%BE%DB%8C%D9%88%D8%AA%D8%B1.zip.html
خوب دیگه وقتشه که شروع کنیم:5:
1-دوستان کسی میدونه چجور میشه مختصات x و y یه msgbox رو تعیین کرد؟
میشه از توابع api هم استفاده کرد یا نه؟
دوستان من میخواستم با فشردن کلید alt+f4 برنامه end نشه اومدم تو رویداد keydown اینو نوشتم:
If KeyCode = 115 And 18 Then
End If
البته keypreview فرم رو هم true کردم حالا باید بین این دستور شرطی چی بذارم؟؟؟؟:20:
سلام
دوست عزیز میشه لطف کنید و بگید که توی کدوم سایت نتایج رو میگن ؟؟؟؟ اصلا چند تا سایت هست و چیا هست ؟؟؟؟؟
ممنون میشم زودتر جواب بدید
موفق باشید ....
نتایج رو که هنرستان ها میگن.
این یک آزمون مرحله ای برای سوم های فنی و حرفه ای تمام رشته هاست
ممنون دوست عزیز میدونم که خود هنرستان میگه ولی خوب من که نمیدونم کیا قبول شدن واسه کسه دیگه میخوام آمار بگیرم باید یه سایتی برای معرفی باشه سایت گروه تهران رو پیدا کردم که اسم همه هست ولی باقی استان ها نیستنقل قول:
اگر میشه سایت مرکزی این آزمون رو معرفی کنید و بگین چطور میتونم لیست تمام قبولی ها رو ببینم
فکر نمیکنم سایت خاصی داشته باشه و هر استان نیز یک سایت داره و تمتم شهرستانها و خو مرکز اون استان همگی در همون سایت هست.و این سایتواسه دبیرخانه کشووری هست ولی اسم سایت هر استان توش نیست.کد:http://www.dck.ir
یادمه پایین سوالات مرحله اول اسم سایت رو زده بودن مال شما رو نمیدونم
بازم ممنون ولی اینم قبلا گشتم چیزی ازش در نمیاد واسه استان مازندران رو می خوام آخه به یکی از آشناهام قول دادم براش آمار در بیارم که قبول شده یا نه و اینکه چندمی هست و از این چیزا تموم این سایتا رو گشتم ولی واسه استان مازندران چیزی پیدا نکردم
بغیر از تهران و اصفهان جای دیگه انگار هیچ آزمونی نداده ؟؟؟؟؟؟؟؟؟؟؟؟/!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
نقل قول:
ما که آخرش نفیمیدیم داری سوال میگی یا داری ما رو امتحان میکنی یا خودت جوابو بلد نیستی ولی به هر حال برای این سوال میتونی یه متغیری رو مثل ex رو توی همین if برابر 1 بذاری و توی unload یه شرط دیگه بذاری که اگه ex=1 بعدش خارج نشه(cancel=1) و ex=0 بشه
موفق باشی
سلام دوسان من میخوام مثل این برنامه درست کنم که کاربر با وارد کردن ردیف و ستون به تعداد عددی که وارد کرده از picture box روی فرم load کنه.
نمیدونم از آرایه 2 بعدی باید استفاده کنم یا چیز دیگه:
اینم شکلش:
یدونه picture1 بذار رو صفحه و اون رو آرایه صفر کن(برای این کار باید picture1 رو یه بار کپی و پیست کنی و اون picture1(1) رو پاک کنی) یدونه دکمه هم بذار
حالا کد های زیر رو توی صفحه کد کپی کن:
کد:Dim k
Dim left1
Dim top1
Private Sub Command1_Click()
a = InputBox("radif")
b = InputBox("sotoon")
For i = 1 To a
For j = 1 To b
Load Picture1(k)
Picture1(k).Visible = True
Picture1(k).Width = 700
Picture1(k).Height = 700
Picture1(k).Left = left1
Picture1(k).Top = top1
left1 = left1 + 700
k = k + 1
Next j
top1 = top1 + Picture1(k - 2).Height
left1 = 500
Next i
End Sub
Private Sub Form_Load()
k = 1
left1 = 500
top1 = 500
End Sub
حالشو ببر:5:
صادق جان ممنون:11:
ولی اگه کاربر بخوادبرای بار دوم عدد وارد کنه برنامه به مشکل برمیخوره و picture box ها جابجا میشه و شکل بدی پیدا میکنه خواستم با دستور unload کار کنم تا یه حدی پیش رفت ولی بازم مشکل داره.ببین میفهمی مشکل از کجاست؟
If Picture1.Count > 2 Then
For i = 1 To Picture1.Count - 1
Unload Picture1(i)
NextEnd If
البته برای بار اول کار میکنه ولی بار بعد اخطار میده.
در ضمن این کد رو قبل از اون دسور گذاشتم.
ممنون میشم از راهنمایی:46:
در اول کد دکمه این کد رو بذار
unload form1
form1.show
درضمن این قسمت کد رو هم اینطور تغییر بده(وگرنه داخل 1 ستونی ها یه کم مشکل پیش میاد)
Next j
top1 = top1 + 700
left1 = 500
Next i
unload form1
form1.show
صادق جون این دیگه چه کاری هست:18: اینکه اصلا کار نمیکنه؟
برا اولین بار که میخواد picture box ها رو load کنه که نمیتونه این فقط فرم رو unload میکنه.
فکر کنه بای یه چیزی تو مایه های همونی که من گذاشتم بنویسم:46:
یعنی چی که نمیشه؟ مگه دست خودشه ؟
من کردم شد
سورس رو برات میذارم:
کد:
آره درسته صادق جون.شرمنده:20:
آخه من picture ها رو که آرایه ای بود درون یه picture box دیگه قرار داده بودم واسه همینم نمیشد.
خودم این کد رو گذاشتم کار کرد:
For i = 1 To Picture1.Count - 1
Unload Picture1(i)
Next
ممنون:46:
یه برنامه ای هست که یه line رو میچرخونه(مثل عقربه های ساعت):
این برنامه رو بجز با sin و cos جور دیگه هم میشه نوشت؟؟؟؟؟:46:
اینم همونطوری که میخواستی بدون unload کردن فرم و با unload کردن picture ها
توی فایل قبلی که گذاشتم به جای اون کدها اینها رو کپی کن
کد:Dim k
Dim left1
Dim top1
Private Sub Command1_Click()
If k > 0 Then
For i = 1 To k
Unload Picture1(i)
Next i
End If
k = 0
left1 = 500
top1 = 500
a = InputBox("radif")
b = InputBox("sotoon")
For i = 1 To a
For j = 1 To b
k = k + 1
Load Picture1(k)
Picture1(k).Visible = True
Picture1(k).Width = 700
Picture1(k).Height = 700
Picture1(k).Left = left1
Picture1(k).Top = top1
left1 = left1 + 700
Next j
top1 = top1 + 700
left1 = 500
Next i
End Sub
آقا صادق ببین این برنامه ای که line میچرخه رو میشه با روشی بجزsin , cos نوشت؟:20:
نقل قول:
میتونی با تایمر مقدار x1,x2,y1,y2 رو تغییر بدی
حالا میخوای یه راس ثابت و یه راس متغییر باشه؟ یا نقطه ثابت خط ، وسطش باشه؟
فرقی نداره.:20:ولی اگه نقطه ثابت وسط باشه بهتره.به هر حال هر مدلی بلدی بگو:31:
خودم تو تایمر x1 ,y1 و x2 ,y2 رو تغیر دادم اما اونجور که میخواستم کار نکرد:41:
دوستان چه جور میتونم یه آرایه 2بعدی رو به یک بعدی تبدیل کنم؟(یا آرایه 2 بعدی رو بریزم ت آرایه 1بعدی):41:
دوستان بی خیال خودم گرفتم چی میشه.خیلی ساده بود:31:
اول یکی یکی آرایه 2 بعدی رو میخونیم بعدم یه آرایه 1بعدی بع اندازه تمام خانه های آرایه 2 بعدی تشکیل میدیم بعدم یکی یکی میریزیم تو آرایه 1 بعدی.
عملی تستی دیگه نیس؟مثلا برا سخت افزار اسمبلم مب گن بکنید؟اخه فردا امتحان دارم می ترسم اسمبل سخت افزاری خدا کنه نباشه:41:تشریحی یا تستی باشه منتظر جواب هستم .فعلا بای
نه دوست عزیز فقط برنامه سازی 1.2.3 و بانک اطلاعاتی :10:
قصه نخور خبری نیست:46:
شرمنده اشتباه شد
کسی میدونه چطور میتونم این تایپک رو حذف کنم؟
خدا رو شکر مرحله عملی استانی هم امروز تموم شد.فکر کنم نوشته بود استانهای (یزد.فارس.کرمان.اصفهان.خراس ن رضوی) یکی بود.
از دوستانی که واسه ای استانها هستن میخوام نظراتشون رو درباره ی سوال اول بگن:46:
سوال اول که هوش مصنوعی بود من که فقط کاری کردم که کاربر بر اساس الگوی من باید عدد رو وارد کنه تا درست شناخته بشه.:2:
سوال دومم که 25 درصد شو نوشتم.:31:
سوال سوم و چهارم هم همشو نوشتم.:20:
امیدورام قبول بشم.:11: