domingo, 19 de setembro de 2021

video 3415 - Curso Windev - Revisao da aula Loop - Privado

Revisao da aula Loop
essa aula nao foi gravada por problema tecnicos

00:49 for 1 to 10
01:07 for 1 to 10 step +2
01:28 for 50 to 1 step -5
01:48 loop 
02:45 while 
03:14 for 1 to 700 Imagen x e y 
03:44 movimentando a imagem por completo 
05:07 Mostrando como acrescentou a barra de tarefas 
05:22 Vamos executar o programa 

https://youtu.be/vn-gN2kc65o



video 3414 - Curso Windev - Revisao da aula 3412 - Privado - condicoes if switch



https://youtu.be/STz01Fuay2I




quinta-feira, 16 de setembro de 2021

Video 3413 - Curso Windev 3 - 10 - Aula - Revisao Variaveis Da aula 3411 - Privado Somente Alunos


Video 3413 - Curso Windev 3 - 10 - Aula - loop - for - while  - Privado

bom dia.. galera..
Sera feito 3 videos de hoje ate segunda.
No primeiro video , sera a revisao da aula de variaveis
No segundo video , sera a revisao da aula de condicoes
No terceiro video, sera a revisao da aula de loop
No Sabado de manha, todos estao convidados, para 
revisao da aulas da semana,sala abre as 9 e fecha as 11.
Para quem ficou com alguma duvida, nessas 3 aulas,
pode postar a duvida aqui, para eu poder ajudar
a esclarecer 

Aula revisao Variaveis 





Link do Blog 






 
 


// FOR - IR DE  1 ATE 10


FOR nNCONTADOR = 1 TO 10

ToastDisplay(nNCONTADOR)

END







//FOR - IR DE  1 ATE 10 STEP +2


FOR nNCONTADOR = 1 TO 10 STEP +2

Info(nNCONTADOR)

END




//FOR - IR DE  1 ATE 10 STEP +2


FOR nNCONTADOR = 1 TO 10 STEP +2

Info(nNCONTADOR)

END








//FOR - IR DE 50 TO 1 STEP -50


FOR nNCONTADOR = 50 TO 1 STEP -5

Trace(nNCONTADOR)

END







// loop

nContador is int=10

LOOP

nContador = nContador - 1

ToastDisplay(nContador)

IF nContador<1 THEN

BREAK 

END

END






// LOOP ( 10 )

LOOP(10)

   Trace(TimeSys())

END




// loop 

nCONTADOR is int=0

WHILE nCONTADOR<10

Trace(nCONTADOR)

nCONTADOR++

END



// FOR  mexe imagen

FOR I = 1 TO 700

IMG_IMAGEN..X++

END

FOR I=1 TO 600

IMG_IMAGEN..Y++

END






//while mexe imagen

WHILE IMG_IMAGEN..X < WinInWidth() - IMG_IMAGEN..Width

    IMG_IMAGEN..X++

END

WHILE IMG_IMAGEN..Y < WinInHeight() - IMG_IMAGEN..Width

IMG_IMAGEN..Y++

END

LOOP 

IMG_IMAGEN..X--

IF IMG_IMAGEN..X<=0 THEN

BREAK

END

END

LOOP 

IMG_IMAGEN..Y--

IF IMG_IMAGEN..Y<=0 THEN

BREAK

END

END




------------------------------------

ANALISE -- A SER DESENVOLVIDA

VER NOME 
CLIENTE JOAO  EMP1  EMP2
     O CLIENTE, VAI TER NAS DUAS EMPRESAS 
 O PRODUTO , VAI TER NAS DUAS EMPRESA 
 O PEDIDO , SERA INDIVUAL POR EMPRESA 
ANALISE
EMPRESA
    ID_EMPRESA 
NOME_EMPRESA 
CLIENTE                       LIGAR O CLIENTE COM O PEDIDO , ELE VAI COLOCAR SOZINHO
    ID CLIENTE
NOME
EMAIL 
ENDERECO_RUA
ENDERECO_CIDADE
ENDERECO_UF 
    DATA_NASCIMENTO
PEDIDO                        LIGAR O PEDIDO COM ITENS 
    ID_PEDIDO
    ID_EMPRESA ( MANUAL ) 
      .. AUTOMATICO
    NUMERO_PEDIDO_EMPRESA 
    DATA_EMISSAO 
