android.permission.ACCESS_NETWORK_STATE
android.permission.ACCESS_LOCATION
android.permission.ACCESS_GPS
android.permission.ACCESS_ASSISTED_GPS
android.permission.ACCESS_CELL_ID
android.permission.ACCESS_COARSE_LOCATION
android.permission.ACCESS_CHECKIN_PROPERTIES
android.permission.ACCESS_LOCATION_EXTRA_COMMANDS
android.permission.ACCESS_FINE_LOCATION
android.permission.ACCESS_WIFI_STATE
android.permission.BLUETOOTH_ADMIN
android.permission.BLUETOOTH
android.permission.BOOT_COMPLETED
android.permission.CALL_PHONE
android.permission.CALL_PRIVILEGED
android.permission.CAMERA
android.permission.CHANGE_WIFI_STATE
android.permission.FLASHLIGHT
android.permission-group.HARDWARE_CONTROLS
android.permission.HARDWARE_TEST
android.permission.INTERNET
android.permission.MODIFY_PHONE_STATE
android.permission.PROCESS_OUTGOING_CALLS
android.permission.READ_PHONE_STATE
android.permission.RECEIVE_SMS
android.permission.READ_SMS
android.permission.RECEIVE_BOOT_COMPLETED
android.permission.SEND_SMS
android.permission.SET_WALLPAPER
android.permission.UPDATE_DEVICE_STATS
android.permission.WAKE_LOCK
android.permission.WRITE_SETTINGS
android.permission.WRITE_SECURE_SETTINGS
android.permission.WRITE_SMS

Events:

None

Members:

AccessWiFiState As String [read only]

AvailMemory As String [read only]

BluetoothOnOff (BTooth As android.graphics.Bitmap)

BlueToothSerial As String [read only]

Brightness As Float [write only]

Celsius As String

DeviceModel As String [read only]

Farenheit As String

GetDisplayMetricsHeight As Int

GetDisplayMetricsWidth As Int

GPSOnOff (Gps As android.graphics.Bitmap)

Initialize (EventName As String)

IPAddress As String [read only]

LedOnOff (LedOn As android.graphics.Bitmap, LedOff As android.graphics.Bitmap)

Level As Float

MacAddres As String [read only]

MakeCall (Call As android.graphics.Bitmap)

NetworkOperatorName As String [read only]

OpenGpsSetting

OpenWiFiSettings

OSVersion As String [read only]

SimCardNumber As String [read only]

StartCamera

TotalMemory As String [read only]

UsedMemory As String [read only]

Version As Double [read only]

WiFiOnOff (WiFiOn As android.graphics.Bitmap, WiFiOff As android.graphics.Bitmap)

Members description:

AccessWiFiState As String [read only]

Example:
Dim ph As ICOSPhone
ph.AccessWiFiState
return the AccessWiFiState

AvailMemory As String [read only]

Examples:
Dim Button1 As Button
Dim Label1 As Label
Dim ph As ICOSPhone

Sub Button1_Click
label1.Text=ph.AvailMemory
End Sub
Return Avail Memory

BluetoothOnOff (BTooth As android.graphics.Bitmap)

Examples:
Dim Button1 As Button
Dim ph As ICOSPhone

Sub Button1_Click
ph.EnableDisableBluetooth
End Sub
Enable or Disable BlueTooth

BlueToothSerial As String [read only]

Example:
Dim ph As ICOSPhone
ph.BlueToothSerial
If the Bluetooth is on w'll return the serial

Brightness As Float [write only]

Example:
Dim ph As ICOSPhone
ph.Brightness
W'll set the Brightness of your screen

Celsius As String

Example:
Dim ph As ICOSPhone
dim Label1 As Label
Label1.Text=ph.TempCelsius
Return the degrees in Celsius of your Battery

DeviceModel As String [read only]

Examples:
Dim Button1 As Button
Dim Label1 As Label
Dim ph As ICOSPhone

Sub Button1_Click
label1.Text=ph.DeviceModel
End Sub
Display the model of your device

Farenheit As String

Example:
Dim ph As ICOSPhone
dim Label1 As Label
Label1.Text=ph.TempFarenheit
Return the degrees in Farenheit of your Battery

GetDisplayMetricsHeight As Int

