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

[alitabriz 31]

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

[alitabriz 31]

منکه کلا هیچی نفهمیدم میشه کدس که فرمودید بگین

[jeqele 563]

یه دیتابیستو برام ایمیل کن.

amin.khalili1366@gmail.com

[shahab1392 47]

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

سورس

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

[Farzad Musavi 576]

اگه اسکرول و لیبل استفاده کردی position اسکرول رو ذخیره کن

[alitabriz 31]

چرا هیچکس جواب نمیده؟

[alitabriz 31]

ScrollView1.ScrollPosition کدش دقیقا چجوری میشه ؟

[Farzad Musavi 576]

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

[alitabriz 31]

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

[jeqele 563]

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

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

[jeqele 563]

سلام.

اولا باید توی اکتیویتی پاز کدتو بنویسی چون کاربر وقتی از صفحه خارج میشه این 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()

[alitabriz 31]

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

[alitabriz 31]

نتونستم درستش کنم*اشک کوچک**اشک کوچک*

[jeqele 563]

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

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

[Farzad Musavi 576]

نتونستم درستش کنم*اشک کوچک**اشک کوچک*

توضیح امین عزیز که کامل بود مشکلت کجاس؟

[jeqele 563]

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

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

[Farzad Musavi 576]

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

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

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

[jeqele 563]

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

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

[alitabriz 31]

<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>

[jeqele 563]

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

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

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

[alitabriz 31]

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

#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