ایشالا هر دوتون قبول میشید
میشه بگید سوالات چی بود ؟؟؟؟
موفق باشید ....
Printable View
ایشالا هر دوتون قبول میشید
میشه بگید سوالات چی بود ؟؟؟؟
موفق باشید ....
دوست عزیز تا چند روز دیگه سوالا رو میدن اسکن میکنم میزارم:46:
ولی سوال 2 و 3 رو یادم هست میگم:
2-با یه commondialog یه فایل txt رو بگیره بعد مسیر فایل.حجم فایل.تعداد جمله های فایل.تعداد کاراکتر های بزرگ و کوچک.تعداد اسپیس هاو ...
3-حرکت توپ که به لبه ها بخوره (شبیه بازی راکت)
ایشالا قبول شم بعد این مبحث رو سرو سامان بدیم:46:
و در ضمن از تمامی دوستانی که تو این مبحث مارا یاری کردتن مخصوصا آقا صادق ممنون.:11:
تا اسکن که دیگه کار از کار میگزرهنقل قول:
-حرکت توپ که به لبه ها بخوره (شبیه بازی راکت)
میشه بگید این بالایی که شماره 3 هست رو چکار باید کرد ؟
کلا چیا میخواد و چکارش باید کرد ؟؟؟؟
منظور این برنامه است
سورس برنامه:
کد:http://up.--------.com/images/82s6fj7ziyxokkkpu122.zip
مرسی صادق جان خیلی جالب بود " تشکر "
سورس بازی memory رو داری همون که باید دوتا عکس شبیه به هم رو توش پیدا کرد اگر لطف کنی آپ کنیش ممنون میشم
راستی بازم از این کد هایی که برای مسابقات میاد اگر بزاری عالی میشه
دمت گرم
موفق باشید ....
خدا رو شکر امروز نتایج اومد.نفر دوم شدم:41:حالم گرفته شد.
بیخیال.:46:ایشالا خدا کمک کنه اونم قبول بشیم.
دوستان هرکی قبول شده.رتبه رو بگه:13:
موفق باشید.
به به تبریک:11:
حالا ما شیرنی میخوایم:31:
حالا چرا حالت گرفتس؟ مگه فقط نفرات اول به مرحله بعدی میرن؟
-------------------------------------------------------------------------------------------------------
نه کد یه همچین برنامه ای رو ندارم ولی اگه یکم توضیخ بدی شاید شاید بتونم کمکت کنم چون با این توضیحاتی که دادی چند نوع وجود دارهنقل قول:
میتونی یه تایپک جدید براش بذاری چون احتمالا امیر ناراحت بشه مسائل متفرقه پاش اینجا باز بشه:46:
نه 6 نفر اول تا ششم میرن کشوری.:20:
در ضمن آقا صادق شرمنده این مدت خیلی کمک کردی.
شیرینی هم میدیم:31::46:
تبریک
نه صادق جان چرا ناراحت بشه اگه امیر تمام نمونه ها رو دیده باشه حتما اونی که این برنامه توش بود رو دیده یکی از سوالات کشوری بود قبلا
راستی یه سورسی میزارم ببینید میتونید کمک کنید :
-این کد ساعت هستش اگر ممکنه بگید کجاش رو دستکاری کنم و چه تغییری بدم تا ساعت یجا ثابت بمونه و سایز فرم روش تاثیر نزارهکد:Option Explicit
Const T As Double = 57.29577951
Private Sub Form_Load()
Me.Height = 2048
Me.Width = 2048
End Sub
Private Sub Form_Resize()
Me.ScaleHeight = 100
Me.ScaleWidth = 100
End Sub
Private Sub Timer1_Timer()
Dim H As Long, M As Long, S As Long 'time units
Dim Hd As Double, Md As Double, Sd As Double 'Degrees
Dim Hr As Double, Mr As Double, Sr As Double 'Radians
Me.Cls
H = Hour(Time): M = Minute(Time): S = Second(Time)
If H >= 12 Then H = H - 12
Hd = H * 30
Hd = Hd + M / 2
Md = M * 6
Sd = S * 6
Hd = Hd - 90: Md = Md - 90: Sd = Sd - 90
If Hd < 0 Then Hd = Hd + 360
If Md < 0 Then Md = Md + 360
If Sd < 0 Then Sd = Sd + 360
Hr = Hd / T: Mr = Md / T: Sr = Sd / T
Line (50, 50)-(Me.ScaleHeight / 2 + ((Me.ScaleHeight / 2) * 0.5 * Cos(Hr)), Me.ScaleWidth / 2 + ((Me.ScaleHeight / 2) * 0.5 * Sin(Hr))), vbBlack
Line (50, 50)-(Me.ScaleHeight / 2 + ((Me.ScaleHeight / 2) * 0.6 * Cos(Mr)), Me.ScaleWidth / 2 + ((Me.ScaleHeight / 2) * 0.6 * Sin(Mr))), vbBlue
Line (50, 50)-(Me.ScaleHeight / 2 + ((Me.ScaleHeight / 2) * 0.7 * Cos(Sr)), Me.ScaleWidth / 2 + ((Me.ScaleHeight / 2) * 0.7 * Sin(Sr))), vbRed
End Sub
- میشه در مورد اون سینوس کسینوس ها هم که هی ضرب در یه سری عدد خاص شدن یکم توضیح بدید چرا باید اینجوری نوشته بشه و از این جور چیزا ممنون
موفق باشید ....