Gameboy Camera, Probleme bei dem Auslesen des Bildes

Liste der Anhänge anzeigen (Anzahl: 1)

Hi!

Ich habe mein kleines Programm zur Darstellung der COM-Daten fertig.

SO sieht es aus:
Bild hier

Es zeigt bereits ein Bild:
Bild hier
Die Frage ist: Ist das ein 'normales' GB-Cam Bild? Sind nur die Register falsch eingestellt, oder liegen noch ansteuerungsfehler vor?
Das programm braucht auch recht lange, bis alles da ist...

Das sind die ADC-Werte; jeweils mit semikolon getrennt, die TXT-Datei enthält die geloggten Zeichen meines Programms.
(Ihr müsst die Datei herunterladen ("Ziel speichern unter"), so lässt sie sich leider nicht darstellen.)

Könnt ihr damit was anfangen?

Ganz liebe Grüße,
Tobi

Hi Tobimc,
was hast du für ein Programm verwendet? Visual Basic oder Visual C++?
hast du den Programmcode von http://www.juliprograms.de/ verwendet?
Gruß Michi

hallo tobi , mail mir mal deine registereinstellungen, die du hast. meine werte kommen von ca 234 - 263.
diese wertdiffrenz muss man jetzt so aufteilen, das 4 grauwerte entstehen und dann als 3 rgb-farben-werte reinsetzen. ist nicht einfach. vielleicht kann ein anderer von diesem thema mal seine umwandlungsroutine darlegen als beispiel. die bilddatenrate wird sich bei 1 bild pro ca 8 sekunden halten. wird auch mit dem sram nicht schneller, weil ja auch noch die anderen daten am robby ausgewertet und umgesetzt werden müssen. er hat ja auch noch andere sensoren. ich übertrage zur zeit mein cmoscambild über funk zum pc. kann es auch schon als bmp-bild darstellen und auswerten!!!! wenn das programm zur auswertung fertig ist. einmal habe ich auf der einen seite das original-capturebild im visualbasic-fenster und daneben stelle ich ein bild zur auswertung dar, was ich gerade sozusagen geschnappt habe aus der capture-originaldarstellung. ist schon lustig, wie einfach das geht. habe garnicht gewusst, das man die "avicap32.dll" von der wintv-karte mit dem sendbefehl komplett auswerten
und steuern kann. alle wintv-befehle kann man mit visualbasic
beeinflussen. ich glaube das ist eine 2. lösung um den robby über eine bildauswertung zu steuern. der pc sendet dann über die easy-funkmodule die steuerdaten für den robby. das heisst auch , mein küchenbrettroboter wertet seine eigenen sensoren weiterhin sofort aus. ich habe auf dem pc mein steuerpult zum eingreifen und der pc übernimmt die bildauswertung ohne mein eingreifen. mein robby ist wie ein marsmobil, wenn irgendetwas versagt greife ich von hand ein, damit das raumschiff nicht im weltall verloren geht. der mensch wirkt immer etwas mit, ist egal wo die weltraumsonden und forschungsroboter zum einsatz kommen.
sogar zum erforschen der pyramiden hat man robbys sogar an der nabelschnur.
ich verwende visual-basic 5.0 pro deutsch. ab version5.0 wird echter exe-code erzeugt. nebenbei benutze ich auch noch die freewaresprache "bcx to c" ist schneller in der auswertung als visual-c++. habe jetzt bei bcx to c nach mehreren tagen endlich auch das capturebild im fenster darstellen können. vielleicht benutze ich jetzt erstmal bcx-to-c, weil ich hier dann auch noch drehbare sprite habe (ohne ein bild mit 360 drehungen anzufertigen), rotationskörper in 3ds und mesh (lassen sich sehr einfach herstellen). die x-bilder für 3directx lassen sich schwer herstellen. ich habe in visualbasic noch nicht geschafft, ein x-körper im fenster darzustellen und um allen 3 achsen drehen zu lassen. ich möchte mal meinen robby auf dem pc im virtuellen raum fahren lassen, den ich vorher mit der camera fotografiert habe. in bcx to c kein problem. tobi hatte ich schon einmal eine demorotazion geschickt. der basic-code, der dann in c umgewandelt wird ist zwar in der textdarstellung sehr gross, aber als exe ist es nur noch ca 7kbyte plus ein mathemodul von 140kbyte. es reicht im ordner aber nur dieses eine modul für alle exedateien. die dll-dateien brauchen bei bcx-to-c nicht mehr mitgeschleppt werden, diese sind im exeprogramm mit verarbeitet und es ist reiner c-code der zu einer exe verarbeitet wird.
mfg pebisoft

