Hallo,

Danke für die Links und die Buchtips, werde mir die Bücher mal ansehen...

Ich habe in der Referenz vom Bascom den Shiftout befehl gefunden, das ist genau was ich gesucht habe nur jedoch ohne den invertierten Write Enable eingang (immer 1, ausser man will in den Chip reinschreiben, dann muss er auf 0 gesetzt werden und die nächsten 16 Taktzyklen 0 bleiben)
Kann ich den so realisieren, oder habe ich statt 16 Taktzyklen dann 18 Taktzyklen die Write Enable 0 bleibt?

Sind meine ersten Schritte mit Bascom...

Declare Sub Set(Var As Integer)

Dim Variable As Integer '16 Bit Zahl für die Ausgabe

SCLK Alias Portb.0 'SCLK ist der Clock für den Pga
Output Alias Portb.1 'Ausgang in den Variable geschrieben wird
PgaEN Alias Portb.2 ' Write Enable für den Externen Chip
SCLK = 1 'SCLK auf HIGH setzen
PgaEN = 1 'Write Enable auf HIGH setzen für keine Übertragung

Call Set(Variable)

Sub Set(Var As Integer)
'In den Chip schreiben
PgaEN = 0 'Write Enable auf LOW setzen für Übertragungsbeginn
Shiftout Output , SCLK , Volume , 0 , 16
Portb.2 = 1 'Write Enable auf HIGH setzen für Übertragungsende
End Sub

Danke für die HIlfe...