SoloCodigo

Hola, resulta que quiero crear un help desde el visual basic. Lo que tengo es un archivo pdf y lo abro desde el visual basic de la siguiente forma:

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()
 ShellExecute Me.hwnd, vbNullString, "MiArchivoPDF.pdf", vbNullString, "C:", 1
End Sub

Cuando lo pruebo anda de 10 pero el problema es que cuando yo genero el instalador y lo pruebo en otra maquina, no funciona.
Alguien sabe por que?
Saludos.

Hola, como va todo?. Resulta que estoy necesitando hacer un proyecto con un sensor de presión y buscando por la web encontre uno, el Mpx2100. Me bajé la hoja de datos del sensor y me puse a ver sus datos característicos y me entro la duda por que no se cual es el máximo nivel de tensión que entrega a la salida , es decir, cuando la presión sea la máxima. Leyendo el datasheet dice que Vfss=40mv valor típico. Donde Vfss es la tensión a fondo de escala. No se si este es el mayor valor de tensión que puedo tener a la salida cuando la presión sea la máxima. No se si me explico.
Esa es mi duda.
Saludos a tod@s.
Chau.

Hola, por favor si me podes responder te agradecería.
Saludos.

Hola, muchisimas gracias.
Saludos.
Chau.

Hola, lo que pasa es que es para una materia de la facultad y si combino los controles del LabView con el Visual Basic es mejor para presentarlo.
De todas formas ya lo solucione. Pude cambiar el color de las graficas y tambien dejar intacta la escala del eje Y de ese control.
El unico problema es que cuando exporto ese control al visual, me lo toma como una version de evaluacion que no puede ser usada mas de 5 minutos. Lo raro es que la version del labview que tengo no es una version de evaluacion.
Saludos.
Chau.

Hola, yo tengo casi el mismo problema que vos.
Pudiste solucionarlo?. De ser asi me gustaria que me des una mano.
Desde ya muchisimas gracias.
Saludos.
Chau.

Hola gente. Estoy tratando de arrancar el SCI del GP32 pero resulta que lo simulo y al parecer no funciona bien. Para simular que he recibido un dato uso la palabra SCDI seguido del dato, por ejemplo SCDI $A0.
A continuación adjunto el codigo.
Saludos.
Chau.

**************************************************************
*               EJEMPLO DEL USO DEL MÓDULO TIM               *
**************************************************************
$Include 'GP32.inc'

RAMStart     EQU  $0040
RomStart     EQU  $E000         ; This is valid ROM on the GP32, GT16, and GT8
VectorStart  EQU  $FFDC

    org RamStart

    org RomStart

**************************************************************
* Main_Init - This is the point where code starts executing  *
*             after a RESET.                                 *
**************************************************************
Main_Init:
       rsp
       clra                      ; Initialize A,X so that interrupt
       clrx                      ; processing doesn't stop with
                                 ; uninitialized register warning
                                 ; when push A,X on the stack
       cli                       ; Allow interrupts to happen

       mov       #$61,config1    ;COP deshabilitado
       mov       #$03,config2    ; For GT16 - turn on external clock
                                 ; For GP32 - SCI clock source is Bus
                                 ;            (Automatic for GT16)

**************************************************************
* Configuro el PLL para generar una frecuencia de 4.9152 MHz *
**************************************************************
       clr      PCTL             ;PLL:OFF
       bset     1,PCTL           ;P= 0 E= 2
       mov      #2,PMSH          ;N HI= 2
       mov      #1,PMDS          ;R= 1 (default)
       mov      #$58,PMSL        ;N LOW= 58
       mov      #$80,PMRS        ;L= 80
       bset     5,PCTL           ;PLL:ON
       bset     7,PBWC           ;enganche automatico

wait_pll:                       ;esperar que LOCK sea = 1
       brclr    6,PBWC,wait_pll ;
       bset     4,PCTL          ;cambia a frecuencia del PLL

*************************************************************
*                       MODULO SCI                                *
*************************************************************

