LA ELECTRONICA DE JOSECHU

[josechu]

pescaorrrrr.
vas muy bien, sigue así.

el que no lo entienda, que pregunte,,,,,,,,,,,,
hoy ya he terminado de grabar los cd, y empezaré a enviarlos hoy mismo.
he incluido en el mismo varios tutoriales, entre ellos el de tu simulador, por si quieren incar los codos,
haber luego que pegas nos poneis,

[carptroya]

Ya está terminado y simulado dejo carpeta con todos los archivos incluido la simulación.

Como casi nadie (por no decir ninguno), dejo video para que veáis la simulación

" onclick="window.open(this.href);return false;

Código: Seleccionar todo

'****************************************************************
'*  Name    : adc y led                                     *
'*  Author  : carptroya                 *
'*  Notice  : Copyright (c) 2011 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 03/05/2011                                        *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************


  Device=16F876     
      Xtal 4
  
  
 Declare Adin_Res 8 'resultado de 8-bit  

Declare Adin_Tad FRC 'OSC interno elegido 

Declare Adin_Stime 100 

TRISA =%00000001   ' poner el ano como entrada analogica

TRISB =%00000000     'poner el puerto como salida

ADCON1.7 =0         ''sin justificacion un solo registro

 Dim dato As Byte     'crear variable con valor byte =255
 
 PORTB=0             'poner a cero el puerto completo
  
  
   DelayMS 100        'retardo 
  
   '
   '
   '
   '  comoenza el programa
   '
   '
   
  
 inicio:
 
  dato =ADIn 0   'guardar el valor digital obtenido en la conversion en el registro dato
  
  PORTB=dato      'el puerto b toma el valor del registro dato
  
  GoTo inicio
  

[carptroya]

agueloooooooooooooooooooo entre tú y yo y ahora que nadie nos lee.

Qué más da si grabas en el cd , con toda la informacion que creas interesante para todos si luego NO estudiaran.

Personalmente te diría que le preguntes a cada uno que música le gusta y le regalas un cd de la misma.(haber si se pican y estudian…………….jajajaj)

[carptroya]

Hay podéis ver el programa que desarrolle para saber qué valor se obtiene cada vez que actuó sobre un divisor.

Con dicho valor le diré al micro que haga lo que ME DE LA GANA ( como por ejemplo encender un led, activar un motor…etc………..en este caso concreto le diremos que nos muestre lo que queramos por el LCD).

Que no veis el dato por ningún LADO ¿???


Bueno por lo menos en el video si veréis como se enciende unos led cuando presiono un pulsador………algo es algo.


Como soy así de MALO dejo esta foto para que vosotros me digáis el valor digital de la conversión realizada cuando esta pulsado dicho pulsador.



Con esto y un bizcocho hasta mañana a las 8.


Saludos a todosssssssssssssssssssssssssss

[Montañés]

Bueno, hola a todos y un saludo muy fuerte.

Y una gran bienvenida a Contradique, así como a algún otro que se me ha pasado. No, no estoy muerto pero sí algo desparecido. Desgraciadamente problemas y más problemas no me permiten dedicarme a los hobbys, aunque parece que empieza a clarear.

Lo dicho, un saludo muy fuerte a todos y aunque sea difícil de creer (y Carp, sí, tiernes toda la razón en tus críticas/comentarios), estoy con los PaP (no sé para qué siglo, eso sí, )

Saludos,
Montañés

[rafmon]

Hola a todos

Carptroya, tienes más razón que un santo. En cuanto a que yo no aparezca mucho últimamente es debido a mi cambio de domicilio, que como siempre todo el mundo me iba a ayudar y al final me he visto solo y haciendo la mudanza con mi CLIO.
Ahora tengo que acondicionar toda la casa pues la dejaron hecha un establo y medio destrozada, y lo primero es lo primero, ya tendré tiempo para el hobby y estudiar (si la parienta y los nietos me dejan) para ponerme al ritmo de los demás.
Puedo poner el código del contador de pulsos, (no lo he hecho yo) con el que probé el encoder y que lo podáis ver todos, está en ensamblador, pero se puede ensamblar y probar, también pondré el esquema para que se pueda implementar el circuito.

Darme un par de días para subirlo.

CONTRADIQUE, espero que no sea muy grabe tu lesión y tengas una pronta recuperación.

Saludos a todos

Rafa

[carptroya]

La verdad ¡!!!!! Es que no hacéis ni el “HUEVO”, pero por lo menos dais la cara.

Solo hace falta “zamarrear” un poco el hilo y aparecéis, esto mismo tendríais que hacer cada vez que el aguelooooo aporte algo nuevo. Dé esta manera no se sentirá tan SOLO y preguntándose a sí mismo si merece la pena perder su tiempo en beneficio del grupo.

En cuanto a mí, yo solo estoy por aquí para CRITICAR a todos.


Saludossss a todosss

[carptroya]

Amigo rafa te propongo lo siguiente: pon esquema del encoder, el micro que utilizas y desde aquí con la ayuda de todos desarrollamos el soft.

Sería una buena práctica para que vosotros se familiaricéis con la programación.

saludos

[carptroya]

Como me gusta meterme con vosotros seguiré escribiendo.


joder!!!!! Por lo visto la solución tiene que ser SUPERCOMPLICADA…………..fue visto por 11 personas el problema y no han dado una sola respuesta.

Seguramente ninguno que la visito eran miembro del grupo, o quizás SI ¿???

