1. Fórum
  3. Protheus/Microsiga/Totvs
  5. AdvPL (Advanced Protheus Language)
  7. Dúvidas Gerais
  9. Ajuda na criação de janelas
× Linguagem de Programação ADVPL

Perguntas Ajuda na criação de janelas

Mais
10 anos 3 meses atrás #24408 por LeonmFS
Ajuda na criação de janelas foi criado por LeonmFS
Bom dia a todos.

Eu estou começando agora a mexer com programação ADVPL, e o que sei é muito básico, muito mesmo e eu preciso da ajuda de vocês, da boa alma que poderá me ajudar.
Eu "programo" em C, e estou começando com Java, tenho um lógica boa, porem no ADVPL meu problema é 100% a syntax do programa. Indo ao ponto. Eu gostaria que me dessem um exemplo simples, bem simples de um programa que abra uma janela, pega valores do usuário e exibe um resultado. Pode ser por exemplo um programa que abra um janela e peça nota 1, 2 e 3. O usuário digita as notas e aperta o botão "Calcular Média" e em um campo ("Média") exibe o resultado.
Se o programa for da forma mais simples, não precisa de muita explicação, eu vou mexendo e aprendendo. Estou tendo muito trabalho em receber valores do usuário, tenho uma noção de como seja, mas não consigo por em pratica.
Então a quem puder disponibilizar um código desse pra mim, desde de já muito obrigado.

Obrigado a todos o/

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 3 meses atrás - 10 anos 3 meses atrás #24412 por Darkbeo
Respondido por Darkbeo no tópico Ajuda na criação de janelas
Boa Tarde, fiz uma tela bem simples, mais simples mesmo...
User Function NOTAS() // U_NOTAS()
Local cGNota1 := 0
Local cGNota2 := 0
Local cGNota3 := 0
Local cGMedia := 0

SetPrvt("oDlg","oSNota1","oGNota1","oSNota2","oGNota2","oSNota3","oGNota3","oBtn1","oSMedia","oGMedia")

  DEFINE MSDIALOG oDlg TITLE "Calcular Média" FROM 000, 000  TO 080, 460 PIXEL

    @ 005, 002 SAY    oSNota1 PROMPT "1º Nota:"                  SIZE 025, 007 OF oDlg COLOR CLR_BLUE  PIXEL
    @ 003, 030 GET    oGNota1 VAR    cGNota1    PICTURE "@E 999" SIZE 060, 010 OF oDlg COLOR CLR_GREEN PIXEL
    @ 016, 002 SAY    oSNota2 PROMPT "2º Nota:"                  SIZE 025, 007 OF oDlg COLOR CLR_BLUE  PIXEL
    @ 015, 030 GET    oGNota2 VAR    cGNota2    PICTURE "@E 999" SIZE 060, 010 OF oDlg COLOR CLR_GREEN PIXEL
    @ 028, 002 SAY    oSNota3 PROMPT "3º Nota:"                  SIZE 025, 007 OF oDlg COLOR CLR_BLUE  PIXEL
    @ 026, 030 GET    oGNota3 VAR    cGNota3    PICTURE "@E 999" SIZE 060, 010 OF oDlg COLOR CLR_GREEN PIXEL
    @ 013, 092 BUTTON oBtn1   PROMPT "Calculo"                   SIZE 037, 012 OF oDlg PIXEL ACTION { cGMedia := (( cGNota1 + cGNota2 + cGNota3 ) / 3) }
    @ 016, 137 SAY    oMedia  PROMPT "Média"                     SIZE 025, 007 OF oDlg COLOR CLR_BLUE  PIXEL
    @ 015, 165 GET    oGMedia VAR    cGMedia    PICTURE "@E 999" SIZE 060, 010 OF oDlg COLOR CLR_GREEN PIXEL

  ACTIVATE MSDIALOG oDlg CENTERED

Return

Obs: Não coloquei comentário de proposito para você ver se consegue ler e entender o que cada linha faz.
Ultima edição: 10 anos 3 meses atrás por Darkbeo.

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 3 meses atrás #24426 por LeonmFS
Respondido por LeonmFS no tópico Ajuda na criação de janelas
Muuuito obrigado Roberto, me ajudou muito mesmo.
E eu acho que entendi bem como funciona.

Agora estou indo para meu proximo passo, estou pesquisando aqui como abrir arquivo de .txt e fazer pesquisa, escrever ou alterar :)

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 3 meses atrás #24427 por kanaamlrr
Respondido por kanaamlrr no tópico Ajuda na criação de janelas
Leonardo,
Dê uma olhada nessa página: tdn.totvs.com/pages/viewpage.action?pageId=6063692

Veja os comando FOpen, FSeek, FRead e FWrite.
Já deve te ajudar a começar a trabalhar com o seu arquivo txt.

Ou então uma outra possibilidade é a familia de comandos FT_ que está na mesma página.
Abraço!!

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 3 meses atrás #24429 por AndersonBR
Respondido por AndersonBR no tópico Ajuda na criação de janelas
Leonardo,

seguinte se quiser me adicionar no skype to dando uma força pra um rapaz e posso te ajudar também.

anderson.barbosa.btu

[].s

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 2 meses atrás #24695 por LeonmFS
Respondido por LeonmFS no tópico Ajuda na criação de janelas
Muito obrigado gente, me ajudou bastante. Não pude vir aqui agradecer antes, estava bem ocupado, mas eu tive a oportunidade de ler, e já foi de grande ajuda.

Obrigado Kanaam, o link foi muito util, e Anderson, eu vou te adicionar sim, fico muito agradecido pela ajuda.

Gente, eu não sei como funciona aqui exatamente, não sei se devo criar outros tópicos, ou se posso perguntar nesse mesmo, de qualquer forma me avisem se eu estiver indo contra as regras porque eu entrei aqui as pressas na empresa, não estou muito a par das regras infelizmente. Porem tenho outra duvida, como criar uma janela com uma imagem.
(Deve ser uma imagem com um botão embaixo, porem a imagem não abre, provavelmente a dimensão está completamente errada, deveria aparecer, nem que um pedaço da imagem, se alguem puder me ajudar, agradeço. Segue o teco do código)


@ 000,000 To 600,950 Dialog oDlgChar Title OemToAnsi("START")

@ 000, 000 BITMAP oBitmap1 SIZE 200, 80 OF oDlgChar FILENAME "C:\Projeto ADVPL\Projeto Start\Leon.jpeg" NOBORDER PIXEL
@ 200, 350 BUTTON oBtnChar1 PROMPT "Teste" SIZE 040,012 OF oDlgChar PIXEL ACTION { U_Char2() }

Por favor Acessar ou Registrar para participar da conversa.

  1. Fórum
  3. Protheus/Microsiga/Totvs
  5. AdvPL (Advanced Protheus Language)
  7. Dúvidas Gerais
  9. Ajuda na criação de janelas
Tempo para a criação da página:0.123 segundos
Joomla templates by a4joomla