Hallo,
ich habe dieses Programm, das ein LDC1000 auslesen soll. Ein entsprechendes Arduino-Programm tut es, aber Bascom printet gar nichts (über USB).
Ein Print-Test ohne SPI funktioniert allerdings. Woran mag es liegen?
Alles anzeigen
ich habe dieses Programm, das ein LDC1000 auslesen soll. Ein entsprechendes Arduino-Programm tut es, aber Bascom printet gar nichts (über USB).
Ein Print-Test ohne SPI funktioniert allerdings. Woran mag es liegen?
Quellcode
- 'http://electronics598.rssing.com/browser.php?indx=8435866&item=2974
- $regfile = "m328def.dat"
- $crystal = 16000000
- $baud = 9800
- '$baud1 = 115200
- 'Config Com1 = 115200 , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
- Enable Interrupts
- Config Spi = Hard , Interrupt = Off , Data_order = Msb , Master = Yes , Polarity = High , Phase = 1 , Clockrate = 16 , Noss = 1
- Spiinit
- Config Pinb.2 = Output 'manually control ss pin
- Ss Alias Portb.2
- Set Ss
- Dim Prox(2) As Byte 'data read in
- Dim Plsb As Byte 'Proximity LSB Address
- Dim Pmsb As Byte 'Proximity MSB Address
- Plsb = &HA1 '&h21 plus MSb = 1 for read
- Pmsb = &HA2 '&h22 plus MSb = 1 for read
- Dim Proximity As Word 'combined proximity data
- Reset Ss
- Spiout Plsb , 1
- Spiin Prox(1) , 1
- Set Ss
- Reset Ss
- Spiout Pmsb , 1
- Spiin Prox(2) , 1
- Set Ss
- Proximity = Makeint(prox(1) , Prox(2))
- Print Proximity
- End