Gameboy Camera, Probleme bei dem Auslesen des Bildes

[tobimc]

Hi Michi!

Nö!

Das wichtigste macht man mit CreateWindow(); aber das ist ja ein anderes Thema...
(Ein gutes Buch zum Thema ist "Windows Programmierung" aus der Microsoft Press.)

Nun will ich mal die Register schwingen, habe gerade noch die Franz-HA gemacht...

Liebe Grüße,
Tobi

[tobimc]

Hi!

Also: Mit den Registereinstellungen von DerInder kommt nur null null null null usw. raus. Aber es ist schonmal beruhigend, dass die CAM auf die Register reagiert...

Liebe Grüße,
Tobi

[tobimc]

Hi!

Ich habe jetzt mal das Register 1 und 2 auf 255 gesetzt. UND: Alles bleibt schwarz.

Also stimmt irgendwo noch was nicht.

Ich geh mal auf die Suche...

Grüße!

[roboter]

Wieviel Strom ziehen eure kameras eigentlich?

Wenn ich Kamera + Mega8515 + PCF8591 + 32K zusammen betreiben will, messe ich 2A!
Ohne Kamera ne ganze Menge weniger.


Ist da vielleicht meine Kamera kaputt?

[Rubi]

Wieviel Strom ziehen eure kameras eigentlich?

Wenn ich Kamera + Mega8515 + PCF8591 + 32K zusammen betreiben will, messe ich 2A!
Ohne Kamera ne ganze Menge weniger.


Ist da vielleicht meine Kamera kaputt?

Das schaut nicht gut aus.
Du mußt irgendwie einen kurzen in die Schaltung gebracht haben.
Mehr als 100mA darf das ganze einfach nicht ziehen, wenn überhaupt.

LG
Michael

[roboter]

Fehler gefunden: Ich habe meinen MAX232 zerstört...

Was würdet ihr eigentlich zu diesem Code Sagen?

'Gameboy Kamera

$regfile = "m8515.dat"                                      'ATmega8515-Deklarationen
$crystal = 4000000                                          'Quarz: 4 MHz
$baud = 9600

Declare Sub Register_laden(addr As Byte , Wert As Byte)

Dim Regaddr(8) As Byte
Dim Regwert(8) As Byte
Dim I As Byte

Dim Bild(16384) As Xram Byte
Dim Z As Word

'Register festlegen:
Regaddr(1) = 1
Regaddr(2) = 2
Regaddr(3) = 3
Regaddr(4) = 4
Regaddr(5) = 5
Regaddr(6) = 6
Regaddr(7) = 7
Regaddr(8) = 0

Regwert(1) = 128
Regwert(2) = 14
Regwert(3) = 6
Regwert(4) = 0
Regwert(5) = 1
Regwert(6) = 0
Regwert(7) = 1
Regwert(8) = 7

Config Scl = Portb.2
Config Sda = Portb.3
Config I2cdelay = 10

'A/D-Wandler einstellen:
I2cinit
I2cstart
I2cwbyte &B10010000
I2cwbyte &B00000000
I2cstop


Config Portb.0 = Output                                     'XCK
Config Portb.1 = Output                                     'Reset
Config Portb.4 = Output                                     'Sin
Config Portd.3 = Input                                      'read
Config Portd.4 = Output                                     'Load
Config Portd.5 = Output                                     'Start

Xckpin Alias Portb.0
Resetpin Alias Portb.1
Sinpin Alias Portb.4
Loadpin Alias Portd.4
Startpin Alias Portd.5
Voutpin Alias Portd.2
Readpin Alias Portd.3

Resetpin = 1                                                'Reset High
Xckpin = 1                                                  'XCK High
Loadpin = 0                                                 'Load Low
Startpin = 0                                                'Start Low

'Reset:
Waitus 5
Xckpin = 0                                                  'XCK Low
Waitus 2
Resetpin = 0                                                'Reset Low
Waitus 2
Xckpin = 1                                                  'XCK High
Waitus 2
Resetpin = 1                                                'Reset High
Waitus 2
Xckpin = 0                                                  'XCK Low

