DS18B20 an PIC12F1572 liefert nur 255,255

Karlo Gast 22.02.2018 15:44 #5325658

Lesenswert?

•

Hallo Leute,

Habe folgendes Problem:
Will bei einen DS1820 per Mikrobasic Pro auslesen.
Leider bekomme ich in den zwei Bytes immer nur 255 retour.

Was ich schon versucht habe:
Anderen DS18B20
DS18B20 an Klemmen
Pullup variiert. (1k,1k2,1k8,2k2,3k3,4k7)
Anderen PIC12F1572

Was funktioniert:
5V am DS18B20 sind stabil
PIC läuft und LED blinkt
UART Läuft und sendet die RICHTIGEN Daten der Temp Variable
1 Wire Library an EasyPIC7 mit DS18B20 und PIC18F45K22 getestet

Configuration:
500khz interner Takt
MCLR dekativiert. Ist IO.
Watchdog ist ein.

Programm:

program DS18B20_Test
dim LED as sbit at RA4_Bit
dim OneWire as sbit at RA5_Bit
sub procedure InitHardware
    PORTA = %00000000         'Reset all IO bits
    TRISA  = %00101010        'Select inputs/outputs
    SLRCONA = %00000000       'Disable slewrate limit
    'TRISA.0  = 0             'RA0 = Output = TX
    'TRISA.1  = 1             'RA1 = Input = RX
    'TRISA.2  = 0             'RA2 = Output = Reserved
    'TRISA.3  = 1             'RA3 = Input = Reserved
    'TRISA.4  = 0             'RA4 = Output = LED
    'TRISA.5  = 1             'RA5 = Input = 1 Wire
    'TRISA.6  = 0             'Not implemented
    'TRISA.7  = 0             'Not implemented
    ANSELA  = %00000000       'All pins are digital
sub procedure ReadTemperature
    dim temp as byte
    Ow_Reset(PortA, 5)        'Reset Onewire
    Ow_Write(PortA, 5, 0xCC)  'Send SKIP_ROM
    Ow_Write(PortA, 5, 0x44)  'Send CONVERT_T
    Delay_ms(750)             'Wait 750ms for conversion end
    Ow_Reset(PortA, 5)        'Reset Onewire
    Ow_Write(PortA, 5, 0xCC)  'Send SKIP_ROM
    Ow_Write(PortA, 5, 0xBE)  'Send READ_SCRATCHPAD
    temp = Ow_Read(PortA, 5)  'Read first byte
    UART1_Write(temp)         'Write to UART
    temp = Ow_Read(PortA, 5)  'Read second byte
    UART1_Write(temp)         'Write to UART
     InitHardware             'Setup the hardware
     UART1_Init(19200)        'Setup the UART
     while 1                  'Mainloop
           clrwdt             'Clear watchdog timer
           LED = LED xor 1    'Toggle LED
           delay_ms(250)      'Wait 1 second (~750ms from DS18B20)
           ReadTemperature    'Read temperature
     wend


Habt Ihr noch eine Idee?
Bin schon beim verzweifeln.

Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden

Karlo Gast 22.02.2018 15:45 #5325660

Lesenswert?

•

▲
▼

Habe noch die Schaltung vergessen

Angehängte Dateien:

Schaltung.JPG (72 KB)
Platine.JPG (110 KB)

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Karl K. (leluno) 22.02.2018 17:15 #5325790

Lesenswert?

•

▲
▼

Karlo schrieb:
> 500khz interner Takt

Das wird zum Messen der Signale zu wenig sein.

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Karlo Gast 22.02.2018 19:59 #5325994

Lesenswert?

•

▲
▼

Ich galube ich spinne.
Genau das war es.

Tausendmal dank :-)

Antwort Zitieren Bearbeiten Löschen Beitrag melden

DS18B20 an PIC12F1572 liefert nur 255,255

Antwort schreiben