EJEMPLITOS DE BASCOM AVR... ATMEGA8..

[stk500]

Hola, si usara el google lo encuentra, mira aqui http://staff.ltam.lu/feljc/electronics/bascom/Speicherkarten_Low_Level.pdf

[CoreMain]

Hola a todos!!!!

Ojalá me puedan ayudar. Necesito aprender a manejar un GLCD con Bascom, para empezar, me podrían recomendar el GLCD mas comun (de 240*128 sería suficiente) como el controlador que utiliza, lo que me confunde es es uso de las librerias y fuentes... (En fin ni para atras ni para adelante con eso xD)...
Si pudieran subir un ejemplo básico, se los agradecería un monton!!!!!

[stk500]

Hola a todos!!!!

Ojalá me puedan ayudar. Necesito aprender a manejar un GLCD con Bascom, para empezar, me podrían recomendar el GLCD mas comun (de 240*128 sería suficiente) como el controlador que utiliza, lo que me confunde es es uso de las librerias y fuentes... (En fin ni para atras ni para adelante con eso xD)...
Si pudieran subir un ejemplo básico, se los agradecería un monton!!!!!

Hola no te aconsejo un 240x128 porque no lo conozco, pero si entra a la pagina de AVR BASCOM Aqui y buscara entre la Aplicaciones encontrara este AN #148, estudiatelo y cualquier cosas nos comenta. lo que no estoy seguro si esta la libreria en la Version DEMO. ejemplo de Bascom es dificil de subir ya que las libreria son Copyright, lo que se podia es comentar parte de la libreria o poner alguna parte como comentario, nada mas.

[Gus-Mar]

Queria comentarles el problema que tengo tanto para manejar servos con attiny2313 como con atme48:
Utilizo en el atmega48 su reloj interno de 8mhz. La funcion pulseout cada 20ms, enviando pulsos de entre 1000 a 3000. El servo si bien es digital (e-sky) en sus especificaciones concuerda con el manejo de un analogico.
El problema que tengo que en proteus funciona bien, pero al volcarlo a la practica, sin utilizar cristal externo dado que utiliza el interno, no funciona bien, es muy erratico. Probe de muchas maneras pero sin tener resultados.
Copie programas para menejar servos con identicos resultados.
La verdad que ya no tengo idea de que puede estar pasando. Uso los fuses de origen.
Dada la experiencia de ustedes, me pueden orientar de que error estoy cometiendo? Seran los fuses, el clock, algun componente que no ponga en la placa?
Lo mismo me pasa si en vez de un servo coloco en bec(control de motores brushless).

Desde ya gracias
Gustavo

[cabritillo]

 Los programas test del BASCOM con el ATMEGA8 me han ido bien en CASI todo:
 + Manejando LCDs Hitachi 2*16 muy bien.
 + Midiendo voltages via con el conversor ADC
 + Comunicacion RS232 con el PC.

 Y ha sido bastante facil traducir el software de PICBASIC (donde empecé a trabajar) a BASCOM (donde migré ante la espectacular bajada de precio del Mega8 via eBay)

 Sin embargo, donde he notado un vacío ENORME respecto a PICBASIC es en la carencia de la funcion PWM sin mas.

 BASCOM produce la PWM mediante la funcion CONFIG TIMER dado que se adapta al ensamblador Atmel que
usa el PWM actuando sobre los 3 Timers de hardware.
 
 He visto en estos post algun ejemplo aclaratorio que me ha parecido muy bueno sobre PWM de 8 bit.

 Sugiero alguno más sobre este tema, si es posible de 10 bit , aprovechando asi la máxima capacidad
en lo que a precision se refiere del Mega 8.

 El motivo es que los ejemplos de la ayuda del Bascom en este terreno son muy oscuros y nada aclaratorios.

 Y no digamos ya las explicaciones de Atmel en el PDF del chip que son UNA VERDADERA PESADILLA.
 
 Animo muchach@s, que no falten ejemplos, que son la sal de la vida 

 Y la pimienta la competencia.
 En donde BASCOM ha fallado ha aparecido otro pisando fuerte:
http://www.mikroe.com/pdf/mikrobasic_avr/mikrobasic_avr_manual.pdf

 Dentro hay otro lenguaje BASIC para AVR, pero donde se incluye una librería ESPECIAL para PWM que ya quisiera BASCOM.

 Con ella se puede programar el PWM con absoluta claridad y potencia.
 Pero ojo, hablo solo en teoría.
 La práctica y el tiempo dirá si en fiabilidad o en confianza de sus usuarios, MikroBasic llega al nivel de BASCOM.
 
 

[cristian_elect]

Claro que hay en bascom pwm 10bits depende del timer que uses. Tambien pwm de 16bits.
Un ejemplito.

$regfile = "m8def.dat"                                      
$crystal = 8000000
$baud = 9600
$hwstack = 32
$swstack = 8
$framesize = 24

Config Timer1 = Pwm , Prescale = 1 , Pwm = 10 , Compare A Pwm = Clear Down , Compare B Pwm = Clear Down
Config Adc = Single , Prescaler = Auto
Dim W As Word
Ddrb = 6
Start Adc
Do
W = Getadc(0)
Compare1a = W
W = Getadc(1)
Compare1b = W
Loop

End

[juanpy18]

Código: [Seleccionar]

regfile = "m8def.dat"
$crystal = 8000000

Config Portb = Output

Semaforo Alias Portb
Semaforo = &B00000000

Declare Sub Parpadeo1()
Declare Sub Parpadeo2()

Dim X As Byte

Do

Semaforo = &B10000100

   Wait 5

      Gosub Parpadeo1

Semaforo = &B01000100

   Wait 3

Semaforo = &B00110000

Wait 5

      Gosub Parpadeo2

Semaforo = &B00101000

Wait 3

Loop
Sub Parpadeo1()
For X = 1 To 4
 Semaforo = &B00000100
   Waitms 200
   Semaforo = &B10000100
   Waitms 200
Next
   End Sub
   Return
Sub Parpadeo2()

For X = 1 To 4
   Semaforo = &B00100000
   Waitms 200
   Semaforo = &B00110000
   Waitms 200

Next
   End Sub
   Return


 End

[Genaro Miranda]

Hola!! pero cuales son los colores rojo,verde y amarillo?

[Genaro Miranda]

Hola!! Amigo forero Bascom AVR!!!
Buenos ya corregi hoy mismo los hice en media hora.

Código: [Seleccionar]

$regfile = "m16adef.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32

Config Portb = Output

Semaforo Alias Portb
Semaforo = &B00000000

Declare Sub Parpadeo1()
Declare Sub Parpadeo2()

Dim X As Byte

Do

   Semaforo = &B11111011

   Wait 5

   Gosub Parpadeo1

   Semaforo = &B11111101

   Wait 3

   Semaforo = &B11111111

   Wait 1


   Semaforo = &B11111110

   Wait 5

   Gosub Parpadeo2

   Semaforo = &B11111101

   Wait 3

   Semaforo = &B11111111

   Wait 1




Loop

  Sub Parpadeo1()
    For X = 1 To 4
     Semaforo = &B11111011
     Waitms 200
     Semaforo = &B11111111
     Waitms 200
    Next
    End Sub
    Return
  Sub Parpadeo2()

   For X = 1 To 4
    Semaforo = &B11111110
    Waitms 200
    Semaforo = &B11111111
    Waitms 200
   Next

   End Sub

   Return

End
Algun mas ejemplo?

Saludos!!

[cosmic]

Hola amigos.
Al trabajar con bascom avr o Atmel studio, ya sea con Atmega328-pu, de 28 pines O Attiny45.
Configurando el modulo adc, y creando un PWM por cualquiera de sus salidas apta para esto
Veo que con todos los canales adc de alguno de los dos micros, el PWM trabaja perfecto
Menos con el CANAL0 adc.
El cual al llegar el voltaje de la entrada ADC0, A 2.0 voltios la salida PWM se apaga.
no barre de 0 a 5 voltios como lo hace con los otros canales, repito esto pasa sólo con la entrada ADC0.
Aun asi, haciendo la simulación en proteus, esta si lo hace bien, mas no en montaje real.
Hay algo sobre este pin que deba habilitar para que trabaje bien, la conversión.
estoy usando voltaje de referencia 0 A VCC 5 VOLTIOS., con el que trabaja el micro, sin referencia externa.

