code_HH
Neuling
Beiträge: 8
|
Erstellt: 02.09.04, 13:26 Betreff: Re: paralleles Singal seriell ausgeben |
|
|
So habe es hinbekommen, fuer die die es interessiert, hier der Quelltext.
ausgabe: PROCESS (CLK,zeichenkette) VARIABLE sendebitueber : BIT_VECTOR (0 TO 15); VARIABLE j,x,y,i : NATURAL:= 0; VARIABLE zeichen : STRING (1 TO 4); VARIABLE z : INTEGER:=1; begin IF (z/=5) THEN sendebitueber := test(zeichenkette,z); IF (j /= 16) THEN IF(clk'event AND CLK ='1') THEN cs <= '0'; END IF; IF cs = '0' AND sendeid = '1' AND fehlerhint = '0' THEN IF(clk'event AND CLK ='1') THEN din <= sendebitueber(j); j := j+1; END IF; END IF; ELSE z := z+1; j := 0; cs <= '1'; END IF; END IF;
Gruss Steffen
|
|