تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
دليل الهاتف باستخدام ( B4A + sqlite ) موضوع متجدد
#11
السلام عليكم

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

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


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

جزالك الله الف خير
الرد }}}
تم الشكر بواسطة: asemshahen5 , asemshahen5
#12
والله يااخي الاعلانات مافيها خير
واكثرها مخله بالاداب منافية للشرع
فأنا لا استخدم ايه اعلانات في برامجي
والمعوض الله
الانسان تكفيه ذنوبه
عاده يتحمل ذنوب غيره بسبب المواقع الاعلانية الذين لاهم لهم الا المال

وطرق الربح من البرامج كثيرة
كبيعها او تصميمها لطرف اخر زبون او جعل عليها رسوم استخدام وغير ذلك
الرد }}}
تم الشكر بواسطة: mir2 , mir2 , asemshahen5 , sendbad100
#13
الدرس الرابع تنفيذ العمليات على قاعدة البيانات




الاكواد المستخدمة

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

    

    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
الرد }}}
تم الشكر بواسطة: asemshahen5 , sendbad100 , ابو انس
#14
التطبيق مفتوح المصدر
نسيت ارفعه من قبل
في المرفقات


الملفات المرفقة
.zip   phone.zip (الحجم : 15.16 ك ب / التحميلات : 13)
الرد }}}
تم الشكر بواسطة: asemshahen5 , ابو انس , vbtemp
#15
ياعمي ممكن تشرح نفس الفكره بس نريدها على اكسل
تربط التطبيق بقاعدة اكسل

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

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

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

https://www.b4x.com/android/forum/thread...oid.25632/
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] السلام عليكم ورحمه الله وبركاته ممكن دروس شرح كامل عن البرمجه باستخدام برنامج b4a حسن الجلب 1 1,238 18-07-22, 10:16 PM
آخر رد: alfaiz678

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم