quarta-feira, 2 de junho de 2021

DICAS 3346 - WINDEV WEBDEV MOBILE - Integrar Componente web externo Camera - Curso Webdev 90-Camera 4




https://youtu.be/Q4oi_sDWcCE




Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 


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


Esse Video vai estrear as 10:00 do dia 09/06/2021

DICAS 3346 - WINDEV WEBDEV MOBILE - Integrar Componente web externo Camera -  Curso Webdev 90





ASSUNTOS

Integrar Componente web externo Camera

Aula Baseada no video abaixo , tempo ate 6 Minutos 



1 Vamos Criar um projeto chamado 
  webdev_integrar_componente_web_Camera
2 Criar Pagina chamado 
  integrar_web_camera  
3 criar uma imagen
4 criar um botao para tirar foto 
5 criar um botao para enviar foto
6 vamos criar um botao web componente
   Mudar ancoragem componente
        Largura Fixa 
        Mostrando Html , css, javascript 
7 Vou copiar pagina o codigo body que me interessa e vou colar no html
       vou acrescentar no html 
              width="312" height="312"
8 Vamos pegar o codigo javascript 
9 Link da pagina que sera pego o componente 
10 No componente, em html colocar o seguinte:
  <video autoplay="true" width="312" height="312" id="videoElement"></video>
  
11 No componente , javascript colocar o seguinte:

var video = document.querySelector("#videoElement");

if (navigator.mediaDevices.getUserMedia) {
navigator.mediaDevices.getUserMedia({ video: true })
.then(function (stream) {
video.srcObject = stream;
})
.catch(function (err0r) {
console.log("Something went wrong!");
});
}

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


---------------- INDICE WEBDEV

DICAS 3067 -WEBDEV TUTORIAL 1-Licao 1.1-14-09-2020 11hrs-DESCUBRA WEBDEV
DICAS 3068 -WEBDEV TUTORIAL 1-Licao 1.2-14-09-2020 15hrs-Web development and WEBDEV - PARTE A
DICAS 3069 -WEBDEV TUTORIAL 3-Licao 1.2-14-09-2020 16hrs-Web development and WEBDEV - PARTE B






ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html












Postado por às Nenhum comentário:
Marcadores: , ,

segunda-feira, 31 de maio de 2021

DICAS 3345 - WINDEV WEBDEV MOBILE - Como Fazer tela Mdi - Curso Mdi 2



https://youtu.be/VeBSVmXatSE






---------------- Indice Curso Mdi


Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 


Seja Membro do Canal


Esse Video vai estrear as 10:00 do dia 08/06/2021

DICAS 3345 - WINDEV WEBDEV MOBILE - Como Fazer tela Mdi - Curso Mdi 2


Fazer exemplo no pdf_windev_26_Amarildo 


ASSUNTOS

Vamos entrar no exemplo no pdf_windev_26_Amarildo 
Vamos entrar na janela menu 
Vamos entrar nas propriedades da janela 
    - Gui - Na largura coloquei 1086 e Altera 725 
Agora no Menu ribbon , botao direito , gui -  Largura 1084 e altuura 86
Agora no botao de cada menu , vamos entrar gui, e alterar largura para 60 e altura 52
Agora detalhe bem importante
botao direito description, Detailhs, Mdi parent 
Baixar para baixo para enquadrar a janela mdi 
Agora vamos entrar em cada janela, details, mdi child, e vamos marcar Indepdendt hfsql context 
Vamos agora entrar no menu, onde chama as telas 

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

//open(WIN_Pdf)
// vamos perguntar se a janela ainda nao esta aberta 

IF WinStatus(WIN_Pdf)=NotFound THEN
OpenChild(WIN_Pdf)
ELSE
Restore(WIN_Pdf)
END





ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html








Postado por às Nenhum comentário:
Marcadores: ,

DICAS 3344 - WINDEV WEBDEV MOBILE - ArraySeek - FOR EACH- Consultar um array com varias colunas e ver seus dados - CURSO ARRAY 26




https://youtu.be/1xL6Q49gs6A


E:\_exemplos_windev_web_mob\windev_amarildo_aula\array_exemplo_windev_Amarildo

DICAS_3344_WINDEV_WEBDEV_MOBILE_ArraySeek_FOR_EACH_Consultar_um_array_com_varias_colunas_e_ver_seus_dados_CURSO_ARRAY_26

Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 
email : amarildo.matos@gmail.com


Seja Membro do Canal

Esse Video vai estrear as 10:00 do dia 07/06/2021

DICAS 3344 - WINDEV WEBDEV MOBILE - ArraySeek - FOR EACH- Consultar um array com varias colunas e ver seus dados  - CURSO ARRAY 26


https://help.windev.com/en-US/?1510016
https://help.windev.com/?3075002&lang=en-US&productversion=xxF260100j

E:\_exemplos_windev_web_mob\windev_amarildo_aula\array_exemplo_windev_Amarildo

