رفتن به مطلب

m007moh

کاربر رو به رشد
  • تعداد ارسال ها

    295
  • تاریخ عضویت

  • آخرین بازدید

  • روز های برد

    7

پست ها ارسال شده توسط m007moh

  1. سلام وعرض ادب خدمت مهندس شاهدی

    تشکر بابت کتابخونه های فوق العاده و کاربردیتون

    مهندس من میخوام تو دیتابیس آنلاین مقادیری رو insert کنم از ariaasynktask 2 استفاده کردم ولی هیچ مقداری تو دیتا بیس ثبت نمیشه.میخواستم ببینم مشکلم کجاست؟ اینم کدم

    Sub Activity_Create(FirstTime As Boolean)
    	'Do not forget to load the layout file created with the visual designer. For example:
    	
    	Activity.LoadLayout("login_LAY")
    
    	'===================ariaAsyncTask=================
    		aria.Initialize("aria")
    		ariadown.Initialize(aria)
    	'=================================================	
    
    End Sub
    
    Sub Activity_Resume
    
    End Sub
    
    Sub Activity_Pause (UserClosed As Boolean)
    
    End Sub
    
    
    Sub saveBTN_Click
    
         aria.Run(Null)
    
    End Sub
    
    
    '==================================AriaAsyncTask===================================
    
    Sub aria_DoInBackground(params() As Object) As Object
    	
    	go2="user="&userEDIT.text&"&pass="&passEDIT.Text
    	 ariadown.Post("http://192.168.66.251/log/login.php",go2)
    End Sub
    
    Sub aria_OnCancelled
    	
    End Sub
    Sub aria_OnPostExecute(param As Object)
    	'Msgbox(param,"do")
    	
    	
    End Sub
    Sub aria_OnPreExecute
    	
    End Sub
    Sub aria_OnProgressUpdate(progress As Int)
    	
    End Sub
    
    
  2. استاد شاهدی ممنون از کتابخونه های عالیتون واقعا کا رو راحت میکنن

     

    من توی ایجاد مولتی پنل مشکل برام به وجود اومده حالا سوالم اینه اصلا کار من درست بوده که با استفاده از این کتابخونه ویوو اد کردم؟؟

     

    کدک به صورت زیره

    Sub aria_DoInBackground(params() As Object) As Object
    	For i=1 To lst.Size-1
    		img.Initialize("img")
    		st=lst.Get(i)
    		sc.Panel.AddView(img,left,top,50%x,50%x)
    		img.SetBackgroundImage(LoadBitmap(File.DirRootExternal&"/telegram/telegram images",st))
    		img.Gravity=Gravity.FILL
    		If i Mod 2=0 Then
    		left=left+50%x
    		Else
    		top=top+50%x
    		left=0
    		End If	
    		aria.PublishProgress(i)
    	Next
    	
    	Return top
    End Sub
    

    خط

    sc.Panel.AddView(img,left,top,50%x,50%x)
    

    ارور میده

     

    با تشکر

    • پسندیدن 1
  3. با سلام

     

    جناب ایزدی به عنوان مدیر انجمن ازتون خواهش میکنم ی موضوع ایجاد کنید و کتابخونه های استاد شاهدی رو اونجا قرار بدید ک کتابخونه هاشون بصورت متمرکز اونجا باشن

     

    واقعا کتابخونه هاشون عالیه انگار واقعا میدونن بچه ها چی میخوان.........

     

    با تشکر

    • پسندیدن 6
×
×
  • اضافه کردن...