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

AnswerCenter

مرکز پاسخگویی به سوالات برنامه نویسی

درخواست سفارش پروژه

اطلاعیه

کاربر گرامی

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

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


hamedafrough

کاربر عادی
  • Content Count

    38
  • Joined

  • Last visited

Community Reputation

3 متوسط

About hamedafrough

  • Rank
    کاربر باسابقه
  • Birthday تعیین نشده

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. سلام دوستان عیدتون مبارک من یه مولتی پنل آنلاین ساختم که در بخش تگ و سندرش برای دریافت ریز اطلاعات به مشکل خوردم هر کاری میکنم نمیتونم ارتباط بین اطلاعات و جداول رو برقرار کنم روال برنامم اینطوری هست که 1. در صفحه نشون دادن اعضا نام و نام خانوادگی رو بههمراه شماره آی دی نشون میده که این صفحه در دو لایه هست (یکی لایه اسکرول و یکی لایه جزییات مولتی پنل) 2. وقتی روی لیبل نام و نام خانوادگی کلیک میشه وارد اکتیویتی دوم میشه که این اکتیویتی هم دو لایه داره (یکی لایه اسکرول و یکی لایه فیلدهای ریز مشخصات) 3. وقتی روی لیبل نام و نام خانوادگی لانگ کلیک میشه وارد اکتیویتی ویرایش اطلاعات میشه که این اکتیویتی هم دو لایه داره (یکی اسکرول و یکی فیلدهای ویرایش اطلاعات) و البته این اکتیویتی ادیت تکس داره که هم ازش برای درج اطلاعات جدید استفاده میکنم هم برای ویرایش اطلاعات حالا بین این چند اکتیویتی و لایه نمی تونم ارتباط برقرار کنم که با کلیک روی هر لیبل مشخصات همون فرد نمایش داده بشه ممنون میشم کمکم کنید کدهای اکتیویتی اول Sub jobdone (job As HttpJob) #region slvaza If job.Success=True Then ProgressDialogHide jp.Initialize(job.GetString) Dim list As List= jp.NextArray For i=0 To list.Size-1 Dim p As Panel p.Initialize("p") slvaza.Panel.AddView(p,0%x,top,95%x,45%y) p.LoadLayout("lkoleaza_mpinfo") ' pnlmain.Tag=i p.Tag=i top=top+7%y+0%x Main.map_title =list.Get(i) Dim plusname As String=Main.map_title.Get("famili")&" "&Main.map_title.Get("nam") lblmp_id.Text=Main.map_title.Get("id") lblmp_nam.Text=plusname ' lblmp_id.Tag=i lblmp_nam.Tag=i lblmp_id.Tag=Main.map_title.Get("id") lblmp_nam.Tag=plusname Next slvaza.Panel.Height=top Else ProgressDialogHide ToastMessageShow("خطا در برقراری ارتباط با سرور",False) End If Main.ht1.Release end sub Sub lblmp_nam_Click Activity.Finish Dim btn_tag As Label btn_tag=Sender ' ToastMessageShow(btn_tag.Tag,False) StartActivity(lkoleaza_slvlbl) lblmp_id.Tag=Main.map_title.Get("id") End Sub کدهای اکتیویتی دوم Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("lkoleaza_slvlbl") slvaza.Panel.LoadLayout("lkoleaza_lbldata") slvaza.Panel.Height=160%y Main.ht2.Initialize("show_ht",Me) Main.ht2.Download("http://hamedafrough.ir/misaq/mainapp/tabels/koleaza.php") end sub Sub JobDone(Job As HttpJob) ProgressDialogHide If Job.Success=True Then jp.Initialize(Job.GetString) Dim list As List=jp.NextArray For i=0 To list.Size-1 Main.map_title=list.Get(i) Dim p As Panel p.Initialize("p") slvaza.Panel.AddView(p,0%x,top,95%x,45%y) p.LoadLayout("lkoleaza_lbldata") p.Tag=i top=top+15%y+0%x Dim fn As String fn=Main.map_title.Get("famili")&" "&Main.map_title.Get("nam") lblid.Text=Main.map_title.Get("ID") lblfamili.Text= Main.map_title.Get("famili") lblnam.Text= Main.map_title.Get("nam") lblozvkod.Text= Main.map_title.Get("ozvkod") lblbirth.Text= Main.map_title.Get("birth") lblshenas.Text= Main.map_title.Get("shenas") lblkodemeli.Text= Main.map_title.Get("kodemeli") lblsadere.Text= Main.map_title.Get("sadere") lblmob1.Text= Main.map_title.Get("mob1") lblmob2.Text= Main.map_title.Get("mob2") lbltel1.Text= Main.map_title.Get("tel1") lbltel2.Text= Main.map_title.Get("tel2") lblfax.Text= Main.map_title.Get("fax") lblmail.Text= Main.map_title.Get("mail") lblmanzel.Text= Main.map_title.Get("manzel") lblkar.Text= Main.map_title.Get("kar") lbltelegram.Text= Main.map_title.Get("telegram") lblinsta.Text= Main.map_title.Get("insta") lblbale.Text= Main.map_title.Get("bale") lblsoroosh.Text= Main.map_title.Get("soroosh") lblozviat.Text=Main.map_title.Get("ozviat") lblvaziat.Text=Main.map_title.Get("vaziat") lbltozih.Text=Main.map_title.Get("tozih") Next slvaza.Panel.Height=top Else ToastMessageShow("لطفا اتصال برنامه به اینترنت را بررسی کنید",False) End If Main.ht2.Release end sub کدهای اکتیویتی سوم Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("lkoleaza_adddata") slvaza.Panel.LoadLayout("lkoleaza_data") slvaza.Panel.Height=190%y Main.ht1.Initialize("insert_ht",Me) Main.ht1.PostString("http://hamedafrough.ir/misaq/mainapp/tabels/insertdata.php","") end sub Sub lblsave_Click If txtfamili.Text="" Or txtnam.Text="" Or txtozvkod.Text="" Or txtmob1.Text="" Then ToastMessageShow("لطفا همه گزینه‌های ضروری را تکمیل کنید",False) txtfamili.HintColor=Colors.Red txtnam.HintColor=Colors.Red txtozvkod.HintColor=Colors.Red txtmob1.HintColor=Colors.Red Return Else Dim info1 As String info1="&famili=" &txtfamili.Text & "&nam=" &txtnam.Text & "&ozvkod=" &txtozvkod.text & "&birth=" & txtbirth.Text & "&shenas=" & txtshenas.text &"&kodemeli=" & txtkodemeli.text &"&sadere=" & txtsadere.text & "&tel1="& txttel1.Text & "&tel2=" & txttel2.text & "&mob1=" &txtmob1.Text & "&mob2=" & txtmob2.text & "&fax=" &txtfax.Text & "&mail=" & txtmail.text & "&manzel=" &txtmanzel.Text & "&kar=" & txtkar.text & "&telegram=" &txttelegram.Text & "&insta=" & txtinsta.text & "&bale=" &txtbale.Text & "&soroosh=" & txtsoroosh.text & "&ozviat=" &txtozviat.Text & "&vaziat=" & txtvaziat.text & "&tozih=" & txttozih.Text Main.ht1.PostString("http://hamedafrough.ir/misaq/mainapp/tabels/insertdata.php",info1) End If End Sub Sub jobdone(job As HttpJob) If job.Success=True Then ToastMessageShow("اطلاعات جدید وارد شد",False) End If End Sub
  2. سلام خداقوت من این آموزشو تهیه کردم و کارم راه افتاد از این بابت از دوستان ممنونم اما در این اموزش از تگ و سندر حرفی نبود چون این مبحث هنوز برام جا نیافتاده ممنون میشم راهنمای بفرمایید
  3. من هاست خریدم و دارم استفاده میکنم node js نمی دونم چیه؟ با php‌نمیشه جمعش کرد؟ البته فعلا کاربرای من سی چهل نفرن و بعیده در چند سال آتی بیشتر بشن
  4. من هر چی پرانتزارو کم و زیاد کردم درست نشد میشه دقیق بفرمایید چکارش کنم؟
  5. ممنونم بابت کمکتون من کد اصلاح شده رو گذاشتم اما ارر میده $conn->exec(SELECT COUNT(nobat) FROM tblusers1 WHERE nobat<(SELECT nam FROM tblusers1 WHERE nam=1)); Parse error: syntax error, unexpected 'COUNT' (T_STRING), expecting ',' or ')' in /home/hamedafr/public_html/misaq/tblnobat_nobatefard1.php on line 23
  6. این کد پی اچ پی منه درست جاگذاری کردم خط مربوطه رو؟ <?php $servername = "localhost"; $username = "******"; $password = "******"; $dbname = "*******"; $famili=$_POST['famili']; $nam=$_POST['nam']; $nobat=$_POST['nobat']; $vasete=$_POST['vasete']; try { $conn = new PDO("mysql:host=$servername;dbname=$dbname", $username, $password); // set the PDO error mode to exception $conn->setAttribute(PDO::ATTR_ERRMODE, PDO::ERRMODE_EXCEPTION); // begin the transaction $conn->beginTransaction(); // our SQL statements $conn->exec("SELECT COUNT(nobat) AS Orders1 FROM tblusers1 WHERE nobat=1"); // commit the transaction $conn->commit(); // echo "New records created successfully"; echo $nobat; } catch(PDOException $e) { // roll back the transaction if something failed $conn->rollback(); echo "Error: " . $e->getMessage(); } $conn = null; ?>
  7. ممنون جواب دادید اینکه هر چند ثانیه یک بار درخواست بفرسته الان مساله من نیست الان نمیدونم چطوری به برنامه بگم هر وقت کاربر ثبت درخواست زد فیلد نوبت همون کاربر رو از صفر به یک تغییر بده و نوبت ها که جلو میرن از مقدارنوبت کاربر کم کنه مثلا ده نفر تو نوبتن وقتی کار نفر اول راه افتاد اگر کاربر نفر ششم بوده بشه پنج و همینطور نوبت جلو بره تا به صفر برسه که یعنی نوبت کاربر رسیده
  8. سلام دوستان من برای برنامم نوبت دهی درست کردم و در کد پی اچ پی نوشتم که اگر مقدار فیلد نوبت که یا صفره یا یک، یک شد مجموعش رو در لیبل افراد در صف نشون بده این کارو می کنه اما می خوام وقتی کاربر روی ثبت درخواست کلیک کرد، اطلاعاتش ثبت بشه و برنامه بهش بگه مثلا شما نفر چندم هستید و هر وقت هم افراد در صف کم شدن، عدد نوبت کاربر کم بشه تا نوبت به خودش برسه و صفر بشه ممنون میشم در کدنویسی php و بیسیکش کمکم کنید
  9. سلام خداقوت میشه نمونه کد استفاده از کتابخونه رو هم بدید یاد بگیرم؟ من تازه کارم و بلد نیستم ممنونم
  10. خب همین چطوری سشن میذارن و اینکه سشن کجای کدها نوشته میشه یه نمونه دارید بهم بدید؟
  11. سلام دوستان من یه سری کد صفحه لاگین دارم ولی سشن نداره ممنون میشم هم بگید چطور و چه کدی رو برای سشن لابلای کدهای اون قرار بدم می خوام یوزرنیم به صورت سشن باشه ووقتی کاربر لاگین میکنه طبق کد کاربریش شناسایی بشه <?php $get= $_POST['get']; $con = new mysqli("localhost", "****", "*******", "*****"); $con->set_charset("utf8"); if ($con->connect_error) { echo "خطای پایگاه داده"; die(""); } if($get == "1") { $username= $_POST['username']; $result = $con->query("SELECT * FROM `tbllogin` where `username` LIKE '$username' "); if($result->num_rows > 0){ $myOut = array(); while($row = $result->fetch_assoc()){ $satr = array(); $satr['id'] = $row["id"]; $satr['username'] = $row["username"]; $satr['password'] = $row["password"]; $myOut[] = $satr; } echo json_encode($myOut); }else{ echo "NO"; } } if($get == "2") { $id = $_POST['id']; $password = $_POST['password']; $result = $con->query("UPDATE `tbllogin` SET `password`= '".$password."' WHERE id = '".$id."'"); } ?>
  12. سلام دوستان من چند تا فیلد دارم با یک اسپینر که گزینه هایی رو که ثابت هستن توی اسپینر تعریف کردم حالا میخوام وقتی کاربر فیلدها رو پر کرد و یکی از گزینه های اسپینر رو انتخاب کرد، با زدن دکمه ثبت گزینه مربوطه هم همراه اطلاعات در دیتابیس انلاین ذخیره بشه با کدی که نوشتم متن ذخیره شده در دیتابیس ناخواناست ممنون میشم راهنماییم کنید Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("lnobat") slvnobat.Panel.LoadLayout("lnobat_slv") slvnobat.Panel.Height=100%y Main.ht1.Initialize("job1",Me) Main.ht2.Initialize("job2",Me) Main.ht1.Download("http://hamedafrough.ir/misaq/mainapp/tabels/nobatcheck.php") txtmoteqazifam.SetBackgroundImage(LoadBitmap(File.DirAssets,"txtpicfill.png")) txtmoteqazinam.SetBackgroundImage(LoadBitmap(File.DirAssets,"txtpicfill.png")) #region spinner spnvasete.Add("") spnvasete.Add("1") spnvasete.Add("2") spnvasete.Add("3") spnvasete.Prompt="" spnvasete.DropdownBackgroundColor=Colors.RGB(33,150,243) spnvasete.TextColor=Colors.White #end region End Sub Sub btnsabt_Click lblsaf2.Text="" Main.ht1.Download("http://hamedafrough.ir/misaq/mainapp/tabels/nobatcheck.php") lblsaf2.Text=Main.ht1.GetString Dim info As String info="&famili=" &txtmoteqazifam.Text & "&nam=" & txtmoteqazinam.text & "&vasete=" & spnvasete Main.ht2.PostString("http://hamedafrough.ir/misaq/mainapp/tabels/insertnobat.php",info) End Sub Sub jobdone (job1 As HttpJob) If job1.success = True Then lblsaf2.text = job1.GetString End If End Sub Sub jobdone2 (job2 As HttpJob) If job2.success = True Then lblyou2.text = job2.GetString End If End Sub (B4ASpinner): Left=36, Top=210, Width=360, Height=74, Tag= این کدهای php منه کد ورود اطلاعات <?php $servername = "localhost"; $username = "***"; $password = "***"; $dbname = "***"; $famili=$_POST['famili']; $nam=$_POST['nam']; $nobat=$_POST['nobat']; $vasete=$_POST['vasete']; try { $conn = new PDO("mysql:host=$servername;dbname=$dbname", $username, $password); //set the PDO error mode to exception $conn->setAttribute(PDO::ATTR_ERRMODE, PDO::ERRMODE_EXCEPTION); $sql = "INSERT INTO tblnobat(id,famili,nam,nobat,vasete) VALUES (N'$id',N'$famili',N'$nam',N'$nobat',N'$vasete')"; //use exec() because no results are returned $conn->exec($sql); // echo "New record created successfully"; } catch(PDOException $e) { echo $sql . "<br>" . $e->getMessage(); } $conn = null; ?> اینم کد چک کردن تعداد نفرات ثبت شده هست <?php $con=mysqli_connect("localhost","***","***","***"); if (mysqli_connect_errno()) { echo "Failed to connect to MySQL: " . mysqli_connect_error(); } $sql="SELECT * FROM `tblnobat`"; $result=mysqli_query($con,$sql); $rowcount=mysqli_num_rows($result); echo $rowcount; mysqli_close($con); ?>
  13. خدا خیرت بده ایشالا می بینمش ایشالا که مشکلم حل بشه ممنونم
  14. دوست عزیز ممنونم که جواب دادید اطلاعات رو وارد میکنه اما من می خوام وقتی اطلاعات رو وارد کرد، در فیلد «نوبت» یه دونه اضافه کنه و رقم جدید رو در فیلد «افراد در صف» نشون بده مشکل من اینه که نمی تونم رقمو اضافه کنم و در فیلد کل افراد در صف نشون بدم این اکتیویتیمه: Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("lnobat") Main.ht1.Initialize("job1",Me) Main.ht2.Initialize("job2",Me) Main.ht1.Download("http://hamedafrough.ir/misaq/mainapp/tabels/nobatcheck.php") End Sub این دکمه ثبتمه در اپلیکیشن: Sub btnsabt_Click lblsaf2.Text="" Main.ht1.Download("http://hamedafrough.ir/misaq/mainapp/tabels/nobatcheck.php") lblsaf2.Text=Main.ht1.GetString Dim info As String info="&famili=" &txtmoteqazifam.Text & "&nam=" & txtmoteqazinam.text & "&vasete=" & spnvasete Main.ht2.PostString("http://hamedafrough.ir/misaq/mainapp/tabels/insertnobat.php",info) End Sub
×
×
  • Create New...