iOS Question Pulse button

[Pete_S]

Is there a pulsing button available?

Similar to this:

https://i.stack.imgur.com/hggbC.gif

How to do a native "Pulse effect" animation on a UIButton - iOS

I would like to have some kind of pulse animation (infinite loop "scale in - scale out") on a UIButton so it gets users' attention immediately. I saw this link How to create a pulse effect using -...

stackoverflow.com

 

[emexes]

You could set up a timer that cycles the button's size, position and/or background color, eg one-time setup like:

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
 
    Dim Button1 As Button
    Dim Button1Timer As Timer
 
    Dim Button1X As Int
    Dim Button1Y As Int
    Dim Button1SizeX As Int
    Dim Button1SizeY As Int
    Dim Button1ThrobX As Int
    Dim Button1ThrobY As Int
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)

    Root = Root1
    Root.LoadLayout("MainPage")
    Sleep(0)    'give Button1 chance to initialize
 
    Button1SizeX = Button1.Width
    Button1SizeY = Button1.Height
    Button1X = Button1.Left
    Button1Y = Button1.Top
    Button1ThrobX = Min(Button1SizeX, Button1SizeY) * 0.05    'relative throb size 5%
    Button1ThrobY = Button1ThrobX    'same throb for both axes
 
    Button1Timer.Initialize("Button1", 1000 / 15)    '15 frames per second
    Button1Timer.Enabled = True

End Sub

and then animate button like:

Sub Button1_Tick

    Dim Phase As Double = Sin(DateTime.Now / (2000 / 3.14159 / 2))    'cycle time (throb period?) 2 seconds (2000 ms)
 
    Dim ThrobX As Int = Button1ThrobX * Phase
    Dim ThrobY As Int = Button1ThrobY * Phase
 
    Button1.Left = Button1X + ThrobX
    Button1.Top = Button1Y + ThrobY
    Button1.SetSize(Button1SizeX - 2 * ThrobX, Button1SizeY - 2 * ThrobY)
 
    'bonus ?
    'Dim RotatableButton1 As B4XView = Button1
    'RotatableButton1.Rotation = Phase * 10

End Sub

 

[emexes]

Lol no law (that I know of) against having multiple pulsing buttons eg:

    Button2.Left = Button2X + ThrobX
    Button2.Top = Button2Y + ThrobY
    Button2.SetSize(Button2SizeX - 2 * ThrobX, Button2SizeY - 2 * ThrobY)

and even with some in opposite phase eg:

    Button3.Left = Button3X - ThrobX
    Button3.Top = Button3Y - ThrobY
    Button3.SetSize(Button3SizeX + 2 * ThrobX, Button3SizeY + 2 * ThrobY)

 

[TILogistic]

Lol no law (that I know of) against having multiple pulsing buttons eg:

????
? B4X

???

 

[emexes]

That feels mildly kinky. ?

 

[TILogistic]

That feels mildly kinky. ?

I wanted to show that it is possible to change the time of the pulse

 

[emexes]

I wanted to show that it is possible to change the time of the pulse

That was my second guess. ?

While we're here: what screen recorder do you use to make that GIF?

 

[TILogistic]

While we're here: what screen recorder do you use to make that GIF?

LICEcap

Cockos Incorporated | LICEcap

www.cockos.com