GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEV
,
WEBDEV
e
WINDEV Mobile
Inicio
|
Mensagens recentes
|
Conecte-se...
|
Disconnect
|
Português
Inicio
→
WINDEV 25
→
Princípios de como criar um Chat (Bate Papo)
Princípios de como criar um Chat (Bate Papo)
Iniciado por BOLLER, jan., 02 2020 6:42 PM - 1 resposta
Conecte-se…
BOLLER
#1
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em janeiro, 02 2020 - 6:42 PM
Princípios de como criar um Chat (Bate Papo)
1 - crie uma tabela com os campos Mensagem do Cliente e Mensagem do Funcionário
2 - cire uma tela
3 - Coloque um Looper com 2 edt nas cores verde e amarelo
Vai ficar assim:
4 - Configure o Looper Assim:
5 - Coloque na abertura da janela esse codigo
//INIT OPEN WINDOW
x
is int
=
0
LOOP
(
100
)
x
+
+
IF Modulo
(x,
2
) =
0
// INFO(1)
ST
C_Cliente
=
x
+
" Adriano Jose Boller ssssssss sssssss sssssssssss sssssssssssss sssssssssssss ssssssss Adriano Jose Boller ssssssss sssssss sssssssssss sssssssssssss sssssssssssss ssssssssAdriano Jose Boller ssssssss sssssss sssssssssss sssssssssssss sssssssssssss ssssssssAdriano Jose Boller ssssssss sssssss sssssssssss sssssssssssss sssssssssssss ssssssssAdriano Jose Boller ssssssss sssssss sssssssssss sssssssssssss sssssssssssss ssssssssAdriano Jose Boller ssssssss sssssss sssssssssss sssssssssssss sssssssssssss ssssssss"
ST
C_Profissional
=
""
ST
C_Cliente
..
Visible
=
True
ST
C_Profissional
..
Visible
=
False
LooperAdd
(
LOOP_SMS
,
ST
C_Cliente
+
TAB
+
""
)
ELSE
// INFO(2)
ST
C_Profissional
=
x
+
" JULIANA BOLLER YYYYYYYY YYYYYYYY YYYYYYYY YYYYYYYY YYYYYYYY YYYYYYYY YYYYYYYY YYYYYYYY ssssssss sssssss sssssssssss sssssssssssss sssssssssssss ssssssss Adriano Jose Boller ssssssss sssssss sssssssssss sssssssssssss sssssssssssss ssssssssAdriano Jose Boller ssssssss sssssss sssssssssss sssssssssssss sssssssssssss ssssssssAdriano Jose Boller ssssssss sssssss sssssssssss sssssssssssss sssssssssssss ssssssssAdriano Jose Boller ssssssss sssssss sssssssssss sssssssssssss sssssssssssss ssssssssAdriano Jose Boller ssssssss sssssss sssssssssss sssssssssssss sssssssssssss ssssssss"
ST
C_Cliente
=
""
ST
C_Cliente
..
Visible
=
False
ST
C_Profissional
..
Visible
=
True
LooperAdd
(
LOOP_SMS
,
TAB
+
""
+
ST
C_Profissional
)
END
END
LooperDisplay
(
LOOP_SMS
,
taInit
)
SetFocus
(
LOOP_SMS
)
SendKey
(
"^{END}"
)
6- Coloque no Looper esse código no DISPLAYING A ROW OF LOOP_SMS
//EMBED CODE LOOPER
// DISPLAYING A ROW OF LOOP_SMS
IF
LOOP_SMS
[
LOOP_SMS
]
.
ATT_Cliente
<
>
""
THEN
LOOP_SMS
[
LOOP_SMS
]
.
STC_Cliente
..
Visible
=
True
LOOP_SMS
[
LOOP_SMS
]
.
STC_Profissional
..
Visible
=
False
ELSE IF
LOOP_SMS
[
LOOP_SMS
]
.
ATT_Prof
<
>
""
THEN
LOOP_SMS
[
LOOP_SMS
]
.
STC_Cliente
..
Visible
=
False
LOOP_SMS
[
LOOP_SMS
]
.
STC_Profissional
..
Visible
=
True
END
Resultado
No botao pode por um texto padrão de resposta e no final esse código
//CODIGO DO BOTAO ENVIA
ST
C_Profissional
=
edt_Texto
ST
C_Cliente
=
""
ST
C_Cliente
..
Visible
=
False
ST
C_Profissional
..
Visible
=
True
LooperAdd
(
LOOP_SMS
,
TAB
+
""
+
ST
C_Profissional
)
LooperDisplay
(
LOOP_SMS
,
taInit
)
SetFocus
(
LOOP_SMS
)
SendKey
(
"^{END}"
)
UMA THREAD PARA FICAR ATUALIZANDO A TELA PODE SER INTERESSANTE
Bons estudos!
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Mensagem modificada, janeiro, 02 2020 - 9:36 PM
Denunciar
0
0
BOLLER
#2
Membro registado
3.651 mensagems
Popularité : +175 (223 votes)
Publicado em janeiro, 03 2020 - 6:36 PM
Para ficar sem piscadeira na tela mude as ultimas 3 linhas
LooperDisplay
(
LOOP_SMS
,
taInit
)
SetFocus
(
LOOP_SMS
)
LooperPosition
(
LOOP_SMS
,
LOOP_SMS
..
count
)
//vai posicionar na ultima linha do looper evitando piscadeira da tela
SetFocus
(
Edt_Mensagem
)
--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Denunciar
0
0
→ Voltar para WINDEV 25
WINDEV 25
Français
English
Español
Portuguesa
Fermer cette fenêtre
Tipo de Pesquisa
Apenas tópicos
Todas as mensagens
Período de pesquisa
Qualquer momento
Última hora
Últimas 24 horas
Semana passada
Mês passado
Ano passado
Cancelar
Pré-visualização da sua mensagem
Adicionar imagem
Importar uma imagem de uma URL
Enviar uma imagem a partir do seu disco
Deixe um ficheiro ou clique em "Procurar ..."
ou
Cancelar
0%
WLanguage
SQL
XML, HTML
JAVA, Javascript
Texto