******************************************************************
* SELECCION DEL BAUD RATE                                       *
* ESTOY TRABAJANDO CON UNA FRECUENCIA DE BUS    *
* INTERNO DE 4.9152 MHz.                                       *
******************************************************************

   mov #%00000011,SCBR   ;SCP1-SCP0=00 => Divisor por 1
                                ;76.80 KBaudios.
                                ;SCR2-SCR0=011 => Divisor por 8
                                ;9600 Baudios.

*************************************************
* SELECCIÓN DE LA LONGITUD DEL CARACTER Y TIPO  *
* DE PARIDAD.                                   *
*************************************************

   mov #%01000000,SCC1    ;ENSCI=1 => Habilito al SCI y al
                                ;SCI Baud rate.
                                ;M=0 => 8 bits de datos.
                                ;PEN=0 => Sin paridad.

*************************************************
* INTERRUPCIONES Y CONFIGURACION DEL TRANSMISOR   *
* USAR ESTO EN CASO DE SOLO TRANSMITIR.      *
*************************************************

        ;bclr 7,SCC2             ;SCTIE=0 => No interrumpe cuando
                   ;TX Data Register está vacio.
        ;bset 6,SCC2             ;TCIE=1 => Interrupción cuando la
                    ;TX está completa.
        ;bset 3,SCC2             ;TE=1 => Habilito la operación de TX.

*************************************************
* INTERRUPCIONES Y CONFIGURACION DEL RECEPTOR   *
* USAR ESTO EN CASO DE SOLO RECIBIR.      *
*************************************************

        bset 2,SCC2             ;SCRIE=1 => Interrumpe cuando se
                                       ;completa el Receive Data Register.
        bset 5,SCC2             ;RE=1 => Habilito interrupción del
                   ;receptor.

*************************************************
* SCI CONTROL REGISTER 3         *
*************************************************

   mov #%00000000,SCC3   ;b5=b4=0 => DMA no habilitado
                            ;b3=0 => Deshabilito interrupción por overrun error
                            ;b2=0 => Deshabilito interrupción por noise error
                            ;b1=0 => Deshabilito interrupción por framing error
                            ;b0=0 => Deshabilito interrupción por parity error

**************************************************************
*                    Programo el ADC                         *
**************************************************************

       mov     #%10000000,adclk         ;Programo el prescaler del clock del ADC
                                        ;b7-5 = ADIV[2:0] prescaler del clock del ADC 1XX = DIV/16
                                        ;32.768MHz/16 = 2.048MHz (Frec de trabajo del ADC)
                                        ;B4-0 = NO SE USAN = 0
       mov      #%01100010,adscr        ;Programo el modulo ADC
                                        ;b7 = COCO Conversion completa Solo lectura
                                        ;b6 = AIEN Habilitacion de interrupcion del ADC (lo activa)
                                        ;b5 = ADCO Conversion continua si = 1
                                        ;b4-0 = ADCH[2:0] Selecciona 1 de los canales del ADC (ADC2=PTB2)

**************************************************************
*                    Programo el Timer                       *
**************************************************************

       mov     #%01110110,T1SC          ;Frec
                                        ;b7=0 (TOF) Timer no fue reseteado
                                        ;b6=1 (TOE) Habilita interrupción Timer Overflow
                                        ;b5=1 Timer Detenido (Timer stopped)
                                        ;b4=1 Resetea el Contador y el Prescaler
                                        ;b2,1,0=110 Divide Frec Int Bus en 64
       mov     #$FF,T1MODH
       mov     #$FF,T1MODL              ;T1MODH:T1MODL=FFFF

;------ Canal 0 -----------------------------------------------------------------

       mov     #%01010110,T1SC0         ;b6=1 => Habilito interrupcion del TIM.
                                        ;b5=0,b4=1,b3=0,b2=1 => Output Compare,
                                        ;Toggle Output on Compare.
                                        ;b1=1 => Cambia el estado de la salida
                                        ;cuando hay timer overflow.
       mov     #$FF,T1CH0H
       mov     #$00,T1CH0L              ;T1CH0H:T1CH0L=FF00

