#Region Project Attributes
#ApplicationLabel: B4A Hebrew Conversion
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region
' Import the HebrewLibrary module
#AdditionalRes: HebrewLibrary.xml
#AdditionalJar: HebrewLibrary.jar
Sub Process_Globals
' Declare the HebrewLibrary object
Dim HebrewConverter As HebrewLibrary
End Sub
Sub Globals
' Declare the UI components
Private lblEnglishText As Label
Private lblHebrewText As Label
Private btnConvert As Button
End Sub
Sub Activity_Create(FirstTime As Boolean)
' Initialize the HebrewLibrary object
HebrewConverter.Initialize(Me, "HebrewConverter")
' Set up the UI components
lblEnglishText.Initialize("lblEnglishText")
lblEnglishText.Text = "English Text:"
lblHebrewText.Initialize("lblHebrewText")
lblHebrewText.Text = "Hebrew Text:"
btnConvert.Initialize("btnConvert")
btnConvert.Text = "Convert"
Activity.AddView(lblEnglishText, 20dip, 20dip, 100%x - 40dip, 50dip)
Activity.AddView(lblHebrewText, 20dip, lblEnglishText.Top + lblEnglishText.Height + 10dip, 100%x - 40dip, 50dip)
Activity.AddView(btnConvert, 100dip, lblHebrewText.Top + lblHebrewText.Height + 20dip, 100dip, 50dip)
End Sub
Sub btnConvert_Click
' Convert English to Hebrew
Dim englishText As String = "Hello, World!"
Dim hebrewText As String = HebrewConverter.Transliterate(englishText)
' Display the converted text
lblHebrewText.Text = "Hebrew Text: " & hebrewText
End Sub
Sub HebrewConverter_TransliterationCompleted(Result As String)
' Not used in this example
End Sub