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

Ali reza

گروه دانشجو
  • تعداد ارسال ها

    59
  • تاریخ عضویت

  • آخرین بازدید

اعتبار در سایت

5

درباره Ali reza

  • درجه
    برنامه نویس

پیشفرض

  • وضعیت فردی :
    مجرد
  • جنسیت :
    اقا
  • محل تولد :
    شیراز
  • محل سکونت :
    شیراز
  • مدل گوشی :
    Samsung grand prim
  • درباره من :
    تخصص در زمینه بیسیک 4اندروید

آخرین بازدید کنندگان نمایه

322 بازدید کننده نمایه
  1. جستجو دیتابیس انلاین

    ممنون حل شد الان چطور بگم اگه روی یه ایتم کلیک شد مطالب مخصوص که توی دیتابیس برای اون ایتم نوشتم رو نشون بده یعنی یه ردیف که id name lname داره Lname رو چطور تو یه اکتیویتی دیگه بیار ممنون
  2. جستجو دیتابیس انلاین

    داداش این نشد Sub Globals Type TwoLines (First As String, Second As String,on As String) Dim ListView1 As ListView Dim id,name,location,email As String Private Button1 As Button Private EditText2 As EditText Dim mar As String End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("1") Button1_Click ' Dim i As Intent ' i.initialize (i.action_view,"tg://resolve?domain="&"yahoo98") ' StartActivity (i) '' ' Try ' Dim i As Intent ' i.initialize (i.action_view,"https://t.me/Novinsadr1") ' StartActivity (i) ' Catch ' ToastMessageShow("تلگرام بر روی گوشی شما نصب نیست",False) ' ' End Try End Sub Sub ListView1_ItemClick (Position As Int, Value As Object) Dim tl As TwoLines tl = Value ExecuteRemoteQuery("SELECT matn,bishtar FROM apps_name WHERE id='" & tl.on & "'", "userinfo") End Sub Sub ExecuteRemoteQuery(Query As String, JobName As String) Dim job As HttpJob job.Initialize(JobName, Me) job.PostString("http://app.sevinhost.ir/SQLDB.php", Query) End Sub Sub JobDone(job As HttpJob) ProgressDialogHide If job.Success Then Dim res As String res = job.GetString ' Log("Response from server: " & res) Dim parser As JSONParser parser.Initialize(res) Select job.JobName Case "getlist" Dim COUNTRIES As List COUNTRIES = parser.NextArray For i = 0 To COUNTRIES.Size - 1 Dim m As Map m = COUNTRIES.Get(i) Dim tl As TwoLines tl.First = m.Get("matn") tl.Second = m.Get("gheimat") tl.on = m.Get("id") mar = m.Get("matn") ListView1.FastScrollEnabled = True ListView1.TwoLinesLayout.Label.Left = 0 ListView1.TwoLinesLayout.SecondLabel.Left = 0 ListView1.TwoLinesLayout.Label.Width = ListView1.Width - 30 ListView1.TwoLinesLayout.SecondLabel.Width = ListView1.Width - 30 ListView1.TwoLinesLayout.Label.TextColor = Colors.Black ListView1.TwoLinesLayout.SecondLabel.TextColor = Colors.DarkGray ListView1.TwoLinesLayout.Label.TextSize = 16 ListView1.TwoLinesLayout.SecondLabel.TextSize = 14 ListView1.TwoLinesLayout.Label.Typeface = Typeface.LoadFromAssets("IRAN Sans Light.ttf") ListView1.TwoLinesLayout.SecondLabel.Typeface = Typeface.LoadFromAssets("IRAN Sans Light.ttf") ListView1.AddTwoLines2(tl.First, tl.Second, tl) Next Case "userinfo" Dim l As List l = parser.NextArray If l.Size = 0 Then ToastMessageShow("چیزی دریافت نشد",True) Else Dim m As Map m = l.Get(0) id = m.Get("id") name=m.Get("matn") location=m.Get("gheimat") email=m.Get("bishtar") ' CallSubDelayed2(getdata,"id1",id) ' CallSubDelayed2(getdata,"name1",name) CallSubDelayed2(getdata,"location1",name) CallSubDelayed2(getdata,"email1",email) StartActivity(getdata) End If End Select Else ToastMessageShow("Error: " & job.ErrorMessage, True) End If job.Release End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub Button1_Click ListView1.Clear ProgressDialogShow("گرفتن اطلاعات...") ExecuteRemoteQuery("SELECT matn,gheimat,id FROM apps_name ORDER BY id DESC", "getlist") End Sub اینا کد هامه هر هرچی هم با کد بالا ور میرم کار نمیکنه
  3. سلام دوستان ببخشید اگه میشه یکی کمکم کنه چند روزی هر چی تو نت گشتم هیچی ندیدم میخوام توی دیتابیس انلاین جستجو بزارم با php الان میام اطلاعات رو میگیر و میریزم توی لیست ویو بعد هم میام و اطلاعات دیگه رو توی یه اکتیویتی دیگه میگیرم حالا میخوام تو اینا جستجو کنم یکی بهم گفت توی یه لیست ذخیره کن بعد جستو جو کن ولی نفهمیدم اگه میشه کمکم کنید یه پروژه قبول کردم همه چیش تمومه فقط این مونده اگر هم نیاز فایل های php و کد های لودم رو هم بزارم ممنون دوستان
  4. جستجو دیتابیس انلاین

    سلام دوستان ببخشید اگه میشه یکی کمکم کنه چند روزی هر چی تو نت گشتم هیچی ندیدم میخوام توی دیتابیس انلاین جستجو بزارم با php الان میام اطلاعات رو میگیر و میریزم توی لیست ویو بعد هم میام و اطلاعات دیگه رو توی یه اکتیویتی دیگه میگیرم حالا میخوام تو اینا جستجو کنم یکی بهم گفت توی یه لیست ذخیره کن بعد جستو جو کن ولی نفهمیدم اگه میشه کمکم کنید یه پروژه قبول کردم همه چیش تمومه فقط این مونده اگر هم نیاز فایل های php و کد های لودم رو هم بزارم ممنون دوستان
  5. دیتابیس انلاین

    نمیدونم چون الان میرم دانشگاه وقتش رو ندارم ایا پی اچ پی سخته بهتر بگم زمان گیره ؟؟
  6. دیتابیس انلاین

    بله توی یه اکتیویتی دیگه
  7. دیتابیس انلاین

    سلام دوستان من اومدم یه سری اطلاعات رو توی یه لیست از دیتابیس انلاین گرفتم که حاویه چندتا اسمه با یه فایل php که خودم ننوشتم یعنی بلد نیستم pbp حالا من یه ستون دارم به نام بیشتر میخوام هر وقت روی یه موصوع کلیک شد بره به ستون بیشتر خودش یعنی مثلا توی لیست دارم learn-net.ir بعد توی ستون بیشتر دارم برنامه نویس ایرانی میخوام کلیک که شد بیشتر رو نمایش بده ممنون میشم کمک کنید ☺☺
  8. درون پرداخت بازار

    ببخشید واقعا اگه میشه یه نگاهی به این کد ها بندازید ببینید درست نوشتم یا نه بازم ببخشید Sub Globals Dim pro As Boolean = False Dim pay As bazaarpay Dim id As PhoneId Dim rsakey As String ="MIHNMA0GCSqGSIb3DQEBAQUAA4G7ADCBtwKBrwC6Vn/cEcXlRp4vyMGjOhx1pRyerxkv4Dg1PBRgSIhZP3n4tUzIBDZ63T8vCePc4ZfFEDbCXNxXuNewqwlDmspe4QnFZ4kHG/013a8LhmA2hr9EkuX9m7FgEvDydF9zAfiXILjYk2C+ZwE32YRHSE8LSgAu0HqTDDZQwZkA2bYDfzOVEWKNR0wU4qLKdN+21QbxycEE4HHLRe9kEd48DKHk/SjnlHYp4qWOF3fQrukCAwEAAQ==" Private probtn As Button Private EditText1 As EditText End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout ("222") If pro = False Then Try pay.Initialize ("pay",rsakey) Catch End Try Else probtn.Enabled = False probtn.Visible = False End If EditText1.Enabled = False chack End Sub Sub probtn_Click pay.RequestPayment ("full","inapp",id.GetDeviceId) End Sub Sub Check As Boolean Dim J1 As JavaObject Dim R As Reflector R.Target=R.GetContext J1 = R.RunMethod2("getSystemService","activity","java.lang.String") Dim TaskInfo As JavaObject = J1.RunMethod("getRunningTasks",Array As Object(1)) Dim CompInfo As JavaObject = TaskInfo.RunMethodJO("get",Array As Object(0)).GetField("topActivity") Dim PackageName As String = CompInfo.RunMethod("getPackageName",Null) If PackageName.CompareTo("com.farsitel.bazaar") = 0 Then Return True Else Return False End If End Sub Sub pay_PurchaseCompleted(Successed As Boolean, Product As Purchase) If Successed = True And Check = True Then ToastMessageShow("تشکر از خرید شما",False) File.WriteString(File.DirInternal,"Success-pay.txt","paysuccess") probtn.Visible=False '\File.MakeDir(File.DirInternal,".Success-pay.txt") EditText1.Enabled = True pay.ConsumeProduct(pay) else if Successed = False Then File.WriteString(File.DirInternal,"Success-pay.txt","paysuccess") ToastMessageShow("متاسفانه خرید ناموفق بود",False) else if Check = False Then ToastMessageShow("برنامه از لحاظ امنیتی از پردازش های قدرتمندی استفاده میکند و با نرم افزار های تقلب و جعل درون پرداخت قابل هک نیست , لطفا از راه قانونی و حلال از لحاظ شرعی , اقدام به خرید نسخه کامل نرم افزار کنید",False) End If End Sub Sub chack If File.Exists(File.DirInternal,".Success-pay.txt") = True Then EditText1.Enabled = True End If End Sub باز هم ببخشید زحمت دادم
  9. درون پرداخت بازار

    بله این متد هست ولی من در کد نویسی ازش استفاده نکردم
  10. درون پرداخت بازار

    ببخشید من از کتابخونه Bazaar-API استفاده میکنم ببینید من باید بیاد یه فایل تکس هم بسازم ؟؟چون وقتی نمیسازی دوباره باتون ها ویزیبلشون فالس میشه. ممنون
  11. درون پرداخت بازار

    سلام من کتابخونه درون پرداخت رو دارم یه 2 تا باتون دارم گفتم ویزیبلش فالس باشه اگه پرداخت انجام شد بیاد ویزیبل رو ترو کنه حالا کاربر اگه بعد پرداخت برنامه رو پاک کرد و دوباره نصب کرد چی باید دوباره بخره ایا ساخت یه فایل تکس خوبه روش صحیح چیه دوستان شما از چه روشی استفاده میکنید من از کتابخونه bazaar _API v2.36 استفاده میکنم
  12. یعنی یه فونت و یه سایز خوب برنامه رو مطلوب میکنه یا اینکه قسمت تنظیمات بسازم
  13. دیکشنری تخصصی تمام رش... با سلام این لینک اون دیکشنری بود که بخاطرش اساتید رو خیلی ادیت کردم اگه میشه دان کنید نطر بدید ☆☆☆☆☆ ممنون
  14. کمک در درون پرداخت بازاز

    ببخشید من مبتدیم میشه کد هاش رو بهم بگید
  15. با سلام ببخشید من هر پی تو انجم جستجو کردم درست به جواب نرسیدم من کتابخانه درون پرداخت و سورس رو دارم توی پروژه یه ادیت تکست دارم و یه باتون میخوام این ها رو ببندم وقتی پرداخت انجام شد باز بشه و اگه کاربر برنامع روحذف کرد دوباره نصب کرد ایتم ها باز باشه ممنون
×