HonradosHP
¿Quieres reaccionar a este mensaje? Regístrate en el foro con unos pocos clics o inicia sesión para continuar.

Usar toda la pantalla de la Hp 50g para mostrar etiquetas en DoInputForm

3 participantes

Ir abajo

Usar toda la pantalla de la Hp 50g para mostrar etiquetas en DoInputForm Empty Usar toda la pantalla de la Hp 50g para mostrar etiquetas en DoInputForm

Mensaje  Julio Caballero Vie Jul 30, 2010 9:36 pm

Estoy haciendo un formulario de entrada con el comando DoInputForm y las etiquetas sólo puedo mostrarlas hasta la fila 46 de la pantalla. Y no puedo usar las filas restantes (desde la 47 hasta la 64) para mostrar etiquetas.
He podido hacerlo con ^IfMain, pero con DoInputForm no.
¿Hay alguna manera de lograrlo con DoInputForm?
Julio Caballero
Julio Caballero
Junior HP
Junior HP

Cantidad de envíos : 39
Localización : Perú
Calculadora : HP 50g
ROM : 2.09

Volver arriba Ir abajo

Usar toda la pantalla de la Hp 50g para mostrar etiquetas en DoInputForm Empty Usando toda la pantalla para mostrar etiquetas en DoInputForm

Mensaje  carloshp50 Vie Sep 03, 2010 10:54 pm

Un formulario de entrada con los 6 tipos de campos en DoInputForm.
Usando toda la pantalla para mostrar etiquetas.


En este ejemplo se muestra un formulario de entrada con los seis tipos de campos disponibles en DoInputForm:
- Texto
- Choose
- Filer
- ComboChoose
- ComboFiler
- Check


Desgraciadamente, en DoInputForm no está disponible toda la pantalla para mostrar etiquetas (sólo hasta la fila 46). Sin embargo en este ejemplo, podemos vencer este obstáculo usando el message handler número 5 para cambiar los bints que corresponden a la altura de la pantalla de las etiquetas.

Código:
ASSEMBLE
  CON(1) 8 * Tell parser 'Non algebraic'