Example:
Dim ph As ICOSPhone
ph.GetDisplayHeight
return the DisplayHeight in pixel (ex. 1024)

GetDisplayMetricsWidth As Int

Example:
Dim ph As ICOSPhone
ph.GetDisplayWidth
return the Display Width in pixel (ex. 600)

GPSOnOff (Gps As android.graphics.Bitmap)

Example:
Dim ph As ICOSPhone
ph.GPSOnOff
W'll start GPS On or Off

Initialize (EventName As String)

Initialize the Object.
Example:
Dim ph As ICOSPhone
ph.Initialize("ph")

IPAddress As String [read only]

Examples:
Dim Button1 As Button
Dim Label1 As Label
Dim ph As ICOSPhone

Sub Button1_Click
label1.Text=ph.IPAddress
End Sub
Display your IP-Address

LedOnOff (LedOn As android.graphics.Bitmap, LedOff As android.graphics.Bitmap)

Example:
Dim ph As ICOSPhone
ph.LedOnOff
Flash Mode On

This W'll turn Flash Mode ON or OFF if is supported.

Level As Float

Example:
Dim ph As ICOSPhone
Dim Pb As ProgressBar
Dim Button1 As Button

Sub Button1_Click
pb.Progress=Level
End Sub
Return the amount of level of your Battery

MacAddres As String [read only]

Example:
Dim ph As ICOSPhone
ph.MacAddres
return the MacAddres

MakeCall (Call As android.graphics.Bitmap)

Examples:
Dim Button1 As Button
Dim ph As ICOSPhone

Sub Button1_Click
ph.MakeCall
End Sub

NetworkOperatorName As String [read only]

Examples:
Dim Button1 As Button
Dim Label1 As Label
Dim ph As ICOSPhone

Sub Button1_Click
label1.Text=ph.NetworkOperatorName
End Sub
Display the name of your NetworkOperator

OpenGpsSetting

Examples:
Dim Button1 As Button
Dim ph As ICOSPhone

Sub Button1_Click
ph.OpenGpsSetting
End Sub
Open Gps Setting

OpenWiFiSettings

Examples:
Dim Button1 As Button
Dim ph As ICOSPhone

Sub Button1_Click
ph.OpenWifiSettings
End Sub
Open WiFi Settings

OSVersion As String [read only]

Examples:
Dim Button1 As Button
Dim Label1 As Label
Dim ph As ICOSPhone

Sub Button1_Click
label1.Text=ph.OSVersion
End Sub
Display OSVersion of your device

SimCardNumber As String [read only]

Example:
Dim ph As ICOSPhone
ph.SimCardNumber
return the SimCardNumber

StartCamera

Examples:
Dim Button1 As Button
Dim ph As ICOSPhone

Sub Button1_Click
ph.StartCamera
End Sub
Start On the Camera

TotalMemory As String [read only]

Examples:
Dim Button1 As Button
Dim Label1 As Label
Dim ph As ICOSPhone

Sub Button1_Click
label1.Text=ph.TotalMemory
End Sub
Return Total Memory

UsedMemory As String [read only]

Examples:
Dim Button1 As Button
Dim Label1 As Label
Dim ph As ICOSPhone

Sub Button1_Click
label1.Text=ph.UsedMemory
End Sub
Return Used Memory

Version As Double [read only]

Return The Version Of this Library

WiFiOnOff (WiFiOn As android.graphics.Bitmap, WiFiOff As android.graphics.Bitmap)

Examples:
Dim Button1 As Button
Dim ph As ICOSPhone

Sub Button1_Click
ph.EnableDisableWiFi
End Sub
Enable / Disable your WIFI

ICOSRotateAnimation

This is an 'Activity Object', it cannot be declared under Sub Process_Globals.

Events:

animationend

Members:

AutoRepeat

AutoReverse

InfinityRotateCentre (EventName As String, RotateDegrees As Float, Duration As Long)

InfinityRotateCentreReverse (EventName As String, RotateDegrees As Float, Duration As Long)

IsInitialized As Boolean

Rotate (EventName As String, FromDegrees As Float, ToDegrees As Float, Duration As Long)

RotateCentre (EventName As String, RotateDegrees As Float, Duration As Long)

RotateCentreReverse (EventName As String, RotateDegrees As Float, Duration As Long)