[stk500]

Hola cosmic,
el adc0 deberia funcionar como los otros cuatro, primeramente leerte el datasheet del Atmega8 sobre el ADC, porque creo que hay 2 o 3 ADC que trabajan a 16bit, no estoy seguro, habia que ver como tiene configurado tu codigo..
ojo no uso Proteus porque no confio en sus Simulacion..  yo te aconsejo , si esta aprendiendo a programar con BascomAVR que te haga una PCB de esperimento y asi saldra´de muchas dudas a la hora de simular tus codigo...
y como decia, sin ver tu codigo va ser dificil tus errores... y sobre el circuito..

Saludos

[cosmic]

Hola amigo STK500.
Me estoy apoyando sobre el datasheet, en este momento trabajo el attiny45.
Claramente dice que el conversor ADC para este chip es de 10 bits de aproximaciones sucesivas.
El montaje, si lo tengo en protoboard y así hago la comparación en proteus, lógico que proteus obvia muchas cosas. Lo curioso es que los tres ADC restantes trabajan bien y barren de 0   A 5voltios, mientras que el ADC0, no lo hace.
No tengo el código a mano, pero te lo subo después.

[stk500]

Hola amigo STK500.
Me estoy apoyando sobre el datasheet, en este momento trabajo el attiny45.
Claramente dice que el conversor ADC para este chip es de 10 bits de aproximaciones sucesivas.
El montaje, si lo tengo en protoboard y así hago la comparación en proteus, lógico que proteus obvia muchas cosas. Lo curioso es que los tres ADC restantes trabajan bien y barren de 0   A 5voltios, mientras que el ADC0, no lo hace.
No tengo el código a mano, pero te lo subo después.

Ojo! que el ADC0 es el pin de RESET y para programarlo debe activarlo con los Fuses, pero OJO si porgrama el ADC0 como ADC va a tener problema para programarlo otra vez, yo uso muchos el ATTiny45 y cuando uso el ADC solo uso dos pines, asi que si quiere tener mas ADC y sin complicaciones mejor el Atmega8 que tiene 6 ADC en 10bit modo... 

Saludos

[cosmic]

Hola amigo STK500.
Por ahí si es la cosa, y me estaba preguntando, como programar este pin como I/O, pues en los PICs, se puede usar reset interno, y dejar el pin como I/O
No necesito mas entradas ADC, era sólo la curiosidad de que pasaba. Tu respuesta es muy lógica. .
Aunque según he leido, el micro se puede seguir programando con un programador HV, por puerto serie.
Ahora si estoy empezando con los AVR, pues me aburrieron los PICs, molestan mucho.

[cosmic]

Saludos a todos.
Estoy tratando de usar lectura de teclado matricial con la librería de Bascom.
pero al conectar el teclado de N mil formas no logro que funcione, he hecho conexiones como lo sugiere  la ayuda del bascom, peo nada, solo logro ver códigos repetidos para diferentes teclas, y en la mayoría de ejemplos, veo que usan de otra manera el teclado, programando y leyendo pin a pin del puerto, lo cual se me hace muy largo y engorroso.
Ahí dejo el código a ver que tengo mal.

'**************************************

Código: [Seleccionar]

$regfile = "m328pdef.dat"
 $crystal = 8000000

 $baud = 9600
 $hwstack = 40
 $swstack = 16
 $framesize = 32


 Dim Volt As Single
 Dim V As String * 4
 Dim Aux1 As Word
 Dim B As Byte


 Config Portc = Output

 Config Kbd = Portb



 Do

 B = Getkbd()
 If B < 16 Then
 Print B
 End If


Loop