رفتن به مطلب
  • 0

نشانه گذاری برای متن


alitabriz

سوال

خسته نباشید میخوام بدونم چطور میشه توی متن هایی که توی برناممون هست از ی جایی که مثلا داستان خیلی بلنده از جایی که خوندیم علامت گذاری کنیم و بعدا که رفتیم داخل همون داستان ادامشو از جایی که مونده بخونیم . ممنون میشم راهنمایی کنین

لینک ارسال
به اشتراک گذاری در سایت های دیگر

ارسال‌های توصیه شده

سلام عزیزان این هم سورس پروژه ولی شرمنده هیچ گرافیکی نداره و بصورت کاملا ابتدایی هستش فقط می خوام علاقه مندی هاش درست بشه دیگه هیچ

سورس

ممنون میشم کمک کنید ؟؟؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

اون لحظه که میخوای سیو شه عددشو تو یه فایل ذخیره کن بعد تو اجرای بعدی فراخونیش کن

لینک ارسال
به اشتراک گذاری در سایت های دیگر

داداش میشه بیشتر راهنمایی کنی یه نمونه کدی بدی بهم راسش یه برنامه دادم بازار رمان های عاشقانه الان بیش از دو هزار کاربر ازم میخوان که نشانه گذاری بکنم رمانارو لطفا کمکم کنین

لینک ارسال
به اشتراک گذاری در سایت های دیگر

شرمنده نبودم یکم سرم شلوغه.

اول بگو چند تا صفحه اسکرول اینج.ری داری که باید مکان سکرول رو براشون ذخیره و بازیابی کنی.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام.

اولا باید توی اکتیویتی پاز کدتو بنویسی چون کاربر وقتی از صفحه خارج میشه این sub خودکار اجرا میشه.

اینجا:

Sub Activity_Pause (UserClosed As Boolean)

End Sub

حالا اگه از از دیتابیس استفاده می کنید باید مکان اسکرول ویو رو توی دیتابیس ذخیره کنید:

