[ardalanhoo]

دوستان عزیز بسیار سپاسگزارم از راهنمایی شما
من از طریق HttpUtils2 براحتی عکس را دانلود کرده و مثلا بعنوان پیش زمینه استفاده می کنم ولی مشکل اصلی من در استفاده از دیتابیس است. بطور مثال من یک فایل را دانلود می کنم:job2.Download("http://...ir/bank.db")pاما نمی دونم چگونه از اطلاعات آن استفاده کنم و به جای دیتابیس قبلی بذارم که از این طریق بتوانم مطالب برنامه را آپدیت کنم.
خیلی ممنون میشم اگر من را راهنمایی کنید

[seyedsharifi]

با درود
سپاسگزارم از مطالب و بحث های مفید انجمن
من میخواهم مطالب برنامه ام را از طریق اینترنت بروز کنم. مثلا شبیه برنامه هایی که قیمت سکه و دلار را بروز می کنند و یا مطالب روزانه ای که از طریق اتصال به اینترنت به روز می شوند. 
خوشحال می شوم اگر مرا راهنمایی کنید.
با سپاس فراوان.
شاد باشید.



 

با درود
میتوانید از وب سوریس و HttpUtils2 استفاده کنید
اینجا رو نگاه کنید: http://www.basic4ppc.com/android/forum/t...ler.18992/

نمونه کد:

کد:

Sub Activity_Create(FirstTime As Boolean)
Dim job1, job2, job3 As HttpJob
job1.Initialize("Job1", Me)

'Send a GET request
job1.Download2("http://www.basic4ppc.com/print.php", _
Array As String("first key", "first value smiley", "second key", "value 2"))

'Send a POST request
job2.Initialize("Job2", Me)
job2.PostString("http://www.basic4ppc.com/print.php", "first key=first value&key2=value2")

'Send a GET request
job3.Initialize("Job3", Me)
job3.Download("http://www.basic4ppc.com/forum/images/categories/android.png")
End Sub

Sub JobDone (Job As HttpJob)
Log("JobName = " & Job.JobName & ", Success = " & Job.Success)
If Job.Success = True Then
Select Job.JobName
Case "Job1", "Job2"
'print the result to the logs
Log(Job.GetString)
Case "Job3"
'show the downloaded image
Activity.SetBackgroundImage(Job.GetBitmap)
End Select
Else
Log("Error: " & Job.ErrorMessage)
ToastMessageShow("Error: " & Job.ErrorMessage, True)
End If
Job.Release
End Sub

 

---

با درود
چطوری میتونم وقتی گوشی زنگ خورد دتکت کنم وشماره تلفن تماس گیرنده را بدست آورم
لطفا راهنمایی کنید
 






 

با درود

باید از این کد در manifest استفاده کنید

کد پی‌اچ‌پی:

<receiver android:name=".PhoneStateReceiver">
   <intent-.......>
       <action android:name="android.intent.action.PHONE_STATE" />
   </intent-.......>
</receiver> 


یا باید BroadcastReceiver رو در برنامه تعریف کنید و سپس:

کد پی‌اچ‌پی:

Sub BroadcastReceiver_OnReceive (Action As String, BroadcastIntent As Object)
  myintent = BroadcastIntent
  If myintent.Action = "android.intent.action.PHONE_STATE" Then
     If myintent.GetExtra("state") = "RINGING" Then
        callernumber = myintent.GetExtra("incoming_number")
     End if
   End If

   If myintent.Action = "android.intent.action.NEW_OUTGOING_CALL" Then
     If myintent.HasExtra("android.intent.extra.PHONE_NUMBER") Then
         callnumber = myintent.GetExtra("android.intent.extra.PHONE_NUMBER")
     End If
   End If
End Sub 


اینجوری هم وقتی زنگ زده میشه و هم وقتی زنگ خورده میشه رسیور عمل میکنه

 

 



 

ببخشید ولی این کد که برای بیسیک نیست
 


 

با درود
چرا دوست من، این کد برای بیسیک می باشد
 

 

