Es weinachtet sehr!

Guten Abend Harry,

ich bekomme kein Signal aus meinem Booster auch nicht nach 3 Stunden!
Die LED blinkt nur unregelmässig ISP Signale sind ok! (Scope)
Könnte der Fehler in der Clock Freq liegen? TEILER 0-1-2
Ich möchte mein Band 200LED rot leuchten lassen (set all)
Oder habe ich bei den Befehlen was übersehen CS und Reset erzeuge ich selbst 4 Booster a 200 LED 16 LED Streifen a 50 LED

Könntest du mir kurz drüber schauen

Gruss
Toni

Nano Board 328p 16MHz
// D07 10 PD7 (CS6)
// D06 09 PD6 (CS5)
// D05 08 PD5 CS4 NODE 4 600-799
// D04 07 PD4 CS3 NODE 3 400-599
// D03 06 PD3 CS2 NOFE 2 200-399
// D02 05 PD2 CS1 NODE 1 000-199 LED
---------------------------------------------------------------------------------------
SPIpresc = 0; // 0=2,8MHz 1=940kHz – 2=480kHz ??????
SPIOrder = MSB;
SPICPOL = 0;
SPICPHA = 0;
SPI_SS = false; // SS entfällt! (CS1 - CS4)
------------------------------------------------------------------------------
Implementation
{$IDATA}
var
// ------------------------------------------------------------------------
LED [@PortB,1] : bit; // LED Board D09
Sig [@PortB,2] : bit; // MINI Buzzer D10
CS1 [@PortD,2] : bit; // CS Booster 1-4 D02 16 Streifen a 50LED (30Led/m) ~1,6m/strip
CS2 [@PortD,3] : bit; // D03
CS3 [@PortD,4] : bit; // D04
CS4 [@PortD,5] : bit; // D05
Reset [@PortB,0] : bit; // D08

DDRB := %00101111; // LED(1)-Signal(2)-MOSI(3)-MISO(4)-SCK(5) -
DDRC := %00000000; //
DDRD := %00111100; // CS(2-3-4-5) Booster 1-4

EEprom[10]:= $C7; // LED Count 0- 199($C7) (200 LED's)
EEprom[11]:= $18; // Bit(R-G-B 3 x 8 bit) 24 ($18)Bit
L_count & RGB aus EEprom!

procedure NEOL_INIT;
begin //
CS1:=false;Reset:=false;mdelay(100);Reset:=true; // Reset= L =false
SPIoutByte($B1);SPIoutByte(L_count);SPIoutByte(RGB); // max LED 0-199 = 200($C7)
CS1:=true; // Übername ins Booster Reg
mdelay(100); //
end;
-----------------------------------------------------------------------------------------
procedure red; //
begin
CS1:=false;
SPIoutByte($A1);SPIoutByte($ff);SPIoutByte($00);SPIoutByte($00);SPIoutByte($A5); // Set all!
// CS1:=true; //
SPIoutByte($B2); // Booster show Ausgabe an strip (200LED)
mdelay(6);
CS1:=true; //
// write(serout,'RED');CR;
end;
--------------------------------------------------------------------------------------------------------------------
loop
mdelay(100);
red;
endloop;

Hallo Harry,

ich habe den Fehler gefunden!!
INIT war nicht korrekt!
Vieken, vielen Dank für die tolle und zeitnahe Unterstützung!

Jetzt möchte ich die Sache auf speed trimmen ISP (Clock) und delay nur wo unbedingt nötig!
DIAMEX LED Booster 4 Strip a 200 LED (30LED/m = 1,6m) -> 4 DIAMEX 800 LED (16 strip's) - das wird ein Wheinachts Zauber auf meinem Balkon!
Bei ALI nicht teuer - hier das 3-4fache!! - was die Händler hier drauf schlagen grenz fast schon an ......
ISP ist optimal vom Speed & (CS1.....CSn) - schade das der DIAMEX LED Booster kein Return gibt (MISO)

Ein schönes (hoffentlich kein gruseliges) WE
Toni

procedure NEOL_INIT; // LED max(200/DIAMEX) + RGB(3x8bit($18)
begin
Reset:=false;mdelay(10);Reset:=true;mdelay(10);CS1:=false; // Reset= L =false
SPIoutByte($B1);SPIoutByte(L_count);SPIoutByte(RGB); // max LED 0-199(200LED=$C7) RGB 3x8(24- $18)
mdelay(6);
CS1:=true; // Übername ins Booster Reg //
end;

HI Harry,,

nein bisher nicht! - meine Päckchen seit 3J gingen immer durch den Zoll(Aufkleber)
bis vor 6M waren alle Waren(>90%) PORTOFREI! d.h. der Postbote(in) brachten die Päckchen sogar bis zur Wohnungstüre!!
Ein krasses Beispiel - 10 nano Boards(komplett bestückt & getestet) a 1,8€ ohne Porto!
Seit etwa 3 Monate kommt sogar kein Zollaufkleber mehr drauf!! und wird immer mehr auch durch Hermes ergänzt!
Seit etwa einem halben Jahr schlagen sie immer mehr an Porto drauf! - also bei der Bestellung auf das Porto achten!!
Im warenkorb kannst du dann sehen welcher Anbieter den günstigsten Preis (+Porto) für deine Ware anbietet..

Vor kurzem hatte ich 6 Bänder(Neoled) a 5m IP67 30 LED/m a ~17€ bestellt (schau was die Händler bei uns verlangen die sie auch aus China beziehen!) ansonsten die meiste Ware zw. 10 und 90€ seit > 3J ohne Proleme.
Seit 3M auch per Paypal geht fix! (keine Wartezeiten bis die Bank....) Lieferzeiten zwischen ~1W- max 3W (per PayPal)

Meine Theorie ist, dass China der Reg. gedroht hat keinen Handelskrieg anzuzetteln ansonsten gehen in Europa die Lichter aus!
BMW Daimler nach Hause schicken? ........ keine Antibiotika oder Magnesium oder ................................ mehr liefern
Mit der Qualität der Waren war ich bis jetzt (sehr)zufrieden, es gab seltene Ausreisser LM35 war faek aber 10 Stück zu 90Cent kann man verkraften

Einen schönen Abend