;------ Canal 1 -----------------------------------------------------------------

       mov     #%01010110,T1SC1         ;b6=1 => Habilito interrupcion del TIM.
                                        ;b5=0,b4=1,b3=0,b2=1 => Output Compare,
                                        ;Toggle Output on Compare.
                                        ;b1=1 => Cambia el estado de la salida
                                        ;cuando hay timer overflow.
       mov     #$00,T1CH1H
       mov     #$80,T1CH1L              ;T1CH1H:T1CH1L=0080

       mov     #%01000110,T1SC          ;Arranco el timer (b5=0)
                                        ;b4=0 No tiene efecto

**************************************************************
*                     Módulo TBM                                    *
**************************************************************
       bset     1,TBCR
       bset     2,TBCR
       bset     3,TBCR
       bclr     4,TBCR
       bclr     5,TBCR
       bclr     6,TBCR

**************************************************************
*                     Configuro los puertos                  *
**************************************************************
       mov      #%11110000,ddrb
       mov      #$00,portb
       bset        4,ddrd
       bset        5,ddrd
       bclr        4,portd
       bclr        5,portd
       bset        0,ddra
       bclr        0,porta

**************************************************************
*                     Programa principal                     *
**************************************************************
Lazo:
                bra Lazo

**************************************************************
*         Rutina de atención de interrupción del TBM         *
**************************************************************
TBM:
      nop
      rti
**************************************************************
* AtoD_ISR - ADC Conversion Complete Interrupt               *
*            Transmit ADC value out serial port (PTE0)       *
**************************************************************
AtoD_ISR:
       nop
       rti


**************************************************************
* T_ISR - Timer Interrupt Service Routine.               *
*             after a RESET.                                         *
**************************************************************
TIM1_isr:
       bclr 7,T1SC
       rti

TIM1CH0_isr:
       bclr 7,T1SC0
       rti

TIM1CH1_isr:
       bclr 7,T1SC1
       rti

TIM2_isr:
       bclr 7,T2SC
       rti

TIM2CH0_isr:
       bclr 7,T2SC0
       rti

TIM2CH1_isr:
       bclr 7,T2SC1
       rti

SCITX_isr:
       nop
       rti

SCIRX_isr:
       lda SCS1         ;Limpio el registro SCS1
       lda SCDR         ;Cargo al ACC con el valor del SCDR
       bclr 5,SCS1
       rti

**************************************************************
* DUMMY_ISR - Dummy Interrupt Service Routine.               *
*             Just does a return from interrupt.             *
**************************************************************
dummy_isr:

       rti           ; return


**************************************************************
* Vectors - Timer Interrupt Service Routine.                 *
*             after a RESET.                                 *
**************************************************************
   org  VectorStart

        dw  TBM          ; Time Base Vector
        dw  atod_isr     ; ADC Conversion Complete
        dw  dummy_isr    ; Keyboard Vector
        dw  SCITX_isr    ; SCI Transmit Vector
        dw  SCIRX_isr    ; SCI Receive Vector
        dw  dummy_isr    ; SCI Error Vector
        dw  dummy_isr    ; SPI Transmit Vector
        dw  dummy_isr    ; SPI Receive Vector
        dw  TIM2_isr     ; TIM2 Overflow Vector
        dw  TIM2CH1_isr  ; TIM2 Channel 1 Vector
        dw  TIM2CH0_isr  ; TIM2 Channel 0 Vector
        dw  TIM1_isr     ; TIM1 Overflow Vector
        dw  TIM1CH1_isr  ; TIM1 Channel 1 Vector
        dw  TIM1CH0_isr  ; TIM1 Channel 0 Vector
        dw  dummy_isr    ; ICG/CGM Vector
        dw  dummy_isr    ; ~IRQ1 Vector
        dw  dummy_isr    ; SWI Vector
        dw  main_init    ; Reset Vector

Hola, estaba chateando con un compañero de la facu y el me dice que para trabajar con oscilador, aparte de los pines osc1 y osc2 hay que conectar otros dos pines mas. Vos que tenes experiencia con este micro, cuales son esos pines y como los conecto? (a masa o a +5v).
Saludos.
Chau.

