Beiträge von tipfix

Hallo an alle

Ich habe eine für mich elegante Lösung gefunden bestimmte Bilder zu wiederholen. Und zwar nutze ich die zwei freien Ausgänge von PortB.

Data &B10001000 , &B00000000 , &B01000010 , &B00111110  '2. Bild  Ebene 1
Data &B10001000 , &B00000000 , &B00000010 , &B00111101  '2. Bild  Ebene 2
Data &B10001000 , &B00000000 , &B00000010 , &B00111011  '2. Bild  Ebene 3
Data &B10001000 , &B00000000 , &B00000010 , &B00110111  '2. Bild  Ebene 4
Data &B10001000 , &B00000000 , &B00000010 , &B00101111  '2. Bild  Ebene 5

Data &B10001000 , &B00000000 , &B01000010 , &B00111110 '2. Bild Ebene 1

Das Rot makierte ist bei mir PortB. Ich setze dort den Pin6 auf eins und makiere damit den Startpunkt für die Wiederholung.

Data &B00000000 , &B00001000 , &B00000000 , &B00011110  '5. Bild  Ebene 1
Data &B00000011 , &B10010100 , &B00111000 , &B00011101  '5. Bild  Ebene 2
Data &B11111100 , &B01100011 , &B00000111 , &B11111011  '5. Bild  Ebene 3
Data &B00000011 , &B10010100 , &B00111000 , &B00010111  '5. Bild  Ebene 4
Data &B00000000 , &B00001000 , &B10000000 , &B00001111  '5. Bild  Ebene 5

Data &B00000000 , &B00001000 , &B10000000 , &B00001111 '5. Bild Ebene 5

Und das Ende mit Pin7.

Das ganze wird dann hier ausgewerdet.

If Portb.6 = 1 Then
Anzahl = 3
Bildstart = Bild
Elseif Portb.7 = 1 Then
Bildstop = Bild
End If

Do


For Wiederholung = 0 To Anzahl


For Bild = Bildstart To Bildstop


If Bild > 8 And Bild < 500 Then
Zeit = 6
Else
Zeit = 20
End If


For Dauer = 0 To Zeit                                   ' Dauer des Bildes, Bild (50 ms) wird 20x angezeigt, also 1 Sekunde


For Ebene = 0 To 4                                      ' 5 Ebenen durchmultiplexen


Offset = Bild * 20                                         ' Offset Berechnen, 20 Byte pro Bild
Temp = Ebene * 4                                        ' 4 Byte pro Ebene
Offset = Offset + Temp


Portc = Lookup(offset , Muster)                      ' 1. Byte-Muster ausgeben
Offset = Offset + 1
Portd = Lookup(offset , Muster)                         ' 2. Byte-Muster ausgeben
Offset = Offset + 1
Portb = Lookup(offset , Muster)                         ' 3. Byte-Muster ausgeben
 If Portb.6 = 1 Then
   Anzahl = 3
   Bildstart = Bild
   Elseif Portb.7 = 1 Then
   Bildstop = Bild
 End If
Offset = Offset + 1
Porta = Lookup(offset , Muster)                         ' 4. Byte-Muster ausgeben
Offset = Offset + 1


Waitms 4                                                ' diese Ebene für 5 ms anzeigen


Next Ebene


Next Dauer


Next Bild


Next Wiederholung


Bildstart = Bild + 1  'Hier wird alles wieder korrigiert damit es normal weiter geht
Bildstop = 353
Anzahl = 0


Loop

Gut die Anzahl ist fest, aber immerhin.

Guten Abend

So da bin ich schon wieder.

Habe die erste Version meines Cube-Editors fertiggestellt. Er ist unter VB6 erstellt. Die Ausgabe-Datei die er erstellt liegt im Hauptverzeichniss. Bei mir also F:/. Das Prog ist auf 5x5x5 und meine Verkabelung ausgelegt. Wer will kann Ihn sich mal angucken.
Die Sourcen sind mit dabei.

Cube-Editor

Tach auch...

Zitat

...aber wer hat denn Montag früh um 3 Zeit für sowas...?!?!

Bin halt ein Nachtmensch. Ich sollte bestimmt mal eine Eule oder ein Uhu werden.

Zitat

Das mit dem Traffic ist schon so ne Sache

Ich passe da auf wie ein Heftelmacher. Gucke jeden Tag nach.

Zitat

So wie ich's geschrieben habe! - wie gesagt, ändere erst mal einfach diese Schleife auf For Ebene = 0 to 7, nichts weiter, und schau' was passiert!

Gut mach ich mal. Hab ja jetzt einen Cube den man auch bei Tageslicht gut erkennt.

Zitat

Aber wenn Dein Kumpel C kann, dann zeig' ihm doch einfach mal das Bascom-Programm - das dürfte für ihn kein Problem sein, das in C zu übersetzen

Hab ich ihm auch gesagt. Das schlimme daran ist das er Informatikstudent ist und nächsten Monat fertig ist.

Schönen Tag allen

Hallo Pesi

Zitat

Tipp: lege die 2 Bilder einfach mal hintereinander in den Data-Zeilen ab und lass' die Ebenen-Schleife statt von 0 bis 4 jetzt von 0 bis 7 zählen... dann hast Du schon mal einen Anfang, damit kannst Du schon mal 3 Stufen darstellen...

Wie meinst Du das? Und was anderes, mein Kumpel hat sich mit dem Cube Virus angesteckt. Er würde das ganze aber in C machen. Damit scheide ich als Helfer aus. Machst Du es in C? Wenn ja, kannst du mir bitte Dein Prog zukommen lassen?

Danke der Tipfix

Montag früh 2:35Uhr. Cube V2.0 ist fertig und funktioniert.

Hier noch das Video . Das Video wirkt etwas hell, aber die Kodak bekommt es nicht besser hin. Auch die Farbe trifft es nicht ganz, er leuchtet Grün.

So Freunde der Nacht.

Cube V2.0 ist fertig. Nur noch anschließen und testen.

Hier schon mal Bilder...

ACHTUNG: Der alte Bilder-Link geht nicht mehr.

Mach ich wegen dem Traffic auf meiner Seite. Sind zwar 50 GByte pro Monat, aber das kann schnell gehen.

Hallo

Nur zur Info, bin an Ebene 4 meines Cube 2 drann. Hoher Aufwand aber es lohnt sich. Sieht gut aus bis jetzt.

Danke. Aber ersmal der neue Cube. Dann der "CUBE-Editor" und dann...

Ist das ein Akt so was nach zurüsten? Wäre für mich auch noch ne Option.

Zitat

ausserdem kann mein Cube mittlerweile auch schon 4 Helligkeitsstufen pro LED

Oh, sehr interesant. Ne Art PWM auf Softwarebasis.

Zitat

Der Tipfix macht einen für seinen 5x5x5 weil er nicht warten wollte und ich fang in den nächsten Tagen mit 3x3x3 an.

Muß nur noch einer 4x4x4 machen und alle sind Glücklich.

Mit meinem neuen Würfel hab ich mich auf etwas eingelassen. Aber sieht schon mal nicht schlecht aus.

Zitat

Ja, wie jetzt, tipfix - programmierst Du nen "Cube-Editor" für den PC...?!??!

Ja, ich brauch einen. Die Muster von Hand in die Datazeilen eintragen ist derart nervig.

Zitat

das wollte doch der Fightclub machen...?

Der macht auch einen, oder will einen machen. Ist aber nicht schlimm, da hat man dann die Wahl.

Zitat

Könnte man das dann auch für 3x3x3 umbauen, und mit ".db" statt "Data"?

Erstmal muss meiner mit 5x5x5 laufen. War schon ein krampf das der mir die Zeilen ausgibt. Damit hab ich die Nacht verbracht.

Zum Cube Ebene1 und Grundplatte sind fertig.

Bin noch dabei. Immerhin ist der Grafische Teil fertig. Und es hat mir schon eine Data-Zeile ausgegeben die auch in Bascom funktioniert.

Nein, nein, ich machs als Zip. Ist doch auch wurst. Aber Du sollst Sie schon sehen

Dann mach ich Sie als Zip. Obwohl ich Rar-Fetischist bin. Warum kannst Du keine Rar entpacken? Ist doch nichts exotisches.

Guten Tag Ihr Fleißpelze

Ist ja schon unheimlich wie Ihr Euch rein hängt. Schon mal Danke.

Aber mal was anderes, heute sind meine 200 12.000mcd Led's in Grün angekommen. Dreimal dürft Ihr raten was ich jetz mache.

Ich mach wieder reichlich Bilder und stell Sie rein. Der neue Cube soll schöner werden als der erste.

Der wird aber nicht zerlegt.

Melde mich wenn ich so weit bin. Es ist jetzt laut meiner Nixie 16:03.

So Freunde der Nacht

Habe die Bilder mal als Rar gepackt und hoch geladen. Ist einfacher. Das Rar ist garantiert Virenfrei.

Hier ist es.

Hallo Pesi

Also auf Anhieb gings nicht. Musste ein bisschen was ändern.

1. Dim Bild As Word --> Dim Bild as byte
2. Bild = Lookup (programm , Temp1) --> Bild = Lookup (Temp, programm)
3. Dauer = Lookup (programm , Temp1) --> Dauer = Lookup (Temp, programm)

Da geht es.

Guten Morgen Pesi

Zitat

Wahnsinn, so viele Bilder (hab' mal alle mühsam runtergeladen, iwie ist das mit dem ftp-Verzeichnis nicht so toll...)

Wollte Sie nur mal zeigen. Hättest Du was gesagt, hätte ich ein Paket für Dich geschnürt.

Zitat

was ist das eigentlich für Kupferdraht...?

Ganz normales Kupferkabel 1,5mm². Isolation abgemacht und lang gezogen damit er gerate wird.

Zitat

Und die ISP-Konstruktion sieht ja auch interessant aus

Ich hatte keinen Stecker und Buchse.

Auf klare Led's steig ich um wegen der helligkeit. Zum streuen sind ja die Heissklebesticksstücke drauf, was auch das hochläuchten verhindert.