ASSUNTOS
ArraySeek - FOR EACH- Consultar um array com varias colunas e ver seus dados 
Vamos criar uma estrutura cliente , com codigo,nome e data 
Vamos criar um array em cima da estrutura 
Vamos preencher manualmente os dados 
Vamos crirar uma listBox para mostrar os dados do array 
Vamos criar uma data para procura 
Vamos fazer procura por ArraySeek
Vamos fazer procura por for each 
Vamos mostrar os dados 


--------------- Codigo

// Global declarations
STCliente_estrutura is Structure // Criando uma Estrutura - Chamada cliente
nCodigo is int
sNome is string   
dAta_Dia is Date  
END
gstCliente_dados is STCliente_estrutura  // cliente cliente dados e cliente array
garrCliente_array is array of STCliente_estrutura 
informa_dados()
// vamos limpar o listbox e preencher com os dados do array 
LIST_array.DeleteAll()
FOR EACH ELEMENT stLinha OF garrCliente_array
LIST_array.Add(stLinha.nCodigo+"|"+stLinha.sNome+"|"+stLinha.dAta_Dia)
END


INTERNAL PROCEDURE informa_dados()
gstCliente_dados.nCodigo = 1 // preenchendo dados - primeiro registro
gstCliente_dados.sNome = "Amarildo"
gstCliente_dados.dAta_Dia = Today()  
ArrayAdd(garrCliente_array,gstCliente_dados)
gstCliente_dados.nCodigo = 2 // preenchendo dados - segundo registro
gstCliente_dados.sNome = "Michele"
gstCliente_dados.dAta_Dia = Today()  
ArrayAdd(garrCliente_array,gstCliente_dados)
gstCliente_dados.nCodigo = 3 // preenchendo dados - terceiro registro
gstCliente_dados.sNome = "Matos"
gdAta_gera is Date=Today()
gdAta_gera.Day+=1
gstCliente_dados.dAta_Dia = gdAta_gera
ArrayAdd(garrCliente_array,gstCliente_dados)
END
END

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

// botao consulta array com arrayseek
dAta is Date=EDT_data_procura
nRetorno is int=ArraySeek(garrCliente_array,asLinear,"dAta_Dia",dAta)
IF nRetorno=-1 THEN
Info("nao encontrado")
ELSE 
gstCliente_dados=garrCliente_array[nRetorno]
Info(gstCliente_dados.nCodigo+CR+gstCliente_dados.sNome+CR+gstCliente_dados.dAta_Dia+CR)
END
--------
//  consulta array com for each 
dAta is Date=EDT_data_procura
FOR EACH ELEMENT stLinha OF garrCliente_array where stLinha.dAta_Dia=dAta 

    Info(stLinha.nCodigo+CR+stLinha.sNome+CR+stLinha.dAta_Dia)
END


------------------ INDICE DO CURSO DE ARRAY e ESTRUTURA


WinDev - Array - 001/... Adiciona/Classifica Ordem/Mostra
WinDev - Array - 002/... Quantas Ocorrencias Array
WinDev - Array - 003/... ArrayDeleteLine - Eliminha uma Linha do Array
WinDev - Array - 004/... ArrayToString - Leva Array Para String
WinDev - Array - 005/... Seek - Procura Por Valor
WinDev - Array - 006/... ArrayDeleteDuplicate - Elimina itens duplos
WinDev - Array - 007/... Delete - Elimina Uma Linha
WinDev - Array - 008/... DeleteAll - Limpa Array
WinDev - Array - 009/... SwapLine - Mover de Lugar
WinDev - Array - 010/... Sum - Somar Array
ARRAYREVERSE - ARRAY - 011/ ... AULA 1185 
ARRAY INICIO - ARRAY 012 / AULA 1229

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

Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 


Seja Membro do Canal


Esse Video vai estrear as 10:00 do dia 07/06/2021

DICAS 3344 - WINDEV WEBDEV MOBILE - ArraySeek - FOR EACH- Consultar um array com varias colunas e ver seus dados  - CURSO ARRAY 26




ASSUNTOS

ArraySeek - FOR EACH- Consultar um array com varias colunas e ver seus dados 
Vamos criar uma estrutura cliente , com codigo,nome e data 
Vamos criar um array em cima da estrutura 
Vamos preencher manualmente os dados 
Vamos crirar uma listBox para mostrar os dados do array 
Vamos criar uma data para procura 
Vamos fazer procura por ArraySeek
Vamos fazer procura por for each 
Vamos mostrar os dados 

------------------------ Codigo 


// Global declarations
cliente_estrutura is Structure  // Criando uma Estrutura - Chamada cliente
 codigo is int
 nome is string
 data_dia is Date 
