Zur zeit lese ich DS1620 aus und gebe die Temperatur direkt auf eine LCD
aus ich möchte aber das mir eine Funktion den wert als eine Zahl zurück
liefert und dachte das sich da eine Integer Variable eignet nur wie
bekomme ich die Kommastelle mit?
1 | Sub Ds1621_init(byval Slaveid)
|
2 | I2cstart
|
3 | I2cwbyte Slaveid
|
4 | I2cwbyte &HEE
|
5 | I2cstop
|
6 | End Sub
|
7 |
|
8 | Sub Ds1621_read(byval Slaveid)
|
9 | Local Slaveid_r As Byte
|
10 | Slaveid_r = Slaveid + 1
|
11 |
|
12 | I2cstart
|
13 | I2cwbyte Slaveid
|
14 | I2cwbyte &HAA
|
15 | I2cstop
|
16 |
|
17 | I2cstart
|
18 | I2cwbyte Slaveid_r
|
19 | I2crbyte Msb , Ack
|
20 | I2crbyte Lsb , Nack
|
21 | I2cstop
|
22 |
|
23 | If Lsb = 0 Then
|
24 | X = 0
|
25 | Else
|
26 | X = 5
|
27 | End If
|
28 |
|
29 |
|
30 | Lowerline
|
31 | Lcd "Temperatur: "; Msb ; "." ; X
|
32 | End Sub
|