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





Nenhum comentário:

Postar um comentário

Teste

Teste
teste