END
stCliente_dados is cliente_estrutura // cliente cliente dados e cliente array
cliente_array is array of cliente_estrutura
stCliente_dados.codigo = 1 // preenchendo dados - primeiro registro
stCliente_dados.nome = "amarildo"
stCliente_dados.data_dia = Today()
ArrayAdd(cliente_array,stCliente_dados)
stCliente_dados.codigo = 2 // preenchendo dados - segundo registro
stCliente_dados.nome = "joao"
stCliente_dados.data_dia = Today()
ArrayAdd(cliente_array,stCliente_dados)
stCliente_dados.codigo = 3 // preenchendo dados - segundo registro
stCliente_dados.nome = "jxxxxoao"
gdAta_gera is Date=Today()
gdAta_gera.Day+=1
stCliente_dados.data_dia = gdAta_gera
ArrayAdd(cliente_array,stCliente_dados)
LIST_conteudo_array.DeleteAll()
FOR EACH ELEMENT stLinha OF cliente_array
 LIST_conteudo_array.Add(stLinha.codigo+"|"+stLinha.nome+"|"+stLinha.data_dia+"|")
END


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

// botao consulta array com arrayseek

data is Date = EDT_data_procura
retorno is int = ArraySeek(cliente_array,asLinear,"data_dia",data)
IF retorno=-1 THEN
 Info("Nao encontrato")
ELSE
 stCliente_dados=cliente_array[retorno]
 Info(stCliente_dados.codigo+CR+stCliente_dados.nome+CR+stCliente_dados.data_dia+CR)
END


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

//  consulta array com for each 
data is Date = EDT_data_procura
FOR EACH ELEMENT stLinha OF cliente_array
 IF stLinha.data_dia=data THEN
     Info(stLinha.codigo+CR+stLinha.nome+CR+stLinha.data_dia+CR)
     BREAK
    END     
END






ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html





Postado por às Nenhum comentário:
Marcadores:

sábado, 29 de maio de 2021

DICAS 3343 - WINDEV WEBDEV MOBILE - JSProperty - Remover historico dos campos via programação - Dica paulo Viana - CURSO WEBDEV 89





https://youtu.be/xfi-BCjwCSw



Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 


Seja Membro do Canal


Esse Video vai estrear as 10:00 do dia 04/06/2021

DICAS 3343 - WINDEV WEBDEV MOBILE - JSProperty - Remover historico dos campos via programação - Dica paulo Viana - CURSO WEBDEV 89



Fonte no repositorio, endereco abaixo




ASSUNTOS

JSProperty - Remover historico dos campos via programação - Dica paulo Viana


//limpar historicos  


//------------------------------------ Codigo

// global decalration of page_historico_Edicao_elimina (server)
// gsCampos is string=glo_campos_form(MyPage..Name)

gscampos is string=glo_campos_form(MyPage..Name)

//------------------------------------

// Load Page_Pagina_Normal (onload browser event)
//FOR EACH STRING sResultado IN gsCampos SEPARATED BY CR
// JSProperty(sResultado,"autocomplete") ="off"
//END

FOR EACH STRING sResultado IN gscampos SEPARATED BY CR 
Info(sResultado)
JSProperty(sResultado,"autocomplete")="off"
END
//----------------------------

// Global procedure server - nas Procedures serverprocedures globais
//PROCEDURE glo_campos_form(recebe_nome_pagina)
sRetorno is string
controles is string
i is 8-byte int = 1
scampo is string
controles = EnumControl(recebe_nome_pagina,i)
WHILE controles <> ""
IF {controles, indControl}..Type IN (typPager,typPopup,typTab,typCell,typCellPageLayout) THEN 
scampo=glo_campos_form(controles)
IF scampo <> "" THEN
IF sRetorno <> "" THEN
sRetorno+=CR
END
sRetorno+=scampo
END
ELSE
IF  {controles, indControl}..Type = typText THEN
IF sRetorno <> "" THEN
sRetorno+=CR
END
sRetorno+={controles}..Alias
END
END
i ++
controles = EnumControl(recebe_nome_pagina,i)
END
RESULT(sRetorno)

---------------- INDICE WEBDEV

DICAS 3067 -WEBDEV TUTORIAL 1-Licao 1.1-14-09-2020 11hrs-DESCUBRA WEBDEV
DICAS 3068 -WEBDEV TUTORIAL 1-Licao 1.2-14-09-2020 15hrs-Web development and WEBDEV - PARTE A
DICAS 3069 -WEBDEV TUTORIAL 3-Licao 1.2-14-09-2020 16hrs-Web development and WEBDEV - PARTE B


PlayList WebDev tutorial Amarildo Webdev
Playlist Windev Tutorial Amarildo Windev
PlayList Windev Mobile 
Amarildo
Donwloads Windev
Windev
WxSolucoes
Matos Informatica
Repositorio Windev
Inscricao Evento Pcsof
Site forum Google 
Video sobre 3 Mil Videos Windev 
Video sobre Alfaserver servidor 





ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html




Postado por às Nenhum comentário:
Marcadores: ,
Assinar: Postagens (Atom)

Teste

Teste
teste