کمک برای ساخت کتاب

[hunter0010 62]

سلام

من میخوام یه کتاب درست کنم اما مطالبش زیاده و نمیخوام برای هر موضوعی یه activity مجزا درست کنم میخواستم راهنماییم کنید که چه طور میشه تو قسمت sub click کد نوشت که بیاد یه فایل تکست بگیره و داخل یه لایوت نشون بده؟

و همین طور برای موضوع های دیگه هم بیاد یه فایل تکست دیگه رو بگیره و داخل همون لایوت نشون بده؟

[jmfnima 7]

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

#Region Activity Attributes

#FullScreen: true

#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

Dim panelheight As Int

Dim ScrollView1 As ScrollView

Dim PnelHeight As Int

Dim Text As String

Dim strUtil As StringUtils

Dim ht As Float

Dim mfont As Typeface

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("LDoaImportant")

Text=File.ReadString(File.DirAssets,"txtDoaImportant.txt")

mfont=Typeface.LoadFromAssets("AdobeArabic-Regular.ttf")

scroll

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub scroll

ScrollView1.Initialize(500dip)

Activity.AddView(ScrollView1, 0, 17%y, 100%x, 70%y)

panelheight=0

Dim lbltest As Label

lbltest.Initialize("lbltest")

ScrollView1.Panel.AddView(lbltest,2dip, panelheight, 100%x-5dip, 50dip)

lbltest.TextSize=22

lbltest.TextColor=Colors.White

ht= art (Text,lbltest,mfont,22)

panelheight=panelheight+ht+25dip

panelheight=panelheight+80dip

ScrollView1.Panel.Height=panelheight

End Sub

Sub art(txt As String,leb As Label,font As Typeface,size As Int) As Float

Dim before,after As Float

Dim Obj1 As Reflector

leb.text=txt

leb.TextSize=size

leb.Gravity=Gravity.CENTER

leb.Left=leb.Left

leb.Typeface=font

ht = strUtil.MeasureMultilineTextHeight(leb , txt)

Obj1.Target = leb

before = Obj1.RunMethod("getLineHeight")

Obj1.Target = leb

Obj1.RunMethod3("setLineSpacing", .10, "java.lang.float", 1.5, "java.lang.float")

Obj1.Target = leb

after = Obj1.RunMethod("getLineHeight")

ht = ((after * ht)/before)

leb.Height = ht

Return ht

End Sub

[کاربر ناشناس 2,148]

http://answercenter.ir/index.php?app=nexus&module=payments&section=store&do=item&id=13

[hunter0010 62]

دوستان منظورم بدون استفاده از دیتابیس بود

[vahid.taj 14]

سلام ، اگه از دیتابیس استفاده کنی میتونم یه راه بهت بگم که کلا از یک اکتویتی و یک لایوت استفاده کنی دیگه نیاز نیست واسه هر موضوع و هر صفحه یک اکتویتی استفاده کنی

 

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

 

------------------

 

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

میتونی یه لایوت بسازی و توی رویداد کلیک آیتم لیست ویو تعریف کنی اگه روی آیتم1 کلیک شد بیا لایوت لود کن و فایل تکست فلان رو از فلان جا بگیر و = بده با لیبل و لیبل رو به اسکرول ادد کنی. یکم فکر کنی راهش رو پیدا میکنی

 

اگه کارت راه نیفتاد فردا وقت شد واست مینویسم الان پی سی آفیده !

[کاربر ناشناس 2,148]

سلام

شما بیا یه فایل تکست به پوشه File اضافه کن بعد با دستور Open فایل رو در لیبیل لود کنید

موفق باشید

[مجید آرتا 5,874]

سلام

ساختن کتاب به وسیله فایل تکست یکم پیچیدس.

ساخته میشه ولی باید کاملا به کد نویسی بیسیک مسلط باشید.

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

موفق باشید.