Hola, con mi hno armamos otra placa para probar este micro (JL8) y no está andando. Al parecer es un problema del oscilador. Te cuento: para el circuito oscilador uso un cristal de 20 MHz, un resistor de 10 MOhm y dos capacitores de 22 pF.
Esta es la segunda placa que pruebo y que no me anda. Lo que hice fue cargar al micro con un sencillo programa que haga titilar dos leds, y cuando pruebo todo resulta que uno solo de los leds queda completamente encendido.
Ya no se que mas hacer al respecto. Esto me causa mas incertidumbre que otra cosa.
Perdona que te moleste.
Saludos.
Chau.

Hola gente, tengo un problema con todos los micros a los que los quiero hacer trabajar con un oscilador a cristal. Resulta que lo que hago es un pequeño programita que titila un led y cuando lo pruebo, tengo que estar moviendo a cada rato el cristal o la resistencia para que "funcione".
El circuito oscilador que empleo es el que tiene el cristal, el resistor de 10 M Ohm y los dos capacitores de 22 pF.
Esto me pasó con los micros JK1, JL8 y GP32.
La verdad es muy desesperante esta situación por que necesito tener andando un proyecto que estoy armando para la facultad.
Bueno, si alguien sabe de esto estaria encantado de recibir información de como solucionar esto.
Perdonen las molestias.
Saludos.
Chau.

Hola, muchisimas gracias Victor Pasilla Campos. Te agradezco un monton tu valiosisima ayuda.
Saludos.
Chau.

Hola a todos. Alguien tiene un ejemplo de programa que solo muestre las imagenes de una webcam en un picture box?.
Saludos.
CHau.

Hola, por favor, alguien me puede dar una mano?, estoy trabajando con un microcontrolador qy4A y un display lcd de 16x2 lineas. Lo que quiero es aunque sea poder escribir algo en el lcd, la interfaz es de 8 bits, no de 4 bits. Hasta ahora no logré hacerlo andar.
Buaqué de todo en internet, todas las inicializaciones que encontré para el lcd son totalmente diferentes. No se supone que los pasos para inicializar el lcd son iguales para cualquier lcd alfanumerico?.
Adjunto a continuacion el codigo de mi programa.
Por favor que alguien me de una mano.  
Saludos.
Chau.

*********************************************************************************
* Definicion del mapa de Memoria del 68HC908QY4 (68HC908QT1-2/QY1-2)            *
*********************************************************************************

RAM_START       EQU     $0080           ;128 Bytes
ROM_START       EQU     $EE00           ;1,5KBytes, Debería ser $F800 para el QY1
VECTORES        EQU     $FFDE           ;Comienzo de la Tabla de Vectores

E               EQU     0
RS              EQU     4
RW              EQU     5

*********************************************************************************
* Definicion de las variables de RAM                                            *
*********************************************************************************

        org     RAM_START

CONT            rmb     1       ;Variable Contador (1 BYTE DE MEMORIA. UBICADO EN LA POSICION $0080.)
CONT1           rmb     1       ;VARIABLE CONTADOR (1 BYTE DE MEMORIA. UBICADO EN LA POSICION $0081.)
MAX             rmb     1       ;VARIABLE CONTADOR (1 BYTE DE MEMORIA. UBICADO EN LA POSICION $0082.)
CARACTER        rmb     1       ;VARIABLE CARACTER (1 BYTE DE MEMORIA. UBICADO EN LA POSICION $0083.)

*********************************************************************************
* PROGRAMA PRINCIPAL - En este punto arranca el micro luego del Reset           *
*********************************************************************************

$base    10t                            ;Base decimal por Default
$Include        'qtqy_registers.inc'    ;Definiciones de Reg. para QT, QY


        org     ROM_START

start:
        rsp                             ;Reset del stack pointer
        clra                            ;Limpio registros
        clrh
        clrx
        cli                             ;Borro Bit I (habilita interrupciones)

;------ PROGRAMACION DE LOS DISTINTOS MODULOS (HC08) ----------------------------