Sub Activity_Pause (UserClosed As Boolean)
   ScrollView1.ScrollPosition
   bank.ExecNonQuery("UPDATE table name SET fild name=" & SV.ScrollPosition &" WHERE Id=1"
End Sub

تو کوری که نوشتم باید اینا رو با توجه به دیتابیست جایگزین کنی:

table name

fild name

1

از طرف دیگه توی اکتیویتی ریسوم باید کدی بنویسی که همین مقدارو که ذخیره کردی از دیتابیس بگیره و مقدار اسکرول ویو رو برابر اون قرار بده.

کد این قسمتشو دیگه خودت بنویس

.......................................................................................

اگه هم از دیتابیس استفاده نمیکنی مقدار اسکرول پازیشن رو توی یه فایل تکست مثل بالا ذخیره و بعد بازیابی کن.

راهنماییشم این که از این دستورا استفاده کن.

File.WriteString()
   File.ReadString()

لینک ارسال
به اشتراک گذاری در سایت های دیگر

داداش من از دیتایس استفاده کردم و برای هر رمان یه دیتابیس استفاده کردم تا راحت بشه کارم . توی هر رمانم نهایتش 10 تا هست یعنی برای هر رمان حدودا 10 تا اسکرو هست که وقتی کاربر ازش خارج میشه باید ذخیره شه .*گاز*

لینک ارسال
به اشتراک گذاری در سایت های دیگر

اگه هر اسکرول پیج از یه table مجزا لود میشه به هر تیبل یه ستون جدید اضافه کن و مقدار اسکرول پازیشن رو توی اون ذخیره کن.

کدشو باید توی اکتیویتی پاز بنویسی.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

کجا رو نتونستید درست کنید؟ بگین اگه در توان بود کمک میکنم.

در ضمن اگه از حالت تکست استفاده کنید بهتره چون با دیتابیس کاربرا باید اول پاک کنن نرم افزارو و دوباره نصب کنن اما با تکست فقط آپدیت کافیه.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

کجا رو نتونستید درست کنید؟ بگین اگه در توان بود کمک میکنم.

در ضمن اگه از حالت تکست استفاده کنید بهتره چون با دیتابیس کاربرا باید اول پاک کنن نرم افزارو و دوباره نصب کنن اما با تکست فقط آپدیت کافیه.

چرا دیگه میشه اسم دیتا بیسو عوض کنه و فایل قبلیو پاک کنه با آپدیت درس میشه فک کنم

لینک ارسال
به اشتراک گذاری در سایت های دیگر

چرا دیگه میشه اسم دیتا بیسو عوض کنه و فایل قبلیو پاک کنه با آپدیت درس میشه فک کنم

*tashvigh**tashvigh**tashvigh* آره میشه.... اینجوری بهش نگا نکرده بودم *tashvigh**tashvigh**tashvigh*

لینک ارسال
به اشتراک گذاری در سایت های دیگر

<code><code>Sub Activity_Pause (UserClosed As Boolean)

ScrollView1.ScrollPosition

BMKMainService.bank.ExecNonQuery("UPDATE zambyy SET zambyy=" & ScrollView.ScrollPosition &" WHERE Id=1"

End Sub

داداش توی کد بالا این کد روBMKMainService رو با رنگ قرمز ارور میده و (UserClosed As Boolean) رو هم با رنگ قرمز ارور میاره دیتابسمو اینجا گذاشتم و اینکه بگین چطور اون کاری که گفتین بقیشو خودم انجام بدم چجوی میشه انجام داد؟

</code></code>

لینک ارسال
به اشتراک گذاری در سایت های دیگر

آقا شرمنده. bmkmainservice ماله یکی از برنامه هام بود اشتباهی اینجا کپی شد. اونو حذف کن.

user close هم به این خاطر قرمزه که شما ساب activty pause رو توی صفحه داری و نباید دوباره کپی کنی تو صفحه فقط کدها رو باید داخلش بنویسی.

دیتابیستم یادت رفته بزاری.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

داداش این کل کدهامه ببین کجاهارو باید تغییر دیم خیلی ممنونم ببخشید زحمت زیاد دادم بهت

#Region  Activity Attributes 
   #FullScreen: False
   #IncludeTitle: False
#End Region

Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.

End Sub

Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.
   Dim cur1 As Cursor
   Dim TextSetting1 As TextSetting
   Private Label1 As Label
   Private ScrollView1 As ScrollView
   Private Label2 As Label
   Private ImageView1 As ImageView
   Private ImageView2 As ImageView
   Private Button1 As Button
   Private Button2 As Button
   Private ImageView4 As ImageView
   Private ImageView3 As ImageView

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("gudzilamatn")
   Dim Label1 As Label
   Label1.Initialize("")
   TextSetting1.Initialize()
   ScrollView1.Panel.AddView(Label1,5,5,80%x,90%y)
   cur1 = gudzila.sql1.ExecQuery("SELECT matn FROM gudzilaa WHERE list ='" &gudzila.meghdar & "'")

   For i = 0 To cur1.RowCount-1
       cur1.Position = i
   Label1.text = cur1.GetString("matn")
   Label1.TextColor = Colors.Black
   If File.Exists(File.DirInternal,"FontType.txt") = False Then
       File.Copy(File.DirAssets,"FontType.txt",File.DirInternal,"FontType.txt")
   End If
   If File.Exists(File.DirInternal,"FontSize.txt") = False Then
       File.Copy(File.DirAssets,"FontSize.txt",File.DirInternal,"FontSize.txt")
   End If
   If File.Exists(File.DirInternal,"lineheight.txt") = False Then
       File.Copy(File.DirAssets,"lineheight.txt",File.DirInternal,"lineheight.txt")
   End If

   Label1.Typeface = Typeface.LoadFromAssets(File.ReadString(File.DirInternal,"FontType.txt")&".TTF")




   TextSetting1.LongText(Label1,Label1.text,20,ScrollView1,1)

   Next
End Sub

Sub Activity_Pause (UserClosed As Boolean)
ScrollView1.ScrollPosition
For i = 0 To cur1.RowCount-1
       cur1.Position = i
   Label1.text = cur1.GetString("matn")
cur1 .sql1.bank.ExecNonQuery("UPDATE matn SET zambyy=" & ScrollView.ScrollPosition &" WHERE Id=1"
End Sub


Sub ImageView1_Click
   Dim i As Intent
Dim s As String
  s = Label1.Text
  i.Initialize(i.ACTION_SEND, "")
  i.SetType("text/plain")
  i.PutExtra("android.intent.extra.TEXT", s)
  i.WrapAsIntentChooser("Share...")
  StartActivity(i)
End Sub
Sub ImageView2_Click
   StartActivity("Setting")
End Sub


Sub Button1_Click
   Label1.TextColor = Colors.White
   ImageView3.Enabled=False
   ImageView3.Visible=False
   ImageView4.Enabled=True
   ImageView4.Visible=True
End Sub
Sub Button2_Click
Label1.TextColor = Colors.Black
   ImageView3.Enabled=True
   ImageView3.Visible=True
   ImageView4.Enabled=False
   ImageView4.Visible=False
End Sub

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...