منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : دليل الهاتف باستخدام ( B4A + sqlite ) موضوع متجدد
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
الصفحات : 1 2
السلام عليكم

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

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


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

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

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




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

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

    

    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
التطبيق مفتوح المصدر
نسيت ارفعه من قبل
في المرفقات
ياعمي ممكن تشرح نفس الفكره بس نريدها على اكسل
تربط التطبيق بقاعدة اكسل

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

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

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

https://www.b4x.com/android/forum/thread...oid.25632/
الصفحات : 1 2