$regfile = "m8def.dat" $crystal = 1000000 ' Dataready pin Config Pinb.1 = Input 'CSB und PowerDown pins Config Portb.2 = Output Config Portb.0 = Output Csb Alias Portb.2 Pd Alias Portb.0 Csb = 1 Pd = 1 Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 16 , Noss = 1 Spiinit Csb = 1 'Variablen ? Dim B As Byte , C As Byte , D As Byte , E As Byte , F As Byte , V1 As Byte , V2 As Byte Dim G As Long Dim H As Long Dim Druck As Long 'scp1000 Enalbe Pd = 0 Waitms 500 'Reset ASIC Software - muss nicht sein 'B = &H06 'C = &H01 'Shift B , Left , 2 'B = B Or &H02 'Csb = 0 'Spiout B , 1 : Spiout C , 1 'Csb = 1 'Waitms 200 Do 'SCP 1000 init B = &H03 C = &H07 Shift B , Left , 2 B = B Or &H02 Csb = 0 Spiout B , 1 : Spiout C , 1 Csb = 1 Waitms 300 B = &H1F Shift B , Left , 2 Csb = 0 Spiout B , 1 : Spiin C , 1 Csb = 1 Waitms 100 Cls Loop Until C = &H01 'Error falls es nicht weiter geht! 'Set Measurement Mode ' Measurement MODE Mit variable "C" : &H09 = High Speed und &H0A = High resolution Mode B = &H03 C = &H0A Shift B , Left , 2 B = B Or &H02 Csb = 0 Spiout B , 1 : Spiout C , 1 Csb = 1 Waitms 300 '---------------- Hauptprogramm -------------------- Do 'Wait for DataReady Bitwait Pinb.1 , Set E = &H1F '8 bit F = &H20 '16 bit Shift E , Left , 2 Csb = 0 Spiout E , 1 : Spiin Data16 , 1 Csb = 1 Data16 = Data16 And &H0007 Druck = Data16 Shift Druck , Left , 16 Shift F , Left , 2 Csb = 0 Spiout F , 1 : Spiin Data16 , 2 Csb = 1 Shift Data16 , Right , 8 Druck = Druck Or Data16 Csb = 0 Spiout F , 1 : Spiin Data16 , 1 Csb = 1 Shift Data16 , Left , 8 Druck = Druck Or Data16 Data16 = 0 Druck = Druck / 4 'Druck formatieren u. ausgeben oder irgendwas ... Loop End