C-Control Pro

Zur Übersicht - INFO - Neueste 50 Beiträge - Neuer Beitrag - Suchen - Zum C-Control-I-Forum - Zum C-Control-II-Forum

Zurück zum Artikel (Blaue Felder sind Pflichtfelder)

Es gelten folgende Anleitung und Regeln: Regeln CC2Net.de-Forum

Name:	UserID:
E-Mail:
Kategorie
Betreff
Homepage:
Link-Titel:
Link-URL:

Cookie für Name, E-Mail, Homepage-URL setzen
(Erspart die Neueingabe bei Beiträgen und Antworten)
(Zum Löschen des Cookies hier klicken)

Ich nutze:

C-Control Pro Mega32
C-Control Pro Mega128
C-Control Pro AVR32

CC-Pro 32 Application Board
CC-Pro 128 Application Board
Pro-Bot128
eigenes Board

Kommentar:
Einfügen von HTML im Kommentar:
Link einfügen: <a href="LINKURL" target="_blank">LINKTITEL</a>
Bild einfügen: <img src="BILDURL">
Text formatieren: fetter Text kursiver Text unterstrichener Text
Kombinationen sind auch möglich z.B.: fetter & kursiver Text
C Quellcode formatieren: <code>Quellcode</code>
BASIC Quellcode formatieren: <basic>Quellcode</basic>
(Innerhalb eines Quellcodeabschnitts ist kein html möglich.)
Wichtig: Bitte mache Zeilenumbrüche, bevor Du am rechten Rand des Eingabefeldes ankommst ! -> I
> Hallo, > hier ein Code für den DS2482. > Hilft vom allem wenn die OneWire-Leitung zu lang ist. > Dieser Code ist jetzt für 3 DS18B20. > > > <basic>Dim I, X, I2COK As Integer > Dim vScratchPad(9) As Byte > Dim I2C_Data(10) As Byte > Dim tCRC_table(256) = {_ > 000, 094, 188, 226, 097, 063, 221, 131, 194, 156, 126, 032, 163, 253, 031, 065,_ > 157, 195, 033, 127, 252, 162, 064, 030, 095, 001, 227, 189, 062, 096, 130, 220,_ > 035, 125, 159, 193, 066, 028, 254, 160, 225, 191, 093, 003, 128, 222, 060, 098,_ > 190, 224, 002, 092, 223, 129, 099, 061, 124, 034, 192, 158, 029, 067, 161, 255,_ > 070, 024, 250, 164, 039, 121, 155, 197, 132, 218, 056, 102, 229, 187, 089, 007,_ > 219, 133, 103, 057, 186, 228, 006, 088, 025, 071, 165, 251, 120, 038, 196, 154,_ > 101, 059, 217, 135, 004, 090, 184, 230, 167, 249, 027, 069, 198, 152, 122, 036,_ > 248, 166, 068, 026, 153, 199, 037, 123, 058, 100, 134, 216, 091, 005, 231, 185,_ > 140, 210, 048, 110, 237, 179, 081, 015, 078, 016, 242, 172, 047, 113, 147, 205,_ > 017, 079, 173, 243, 112, 046, 204, 146, 211, 141, 111, 049, 178, 236, 014, 080,_ > 175, 241, 019, 077, 206, 144, 114, 044, 109, 051, 209, 143, 012, 082, 176, 238,_ > 050, 108, 142, 208, 083, 013, 239, 177, 240, 174, 076, 018, 145, 207, 045, 115,_ > 202, 148, 118, 040, 171, 245, 023, 073, 008, 086, 180, 234, 105, 055, 213, 139,_ > 087, 009, 235, 181, 054, 104, 138, 212, 149, 203, 041, 119, 244, 170, 072, 022,_ > 233, 183, 085, 011, 136, 214, 052, 106, 043, 117, 151, 201, 074, 020, 246, 168,_ > 116, 042, 200, 150, 021, 075, 169, 247, 182, 232, 010, 084, 215, 137, 107, 053 _ > } As Byte > > #define DS2482 0x30 > > Sub main() > Dim TEMP As Integer > I2C_SetSpeed(24000) > Do While True 'Endlosschleife > DS2482SPUON() > DS2482SKIPROM() > CONVERT() > > MATCHROM(40,5,54,215,5,0,0,95) > TEMP=DS1820GET_TEMP() > Msg_WriteInt(TEMP):Msg_WriteText(" °C\r") > > > MATCHROM(40,229,5,215,5,0,0,188) > TEMP=DS1820GET_TEMP() > Msg_WriteInt(TEMP):Msg_WriteText(" °C\r") > > > MATCHROM(40,243,143,216,5,0,0,185) > TEMP=DS1820GET_TEMP() > Msg_WriteInt(TEMP):Msg_WriteText(" °C\r"):Msg_WriteText(" \r") > > Thread_Delay(100) > End While > End Sub > > Sub DS1820GET_TEMP() As Integer > Dim vScratshpat(9) As Byte > Dim vChecksum As Byte > Dim TEMP As Integer > DS2482WIRE_WRITEBYTE(0xBE) 'read ram > /*DS2482WIRE_READBYTE() > TEMPLO=DS2482GET_DATA() > DS2482WIRE_READBYTE() > TEMPHI=DS2482GET_DATA() */ > 'TEMP=(TEMPHI*256)+TEMPLO > > For I = 0 To 8 > DS2482WIRE_READBYTE() > vScratshpat(I)=DS2482GET_DATA() > 'Msg_WriteInt(vScratshpat(I)):Msg_WriteText(" - ") > Next > Msg_WriteChar(13) > DS2482WIRERESET() > vChecksum = 0 > For I = 0 To 8 > vChecksum = tCRC_table(vChecksum Xor vScratshpat(I)) > If vChecksum < 0 Then > Msg_WriteText("CRC-Fehler\r") > End If > Next > TEMP = vScratshpat(2) * 256 > TEMP = TEMP + vScratshpat(1) > TEMP = TEMP * 0.6255 > Return TEMP > End Sub > > > Sub DS2482GET_STATUS() As Byte > Dim D(1) As Byte > I2COK = I2C_Read(DS2482,0xE1F0,2,D,1) > If I2COK = 1 Then : Msg_WriteText("I2C-Fehler DS2482GET_STATUS Read\r") : End If > Return D(0) > /*IIC.INIT > IIC.START > IIC.SEND DS2482 > IIC.SEND SET_READ_POINTER > IIC.SEND STATUS_POINTER > IIC.STOP > > IIC.START > IIC.SEND (DS2482+1) > IIC.GET DATA > IIC.STOP > IIC.OFF > RETURN DATA */ > End Sub > > Sub DS2482WIRE_WRITEBYTE(DATA As Byte) > Dim D(1) As Byte > D(0) = DATA > DS2482WIRE_WAITIDLE() > I2COK = I2C_Write(DS2482,0xA5,1,D,1) > If I2COK = 1 Then : Msg_WriteText("I2C-Fehler DS2482WIRE_WAITIDLE\r") : End If > End Sub > > Sub DS2482WIRE_WAITIDLE() > Lab WT > If (DS2482GET_STATUS() And 1) > 0 Then > Goto WT > End If > End Sub > > Sub DS2482SPUON() > I2COK = I2C_Write(DS2482,0xD2B4,2,I2C_Data,0) 'B4 > If I2COK = 1 Then : Msg_WriteText("I2C-Fehler DS2482SPUON\r") : End If > End Sub > > Sub DS2482SKIPROM() > DS2482WIRE_WRITEBYTE(0xCC) > End Sub > > Sub CONVERT() > Dim DA As Byte > > '----------------- WIRE CMD CONVERT TEMP ---------------------- > DS2482SPUON() > DS2482WIRE_WRITEBYTE(0x44) 'TEMP CONVERT > '-------------------------------------------------------------- > Lab WTC 'WAIT CONVERTION IN NON-PARASITE POWER MODE > DS2482WIRE_READBYTE() > DA = DS2482GET_DATA() > If (DA And 0x80) = 0 Then > Goto WTC > End If > 'pause 40 > '----------------- WIRE CMD READ RAM -------------------------- > DS2482WIRERESET() > End Sub > > Sub DS2482GET_DATA() As Byte > Dim D(1) As Byte > I2COK = I2C_Read(DS2482,0xE1E1,2,D,1) > If I2COK = 1 Then : Msg_WriteText("I2C-Fehler DS2482GET_DATA E1E1\r") : End If > Return D(0) > /* define DATA as byte > IIC.INIT > IIC.START > IIC.SEND DS2482 > IIC.SEND SET_READ_POINTER > IIC.SEND DATA_POINTER > IIC.STOP > > IIC.START > IIC.SEND (DS2482+1) > IIC.GET DATA > IIC.STOP > IIC.OFF > RETURN DATA */ > End Sub > > Sub DS2482WIRE_READBYTE() > I2COK = I2C_Write(DS2482,0x96,1,I2C_Data,0) > If I2COK = 1 Then : Msg_WriteText("I2C-Fehler DS2482WIRE_READBYTE\r") : End If > > /* DS2482WIRE_WAITIDLE() > IIC.INIT > IIC.START > IIC.SEND DS2482 > IIC.SEND WIRE_READBYTE > IIC.STOP > IIC.OFF */ > End Sub > > Sub DS2482WIRERESET() > I2COK = I2C_Write(DS2482,0xB4,1,I2C_Data,0) > If I2COK = 1 Then : Msg_WriteText("I2C-Fehler DS2482WIRERESET\r") : End If > /*IIC.INIT > IIC.START > IIC.SEND DS2482 > IIC.SEND WIRE_RESET > IIC.STOP > IIC.OFF*/ > End Sub > > Sub MATCHROM(d0 As Byte,d1 As Byte, d2 As Byte,d3 As Byte,d4 As Byte,d5 As Byte,d6 As Byte,d7 As Byte) > DS2482WIRE_WRITEBYTE(0x55) > DS2482WIRE_WRITEBYTE(d0) > DS2482WIRE_WRITEBYTE(d1) > DS2482WIRE_WRITEBYTE(d2) > DS2482WIRE_WRITEBYTE(d3) > DS2482WIRE_WRITEBYTE(d4) > DS2482WIRE_WRITEBYTE(d5) > DS2482WIRE_WRITEBYTE(d6) > DS2482WIRE_WRITEBYTE(d7) > End Sub</basic>

Dateianhang: (.gif, .png., .jpg, .zip, .rar)

max. 256kB

max. 256kB