VALOR_TOTAL  -> AUTOMATICO  
OBSERVACAO 

PRODUTO 
    ID PRODUTO 
    NOME 
VALOR VENDA 

PEDIDO_ITENS 
ID_PEDIDOS_ITENS 
    .. AUTOMATIC O
    .. AUTOMATICO - TAMBEM ID PRODUTO 
QUANTIDADE
PRECO VENDA 
VALOR TOTAL 
----------------

condicoes:
in








 

quarta-feira, 15 de setembro de 2021

video 3412 - Curso Windev 2 - 10 - Privado - condicoes if switch - 15-09-2021

Aula 02 - 15/09/2021

https://youtu.be/UmPgwzmnYVU



Video REvisao If switch




Links Uteis :



--------------------------------------------------------

Exemplos fontes , na versao 26 e 21

Fonte da aula 02 - Condicoes - no repositorio Windev26

Fonte da aula 02 - Condicoes - no repositorio Windev21

---------------------------------------------------------

Aula 2 
Condicoes - If


Aula 7

1 CLEITON - BUFFERR.
2.. VARIAVEL DENTGO DO EVENTO
3... É OBRIGATORIO E MOTIVO GLOBAL 
4.. DIFERENCA INT, DECIMAL, REAL 
5. array Mais aulas
6. E mascaras, tipo Telefone, CEP, CNPJ, CPF?
    ( jquery )



=================

1. criar janela condicoes











// valor a > valor b 
IF EDT_Valor_a>EDT_Valor_b THEN
EDT_Resposta=EDT_Valor_a+" MAIOR QUE "+EDT_Valor_b
ELSE 
EDT_Resposta=EDT_Valor_a+" MENOR IGUAL QUE "+EDT_Valor_b
END






// else if 
// a = b ,senao a > b , senao menor igual 
IF EDT_Valor_a=EDT_Valor_b THEN
EDT_Resposta=EDT_Valor_a+" é igual "+EDT_Valor_b
ELSE IF EDT_Valor_a>EDT_Valor_b
EDT_Resposta=EDT_Valor_a+" MAIOR QUE "+EDT_Valor_b

ELSE
EDT_Resposta=EDT_Valor_a+" MENOR IGUAL QUE "+EDT_Valor_b

END




dAta is Date=EDT_Data
SWITCH dAta..Month
CASE 1 
EDT_Resposta="janeiro"
CASE 2 
EDT_Resposta="fevereiro"
CASE 3 
EDT_Resposta="marco"
CASE 4 
EDT_Resposta="abril"
CASE 5 
EDT_Resposta="maio"
CASE 6 
EDT_Resposta="junho"
CASE 7 
EDT_Resposta="julho"
CASE 8 
EDT_Resposta="agosto"
CASE 9 
EDT_Resposta="setembro"
CASE 10 
EDT_Resposta="outubro"
CASE 11 
EDT_Resposta="novembro"
CASE 12 
EDT_Resposta="dezembro"
OTHER CASE
EDT_Resposta=""
END






IF CBOX_apareceberbotaofechar=True THEN
BTN_Fechar..Visible=True 
ELSE
BTN_Fechar.Visible=False
END




SWITCH  RADIO_situacao
CASE 1 
Trace("pedido em aberto")
CASE 2 
Trace("fechado")
CASE 3 
Trace("faturado")
OTHER CASE
END

========================

VER NOME 
CLIENTE JOAO  EMP1  EMP2
     O CLIENTE, VAI TER NAS DUAS EMPRESAS 
O PRODUTO , VAI TER NAS DUAS EMPRESA 
O PEDIDO , SERA INDIVUAL POR EMPRESA 
ANALISE
EMPRESA
    ID_EMPRESA 
NOME_EMPRESA
CLIENTE                       LIGAR O CLIENTE COM O PEDIDO , ELE VAI COLOCAR SOZINHO
    ID CLIENTE
NOME
EMAIL 
ENDERECO_RUA
ENDERECO_CIDADE
ENDERECO_UF 
    DATA_NASCIMENTO
PEDIDO                        LIGAR O PEDIDO COM ITENS 
    ID_PEDIDO
    ID_EMPRESA ( MANUAL ) 
      .. AUTOMATICO
    NUMERO_PEDIDO_EMPRESA 
    DATA_EMISSAO
