ارمین رمضانی دلیجانی 381 ارسال شده در 21 بهمن، ۱۳۹۳ اشتراک گذاری ارسال شده در 21 بهمن، ۱۳۹۳ سلام توضیح زیاد نمیدم سادس یکی از دوستان تو یاهو درخواست کرد سورس رو اماده کردم سیو چک باکس هستش یعنی یا true یا false لینک دانلود یا حق لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
bahman 165 ارسال شده در 21 بهمن، ۱۳۹۳ اشتراک گذاری ارسال شده در 21 بهمن، ۱۳۹۳ من بودم درخواست کردم ممنون از توجهت داداش لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
shahab1392 47 ارسال شده در 22 بهمن، ۱۳۹۳ اشتراک گذاری ارسال شده در 22 بهمن، ۱۳۹۳ سلام دوستان کد من چه اشکالی داره که وقتی روی یه عکس میزنی و برمی گردی باز همون عکس ر نشون میده Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("Layout1") If File.Exists(File.DirInternal,"save.txt") = True Then File.Copy(File.DirAssets,"save.txt",File.DirInternal,"save.txt") End If End Sub Sub ImageView1_Click ImageView1.Visible=False ImageView2.Visible=True ToastMessageShow("صفحه روشن می ماند",False) Keep.KeepAlive(False) File.WriteString(File.DirInternal,"save.txt","1") End Sub Sub ImageView2_Click ImageView1.Visible=True ImageView2.Visible=False ToastMessageShow("صفحه خاموش می شود",False) Keep.KeepAlive(True) File.WriteString(File.DirInternal,"save.txt","2") End Sub لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
bahman 165 ارسال شده در 4 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 4 اسفند، ۱۳۹۳ استاد از همین سورستون تو پروژم استفاده میکنم منتها بار اول ک تیکشو میزنم فعال میشه دیگه بردارم کار نمیکنه نمیدونم چرا یعنی فقط بار اولو ج میده لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
مجید آرتا 5,874 ارسال شده در 4 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 4 اسفند، ۱۳۹۳ این کدتون مشکل داره.دارید میگید اگه وجود داره بیا کپی کن.خب وجود نداره و خلاف شرطه و چیزی نه کپی میشه و نه نوشته میشه. [b]If File.Exists(File.DirInternal,"save.txt") = True Then File.Copy(File.DirAssets,"save.txt",File.DirInternal,"save.txt") End If[/b] استاد از همین سورستون تو پروژم استفاده میکنم منتها بار اول ک تیکشو میزنم فعال میشه دیگه بردارم کار نمیکنه نمیدونم چرا یعنی فقط بار اولو ج میده متوجه نشدم یکم بیشتر توضیح بدید لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
bahman 165 ارسال شده در 4 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 4 اسفند، ۱۳۹۳ این سورسو از همین انجمن گرفتم خودمم سر در نمیارم میشه بگید چیکار کنم تیکش زده میشه عمل میکنه ولی تیکو برمیداریم دیگه انگار تیک داره یعنی فک کنم ذخیره نمیکنه لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
مجید آرتا 5,874 ارسال شده در 4 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 4 اسفند، ۱۳۹۳ دوست من پیشنهاد میکنم از دیتابیس استفاده کنید مثل علاقمندی ها میتونید عمل کنید یعنی با تغییر حالت چک باکس میتوینید کوئری UPDATE رو به دیتابیس ارسال کنید و با گرفتن فیلد میتونید KeepAlive رو فعال یا غیر فعال کنید لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
bahman 165 ارسال شده در 4 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 4 اسفند، ۱۳۹۳ دوست من پیشنهاد میکنم از دیتابیس استفاده کنید مثل علاقمندی ها میتونید عمل کنید یعنی با تغییر حالت چک باکس میتوینید کوئری UPDATE رو به دیتابیس ارسال کنید و با گرفتن فیلد میتونید KeepAlive رو فعال یا غیر فعال کنید متاسفانه بلد نیستم لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
مجید آرتا 5,874 ارسال شده در 4 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 4 اسفند، ۱۳۹۳ خب باشه من کل کارو بهت میگم شما کافیه وارد بیسیک کنید. شما فرض کن یک دیتابیس داری حالا اسمش هرچی هست فرقی نداره برای مثال اسمش ( b4a.db ) و یک جدول ساختید با دوتا ستون و اسم جدول هست tbl1 و اسم ستون ها یکی IDو یکی save خب حالا بنده طبق کد میگم چیکار کنید و مقدار 0 رو توی فیلد save به عنوان پیشفرض قرار بده ( توی دیتابیس به وسیله Navicat ) شما بیا توی رویداد CheckedCHange بنویس که اگه چک باکس فعال شد بیا 1 رو وارد کن و در غیر اینصورت بیا 0 رو وارد کن: [b]Sub CheckBox1_CheckedChange(Checked As Boolean) If CheckBox1.Checked = True sql1.ExecNonQuery("UPDATE tbl1 set save='1' WHERE ID="&IdNum ) Else sql1.ExecNonQuery("UPDATE tbl1 set save='0' WHERE ID="&IdNum ) End If End Sub[/b] بعد میاییم اطلاعات دیتابیس رو میگیریم و چک می کنیم: [b]Sub LoadData cursor1 = sql1.ExecQuery("SELECT * FROM tbl1") cursor1.Position=0 if cursor1.GetString("save") = "1" Then CheckBox1.CHecked = True Else CheckBox1.CHecked = False End If[/b] در ضمن این متغییر رو هم در Globals تعریف کنید: [b]Dim IdNum As Int = 0[/b] و کافیه LoadData رو به همین شکل که نوشتم توی رویداد Activity_Create بنویسید موفق باشید لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
bahman 165 ارسال شده در 4 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 4 اسفند، ۱۳۹۳ استاد ممنون از توجهتون فقط یه سوال چرا تو کدهای بالا اسمی از b4a.db برده نشده؟ فقط ببخشین ک سوالاتم خنده داره و ممکنه عصبیتون کنند لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
مهدی ایزدی 9,203 ارسال شده در 4 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 4 اسفند، ۱۳۹۳ استاد ممنون از توجهتونفقط یه سوال چرا تو کدهای بالا اسمی از b4a.db برده نشده؟ فقط ببخشین ک سوالاتم خنده داره و ممکنه عصبیتون کنند Initialize و Copy رو دیگه خودتون بنویسید. بدون Initialize کردن که نمیشه با db کار کرد. لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
امیرنیوکی 147 ارسال شده در 4 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 4 اسفند، ۱۳۹۳ شما باید نام دیتابیس خودتونو بزارین و با نام دیتابیس خودتون دیتاها رو بارگذاری کنین جوابی که آقای مجید آرتا دادن فقط یه مثال برای یادگیری بود شما باید متغیرهای و دیتابیس های خودتونو جایگزین متغیرهای بالا کنین لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
bahman 165 ارسال شده در 4 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 4 اسفند، ۱۳۹۳ ممنون دارم ور میرم چیزی ک فعلا نتونستم انجام بدم خخخ نهایت منصرف میشم ازش لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
امیرنیوکی 147 ارسال شده در 4 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 4 اسفند، ۱۳۹۳ اینم بارگذاری دیتابیس Sub Activity_Create(FirstTime As Boolean) 'Do not forget to load the layout file created with the visual designer. For example: Activity.LoadLayout("main") If File.Exists(File.DirInternal,"mydb.db") = False Then File.Copy(File.DirAssets,"mydb.db",File.DirInternal,"mydb.db") End If SQL.Initialize(File.DirInternal,"mydb.db",False) End Sub فقط به جای mydb.db نام دیتا بیس خودنو بزار لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
bahman 165 ارسال شده در 4 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 4 اسفند، ۱۳۹۳ همش ب خطا برخورد میکنم اینو رفع میکنم اون یکی اون یکی رفع میشه اون یکی لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ارمین رمضانی دلیجانی 381 ارسال شده در 5 اسفند، ۱۳۹۳ سازنده اشتراک گذاری ارسال شده در 5 اسفند، ۱۳۹۳ عکس از خطا بزارید لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
shahab1392 47 ارسال شده در 6 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 6 اسفند، ۱۳۹۳ سلام دوستان من اومد این کار ها رو انجام دادم ولی وقتی می خواستیم بصفحه برگردیم باز تیکش زنده نمیشد و دوستان با ریز بینی کمک کردن و درست شد سورس رو قرار دادم تا دوستان ازش استفاده کنن. b4a2.zip لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
نیما قبادی 246 ارسال شده در 6 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 6 اسفند، ۱۳۹۳ دوست من شما یکم به کدتون توجه کنید خوب هیچ توجه هینمیکنید If CheckBox1.Checked = True Then sql1.ExecNonQuery("UPDATE tbl1 SET save = 1 WHERE id = "&cursor1.GetInt("id")) Else sql1.ExecNonQuery("UPDATE tbl1 SET save = 0 WHERE id = "&cursor1.GetInt("id")) End If ببینید شما اومدید تو دیتابیس عدد رو 0 گذاشتید بعد اومدید اینجا گفتید که اگه چکس باکس فعال بو 0 بشه یعنی تیکش برداشته بشه خوب یکم توجه کنید*لال**لال* کد رو درست کردم لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
shahab1392 47 ارسال شده در 6 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 6 اسفند، ۱۳۹۳ تشکر عزیز ممنون پست قبل ویرایش شد فقط یه سئوال میگم برای خاموش نشدن صفحه موبایل مگه نباید از کتابخانه phone استفاده کرد یعنی با sql و phone هر دو میشه این کار ها رو انجام داد لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
bahman 165 ارسال شده در 6 اسفند، ۱۳۹۳ اشتراک گذاری ارسال شده در 6 اسفند، ۱۳۹۳ من tbl1 رو از دیتابیس شما کپی میکنم میبرم تو دیتابیس خودم پیست میکنم موقع کامپایل خطایی نمیده موقع زدن تیک خطا میده ضمنا اساتیدی که جوابای تخصصی میدن لطف کنن سردمون نکنن 2 هفته بود دنبال چیزی بودم هرکی گفتم اومد ی چیزی گف ک ادم از دنیاش سیر میشه نمیدونه چیه اصلا امروز صبح یکی خدا خیرش بده یجوری گفت انگار ب یه پروفسور میگی بنویس اب ضمنا تو سورس twlight که فکر کنم همین انجمن بود همچین قابلیتی هست باز تو کپیش گیر میکنم لینک ارسال به اشتراک گذاری در سایت های دیگر تنظیمات بیشتر اشتراک گذاری ...
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.