Kameramodul

[radbruch]

Hallo

Da ich sehr selten in Bascom programmiere (zuletzt beim Nunchuk) fehlen mir natürlich ein paar Grundlagen. Immerhin hat es trotzdem auf Anhieb funktioniert (die Bascom-Profis dürfen natürlich lachen):

'Analoge Kamera an ATMega32 (RP6)                                    30.3.09 mic


$regfile = "M32def.dat"                                     ' RP6 mit Mega32
$crystal = 8000000                                          ' taktet mit 8MHz
$baud = 38400                                               ' Loader-Baud

Dim X As Byte
Dim S As String * 30                                        'max 30 Positionen

Config Adc = Free , Prescaler = Auto , Reference = Avcc     ' Dummy-Setup!!!

' ADC interne Referenz 2,56V, Ergebniss linksbündig, Kanal ADC4 (E_INT1)
' Admux =(1 << Refs1) |(1 << Refs0) |(1 << Adlar) | 4

Admux = 0
Set Admux.refs1
Set Admux.refs0
Set Admux.adlar
Set Admux.2                                                 'Kanal 4
'Set Admux.1
'Set Admux.0

' setze free running triggern
'  Sfior =(0 << Adts2) |(0 << Adts1) |(0 << Adts0)
Sfior = 0

' kein Interupt, Wandler einschalten, prescaller /2
'  Adcsra =(0 << Adie) |(1 << Aden) |(0 << Adps2) |(0 << Adps1) |(1 << Adps0)
' Autotriggern bedeutet jetzt free running aktivieren, altes Flag löschen
'  Adcsra | =(1 << Adate) |(1 << Adif)
' Initialisierung starten
'  Adcsra | =(1 << Adsc)

Adcsr = 0
Set Adcsr.aden
Set Adcsr.adps0

Set Adcsr.5                                                 'adate
Set Adcsr.adif

Set Adcsr.adsc

Start Adc

Do
'Cli();
   Disable Interrupts
' / / Auf Bildanfang Warten
'Do
   Do
' {
'  i=0;
   X = 0
'  while (ADCH > 30);
      While Adch > 30
      Wend
'  while (ADCH < 50) i++;
      While Adch < 50
         Incr X
      Wend
' } while (i < 40);
   Loop Until X > 40
'   // die ersten 50 Zeilen überlesen
'  i=50;
   X = 50
' while (i--)
   While X > 0
' {
'  while (ADCH > 30);
      While Adch > 30
      Wend
'  while (ADCH < 50);
      While Adch < 50
      Wend
      Decr X
   Wend
' }
'   // warten auf hell-dunkel-Übergang
'   i=0;
   X = 0
' while (ADCH > 70) i++;
   While Adch > 65                                          'Hell/Dunkel-Schwelle
     Incr X
   Wend
'   sei();
   Enable Interrupts

   Print X ;
   S = Space(x)
   Print S;
   Print "***"
   Waitms 200
Loop

End

So kann ich im Moment ca. 23 Positionen des Striches unterscheiden:
Bild hier  
http://www.youtube.com/watch?v=H-p-W9r-_Vk

Nett, oder?

Gruß

mic

[Vitis]

die auskommentierten Zeilen machens dann doch etwas unübersichtlich ...
hier mal etwas gekürzt und bereinigt :

'Analoge Kamera an ATMega32 (RP6)                                    30.3.09 mic


$regfile = "M32def.dat"                                     ' RP6 mit Mega32
$crystal = 8000000                                          ' taktet mit 8MHz
$baud = 38400                                               ' Loader-Baud

Dim X As Byte
Dim S As String * 30                                        'max 30 Positionen

Config Adc = Free , Prescaler = Auto , Reference = Avcc     ' Dummy-Setup!!!

Admux = 0
Set Admux.refs1
Set Admux.refs0
Set Admux.adlar                                             'ausrichtung links (adch) für 8-bit
Set Admux.2                                                 'Kanal 4
'Sfior = 0
' eventuell besser für andere Funktionen:
Sfior = Sfior And &B00011111                                ' adts2=0 adts1=0 adts0=0
Adcsr = 0
Set Adcsr.aden                                              'ADC Enable
Set Adcsr.adps0                                             ' ADC Prescaler Select Bits (2)

Set Adcsr.5                                                 'adate (ADC Auto Trigger Enable)
Set Adcsr.adif                                              'ADC Interrupt Flag

Set Adcsr.adsc                                              'ADC Start Conversion

Start Adc

Do
   Disable Interrupts
' / / Auf Bildanfang Warten
   Do
   X = 0
      While Adch > 30
      Wend
      While Adch < 50
         Incr X
      Wend
   Loop Until X > 40
   X = 50
   While X > 0
      While Adch > 30
      Wend
      While Adch < 50
      Wend
      Decr X
   Wend
   X = 0
   While Adch > 65                                          'Hell/Dunkel-Schwelle
     Incr X
   Wend
   Enable Interrupts
   Print X ;
   S = Space(x)
   Print S;
   Print "***"
   Waitms 200
Loop

End

[thewulf00]

Sieht gut aus.
Hier wird keiner lachen, solange es funktioniert!

Scheint nur etwas langsam zu gehen? Liegt das an Bascom oder anderen Einflüssen?

[Mons]

Huhu, grabt den Thread mal wieder aus; istt ein interessantes Thema!