VALOR_TOTAL  -> AUTOMATICO  
OBSERVACAO 

PRODUTO 
    ID PRODUTO 
    NOME 
VALOR VENDA

PEDIDO_ITENS 
ID_PEDIDOS_ITENS 
    .. AUTOMATIC O
    .. AUTOMATICO - TAMBEM ID PRODUTO 
QUANTIDADE
PRECO VENDA 
VALOR TOTAL 
----------------

condicoes:
in


     











terça-feira, 14 de setembro de 2021

video 3411 - Curso Windev 1 - 10 - Privado - Variaveis - 14-09-2021

Aula 01 - 14/09/2021




https://youtu.be/joXSyiRj_pM



Aula Revisao 3413 - Variaveis Somente Alunos

https://youtu.be/cOiYaF-Rk3I




Assuntos Abordados :


====================================================================

Links Uteis :


                   
--------------------------------------------------------

Exemplos fontes , na versao 26 e 22



==============
ASSUNTOS QUE O AMARILDO, VAI VER NO DECORRER DO CURSO

1 CLEITON - BUFFERR.
2.. VARIAVEL DENTGO DO EVENTO
3... É OBRIGATORIO E MOTIVO GLOBAL 
4.. DIFERENCA INT, DECIMAL, REAL 
5. array Mais aulas
6. E mascaras, tipo Telefone, CEP, CNPJ, CPF?
    ( jquery )
----------------------------

CODIGOS DA AULA 001


// BTN VARIAVEL
// EXPLICANDO STRING CURRENCY
// EXPLICANDO TEXTO LONGO AUTOMATICO

cyVALOR_PAGAR is currency=EDT_VALOR_PAGAR
sVALOR_FORMATADO is string=NoSpace(NumToString(cyVALOR_PAGAR,"10,4fS"),sscAll)

sNOME is string=EDT_NOME
sTEXTO_LONGO_AUTOMATICO is string=[
RECEBE DE [%sNOME%]
O VALOR DE [%sVALOR_FORMATADO%] REAIS
OK
]

EDT_RESPOSTA=sTEXTO_LONGO_AUTOMATICO

=======================

// EXPLICANDO TEXTO LONGO MANUAL


sTEXTO_LONGO is string=[
RECEBE DE #sNOME#
O VALOR DE #sVALOR_FORMATADO# REAIS
OK
]

sTEXTO_LONGO=Replace(sTEXTO_LONGO,"#sNOME#",EDT_NOME)
sTEXTO_LONGO=Replace(sTEXTO_LONGO,"#sVALOR_FORMATADO#",EDT_VALOR_PAGAR)


EDT_RESPOSTA=sTEXTO_LONGO

=======================

// BTN VARIAVEL
// EXPLICANDO STRING CURRENCY
// EXPLICANDO TEXTO LONGO AUTOMATICO,MANUAL
// EXPLICANDO TEXTO LONGO COM XML

// EXPLICANCO XML STRING

sDIVISAO_NSU is string=[
<distNSU>
<ultNSU>[%EDT_ULTIMO_NSU%]</ultNSU>
</distNSU>
]
IF EDT_ULTIMO_NSU=0 OR EDT_ULTIMO_NSU="" THEN
sDIVISAO_NSU=""
END
sTEXTO_XML is string=[
<distDFeInt xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.01">
<tpAmb>1</tpAmb>
<CNPJ>[%EDT_CNPJ%]</CNPJ>
[%sDIVISAO_NSU%]
</distDFeInt>
]

EDT_RESPOSTA=sTEXTO_XML
//fMakeDir()
fSaveText("c:\TEMP\XML.XML",EDT_RESPOSTA)
ShellExecute("c:\TEMP\XML.XML")

=======================

// BTN VARIAVEL
// EXPLICANDO STRING CURRENCY
// EXPLICANDO TEXTO LONGO AUTOMATICO,MANUAL
// EXPLICANDO TEXTO LONGO COM XML

// EXPLICANCO XML STRING