RPL
xNAME DoInp6Tipos ( -> ob1...obn T // F )
:: CK0     ( ) ( No se requieren argumentos )

" Texto:"  0 10
"Choose:"  0 19
" Filer:"  0 28
"ComboC:"  0 37
"ComboF:"  0 46
"Check"   13 55

* Campo #1: Es un campo TEXTO
'DROPFALSE              ( MessageHandler )
30 8 101 9              ( Posición y tamaño )
BINT1                   ( TipoDeCampo: #1=Texto )
{ BINT0 BINT1 }         ( ObjetosPermitidos: Reales y complejos )
BINT4                   ( Decompile: #4= formato numérico estándar )
"Ayuda del campo Texto"
MINUSONE                ( ChooseData: MINUSONE para campo texto )
MINUSONE                ( ChooseDecompile: MINUSONE para campo texto )
1.4142135623 DUP        ( Valor Reset y Valor Inicial )

* Campo #2: Es un campo CHOOSE
'DROPFALSE              ( MessageHandler )
30 17 101 9             ( Posición y tamaño )
BINT12                  ( TipoDeCampo: #12=Choose )
MINUSONE                ( ObjetosPermitidos: MINUSONE para campo choose )
BINT17                  ( Decompile: 16= 1º obj de lista, 1= sin descomp )
"Ayuda del campo Choose"
{ { "OPCION A" 11. }
  { "OPCION B" 12. }
  { "OPCION C" 13. } }  ( ChooseData: items del browser 48 )
' :: INCOMPDROP "   " SWAP DecompEdit &$ &$
  ;                     ( ChooseDecompile: converter del B48 )
{ "OPCION A" 11. } DUP  ( Valor Reset y Valor Inicial )

* Campo #3: Es un campo FILER
'DROPFALSE              ( MessageHandler )
30 26 101 9             ( Posición y tamaño )
BINT20                  ( TipoDeCampo: 20= Campo Filer )
{ BINT0 BINT1 BINT6 }   ( ObjetosPermitidos: reales, complejos, ids )
BINT4                   ( Decompile: #4= formato numérico estándar )
"Ayuda del campo Filer"
MINUSONE                ( ChooseData: valores por defecto ^BrowseMem.1 )
MINUSONE                ( ChooseDecompile: MINUSONE para campo filer )
1.7320508 DUP           ( Valor Reset y Valor Inicial )

 
* Campo #4: Es un campo COMBOCHOOSE
'DROPFALSE              ( MessageHandler )
30 35 101 9             ( Posición y tamaño )
BINT13                  ( TipoDeCampo: 13= Campo combochoose )
{ BINT0 }               ( ObjetosPermitidos: reales )
BINT4                   ( Decompile: #4= formato numérico estándar )
"Ayuda del campo ComboChoose"
{ 12. 13. 14. 15. }     ( ChooseData: items del browser 48 )
BINT4                   ( ChooseDecompile: converter del browser 48 )
18. 19.                 ( Valor Reset y Valor Inicial )

* Campo #5: Es un campo COMBOFILER
'DROPFALSE              ( MessageHandler )
30 44 101 9             ( Posición y tamaño )
BINT21                  ( TipoDeCampo: 21= Campo combofiler )
MINUSONE                ( ObjetosPermitidos: MINUSONE= todos )
BINT4                   ( Decompile: #4= formato numérico estándar )
"Ayuda del campo ComboFiler"
MINUSONE                ( ChooseData: valores por defecto ^BrowseMem.1 )
BINT4                   ( ChooseDecompile: MINUSONE para campo filer )
175.12 DUP              ( Valor Reset y Valor Inicial )

* Campo #6: Es un campo CHECK
'DROPFALSE              ( MessageHandler )
0 53 6 9                ( Posición y tamaño ) ( 6 y 9 para campo check )
BINT32                  ( TipoDeCampo: 32= Campo check )
MINUSONE                ( ObjetosPermitidos: MINUSONE para campo check )
MINUSONE                ( Decompile: #4= formato numérico estándar )
"Ayuda del campo Check"
MINUSONE                ( ChooseData: MINUSONE para campo check )
MINUSONE                ( ChooseDecompile: MINUSONE para campo check )
FalseFalse              ( Valor Reset y Valor Inicial )

BINT6 BINT6             ( Número de etiquetas y número de campos )
' :: BINT5 #=casedrop ( -> grob flag T // F ) ( grob de etiquetas )
     :: BINT55           ( 55 )
        BINT2            ( 55 2 )
        RSWAP            ( 55 2 )
        R>               ( 55 2 prog )
        PUTLIST          ( prog' )
        >R               ( )
        RSWAP            ( )
        BINT62           ( 62 )
        BINT7            ( 62 7 )
        BINT4            ( 62 7 4 )
        RROLL_           ( 62 7 )
        R>               ( 62 7 prog )
        PUTLIST          ( prog' )
        >R               ( )
        BINT4            ( 4 )
        RROLL_           ( )
        BINT4            ( 4 )
        RROLL_           ( )
        BINT4            ( 4 )
        RROLL_           ( )
        FALSE            ( F )
     ;
     DROPFALSE
  ;
"Título del DoInputForm"  ( Título del formulario )
DoInputForm               ( ob1...obn T // F )
;

Captura de pantalla
Usar toda la pantalla de la Hp 50g para mostrar etiquetas en DoInputForm WfDnL0IOsHZ1KLEer28A1PtOi9CKC4hD-2s5jED8RJ8gSNXkFWbZZSSX-vS8Rzs5PWpqKAezFeP7lJ_Nd6aRmLZY0yW8NSe7nmfkxMWDQ9ozhdbUspbB2Xp-TmUA_XGDVWzvkBqgExTQP0TA6Gp2l6dE1M2hGXBtMLhqKJIb_imWAc-egKc9cSrXyMJ189fx97bEzXEwau37m-DmxNWLHkAivEvvyxccnLZdLTwsn9WgyF-5t6wF1qSLCTjksSi7qjyKt87U5EtrAIsP4AQZOjxETEZ4c_ztkgAH0Miz3FDYTTfG4vYpyatwnoI2vz4PkiCegKFkJhd7wtc0DOOwUBrOGMW8BZ7NbN7xncFVCttXBgNeEcL5HW5t4g5N_isZQevowX8yQtj80gy6k1XPmmcZIAJ5grFxr5Of-74J3ldpWl1VltZV6u0hhVqBo3cYd4zfCiaJX2MMKsEYprwtLCjYaQflNPGoPadC8l7P1TJQ0Dg6X27tpmDJrdKl52r757Gxsvds2ULj8_G83_bgmCDasoRJIsiGu1eUWvp4spucgXFKuRyhHj4sBzrI1XTExj68d3yFlNXKK1ORsl-b8pzyTdxuEdqnQnD7GKIK-KopilVOc94e=w262-h160-no
carloshp50
carloshp50
Master HP
Master HP

Masculino Cantidad de envíos : 334
Localización : Perú
Calculadora : HP 50g
ROM : 2.09

Volver arriba Ir abajo

Usar toda la pantalla de la Hp 50g para mostrar etiquetas en DoInputForm Empty GRACIAS

Mensaje  ivanhp50 Miér Nov 02, 2011 7:35 pm

hola, gracias por la respuesta (aunque no sea mi tema) lol!
avatar
ivanhp50
Junior HP
Junior HP

Masculino Cantidad de envíos : 31
Edad : 34
Localización : bolivia
Calculadora : HP 50g
ROM : 2.00

Volver arriba Ir abajo

Volver arriba

- Temas similares

 
Permisos de este foro:
No puedes responder a temas en este foro.