Desde aquí os animo a que por lo menos digáis un numero al azar igual acertáis…………….jajajajjaj


Mientras que lo pensáis, pondré un par de líneas más al código , de esta manera sacare el dato también por LCD.

[josechu]

Hola Pescaorrr.

lo que mas me interesa de momento, y para empezar es esta instrucción:

Declare Adin_Tad FRC 'OSC interno elegido,

¿declaras una variable con la frecuencia de un oscilador interno?
no tengo ni pajolera idea, deleitanos con tus experiencias.

el número que buscas, ¿puede ser el 1?

haaaa, gracias, ya era hora que esto se moviera, pero como verás solo trabajamos unos pocos, o los de siempre. Y si efectivamente muchas veces me desilusiono y se me quitan las ganas de todo.

[carptroya]

Las variables se declaran siempre con DIM.
Lo que tu preguntas son directivas que hay que declarar para la configuración del modulo ADC.

Declare Adin_Res 8 'resultado de 8-bit

Declare Adin_Tad FRC 'OSC interno elegido

Declare Adin_Stime 100


La 1º decirle que el resultado sera de 8 bit

2º….. utilizar el oscilador interno del micro.

3º…….. tiempo de muestreo , este tiempo será en microsegundos.


Por último el registro…..


ADCON1.7 =0 quiere decir que el resultado lo ponga todo

Juntito.



La respuesta de 1 no es correcta, inténtalo otra vez.



Como dije ayer pongo el nuevo programa, que es el mismo, pero con unas líneas más, para que el valor del registro sea mostrado en pantalla, tanto en binario como decimal.

Código: Seleccionar todo

'****************************************************************
'*  Name    : adc con led  y LCD para verlo biennnnn                                   *
'*  Author  : carptroya                 *
'*  Notice  : Copyright (c) 2011 [select VIEW...EDITOR OPTIONS] *
'*          : All Rights Reserved                               *
'*  Date    : 03/05/2011                                        *
'*  Version : 2.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************


  Device=16F876     
      Xtal 4
  
 
    LCD_Type = 0                 ' LCD alfanumerica tipica
        
     LCD_DTPin = PORTC.4         ' datos PORTB.4,5,6,7
    
     LCD_RSPin = PORTC.2        ' LCD RS pin
     LCD_ENPin = PORTC.3        ' LCD EN pin
     LCD_Interface = 4           '  4-bit LCD 
     LCD_Lines = 2               '  2-Line LCD
 
 
 
  
 Declare Adin_Res 8 'resultado de 8-bit  

Declare Adin_Tad FRC 'OSC interno elegido 

Declare Adin_Stime 100 

TRISA =%00000001   ' poner el ano como entrada analogica

TRISB =%00000000     'poner el puerto como salida

TRISC =%00000000      'poner el puerto como salida

ADCON1.7 =0         ''sin justificacion un solo registro

 Dim dato As Byte     'crear variable con valor byte =255
 
 PORTB=0             'poner a cero el puerto completo
  
  
   DelayMS 100        'retardo 
  
   '
   '
   '
   '  comienza el programa
   '
   '
   
  
 inicio:
 
  dato =ADIn 0   'guardar el valor digital obtenido en la conversion en el registro dato
   DelayUS 3
   
  PORTB=dato      'el puerto b toma el valor del registro dato
  
   Print At 2,1," dato decm ",Dec3 dato
   Print At 1,1," binario ", Bin dato
   
   PORTB =0
   
  GoTo inicio
  

[YUMBLE]

Hola a todos:
Pescaorrrrr. Como decía el Chavo del 8 (Perooo nooo teee enooojes)jajaja.
A ver si e entendido la pregunta y estos son los valores que pides.
SW1_3.12v
SW2_2.16v
SW3_1.31v
SW4_714.25mv
SW5_423.71mv
SW6_244.37mv
No se si esto es lo que querías pero mi cabezota no da para mas.
Un Saludo.
PD: Amigo Contradique espero que te recuperes pronto

[carptroya]

Amigo yumble tu sí que eres un PESCADORRRR y de los buenos, aunque tenemos MALA fama de mentiroso tu lo demostraste con la fotografía de esa maravillosa CAPTURA de un SILURO ( que por cierto fue muy polémica en el foro…….jajaj).

En cuanto a tu respuesta, te dire que esos valores que tu indicas serian analógicos , como lo que nos interesa es que sean digitales(para luego hacer lo que queramos),por ello lo aplicamos al modulo conversor adc que tiene el micro y dicho dato es el que pregunto .

Pero, por lo menos te molestaste y participaste, para mi es suficiente.

Saludos

[carptroya]

Carpeta bajada……………………………..5 veces
Foto de pregunta vista………………… 27 veces
Video simulación visto…………………. 9 veces.

Respuesta a la pregunta…………………..2


Creo que estos datos hablan por sí solo.

Por lo tanto pongo la respuesta, NO me gusta que ninguno se FATIGE pensando.

Saludos a todossssssssssss

[carptroya]

Para terminar con el tema, solo falta decir que con el dato obtenido ( 21 en este caso) y utilizando IF THEN.

Seleccionamos la pantalla requerida.

Código: Seleccionar todo

If f=21 Then
 voltios_total =12*voltios/256
 Print At 1,1,"                "
  Print At 2,1,"voltios ",Dec1 voltios_total 
  EndIf

Este trozo de código es el encargado de medir el voltaje de la batería en trabuquito y por supuesto luego verlo en el LCD.

Saludos a todos , quien pueda y desee que estudie un poquito.