با سلام و با تشکر از جوابی که دادید
من هرچه سعی کردم نتونستم از این کد استفاده کنم
مثلا من میخواهم برنامه ام در قسمت سرویس باشد و وقتی گوشی زنگ خورد توسط برنامه بفهمم که گوشی زنگ خورده و مثلا شماره تماس گیرنده را بدست بیاورم
لطفا با یک مثال برایم پاسخ دهید
با تشکر


 

[ardalanhoo]

درود
میخواستم بپرسم چگونه می‌توان دیتابیس برنامه را آپدیت کرد؟ تا ایجا که فایل دیتابیس دانلود شود مشکلی نیست، بعدش چگونه میشود اطلاعات فایل دانلود شده را استفاده می‌کند و آن را جایگزین فایل قبلی کرد؟
لطفا اگر امکان دارد راهنمایی کنید. ممنون میشم.

 

بعد از اینکه فایل را دانلود کردید بر روی دیتابیس قبلی کپی کنید و بعد دیتابیس را باز کنید تا اطلاعات جدید را استفاده کنید


 
 

دوست عزیز چطور میتونم این کار رو انجام بدم. لطفا یک کد نمونه بدید. ممنون 


 

[seyedsharifi]

درود
میخواستم بپرسم چگونه می‌توان دیتابیس برنامه را آپدیت کرد؟ تا ایجا که فایل دیتابیس دانلود شود مشکلی نیست، بعدش چگونه میشود اطلاعات فایل دانلود شده را استفاده می‌کند و آن را جایگزین فایل قبلی کرد؟
لطفا اگر امکان دارد راهنمایی کنید. ممنون میشم.


 

بعد از اینکه فایل را دانلود کردید بر روی دیتابیس قبلی کپی کنید و بعد دیتابیس را باز کنید تا اطلاعات جدید را استفاده کنید


 

 

دوست عزیز چطور میتونم این کار رو انجام بدم. لطفا یک کد نمونه بدید. ممنون 


 

 

اگر منظور شما دستور کپی می باشد بصورت زیر است

کد:

File.Copy(File.DirAssets, "test", File.DirInternal, "test")

که باید نام فایل و مسیر مورد نظر را خودتان تعیین کنید



 

[ardalanhoo]

درود
میخواستم بپرسم چگونه می‌توان دیتابیس برنامه را آپدیت کرد؟ تا ایجا که فایل دیتابیس دانلود شود مشکلی نیست، بعدش چگونه میشود اطلاعات فایل دانلود شده را استفاده می‌کند و آن را جایگزین فایل قبلی کرد؟
لطفا اگر امکان دارد راهنمایی کنید. ممنون میشم.


 

بعد از اینکه فایل را دانلود کردید بر روی دیتابیس قبلی کپی کنید و بعد دیتابیس را باز کنید تا اطلاعات جدید را استفاده کنید


 

 

دوست عزیز چطور میتونم این کار رو انجام بدم. لطفا یک کد نمونه بدید. ممنون 


 

 

اگر منظور شما دستور کپی می باشد بصورت زیر است

کد:

File.Copy(File.DirAssets, "test", File.DirInternal, "test")

که باید نام فایل و مسیر مورد نظر را خودتان تعیین کنید



 
 

فکر می کنم شما متوجه منظور من نشدید. در هر صورت سپاسگذارم.


 

[mpc]

سلام 
اشکال این برنامه چیه ؟  لطفا استاتید راهنمایی کنند
 قرار با کشیدن دست روی صفحه  خط یکشه

#Region  Project Attributes 
    #ApplicationLabel: Test Draw
    #VersionCode: 1
    #VersionName: 
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: portrait
    #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

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.
    
'    Dim bmpImage, bmpTest, bmpTransparent As Bitmap
    Dim pnlTest As Panel
    Dim cvsImage, cvsTest As Canvas
    Dim Label3 As Label        
    Dim Label4 As Label        
    Dim LineColor As Int            : LineColor=Colors.Blue
    Dim LineWidth As Float        : LineWidth=3
    Dim x1 As Float                    : x1=0
    Dim y1 As Float                : y1=0
    Dim x2 As Float                    : x2=0
    Dim y2 As Float                : y2=0

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("Layout")
    cvsImage.Initialize(Activity)
    Label3.Text ="X = 0.0"
    Label4.Text ="Y = 0.0"
End Sub

Sub Activity_Resume

End Sub