sDIVISAO_NSU is string=[
<distNSU>
<ultNSU>[%EDT_ULTIMO_NSU%]</ultNSU>
</distNSU>
]
IF EDT_ULTIMO_NSU=0 OR EDT_ULTIMO_NSU="" THEN
sDIVISAO_NSU=""
END
sTEXTO_XML is string=[
<distDFeInt xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.01">
<tpAmb>1</tpAmb>
<CNPJ>[%EDT_CNPJ%]</CNPJ>
[%sDIVISAO_NSU%]
</distDFeInt>
]

EDT_RESPOSTA=sTEXTO_XML
//fMakeDir()
fSaveText("c:\TEMP\XML.XML",EDT_RESPOSTA)
ShellExecute("c:\TEMP\XML.XML")

=======================

// VARIAVEL BOOLEAN

bPROGRAMADOR is boolean=True
CBOX_PROGRAMADOR=bPROGRAMADOR
=======================

// OPERADORES

cyVALOR1 is currency=10
cyVALOR2 is currency=20
//SOMA
cyVALOR3 is currency=cyVALOR1+cyVALOR2
//ACRESCENTAR 1
cyVALOR3+=1
cyVALOR3++
cyVALOR3=cyVALOR3+1
//------DIMINUINDO
cyVALOR3-=1
cyVALOR3--
cyVALOR3=cyVALOR3-1
//------DIVIDINDO
cyVALOR3=cyVALOR3/10
//-MULTIPLICAR
cyVALOR3=cyVALOR3*4

=======================

// JUNTAR NOMES

sNOME is string="AMARILDO"
sSOBRENOME is string="DE MATOS"

EDT_RESPOSTA=sNOME+" "+sSOBRENOME

=======================

// PEGAR POSICAO , ESQUERDA,DIREITA , QUALQUER

sNOME is string="AMARILDO"
EDT_RESPOSTA+=Left(sNOME,3)+CR 
EDT_RESPOSTA+=Right(sNOME,3)+CR 
EDT_RESPOSTA+=sNOME[2 TO 3]


=======================

// VER SE CONTEM E PEGAR POSICAO

sNOME is string="AMARILDO DE MATOS"
nPosicao_final is int=Length(sNOME)

nPOSICAO is int=Position(sNOME,"DE")
EDT_RESPOSTA=nPOSICAO
EDT_RESPOSTA=sNOME[nPOSICAO TO nPosicao_final]

=======================

// VER SE CONTEM 

sNOME is string="AMARILDO DE MATOS"

IF Contains(sNOME,"MATOS")=True THEN
    Info("EXISTE")
ELSE
Info("NAO EXISTE")
 
END

=======================


// ARRAY

arrStringArray is array of strings 
arrInteiroarray is array of int 

Add(arrStringArray,"amarildo")
Add(arrStringArray,"cleiton")

Add(arrInteiroarray,2)
Add(arrInteiroarray,3)
Add(arrInteiroarray,5)

EDT_RESPOSTA=arrStringArray[1]+" "+arrStringArray[2]
EDT_RESPOSTA+=CR
EDT_RESPOSTA+=arrInteiroarray[1]+" "+arrInteiroarray[2]+" "+arrInteiroarray[3]



TEMA ESCURO





MUDAR AMBIENTE INGLES FRANCES 




TROCAR CODIGO INGLES PARA FRANCES OU AO CONTRARIO





aula 3410 - live ao vivo

v

sábado, 11 de setembro de 2021

CURSO PARA IMPLEMENTACAO MANIFESTACAO NOTAS



https://youtu.be/jyA5Os7o-FQ






Email para inscricao

amarildo.matos@gmail.com


=====================================================

12 Horas curso

Inicio Curso - Quando tiver Minimo 5 Inscritos Aulas Tercas,quintas,Sabado Das 20:00 as 22:00
=====================================================

Valor curso : 500

Descontos Especiais para Membros do Canal

Colaborador          - 15% - 425,00
Membro               - 35%  - 325,00
Patrocinador         - 60% - 200,00
Patrocinador Nivel 2 - 80% - 100

=====================================================

Como serao as aulas:
As aulas serao ao vivo, via /meet.jit.si
As aulas serao gravadas ao vivo no youtube, mas
no modo privado, em que somente cada aluno tera acesso a essas
aulas.

=====================================================

