Für dieses Forum muß Javascript im Browser aktiviert werden!
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: <b>fetter Text</b> <i>kursiver Text</i> <u>unterstrichener Text</u> Kombinationen sind auch möglich z.B.: <b><i>fetter & kursiver Text</i></b> C2 Quellcode formatieren: <code>Quellcode</code> ASM Quellcode formatieren: <asm>Quellcode</asm> (Innerhalb eines Quellcodeabschnitts ist kein html möglich.) Wichtig: Bitte mache Zeilenumbrüche, bevor Du am rechten Rand des Eingabefeldes ankommst ! > Hallo Stefan, > > da ich auch in bascom programmiere, > > habe etwas gesucht auch wenn es nicht in dieses Forum gehört habe ich ein Beispielprogramm gefunden > > diese ist zwar für den DS 1624 aber wenn die Adresse gleich sind müsste es auch funktionieren > sonst must du das Datenblatt genauer Studieren.. > > > $regfile = "m88def.dat" 'Define the chip you use > $crystal = 8000000 'Define speed > $baud = 19200 'Define UART BAUD rate > 'Declare RAM for temperature storage > Dim I2ctemp As Byte 'Storage for the temperature > 'Configure pins we want to use for the I²C bus > Config Scl = Portd.1 'Is serial clock SCL > Config Sda = Portd.3 'Is serial data SDA > 'Declare constants - I2C chip addresses > > Const Ds1624wr = &B10010000 'DS1624 Sensor write > Const Ds1624rd = &B10010001 'DS1624 Sensor read > > 'This section initializes the DS1624 > > I2cstart 'Sends start condition > I2cwbyte Ds1624wr 'Sends the address > 'byte with r/w 0 > > 'Access the CONFIG register (&HAC address byte) > I2cwbyte &HAC > 'Set continuous conversion (&H00 command byte) > I2cwbyte &H00 > I2cstop 'Sends stop condition > Waitms 25 'We have to wait some time after a stop > I2cstart > I2cwbyte Ds1624wr > 'Start conversion (&HEE command byte) > I2cwbyte &HEE > I2cstop > Waitms 25 > 'End of initialization > Print 'Print empty line > > > Do > 'Get the current temperature > I2cstart > I2cwbyte Ds1624wr > I2cwbyte &HAA 'Read temperature (&HAA command byte) > I2cstart > I2cwbyte Ds1624rd 'The chip will give register contents > 'Temperature is stored as 12,5 but the ,5 first > I2crbyte I2ctemp > 'So you'll have to read twice... first the ,5 > I2crbyte I2ctemp , Nack > 'And then the 12... we don't store the ,5 > I2cstop > 'That's why we read twice. > > 'We give NACK if the last byte is read > 'Finally we print > Print "Temperature: " ; Str(i2ctemp) ; " degrees" ; Chr(13); > Waitms 25 > Loop > End > > grüße Andibu > > PS aus wekcher Ecke Deutschlands bist du? > > > > Hallo Andibu, > > > > danke, das hab ich mir gedacht. Ich habe schon in anderen nachgefragt aber irgend wie will oder kann > > keiner. Deshalb habe ich gehofft, das man mir hier evtl. weiter helfen kann. > > Aber tortzdem Danke. > > > > Gruss Stefan > > > > > Hallo Stefan, > > > > > > du bist im total falschem Forum... > > > > > > du must im Bascom oder in einem Atmega-Forum weiter fragen > > > > > > mfg Andibu > > > > > > > > > > Hallo, > > > > > > > > ein kurzes Vorwort: Ich heise Stefan und möchte ein Projekt (LED-Lampensteuerung) verwirklichen. Als Kontroller > > > > habe ich den D071x von Display3000, und schreiben tu ich mit Bascom. Ich habe ein Grundprogramm erhalten und habe > > > > mich soweit eingelernt das ich dieses Prog so einiger massen verstehe. Zu mindest konnte ich es soweit > > > > umschreiben das meine Wünsche abgedeckt sind, bis auf eines. Ich bin absoluter Beginner und werde wohl in der > > > > Zukunft nach fertigstellung meines jetztigen Projekts nie wieder Programmieren müssen. Somit bin ich wirklich > > > > auf eure Hilfe angewiesen um mein letztes Problem zu lösen. > > > > > > > > Mein Problem: ich möchte die Temparatur meines Kühlkörpers erfassen und auf das Display(TFT) ausgeben. > > > > Als Fühler habe ich mich für den DS1631Z entschieden, da ich diesen einfach an die I2C Leitung klemmen kann. > > > > Ich habe jetzt schon einige Tage lang versucht die Beispielprogramme zu verstehen und in mein Programm > > > > einzubauen, leider ohne Erfolg. Scheinbar hat Bascom Probleme mit einigen Befehlen, zb. mit Define kann > > > > Bascom irgend wie nichts anfangen. > > > > Wenn ich das richtig verstehe wird hier eigentlich eine andere Controllereionheit verwendet, ich hoffe > > > > das ich deshalb nicht gesteinigt werde. Desweitern wird hier, denke ich, in C programmiert, damit komme > > > > ich überhaut nicht zu recht. > > > > > > > > Es währe super wenn mir einer bei der Lösung meines Problems helfen würde, Ich weis, da ich Anfänger bin > > > > ist das etwas aufwendiger, aber ich hoffe das dies nicht wirklich abschreckt. > > > > > > > > Im voraus herzlichen Dank, > > > > > > > > Gruss Stefan