TWI Multimaster Übertragung von Singlewerte auch allgemein

Druckbare Version

11.05.2009, 16:44
mat-sche

TWI Multimaster Übertragung von Singlewerte auch allgemein

Hallo!

Man(n) kann sich ja nun zu jedem Bussystem ein eigenes Busprotokoll ausdenken.
Ich speziell nehme den I2C Bus. Nun möchte ich 2-3 Singlewerte übertragen.
Das heißt, der Slave hat als Bsp. 3 Temperaturwerte die ich mit dem Master abrufen will. Bis jetzt mache ich das das ganz für einen Wert gut über dem overlay Befehl:

Code:

Dim Temp3 As Single Dim Tempbuff(2) As Byte At Temp3 Overlay ' jetzt lade ich den Singlewert in den Slavebuffer For Temp = 1 To 4 Twi_slv_buff(temp) = Tempbuff(temp) Next Twi1

WIe kann ich nun mehrer Singelwerte so übertragen, dass ich sie beim Empfänger wieder zusammen setzen kann und wieder nen Single daraus machen kann?

Danke & Gruß

MAT
11.05.2009, 18:49
PicNick

So, wie du es begonnen hast, nur, für die TWI Slave Library brauchst du die Overlaygeschichte nicht
Beispiel, 3 single-Werte

Code:

Dim Temp1 As Single Dim Temp2 As Single Dim Temp3 As Single Senden: Twi-mst-addr = &Hxx ' Slave i2c addr. Twi-Mt-Data = VARPTR(Temp1) ' addresse 1.single Twi-Mt-cntr = 12 '( 3 singles -> 3*4 -> 12 Byte) gosub twi-run-master '-------------------------------------------- Empfangen-define: Twi-slv-addr = &Hxx ' Slave i2c addr. Twi-sr-Data = VARPTR(Temp1) ' addresse 1.single # wenn dann irgendwann im twi-slv-flag "&H60" steht, befinden sich die 3 singles schon dort, wo sie hingehören. twi-sr-cntr = 12 , das ist die Anzahl, die der Master geschickt hat.
12.05.2009, 14:10
mat-sche

Hallo PicNick,

gut, das habe ich soweit verstanden. Nur wie bekomme ich jetzt die einzelnen Singelwerte aus dem "Twi-sr-Data" wieder heraus?
Muss ich jetzt die 4 Byts eines Singles in eine neue Variable schreiben und diese als Single deklarieren?
Aber wie?
12.05.2009, 14:22
PicNick

Wenn der Slave definiert:

Twi-sr-Data = VARPTR(Temp1) ' addresse 1.single

dann werden die Empfangsdaten direkt in die 3 singles reingeschrieben.
Da muss man garnix mehr machen.

TWI-SR-DATA beinhaltet die Adresse der Empfangsdaten. Das kann ein buffer sein, aber eben auch irgendwelche Variablen, Hauptsache, sie stehen in der richtigen reihenfolge und hintereinander im SRAM
das ist dann gegeben, wenn die DIM's auch hintereinander stehen.
12.05.2009, 16:44
mat-sche

...
das heißt, dass wenn ich:
Dim Temp1 As Single
Dim Temp2 As Single
Dim Temp3 As Single
angebe und es werden Daten empfangen, stehen nur die Adressen in Twi-sr-Data = VARPTR(Temp1)?
Kann ich jetzt ohne weiteres mit den Temp1/2/3 weiterarbeiten oder muss ich diese vorher noch in eine andere Variable übertragen?
13.05.2009, 09:34
PicNick

Bei Empfang schreibt die Library das Byte auf die Adresse, die in twi-sr-data steht. Das nächste dann auf twi-sr-data + 1 usw.
d.h nach 3*4 bytes haben die 3 singles denselben Inhalt wie die 3 singles des Masters.
Die kann man direkt verwenden, ohne irgendeine Umwandlung
13.05.2009, 10:49
mat-sche

Hi,

sehr gut! Habe gestern dann noch mitbekommen das ich es so schon in meinem Code nutze, die Empfängerseite ist nun geklärt.
Danke!
16.05.2009, 09:05
mat-sche

Hi Picnick,

jetzt bin ich doch noch über ein Rätsel gefallen:

* wenn ich von einem Slave einige Byte abholen möchte müssen diese ja dann im Slave irgendwie bereit gestellt werden.

Code:

Twi_mst_addr = Mn2_adr 'I2C adresse ZIEL Twi_mt_cntr = 8 ' 8 Byte senden Twi_mt_data = Varptr(twi_mst_buff(1)) ' Daten

