رفتن به مطلب
لـــرن نــت

انجمن های پشتیبانی

شما می توانید سوالات و مشکلات خود را در انجمن های تخصصی برنامه نویس ایرانی پیگیری کنید.

تــوجــه

این وب سایت تابع قوانین جمهوری اسلامی میباشد و وابسته به هیچ گروه سیاسی و ارگان خاصی نمیباشد.

تــوجــه

این وب سایت تحت نظر پلیس فتا میباشد و تمامی مطالب طبق قوانین ایران میباشد.

  • نام کاربری

    reza1371
  • گروه کاربری

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

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

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

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

1

درباره reza1371

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

پیشفرض

  • جنسیت :
    نامشخص
  1. تنها چیزی که من متوجه شدم اینه که ، امنیت تو فضای مجازی و .. کلا ، فوق فوقش ، بشه 99 درصد ، بازم یک درصدی احتمال داره که هرچیزی رو بشه دور زد ، چه همراه پی ، چه درون پرداخت بازار و وووو... مهم اینه که بیایم و بتونیم به اون جایگاه اصلی دست پیدا کنیم ، چرا هکر ها باید یک قدم جلوتر باشن ؟ چرا ویندوزی که شرکت سازندش ، ارایه میده ، افرادی از ایران ، پاره ی تنم ، میاد و چند سوته کرکشو ارایه میده ؟ به جای اشکال گرفتن از مطالب همدیگه ، بیایم و اطلاعات خودمونو به بقیه هم انتقال بدیم ، منی که از صفر شروع کردم ، باید امیدی به ادامه دادن این راه داشته باشم ، خیلیا میان و وقتی سوالی پرسیده میشه ، میرن و سرچ میکنن و با چند دستکاری ساده ، جواب رو تحویل میدن ، البته جسارت نشه خدمت اساتید ، کلی گفتم ، ولی بازم ایول دارن ، چون حداقل نمیذارن آدم بی جواب بمونه. "همراه پی " که سهله ، کسایی هستن که از این بالاترهاش رو هم دور میزنن ، ولی این جور کارها واسشون افت داره . اینم نظر بنده بود ، شاید هم بیخودی باشه و الکی . به هرحال گفتم
  2. همخوانی دادن متن با تصویر

    من ازتون عذر میخوام ، پیشنهادی دادم که نمیدونم اسمشو سوتی بذارم یا چی ! ولی از مدیرانم یه سوالی دارم که: از کجا مشخص میشه تو تاپیک ها ، موضوعات مربوط به کدوم قسمته ؟ basic4android ? b4i ? , ... یک دغدغه هستش واس من
  3. همخوانی دادن متن با تصویر

    دوست عزیز ، اگه اشتباه نکرده باشم ، میتونی با کدنویسی قسمت دیزاینر اسکریپت ، این مشکل رو حل کنین ، خیلیم ساده ، imageview در جای خودش ، مثلا Img.setleftandright(20%x , 60%x) Img.settopandbuttom(20%y,60%y) و لیبل هم Lbl.setleftandright(65%x,100%x) Lbl.settopandbuttom(25%y,55%y) . بازم میگم که اگه اشتباهی متوجه نشده باشم ، خودمم ناشیم ، این به ذهنم رسید
  4. مشکل در signature key

    مرسی دستتون درد نکنه ، مشکل اول رو با توجه به راهنمایی شما حل کردم ، سوال دومم رو هم لطف کنید و جواب بدین ، ازتون ممنون میشم. در برنامه آندرویدی apk editor, وقتی یکی از نرم افزارهای موجود در گوشیمو که اد میکنم ، قسمت signature. دارای اطلاعاتی هست ، ولی واس نرم افزار من ، خالیه ، دو عکس بالا فرستادم ، اگه زحمتی نباشه و نگاه کنید متوجه میشین، میخواستم بدونم که مشکل از کجاست ، و چجوری میتونم از سلامت signature key. که برای نرم افزارم درست کردم ، اطلاع داشته باشم ؟
  5. مشکل در signature key

    عرض سلام و خسته نباشید دوستان من از یک کلید برای نسخه ی دمو و نسخه ی اصلی برنامه استفاده کردم ولی وقتی نسخه ی اصلی رو ذوی نسخه ی دمو نصب میکنم ، نسخه ی دمو باقی میمونه . یعنی نسخه ی اصلی روی نسخه ی دمو قرار نمیگیره ! اصلا این کار شدنیه ؟ و سوال دومم اینه که بقیه ی برنامه ها رو وقتی با apk editor باز میکنم ، قسمت signature دارای اطلاعاتی هست ولی در برنامه ی من ، این نوشته ها وجود نداره . میشه لطفا راهنماییم بکنید تصاویر رو هم میفرستمhttp://s8.picofile.com/file/8277458842/_20161206_173920.JPG http://s8.picofile.com/file/8277458718/_20161206_173944.JPG
  6. مشکل در لیست علاقه مندی

    جناب آقای امانی میشه خواهش کنم رو سورس نشونم بدین؟ ممنونتون میشم ، من تقریبا چهل تا تیبل دارم تو دیتابیسم
  7. مشکل در لیست علاقه مندی

    میشه لطف کنید و خودتون این سورس رو یه نیگا بندازین . یکی از مطالب رو بعنوان علاقه مندی انتخاب کنید و برید تو قسمت علاقه مندی و انتخاب کنید تا کاملا متوجه منظور من بشین http://s8.picofile.com/file/8277072468/tester.rar.html
  8. مشکل در لیست علاقه مندی

    خسته نباشید به همگی دوست عزیز ، من نمیدونم که جریان چیه !!؟؟ یا من از برنامه نویسی که تازه واردم فعلا چیزی سر در نمیارم ، یا نمیتونم منظورمو بهتون برسونم ببینین من توی یک اکتیویت یدونه لیست ویو دارم ، که مطالبمو از دیتابیس میگیرم و داخلش میریزم ، ( چندین جدول دارم تو دیتابیس ) نمونه فراخوانیم :  Sub Process_Globals Dim sql1 As SQL Dim Cur1 As Cursor Dim st As String End Sub Sub Globals Dim navi As AHNavigationDrawer Dim pCantent As Panel Dim khorouj As Int Private ListView1 As ListView End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("layout1") slide End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub slide navi.Initialize2("navi",Activity,75%x,navi.GRAVITY_right) navi.NavigationPanel.Color = Colors.ARGB(150,236,239,241) navi.NavigationPanel.LoadLayout("slid") pCantent.Initialize("") navi.ContentPanel.AddView(pCantent,0,0,100%x,100%y) pCantent.BringToFront pCantent.LoadLayout("layout1") If File.Exists(File.DirInternal,"bank.db") = False Then File.Copy(File.DirAssets,"bank.db",File.DirInternal,"bank.db") End If If sql1.IsInitialized = False Then sql1.Initialize(File.DirInternal,"bank.db",True) End If Cur1 = sql1.ExecQuery("SELECT * FROM tbl1") For i = 0 To Cur1.RowCount-1 Cur1.Position = i ListView1.AddSingleLine(Cur1.GetString("onvan")) Dim lbl As Label lbl= ListView1.SingleLineLayout.Label lbl.Gravity=Gravity.CENTER Next End Sub Sub ListView1_ItemClick (Position As Int, Value As Object) st = Value StartActivity(page1) End Sub این هم از کدهای Page1 ;که داخلش اومدم مطالبمو نشون دادم و یک عکس گذاشتم تا وقتی روش زده شد بره تو علاقه مندی ها Sub Process_Globals Dim khorouj As Int Dim Cur1 As Cursor Dim sql1 As SQL End Sub Sub Globals Dim lay As LayoutValues Dim a As Float Dim navi As AHNavigationDrawer Dim pCantent As Panel Private Label1 As Label Private scrollview1 As ScrollView Private ImageView1 As ImageView Private ImageView02 As ImageView End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("layout2") slide End Sub Sub slide navi.Initialize2("navi",Activity,75%x,navi.GRAVITY_right) navi.NavigationPanel.Color = Colors.ARGB(150,236,239,241) navi.NavigationPanel.LoadLayout("slid") pCantent.Initialize("") navi.ContentPanel.AddView(pCantent,0,0,100%x,100%y) pCantent.BringToFront pCantent.LoadLayout("layout2") If File.Exists(File.DirInternal,"bank.db") = False Then File.Copy(File.DirAssets,"bank.db",File.DirInternal,"bank.db") End If If sql1.IsInitialized = False Then sql1.Initialize(File.DirInternal,"bank.db",True) End If Cur1 = sql1.ExecQuery("SELECT * FROM tbl1 WHERE onvan='"&page01.st&"'") For i=0 To Cur1.RowCount-1 Cur1.Position=i Label1.Text = Cur1.GetString("matn") Label1.TextColor=Colors.White Label1.Gravity=Gravity.CENTER lay=GetDeviceLayoutValues a=lay.ApproximateScreenSize Label1.TextSize=a*3 page01.st=0 ImageView02.Tag=Cur1.GetInt("id") If Cur1.GetInt("fav") = 1 Then ImageView02.Bitmap = LoadBitmap(File.DirAssets,"favoriteico02.png") Else ImageView02.Bitmap = LoadBitmap(File.DirAssets,"favoriteico01.png") End If Dim Obj1 As Reflector Obj1.Target = Label1 Obj1.RunMethod3("setLineSpacing", 1, "java.lang.float", 1.9, "java.lang.float") Dim bit1 As Bitmap Cur1.Position = 0 Dim Buffer() As Byte Buffer = Cur1.GetBlob("picture") Dim InputStream1 As InputStream InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length) bit1.Initialize2(InputStream1) InputStream1.Close Cur1.Close ImageView1.Bitmap=bit1 Next End Sub Sub imageview02_Click Dim img As ImageView img=Sender Cur1=sql1.ExecQuery("SELECT * From tbl1 WHERE id="&img.Tag) Cur1.Position =0 If Cur1.GetInt("fav") = 1 Then sql1.ExecNonQuery("UPDATE tbl1 SET fav= 0 where id=" &Cur1.GetInt("id")) img.SetBackgroundImage(LoadBitmap(File.DirAssets,"favoriteico01.png")) ToastMessageShow("از لیست علاقه مندی حذف شد",False) Else sql1.ExecNonQuery("UPDATE tbl1 SET fav= 1 where id=" &Cur1.GetInt("id")) img.SetBackgroundImage(LoadBitmap(File.DirAssets,"favoriteico02.png")) ToastMessageShow("به علاقه مندی اضافه شد",False) End If Cur1.Close End Sub این هم از لیست علاقه مندی Sub Process_Globals Dim sql1 As SQL End Sub Sub Globals Dim cur1 As Cursor Dim cur2 As Cursor Private ListView1 As ListView Dim navi As AHNavigationDrawer Dim pCantent As Panel Dim khorouj As Int End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("layout3") slide End Sub Sub slide navi.Initialize2("navi",Activity,75%x,navi.GRAVITY_right) navi.NavigationPanel.Color = Colors.ARGB(150,236,239,241) navi.NavigationPanel.LoadLayout("slid") pCantent.Initialize("") navi.ContentPanel.AddView(pCantent,0,0,100%x,100%y) pCantent.BringToFront pCantent.LoadLayout("layout3") If File.Exists(File.DirInternal,"bank.db") = False Then File.Copy(File.DirAssets,"bank.db",File.DirInternal,"bank.db") End If If sql1.IsInitialized = False Then sql1.Initialize(File.DirInternal,"bank.db",True) End If cur1=sql1.ExecQuery("select * from tbl1 where fav=1") For i = 0 To cur1.RowCount-1 cur1.Position=i ListView1.AddSingleLine(cur1.GetString("onvan")) Dim lbl As Label lbl= ListView1.SingleLineLayout.Label lbl.Gravity=Gravity.CENTER Next cur2=sql1.ExecQuery("select * from tbl2 where fav=1") For i = 0 To cur2.RowCount-1 cur2.Position=i ListView1.AddSingleLine(cur2.GetString("onvan")) Dim lbl As Label lbl= ListView1.SingleLineLayout.Label lbl.Gravity=Gravity.CENTER Next End Sub Sub ListView1_ItemClick (Position As Int, Value As Object) ash_soup_listview .st = Value StartActivity(page1) End Sub تا اینجا کار درسته و تونستم مطالب tbl1 رو فراخوانی کنم و به لیست علاقه مندی هم به دلخواه اضافه کنم بقیه ی مطالب رو هم میتونم فراخوانی کنم ولی مشکلم با آیتم کلیک لیست ویو هست وقتی تو آیتم کلیک لیست ویو مثلا مینویسم Sub ListView1_ItemClick (Position As Int, Value As Object) ash_soup_listview .st = Value StartActivity(page1) omlet_listview.st=Value StartActivity(page2) End Sub و وقتی رو آیتم های لیست علاقه مندی کلیک میکنم ، یک بار صفحه ی خالی میاد و در برگشت مطلب خودشو نشون میده ( دلیلشم اینه که نمیتونه تشخیص بده از page 1 هستش یا page 2 ) مشکلم اینجاست فقط . لطفا این قسمت رو راهنماییم بکنید که من باید چیکار کنم ؟ ببخشید که مطلب زیاد شد 
  9. مشکل در لیست علاقه مندی

    بله ، ولی برای سه روز پیش نوشتن ایشون ، بازم چشم ، منتظر میمونم
  10. مشکل در لیست علاقه مندی

    اساتید و دوستان محترم ، لطفا به این تاپیک نیز جوابی عنایت بفرمایید ، من فقط تو این قسمتش موندم و نمیتونم برناممو تموم کنم
  11. مشکل در لیست علاقه مندی

    دوستان من فقط مشکلم در خصوص آیتم کلیک هست وقتی چندین tbl دارم تو دیتابیس ، فراخوانیشونو داخل لیست ویو انجام میدم با این کدها If File.Exists(File.DirInternal,"bank.db") = False Then File.Copy(File.DirAssets,"bank.db",File.DirInternal,"bank.db") End If If sql1.IsInitialized = False Then sql1.Initialize(File.DirInternal,"bank.db",True) End If cur1=sql1.ExecQuery("select * from tbl1 where fav=1") For i = 0 To cur1.RowCount-1 cur1.Position=i ListView1.AddSingleLine(cur1.GetString("onvan")) Dim lbl As Label lbl= ListView1.SingleLineLayout.Label lbl.Gravity=Gravity.CENTER Next cur2=sql1.ExecQuery("select * from tbl2 where fav=1") For i = 0 To cur2.RowCount-1 cur2.Position=i ListView1.AddSingleLine(cur2.GetString("onvan")) Dim lbl As Label lbl= ListView1.SingleLineLayout.Label lbl.Gravity=Gravity.CENTER Next و این هم برای کلیک لیست ویو که مشکلم فقط همینجاست ، چون وقتی دو تا صفحه رو استارت نوشتم ، وقتی رو آیتم های لیست ویو کلیک میکنم ، یک بار صفحه ی نامشخصی میاره و در برگشت صفحه ی اصلی رو میاره ، پس اگه سه صفحه رو استارت کنم ، دو بار صفحه ی سفید میاد و یک بار صفحه ی اصلی ، در حالی که من حدودا چهل صفحه دارم Sub ListView1_ItemClick (Position As Int, Value As Object) page01 .st = Value StartActivity(page1) page02=Value StartActivity(page2) End Sub و این هم از اکتیویتی page 1 مثلا activity create If File.Exists(File.DirInternal,"bank.db") = False Then File.Copy(File.DirAssets,"bank.db",File.DirInternal,"bank.db") End If If sql1.IsInitialized = False Then sql1.Initialize(File.DirInternal,"bank.db",True) End If Cur1 = sql1.ExecQuery("SELECT * FROM tbl1 WHERE onvan='"&page01.st&"'") For i=0 To Cur1.RowCount-1 Cur1.Position=i Label1.Text = Cur1.GetString("matn") Label1.TextColor=Colors.White Label1.Gravity=Gravity.CENTER page01.st=0 ImageView02.Tag=Cur1.GetInt("id") If Cur1.GetInt("fav") = 1 Then ImageView02.Bitmap = LoadBitmap(File.DirAssets,"favoriteico02.png") Else ImageView02.Bitmap = LoadBitmap(File.DirAssets,"favoriteico01.png") End If end sub Sub imageview02_Click Dim img As ImageView img=Sender Cur1=sql1.ExecQuery("SELECT * From tbl1 WHERE id="&img.Tag) Cur1.Position =0 If Cur1.GetInt("fav") = 1 Then sql1.ExecNonQuery("UPDATE tbl1 SET fav= 0 where id=" &Cur1.GetInt("id")) img.SetBackgroundImage(LoadBitmap(File.DirAssets,"favoriteico01.png")) ToastMessageShow("از لیست علاقه مندی حذف شد",False) Else sql1.ExecNonQuery("UPDATE tbl1 SET fav= 1 where id=" &Cur1.GetInt("id")) img.SetBackgroundImage(LoadBitmap(File.DirAssets,"favoriteico02.png")) ToastMessageShow("به علاقه مندی اضافه شد",False) End If Cur1.Close End Sub
  12. مشکل در لیست علاقه مندی

    چونکه تو دیتابیسم چندیل tbl دارم ، ندونستم باید چجوری بنویسم تا اگه fav هرکدوم از tbl. ها برابر یک شد رو نشون بدم ، کلا درست کار نمیکنه ، . تو شبیه ساز وقتی رو آیکن علاقه مندی میزنم ، مشکلی نداره ، ولی تو گوشی که تست میکنم ، میزنه ، متاسفانه متوقف شده است
  13. سلام و خسته نباشید من لیست علاقه مندیمو طبق کدهای زیر درست کردم و هنگام کلیک روی آیتمهای لیست ویو ، ابتدا یک صفحه ی سفید میاد و در برگشت صفحه ی اصلی مطلب رو نشون میده و وقتی هم بر روی آیکنش کلیک میکنم ، پیام ( از لیست علاقه مندی حذف شد میاد ) ولی از لیست حذف نمیشه ، باید یک بار از علاقه مندیها خارج بشم و دوباره برگردم تا حذف بشه این هم کدهای اکتیویتی علاقه مندی Sub Globals Dim sql1 As SQL Dim cur1 As Cursor Dim cur2 As Cursor Private ListView1 As ListView End Sub Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("layout01") If File.Exists(File.DirInternal,"bank.db") = False Then File.Copy(File.DirAssets,"bank.db",File.DirInternal,"bank.db") End If If sql1.IsInitialized = False Then sql1.Initialize(File.DirInternal,"bank.db",True) End If cur1=sql1.ExecQuery("select * from tbl1 where fav=1") For i = 0 To cur1.RowCount-1 cur1.Position=i ListView1.AddSingleLine(cur1.GetString("onvan")) Next cur2=sql1.ExecQuery("Select* from tbl2 where fav=1") For i =0 To cur2.RowCount-1 cur2.Position=i ListView1.AddSingleLine(cur2.GetString("onvan")) Next End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub Sub ListView1_ItemClick (Position As Int, Value As Object) page1.st = Value StartActivity(page2) page3.st=Value StartActivity(page4) End Sub
  14. داداش ارات دمتون گرم ، به جای این همه کار ، حرف شمارو گوش میدم و فقط از خود بازار اقدام میکنم و اینکه به جای این همه کار ، میام و یه نسخه ی دمو درست میکنم
  15. سلام و با تشکر از راهنماییتون جناب شایان آباد ولی من نمیخوام برنامم رو روی مارکت بازار با این روش آپ کنم پس اگه امکانش هست ، لطف کنید و راهنماییم بفرمایید
×