Hi!

Die Software ist in C geschrieben! Und Nur mit VC++ compiliert, das ist aber wurscht, geht mit jedem Win32-Fähigen Compiler.

@pebisoft:
Ich möchte das ja ETWAS anders machen... :D (*psssttt!!!*)
Du kannst aus einem S/W Bild kein Farbbild mehr machen. Allerhöchstens Falschfarben. Ein S/W-Bild enthält keinerlei Farbinformationen.

Meine Registereinstellungen:

Regadr = 0
Regvalue = 128

Regadr = 1
Regvalue = 12

Regadr = 2
Regvalue = 4

Regadr = 3
Regvalue = 0

Regadr = 4
Regvalue = 1

Regadr = 5
Regvalue = 0

Regadr = 6
Regvalue = 1

Regadr = 7
Regvalue = 7

Original-Quellcode (BASCOM).
Regadr ist die Adresse, Regvalue ist der Wert. Jeweils ein block gehört zusammen, dazwischen kommen noch die Load-Funktionen, die habe ich aber der Übersichtlichkeit wegen weggelassen.

Trozdem dass VB exes kreiert, ist die exe immerncoh von der rundingsbums.dll abhängig, und nicht so schnell!

I LOVE C... :D

Achso und @michaelb:
Nein, ich habe mein eigenes geschrieben. Ist aber glaube noch n Bug drinne! Wie gesagt, in C programmiert.

Liee Grüße,
Tobi

Hi!

Noch was:
Ich habe genau dieses Problem hier:
https://www.roboternetz.de/phpBB2/ze...ag.php?p=86746

Weis jemand, woran das liegen kann?
Könnte es sein, dass die Register falsch/ungenügend geladen werden?

Liebe Grüße,
Tobi

@tobimc:
probier mal folgende Werte:

Regadr = 0
Regvalue = 0

Regadr = 1
Regvalue = 7

Regadr = 2
Regvalue = 54

den Rest so lassen, hat bei mir (bei entsprechender Beleuchtung) die ersten Bilder geliefert :)

Hi!

OK, mach ich, aber erst nach dem Klavier... :D

Jemand ne idee zu dem HIGH-Problem?

Liebe Grüße,
Tobi

Zitat:

Zitat von tobimc

Hi!

Noch was:
Ich habe genau dieses Problem hier:
https://www.roboternetz.de/phpBB2/ze...ag.php?p=86746

Weis jemand, woran das liegen kann?
Könnte es sein, dass die Register falsch/ungenügend geladen werden?

Liebe Grüße,
Tobi

Hallo Tobi

Wärend Du darauf wartest das read low geht, taktest du die clock weiter ?
etwa so in Pseudo code:
while read(high)
{
set_GbCamClock(high);
wait_1ms;
set_GbCamClock(low);
}

Ich hatte (habe) relativ viele Problem mit meinem Board, aber das hat bei mir immer gefunzt.

Hi!

klar! Es kann nur sein, dass die Taktabstände zu groß sind, denn ich gebe während einer HIGH-Phase des Taktes meine Daten an den PC durch...

So; jetzt aber ab zum Klavierspeieln!!

Liebe Grüße,
Tobi

Hi Tobi,
hab noch ne Frage wie kannst du mit reinem Quelltext ne Benutzeroberfläche erzeugen? Braucht man da nicht Visual C++ um die Oberfläche zu erstellen?
Gruß Michi

Hi Michi!

Nö!