'Register Laden
Call Register_laden(regaddr(1) , Regwert(1))
Call Register_laden(regaddr(2) , Regwert(2))
Call Register_laden(regaddr(3) , Regwert(3))
Call Register_laden(regaddr(4) , Regwert(4))
Call Register_laden(regaddr(5) , Regwert(5))
Call Register_laden(regaddr(6) , Regwert(6))
Call Register_laden(regaddr(7) , Regwert(7))
Call Register_laden(regaddr(8) , Regwert(8))

'Start:
Waitus 2
Startpin = 1
Waitus 2
Xckpin = 1
Waitus 2
Startpin = 0

Do
   'Warten bis Bild fertig:
   Do
      Waitus 3
      Xckpin = 0
      Waitus 5
      Xckpin = 1
      Waitus 2
   Loop Until Readpin = 1

   'Bild lesen;
   I2cstart
   I2cwbyte &B10010001
   For Z = 1 To 16383
      I2crbyte Bild(z) , 8
      Xckpin = 0
      Waitus 4
      Xckpin = 1
   Next

   I2crbyte = Bild(16384) , 9
   I2cstop

   Xckpin = 0
   Waitus 1
   For Z = 1 To 16384
      Printbin Bild(z)
   Next
Loop

End                                                         'end program

Sub Register_laden(addr As Byte , Wert As Byte)
   'Registeraddr übertragen:
   For I = 3 To 1 Step -1
      Waitus 4
      Sinpin = Addr.i
      Xckpin = 1
      Waitus 4
      Xckpin = 0
   Next

   'Registerwert übertragen:
   For I = 8 To 2 Step -1
      Waitus 4
      Sinpin = Wert.i
      Xckpin = 1
      Waitus 4
      Xckpin = 0
   Next
   Waitus 4
   Sinpin = Wert.1
   Xckpin = 0
   Waitus 2
   Loadpin = 1
   Waitus 2
   Xckpin = 0
End Sub

Habe im Moment noch keine Möglichkeit das zu testen.

[tobimc]

Hi!

Ich werde deinen Code mit meinem Programm mal abgleichen.

Vllt. finde ich einen Fehler, sonst glaube ich eher, dass ich einen bei mir finde...

Liebe Grüße,
Tobi

[roboter]

Naja, ich denke eher das bei mir noch die Fehler sind

Hier ist zwar eigentlich das C-Forum und mein Code ist Bascom, aber ich denke das stört hier niemanden, oder?`Das Thema ist ja das selbe.

[Kjion]

Moin,

nachdem ich mich auf Anregung von Rubi hin mal wieder etwas mit der GBCam beschäftigt hab, kann auch noch ein bißchen Code zum ansteuern der Kamera bieten
Funktioniert bei mir auf dem Board aus dem Wettbewerb ( allerdings nicht das hier aus dem Downloadbereich, auf meiner Homepage gibts ein aktuelleres => Version 1.3 ).

Wenn jemand ein kleines Programm hat das die Bilder anzeigen lassen kann und zudem noch mit USB<>Seriell Wandlern zurechtkommt ( entweder WinXP oder Linux ), würde ich mich auch anbieten noch einen automatischen Belichtungsabgleich dafür zu schreiben.
Mein Programm das ich damals benutzt funktioniert nicht zusammen mit dem USB Wandler...

MfG Kjion

[pebisoft]

hallo, ihr müsst die gemessenen adc-werte vergleichen und einmal die grösste differenz heraussuchen. davon bastelt ihr dann den 3-byte langen rgb-wert für die jeweiligen programme zum darstellen. wenn ihr einen kleinsten wert von 229 habe und einen grössten wert von 258 dann nehmt ihr z.b. als basiswert der zwischen 220 und 260 und bastelt daraus den darstellungscode.
mfg pebisoft