Italian [risolto e grazie] B4J - ESEMPIO ANIMAZIONE

[ivanomonti]

questo esempio non vuole insegnare nulla a nessuno, ma per i profani come me potrebbe essere una spinta a fare qualcosa per la comunità

il pannello setting spinge il pannello form (2 pane) unica animazione ma divertente, io scrivo le mie interfaccie da codice non uso ide o che cosa ma solo codice al volo, quindi questo codice basta copiarlo interamente e metterlo in un progetto nuovo (ovviamente sostituendo quello del progetto nuovo) che vi da il risultato.

Buon divertimento.

#Region Project Attributes
    #MainFormWidth: 600
    #MainFormHeight: 600
#End Region

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private pn,base As B4XView
    Private bt As Button
    Private xui As XUI
    Private hide As Boolean = True
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    
    MainForm = Form1
    MainForm.BackColor=fx.Colors.ARGB(200,30,30,30)
    MainForm.Show
    
    pn = xui.CreatePanel("")
    pn.Color = xui.Color_Gray
    pn.SetVisibleAnimated(2,True)
    
    base = xui.CreatePanel("")
    base.Color = xui.Color_ARGB(200,30,30,30)
    base.SetVisibleAnimated(2,True)

    MainForm.RootPane.AddNode(base,0,0,600,600)
    MainForm.RootPane.AddNode(pn,-200,0,200,600)
    
    bt.Initialize("bt")
    bt.Text = "Setting"
    base.AddView(bt,10,10,100,30)
    
End Sub

Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
    Return True
End Sub

Sub bt_action
    animatePane(pn,base)
End Sub

Sub animatePane(pna As B4XView,basea As B4XView)
    If hide= False Then
        hide= True
        For i=0 To 200
            pna.SetLayoutAnimated(200,-200,0,200,600)
            basea.SetLayoutAnimated(200,0,0,600,600)
        Next
    Else
        hide=False
        For i=0 To 200
            pna.SetLayoutAnimated(200,0,0,200,600)
            basea.SetLayoutAnimated(200,200,0,600,600)
        Next
    End If
End Sub

 

[Sagenut]

I cicli For non servono.............a meno che non vuoi che faccia quel ciclo per 200 volte.

Sub animatePane(pna As B4XView,basea As B4XView)
    If hide = False Then
        hide= True
        pna.SetLayoutAnimated(200,-200,0,200,600)
        basea.SetLayoutAnimated(200,0,0,600,600)
    Else
        hide=False
        pna.SetLayoutAnimated(200,0,0,200,600)
        basea.SetLayoutAnimated(200,200,0,600,600)
    End If
End Sub

 

[Star-Dust]

I cicli For non servono.............a meno che non vuoi che faccia quel ciclo per 200 volte.

Sub animatePane(pna As B4XView,basea As B4XView)
    If hide = False Then
        hide= True
        pna.SetLayoutAnimated(200,-200,0,200,600)
        basea.SetLayoutAnimated(200,0,0,600,600)
    Else
        hide=False
        pna.SetLayoutAnimated(200,0,0,200,600)
        basea.SetLayoutAnimated(200,200,0,600,600)
    End If
End Sub

Esatto.
Io avrei fatto il trascinamento da mouse senza bisogno del bottone, magari con la XUI per avere lo stesso in B4A/B4I e fare il trascinamento del menu con il Touch.

Comunque ci accontentiamo di quello che passa il convento ? ?

 

[Sagenut]

Dipende da cosa voleva ottenere.
Probabilmente voleva proprio quella animazione.

 

[Star-Dust]

Dipende da cosa voleva ottenere.
Probabilmente voleva proprio quella animazione.

Certo, è vero.
Ma mi pare troppo complicato come algoritmo, per un animazione del genere, io lo avrei fatto più semplice

Sub animatePane(pna As B4XView,basea As B4XView)
    pna.SetLayoutAnimated(200,-(pna.Left+200),0,200,600)
    basea.SetLayoutAnimated(200,0,200-basea.Left,600,600)
End Sub

 

[ivanomonti]

Certo, è vero.
Ma mi pare troppo complicato come algoritmo, per un animazione del genere, io lo avrei fatto più semplice

Sub animatePane(pna As B4XView,basea As B4XView)
    pna.SetLayoutAnimated(200,-(pna.Left+200),0,200,600)
    basea.SetLayoutAnimated(200,0,200-basea.Left,600,600)
End Sub

ho visto un esempio ed era dentro un loop hahahhahah come ora provo il tuo, se funziona ti offro un panzerotto hahahahah

 

[Gianni M]

@ivanomonti visto che @Star-Dust è siculo, il panzerotto lombardo non può competere con l'arancino di riso siciliano

 

[ivanomonti]

@ivanomonti visto che @Star-Dust è siculo, il panzerotto lombardo non può competere con l'arancino di riso siciliano

già e ha anche ragione hahahhah ti mando su una calabrese hahahahhah

 

[Star-Dust]

@ivanomonti visto che @Star-Dust è siculo, il panzerotto lombardo non può competere con l'arancino di riso siciliano

Gli arancini li posso fare anch'io qui perché tutti siamo esperti cuochi di arancini.

Lo mangio volentieri il panzerotto settentrionale ??

 

[LucaMs]

Lo mangio volentieri il panzerotto settentrionale ?

Pensavo che un "panzerotto" fosse un passerotto con la panza; l'importante è che non mangiate pipistrelli anche voi!