Ralfs Selbstbau Projekt

[bluebird]

Nach gut einem Jahr, und viel Frust, habe ich es doch hinbekommen.
Mein Projektor läuft. Gut mit vielen kann ich noch nicht mithalten, aber ich wollte das auch nur denen mal vorstellen, die sich selbst mal trauen wollen. Hat nur(!) 240mW Rot und 80mW Grün, aber das Ergebniss hat mich doch entschädigt. Die Seite ist noch im entstehen, aber gucken schadet nicht. Meine "Versuche" habe ich auf meiner Homepage www.ralf59.de zur Besichtigung hinterlegt.

Und nicht meckern !

[wolle]

Schaut gut aus soweit. Du benutzt d4drive nachbauten für rot?
Warum hast du den grünen noch TTL moduliert?

[Langer]

Hm, das Layout der Page kenne ich doch irgendwo her

Sieht doch schon mal nicht schlecht aus, aber leider vermisse ich Beambilder, willst du da nicht nocht welche online stellen?

Habe ich das richtig gelesen, die Galvos hast du selbst gemacht?


Gruß, Langer

[tier]

Boooah... selbstgestricke Galvos

Reschpäckt !

Zeichnungen ?

*duckundrenn*

Gruß

Detlef

[gento]

Delphi sagt mir das Du max auf 20 K kommst ohne Farbausgabe.
Aber nur wenn der Mega 64 in ASM sehr gut Programmiert ist.

Da kräuseln sich mir die Haare:

Code: Alles auswählen

 
Procedure SetUpBaudRate;
Var Str : String;
Begin
Str := SetupForm.BaudSelect.Text;
If Str = '300' then FT_Current_Baud := FT_BAUD_300 else
If Str = '600' then FT_Current_Baud := FT_BAUD_600 else
If Str = '1,200' then FT_Current_Baud := FT_BAUD_1200 else
If Str = '2,400' then FT_Current_Baud := FT_BAUD_2400 else
If Str = '4,800' then FT_Current_Baud := FT_BAUD_4800 else
If Str = '9,600' then FT_Current_Baud := FT_BAUD_9600 else
If Str = '19,200' then FT_Current_Baud := FT_BAUD_19200 else
If Str = '38,400' then FT_Current_Baud := FT_BAUD_38400 else
If Str = '57,600' then FT_Current_Baud := FT_BAUD_57600 else
If Str = '115,200' then FT_Current_Baud := FT_BAUD_115200 else
If Str = '230,400' then FT_Current_Baud := FT_BAUD_230400 else
If Str = '460,800' then FT_Current_Baud := FT_BAUD_460800 else
If Str = '921,600' then FT_Current_Baud := FT_BAUD_921600 else
FT_SetupError := True;

 

Mach statt wenn String if then else usw besser Case of
Besser noch, unter '921,600' ist eh alles unbrauchbar , oder nur zum Testen geeignet.


Aber viel Glück & gute Wünsche Dir

lg Gento

[tier]

Jepp, Softwaretechnisch muss ich Gento da zustimmen...

Bins zwar kein Experte in Delphi, aber solche Kostrukte wie if ...else .. if ... else ... u.s.w. sind in der Programmierung ungefähr sowas wie beim Schifahrn der gelbe Schnee ...

Besser, weil vom Compiler optinierbar, sind hier Anweisungen wie 'Case of' , oder wie in 'meiner' Sprache 'switch'. Wenn Du mal Unterstützung bei Entwicklung brauchst .... ich stehe bereit. Nur nicht sauer sein wenn's nicht immer sofort eine Reaktion gibt.

Aber die Hardware ist schon klasse ...

Gruß

Detlef