Das wichtigste macht man mit CreateWindow(); aber das ist ja ein anderes Thema... :D
(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... :D

Liebe Grüße,
Tobi

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... :D

Liebe Grüße,
Tobi

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!

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? :-s

Zitat:

Zitat von 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? :-s

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

Fehler gefunden: Ich habe meinen MAX232 zerstört... ](*,)

Was würdet ihr eigentlich zu diesem Code Sagen?

Code:

'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.

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... :D

Liebe Grüße,
Tobi

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

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.

Liste der Anhänge anzeigen (Anzahl: 1)

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

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

Also mein Code funktioniert schonmal nicht.
Mein Readpin geht nicht auf High :-s

Hi!

@pebisoft:
Hm. Die Differenzen sind wirklich sehr gering.
Mit wievielen Bit liest du die Camera aus? Denn 260 kann man mit 8Bit nicht darstellen... :D (Und über die COM nicht übertragen.)

@roboter:
Kenn ich... :D

Hm. Irgendwo hab ich nen BUG.

Liebe Grüße,
Tobi

Weiß denn einer wo mein Fehler liegt? Vielleicht Register falsch? Timing falsch?

Ich habe das jetzt zum überprüfen mit dem Readpin so gemacht, das ich an Portd.2 eine LED habe. Die schalte ich am Anfang aus.
Nach dem >Loop Until Readpin = 1< Schalte ich die LED dann an. Nur leider geht sie nicht an...

Hi!

Readpin kann auch nicht gelesen werden, weil er auf einen PORT-Register verweist.
Du musst aber, um daraus zu lesen, mit einem PIN-Register aliasen... :D

Hab ich auch schon gemacht.!

@Kijon:
Ich habe gerade einen massiven Bug in meiner (Anzeige-)Software gefunden. Bin gerade dabei, den Fehler zu suchen.

Viele liebe Grüße,
Tobi

Moin,
als Anzeigeprogramm hab ich "damals" das von Dafydd Walters benutzt. http://www.seattlerobotics.org/encod...205/gbcam.html
Ist zwar in Java aber es lief auf anhieb :)

Nachtrag:
ein C-Programm für die Belichtungseinstellung gibt es hier: http://www.motorobots.org/ hier unter downloads die win oder linux Version laden. Die Source für die Belichtung ist unter exposure.c zu finden. Falls jemand eine AVR-Asm Variante davon haben möchte, einfach ne PM an mich.

Hi!

Meins läuft jetzt auch!
Kleiner Bug... was vergessen... *ARGH*

Baue gerade noch ein bisschen das GUI um...

Liebe Grüße,
Tobi

@tobimc: Besten Dank! An solchen blöden Fehlern such ich manchmal stundenlang... ](*,) ](*,) ](*,)

Jetzt brauch ich zum testen noch ein Anzeigeprogramm.
Das von http://www.seattlerobotics.org/encod...205/gbcam.html krieg ich irgendwie nicht zum laufen :-s
Weiß jemand noch ein andres?

Richtig funktionieren tuts sowieso noch nicht. Ich bekomme im Terminal immer nur diese Werte:

Code:

000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 000 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 001 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 002 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 003 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 004 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 005 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006 006

Das geht dann so weiter bis 64.
Naja, ich werde dann nochmal weiter Fehler suchen O:)

hallo, das anzeigeprogramm ist für eine cmoscam. sowas habe ich auch mit visualbasic 5.0 erstellt für meine cmoscam auf dem robby um die bilder auf dem pc auszuwerten für die hinderniserkennung des robby. das läuft bei mir.
aber ein auswerteprogramm für die 16000 adc-werte fehlt mir noch. bin noch am tüfteln.
hallo tobi, kannst du deine 16000 daten schon in pixel umwandeln.
hallo roboter, welches c-programm hast du genommen für die gameboycam, oder andersherum, welche adc-werte hast du bekommen.
mfg pebisoft

hallo tobi, die zahlen über 255 kann man an vref des avr noch runterregeln, das sie unter 255 liegen. wichtig ist, das eine helligkeitsschwankung auf dem bild auch als adc-wert-schwankung erkennbar ist.
mfg pebisoft

Hi pebisoft

Warum C-Programm?
Ich will versuchen das mit Bascom hinzukriegen.

