B4A Library I introduce My Library ICOSLibrary

I introduce My Library ICOSLibrary new new new

Hi to everybody i Fixed some little Bug.
Sorry for the inconvenience.

please download just the library again.




Hello to everybody i'm back with my ICOSLibrary.

now it's divided in 12 pieces and all in one.

1: ICOSLibrary - include all libraries

2: ICOSImage
3: ICOSMusicPlayer
4: ICOSPhone
5: ICOSSeekBar
6: ICOSTextToSpeech
7: ICOSStrings

8: ICOSFadeAnimation
9: ICOSFlip3DView
10: ICOSSlideAnimation
11: ICOSTitleBarAnimation

12: ICOSRotateAnimation has 2 more effects:
RotateScaleCenterIn
RotateScaleCenterOut

13: ICOSScaleAnimation has 10 more effects:

ScaleFromRight
ScaleFromLeft
ScaleFromTop
ScaleFromBottom
ScaleFromLeftToRightBack
ScaleFromRightToLeftBack
ScaleFromTopToBottomBack
ScaleFromBottomToTopBack
ScaleFromCenterToTopBottomBack
ScaleFromCenterToLeftRightBack



please download it again and anjoy it.

Best Regards
G.Salvi
 

Attachments

  • ICOSFadeAnimation.zip
    155.3 KB · Views: 1,458
  • ICOSFlip3DView.zip
    209.3 KB · Views: 1,253
  • ICOSRotateAnimation.zip
    157.7 KB · Views: 1,217
  • ICOSScaleAnimation.zip
    157.7 KB · Views: 1,158
  • ICOSSlideAnimation.zip
    158.1 KB · Views: 1,279
  • ICOSTitleBarAnimation.zip
    159.8 KB · Views: 1,160
  • ICOSSeekBar.zip
    152.8 KB · Views: 1,253
  • ICOSPhone.zip
    189.8 KB · Views: 1,490
  • ICOSMusicPlayer.zip
    38.6 KB · Views: 1,223
  • ICOSGraphics.zip
    143.2 KB · Views: 1,271
  • ICOSTextToSpeech.zip
    41.1 KB · Views: 1,122
  • Library.zip
    259.8 KB · Views: 2,296
Last edited:

lonleystar

Well-Known Member
Licensed User
Longtime User
Hi Lonleystar,

I use your great ICOSSlideAnimation library to testing out a bit.

Do you have a way to make slide in an infinite loop?

As an example I have a code:

B4X:
Sub Globals
   
        Dim cl As ICOSSlideAnimation
        Dim Clouds As ImageView
End Sub


Sub Activity_Create(FirstTime As Boolean)

         cl.SlideFromRightToLeft("cl",100,30000)   
    cl.StartAnim(Clouds)
End Sub

Grtz,
Asmoro

update: is cl.AutoRepeat enough?
Hi Asmoro, ou should use AutoRepeat to set a infinite loop

Sub Globals
Dim cl As ICOSSlideAnimation
Dim Clouds As ImageView
End Sub


Sub Activity_Create(FirstTime As Boolean)

cl.SlideFromRightToLeft("cl",100,30000)

cl.AutoRepeat

cl.StartAnim(Clouds)

End Sub

I wish you a happy new year.


best regard

G.Salvi
 

Asmoro

Active Member
Licensed User
Longtime User
AutoReverse

Hi Salvi,

I'm just wondering why AutoReverse doesn't work in your libraries.

For example with your code:

B4X:
Sub b4_Click
   a.ScaleToLeft("a",2000)
   a.StartAnim(i1)
   a.AutoReverse
End Sub

But AutoRepeat works...

grtz.
Asmoro
 

Asmoro

Active Member
Licensed User
Longtime User
Image using Icosfade and Slideanimation at the same time

Hi Salvi,

Is there a way to handle these?

as an example I have a code in a Sub:

B4X:
   st.SlideToRight("st",1500,9000)
   st.StartAnim(Siren1)
   Siren1.Visible = True

   sr1.FadeInOut("sr1",1500)
   sr1.StartAnim(Siren1)
   sr1.AutoRepeat

Only one of the two are activated.

Hope you have a solution.

t.i.a.
Asmoro
 

hanslieb

Member
Licensed User
Longtime User
Question to the ICOS Phone Lib

Hello,
i have downloaded the Lib today and first of all it is a very usefull Lib.

I only have one question to the GPS On/OFF function.

Would it be possible to turn off / on the GPS without the Questionbox?

for example

Dim icos As ICOSPhone
icos.Initialize

icos.GPSOnOff(False) 'false turns GPS Off / True turns GPS On

The reason why i ask is that i wnat to use that in a service modul und it should automaticly turn the gps off in a specific time range and then turn it on also automaticly after a pause mode.


Thanks in advance
 

hanslieb

Member
Licensed User
Longtime User
Turn on off GPS

Found a Solution for this.
If someone wants to know here is the code:

Dim In As Intent
In.Initialize("android.location.GPS_ENABLED_CHANGE","")
In.PutExtra("enabled", True) ' turn GPS on / False turns it off


Dim p As Phone
p.SendBroadcastIntent(In)



happy coding
 

fotosettore

Member
Licensed User
Longtime User
background in fade

hi Giuseppe
is it possible to change color of background in fadeanimation ?
i use this library to fade a panel, that is colordrawable white
when i fade it, become black.
i need it to be or White or chosen color of background
many thanks
peppe
 

lonleystar

Well-Known Member
Licensed User
Longtime User
hi Giuseppe
is it possible to change color of background in fadeanimation ?
i use this library to fade a panel, that is colordrawable white
when i fade it, become black.
i need it to be or White or chosen color of background
many thanks
peppe
Hi fotosettore,


I´ll give a look I think yes.
 

William Hunter

Active Member
Licensed User
Longtime User
I have just discovered the ICOSLibrary and have been working with the author’s code example for ICOSPhone. I am getting this error: "java.lang.StringIndexOutOfBoundsException " at the line of code below. If I REM out the four lines of code referencing ph.Celsius, the app will run without error in the emulator.

There are also two variables that are not used – ss2 and a. Have there been modifications to this code, or to the ICOSPhone Library that are un-posted? Any help would be appreciated.

B4X:
ss.ProgressBarValue = ph.Celsius
 

GMan

Well-Known Member
Licensed User
Longtime User
Hoi lonleystar,
with the texttospeech-part nothing is to hear.
Used that sample from the 1st post.

Playing around, the ReadandSPeakSMS feature works

Solved - i added speaking direct after the app starts - that does not work.
when i call a new / another activity it works (if set of course))
 
Last edited:

imgsimonebiliato

Well-Known Member
Licensed User
Longtime User
Really Great work!! Bravo!!
 

LéonE

Member
Licensed User
Longtime User
new in b4a, so Sorry but i cant find the library "ICOSAnimation". it's not included anywhere.

the code Dim a As ICOSAnimation (your simple example does not work)
what have i missed.

is there somewhere a manual?
 

LéonE

Member
Licensed User
Longtime User
ho capito ma l'essempio non funziona e ho chiesto perche?

what i stated was: Dim a As ICOSAnimation (your simple example does not work)

why? what did i missed
 

LéonE

Member
Licensed User
Longtime User
ho guardato un attimo meglio.
i essmpi sono i primi zip.
scusa ma non avvevo capito.

buon fine settimana.

sorry i hadn't open the other zipfiles. now i did and have seen the correct examples. sorry for that.
have a nice weekend
 
Top