اطلاعیه

کاربر گرامی

به انجمن برنامه نویسی AnswerCenter.ir خوش آمدید

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


mohammadnajani

کاربر عادی
  • تعداد ارسال ها

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

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

درباره mohammadnajani

  • درجه
    کاربر سایت
  • تاریخ تولد 07/06/1997
  1. سوال در مورد Scheme

    سلام ، من میخام پرداخت درون برنامه ای زرین پال رو داخل برنامم پیاده کنم، توی قسمتی که باید به manifest برنامه اضافه کنم یه قسمتشو متوجه نمیشم؟ جای Scheme باید چی بزارم؟ AddActivityText(<HANDLER-ACTIVITY-NAME>, <intent-filter> <action android:name="android.intent.action.VIEW"/> <category android:name="android.intent.category.DEFAULT"/> <category android:name="android.intent.category.BROWSABLE"/> <data android:scheme="<YOUR-APP-SCHEME>"/> </intent-filter> )
  2. برش لایوت در اسکرول ویو

    سلام دوستان من یه لیست ویو سفارشی نوشتم ولی هر وقت طول متنی که داخل لیبل لود میکنم از طول لایوت بیشتر میشه از اونجا به بعدش رو سفید نشون میده! کسی راه حلی داره؟ For i = 0 To ll.Size - 1 Dim m As Map m = ll.Get(i) p1.Initialize("") sc1.Panel.AddView(p1,3%X,0,94%X, 100%Y) p1.LoadLayout("matlab") Dim sh As StringUtils titr.Text=m.Get("onvan") taneh.Text=m.Get("matn") pic.Initialize pic.LoadUrl(m.Get("picture")).Fit.IntoImageView(tasvir) Dim ht As Float ht = sh.MeasureMultilineTextHeight(taneh,m.Get("matn")) sc1.Panel.Height=ht+60%Y Next
  3. مشکل در سورس سمت سرور برنامه

    Stack trace: #0 {main} thrown in /home/goharsha/public_html/b4a/dentoeed/verify_email.php on line 9 [16-May-2018 22:36:10 Asia/Tehran] PHP Fatal error: Uncaught Error: Call to a member function fetch() on boolean in /home/goharsha/public_html/b4a/dentoeed/verify_email.php:9 Stack trace: #0 {main} thrown in /home/goharsha/public_html/b4a/dentoeed/verify_email.php on line 9 این ارور رو اطلاعات درست داده ارور 500 داره http://goharshad8.ir/b4a/dentoeed/verify_email.php/?kode="12345"&phone="09014123641"&email="xx@yahoo.com" $kode=$_GET["kode"]; $phone=$_GET['phone']; $email = $_GET['email']; if(isset($phone)){ $user_old = $db->query('select count(id) from tbl_user where phone="'.$phone.'"'); $c = $user_old->fetch()['count(id)']; if ($c > 0){ $db->query('UPDATE INTO tbl_user SET kode="'.$kode.'",email="'.$email.'" WHERE phone="'.$phone.'"'); $to = $email; $subject = 'دنتوئید'; $message = 'سلام' . "\r\n" . 'به دنتوئید خوش آمدید.' . "\r\n" . 'برای تایید ایمیل خود، کد زیرا را داخل برنامه وارد کنید.' . "\r\n" . 'کد تایید =' .$kode. ''; $message = wordwrap($message, 70, "\r\n"); $headers = 'From: mn94417@gmail.com' . "\r\n" . 'Reply-To: mn94417@gmail.com' . "\r\n" ; mail($to, $subject, $message, $headers); echo 'OK'; }else { echo 'moshkel'; } } ?> ارور برای این لاین هستش $c = $user_old->fetch()['count(id)'];
  4. مشکل در سورس سمت سرور برنامه

    سلام تگش رو همون ht_regg گذاشتم
  5. با سلام خدمت دوستان من یه فایل php دارم که با بیسیک میخام باش ارتباط برقرار کنم و یه سری کار انجام بده سورسشو میزارم متوجه میشید این کد سمت سرور <?php $db = new PDO ('mysql:host=localhost;dbname=****;charset=utf8','****','****'); $kode=$_GET["kode"]; $phone=$_GET['phone']; $email = $_GET['email']; if(isset($phone)){ $user_old = $db->query('select count(id) from tbl_user where phone="'.$phone.'"'); $c = $user_old->fetch()['count(id)']; if ($c > 0){ $db->query('UPDATE INTO tbl_user SET kode="'.$kode.'",email="'.$email.'" WHERE phone="'.$phone.'"'); $to = $email; $subject = 'دنتوئید'; $message = 'سلام' . "\r\n" . 'به دنتوئید خوش آمدید.' . "\r\n" . 'برای تایید ایمیل خود، کد زیرا را داخل برنامه وارد کنید.' . "\r\n" . 'کد تایید =' .$kode. ''; $message = wordwrap($message, 70, "\r\n"); $headers = 'From: mn94417@gmail.com' . "\r\n" . 'Reply-To: mn94417@gmail.com' . "\r\n" ; mail($to, $subject, $message, $headers); echo 'OK'; }else { echo 'moshkel'; } } ?> این کد داخل بیسیک ht_reg.PostString("http://goharshad8.ir/b4a/dentoeed/verify_email.php","email='"&phone_txt1.Text&"'&Kode='"&adad&"'&phone='"&phone&"'") Sub JobDone(Job As HttpJob) Log(Job.GetString) If Job.Tag = "ht_regg" Then If Job.Success Then If Job.GetString = "OK" Then ProgressDialogHide Main.sql.ExecNonQuery("UPDATE user SET email='"&email&"', kode='"&adad&"' where id=0") Dim snackbar As DSSnackbar snackbar.Initialize("snack100",Activity,"ایمیل ارسال شد.",snackbar.DURATION_LONG) SetSnackBarBackground(snackbar,ac.GetThemeAttribute("colorAccent")) SetSnackBarTextColor(snackbar,Colors.White) snackbar.Show StartActivity("verify_email_varede") Activity.Finish End If If Job.GetString = "moshkel" Then Dim snackbar As DSSnackbar snackbar.Initialize("snack100",Activity,"مشکل پیش آمده است. از ابتدا ثبت نام کنید.",snackbar.DURATION_LONG) SetSnackBarBackground(snackbar,ac.GetThemeAttribute("colorAccent")) SetSnackBarTextColor(snackbar,Colors.White) snackbar.Show StartActivity("main") Activity.Finish End If Else Dim snackbar As DSSnackbar snackbar.Initialize("snack4",Activity,"خطا در برقراری ارتباط با سرور",snackbar.DURATION_LONG) SetSnackBarBackground(snackbar,ac.GetThemeAttribute("colorAccent")) SetSnackBarTextColor(snackbar,Colors.White) snackbar.Show End If End If End Sub مشکل اینجاست که هیچ اتفاقی رخ نمیده اصلن تو قسمت سمت سرور آدرس مرورگر هم که وارد میکنم با دادن مقادیر هیچ اتفاقی رخ نمیده!
  6. سلام دوستان یه برنامه ثبت نام پیامکی دارم مینویسم یه قسمتش یه پنل تعریف کردم که میخام دو تا لایوت رو لود کنم ، تو حالت ریلیز بدون مشکل برنامه ران میشه ولی برنامه درست کار نمیکنه تو حالت دیباگر هم برنامه با خطای بسته میشه. مشکل چیه؟ #Extends: android.support.v7.app.AppCompatActivity Sub Process_Globals Dim aas As String Dim tim As Timer End Sub Sub Globals Private AHViewPager1 As AHViewPager Private PC As AHPageContainer Private DSTabLayout1 As DSTabLayout Private Label1 As Label Private login_btn As ACButton Private pass_txt As EditText Private name_txt As EditText Private register_btn As ACButton Dim ht_reg As HttpJob Private pass_txt1 As EditText Private phone_txt1 As EditText Private login_btn As ACButton Private pass_txt1 As EditText Dim ht_log As HttpJob Dim EditTextPlus As EditTextPlus Dim Phone As Phone Private phone_txt As EditText Dim ac As AppCompat End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Log_reg") Main.sql.Initialize(File.DirInternal,"data.db",False) ht_reg.Initialize("ht_reg",Me) ht_log.Initialize("ht_log",Me) PC.Initialize For i=0 To 1 Dim p As Panel p.Initialize("") p.Color=Colors.White If i=0 Then p.LoadLayout("login") If i=1 Then p.LoadLayout("register") PC.AddPage(p,"") Next AHViewPager1.PageContainer = PC DSTabLayout1.SetViewPager(AHViewPager1) DSTabLayout1.Color=ac.GetThemeAttribute("colorPrimary") DSTabLayout1.TabIndicatorColor = ac.GetThemeAttribute("colorAccent") DSTabLayout1.SetTabText(1,"ثبت نام") DSTabLayout1.SetTabText(0,"ورود") DSTabLayout1.SetTabTextColors(Colors.White,ac.GetThemeAttribute("colorAccent")) DSTabLayout1.SelectTab(1) login_btn.ButtonColor = ac.GetThemeAttribute("colorAccent") Label1.TextColor = ac.GetThemeAttribute("colorAccent") SetTypeface(DSTabLayout1,Typeface.LoadFromAssets("iran-sans.ttf")) End Sub Sub SetTypeface(parent As Panel, t As Typeface) For Each v As View In parent If v Is Label Then Dim lbl As Label = v lbl.Typeface = t Else If v Is Panel Then SetTypeface(v, t) End If Next End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub register_btn_Click If name_txt.Text.Length < 5 Then EditTextPlus.setError(name_txt,"نام و نام خانوادگی نمیتواند کمتر از پنج حرف باشد") Return End If If phone_txt.Text.Length > 11 Then EditTextPlus.setError(phone_txt,"لطفا شماره موبایل را به درستی وارد کنید") Return End If If phone_txt.Text.Length < 11 Then EditTextPlus.setError(phone_txt,"لطفا شماره موبایل را به درستی وارد کنید") Return End If If pass_txt.Text.Length < 6 Then EditTextPlus.setError(pass_txt,"رمزعبور نمی تواند کمتر از شش حرف باشد") Return End If aas = phone_txt.Text File.WriteString(File.DirInternal,"phone_txt.txt",aas) ht_reg.PostString("http://***","username="&name_txt.Text&"&password="&pass_txt.Text&"&phone="&phone_txt.Text) ht_reg.Tag = "ht_regg" ProgressDialogShow("در حال ثبت اطلاعات...") End Sub Sub login_btn_Click If phone_txt1.Text.Length > 11 Then EditTextPlus.setError(phone_txt1,"لطفا شماره موبایل را به درستی وارد کنید") Return End If If phone_txt1.Text.Length < 11 Then EditTextPlus.setError(phone_txt1,"لطفا شماره موبایل را به درستی وارد کنید") Return End If If pass_txt1.Text.Length < 6 Then EditTextPlus.setError(pass_txt1,"رمزعبور نمی تواند کمتر از شش حرف باشد") Return End If ProgressDialogShow("لطفا صبر کنید") ht_log.PostString("http://***","phone="&phone_txt1.Text&"&password="&pass_txt1.Text) ht_log.Tag = "ht_logg" End Sub Sub JobDone(Job As HttpJob) If Job.Tag = "ht_regg" Then If Job.Success Then If Job.GetString = "OK" Then ht_reg.PostString("http://***","msg="& "ثبت نام کاربر جدید" &CRLF& "نام و نام خانوادگی: "&name_txt.Text&CRLF&"رمزعبور: "&pass_txt.Text&CRLF&"شماره موبایل: "&phone_txt.Text&CRLF&"گوشی کابر: "&Phone.Product&" _ "&Phone.Model) Dim Cursor2 As Cursor Cursor2 = Main.sql1.ExecQuery("UPDATE tbl_profile SET Name_Family = '"& name_txt.Text &"',Phone = '"& phone_txt.Text &"'") Cursor2.Position = 0 Cursor2.Close tim.Initialize("tim1",4000) tim.Enabled = True Else if Job.GetString = "OLD" Then EditTextPlus.setError(phone_txt,"قبلا با این شماره موبایل ثبت نام انجام شده است") tim.Enabled = False ProgressDialogHide End If Else Dim snackbar As DSSnackbar snackbar.Initialize("snack4",Activity,"خطا در برقراری ارتباط با سرور",snackbar.DURATION_LONG) SetSnackBarBackground(snackbar,ac.GetThemeAttribute("colorAccent")) SetSnackBarTextColor(snackbar,Colors.White) snackbar.Show tim.Enabled = False ProgressDialogHide End If End If If Job.Tag = "ht_logg" Then ProgressDialogHide If Job.Success Then If Job.GetString = "OK" Then Dim snackbar As DSSnackbar snackbar.Initialize("snack1",Activity,"با موفقیت وارد شدید",snackbar.DURATION_LONG) SetSnackBarBackground(snackbar,ac.GetThemeAttribute("colorAccent")) SetSnackBarTextColor(snackbar,Colors.White) snackbar.Show Dim Cursor1 As Cursor Cursor1 = Main.sql1.ExecQuery("UPDATE tbl_profile SET Name_Family = '', FirstOpen='1', Phone = '"& phone_txt1.Text &"'") Cursor1.Position = 0 Cursor1.Close StartActivity(HomePage_ac) Activity.Finish Else If Job.GetString = "WRONG" Then Dim snackbar As DSSnackbar snackbar.Initialize("snack1",Activity,"شماره موبایل یا رمزعبور اشتباه است",snackbar.DURATION_LONG) SetSnackBarBackground(snackbar,ac.GetThemeAttribute("colorAccent")) SetSnackBarTextColor(snackbar,Colors.White) snackbar.Show Else Dim snackbar As DSSnackbar snackbar.Initialize("snack2",Activity,"خطای ناشناخته",snackbar.DURATION_LONG) SetSnackBarBackground(snackbar,ac.GetThemeAttribute("colorAccent")) SetSnackBarTextColor(snackbar,Colors.White) snackbar.Show End If Else Dim snackbar As DSSnackbar snackbar.Initialize("snack3",Activity,"خطا در برقراری ارتباط با سرور",snackbar.DURATION_LONG) SetSnackBarBackground(snackbar,ac.GetThemeAttribute("colorAccent")) SetSnackBarTextColor(snackbar,Colors.White) snackbar.Show End If End If End Sub Public Sub SetSnackBarBackground(pSnack As DSSnackbar, pColor As Int) Dim v As View v = pSnack.View v.Color = pColor End Sub Public Sub SetSnackBarTextColor(pSnack As DSSnackbar, pColor As Int) Dim p As Panel = pSnack.View For Each v As View In p.GetAllViewsRecursive If v Is Label Then Dim textv As Label textv = v textv.TextColor = pColor textv.Typeface = Typeface.LoadFromAssets("iran-sans.ttf") textv.TextSize = 11 Exit End If Next End Sub Sub tim1_Tick ProgressDialogHide tim.Enabled = False StartActivity(Verify_ac) Activity.Finish End Sub Sub Label1_Click End Sub Sub Panel1_Click End Sub اینم تصاویر