Mein Code habe ich ober schonmal gepostet, der ist aber nicht mehr aktuell:

Code:

'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 Config Portd.2 = Output Portd.2 = 1 Waitms 1000 Portd.2 = 0 Waitms 1000 Portd.2 = 1 Xckpin Alias Portb.0 Resetpin Alias Portb.1 Sinpin Alias Portb.4 Loadpin Alias Portd.4 Startpin Alias Portd.5 Readpin Alias Pind.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 '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; For Z = 1 To 16383 I2cstart I2cwbyte &B10010001 I2crbyte Bild(z) , 9 I2cstop Xckpin = 0 Waitus 4 Xckpin = 1 Next Xckpin = 0 Waitus 1 For Z = 1 To 16384 Printbin Bild(z) Next Do Loop End 'end program Sub Register_laden(addr As Byte , Wert As Byte) 'Registeraddr übertragen: For I = 1 To 3 Xckpin = 0 Sinpin = Addr.i Waitus 3 Xckpin = 1 Waitus 3 Next 'Registerwert übertragen: For I = 1 To 8 Xckpin = 0 Sinpin = Wert.i Waitus = 3 Xckpin = 1 Waitus = 3 Next Loadpin = 1 Waitus 2 Xckpin = 0 Waitus 4 Loadpin = 0 Sinpin = 0 End Sub

Diesen Code habe ich jetzt auf dem Controller.
Die Schleife mit dem Printbin liefert mir im Terminalprogramm die Werte von oben.

Liste der Anhänge anzeigen (Anzahl: 1)

Hi!

Also! Mein Anzeigeprogramm ist jetzt 'entbuggt'.
Funktioniert recht gut, denk ich.

Hier eine kleine Beschreibung:

Das Programm erstellt 2 Logfiles:
C:\log1.txt (Enthält alle gezeichneten Bytes)
und
C:\log2.txt (Enthält ALLE EMPFANGENEN Bytes.)

Die Bytes des Bildes (ADC-Werte) müssen ohne Vorankündigung gesendet werden. Hierbei gilt: 9600 Baud, 8Bits, Keine Parity, 1Stopbit (8N1).
Die Bytes müssen alle exakt 8Bit haben (ADC-Werte mit 8Bit!),
Sie müssen alle beim Senden durch einen Semikolon (ASCII 59) getrennt werden, also so:
<ADC-Wert-1>;<ADC-Wert-2>; usw.
z.B:
213;214;13;

Eine Aufnahme macht man so:
(Reset des sendenden AVRs gedrückt halten)
- Connect anklicken (Connecten zum COM-Port)
- GO! anklicken (Lese-Sequenz wird gestertet)
In dieser Phase ist das Programm nichtmehr ansprechbar, und wenn der Bildschirmschoner oder sonstwas kommt, ist das Bild WEG!!
- RESET loslassen, sodass der AVR die Werte ausgibt.
- Ausgabe abwarten
- wenn Ausgabe fertig, Disconnect anklicken (disconnecten vom COM-Port)

Sollte sich trotzdem noch ein Bug eingeschlichen haben (meine Kammera sendet z.Zt. nur Weis... :D) bitte hier posten, PN oder EMAIL!

Uff, das war viel... :D

:!:_Wäre nett, wenn ihr eure Meinung über das Tool sagen würdet!_:!:

Viele liebe Grüße,
Tobi

- Für Rechtschreibung keine Haftung

hallo tobi, wie wäre es , wenn man die ganzen 16000 bytes zum pc überträgt in eine textdatei und dann von deinem programm in aller ruhe aufrufen lässt.
das wäre für die testphase einfacher. weil man evtl bytes von hand einmal ändern kann um auch zu prüfen, wie dein programm die einzelnen unterschiedlichen werte darstellt.
mfg pebisoft

Zitat:

Zitat von tobimc

Wäre nett, wenn ihr eure Meinung über das Tool sagen würdet!