CURRICULO CURSO : AULA 1 . Explicar o projeto manifestacao Nota . Empresa - Certificado - Cadastrar . Explicar assinar como componente ou ate como wdl . Como fazer um componente ou wdl do projeto manifestacao . guia Dfe - Mostrar o projeto . Explicar Nsu Ultimo e Maximo Nsu . Cadastro de Relacao Resumo . Como sera criado as pastas do que sera baixado . Explicar Soap . Explicar Retorno Soap . Explicar Consumo Indevido AULA 2 . Explicar docZip . Como Descomplactar doczip . Resumo Nota . Retorno Eventos . Retorno Xml . Buscar Notas . Ciencia . confirmar Operacao . Desconhecimento Operacao . Operacao Nao realizada . Consulta Nota . Donwload Xml - como funciona . Mostrar Xml Baixado AULA 3 . Ler Xml . Como pegar as tags principais - exemplo Ide .. . Como pegar Itens Nota . Como pegar Duplicatas . Como pegar impostos AULA 4 . Como Linkar Produtos, com os produtos das notas AULA 5 . Como ver se tem Fornecedores e como cadastrar AULA 6 . Como fazer um executavel caso precise ( No caso de o token nao estiver no computador da transmissao ) Ajuda no seu projeto para implementar manifestacao Notas



sexta-feira, 10 de setembro de 2021

ao vivo 3409 - youtube sabado dia 11 09 2021

Video 3409 - PODCAST IX - 9 - com amigos Programadores Windev - Sabado 11/09/2021 as 15:00 
A Partir das 14 Horas sera passado o link do podcast para quem quizer participar ao vivo 

https://youtu.be/fmHL06i5GWo




quinta-feira, 9 de setembro de 2021

Curso Windev - Do dia 14/09 ate 02/10/2021 - Professor Amarildo Matos - Programador dos Pampas






Bom dia.. Galera

Curso windev comeca hoje
Com aula Bonus na aula Adicional ( Android com m10 Elgin )
e o Nosso amigo Claudemir fara 2 sorteio equipamento da Elgin na Aula 9
os Ganhadores poderam escolher entre LEITOR DE CODIGO DE BARRAS
ou IMPRESSORA DE CUPOM
Quer perder essa oportunidade, alem de fazer o curso, pode levar para casa
ainda um leitor ou impressora.
As aulas serao terca,quarta,quintas, das 20 as 22 , e aos sabados de manha
revisao das aulas da semana.
Alem de ensinar a parte do windev, tambem tera dicas webdev e mobile a 
pedidos dos alunos ja matriculados .
nesse blog, tem tudo o que precisa saber sobre curriculo do curso ,
valores.
As inscricoes se encerrao as 17 Horas.
Video de ontem falando sobre curso com convidados 
Resumo do video 

00:00:00 Somente a partir do
00:04:44 Inicio Realmente
00:06:47 Explicando como é ser membro do Canal Amarildo
00:13:33 Marcilon explicando como iniciar conceito webdev
00:15:00 Explicando sobre o sorteio que o claudemir ira fazer 
00:19:00 Marcio - Se identificou com windev , e com 50 dias, ja ganhando dinheiro
00:26:00 Pergunta se instala windev 64 ou 32 bits. recomendado 64
00:32:00 Mostrando que ta fazendo webdev, indices aulas



Email para inscricao

amarildo.matos@gmail.com


=====================================================

Clique Aqui e Seja Membro do Canal e tenha direito a consultorias com precos diferenciados

=====================================================

DIAS E HORARIOS DO CURSO


1 14/09 20 as 22  Terca
2 15/09          Quarta  
3 16/09          Quinta  
  18/09 Revisao 9 as 11 Sabado 
4 21/09          Terca  
5 22/09          Quarta 
6 23/09          Quinta 
  25/09 Revisao 9 as 11 Sabado 
7 26/09          Terca  
8 27/09          Quarta 
9 28/09          Quinta 
  02/10 Aula Bonus - uturo do mercado e Inovação e sorteio
----------
Serao 16 Horas de curso 
       6 Horas Revisao aos Sabados 
  22 Horas  Android com m10 Elgin
=====================================================

Valor Curso :  500 Reais 

Descontos Especiais para Membros do Canal

Colaborador          - 15% - 425,00
Membro                 - 35%  - 325,00
Patrocinador         - 60% - 200,00
Patrocinador Nivel 2 - 80% - 100