;------ Programo el CONFIG ------------------------------------------------------
        mov     #%00001001,config1      ;b7=0 COP Reset cycle (largo)
                                        ;b6=0 LVI deshabilitado en Modo Stop
                                        ;b5=0 Señal Reset desde LVI habilida
                                        ;b4=0 LVI habilitado
                                        ;b3=1 LVI opera en modo 5V
                                        ;b2=0 Recup.M/STOP en 4096 2OSCOUT cycl.
                                        ;b1=0 Instruccion STOP Deshabilitada
                                        ;b0=1 Modulo COP Deshabilitado

        mov     #%00000000,config2      ;b7=0 Pull-Up Interna Conectada (IRQ1)
                                        ;b6=0 Funcion Pin IRQ1 desactivada
                                        ;b4,3=00 selecciona Oscilador Interno
                                        ;b0=0 Funcion Pin RST (Reset) inactiva
        nop                             ;Las inst. NOP hacen de Delay para
        nop                             ;  asegurar la configuracion

;------ Programo el Puerto a ----------------------------------------------------

        mov     #%00110001,ddra         ;Programo Pta0, 4, 5 como salida

;------ Programo el Puerto b ----------------------------------------------------

        mov     #%11111111,ddrb         ;Programo Puerto B como Salida
        mov     #%00000000,portb
;--------------------------------------------------------------------------------

        clr MAX
        mov #$FF,MAX

        clr CONT
        mov MAX,CONT

        clr CONT1
        mov #$10,CONT1

;---------------- Programa ------------------------------------------------------

        jsr InitLCD

        mov 'H',CARACTER
        jsr Mandar
        mov 'O',CARACTER
        jsr Mandar
        mov 'L',CARACTER
        jsr Mandar
        mov 'A',CARACTER
        jsr Mandar

Lazo:

        bra Lazo

;---------------- Subrutina de Inicializacion del LCD ---------------------------

InitLCD:

        jsr Ret                         ;Demora de 15 mseg o mas

        bclr E,Porta
        bclr RS,Porta
        bclr RW,Porta

        mov #$38,Portb                  ;Function Set

        bset E,Porta

        mov #$54,MAX                    ;Para producir un retardo de aprox 5 mseg
        jsr Ret                         ;Demora de 5 mseg

        bclr E,Porta
        bclr RS,Porta
        bclr RW,Porta

        mov #$38,Portb                  ;Function Set

        bset E,Porta

        mov #$02,MAX                    ;Para producir un retardo de aprox 100 useg
        jsr Ret                         ;Demora de 100 useg o mas

        bclr E,Porta
        bclr RS,Porta
        bclr RW,Porta

        mov #$38,Portb                  ;Function Set

        bset E,Porta

        mov #$54,MAX                    ;Para producir un retardo de aprox 5 mseg
        jsr Ret                         ;Demora de 5 mseg

        bclr E,Porta
        bclr RS,Porta
        bclr RW,Porta

        mov #$38,Portb                  ;Function Set

        bset E,Porta

        mov #$01,MAX                    ;Para producir un retardo de aprox 40 useg
        jsr Ret                         ;Demora de 40 useg o mas

        bclr E,Porta
        bclr RS,Porta
        bclr RW,Porta

        mov #$38,Portb                  ;Function Set

        bset E,Porta

        mov #$01,MAX                    ;Para producir un retardo de aprox 40 useg
        jsr Ret                         ;Demora de 40 useg o mas

        bclr E,Porta
        bclr RS,Porta
        bclr RW,Porta

        mov #$08,Portb                  ;Display OF. Apagar pantalla,
                                        ;quitar cursor
        bset E,Porta

        mov #$01,MAX                    ;Para producir un retardo de aprox 40 useg
        jsr Ret                         ;Demora de 40 useg o mas

        bclr E,Porta
        bclr RS,Porta
        bclr RW,Porta

        mov #$01,Portb                  ;Display Clear

        bset E,Porta

        mov #$22,MAX                    ;Para producir un retardo de aprox 2 mseg
        jsr Ret                         ;Demora de 2 mseg

        bclr E,Porta
        bclr RS,Porta
        bclr RW,Porta

        mov #$06,Portb                  ;Entry Mode Set

        bset E,Porta

        mov #$01,MAX                    ;Para producir un retardo de aprox 40 useg
        jsr Ret                         ;Demora de 40 useg o mas

        rts

;----------------------- Subrutina para el envio de un caracter al LCD ---------