RotateScaleCenterIn (EventName As String, Duration As Long)

RotateScaleCenterOut (EventName As String, Duration As Long)

RotateSlideFromBottom (EventName As String, RotateDegrees As Float, SlideValue As Float, Duration As Long)

RotateSlideFromLeft (EventName As String, RotateDegrees As Float, SlideValue As Float, Duration As Long)

RotateSlideFromRight (EventName As String, RotateDegrees As Float, SlideValue As Float, Duration As Long)

RotateSlideFromTop (EventName As String, RotateDegrees As Float, SlideValue As Float, Duration As Long)

RotateSlideToBottom (EventName As String, RotateDegrees As Float, SlideValue As Float, Duration As Long)

RotateSlideToLeft (EventName As String, RotateDegrees As Float, SlideValue As Float, Duration As Long)

RotateSlideToRight (EventName As String, RotateDegrees As Float, SlideValue As Float, Duration As Long)

RotateSlideToTop (EventName As String, RotateDegrees As Float, SlideValue As Float, Duration As Long)

StartAnim (view As android.view.View)

StartAnimAtTime As Long [write only]

StopAnin (view As android.view.View)

Version As Double [read only]

Members description:

AutoRepeat

Set repeat infinity automatically

AutoReverse

Set reverse automatically

InfinityRotateCentre (EventName As String, RotateDegrees As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.InfinityRotateCentre("anim",360,2)
anim.StartAnim(ImageView1)
End Sub

InfinityRotateCentreReverse (EventName As String, RotateDegrees As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.InfinityRotateCentreReverse("anim",360,2)
anim.StartAnim(ImageView1)
End Sub

IsInitialized As Boolean

Rotate (EventName As String, FromDegrees As Float, ToDegrees As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.Rotate("anim",0,360,2)
anim.StartAnim(ImageView1)
End Sub

RotateCentre (EventName As String, RotateDegrees As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.RotateCentre("anim",360,2)
anim.StartAnim(ImageView1)
End Sub

RotateCentreReverse (EventName As String, RotateDegrees As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.RotateCentreReverse("anim",360,2)
anim.StartAnim(ImageView1)
End Sub

RotateScaleCenterIn (EventName As String, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.RotateScaleCentreIn("anim",2)
anim.StartAnim(ImageView1)
End Sub

RotateScaleCenterOut (EventName As String, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.RotateScaleCentreOut("anim",360,2)
anim.StartAnim(ImageView1)
End Sub

RotateSlideFromBottom (EventName As String, RotateDegrees As Float, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.RotateSlideFromBottom("anim",360,600,2)
anim.StartAnim(ImageView1)
End Sub

RotateSlideFromLeft (EventName As String, RotateDegrees As Float, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.RotateSlideFromLeft("anim",360,600,2)
anim.StartAnim(ImageView1)
End Sub

RotateSlideFromRight (EventName As String, RotateDegrees As Float, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.RotateSlideFromRight("anim",360,600,2)
anim.StartAnim(ImageView1)
End Sub

RotateSlideFromTop (EventName As String, RotateDegrees As Float, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.RotateSlideFromTop("anim",360,600,2)
anim.StartAnim(ImageView1)
End Sub

RotateSlideToBottom (EventName As String, RotateDegrees As Float, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.RotateSlideToBottom("anim",360,600,2)
anim.StartAnim(ImageView1)
End Sub

RotateSlideToLeft (EventName As String, RotateDegrees As Float, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.RotateSlideToLeft("anim",360,600,2)
anim.StartAnim(ImageView1)
End Sub

RotateSlideToRight (EventName As String, RotateDegrees As Float, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.RotateSlideToRight("anim",360,600,2)
anim.StartAnim(ImageView1)
End Sub

RotateSlideToTop (EventName As String, RotateDegrees As Float, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.RotateSlideToTop("anim",360,600,2)
anim.StartAnim(ImageView1)
End Sub

StartAnim (view As android.view.View)

anim.StartAnim

StartAnimAtTime As Long [write only]

StopAnin (view As android.view.View)

Stop the animation

Version As Double [read only]

Return the version of this library

ICOSScaleAnimation

This is an 'Activity Object', it cannot be declared under Sub Process_Globals.

Events:

animationend

Members:

AutoRepeat

AutoReverse

IsInitialized As Boolean

ScaleCenterIn (EventName As String, Duration As Long)

ScaleCenterOut (EventName As String, Duration As Long)

ScaleFromBottom (EventName As String, Duration As Long)

ScaleFromBottomToTopBack (EventName As String, Duration As Long)

ScaleFromCenterToLeftRight (EventName As String, Duration As Long)

ScaleFromCenterToLeftRightBack (EventName As String, Duration As Long)

ScaleFromCenterToTopBottom (EventName As String, Duration As Long)

ScaleFromCenterToTopBottomBack (EventName As String, Duration As Long)

ScaleFromLeft (EventName As String, Duration As Long)

ScaleFromLeftRightToCenter (EventName As String, Duration As Long)

ScaleFromLeftToRightBack (EventName As String, Duration As Long)

ScaleFromRight (EventName As String, Duration As Long)

ScaleFromRightToLeftBack (EventName As String, Duration As Long)

ScaleFromTop (EventName As String, Duration As Long)

ScaleFromTopBottomToCenter (EventName As String, Duration As Long)

ScaleFromTopToBottomBack (EventName As String, Duration As Long)

ScaleToBottom (EventName As String, Duration As Long)

ScaleToLeft (EventName As String, Duration As Long)

ScaleToRight (EventName As String, Duration As Long)

ScaleToTop (EventName As String, Duration As Long)

StartAnim (view As android.view.View)

StartAnimAtTime As Long [write only]

StopAnin (view As android.view.View)

Version As Double [read only]

Members description:

AutoRepeat

Set repeat infinity automatically

AutoReverse

Set reverse automatically

IsInitialized As Boolean

ScaleCenterIn (EventName As String, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim b1 As Button

Sub b1_Click
anim.ScaleCenterIn("anim",2000)
anim.StartAnim(ImageView1)
End Sub

ScaleCenterOut (EventName As String, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim b1 As Button

Sub b1_Click
anim.ScaleCenterOut("anim",2000)
anim.StartAnim(ImageView1)
End Sub

ScaleFromBottom (EventName As String, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim b1 As Button

Sub b1_Click
anim.ScaleFromBottom("anim",2000)
anim.StartAnim(ImageView1)
End Sub

ScaleFromBottomToTopBack (EventName As String, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim b1 As Button

Sub b1_Click
anim.ScaleFromBottomToTopBack("anim",2000)
anim.StartAnim(ImageView1)
End Sub

ScaleFromCenterToLeftRight (EventName As String, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim b1 As Button

Sub b1_Click
anim.ScaleFromCenterToLeftRight("anim",2000)
anim.StartAnim(ImageView1)
End Sub

ScaleFromCenterToLeftRightBack (EventName As String, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim b1 As Button

Sub b1_Click
anim.ScaleFromCenterToLeftRightBack("anim",2000)
anim.StartAnim(ImageView1)
End Sub

ScaleFromCenterToTopBottom (EventName As String, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim b1 As Button

Sub b1_Click
anim.ScaleFromCenterToTopBottom("anim",2000)
anim.StartAnim(ImageView1)
End Sub

ScaleFromCenterToTopBottomBack (EventName As String, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim b1 As Button

Sub b1_Click
anim.ScaleFromCenterToTopBottomBack("anim",2000)
anim.StartAnim(ImageView1)
End Sub

ScaleFromLeft (EventName As String, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim b1 As Button

Sub b1_Click
anim.ScaleFromLeft("anim",2000)
anim.StartAnim(ImageView1)
End Sub

ScaleFromLeftRightToCenter (EventName As String, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim b1 As Button

Sub b1_Click
anim.ScaleFromLeftRightToCenter("anim",2000)
anim.StartAnim(ImageView1)
End Sub

ScaleFromLeftToRightBack (EventName As String, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim b1 As Button

Sub b1_Click
anim.ScaleFromLeftToRightBack("anim",2000)
anim.StartAnim(ImageView1)
End Sub

ScaleFromRight (EventName As String, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim b1 As Button

Sub b1_Click
anim.ScaleFromRight("anim",2000)
anim.StartAnim(ImageView1)
End Sub

ScaleFromRightToLeftBack (EventName As String, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim b1 As Button

Sub b1_Click
anim.ScaleFromRightToLeftBack("anim",2000)
anim.StartAnim(ImageView1)
End Sub

ScaleFromTop (EventName As String, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim b1 As Button

Sub b1_Click
anim.ScaleFromTop("anim",2000)
anim.StartAnim(ImageView1)
End Sub

ScaleFromTopBottomToCenter (EventName As String, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim b1 As Button

Sub b1_Click
anim.ScaleFromTopBottomToCenter("anim",2000)
anim.StartAnim(ImageView1)
End Sub

ScaleFromTopToBottomBack (EventName As String, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim b1 As Button

Sub b1_Click
anim.ScaleFromTopToBottomBack("anim",2000)
anim.StartAnim(ImageView1)
End Sub

ScaleToBottom (EventName As String, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim b1 As Button

Sub b1_Click
anim.ScaleToBottom("anim",2000)
anim.StartAnim(ImageView1)
End Sub

ScaleToLeft (EventName As String, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim b1 As Button

Sub b1_Click
anim.ScaleToLeft("anim",2000)
anim.StartAnim(ImageView1)
End Sub

ScaleToRight (EventName As String, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim b1 As Button

Sub b1_Click
anim.ScaleToRight("anim",2000)
anim.StartAnim(ImageView1)
End Sub

ScaleToTop (EventName As String, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim b1 As Button

Sub b1_Click
anim.ScaleToTop("anim",2000)
anim.StartAnim(ImageView1)
End Sub

StartAnim (view As android.view.View)

anim.StartAnim -- ( Not for titlebar )

StartAnimAtTime As Long [write only]

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim b1 As Button

Sub b1_Click
anim.StartAnimAtTime=5000 The Animation Will start after 5 seconds
anim.FadeOut(2000)
anim.StartAnim(ImageView1)
End Sub

StopAnin (view As android.view.View)

Stop the animation

Version As Double [read only]

Return the version of this library

ICOSSeekBar

This is an 'Activity Object', it cannot be declared under Sub Process_Globals.

Events:

ValueChanged(Value As Int , FromUser As Boolean)
VolumeChanged(Volume As Int , FromUser As Boolean)

Members:

BringToFront

CursorBitmap As android.graphics.Bitmap [write only]

Enable As Boolean [write only]

Enabled As Boolean [read only]

InitializeProgressBar (EventName As String)

InitializeSeekBar (EventName As String)

InitializeVolumeBar (EventName As String)

IsInitialized As Boolean

Max As Int

ProgressBarMax As Int [write only]

ProgressBarValue As Int [write only]

ProgressBitmap As android.graphics.Bitmap [write only]

RemoveView

SendToBack

StreamVolume As Int

Value As Int

Version As Double [read only]

Visible As Boolean

Members description:

BringToFront

Send this view to front

CursorBitmap As android.graphics.Bitmap [write only]

This is part of InitializeSeekBar or InitializeVolumeBar ( You'll find it in ICOSSeekBar )

Example:

ics.CursorBitmap=LoadBitmap(File.DirAssets,"somefile.png")

Enable As Boolean [write only]

Enabled As Boolean [read only]

InitializeProgressBar (EventName As String)

Example:
Dim ics As ICOSSeekBar

Sub Activity_Create(FirstTime As Boolean)
ics.InitializeProgressBar("ics")
Activity.AddView(ics,115,500,350,35)
End Sub

InitializeSeekBar (EventName As String)

Example:
Dim ics As ICOSSeekBar

Sub Activity_Create(FirstTime As Boolean)
ics.InitializeSeekBar("ics")
ics.ProgressBitmap=LoadBitmap(File.DirAssets,"somefile.png")
ics.CursorBitmap=LoadBitmap(File.DirAssets,"somefile.png")
Activity.AddView(ics,115,500,350,35)
End Sub

InitializeVolumeBar (EventName As String)

You have to use this with MediaPlayer or ICOSMusicPlayer

Example:
Dim ics As ICOSSeekBar

Sub Activity_Create(FirstTime As Boolean)
ics.InitializeVolumeBar("ics")
ics.ProgressBitmap=LoadBitmap(File.DirAssets,"somefile.png")
ics.CursorBitmap=LoadBitmap(File.DirAssets,"somefile.png")
Activity.AddView(ics,115,500,350,35)
End Sub

IsInitialized As Boolean

Max As Int

This is part of InitializeSeekBar or InitializeVolumeBar ( You'll find it in ICOSSeekBar )

return Max Value

ProgressBarMax As Int [write only]

This is part of InitializeProgressBar ( You'll find it in ICOSSeekBar )

Set the Max value of ProgressBarMax

ProgressBarValue As Int [write only]

This is part of InitializeProgressBar ( You'll find it in ICOSSeekBar)

Set the value of ProgressBarValue

ProgressBitmap As android.graphics.Bitmap [write only]

This is part of InitializeSeekBar or InitializeVolumeBar ( You'll find it in ICOSSeekBar )

Example:

ics.ProgressBitmap=LoadBitmap(File.DirAssets,"somefile.png")

RemoveView

Remove this View

SendToBack

Send this view to back

StreamVolume As Int

return the value of Volume ( the value is between 0 to 15)

Value As Int

This is part of InitializeSeekBar or InitializeVolumeBar ( You'll find it in ICOSSeekBar )

return progress Value

Version As Double [read only]

Return the version of this library

Visible As Boolean

ICOSSlideAnimation

This is an 'Activity Object', it cannot be declared under Sub Process_Globals.

Events:

animationend

Members:

AutoRepeat

AutoReverse

IsInitialized As Boolean

SlideFadeFromBottom (EventName As String, SlideValue As Float, Duration As Long)

SlideFadeFromLeft (EventName As String, SlideValue As Float, Duration As Long)

SlideFadeFromRight (EventName As String, SlideValue As Float, Duration As Long)

SlideFadeFromTop (EventName As String, SlideValue As Float, Duration As Long)

SlideFadeToBottom (EventName As String, SlideValue As Float, Duration As Long)

SlideFadeToLeft (EventName As String, SlideValue As Float, Duration As Long)

SlideFadeToRight (EventName As String, SlideValue As Float, Duration As Long)

SlideFadeToTop (EventName As String, SlideValue As Float, Duration As Long)

SlideFromBottom (EventName As String, SlideValue As Float, Duration As Long)

SlideFromBottomToTop (EventName As String, SlideValue As Float, Duration As Long)

SlideFromLeft (EventName As String, SlideValue As Float, Duration As Long)

SlideFromLeftToRight (EventName As String, SlideValue As Float, Duration As Long)

SlideFromRight (EventName As String, SlideValue As Float, Duration As Long)

SlideFromRightToLeft (EventName As String, SlideValue As Float, Duration As Long)

SlideFromTop (EventName As String, SlideValue As Float, Duration As Long)

SlideFromTopToBottom (EventName As String, SlideValue As Float, Duration As Long)

SlideToBottom (EventName As String, SlideValue As Float, Duration As Long)

SlideToLeft (EventName As String, SlideValue As Float, Duration As Long)

SlideToRight (EventName As String, SlideValue As Float, Duration As Long)

SlideToTop (EventName As String, SlideValue As Float, Duration As Long)

StartAnim (view As android.view.View)

StartAnimAtTime As Long [write only]

StopAnin (view As android.view.View)

Version As Double [read only]

Members description:

AutoRepeat

Set repeat infinity automatically

AutoReverse

Set reverse automatically

IsInitialized As Boolean

SlideFadeFromBottom (EventName As String, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.SlideFadeFromBottom("anim",600,2)
anim.StartAnim(ImageView1)
End Sub

SlideFadeFromLeft (EventName As String, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.SlideFadeFromLeft("anim",600,2)
anim.StartAnim(ImageView1)
End Sub

SlideFadeFromRight (EventName As String, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.SlideFadeFromRight("anim",600,2)
anim.StartAnim(ImageView1)
End Sub

SlideFadeFromTop (EventName As String, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.SlideFadeFromTop("anim",600,2)
anim.StartAnim(ImageView1)
End Sub

SlideFadeToBottom (EventName As String, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.SlideFadeToBottom("anim",600,2)
anim.StartAnim(ImageView1)
End Sub

SlideFadeToLeft (EventName As String, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.SlideFadeToLeft("anim",600,2)
anim.StartAnim(ImageView1)
End Sub

SlideFadeToRight (EventName As String, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.SlideFadeToRight("anim",600,2)
anim.StartAnim(ImageView1)
End Sub

SlideFadeToTop (EventName As String, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.SlideFadeToTop("anim",600,2)
anim.StartAnim(ImageView1)
End Sub

SlideFromBottom (EventName As String, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.SlideFromBottom("anim",600,2)
anim.StartAnim(ImageView1)
End Sub

SlideFromBottomToTop (EventName As String, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.SlideFromBottomToTop("anim",600,2)
anim.StartAnim(ImageView1)
End Sub

SlideFromLeft (EventName As String, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.SlideFromLeft("anim",600,2)
anim.StartAnim(ImageView1)
End Sub

SlideFromLeftToRight (EventName As String, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.SlideFromLeftToRight("anim",600,2)
anim.StartAnim(ImageView1)
End Sub

SlideFromRight (EventName As String, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.SlideFromRightToLeft(600,2)
anim.StartAnim(ImageView1)
End Sub

SlideFromRightToLeft (EventName As String, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.SlideFromRightToLeft("anim",600,2)
anim.StartAnim(ImageView1)
End Sub

SlideFromTop (EventName As String, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.SlideFromTop("anim",600,2)
anim.StartAnim(ImageView1)
End Sub

SlideFromTopToBottom (EventName As String, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.SlideFromTopToBottom("anim",600,2)
anim.StartAnim(ImageView1)
End Sub

SlideToBottom (EventName As String, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.SlideToBottom("anim",600,2)
anim.StartAnim(ImageView1)
End Sub

SlideToLeft (EventName As String, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.SlideToLeft(600,2)
anim.StartAnim(ImageView1)
End Sub

SlideToRight (EventName As String, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.SlideToRight("anim",600,2)
anim.StartAnim(ImageView1)
End Sub

SlideToTop (EventName As String, SlideValue As Float, Duration As Long)

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.SlideToTop("anim",600,2)
anim.StartAnim(ImageView1)
End Sub

StartAnim (view As android.view.View)

anim.StartAnim -- ( Not for titlebar )

StartAnimAtTime As Long [write only]

Example:
Dim anim As ICOSAnimation
Dim ImageView1 As ImageView
Dim Button1 As Button

Sub b1_Click
anim.StartAnimAtTime=5 The Animation Will start after 5 seconds
anim.FadeOut(2)
anim.StartAnim(ImageView1)
End Sub

StopAnin (view As android.view.View)

Stop the animation

Version As Double [read only]

Return the version of this library

ICOSStrings

This is an 'Activity Object', it cannot be declared under Sub Process_Globals.

Events:

None

Members:

CalculatesVAT (Value As Int, Vat As Int) As Int

ExtractVAT (Value As Int, Vat As Float) As Double

Mid (text As String, value1 As Int, value2 As Int) As String

StrLeft (text As String, value As Int) As String

StrRight (text As String, value As Int) As String

Version As Double [read only]

Members description:

CalculatesVAT (Value As Int, Vat As Int) As Int

Dim s As ICOSString
Dim label1 As Label
Example:
Label1.text=s.CalculatesVAT(100,15)
Result is 115

ExtractVAT (Value As Int, Vat As Float) As Double

Dim s As ICOSString
Dim label1 As Label
Example:
Label1.text=s.ExtractVAT(100,15)
Result is 86.9565

Mid (text As String, value1 As Int, value2 As Int) As String

Dim s As ICOSString
Dim label1 As Label
Example:
Label1.text=s.Mid$("Hello Basic4Android" , 7 , 13)
"BasicAndroid"

StrLeft (text As String, value As Int) As String

Dim s As ICOSString
Dim label1 As Label
Example:
Label1.text=s.StrLeft$("Hello Basic4Android" , 5)
"Hello"

StrRight (text As String, value As Int) As String

Dim s As ICOSString
Dim label1 As Label
Example:
Label1.text=s.StrRight$("Hello Basic4Android" , 7)
"Android"

Version As Double [read only]

Return the version of this library

ICOSTextToSpeech

This is an 'Activity Object', it cannot be declared under Sub Process_Globals.

Permissions:

android.permission.READ_SMS
android.permission.RECEIVE_SMS
android.permission.WRITE_SMS
android.permission.ACCESS_LOCATION_EXTRA_COMMANDS
jp.co.c_lis.permission.CHANGE_LOCALE