منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
دليل الهاتف باستخدام ( B4A + sqlite ) موضوع متجدد - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الاقسام الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=74)
+--- قسم : قسم برمجة وتطوير تطبيقات الأندرويد (http://vb4arb.com/vb/forumdisplay.php?fid=75)
+---- قسم : basic 4 android (http://vb4arb.com/vb/forumdisplay.php?fid=199)
+---- الموضوع : دليل الهاتف باستخدام ( B4A + sqlite ) موضوع متجدد (/showthread.php?tid=31285)

الصفحات: 1 2


RE: دليل الهاتف باستخدام ( B4A + sqlite ) موضوع متجدد - قاسم2020 - 24-11-20

السلام عليكم

اخي  / [b]alfaiz678[/b]

هل يمكن ان تشرح لنا بالعربية كيف اضع الاعلانات واربطها بجوجل ادسنس  واستفيد من برامجي؟


اقصد التطبيقات المبرمجة ب B4A 

جزالك الله الف خير



RE: دليل الهاتف باستخدام ( B4A + sqlite ) موضوع متجدد - alfaiz678 - 25-11-20

والله يااخي الاعلانات مافيها خير
واكثرها مخله بالاداب منافية للشرع
فأنا لا استخدم ايه اعلانات في برامجي
والمعوض الله
الانسان تكفيه ذنوبه
عاده يتحمل ذنوب غيره بسبب المواقع الاعلانية الذين لاهم لهم الا المال

وطرق الربح من البرامج كثيرة
كبيعها او تصميمها لطرف اخر زبون او جعل عليها رسوم استخدام وغير ذلك


RE: دليل الهاتف باستخدام ( B4A + sqlite ) موضوع متجدد - alfaiz678 - 01-12-20

الدرس الرابع تنفيذ العمليات على قاعدة البيانات




رابط المثال
الاكواد المستخدمة

كود :
************************************

    

    If M_ListName.ValueX <>0 Then
    
        cmd= SQL1.ExecQuery("select * from phone where id = " & M_ListName.ValueX & "")
        cmd.Position = 0
        ETAddress.Text= cmd.getString("Address")
        ETEmail.Text= cmd.getString("Email")
        ETid.Text= cmd.GetInt("id")
        ETMemo.Text= cmd.getString("Memo")
        ETName.Text= cmd.getString("Name")
        ETTel.Text= cmd.getString("Tel")
        M_ListName.ValueX=0
End If


***********************************

Dim SQL1 As SQL
    Dim cmd As Cursor
    Dim ValueX As Int


Activity.LoadLayout("Lu_ListName")

    If SQL1.IsInitialized = False Then
        SQL1.Initialize(File.DirInternal, "DBPhone.db", False)
    End If
    
    '
    ListView1.SingleLineLayout.Label.Width=ListView1.Width-20dip
    ListView1.SingleLineLayout.Label.TextSize = 24
    ListView1.SingleLineLayout.Label.TextColor=Colors.Blue
    'ListView1.SingleLineLayout.Label.Left=0dip
    ListView1.SingleLineLayout.ItemHeight=45dip
    
    
    '
    ListView1.Clear'need to clear the list
    cmd = SQL1.ExecQuery("SELECT * FROM Phone  ")
    For i = 0 To cmd.RowCount - 1
        cmd.Position = i
        ListView1.AddSingleLine2(cmd.GetString("Name"),cmd.GetInt("id"))
    Next


Sub ListView1_ItemClick (Position As Int, Value As Object)
    ValueX=Value
    StartActivity(M_Proc_Contact)
End Sub



RE: دليل الهاتف باستخدام ( B4A + sqlite ) موضوع متجدد - alfaiz678 - 11-09-21

التطبيق مفتوح المصدر
نسيت ارفعه من قبل
في المرفقات


RE: دليل الهاتف باستخدام ( B4A + sqlite ) موضوع متجدد - 77uuu - 26-04-23

ياعمي ممكن تشرح نفس الفكره بس نريدها على اكسل
تربط التطبيق بقاعدة اكسل

من اجل اضافة الارقام وتعديلها ثم عرضها من البرنامج


RE: دليل الهاتف باستخدام ( B4A + sqlite ) موضوع متجدد - alfaiz678 - 08-05-23

(26-04-23, 10:35 PM)77uuu كتب : ياعمي ممكن تشرح نفس الفكره بس نريدها على اكسل
تربط التطبيق بقاعدة اكسل

من اجل اضافة الارقام وتعديلها ثم عرضها من البرنامج

ليش الاكسل sqlite افضل من الاكسل بكثير


RE: دليل الهاتف باستخدام ( B4A + sqlite ) موضوع متجدد - 77uuu - 19-05-23

اكيد بس لسهولة اضافة البيانات في اكسل
اريد عرض الفكره حق دليل الارقام 
بقاعدة بيانات اكسل بدل sql


RE: دليل الهاتف باستخدام ( B4A + sqlite ) موضوع متجدد - alfaiz678 - 21-05-23

(19-05-23, 10:43 PM)77uuu كتب : اكيد بس لسهولة اضافة البيانات في اكسل
اريد عرض الفكره حق دليل الارقام 
بقاعدة بيانات اكسل بدل sql

https://www.b4x.com/android/forum/threads/read-write-excel-files-on-android.25632/