Transmisor DMX512 de 4 canales

[stk500]

Hoy acabo de terminar uno mas de mi proyectos y aqui se lo pongo.
Se trata de controlar 4 Canales DMX512, aqui uso el Atmega8 que tiene 6 canales ADC, osea que se puede con ese micro hasta 6 canales, tengo previsto hacer 16 canales para un cliente y este es un prototipo de prueba, esta previsto usar pulsador para Efecto Estrobo,secuenciales y otras combinaciones.
Tengo previstos subir un Video con todos mis proyectos funcionando, eso lo prometi cuando hice el receptor de 4 canales DMX512.

Código: [Seleccionar]

'**** 4-channel DMX512 Transmitter Version 0.1***
 '**** Create for Rafael Jimenez                 **
 '**** Bascom AVR version 2.0.7.3                **
 '**** Date 11.11.2011                           **
 '*************************************************
 $regfile = "m8def.dat"                                     'Atmega8. puede ser  otro con ADC
 $crystal = 16000000                                        'Quarzo de 16Mhz
 $baud = 250000                                             '250000 Velocidad de Baudio
 '$sim                                                           ' para la simulacion
 $hwstack = 32                                              ' default use 32 for the hardware stack
 $swstack = 8                                               'default use 10 for the SW stack
 $framesize = 16

Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 2 , Databits = 8 , Clockpol = 1

Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0
Config Lcd = 20 * 4
Cursor Off
Cls

Waitms 10
Config Adc = Single , Prescaler = Auto , Reference = Avcc   'configuramos ADC modo Automatico
'Start Adc
Config Porta = Input                                        'entrada de ADC

 Dim Buffer(4) As Byte                                      'Buffer de 256 canales,  aqui solo elegimos 4
 Dim Null_byte(1) As Byte                                   'Cero byte
 Dim Adc_ch1 As Integer                                     'Definimos ADC uno (adc0)
 Dim Adc_ch2 As Integer                                     'Definimos ADC dos (adc1)
 Dim Adc_ch3 As Integer ' "" "                              'Definimos ADC tres (adc1)
 Dim Adc_ch4 As Integer                                     'Definimos ADC cuatros (adc1)
 Dim X1 As Single                                           'Variable para calculos en porcentaje de los niveles
 Dim X2 As Single
 Dim X3 As Single
 Dim X4 As Single                                           'definimos Z para los calculos en porcentajes
 Dim Z As Single


'Calculacion level for LCD in percent
 Z = 0.0981

' Configuration UART
  Usart_tx Alias Portd.1                                    'Puerto de UART
  Config Usart_tx = Output                                  'configuramos la UART como transmisor

Do                                                          ' programa corre

 Ucsrb.txen = 0                                             'Usart desactivado
   Usart_tx = 0                                             'Reset
 Waitus 200                                                 'pausa

 Usart_tx = 1                                               'Reset
 Ucsrb.txen = 1                                             'Usart activado

 Waitus 16                                                  'MARK zw. RESET and Byte Start min. 8us

 Printbin Null_byte(1)
 Printbin Buffer(1)

'DMX-CODE START

'____________________

 Adc_ch1 = Getadc(0) / 4                                    '
 Adc_ch2 = Getadc(1) / 4
 Adc_ch3 = Getadc(2) / 4
 Adc_ch4 = Getadc(3) / 4

 X1 = Adc_ch1 * Z
 X1 = X1 * 4
 X1 = Int(x1)

 X2 = Adc_ch2 * Z
 X2 = X2 * 4
 X2 = Int(x2)

 X3 = Adc_ch3 * Z
 X3 = X3 * 4
 X3 = Int(x3)

 X4 = Adc_ch4 * Z
 X4 = X4 * 4
 X4 = Int(x4)

 Locate 1 , 1
 Lcd "1Ch"
 Locate 1 , 4
 Lcd Fusing(x1 , ".")

 Locate 1 , 7
 Lcd "-2Ch"
 Locate 1 , 11
 Lcd Fusing(x2 , ".")

 Locate 1 , 14
 Lcd "-3Ch"
 Locate 1 , 18
 Lcd Fusing(x3 , ".")

 Locate 2 , 1
 Lcd "4Ch"
 Locate 2 , 4
 Lcd Fusing(x4 , ".")

 Buffer(1) = Adc_ch1
 Buffer(2) = Adc_ch2
 Buffer(3) = Adc_ch3
 Buffer(4) = Adc_ch4

 Start Adc
   Loop

  Return
aqui os pongo el Esquema


Uploaded with ImageShack.us

[Nocturno]

Deseando ver ese video, maestro

[todopic]

Muy intresante Rafa!... esperamos el video!!! 

[stk500]

  paciencia paciencia, mi trabajo ahora no me da muchos tiempo, todos lo tengo montado en Phrotoboard, asi que cuando lo monte en una placa mostrare todos mis proyectos DMX acabado y funcionando, este ultimo me llevo mas trabajo, ya que el Bascom AVR tiene HightLevel  protocolo, en este caso para configurar la UART y el ADC, esto salio en la 5 ultimas versiones.
ahora es muy facil hacer aplicaciones con la UART

muchas gracias por vuestras motivaciones

[niht]

 Hola! se que el post quedo quieto hace mucho pero si quiciera saber en que termino este proyecto y el esperado video de su funcionamiento jejeje
quedo atento a cualquier respuesta sobre el asunto.

[stk500]

Aqui os dejos el transmisor dew 4 canales funcionando
No es una dirección de youtube válidahttp://www.youtube.com/watch?feature=player_embedded&v=FQiU8C2c_GY#t=16
todos esta en mis projectos
http://www.todopic.com.ar/foros/index.php?topic=37769.0

[todopic]

  Felicitaciones Rafael!!!!  

Un gran abrazo!

[Nocturno]

¡Cómo te diviertes, abuelo!

[carlosoca92]

Hola ,ya arme su receptor DMX de 3 canales pero no lo consegui probar con exito asique me gustaria construir su transmisor dmx de 4 para poder ver si realmente me funciona el receptor.Lo probe con una interface usb dmx hecha con un cable ftdi y un sn75176 y el software free styler pero no hubo exito hace cosas raras.Mi pregunta viene en el esquematico de su proyecto,en el cristal de cuarzo se podria sustituir por uno normal con sus dos condesadores.Soy novatillo y aun hay algunos componentes y encapsulados que no conozco.Gracias por su atencion

[stk500]

Código: [Seleccionar]

Hola stk 500 estoy interesado en armar el transmisor dmx512 de 4 canales pero tengo algunas dudas  de como hacerlo:

la primera duda es acerca del cristal de cuarzo,en el esquematico sale algun tipo de resonador o cristal el cual como novato que soy aun no conozco.Mi pregunta se puede sustituir por un cristal normal de 16 MHz con sus dos condesadores conectado a sus dos pines correspondientes?? si es asi .¿implica cambios en el codigo a cargar en el atmega?

la segunda es si ¿podria utilizar en lugar del atmega8 el atmega328?Evidentemente habria que cambiar cosas del codigo se que habria que cambiar el uC pero no se como es la notacion del 328.

y por ultimo la tercera duda,en el video se ve como utilizas un LCD  de 16*2 en lugar de el de 20*4 como puedo hacer para utilizar yo el 16*2 ,que cambios hay que hacer en el codigo?

Muchas gracias de antemano
Un saludo =)  Sabe Usted usar el programa Bascom AVR ?
Sabe usted de electronica?
porque no espere que te lo haga, osea decir lo que tiene y como lo hace.
no soy el mago en microcontroladores