Sub Activity_Touch (Action As Int, X As Float, Y As Float)
    
    If Action=Activity.ACTION_DOWN Then
        x1=X
        y1=Y
        x2=X
        y2=Y
        Label3.Text="X = " & X
        Label4.Text="Y = " & Y
      Else If Action=Activity.ACTION_MOVE Then
        x2=X
        y2=Y
        pnlTest.Color=Colors.Transparent
        cvsTest.Initialize(pnlTest)
        cvsTest.DrawLine(x1,y1-pnlTest.Top,x2,y2-pnlTest.Top,Colors.Red,LineWidth)
        pnlTest.Invalidate
    
        Label3.Text="X = " & X
        Label4.Text="Y = " & Y
      Else If Action=Activity.ACTION_UP Then
        pnlTest.Color=Colors.Transparent
        cvsTest.Initialize(pnlTest)
        cvsImage.DrawLine(x1,y1,x2,y2,LineColor,LineWidth)
    
    End If
End Sub

[arya67]

درود
میخواستم بپرسم چگونه می‌توان دیتابیس برنامه را آپدیت کرد؟ تا ایجا که فایل دیتابیس دانلود شود مشکلی نیست، بعدش چگونه میشود اطلاعات فایل دانلود شده را استفاده می‌کند و آن را جایگزین فایل قبلی کرد؟
لطفا اگر امکان دارد راهنمایی کنید. ممنون میشم.


 

بعد از اینکه فایل را دانلود کردید بر روی دیتابیس قبلی کپی کنید و بعد دیتابیس را باز کنید تا اطلاعات جدید را استفاده کنید


 

 

دوست عزیز چطور میتونم این کار رو انجام بدم. لطفا یک کد نمونه بدید. ممنون 


 

 

با سلاک
من درست متوجه نشدم مشکلتون رو
اگر فایل را دانلود کردید، خوب با دستور کپی روی دیتابیش قبلی کپیش کنید و از دیتابیس جدید استفاده کنید
 

[mpc]

درود  
اشکال این برنامه چیه ؟  لطفا استاتید راهنمایی کنند
 قرار با کشیدن دست روی صفحه  خط یکشه 

چقدر جواب دادید
آدم امیدوار میشه به راهنمایی های شما

میشه سورس چند نمونه برنامه خوب از ساده به سخت  را در سایت قرار دهید و یا منبع آن ها را معرفی نمائید


 

[seyedsharifi]

درود  
اشکال این برنامه چیه ؟  لطفا استاتید راهنمایی کنند
 قرار با کشیدن دست روی صفحه  خط یکشه 

چقدر جواب دادید
آدم امیدوار میشه به راهنمایی های شما

میشه سورس چند نمونه برنامه خوب از ساده به سخت  را در سایت قرار دهید و یا منبع آن ها را معرفی نمائید


 

 

با سلام دوست عزیز
اینجا تنها جایی هست که در مورد B4A فعالیت دارد و من در هیچ سایت دیگری تاپیکی برای این موضوع پیدا نکردم
منتها نمیدانم B4A خواهان کمی دارد یا کاراییش کم است یا به چه دلیل مراجعه کننده به این قسمت کم میباشد و کم پیدا میشود کسی جواب ما را بدهد
پیشنهاد میکنم از راهنمایی های خود سایت B4A استفاده کنید و به جواب برسید
من مدتی است که شروع به کار کرده ام ولی پیشرفتم کم است چون براحتی دیگر تاپیکها نمیشود از اینجا نتیجه گرفت
انشا الله که کسایی پیدا شوند تا ما را بهتر و دقیقتر راهنمایی کنند

در آخر از مدیریت سایت برای ایجاد این تاپیک و همکارانی که ما را راهنمایی میکنند کمال تشکر را دارم
 

[wikiccu]

نمیدونم قضیه چیه هرچی اینجا سوال میپرسم 1 دیقه بعد جوابشو خودم پیدا میکنمیعنی این سوال آخر 3 روز وقت گذاشتم نشد ! الان 5 دیقه نشده سوال کردم خودم فهمیدم جوابشو جواب سوال :برای استفاده از فایل csv که حاوی فایل پارسی هستش با  sqlite manager توی پلاگین های FireFox میشه سالم import کردش