Nuevos Comandos
Picture"@^
Picture "@*c
Spinner
El programa Ejemplo
close all windowsdeac windo allclear set talk off
@2,5 say"Aqui pones la ubicacion de la imagen"bitmap size 30,60 isome @2,105 say "Aqui pones la ubicacion de la imagen"bitmap size 30,60 isome @8,70 say "II TECNICO EN" font "tahoma",20
@10,69 say "COMPUTACION" font "tahoma",20
*variable
vcod=0
vnom_a=space(40)
*peticion
@20,50 say"Codigo"get vcod pict "99999"
@22,50 say"Nombre"get vnom_a
@24,50 say"Fecha de nacimiento:"
@26,50 say"Dia"*vcariablevdia=0
@27,50 get vdia pict"@^ 1;2;3;4;5;6;7;8;9;10;11;12;13;14;15;16;17;18;19;20;21;22;23;24;25;26;27;28;29;30;31" size 1,10
@26,70 say "Mes"
*Variable
vmes=space(20)
@27,70 get vmes pict "@^ Enero;Febrero;Marzo;Abril;Mayo;Junio;Julio;Agosti;Septiembre;Octubre;Novienbre;Dciembre" size 1,22
@26,105 say "Año"
*variables
vaño=0
@27,105 get vaño spinner 1,1960,2007
*variable
so=0
@30,50 get so pict"@*c Soltero"
*Variable
ca=0
@30,70 get ca pict "@*c Casado"
*variable
vul=0
@30,105 get vul pict "@*c Union Libre"
read
