خوش آمدید

مهمان گرامی به انجمن کویک لرن خوش آمدی ، برای استفاده از تمامی امکانات در انجمن عضو شوید.


پرچمداران

  1. moalla

    moalla

    مدیر سایت


    • امتیاز: پسندیدن (Likes)

      8

    • تعداد ارسال ها

      3,010


  2. ddccsdad

    ddccsdad

    مدیر تالار


    • امتیاز: پسندیدن (Likes)

      3

    • تعداد ارسال ها

      220


  3. pishnok

    pishnok

    عضو عادی


    • امتیاز: پسندیدن (Likes)

      2

    • تعداد ارسال ها

      1


  4. امیرحسین آقاجری

    • امتیاز: پسندیدن (Likes)

      2

    • تعداد ارسال ها

      1



مطالب محبوب

در حال نمایش بیشترین مطالب پسند شده از زمان ۱۷/۰۹/۲۳ در همه بخش ها

  1. 28 پسند
    همونطور که میدونید استفاده از انیمیشن و حرکت دادن به اجزا باعث زنده شدن و جذابیت برنامه میشه. سه فایل زیر رو میتونید به رایگان از سایت دانلود کنید آموزش عمومی انیمیشن آموزش اول: نحوه محور کردن اجزای صفحه آموزش دوم: چرخش و تغییر اندازه اجزای صفحه آموزش سوم: جابجا کردن اجزای صفحه آموزش تخصصی انیمیشن اینجا
  2. 4 پسند
    بنام خدا زمان حال ساده : کاری است که به صورت عادت و تکرار انجام میشود. طرز ساختش : اگر to ی مصدری را برداریم و به جای آن فاعل بگذاریم فعلی که به دست می آید زمان حال ساده یا حاضر ساده است. در سوم شخص یعنی (he,she,it) به آخر فعل (ies-es-s) اضافه میشود. نشانه های زمان حال حاضر یا زمان حال ساده : 1 - وجود s در سوم شخص مفرد در آخر فعل مثل : he works/she eats/it runs 2 - وجود es در آخر فعل در سوم شخص مفرد تذکر : افعالیکه به z,o,x,ch,sh,s ختم میشوند در سوم شخص مفرد es می گیرند. مثل: washes/buzzes/watches/fixes/misses/mixes 3 - افعالی که به y ختم میشوند اگر قبل از y حرف صدا دار (a,e,I,o,u) داشته باشد در سوم شخص فقط s می گیرد. plays <- سوم شخص مفرد <- play افعالی که به y ختم میشوند اگر قبل ازy حرف صدا دار نداشته باشد در سوم شخص y را بر می داریم و به جای آن در سوم شخص مفرد i و سپس es می گذاریم. carries <- carry studies <- study 4 - وجود قیود زمان مثل : زمان + every زمان + each (در طول روز during the day) قید زمان + during (یک هفته در میان every other week)زمان + every other 5 - وجود قیود تکرار مثل : ever - never - usually - often - sometimes they never play golf. 6 - با حقایق دنیا و یا چیز هایی که قبلا به ثبت رسیده اند، جمله زمان حاضر ساده است. مثلا : خورشید در غرب،غروب میکند. the sun sets in the west. تذکر مهم : تغییرات در حاضر ساده یا حال ساده با دو فعل کمکی do , does انجام میشود. بسیار مهم : does و doesn't هر دو s - es - ies پران است. و اینکه قیود مکان همیشه قبل از قیود زمان میاد. He goes to school every day. تمرین ها 1- او به مدرسه می رود هر روز 2-معلم کمک میکند به ما در کلاس ساعت 2 روزهای زوج 3-پدرم درس میخواند در خانه روزهای فرد 4- پدرش می خواهد کمک کند به آن ها اینجا هر روز
  3. 2 پسند
    سلام بر همه رفقای قدیمی موضوع برام جالب بود من این قطعه کد رو اینجوری مینوشتم Sub showNonRepeated(ints() As Int) As List Dim str As String Dim lst As List lst.Initialize '-> convert array to string ' For Each num As Int In ints str = str & num Next '-> loop in array ' For Each num As Int In ints '-> in the num in array exists in string ' If str.IndexOf(num) = str.LastIndexOf(num) Then lst.Add(num) End If Next Return lst End Sub
  4. 2 پسند
    این جواب هم کاملا صحیح هست و همون کار تابع بنده رو انجام میده و احسنت به این دوست عزیز که با راهی ساده تر و کد کمتر این تابع رو نوشتن
  5. 2 پسند
    سلام خدمت همه جواب دوستان رو تست نکردم اما به نظرم باید تابعی بنویسیم که اعداد تکرار نشده توی یک آرایه رو بهمون بگردونه به فرض توی آرایه ما چند تا عدد باشن که تکرار نشده باشن.اونوقت تکلیف چیه؟ پس باید خروجی تابع ما هم از نوع آرایه باشه که اگه مثلا 4 تا عدد تو آرایه ها تکرار نشده بود بتونیم به هر چهارتا عدد تکرار نشده دست پیدا کنیم جسارتا یه تابع نوشتم که این کارو انجام میده و برای هر دو حالت کاربرد داره.هم برای این حالت : (4,4,4,4,4,5,4,4) و هم برای این حالت : (1,1,2,2,3,3,4,5,5,15,6,6,7,7,8,8,9,9,46) Dim h() As Int = Array As Int(1,1,2,2,3,3,4,5,5,15,6,6,7,7,8,8,9,9,46) Dim j() As Int = showNonRepeated(h) For i = 0 To j.Length-1 Log(j(i)) Next Sub showNonRepeated(ints() As Int) As Int() Dim numIndex,abandoned As Map : numIndex.Initialize : abandoned.Initialize : Dim isInIndex As Boolean For i = 0 To ints.Length-1 Dim currentNumber As Int = ints(i) Try : isInIndex = numIndex.get(currentNumber) : Catch : isInIndex = False : End Try If isInIndex = False Then numIndex.put(currentNumber, True) Else numIndex.remove(currentNumber) abandoned.put(currentNumber, True) End If Next Dim res(numIndex.Size) As Int For i = 0 To numIndex.Size - 1 : res(i) = numIndex.GetKeyAt(i) : Next Return res End Sub امیدوارم به کار دوستان بیاد
  6. 2 پسند
    سلام این کد در مورد آرایه عددی که دادید صدق میکنه ... Sub showNonRepeated(insts() As Int) As Int Try Dim List1 As List List1.Initialize List1.AddAll(insts) Dim b As Int For i=0 To List1.Size b=List1.Get(i) Dim l2 As Int l2=0 For l2=0 To List1.Size If b=List1.Get(l2) Then Log(List1.Get(l2)) Else Return List1.Get(l2) Log("nist : "&List1.Get(l2)) End If Next Next Catch Log(LastException) End Try End Sub
  7. 2 پسند
    Sub showNonRepeated(ints() as int) as int Dim Javab as int Dim Tekrari As Int=-1 Dim L As List L.initialize For i = 0 To ints.Lentgh-1 Dim M As int = ints(i) For i2 = 0 To L.Size-1 Dim B as int =L.Get(i2) If M=B Then Tekrari=M Else L.Add(M) Next If L.Size=0 And Tekrari=-1 then L.Add(M) Next For i3 = 0 to L.Size-1 If L.Get(i3)<>Tekrari then Javab=L.Get(i3) Next Return Javab End Sub سلام. این کد فقط برای زمانی که شما دو نوع عدد توی ارسالی ها داشته باشید درسته مثل مثال خودتون یا 3 3 3 4 3 اینجوری اگرم منظورتون چیز دیگه ای هست بگید . امیر حسین آقاجری
  8. 2 پسند
    سلام لطفا به کسی به احترامی نکنید تاپیک به دلیل انحراف از موضوع اصلی قفل می شود
  9. 1 پسند
    سلام برای نمایش مطلب از صفحه بندی افقی استفاده کردید یا منظورتون اسکرول ویو عمودی هست؟ در هر صورت لازم هست شماره Index اون صفحه یا مقدار ScrollPosition رو ذخیره کنید و در اجراهای بعدی صفحه رو به مقدار از قبل ذخیره شده انتقال بدین یا اسکرول ویو رو به ScrollPosition ذخیره شده اسکرول کنید (با تابع ScrollToNow) برای ذخیره موقعیت فعلی میتونید مقدار رو داخل یک فایل توی مسیر dirInternal ذخیره کنید (با تابع file.WriteString) و برای بازخوانی این مقادیر میتونید از تابع File.ReadString استفاده کنید
  10. 1 پسند
    سلام 250 عکس تعداد خیلی زیادی هست و بسته به نوع تصاویر هرچقدر هم عکس ها رو optimize کنید احتمالا بازم حجم فایل خروجی بالا باشه با استفاده از سایت های tinypng.com (با گذر از تحریم) یا optimizilla.com عکس ها رو بهینه کنید بسته به عکس هاتون چیزی در حدود 40 الی 70 درصد حجم عکس ها رو بدون افت کیفیت کاهش میده
  11. 1 پسند
    سلام خدمت شما ۱- سبکی اپ دست خود برنامه نویسه. وارد باشه اپ روون میسازه. باگ یه چیز کاملا طبیعیه. باگها باید یکی یکی پیدا بشن و گرفته بشن. معمولا زمان باگ گیری و تست بیشتر از خود نوشتن برنامه طول میکشه ۲- بستگی به برنامتون داره! ۳-باید متنها رو توی دیتابیس بذارین. اگه نمیتونید توی اکسل مرتب بذارین و جدولی کار کنید. برنامه نویس خودش منتقل میکنه به دیتابیس ۴-شما به نتیجه کار داشته باشین. برنامه نویسها همیشه تو تالارها و سایتها میگردن و از کدهای دیگه استفاده میکنن و این یه مساله کاملا طبیعیه است. مهم اینه نتیجه خوبی به شما تحویل بدن ۵- هر چیزی که توی اپ دیگه شده توی اپ شما هم امکانش هست این نکته رو باید در نظر داشته باشین که تعامل با برنامه نویس خیلی مهمه. برنامه نویسهای تازه کار با مبلغ بسیار پایین براتون انجام میدادن اما معمولا دستتون رو میذارن تو پوست گردو! برنامه نویس حرفه ای و با سابقه هم قیمت بالا طلب میکنه و باید خیلی خوب باهاش تعامل کنید. پیدا کردن برنامه نویس خوب خیلی سخته. کسی رو نمیشناسم. شاید بتونید به مدیر سایت کامپیوتر دانشجو سفارش بدین سایت پونیشا هم برای سفارش خیلی خوبه. یه اجمالی از طرح مینویسید و قیمت میدن و سابقشون رو میگن. یکی رو انتخاب میکنید و سفارش میدین. شاید با قیمت یک دهم قیمتی که مدیر سایت کامپیوتر دانشجو احتمالا به شما بگن
  12. 1 پسند
    قراره یه تابع بنویسید که عدد غیر تکراری تو یه آرایه ای از اعداد تکراری تشخیص بده. مثلا عدددهای زیر رو بهش میدیم: [2,2,2,3,2,2] وقتی ارایه بالا رو به تابع میدیم باید عدد ۳ رو برگدونه. این ارایه ممکنه هر تعدادی داشته باشه اما فقط یدونش غیرتکراریه تو جوابهاتون این تابع رو بنویسید: Sub showNonRepeated(ints() As Int) as int End Sub منتظر جوابهاتون هستم. سعی کنید با کمترین تعداد کد عدد رو بدست بیارین
  13. 1 پسند
    سلام. اینم جواب من. Sub showNonRepeated(ints() As Int) As Int Dim f As Int For i=0 To ints.Length -2 If ints(i)<>ints(i+1) Then If (i+1)=ints.Length -1 Then f=(ints(i+1)) Else f=(ints(i)) End If End If Next Return f End Sub
  14. 1 پسند
    Sub showNonRepeated (ints() As Int) As Object Dim hlpr,cntr = 0 As Int,returnList As List returnList.initialize() For i = 0 To ints.length-1 hlpr = ints(i) For j = 0 To ints.length-1 If ints(j) = hlpr Then cntr = cntr + 1 End If Next If cntr <= 1 Then returnList.add(hlpr) End If cntr = 0 Next If returnList.size > 0 Then Return returnList Else Return Null End Sub
  15. 1 پسند
    جواب خودم: Log(showNonRepeated(Array As Int(4,4,4,4,4,5,4,4))) Sub showNonRepeated(ints() As Int) As Int Dim lst As List lst.Initialize lst.AddAll(ints) lst.Sort(True) If lst.Get(0) = lst.Get(1) Then Return lst.Get(lst.Size-1) Else Return lst.Get(0) End If End Sub
  16. 1 پسند
    جواب علی اقا Sub showNonRepeated(ints() As Int) as object dim hlpr,cntr = 0 as int,returnList as list returnList.initialize() for i = 0 to ints.length-1 hlpr = ints(i) for j = 0 to ints.length-1 if ints(j) = hlpr then cntr = cntr + 1 end if next if cntr <= 1 then returnList.add(hlpr) next if returnList.size > 0 then return returnList Else return null End Sub
  17. 1 پسند
    جواب آقا مرتضی Sub Test(Ints As List) As Object Dim j As JavaObject j.InitializeStatic("java.util.Collections") For Each i As Int In Ints If j.RunMethod("frequency",Array(Ints,i)) = 1 Then Return i Next Return Null End Sub
  18. 1 پسند
    برای اشتراک میتونید از کتابخونه arialib استفاده کنید. یه تو بانک کد اشتراک متن رو جستجو کنید: http://quicklearn.ir/snippet/ اینی که شما نوشتید dim r as send رو متوجه نمیشم. چرا متغیر شما از نوع send هستند؟
  19. 1 پسند
    یعنی الان شما با چی کار میکنید؟ با xml؟ ببینید زمانی که با xml کار میکنید توی هر خط تقریبا یه بار متد parse اجرا میشه اما تو جیسون یبار گرفته میشه و همش یکباره ریخته میشه داخل لیست اینها ممکنه در مواقع فرق بکنن اما فکر نمیکنم فرق محسوسی داشته باشن. کدنویسی جیسون کمتره و بار کمتری رو به سی پی یو میاره اما نامحسوس مگه اینکه دیگه اطلاعات شما خیلی باشه فکر میکنم سرعت سرور شما خیلی بیشتر از اینها تاثیر داشته باشه. از هاست اشتراکی استفاده میکنید یا سرور مجازی؟ اگه سرور باشه قطعا سرعت ریسپانس خیلی بهتری داره و تو سرعت تفاوت محسوسی میذاره. بخصوص سرور ایرانی. البته اگه قطع نشه! سرورای ایران سرعت بیشتر دارن و قطعی بیشتری دارن. المان و فرانسه سرورای خیلی بهتری دارن
  20. 1 پسند
    با سلام خدمت همه دوستان جناب معلی شما لطف کردید تمام مطالب رو آموزش دادید لطفا قسمت علاقه مندی های دوره کتاب متریال قسمت آخرش که باید گزینه های مورد علاقه در لیست علاقه مندی حذف بشه رو قرار ندادید لطفا یه فیلمی چیزی بزار ببینیم باید چکار کنیم ممنون میشم جواب بدین
  21. 1 پسند
    خودم پیدا کردم راهشو اینم کدش به درد کسی شاید بخوره ولی من میخواستم درصد هم بنویسه کسی بلد نیس؟؟؟ Sub Process_Globals 'These global variables will be declared once when the application starts. 'These variables can be accessed from all modules. Dim currentURL As String End Sub Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Private WebView1 As WebView End Sub Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: Activity.LoadLayout("Layout1") End Sub Sub Activity_Resume ToastMessageShow(currentURL, False) WebView1.LoadUrl(currentURL) End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button1_Click ProgressDialogShow("Loading ... ") WebView1.LoadUrl("http://www.google.com") End Sub Sub WebView1_PageFinished (Url As String) currentURL = WebView1.Url ProgressDialogHide End Sub
  22. 1 پسند
    پیدا کردم دوستان لازم داشتن استفاده کنند Dim Intent1 As Intent Intent1.Initialize(Intent1.ACTION_MAIN,"") Intent1.SetComponent("com.android.settings/com.android.settings.WirelessSettings") StartActivity(Intent1)