PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

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
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)
STC_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"
STC_Profissional = ""
STC_Cliente..Visible = True
STC_Profissional..Visible = False
LooperAdd(LOOP_SMS,STC_Cliente+TAB+"")

ELSE

// INFO(2)
STC_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"
STC_Cliente = ""
STC_Cliente..Visible = False
STC_Profissional..Visible = True

LooperAdd(LOOP_SMS,TAB+""+STC_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
STC_Profissional= edt_Texto

STC_Cliente = ""
STC_Cliente..Visible = False
STC_Profissional..Visible = True

LooperAdd(LOOP_SMS,TAB+""+STC_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
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/