|
//===
nome do script: entrada =================================
// controle um teclado numérico, com apenas uma imagem
//-------------------------------------------------------------
//- coloca a imagem na tela (as coordenadas x,y não importam)
link: crd,50,50,200,250,teclado.gif,$entrada&Ptx=5&Pty=6
//- calcula a posição relativa da clicada
reg: 5,50
reg: 6,50
reg* 6,4
reg+ 5,#6
reg- 5,4
//- verifica qual "tecla" foi pressionada
if= 5,0,reg$,7,7
if= 5,1,reg$,7,8
if= 5,2,reg$,7,9
if= 5,3,reg=,7,
if= 5,4,reg$,7,4
if= 5,5,reg$,7,5
if= 5,6,reg$,7,6
if= 5,7,reg=,7,~
if= 5,8,reg$,7,1
if= 5,9,reg$,7,2
if= 5,10,reg$,7,3
if= 5,11,goto,Lp1
if= 5,12,reg$,7,0
if= 5,13,reg$,7,0
if= 5,14,reg@,7,1
if= 5,15,goto,Lp1
//- mostra o resultado no visor
link: reg,60,61,178,28,5,7,Biu000000
fim
:Lp1
link: txt,60,61,178,28,5,PROCESSANDO,Biu000000
fim |