ورق زدن صفحات در بیسیک4 اندروید به همراه کتابخانهPageTurnView

zip

مرداد 10, 1396

حجم:325 کیلو بایت

رمز فایل:alghadirsoft.ir

ورق زدن صفحات در بیسیک4 اندروید به همراه کتابخانهPageTurnView

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

پیدا نکرده اید ما به شما این سورس و کتابخانه را پیشنهاد میدهیم این یک مجموعه آموزشی بسیار عالیست

#Region Module Attributes
 #FullScreen: False
 #IncludeTitle: True
 #ApplicationLabel: PageTurnView Demo
 #VersionCode: 1
 #VersionName: 
 #SupportedOrientations: unspecified
 #CanInstallToExternalStorage: False
#End Region

'Activity module
Sub Process_Globals
 'These global variables will be declared once when the application starts.
 'These variables can be accessed from all modules.
 Dim PageNumber As Int ' save page number during device rotation
 
 Dim ipsum As String
 ipsum = "Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum."
 Dim paracount As Int : paracount = 8
 Dim LeftMargin As Int : LeftMargin = 10dip
 Dim TopMargin As Int : TopMargin = 10dip
 Dim LineSpacing As Int : LineSpacing = 1
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 PageTurner As PageTurnView
 Dim Pager As TextPaginator
 Dim Font As Typeface
End Sub

Sub Activity_Create(FirstTime As Boolean)
 PageTurner.Initialize("PageTurner", 20)
 Activity.AddView(PageTurner, 10dip, 10dip, Activity.Width - 20dip, Activity.Height - 20dip)

If Activity.Width &gt; Activity.Height Then
 PageTurner.TwoPages = True ' the default is False
 PageTurner.RenderLeftPage = True ' the default is True
 Pager.SetPageParameters(Pager.ALIGN_NORMAL, PageTurner.Width/2 - 12dip, LeftMargin, PageTurner.Height - 12dip, TopMargin, LineSpacing)
 PageTurner.SetMarginPixels(6dip, 6dip, 6dip, 6dip)
 Else 
 PageTurner.TwoPages = False 
 PageTurner.RenderLeftPage = False
 Pager.SetPageParameters(Pager.ALIGN_CENTER, PageTurner.Width - 20dip, LeftMargin, PageTurner.Height - 20dip, TopMargin, LineSpacing)
 PageTurner.SetMarginPixels(10dip, 10dip, 10dip, 10dip)
 End If
 PageTurner.AllowLastPageCurl = False ' the default is true 
 
 Font = Font.CreateNew(Typeface.SERIF, Typeface.STYLE_NORMAL)
 Dim text As String
 For i = 0 To paracount - 1
 text = text &amp; ipsum &amp; CRLF &amp; CRLF
 Next
 Pager.SetPaintParameters(Font, 16, Colors.Black, True)
 Pager.Paginate(text)
 
End Sub

Sub Activity_Resume
 PageTurner.CurrentPage = PageNumber
 PageTurner.Color = Colors.LightGray ' otherwise it gets lost on Pause and Resume without a Create
 PageTurner.OnResume
End Sub

Sub Activity_Pause (UserClosed As Boolean)
 PageNumber = PageTurner.CurrentPage
 PageTurner.OnPause
End Sub

' This is run on the main thread to display any exception in PageTurner_GetBitmap
Sub ShowPTError(title As String, msg As String)
 Msgbox(msg, title)
End Sub

' The PageTurnerView events run on a separate thread to the main thread.
' They therefore must not try to manipulate GUI elements.
' -------------------------------------------------------------------------------------------
' DO NOT ATTEMPT TO PAUSE THE DEBUGGER IN ANY OF SUBS BELOW AS IT MAY HAVE UNEXPECTED RESULTS
' -------------------------------------------------------------------------------------------
' This may be fixed in a future version of Basic4android.

Sub PageTurner_GetBitmap(Width As Int, Height As Int, Page As Int) As Bitmap 'Called when the Bitmap for the given page number is required. Return the Bitmap
 ' As this is running on a separate thread exceptions will cause the application to force close
 ' and not report the exception as would happen on the main thread so we use a Try Catch block
 ' to trap any errors
 Dim bmp As Bitmap
 Dim cnv As Canvas
 bmp.InitializeMutable(Width, Height) ' do this here so we have a valid return in case of an exception
 Try 
 'File.OpenInput("bad", "filename") ' this would cause an exception to be reported on the main thread
 If Page = 0 Then 
 cnv.Initialize2(bmp)
 cnv.DrawColor(Colors.Blue)
 cnv.DrawText( "A Book", Width/2, 100dip, Typeface.DEFAULT, 24, Colors.White, "CENTER")
 Return bmp
 Else If Page = Pager.PageCount + 1 Then 
 cnv.Initialize2(bmp)
 cnv.DrawColor(Colors.DarkGray)
 cnv.DrawText( "The End", Width/2, 100dip, Typeface.DEFAULT, 24, Colors.White, "CENTER")
 Return bmp
 Else
 Return Pager.GetPageBitmap(Page - 1, Colors.Yellow)
 End If 
 Catch
 ' catch and report any exceptions on the rendering thread to the main thread
 PTException
 End Try 
 Return bmp ' if we don't return something valid we will cause an exception on the rendering thread
End Sub

Sub PageTurner_GetPages() As Int 'Called when the number of pages is required. Return the number of pages
 ' This is running on a separate thread and I have seen a NullPointerException in here on closing the app
 ' Presumably the Pager object was destroyed before the OpenGL thread was stopped so we trap any error
 Try
 Return Pager.PageCount + 2
 Catch
 Return 0 ' if we don't return something valid we will cause an exception on the rendering thread
 End Try 
End Sub

Sub PTException()
 Dim Ex As ExceptionEx
 Dim where As String
 Ex = LastException
 Dim args(2) As Object
 args(0) = LastException.Message
 where = Ex.StackTraceElement(2) ' get Java line of error
 args(1) = where 
 PageTurner.RunOnGuiThread("ShowPTError", args)
End Sub

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

#Region Module Attributes

#FullScreen: False

#IncludeTitle: True

#ApplicationLabel: PageTurnView Demo

#VersionCode: 1

#VersionName:

#SupportedOrientations: unspecified

#CanInstallToExternalStorage: False

#End Region

'Activity module

Sub Process_Globals

'These global variables will be declared once when the application starts.

'These variables can be accessed from all modules.

Dim PageNumber As Int ' save page number during device rotation

Dim ipsum As String

ipsum = "Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip ex ea commodo consequat. Duis aute irure dolor in reprehenderit in voluptate velit esse cillum dolore eu fugiat nulla pariatur. Excepteur sint occaecat cupidatat non proident, sunt in culpa qui officia deserunt mollit anim id est laborum."

Dim paracount As Int : paracount = 8

Dim LeftMargin As Int : LeftMargin = 10dip

Dim TopMargin As Int : TopMargin = 10dip

Dim LineSpacing As Int : LineSpacing = 1

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 PageTurner As PageTurnView

Dim Pager As TextPaginator

Dim Font As Typeface

End Sub

Sub Activity_Create(FirstTime As Boolean)

PageTurner.Initialize("PageTurner", 20)

Activity.AddView(PageTurner, 10dip, 10dip, Activity.Width - 20dip, Activity.Height - 20dip)

If Activity.Width > Activity.Height Then

PageTurner.TwoPages = True ' the default is False

PageTurner.RenderLeftPage = True ' the default is True

Pager.SetPageParameters(Pager.ALIGN_NORMAL, PageTurner.Width/2 - 12dip, LeftMargin, PageTurner.Height - 12dip, TopMargin, LineSpacing)

PageTurner.SetMarginPixels(6dip, 6dip, 6dip, 6dip)

Else

PageTurner.TwoPages = False

PageTurner.RenderLeftPage = False

Pager.SetPageParameters(Pager.ALIGN_CENTER, PageTurner.Width - 20dip, LeftMargin, PageTurner.Height - 20dip, TopMargin, LineSpacing)

PageTurner.SetMarginPixels(10dip, 10dip, 10dip, 10dip)

End If

PageTurner.AllowLastPageCurl = False ' the default is true

Font = Font.CreateNew(Typeface.SERIF, Typeface.STYLE_NORMAL)

Dim text As String

For i = 0 To paracount - 1