=====================================================

Como serao as aulas:
As aulas serao ao vivo, via /meet.jit.si
As aulas serao gravadas ao vivo no youtube, mas
no modo privado, em que somente cada aluno tera acesso a essas
aulas.

=====================================================

CURRICULO CURSO

Aula 1
Variaveis
Escopo das variaveis 
Operadores
Variaveis Strings 
Variaveis Arrays 

Aula 2 
Condicoes - If


video 3412 - Curso Windev 2 - 10 - Privado - 15-09-2021

Aula 3


Loop

Aula 4

Procedures / Procedures Parametros / Opcionais ou Obrigatorias / Procedures Internas 

Aula 5

Bancos de Dados - 
Hyperfile - Instalacao, configuracao
Projeto e analise - Criação
Fazer os links dos arquivos - relacionamento 
Rad 
Importando Arquivo Texto / Arquivo Produto

========================================

ANALISE -- A SER DESENVOLVIDA

VER NOME 
CLIENTE JOAO  EMP1  EMP2
     O CLIENTE, VAI TER NAS DUAS EMPRESAS 
 O PRODUTO , VAI TER NAS DUAS EMPRESA 
 O PEDIDO , SERA INDIVUAL POR EMPRESA 
ANALISE
EMPRESA
    ID_EMPRESA 
        CNPJ_CPF (BUSCAR AUTOMATICO DADOS)
NOME_EMPRESA 
CLIENTE                       LIGAR O CLIENTE COM O PEDIDO , ELE VAI COLOCAR SOZINHO
    ID CLIENTE
        CNPJ_CPF (BUSCAR AUTOMATICO DADOS) 
                           (MASCARA)
                           (COMO SABER SE É CPF OU CNPJ)
NOME
EMAIL 
        ENDERECO_CEP
ENDERECO_RUA
        ENDERECO_BAIRRO
ENDERECO_CIDADE
ENDERECO_UF 
    DATA_NASCIMENTO
PEDIDO                        LIGAR O PEDIDO COM ITENS 
    ID_PEDIDO
    ID_EMPRESA ( MANUAL ) 
      .. AUTOMATICO
    NUMERO_PEDIDO_EMPRESA 
    DATA_EMISSAO 
VALOR_TOTAL  -> AUTOMATICO  
OBSERVACAO 

PRODUTO 
    ID PRODUTO 
    NOME 
VALOR VENDA 

PEDIDO_ITENS 
ID_PEDIDOS_ITENS 
    .. AUTOMATIC O
    .. AUTOMATICO - TAMBEM ID PRODUTO 
QUANTIDADE
PRECO VENDA 
VALOR TOTAL 
----------------
==================================


video 3415 - Curso Windev 5 - 10 - Privado - 22-09-2021

Aula 6

Inicio Projeto
Relatorios
Tabela
Grafico 

video 3416 - Curso Windev 6 - 10 - Privado - 23-09-2021

Aula 7

relatorios 


Aula 8

Estatistica - Pivo 
1 CLEITON - BUFFERR.
2.. VARIAVEL DENTGO DO EVENTO
5. array Mais aulas
rever if - in
Ancoras

Assuntos que sera ainda abordados ate o final do curso 

Transformar Menu em Ribbon
Mascaras, telefone,cep,cnpj 
Criar backup no sistema
Alterei a estrutura, como converter automatico no cliente
Adicionar , Modificar e Excluir Explicando codigo
Pesquisar 
Como criar sistema Exe com wdl ou componente 
Criar login - Manual com usuarios 
Tenho de converter meu sistema de outra linguaguem - como devo fazer? 
Scm

video 3418 - Curso Windev 8 - 10 - Privado - 29-09-2021

Aula 9
Como criar sistema Exe com wdl ou componente 
Criar login - Manual com usuarios 
Scm

video 3419 - Curso Windev 9 - 10 - Privado - 30-09-2021

Aula 10
Aula bonus
Futuro do mercado e Inovação" 
e sorteio

video 3419 - Curso Windev 10 - 10 - Claudemir - Inovação, Futuro do Mercado e IOT - Sorteio - 01 10 2021




para inscricao 

amarildo.matos@gmail.com

--------------











Teste

Teste
teste