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

AnswerCenter

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

  • مرجع پاسخگویی
  • تولید آموزش
  • سفارش پروژه

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

اطلاعیه

کاربر گرامی

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

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


sepidpor

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

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

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

  • روز های برد

    2

آخرین بار برد sepidpor در اسفند 28 2014

sepidpor یکی از رکورد داران بیشترین تعداد پسند مطالب است !

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

19 خوب

درباره sepidpor

  • درجه
    درحال پیشرفت
  • تاریخ تولد ۸۵/۰۱/۰۱

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

بلوک آخرین بازدید کننده ها غیر فعال شده است و به دیگر کاربران نشان داده نمیشود.

  1. سلام داداش شما قدیمی هستی می شه ببینی کتابخانه ArzMySql رو داری یا نه....

    خیلی دنبال این کتابخونم ولی لینکاش خراب شده تو اینترنت

  2. سلام داداش، کتابخانه Arzmysql رو داری شما! هرجا می گردم نیستش.... شما قدیمی هستی یه نگاه بکن شاید گرفته باشیش

    1. mohammadnajani

      mohammadnajani

      سلام ، ندارمش داداش.

  3. کسی کتابخانه ArzMySql رو داره. آپلود کنید ممنون می شم.
  4. سلام یه کتابخانه هست برای دیتابیس آنلاین سمت سرور به اسم ArzMySql که دیگه هیچجا پیداش نمی کنم اگر کسی داره برام آپلود کنه لطفا. تشکر.
  5. سلام بسیار پست عالی بود فقط یه سوال داشتم آیا امکان این هست که وقتی مسیری رو از نقطه ای که کاربر هست و داره با ماشین به مقصد نزدیک می شه رسم کرد و این خط مسیر با نزدیک شدن به مقصد هم کوتاه تر شه و ثابت نمونه... سورسی چیزی بگذارید کاملتر میشه مثلا من می خوام وقتی کسی اپلیکیشن مغازه ام رو استفاده می کنه در حین رانندگی از نقطه ای که هست مسیر مغازه بهش بده ...
  6. حجمش فایل ای پی کا تغییر می کنه چون نمی تونه فشرده کنه دیتابیس کریپت شده رو و در مورد در اوردن رمزش اگه از الگوریتم استفاده کنی برای رمز دادن مطمئنن کار هر کی نیست در اوردنش
  7. از خوبی های تبدیل دیتابیس به دیتابیس کریپت شده اینه که هیچکی جز شما نمی تونه ازش استفاده کنه و برای استفاده رمز شما رو باید داشته باشه و از بدی هاش اینه که حجم برنامتون رو کمی می بره بالا ولی سرعت سرچ داخلش و بقیه چیزا فرقی نداره
  8. من قبلا تو یه انجمن دیگه این کدهارو گذاشتم و اینجا هم کپی کردم تا بچه های اینجا هم استفاده کنند. در اینجا نحوه رمز گذاشتن روی دیتابیس رو با کمک لایبراری Cipher که باید از قبل اون رو داخل پوشه لایبراری بریزید و فعالش کنید رو میزارم نحوه کار به این طریق هست که ما یه دیتابیس معمولی داریم که اطلاعات داخلش هست و حالا می خوایم تبدیلش کنیم به یه دیتابیس که رمز روش بیاد. Sub Process_Globals Dim mysqlc As SQLCipher 'اینجا یه متغیر برای ساخت یه دیتابیس کد شده تعریف می کنیم Dim sql1 As SQL End Sub 'در ادامه هم یه متغیر دیتابیس معمولی که داریم رو تعریف می کنیم Sub Globals Dim label1 , label2 As Label Dim curs1 , curs2 As Cursor Dim list1 As List End Sub ' اینجا یه لیست تعریف می کنیم که بتونیم اطلاعات رو جابجا کنیم از دیتابیس معمولی به کریپت شده Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("layout1") File.Copy (File.DirAssets , "sia.db", File.DirInternal , "sia.db") sql1.Initialize (File.DirInternal , "sia.db" , False) 'اینجا دیتابیس اصلی رو میریزم تو حافظه If File.Exists (File.DirInternal , "sia5.db")= False Then mysqlc.Initialize (File.DirInternal , "sia5.db", True , "1234test" , File.DirAssets) 'اینجا می گیم اگه دیتابیس کریپت شده قبلا ساخته نشده بسازه و پسورد بهش میدیم که باید دقت بشه پسورد فراموش نشه تا بتونیم در برنامه اصلیمون از دیتابیس با همین پسورد استفاده کنیم و بعد از پسورد ازمون می خواد که آدرس فایل sqlcipher_native.zip رو بدیم که همینی که من دادم رو بده عزیز و حتما این فایل رو در برنامه کنار لایه ها ادد کن در قسمت فایل (خودت کپی پیست نکن و از قسمت فایلو ادد استفاده کن mysqlc.ExecNonQuery("CREATE TABLE shim (Ename TEXT , Fname TEXT)") 'اینجا دیتابیس کریپت شده رو می گیم یه جدول بسازه با دو تا ستون که از اینجاها مثل کد های sql هست و اینکتابخانه تو این کدها هیچ فرقی نداره باsql Else mysqlc.Initialize (File.DirInternal , "sia5.db", True , "1234test" , File.DirAssets) 'اینجا هم گفتیم اگه ساخته شده فقط تعریف کنه با پسوردی که دادیم قبل بهش End If curs1=sql1.ExecQuery ("SELECT Ename, Fname FROM shim") 'اینجا هم اطلاعات دیتابیس انتقال می دیم به داخل این متغیر که تعریف شده در بالا For n=0 To curs1.RowCount -1 curs1.Position = n list1= Array As String (curs1.GetString ("Ename") , curs1.GetString ("Fname")) mysqlc.ExecNonQuery2 ("INSERT INTO shim VALUES (?,?)" ,list1 ) Next ' یه حلقه اینجا درست کردیم که اطلاعات دیتابیس معمولیمون رو بریزه تو دیتابیس کریپت شده و انتقال بده curs2= mysqlc.ExecQuery ("SELECT Ename,Fname From shim") curs2.Position = 3 label1.Text = curs2.GetString ("Fname") label2.Text = curs2.GetString ("Ename") End Sub ' کار تمومه و دیتابیس کریپت شده آماده هست و در اینجا برای تست که نشون می ده اطلاعات رو از داخل دیتابیس کریپت شده اونها رو رو لیبل هامون چک می کنیم همونطور که دیدی همه چیز مثل sql هست و این کتابخانه فقط در inistalize یکم فرق داره تعریفش که باید پسورد و محل فایلsqlcipher_native.zip رو نشون بدی که حتما باید این فایل رو در پوشه فایل ادد کنید از داخل خود برنامه تا کار کنه امیدوارم توضیحات کامل باشهتوجه کنید که اینجا داریم یه دیتابیس معمولی رو تبدیل به دیتابیس کریپت شده میکنیم که دیتابیس کریپت شده داخل گوشی یا ایمولاتور هست و باید درش بیارید که با برنامه eclips می شه یا با رفتن به روت و پیدا کردن دیتابیس داخل برنامه ای که ساختیدبعد می تونید ازش استفاده کنید با همین کتابخانه sqlcipher و دادن رمزتون که قبلا براش تعیین کردید برای مشاهده بهتر این کدها بهتره اول اونهارو کپی کنید داخل برنامه اونجا درست نشون می ده و برای برداشتن دیتابیس کریپت شده جدید باید از پوشه data/data داخل پروژه خودتون در روت گوشی یا ایملاتور اقدام کنید. توجه کنید که رمز شما در هنگام دیکامپایل نشان داده می شه و باید با الگوریتم خواصی جداگانه رمز رو تعبیه ببیند که با دیکامپایل هم به راحتی به دست نیاد. در توضیحات این برنامه باید قید کنم که در اندروید 4 به بالا ممکنه برخی گوشی ها فورس کلوز بدن که بیسیک فور اندروید این مشکل رو گفته به این شکل حل کنید - Starting from B4A v3.50 you need to disable the virtual assets folder (a new debugging feature). This is done by adding the following line to the main activity: Code: #DebuggerForceStandardAssets: true کد مورد نظر رو به اکتیویتی مین اضافه کنید
  9. این برنامه که گذاشتید دیتابیس اطلاعاتش تو هیچ دیتابیسی نیست و در حقیقت داخل خود برنامه دیتابیس نوشته شده که هیچ برنامه نویسی این کارو برای برنامه ای که دیتابیس بزرگی داره انجام نمی ده ...
  10. sepidpor

    سوال در مورد dip و %x,y

    حالا باز مشکل داری یه نمونه پروژه بساز و بده لینکشو واست درست کنیم
  11. sepidpor

    سوال در مورد dip و %x,y

    تنظیم بر اساس درصد همیشه درست در میاد و تو هر سایز و اندازه ای عکس های رو یه اندازه نشون می ده مثلا این کدها برای عکسی هست که گذاشتم تو هر سایزی این عکسها به هم نمی ریزند و سر جاشون و متناسب با اندازه صفحه بزرگ و کوچیک می شن AutoScaleRate(0.5) imgpezeshki.VerticalCenter = 23%y imgpezeshki.HorizontalCenter = 27%x imgdarokhane.VerticalCenter = 23%y imgdarokhane.HorizontalCenter = 73%x imgkomakavalie.VerticalCenter = 50%y imgkomakavalie.HorizontalCenter = 50%x imgtaghzie.VerticalCenter = 77%y imgtaghzie.HorizontalCenter = 27%x imgpezeshkyab.VerticalCenter = 77%y imgpezeshkyab.HorizontalCenter = 73%x
  12. sepidpor

    سایه دادن به متن

    من توی عکس سایه رو ندیدم یا منظورتون درست متوجه نشدم
  13. اگه بعد از هر لیبل می خوای عکس بزاری باید بعد ازاین کد کد عکستو بزاری labelname(n).TextColor = Colors.Black و توضیح این کدا h= 10dip اینجا مقدار پیش فرض Top لیبل اول رو مشخص کردم For n=0 To cr.RowCount -1 اینجا گفتم از اول دیتابیست تا آخر دیتابس حلقه بچرخه cr.Position = n اینجا گفتم رکورد من موقعیتش رو n باشه که اولش 0 هست یعنی رکورد اول Activity.AddView (labelname(n), 10dip , h , 100%x-20dip , 50dip) اینجا لیبل رو گفتم تو اکتیویتی قرار بده که از چپ 10 تا فاصله داره و از بالا مقدار h رو دادم و عرض رو هم گفتم کل عرض صفحه باشه منهای 20 دیپ که وسط در بیاد و اندازه ارتفاع لیبل هم 50 دادم اگه بخوای داخل اسکرول ویو قرار بدی به جای اکتیویتی باید بنویسی sv1.panel.addview(...) h= h + 55dip اینجا هم گفتم مقدار تاپ لیبل بعدی 55 تا زیاد تر شه که بره زیر لیبلی که الان ساختش
  14. اینکارو بکن اگه می خوای کل اطلاعات ستون مربوط به Name رو بزاری تو لیبلات Sub Globals 'These global variables will be redeclared each time the activity is created. 'These variables can only be accessed from this module. Dim sql1 As SQL Dim cr As Cursor End Sub Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: 'Activity.LoadLayout("Layout1") File.Copy (File.DirAssets , "a1.db" , File.DirInternal , "a1.db") sql1.Initialize (File.DirInternal , "a1.db",False) cr=sql1.ExecQuery("Select * From a2" ) Dim labelname(10) As Label Dim h As Int h= 10dip For n=0 To cr.RowCount -1 cr.Position = n labelname(n).Initialize ("") labelname(n).text= cr.GetString ("name") labelname(n).TextSize = 14 labelname(n).Gravity= Gravity.CENTER labelname(n).Color = Colors.White labelname(n).TextColor = Colors.Black Activity.AddView (labelname(n), 10dip , h , 100%x-20dip , 50dip) h= h + 55dip Next End Sub
  15. داخل اکشن بار چیزی نمی شه جا زد اکشن بار رو حذف کن و جاش خودت یه پنل سفارشی بساز به عنوان اکشن بار
×
×
  • جدید...