Programas caseros en VB

[IAO]

Holaaaa:

Para los amantes de la calculadoras HP48/49/50.
Les tengo el programa CapCalcu Mejorado. Esta buenisimo. No porque lo hice yo.
Sino es que quedó superior, de verdad verdad.
Aquí está el código. En UserRPL. Debes guardarlo en tu calculadora.

Código: [Seleccionar]

%%HP: T(0)A(D)F(.);
@

@-Hice un CHOOSE para elegir el tipo de operación a realizar
@con un dato a introducir, en una ventana INFORM.
«
 CLLCD
 WHILE
   CLLCD
   "žžžELIJA LA OPERACIONžž"
    { { " Nomenclatura"  1 }
      { " Micro Faradio" 2 }
      { "  Nano Faradio" 3 }
      { "  Pico Faradio" 4 }
      { "  EXIT" 5. }}
     1 CHOOSE
     @Guardo en c el número de la selección para trabajar con el.
     REPEAT  c
         
   «
   CASE
   @Caso si c es igual a 1 Trabajaré con la nomenclatura del condensador.
   @Es el número que aparece en los condensadores cerámicos Ejem. 104 105 etc.
   c 1 ==
     THEN
      "Valor de Nomenclatura"
       {{"Valor Capac:" "No debe estar Vacio. ejm 105" 0}}
       {1} {0 } {105 } INFORM
       IF
       THEN
       DUP DROP OBJ DROP 'A' STO
       
       @Si el valor de A es cero o menor de 102 Finaliza.
       @Evita un error si el valor A es cero o uno.
        IF A 0 ==  A 102 < OR
          THEN
          CLLCD
          " Ingrese el Valor."              4 DISP
          " No puede estar en Cero(0). "    5 DISP
          " El programa se Finalizará  "    6 DISP
          0 WAIT
          {A} PURGE
          CLEAR CLLCD
          KILL
         END

        @Tomo el valor de A le extraigo el número de
        @su 1era y 2da posición lo almaceno en B.
        A STR 1 2 SUB OBJ 'B' STO
        @Tomo el valor de A le extraigo el número de su 3era
        @posición lo almaceno en C. Efectuo los calculos.
        A STR 3 3 SUB OBJ 'C' STO
        @Relleno con ceros el valor de C. Si es 5 me dará "00000".         
        C "0" SWAP NDUPN LIST « + »       
        @El resultado de C lo almaceno en D
        @Sumo B + D y lo almaceno en E
        STREAM 'D' STO B D + OBJ 'E' STO
        @Todos los otros calculos los realizo con E
        "MicroF: " E 1000000 / NUM  + 5 DISP 
        " NanoF: " E 1000    / NUM  + 6 DISP
        " PicoF: " E 1       / NUM  + 7 DISP
        @Sin este WAIT no se muestra el resultado. 
        0 WAIT
        {A B C D E} PURGE  @Borra las variables que se almacenaron.
       ELSE
       END       
     END

   @Caso si c es igual a 2 Trabajaré con valor en MicroF. 
   c 2 ==
     THEN
      "Valor en Micro Faradios"
       {{"Valor Micro:" }}
       {1} {0 } {0 } INFORM
       IF
       THEN
       DUP DROP OBJ DROP 'A' STO         
        @"Valor= " A 2 * STR + MSGBOX '''Es una prueba.
        @Tomo el Valor A en Micro Faradio y hago la conversión.       
        "MicroF: " A 1       / NUM  + 5 DISP
        " NanoF: " A 1000    * NUM  + 6 DISP 
        " PicoF: " A 1000000 * NUM  + 7 DISP
        @Sin este WAIT no se muestra el resultado. 
        0 WAIT
        {A} PURGE               
       ELSE
       END
   END

   @Caso si c es igual a 3 Trabajaré con valor en NanoF.     
   c 3 ==
     THEN
      "Valor en Nano Faradios"
       {{"Valor Nano:" }}
       {1} {0 } {0 } INFORM 
       IF
       THEN
       DUP DROP OBJ DROP 'A' STO
        @Tomo el Valor A en Nano Faradio y hago la conversión.       
        "MicroF: " A 1000 / NUM  + 5 DISP 
        " NanoF: " A 1    / NUM  + 6 DISP 
        " PicoF: " A 1000 * NUM  + 7 DISP 
        @Sin este WAIT no se muestra el resultado.
        0 WAIT
        {A} PURGE         
       ELSE
       END
   END

   @Caso si c es igual a 4 Trabajaré con valor en PicoF.
   c 4 ==
     THEN
      "Valor en Pico Faradios"
       {{"Valor Pico:" }}
       {1} {0 } {0 } INFORM 
       IF
       THEN
       DUP DROP OBJ DROP 'A' STO
        @Tomo el Valor A en Pico Faradio y hago la conversión.
        "MicroF: " A 1000000 / NUM  + 5 DISP 
        " NanoF: " A 1000    / NUM  + 6 DISP 
        " PicoF: " A 1       / NUM  + 7 DISP
        @Sin este WAIT no se muestra el resultado. 
        0 WAIT
        {A} PURGE
       ELSE
       END
   END           

   @Caso si c es igual a 5 Finaliza este Programa.     
   c 5 ==
     THEN
      "  Finalizar Programa" MSGBOX
      CLEAR CLLCD     
      KILL   @Cancela ejecución del programa.
     END
   
   @Es el END del CASE que esta arriba.
   END
   »
   
 @Es el END del WHILE que esta arriba.
 END
 CLEAR CLLCD
»


Puedes usarlo en el HpUserEdit 5.3 que trae su emulador.
Espero les sirva de algo.

Bye('_')....

[PalitroqueZ]

Gracias IAO, a ver si saco el emulador que tengo por allí y lo pruebo.

pd: por cierto nunca aprendí a programa en RPL-system y mucho menos en asm para las HP 
(en ambos los programas corren a mayor velocidad)

[IAO]

Holaaaa:

Sr. Pali...Z:
Yo comprè la calcu para aprender màs matematicas y me puse fue a programar. El Propio Vicio mi pana.

No pretendo estudiar SysRPL(asm) para HP aunque corra màs ràpido  .
No quiero quedar màs loco de lo que estoy.
Pienso que si fuera a sacar beneficio econòmico, si lo haria. Pero eso depende de cada quien.
Para la mayorìa de los programas sencillos UserRpl, es sufiiente.

Saquè de una caja embalada la HP50, le puse las baterias y llevo dos semanas, tratando de terminar eso.

Con RPL-system tardarìa como un año   , que va, te lo dejo a ti de tarea

Bye('_').

Tuve que editar el programa por un error ya està corregido.
Para el HPUserEdit y Binario HP49/50.

[Cryn]

  ahhhh los buenos teimpos de la HP, yo tb me volvi un fanatico de ella cuando estaba con materias de matematica en al U, jaja y siempre quize pasar de nivel a system o asm, pero me daba miedo los veía muy horribles para aprender, así que me quede con USER RPL, muy facil de aprender y se hacen muy buenas cosas, hice unos cuantos programillas tb, para calcular resistencias del ic555, tablas de transformadas de fourier y laplace, serie de fourier, un transistor bjt polarizado y con un pequeño analisis de freceuncias, y creo que nada más, jaja, pero qeu buenos tiempos con la HP, los extraño, a veces hago algo pequeño, ya casi nada de avance pues hay que dedicarle, y pues a la hp le ganaron los PIC's jaja, de momento

Que buenos tiempos con la HP, todavia la tengo, una 49g+, a pesar de no ser tan bien catalogada, no tuve muchos problemas.

Ahora que recuerdo la preste a un amigo! en cuanto llegue a casa le llamo!
 

[IAO]

Hola:

Por Cryn

Ahora que recuerdo  la preste a un amigo! en cuanto llegue a casa le llamo!

 
Preferiría que me pidieran prestada a una esposa si la tuviera, pero una herramienta o algo electrónica, es como
si me insultaran a mi mamá.
Igual que prestar cd's, nunca los regresan, ni libros, el prestado se convierte en regalado.

Me recuerdo de un viejo refrán: Hay dos tipos de tontos, el que presta un libro y el segundo que es más tonto
que el primero, el que lo regresa.

Yo caí en lo de los libros varias veces hasta que me aprendí el refran. Y cuando me pedían un libro o X cosa
le hacía referencia al refrán. 

Bye('_')...

[Cryn]

 

 

 

no pues tiene mucho de cierto, ahora que recuerdo tb he prestado libros!!

jajaja, pero ya ni modo, pero eso si, la calculadora si la recupero

[piojoadrian]

El post ya ha sido actualizado y los ficheros ya estan en este foro para su descarga!


Suerte!!!

Hola. Estoy llevando a cabo un proyecto leyendo en un conversor A/D de un 18F2455 y lo mando a traves de un max 232 a una antena y luego a traves de un max 232 a la pc.

Necesitaria si me podes ayudar con las lineas de programa del pic y del entorno grafico que utilizo que es el V basic. Uso la entrada RS 232.

Espero puedas ayudarme! Lo necesito con urgencia.

[PalitroqueZ]

Hola piojoadrian

no hay necesidad de repetir el mismo post en 3 temas, te pido de favor que borres los post repetidos.

gracias.