Das erste was mir aufgefallen ist, das man keinen COM Port einstellen kann ( mein USB<>Seriell Wandler liegt auf COM Port 7 zum Beispiel ). Von daher ists schwierig mit dem testen :-(

MfG Kjion

Hi!

@pebisoft:
Tut das Programm doch! C:\log2.txt . Dahinein werden die ankommenden Werte geschrieben.

@Kjion: Hm. Das ist halt mit den Textfeldern so ne Sache von wegen malloc und so. Ich schau mal, was sich machen lässt...

Schon jemand was brauchbares herausbekommen? pebisoft?

Viele liebe Grüße,
Tobi

Ich habe meinen Fehler nun etwas eingekreist.
Der Readpin geht ja normalerweise von LOW auf HIGH wenn ein Bild fertig ist.
Nach 16384 Takten ist das Bild ja normalerweise fertig an dem Voutpin ausgegeben worden und der Readpin sollte wieder auf LOW gehen.

Tut er bei mir aber nicht.

Habe, nachdem der Readpin von LOW auf HIGH geht, mal folgenden Code probiert:

Code:

Do Waitus 4 Xckpin = 0 Waitus 4 Xckpin = 1 Loop Until Readpin = 0 Print "Readpin wieder auf LOW";

Ich kann jetzt warten solange ich will, mein Readpin geht nicht mehr auf LOW. Weiß einer woran das liegen könnte?

Hi!

Hahm. GENAU dieses Problem habe ich auch!
Diese Gameboy-Cams sind auch nicht mehr das, was sie mal waren... :D

Ich habe in meiner Software einen weiteren bug entdeckt, desweiteren programmiere ich gerade eine Routine, die das Bild immer neu zeichnet.
Aber es funktioniert noch nicht! Access Violation...

Die von Kjion gefoerderte COM-Verstellung ist auch schon vorgesehen.

Liebe Grüße,
Tobi

Schau mal hier https://www.roboternetz.de/phpBB2/ze...816&highlight=
Da hat jemand das gleiche Problem. Hab ihm schon ne PM geschickt, ob er ne Lösung gefunden hat. Wenn ich ne Antwort kriege, schreib ich sie hier rein.

hallo tobi, meine werte aus dem adc liegen jetzt zwischen 224 bis 251.
im terminalprogramm erscheinen sie bei mir auch wie oben angegeben mit semicolon. also am pc kommen die werte richtig (erscheinen auch auf meiner avr-platine im lcd-display) mit semicolon an.
in deiner datei stehen abr nur werte zwischen 10 und 64, wobei ca 85% über 45 liegen. es erscheint in deiner datei kein wert über einhundert, das wundert mich. mich würde einmal interessieren, von welcher basic aus du die pixel berechnen tust (4 grauwerte).
1. welchen umrechnungsfehler macht dein programm beim speichern der daten
2. wo liegt deine berechnungsbasis für die werte der 4 graustufen.

kannst du dein programm nicht so schreiben, das man den mindestwert und den höchstwert reingibt, den jeder für sich ermittelt beim probelauf.
sonst wird man nicht in der lage sein mit deinem programm das bild zu sehen. jede kleien änderung am spannungspotiential des avr verändert die adc-werte. auch die bautoleranz der avr mit adc oder andere i2c adc verzerren das bild.
ca bei 16300byte schaltet meiner auf 1, ca 86 byte lang und dann fängt er wieder an zu arbeiten, bild für bild.
mfg pebisoft

Zitat:

Zitat von pebisoft

meine werte aus dem adc liegen jetzt zwischen 224 bis 251.

Dann hast du deine Kamera nicht richtig kalibiert. Vielleicht ist der Verstärkungsfaktor zu groß ??

Hier mal ein Auszug aus einem Testprogramm von mir:

Code:

Min : 12 Max : 240 Mittelwert: 71 Standartabweichung : 57

Unter dem Link den DerInder gepostet hatte ( http://www.seattlerobotics.org/encod...205/gbcam.html ) gibts ein ganz nettes Programm dafür. Ich hab das eben für avr-gcc umgeschrieben und auf mein Board angepasst und es funktioniert sehr gut ;-).
Code gibts demnächst wenn ich noch ein bißchen daran rumgebastelt habe bzw. wer nicht warten will kann mir auch gerne ne Mail schreiben...

MfG Kjion