danke für die antworten - wie ihr seht waren wir lange nicht mehr hier - das projekt würde nun aber wieder aufgenommen

haben nun erstmal versucht das program weiter zu vervollständigen -allerdings haben wir noch nicht mehr als die deklarationen. haben uns für hardwarespi entschieden
nun wissen wir nicht mehr weiter - die programme- oder besser die schnipsel die man so findet befriedigen uns nicht wirklich da sie immer aus dem zusammenhang gerissen sind.
nun ja lange rede kurzer sinn...

unsere frage ist nun wie genau der code für Bascom aussehen müsste (das prinzip haben wir nach langen recherchen verstanden)

hier erst mal das was wir haben
Code:
'-----------------------------------------------------------------------------------------
'name                    : HighFreq.bas
'micro                    : Mega16
'-----------------------------------------------------------------------------------------

$regfile = "m16def.dat"                                     ' specify the used micro
$crystal = 16000000                                         ' used crystal frequency
$baud = 19200                                               ' use baud rate
$hwstack = 32                                               ' default use 32 for the hardware stack
$swstack = 10                                               ' default use 10 for the SW stack
$framesize = 40                                             ' default use 40 for the frame space

'Pin Connection
   'Output's
Config Porta.0 = Output
Config Porta.1 = Output
Config Porta.2 = Output
Config Porta.3 = Output
Config Porta.4 = Output
Config Porta.5 = Output
Config Porta.6 = Output
Config Porta.7 = Output
Config Portc.7 = Output
Config Portc.6 = Output
Config Portd.6 = Output


Z0 Alias Porta.0
Z1 Alias Porta.1
Z2 Alias Porta.2
Z3 Alias Porta.3
Z4 Alias Porta.4
Z5 Alias Porta.5
Z6 Alias Porta.6
Z7 Alias Porta.7
Z8 Alias Portc.7
Z9 Alias Portc.6

Gen Alias Portd.6



   'Input's
Config Pind.3 = Input
Config Pind.4 = Input
Config Pind.5 = Input


Taster1 Alias Pind.3
Taster2 Alias Pind.4
Taster3 Alias Pind.5


'Dimmer

Dim Gen As Bit
Dim Porta.0 As Bit
Dim Porta.1 As Bit
Dim Porta.2 As Bit
Dim Porta.3 As Bit
Dim Porta.4 As Bit
Dim Porta.5 As Bit
Dim Porta.6 As Bit
Dim Porta.7 As Bit
Dim Portc.7 As Bit
Dim Portc.6 As Bit
Dim Test As Byte
Dim Zaehler As Byte
Enable Interrupts


Config Spi = Hard , Interrupt = On , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4 , Noss = 0

Zaehler = 0



''''''''''Hauptprogramm'''''''''''''''

Do

Zaehler = Zaehler + 1

If Zaehler = 40 Then
Zaehler = 0
End If

If Zaehler = 0 Then
Z0 = 1
Z1 = 0
Z2 = 0
Z3 = 0
Z4 = 0
Z5 = 0
Z6 = 0
Z7 = 0
Z8 = 0
Z9 = 0
End If

If Zaehler = 4 Then
Z0 = 0
Z1 = 1
Z2 = 0
Z3 = 0
Z4 = 0
Z5 = 0
Z6 = 0
Z7 = 0
Z8 = 0
Z9 = 0
End If

If Zaehler = 8 Then
Z0 = 0
Z1 = 0
Z2 = 1
Z3 = 0
Z4 = 0
Z5 = 0
Z6 = 0
Z7 = 0
Z8 = 0
Z9 = 0
End If

If Zaehler = 12 Then
Z0 = 0
Z1 = 0
Z2 = 0
Z3 = 1
Z4 = 0
Z5 = 0
Z6 = 0
Z7 = 0
Z8 = 0
Z9 = 0
End If

If Zaehler = 16 Then
Z0 = 0
Z1 = 0
Z2 = 0
Z3 = 0
Z4 = 1
Z5 = 0
Z6 = 0
Z7 = 0
Z8 = 0
Z9 = 0
End If

If Zaehler = 20 Then
Z0 = 0
Z1 = 0
Z2 = 0
Z3 = 0
Z4 = 0
Z5 = 1
Z6 = 0
Z7 = 0
Z8 = 0
Z9 = 0
End If

If Zaehler = 24 Then
Z0 = 0
Z1 = 0
Z2 = 0
Z3 = 0
Z4 = 0
Z5 = 0
Z6 = 1
Z7 = 0
Z8 = 0
Z9 = 0
End If

If Zaehler = 28 Then
Z0 = 0
Z1 = 0
Z2 = 0
Z3 = 0
Z4 = 0
Z5 = 0
Z6 = 0
Z7 = 1
Z8 = 0
Z9 = 0
End If

If Zaehler = 32 Then
Z0 = 0
Z1 = 0
Z2 = 0
Z3 = 0
Z4 = 0
Z5 = 0
Z6 = 0
Z7 = 0
Z8 = 1
Z9 = 0
End If

If Zaehler = 36 Then
Z0 = 1
Z1 = 0
Z2 = 0
Z3 = 0
Z4 = 0
Z5 = 0
Z6 = 0
Z7 = 0
Z8 = 0
Z9 = 1
End If

'Spiout
 '        ...



  Loop
             End
eine weiter frage wäre auch: benutze ich den befehl spiout oder shiftout? bei dem einen schieb ich ja bits und bei dem anderen bytes, aber was ist besser? zum finale wäre es auch noch schön zu wissen wie ich Bascom mit den tabellen arbeite, damit ich hinterher "variable" texte ausgeben kann. vorerts reicht es mir ein festes wort auszugeben

nun ja viel holz - aber vielleicht kann ja jemand helfen - müsste es eigentlich bis samstag laufen haben (da wäre premiere von linie 1 an der freilichtbühne wo es eingesetzt werden soll)

besten dank schonmal stefan und jonas

hier noch ein kleiner anreiz: (mist um bilder einzufügen bin ich zu dumm) aber dem dem es gelingt mir nen fertigen code zu liefern winken 2 freikarten