So ich hab jetzt mal folgendes probiert.
Portb.1 ist der Sync also Set macht dann wohl den Port low und reset den port wieder hight oder verstehe ich da was falsch. Die Variable a b und c beinhalten die Bytes die geschickt werden sollen.

Code:
Dim Var As Byte
'Dim Opto As Bit
'Config Pinc.5 = Output
'Config Pinc.4 = Output

Config Int0 = Falling
Config Timer1 = Timer , Prescale = 256
Const Timervorgabe = 36735                                  'Berechnung von einer 1s 36735=1s 7935=2s
Const Markierungenproscheibe = 6                            '6 Impulse Papst 8 Impulse Scheibe
Const Messzeit = 1                                          'Messzeit in s
Dim Zaehlerirq0 As Long
Dim Impulseprosekunde As Long
Dim Impulseprominute As Long
Dim Umdrehungenprominute As Integer
Dim Y As Byte
Dim X As Byte
Dim A As Byte
Dim B As Byte
Dim C As Byte
A = &B00000000
B = &B11011000
C = &B11110000

'Config Spi = Soft , Dout = Pinb.1 , Ss = Pinb.2 , Clock = Pinb.5
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 1 , Clockrate = 4 , Noss = 1
Spiinit
.... codeschnipsel zum Auswerten der Drehzahl durch Impulsgeber und per Knopfdruck ins Unterprogramm hüpfen

Countup:
Var = Var + 10
'X = X + 10
Set Portb.1
Waitms 1
Spiout A , 1
Waitms 1
Spiout B , 1
Waitms 1
Spiout C , 1
Waitms 1
Reset Portb.1
Return

Countdown:
Var = Var - 10
'X = X + 10
Set Portb.1
Waitms 1
Spiout A , 1
Waitms 1
Spiout B , 1
Waitms 1
Spiout C , 1
Waitms 1
Reset Portb.1
Return
Count up und down werden über den Debounce Befehler ausgelöst

An Portb1 hängt mein SYNC, das SCK hängt am Portb.5 und an Portb.3 hängt Din.

So wies aussieht kommt nicht mal was an wenn ich auf den Knopf drücke


Ich habe festgestellt beim programmieren stellt sich ab und an mal der Spannungswert um, da bekommt der DAC wohl was vom verifizieren des ISP Programmers mit.