28 de mai de 2011

Desenvolvimento de Software 1, aula 17

Aula 17
23/9/2003

Programa de Consulta

Tela:


* consulta.prg


clear
@ 0,0 to 24,79 dobule
@ 2,35 say “CONSULTA”
@ 10,10 say “Nome”
@ 12,10 say “Salário”
@ 14,10 say “Data de nascimento”

use AGENDA

do while .t.
@ 10,16 say NOME
@ 12,19 say SALARIO pict “999999.99”
@ 14,30 say DATANAS

@ 18,10 prompt “|<”
@ 18,16 prompt “<”
@ 18,22 prompt “>”
@ 18,29 prompt “>|”
@ 18,35 prompt “Sair”

WOP = 5

menu to WOP
do case
case WOP = 1
go top
case WOP = 2
skip -1
case WOP = 3
skip
case WOP = 4
go bottom
case WOP = 5
exit
endcase
enddo


Vocabulário:
  • go: vai
  • top: topo, início
  • bottom: fim, último
  • skip: pular
  • skip -1 voltar 1
  • skip: avançar

Nenhum comentário: