Beiträge von MisterTitan

ich will ja nix damit machen, War ja bloß ne Frage .

Gruß Maik

ma ne Frage, ich hab gestern mein altes Motorola E398 ausgeschlachtet und mir fiehlen einige gute Sachen in die Hand wie Display und Kamera.
Kann man aus den Dingen was bewerstelligen und wenn ja woher bekomm ich die Schaltpläne für Display und Kamera her.

Gruß Maik

Haste mal geguckt nach deinen Codes, ich habe auch die ganze Zeit probiert was brauchbares zu erstellen aber es ist nichts daraus geworden.

Gruß Maik

da passiert einfach nichts, es wird halt nur wirres Zeug auf meiner Matrix angezeigt, es ist aber nichts von einer Diagonalen zu sehen.

irgenwie funktioniert das nicht so wirklich

Also, jetzt mal wieder zu der Diagonalen, wie funktioniert das jetzt so das ich die Komplete Diagonale wandern lassen kann.

Gruß Maik

Bei mir hab ich jetzt 49 Superhelle gelbe LED's dran und leuchten auch noch hell genug , der 2313 wird bei mir auch nicht warm oder so.

Gruß Maik

mit den Code leuchtet die Diagonale LED für LED, ich wollte aber das sie als ganzes leutet, das dürfte aber nicht so einfach sein.

gruß Maik

dann leutet ja nur eine Led ich möchte aber das dann die ganze Diagonale leutet, soweit wie ich das weiß, geht das garnicht so einfach. Weil wenn ich ja mein portd auf 0 gestellt hab, das ich die ganzen Zeilen aktiviert hab und ich dann Portb auf 1 setzt , leuchten ja dann alle Led's.

Maik

Hast du eine Ahnung wie ich in meiner Matrix Diagonale darstellen kann, also praktisch ein Strich der Diagonal leutet, ich hoffe du kannst mir helfen.

Gruß Maik

JA. stimmt es geht jetzt zu compilen, aber es ergibt irgnewie keine Funktion, bei mir leuchten nur ein paar LED's und mehr nicht.

Gruß Maik

Ich hab jetzt eine Funktion hin bekommen. Funktionieren tut die auch.

Zitat

$regfile = "2313def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40

Config Portb = Output
Config Portd = Output
Dim Warten As Byte
Dim A As Byte

Do
Portd = 0
Portb = Rnd(255)
Waitms 15
Loop[code:1]

Gruß Maik[/code:1]

Alles anzeigen

Der code geht irgendwie nicht, er bringt mir 4 Fehler.

[code:1]$regfile = "2313def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40

Config Portb = Output
Config Portd = Output
Dim Warten As Byte
Dim A As Byte

Do
Portd = 0
PortB = Rnd(255)
if __rseed < 1500 then
__rseed = __rseed + 2
Else __rseed = 0
End If
Waitms 100
loop[/code:1]

Gruß Maik

So viele RGB leds wollt ich eigentlich nicht verbauen, 16 LED's insgesamt, also 4 Grün, 4 Rot, 4 Gelb, 4 Blau und die wollt ich dann wie du sagst chaotisch durcheinander leuchten lassen, Faden muss nicht unbedingt sein, ich hab es mir eigentlich nicht vorgenommen sowas mit reinzu machen. Ganz normales flashen würde mir auch reichen.

Gruß Maik

Na wie soll ich das sagen, die sollen einfach wie in der Disko zum Beispiel automatisch leuchten, wild durcheinander.

Gruß Maik

Soweit wie ich das weiß, gabs die mal aber ob es die Heute noch gibt kann ich dir nicht.

Aber mal was anderes , ich habe jetzt vor in meinen Zimmer ringsum an der Decke eine Leiste mit LED's zubastel und das ganze mit einen Attiny12 oder 15 anzusteuern, kann man da irgend wie was schreiben das er auf irgend eine LED automatisch zuschalten tut, so wie beim CD-Radio das Radom.

Gruß Maik

ich würde dir ja gerne helfen, aber ich hab zu wenig erfahrung damit, ich weiß gerade mal wie jeden ausgang ansteuere und lauflichter schreibe, ansonsten naja.

Gruß Maik

jetzt hab ich es hinbekommen, es funktioniert.

[code:1]$regfile = "2313def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40

Config Portb = Output
Config Portd = Output
Dim Warten As Byte
Dim A As Byte
Dim B As Byte

Do
B = 1
While B < 128
Portd = Not B
A = 1
While A < 128
Portb = A
A = A * 2
Waitms 10
Wend
B = B * 2
Wend
B = 64
While B > 0
Portd = Not B
A = 128
While A > 0
Portb = A
A = A / 2
Waitms 10
Wend
B = B / 2
Wend

Loop [/code:1]

Gruß Maik

jetzt geht alles, läuft schön von oben links nach unten rechts, aber wie mache ich das er wieder zurück läuft.

jetzt geht es, bloß spalte 5 geht in allen Zeilen nicht.

[code:1]$regfile = "2313def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 10
$framesize = 40

Config Portb = Output
Config Portd = Output
Dim Warten As Byte
Dim A As Byte
Dim B As Byte

Do
B = 1
While B < 128
Portd = Not B
A = 1
While A < 128
Portb = A
A = A * 2
Waitms 30
Wend
B = B * 2
Wend
Loop [/code:1]