2057 replies to this topic

[mushroom]

Herzlichen Glückwunsch! /public/style_emoticons/default/d.gif...

Win7 Home oder Pro?

Home Premium

[m1ndfuck]

Kann einer von euch Python? Ich brauch Hilfe eine mathematische Funktion zu verstehen/übersetzen

[Synthor]

Muss man dafür Python können? ^^

[m1ndfuck]

Würde ich sonst fragen?

[Synthor]

Ich dachte mir, wenns an mathe liegt ist die Sprache doch eigentlich egal.

Zeig doch mal.

Edited by Synthor, 19. Aug. 2014 - 13:45 Uhr.

[chasey]

bin auch neugierig

[m1ndfuck]

Okay...
Es geht mir darum diesen Sensor auszulesen. Für den Sensor existiert ein python Script.

Ich bin dabei teile des scripts in Perl zu übersetzen. Nur ein teil davon weil die i2c kommunikation von diesem Perl Modul abgenommen wird. Es geht also nur um das reine Ansteuern des Sensors.

Als erstes müssen kalibrations werte gelesen werden.

Python:

def readS16(self, register):
"Reads a signed 16-bit value"
hi = self.i2c.readS8(register)
lo = self.i2c.readU8(register+1)
return (hi << <img src='/public/style_emoticons/<#EMO_DIR#>/8).gif' class='bbc_emoticon' alt='8)' /> + lo

def readU16(self, register):
"Reads an unsigned 16-bit value"
hi = self.i2c.readU8(register)
lo = self.i2c.readU8(register+1)
return (hi << <img src='/public/style_emoticons/<#EMO_DIR#>/8).gif' class='bbc_emoticon' alt='8)' /> + lo

def readCalibrationData(self):
"Reads the calibration data from the IC"
self._cal_AC1 = self.readS16(self.__BMP085_CAL_AC1) # INT16
self._cal_AC2 = self.readS16(self.__BMP085_CAL_AC2) # INT16
self._cal_AC3 = self.readS16(self.__BMP085_CAL_AC3) # INT16
self._cal_AC4 = self.readU16(self.__BMP085_CAL_AC4) # UINT16
self._cal_AC5 = self.readU16(self.__BMP085_CAL_AC5) # UINT16
self._cal_AC6 = self.readU16(self.__BMP085_CAL_AC6) # UINT16
self._cal_B1 = self.readS16(self.__BMP085_CAL_B1) # INT16
self._cal_B2 = self.readS16(self.__BMP085_CAL_B2) # INT16
self._cal_MB = self.readS16(self.__BMP085_CAL_MB) # INT16
self._cal_MC = self.readS16(self.__BMP085_CAL_MC) # INT16
self._cal_MD = self.readS16(self.__BMP085_CAL_MD) # INT16

Perl:

#!/usr/bin/perl
use strict;
use warnings;
use Device::SMBus;

my $debug = 1;

my $dev = Device::SMBus->new(
        I2CBusDevicePath => '/dev/i2c-1',
        I2CDeviceAddress => 0x77,
);

my %calibits = (
        "AC1","0xAA",   # Int
        "AC2","0xAC",   # Int
        "AC3","0xAE",   # Int
        "AC4","0xB0",   # Unsigned Int
        "AC5","0xB2",   # Unsigned Int
        "AC6","0xB4",   # Unsigned Int
        "B1","0xB6",    # Int
        "B2","0xB8",    # Int
        "MB","0xBA",    # Int
        "MC","0xBC",    # Int
        "MD","0xBE"     # Int
);

my %bits = (
        "CONTROL","0xF4",
        "TEMPDATA","0xF6",
        "PRESSUREDATA","0xF6",
        "READTEMPCMD","0x2E",
        "READPRESSURECMD","0x34",
);

sub calibrate {
        while ((my $key,my $value) = each(%calibits)) {
                if (($key eq 'AC4') || ($key eq 'AC5') || ($key eq 'AC6')) {
                        my $calidata = $dev->readWordData($value);
                        if ($debug) {
                                print ("Unsigned INT: $key - $value - $calidata\n");
                        }
                } else {
                        my $calidata = $dev->readWordData($value);
                        if ($debug) {
                                print ("Signed INT: $key - $value - $calidata\n");
                        }
                }
        }
}

&calibrate();

Ausgabe:

pi@etdis23 ~/scripts/terraPi $ perl terraPi.pl
Argument "0xAE" isn't numeric in subroutine entry at /usr/local/lib/perl/5.14.2/Device/SMBus.pm line 118.
Signed INT: AC3 - 0xAE - 0
Argument "0xAC" isn't numeric in subroutine entry at /usr/local/lib/perl/5.14.2/Device/SMBus.pm line 118.
Signed INT: AC2 - 0xAC - 0
Argument "0xB6" isn't numeric in subroutine entry at /usr/local/lib/perl/5.14.2/Device/SMBus.pm line 118.
Signed INT: B1 - 0xB6 - 0
Argument "0xBA" isn't numeric in subroutine entry at /usr/local/lib/perl/5.14.2/Device/SMBus.pm line 118.
Signed INT: MB - 0xBA - 0
Argument "0xB4" isn't numeric in subroutine entry at /usr/local/lib/perl/5.14.2/Device/SMBus.pm line 118.
Unsigned INT: AC6 - 0xB4 - 0
Argument "0xBC" isn't numeric in subroutine entry at /usr/local/lib/perl/5.14.2/Device/SMBus.pm line 118.
Signed INT: MC - 0xBC - 0
Argument "0xB2" isn't numeric in subroutine entry at /usr/local/lib/perl/5.14.2/Device/SMBus.pm line 118.
Unsigned INT: AC5 - 0xB2 - 0
Argument "0xBE" isn't numeric in subroutine entry at /usr/local/lib/perl/5.14.2/Device/SMBus.pm line 118.
Signed INT: MD - 0xBE - 0
Argument "0xAA" isn't numeric in subroutine entry at /usr/local/lib/perl/5.14.2/Device/SMBus.pm line 118.
Signed INT: AC1 - 0xAA - 0
Argument "0xB0" isn't numeric in subroutine entry at /usr/local/lib/perl/5.14.2/Device/SMBus.pm line 118.
Unsigned INT: AC4 - 0xB0 - 0
Argument "0xB8" isn't numeric in subroutine entry at /usr/local/lib/perl/5.14.2/Device/SMBus.pm line 118.
Signed INT: B2 - 0xB8 - 0

Irgendwas stimmt da gerade mit dem Datentyp nicht, obwohl readWordData($value) eigentlich 16 bit INT sein sollte.

Ich mach mal pause...

[Synthor]

Was mir beim Überfliegen so auffällt ist, dass die calibits Hexwerte in Anführungszeichen stehen. Müssen die nicht weg?

"AC1", 0xAA,   # Int

Sonst ists doch ein String oder wie ist das in Perl?

[m1ndfuck]

Nee, das geht.. Hatte nen Denkfehler...



Bei dem code oben habe ich z.B nur 0xAA ausgelesen, dabei brauche ich doch 0xAB.

Aus dem python code:

def readS16(self, register):
hi = self.i2c.readS8(register)
lo = self.i2c.readU8(register+1)
return (hi << <img src='/public/style_emoticons/<#EMO_DIR#>/8).gif' class='bbc_emoticon' alt='8)' /> + lo

Es wird erst das eine bit gelesen, dann das andere, und dann addiert.

Mein code:

sub readU16 {
        my $a = $_[0];
        my $b = hex($_[0]);
        $b++;
        my $bhex = sprintf("0x%x",$b);
        my $aa = $dev->readByteData($a);
        my $bb = $dev->readByteData($bhex);
        print ("a: $a\nb: $b\naa: $aa\nbb: $bb\n");
}

$a ist das register aus dem calibits hash.
$b ist $a als INT +1
$bhex sollte eigentlich jetzt wieder hex sein, ist es aber anscheinend nicht... :/
$aa liest $a vom gerät aus
$bb liest $bhex vom gerät aus

$aa und $bb wollte ich jetzt addieren, aber $bhex muss erst richtig gesetzt werden...

Ich könnte auch hash in hash schreiben:

%calibits = (
    AC1 => {
        lo   => "0xAA",
        hi   => "0xAB",
    },
    AC2 => {
        lo   => "0xAC",
        hi   => "0xAD",
    },
);

Aber ich find die obere lösung eleganter...

[Synthor]

Mein code:

sub readU16 {
my $a = $_[0];
my $b = hex($_[0]);
$b++;
my $bhex = hex($b);
my $aa = $dev->readByteData($a);
my $bb = $dev->readByteData($bhex);
print ("a: $a\nb: $b\naa: $aa\nbb: $bb\n");
}

[m1ndfuck]

ja schwachsinn... ich bin irgendwie nich mehr in der lage heute...

sub readU16 {
        my $a = hex($_[0]);
        my $b = hex($_[0]) + 1;
        print("hi - s: $a\nlo - u: $b\n");
        my $ahex = &dec2hex8s($a);
        my $bhex = &dec2hex8u($b);
        my $aa = $dev->readByteData($ahex);
        my $bb = $dev->readByteData($bhex);
        print ("a: $a\nahex: $ahex\nb: $b\nbhex: $bhex\naa: $aa\nbb: $bb\n");
}

sub dec2hex8u {
        my $hex = unpack "H2",pack "C", $_[0];
        return "0x" . $hex;
}

sub dec2hex8s {
        my $hex = unpack "H2",pack "c", $_[0];
        return "0x" . $hex;
}

sub dec2hex16 {
        my $hex = unpack "H4",pack "n", $_[0];
        return $hex;
}

Ausgabe:

pi@etdis23 ~/scripts/terraPi $ perl terraPi.pl
hi - s: 180
lo - u: 181
Character in 'c' format wrapped in pack at terraPi.pl line 55.
Argument "0xb4" isn't numeric in subroutine entry at /usr/local/lib/perl/5.14.2/Device/SMBus.pm line 95.
Argument "0xb5" isn't numeric in subroutine entry at /usr/local/lib/perl/5.14.2/Device/SMBus.pm line 95.
a: 180
ahex: 0xb4
b: 181
bhex: 0xb5
aa: -1
bb: -1
hi - s: 178
lo - u: 179
Character in 'c' format wrapped in pack at terraPi.pl line 55.
Argument "0xb2" isn't numeric in subroutine entry at /usr/local/lib/perl/5.14.2/Device/SMBus.pm line 95.
Argument "0xb3" isn't numeric in subroutine entry at /usr/local/lib/perl/5.14.2/Device/SMBus.pm line 95.
a: 178
ahex: 0xb2
b: 179
bhex: 0xb3
aa: -1
bb: -1
hi - s: 176
lo - u: 177
Character in 'c' format wrapped in pack at terraPi.pl line 55.
Argument "0xb0" isn't numeric in subroutine entry at /usr/local/lib/perl/5.14.2/Device/SMBus.pm line 95.
Argument "0xb1" isn't numeric in subroutine entry at /usr/local/lib/perl/5.14.2/Device/SMBus.pm line 95.
a: 176
ahex: 0xb0
b: 177
bhex: 0xb1
aa: -1
bb: -1
pi@etdis23 ~/scripts/terraPi $

Ich geh pennen...

[m1ndfuck]

Moin!
gestern war ich echt nich fit, und gerad hab ich noch diesen c codegefunden, jetzt raff ich das auch komplett...

Mein hack um direkt 2 bits auszulesen ist total unsinnig, hätte ich mal mehr aufgepasst wäre mir aufgefallen das diese funktion genau das bietet was ich brauch:

$self->readNBytes($value,2);

Read together N bytes of Data in linear register order. i.e. to read from 0x28,0x29,0x2a

[Zappi]

jemand nen tip für nen ROuter mit IEEE 802.11n den ich als access Poiint konfigurieren kann/will, hab jetz erstmal mein Linksys wrt 54 G entsprechend umkonfiguriert is auch ok aber der kann nur "g-wlan" also 54mbit netto kommen laut tool fürs android pad nur um die 23 mbit an .

[m1ndfuck]

Hehe... Ich hatte auch den WRT54G, haben jetzt aber auf AVM Fritz!Box 7490 geupdatet...

[Synthor]

http://www.amazon.de...s/dp/B00810P80S

Der soll was taugen. Steht auf meiner Einkaufsliste, aber nicht dazu gekommen den zu bestellen. Irgendwie stören mich die Netzwerkkabel quer durch die Wohnung nicht.

[Gerd]

gestern war ich echt nich fit, und gerad hab ich noch diesen c codegefunden, jetzt raff ich das auch komplett...

Ne Nacht drüber schlafen hilft meistens Wunder wenn man irgendwie "festgefahren" ist.

[Zappi]

http://www.amazon.de/TP-Link-TL-WDR4300-Simultan-Dual-Band-LAN-Ports/dp/B00810P80S

Der soll was taugen. Steht auf meiner Einkaufsliste, aber nicht dazu gekommen den zu bestellen. Irgendwie stören mich die Netzwerkkabel quer durch die Wohnung nicht. /public/style_emoticons/default/lol.gif...

werd wohl nen linksys e900 . holen 36 euro kann wlan N Standard.

[Synthor]

War Linksys nicht der Cisco-Ableger?

Ne Nacht drüber schlafen hilft meistens Wunder wenn man irgendwie "festgefahren" ist. /public/style_emoticons/default/d.gif...

auch.

[Gerd]

War Linksys nicht der Cisco-Ableger? /public/style_emoticons/default/noidea.g...

Ne Nacht drüber schlafen hilft meistens Wunder wenn man irgendwie "festgefahren" ist. /public/style_emoticons/default/d.gif...

/public/style_emoticons/default/kiffer.g... auch. /public/style_emoticons/default/d.gif...

Stimmt. Aber wenn zu viel , dann kann es auch mal festfahren. Aber dann will man es trotzdem lösen, beißt sich fest und sieht dann drölfundachtzih Stunden später ein, dass es doch keinen Sinn macht.

Edited by Staatsfeind2k, 20. Aug. 2014 - 19:53 Uhr.

[Synthor]

Logisch, wenn man eh schon viereckige Augen hat, dann sollte man besser aufhören. In so einem Zustand baut man auch üble Bugs ein, die am Tag später kaum auffindbar sind. ^^

Aber ich kann dann nicht darüber aufhören nachzudenken, bis ich die Lösung im Kopf habe. Dafür hasse ich mich manchmal...

[m1ndfuck]

Aber ich kann dann nicht darüber aufhören nachzudenken, bis ich die Lösung im Kopf habe. Dafür hasse ich mich manchmal... /public/style_emoticons/default/roll.gif...

Ich nicht, aber das hassen andere an mir

Das eigentliche Problem gestern war das ich die nacht davor schon durch gecoded habe

Hab gerad die Sachen eingebaut die ich auf der Arbeit überlegt hab, mehr mach ich heute nicht...

Edited by m1ndfuck, 20. Aug. 2014 - 20:56 Uhr.

[Synthor]

Das ist sowieso bös.

[chasey]

Logisch, wenn man eh schon viereckige Augen hat, dann sollte man besser aufhören. In so einem Zustand baut man auch üble Bugs ein, die am Tag später kaum auffindbar sind. ^^

Aber ich kann dann nicht darüber aufhören nachzudenken, bis ich die Lösung im Kopf habe. Dafür hasse ich mich manchmal... /public/style_emoticons/default/roll.gif...

kenn ich meist hab ich morgens wenn ich dusche oder mich fertig mache immer super ideen zu problemen die mich beschäftigen.
gestern abend um kurz vor 12 hab ich nem arbeitskollegen noch ne nachricht geschickt was er heut früh noch überprüfen soll weil ich später komme da mein auto ja in die werkstatt muss

[Speedfreak]

Aber ich kann dann nicht darüber aufhören nachzudenken, bis ich die Lösung im Kopf habe. Dafür hasse ich mich manchmal... /public/style_emoticons/default/roll.gif...

Ich nicht, aber das hassen andere an mir /public/style_emoticons/default/lol.gif...

kenn ich

[Gerd]

Aber ich kann dann nicht darüber aufhören nachzudenken, bis ich die Lösung im Kopf habe. Dafür hasse ich mich manchmal... /public/style_emoticons/default/roll.gif...

Ich nicht, aber das hassen andere an mir /public/style_emoticons/default/lol.gif...

/public/style_emoticons/default/lol.gif... kenn ich

[Speedfreak]

Aber ich kann dann nicht darüber aufhören nachzudenken, bis ich die Lösung im Kopf habe. Dafür hasse ich mich manchmal... /public/style_emoticons/default/roll.gif...

Ich nicht, aber das hassen andere an mir /public/style_emoticons/default/lol.gif...

/public/style_emoticons/default/lol.gif... kenn ich

/public/style_emoticons/default/lol.gif... /public/style_emoticons/default/lol.gif... /public/style_emoticons/default/lol.gif...

ich meinte damit das es mir oft ähnlich ergeht mit dem gehasst werden

[Gerd]

Ich wollte damit eigentlich auch nichts anderes sagen.

[Speedfreak]

dann is ja gut
hab gemerkt man kanns au anders rum verstehen deswegen hab ichs nochma nachgereicht

[Synthor]

Tzeh. Da hab ich den Typ mit dem Mainboard gerade 10€ runtergehandelt, schreibt der mir, dass jemand bei eBay das zum Festpreis genommen hat.

Argggghhhh...

[Speedfreak]

Tzeh. Da hab ich den Typ mit dem Mainboard gerade 10€ runtergehandelt, schreibt der mir, dass jemand bei eBay das zum Festpreis genommen hat.

Argggghhhh... /public/style_emoticons/default/facepalm...

FUUUUUUU