Mandar:

        lda CARACTER
        bclr E,Porta
        bset RS,Porta
        bclr RW,Porta
        sta Portb
        bset E,Porta
        mov #$02,MAX                    ;Para producir un retardo de aprox 100 useg
        jsr Ret                         ;Demora de aprox 100 useg

        rts

;----------------------- Subrutina de Retardo ----------------------------------

Ret:

        dec CONT        ;4

Ret1:
        nop
        dec CONT1       ;4
        lda CONT1       ;2
        cmp #$00        ;2
        bne Ret1        ;3
        mov #$10,CONT1  ;4
        lda CONT        ;2
        cmp #$00        ;2
        bne Ret         ;3
        mov MAX,CONT    ;4

        rts             ;4

*********************************************************************************
* ADC_ISR - Rutina de Servicio de Conversion Analogico Digital Completada       *
*                                                                               *
*********************************************************************************
adc_isr:
        nop
        rti                     ;retorna

*********************************************************************************
* KEYB_ISR - Keyboard Interrupt Service Routine                                 *
*********************************************************************************
keyb_isr:

        nop

        rti                     ;retorna

*********************************************************************************
* TIM_OV_ISR - Rutina de Servicio de Interrupcion por Overflow del Timer        *
* Es llamada cuando existe un Overflow en el Modulo Contador del Timer, es usada*
* como base de tiempos para la visualizacion en display                         *
*********************************************************************************
tim_ov_isr:

        nop

        rti                             ;retorna

*********************************************************************************
swi_isr:


rti

*********************************************************************************
* TIM_0_ISR - Rutina de Servicio de Interrupcion del Canal 0 del Timer          *
*********************************************************************************
tim_0_isr:

        nop

        rti                     ;retorna

*********************************************************************************
* TIM_1_ISR - Rutina de Servicio de Interrupcion del Canal 1 del Timer          *
*********************************************************************************
tim_1_isr:
        nop
        rti                     ;retorna
*********************************************************************************
* IRQ_ISR - Interrupt Request Service Routine                                   *
*********************************************************************************
irq_isr:
        nop
        rti                     ;retorna

*********************************************************************************
* DUMMY_ISR - Dummy Interrupt Service Routine                                   *
* Rutina de servicio de Interupcion Fantasma, se pone por razones de seguridad  *
*********************************************************************************
dummy_isr:

        rti                     ; vuelve sin hacer nada

*********************************************************************************
* VECTORES - Definicion de Vectores del Sistema                                 *
*********************************************************************************
        org     VECTORES

        dw      adc_isr         ; ADC Conv.Complete Vector      ($FFDE-$FFDF)
        dw      keyb_isr        ; Keyboard Vector               ($FFE0-$FFE1)
        dw      dummy_isr       ; (No Vector Assigned)          ($FFE2-$FFE3)
        dw      dummy_isr       ; (No Vector Assigned)          ($FFE4-$FFE5)
        dw      dummy_isr       ; (No Vector Assigned)          ($FFE6-$FFE7)
        dw      dummy_isr       ; (No Vector Assigned)          ($FFE8-$FFE9)
        dw      dummy_isr       ; (No Vector Assigned)          ($FFEA-$FFEB)
        dw      dummy_isr       ; (No Vector Assigned)          ($FFEC-$FFED)
        dw      dummy_isr       ; (No Vector Assigned)          ($FFEE-$FFEF)
        dw      dummy_isr       ; (No Vector Assigned)          ($FFF0-$FFF1)
        dw      tim_ov_isr      ; TIM1 Overflow Vector          ($FFF2-$FFF3)
        dw      tim_1_isr       ; TIM1 Channel 1 Vector         ($FFF4-$FFF5)
        dw      tim_0_isr       ; TIM1 Channel 0 Vector         ($FFF6-$FFF7)
        dw      dummy_isr       ; (No Vector Assigned)          ($FFF8-$FFF9)
        dw      irq_isr         ; ~IRQ1                         ($FFFA-$FFFB)
        dw      dummy_isr       ; SWI Vector                    ($FFFC-$FFFD)
        dw      start           ; Reset Vector                  ($FFFE-$FFFF)

*********************************************************************************
end