=> hier schicke ich dem Slave 8 byte... verstanden

Code:

Twi_mr_cntr = 3 ' dann 3 Byte empfangen Twi_mr_data = Varptr(twi_mst_buff(1)) ' empfangsbuffer Gosub Run_wait_master ' noch eine SUB

=> hier hole ich mir 3 byte, wie muss nun im Slave der Code aussehen, um 3 bestimmte Bytes zu holen?
Bzw. ich habe 3 Singles hintereinander und dann noch mal 3 Bytes die abgeholt werden sollen, wie und wo im Slave muss ich diese anordnen/bereitstellen?

Vielleicht hab ich es schon gefunden?!

=> Twi_st_data = Varptr(twi_slv_buff(1)) 'datenbuffer senden

die Daten, welche abgeholt werden sollen, stehen im twi_slv_buff(1)?

Wenn ja, müsste ich es so machen?

Code:

Dim Temp1 As Single Dim Temp2 As Single Dim Temp3 As Single Dim Byte1 As Byte Dim Byte2 As Byte Dim Byte3 As Byte Twi_slv_addr = Mn1_adr 'lokale I2C-Adresse Twi_sr_data = Varptr(twi_slv_buff(1)) 'datenbuffer empfang Twi_st_data = Varptr(Temp1) 'datenbuffer senden

Danke und Gruß
MAT
16.05.2009, 14:20
PicNick

Wenn dich dein Master die 3 Singles vom Slave HOLEN wollte:

Code:

MASTER:------------------------------------------------------ TWI-MR-CNTR = 12 TWI-MR-DATA = VARPTR(Temp1) Gosub Run_wait_master SLAVE:------------------------------------------------------ TWI-ST-DATA = VARPTR(Temp1) ----- wenn jetzt ein Master LIEST, kriegt er die Singles (direkt)
16.05.2009, 16:25
mat-sche

ok, das hatte ich schon so in meinen Code eingebaut, jedoch noch nicht getestet. Dann habe ich jetzt alles geschnallt!

Aber noch eine Frage:

mit Dim Twi_mst_buff(24) As Byte lege ich doch den puffer mit 24 Byte an. Wie kann ich jetzt z.Bsp. jetzt das 19. Byte in eine andere Variable stecken?

Etwa so:

Dim Twi_mst_buff(24)
dim byte1 as byte

do
byte1 = Twi_mst_buff(19)
loop

Wenn ja, ist dies auch so einfach mit einem Single/ Word?
16.05.2009, 16:47
PicNick

Solange es um Bytes geht, kein Problem. Wenn es aber um word, integer oder singles geht, muss man den Bascom so oder so oder anders irgendwie austricksen.
Einen Bytearray (tabelle) als soz. neutralen Buffer zu verwenden macht Sinn, wenn a priori nicht weiss, was da aktuell so reinkommt.
Aber meistens weiss man ja, was kommt, und dann ist es besser, gleich die richtigen Variablen als Empfangsbereich zu verwenden.
Also, z.B :
Du holst dir vom Slave ein Byte, 3 Singles und ein Word in dieser Reihenfolge
Dann Definierst du
DIM s_byte AS BYTE
DIM s_sing1 AS SINGLE
DIM s_sing2 AS SINGLE
DIM s_sing3 AS SINGLE
DIM s_word AS WORD

Und dann
TWI-MR-CNTR = 15
TWI-MR-DATA = VARPTR(s_byte)

dann brauchst du nachher nix mehr rumzuschippern.

Das gleiche macht der slave
TWI-ST-DATA = VARPTR(s_byte)

dann kann der Slave direkt in die Variablen reinschreiben
der Master nach dem Lesen kann die Variablen direkt 1:1 verwenden.

Btw:
Um aus einem Byte-Array von beliebiger stelle ein Single rauszuholen, kann man

Code:

DIM s_single AS SINGLE ' da soll's rein DIM s_byte(4) AS BYTE AT s_single OVERLAY s_Byte(1) = twi_mst_buff(19) s_Byte(2) = twi_mst_buff(20) s_Byte(3) = twi_mst_buff(21) s_Byte(4) = twi_mst_buff(22)
16.05.2009, 18:40
mat-sche

momentan läuft in meinem Code gar nichts mehr was TWI betrifft. werde morgen nochmal in Ruhe alles durchschauen.
Danke bis dahin!
Schöne Sonnabend noch!
MAT