Henrique: 11/22/20

22/11/2020

Formulário ProgressBar com Excel VBA

Código feito em Visual Macro

Private Sub btn_somar_Click()

Dim soma As Long

'Carregando na mesma proporção

Me.pg_status.Min = 2

Me.pg_staus.Max = 31

For cont = 2 To 31

Me.pg_status.Value = cont 'irá acompanhar o progresso

soma = Plan1.Cells(cont, 1) + Plan1.Cells(cont, 2)

'Lançando os dados na planilha da coluna C

Plan1.Cells(cont, 3).Value = soma

MsgBox "OPERAÇÃO REALIZADA"

End Sub

Opções com menu PIC 16F628A

Código feito em CCS C Compiler

#include <16F628a.h>

#fuses INTRC_IO, NOMCLR, NOWDT

#use delay(clock = 8MHz)

#define use_portb_lcd true

#include <lcd.c>

int estado = 0;

void main(void){

set_tris_a(0x0f);

output_a(0x00);

lcd_init();

while(true){

do{

lcd_putc("\f ESCOLHA ABAIXO");

lcd_putc("\n1-Am, 2-Ve, 3-Az");

delay_ms(200);

if(input(pin_a0)){

lcd_putc("\f ACENDE LED\n AMARELO");

estado = 1;

delay_ms(1000);

}

if(input(pin_a1)){

lcd_putc("\f ACENDE LED\n VERMELHO");

estado = 2;

delay_ms(1000);

}

if(input(pin_a2)){

lcd_putc("\f ACENDE LED\n AZUL");

estado = 3;

delay_ms(1000);

}

if(input(pin_a3)){

lcd_putc("\f ACENDE LED\n TENTE NOVAMENTE");

delay_ms(1000);

}

}while(estado == 0);

if(estado == 1){

delay_ms(1000);

lcd_putc("\f LED AMARELO \n ACIONADO");

output_high(pin_a6);

delay_ms(5000);

output_low(pin_a6);

estado = 0;

}

if(estado == 2){

delay_ms(1000);

lcd_putc("\f LED VERMELHO \n ACIONADO");

output_high(pin_a7);

delay_ms(5000);

output_low(pin_a7);

estado = 0;

}

if(estado == 3){

delay_ms(1000);

lcd_putc("\f LED AZUL \n ACIONADO");

output_high(pin_b3);

delay_ms(5000);

output_low(pin_b3);

estado = 0;

}

Créditos para: Alexandro Lima

Modificando HTML #02

<!DOCTYPE html>
<html>

<head>
    <meta charset='UTF-8'>
    <title>Modificando HTML #02</title>
    <link rel='stylesheet' href='css/estilo.css'>
</head>

<body class='conteudo exercicio'>
    <div>
        <p>Texto Inicial</p>
    </div>
    <script>
        const div = document.querySelector('div')
        div.innerHTML = 'Texto Alterado'//susbstitui tudo que está dentro da div pelo valor inserido 'texto alterado'
        //div.outerHTML = 'Texto Modificado'//substitui a div

        div.insertAdjacentHTML('beforebegin', '<p>Antes Inicio </p>');
        div.insertAdjacentHTML('afterbegin','<p>Depois Inicio </p>');
        div.insertAdjacentHTML('beforeend','<p>Antes Fim</p>')

        //somente texto (sem tags)
        console.log(div.innerText);//devolve apenas o texto associado

    </script>
</body>

</html>

Modificando HTML #01

<!DOCTYPE html>
<html>

<head>
    <meta charset='UTF-8'>
    <title>Modificando HTML #01</title>
    <link rel='stylesheet' href='css/estilo.css'>
</head>

<body class='conteudo exercicio'>
    <script>
        const body = document.querySelector('body')

        const div1 = document.createElement('div')
        div1.classList.add('destaque')
        div1.innerHTML = 'Primeiro'

        const div2 = document.createElement('div')
        div2.setAttribute('wm-atributo', 'valor')
        div2.innerHTML = 'Segundo'

        const p = document.createElement('p')//fazendo um parágrafo
        p.innerHTML = 'Terceiro'
        const div3 = document.createElement('div');
        div3.appendChild(p)//paragrafo dentro da função

        //exibindo no navegador
        body.appendChild(div1)
        body.appendChild(div2)
        body.appendChild(div3)

        const texto = document.createTextNode('Antes...')
        //div3 = elemento PAI, texto = elemento FILHO
        div3.insertBefore(texto, div3.childNodes[0])//insere antes da posição 1

        //Adicionando um clone
        const div4 = div3.cloneNode(true)//clonou o elemento 3 e coloca na div4
        body.appendChild(div4);//adiciona o elemento clonado
        body.removeChild(div3);//revovendo a div3

    </script>
</body>

</html>

Formulário de análise em Excel VBA #01

Código1 feito na Visual Macro

Sub relatorio()

Dim produtos_vendidos As Long

Dim produtos_totais As Long

produtos_vendidos = WorksheetFunction.CountIf(Plan3.Columns("c"), "SIM")

produtos_totais = WorksheetFunction.CountA(Plan3.Columns("a")) - 1

UserForm1.txtotais.Value = produtos_totais

UserForm1.txvendidos.Value = produtos_vendidos

MsgBox "ANÁLISE REALIZADA !", vbInformation, ""

End Sub

Fazendo formulário em Excel VBA #03

Excel 2010

Código utilizado:

Private Sub ToggleButton1_Click()

'variáveis

Dim num1 As Long

Dim num2 As Long

'atribui valor que estiver na caixa de texto

num1 = Me.tx1.Value

num2 = Me.tx2.Value

Me.txResultado.Value = num1 * num2

MsgBox "Operação realizada com sucesso"

End Sub

Pesquisar neste blog

22/11/2020

Formulário ProgressBar com Excel VBA

Opções com menu PIC 16F628A

Modificando HTML #02

Modificando HTML #01

Formulário de análise em Excel VBA #01

Fazendo formulário em Excel VBA #03

Total de visualizações de página

Marcadores

Translate