Calcula l'àrea i el perímetre 3 (s'adjunta resultat)

 per a un radi de 2m

Es mostra el resultat.

Calcula l'àrea 2

 Pren el radi =2 cm

Ara resol:

https://www.mongge.com/ejercicios/761

Matriu f x c -> una sola columna a partir de files amb cel·les no buides

 Sub Macro1()

Dim CantFila As Long
Dim CantCol As Long
Dim c As Single, f As Single, m As Single, n As Single
Dim a As Variant

m = 26 'a partir de la fila 26
n = 1

CantFila = Cells(Rows.Count, 2).End(xlUp).Row
CantCol = Cells(2, Columns.Count).End(xlToLeft).Column

For f = 1 To CantFila Step 1
    For c = 1 To CantCol Step 1

    If (Cells(f, c).Value <> "") Then
        a = Cells(f, c).Value
        Cells(m, 1).Value = a
        m = m + 1
    
    Else
        f = f + 1
        c = 1
        a = Cells(f, c).Value
        Cells(m, 1).Value = a
        m = m + 1
      
    End If

    Next c
Next f

End Sub

Array resize - arranjament matriu comparant tres primers caràcters

 Sub Macro1()

Dim CantFila As Long
Dim CantCol As Long
Dim c As Single, f As Single, m As Single, n As Single
Dim Ultim As String
Dim a As Variant


m = 26
n = 1
Ultim = Left(Cells(1, 1).Value, 3)
Debug.Print (Ultim)


CantFila = Cells(Rows.Count, 2).End(xlUp).Row
CantCol = Cells(2, Columns.Count).End(xlToLeft).Column


For f = 1 To CantFila Step 1
    For c = 1 To CantCol Step 1

    If (Left(Cells(f, c).Value, 3) = Ultim) Then
        Debug.Print (Left(Cells(f, c).Value, 3))
        a = Cells(f, c).Value
        Cells(m, n).Value = a
        n = n + 1
        Ultim = Left(Cells(f, c).Value, 3)
    
    ElseIf ((Left(Cells(f, c).Value, 3) <> Ultim) And Left(Cells(f, c).Value, 3) = "") Then
        f = f + 1
        c = 1
        
        If (Left(Cells(f, c).Value, 3) = Ultim) Then
        a = Cells(f, c).Value
        Cells(m, n).Value = a
        n = n + 1
        Ultim = Left(Cells(f, c).Value, 3)
        End If
    
    Else
        
        m = m + 1
        n = 1
        a = Cells(f, c).Value
        Cells(m, n).Value = a
        Ultim = Left(Cells(f, c).Value, 3)
    
    End If

    Next c
Next f

End Sub

Calcula l'àrea

 

Japanese Architecture - Garden

 https://youtu.be/ba2drsok3EM

como-bloquear-iphone-ipad-boton-encendido-roto

https://www.islabit.com/116608/como-bloquear-iphone-ipad-boton-encendido-roto.html

Cómo bloquear un iPhone o iPad con el botón de encendido roto

10 mayo, 2021 por Borjas Alberto

No es para nada agradable que el botón de encendido de nuestro dispositivo móvil no funcione, especialmente porque es fundamental para bloquear y desbloquear la pantalla. Sin embargo, los dispositivos de Apple cuentan con una opción bastante interesante para bloquear un iPhone o iPad si el botón de encendido está roto.

Estamos hablando de una función de accesibilidad llamada AssistiveTouch que nos permite simular movimientos, gestos y pulsaciones de botones con opciones de menú en la pantalla táctil. Esto es ideal porque en caso de tener el botón de encendido roto. Podemos apagar la pantalla del iPhone sin ninguna clase de problema.

Cómo bloquear iPhone con botón de encendido roto

Lo primero que deberemos hacer es dirigirnos a Configuración y luego tendremos que ir a Accesibilidad > Touch.

Cómo bloquear iPhone con botón de encendido roto

Lo primero que deberemos hacer es dirigirnos a Configuración y luego tendremos que ir a Accesibilidad > Touch.

Ahora vamos a tener que pulsar en “AssistiveTouch”.

En esta nueva pantalla, tendremos que encender el interruptor que se encuentra junto a “AssistiveTouch”.

Ahora podremos ver que aparece un botón gris que tiene un círculo blanco en el medio. Aparecerá en un costado de la pantalla. Así es como logramos activar AssistiveTouch en iPhone.