text = text & ipsum & CRLF & CRLF

Pager.SetPaintParameters(Font, 16, Colors.Black, True)

Pager.Paginate(text)

End Sub

Sub Activity_Resume

PageTurner.CurrentPage = PageNumber

PageTurner.Color = Colors.LightGray ' otherwise it gets lost on Pause and Resume without a Create

PageTurner.OnResume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

PageNumber = PageTurner.CurrentPage

PageTurner.OnPause

End Sub

' This is run on the main thread to display any exception in PageTurner_GetBitmap

Sub ShowPTError(title As String, msg As String)

Msgbox(msg, title)

End Sub

' The PageTurnerView events run on a separate thread to the main thread.

' They therefore must not try to manipulate GUI elements.

' -------------------------------------------------------------------------------------------

' DO NOT ATTEMPT TO PAUSE THE DEBUGGER IN ANY OF SUBS BELOW AS IT MAY HAVE UNEXPECTED RESULTS

' -------------------------------------------------------------------------------------------

' This may be fixed in a future version of Basic4android.

Sub PageTurner_GetBitmap(Width As Int, Height As Int, Page As Int) As Bitmap 'Called when the Bitmap for the given page number is required. Return the Bitmap

' As this is running on a separate thread exceptions will cause the application to force close

' and not report the exception as would happen on the main thread so we use a Try Catch block

' to trap any errors

Dim bmp As Bitmap

Dim cnv As Canvas

bmp.InitializeMutable(Width, Height) ' do this here so we have a valid return in case of an exception

Try

'File.OpenInput("bad", "filename") ' this would cause an exception to be reported on the main thread

If Page = 0 Then

cnv.Initialize2(bmp)

cnv.DrawColor(Colors.Blue)

cnv.DrawText( "A Book", Width/2, 100dip, Typeface.DEFAULT, 24, Colors.White, "CENTER")

Return bmp

Else If Page = Pager.PageCount + 1 Then

cnv.Initialize2(bmp)

cnv.DrawColor(Colors.DarkGray)

cnv.DrawText( "The End", Width/2, 100dip, Typeface.DEFAULT, 24, Colors.White, "CENTER")

Return bmp

Else

Return Pager.GetPageBitmap(Page - 1, Colors.Yellow)

End If

Catch

' catch and report any exceptions on the rendering thread to the main thread

PTException

End Try

Return bmp ' if we don't return something valid we will cause an exception on the rendering thread

End Sub

Sub PageTurner_GetPages() As Int 'Called when the number of pages is required. Return the number of pages

' This is running on a separate thread and I have seen a NullPointerException in here on closing the app

' Presumably the Pager object was destroyed before the OpenGL thread was stopped so we trap any error

Try

Return Pager.PageCount + 2

Catch

Return 0 ' if we don't return something valid we will cause an exception on the rendering thread

End Try

End Sub

Sub PTException()

Dim Ex As ExceptionEx

Dim where As String

Ex = LastException

Dim args(2) As Object

args(0) = LastException.Message

where = Ex.StackTraceElement(2) ' get Java line of error

args(1) = where

PageTurner.RunOnGuiThread("ShowPTError", args)

End Sub

Restricted Content / Members Only

You cannot view this content because It is available to members only. Please Login or Register to view this area.

موضوعات :

برچسب‌ها :

Android , B4A , Basic4android , library , PageTurnView , source , برنامه نویسی , بیسیک 4 اندروید , بیسیک فور , بیسیک فور اندروید , ذ4ش , سورس , سورس رایگان , کتابخانه , ویژه

ورق زدن صفحات در بیسیک4 اندروید به همراه کتابخانهPageTurnView - گروه آموزشی الغدیر

ادامه مطلب

ورق زدن صفحات در بیسیک4 اندروید به همراه کتابخانهPageTurnView

ورق زدن صفحات در بیسیک4 اندروید به همراه کتابخانهPageTurnView

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

پیدا نکرده اید ما به شما این سورس و کتابخانه را پیشنهاد میدهیم این یک مجموعه آموزشی بسیار عالیست

تصاویر پیش نمایش

درباره نویسنده

مطالب مرتبط

دیدگاه ها

پاسخی بگذارید لغو پاسخ

ابزارک ها