+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 SubRE: دليل الهاتف باستخدام ( 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/