Quelltext von C nach Mikrobasic umwandeln -> Brauche Hilfe

[Tid (Gast)]

Hallo Leute,

Habe ein Problem. Ich will mit einem PIC ein OPEL TID Display ansteuern.
Das Interface ist ein abgewandelter I2C Bus.
Das größte Problem ist, das ich einen Quellcode gefunden habe, welchen 
ich annähernd lesen kann.
Aber eben nur annähernd.
C kann ich gar nicht.
Das Programm soll aber mal auf Mikrobasic basierend sein.
Eine komplett neue Sprache zu lernen fällt flach, wegen Zeitmangel.

Ich habe folgenden Code in C:

uint8_t tid_send_byte(uint8_t byte)
{
  // assuming SDA and SCL low
  uint8_t mask = (1 << 6); // MSB first
  uint8_t ack; // TID ack value
  for(; mask != 0x00; mask = (mask >> 1)) // shift towards LSB
  {
    if(mask & byte)
      TID_SDA_1();
    else
      TID_SDA_0();
    delay_us(45);
    TID_SCL_1();
    loop_until_bit_is_set(TID_PIN,TID_SCL); // IMPORTANT!
    delay_us(50);
    TID_SCL_0();
    delay_us(5); // Th
  }
  if(!parity_even_bit(byte & 0x7F)) // odd partition
    TID_SDA_1();
  else
    TID_SDA_0();
  delay_us(45);
  TID_SCL_1();
  loop_until_bit_is_set(TID_PIN,TID_SCL); // IMPORTANT!
  delay_us(50);
  TID_SCL_0();
  TID_SDA_1(); // we will read ack
  delay_us(50);
  TID_SCL_1();
  loop_until_bit_is_set(TID_PIN,TID_SCL); // IMPORTANT!
  // read ack byte, 0 means acknowledged - data OK
  if(bit_is_set(TID_PIN,TID_SDA))
  {
    ack = 1;
  }
  else
  {
    ack = 0;
  }
  delay_us(50);
  TID_SCL_0();
  delay_us(50);
  TID_SDA_0();
  delay_us(50);
  return ack; // 0 == ok
}

Nun möchte ich ihn in Mikrobasic umwandeln:

 
Sub function tid_send_byte(byval ByteToSend as byte) as byte 'Gibt Ack zurück
    ' assuming SDA and SCL low
    dim i as integer 'Zählervariable
    
    for i = 0 to 6
        if ByteToSend.i = 1 then
           TID_SDA_1()
        else
            TID_SDA_0()
        end if
        delay_us(45)
        TID_SCL_1()
        do
          NOP
        loop until TID_SCL = 1
        delay_us(50)
        TID_SCL_0()
        delay_us(5)
    next i
    if TestParityBit(ByteToSend) = 0
       TID_SDA_0()
    else
        TID_SDA_1()
    end if
    delay_us(45)
    TID_SCL_1()
    Do
      NOP
    Loop until TID_SCL = 1
    delay_us(50)
    TID_SCL_0()
    TID_SDA_1()  ' we will read ack
    delay_us(50)
    TID_SCL_1()
    do
      NOP
    loop until TID_SCL = 1
    ' read ack byte, 0 means acknowledged - data OK
    if TID_SDA = 1 then
       tid_send_byte = 1
    else
        tid_send_byte = 0
    end if
    delay_us(50)
    TID_SCL_0()
    delay_us(50)
    TID_SDA_0()
    delay_us(50)
End sub

Wo liegt mein Problem:
Ich kapieren nicht die Schleife in C nicht.
läuft die von 0 bis 6 , von 1 bis 7 ????

Habe ich diese richtig umgesetzt?

Wie funktioniert das Schieben?

Habe ich das Schieben in meiner Schleife richtig nachgestellt?

Über die Performance des Quelltextes soll hier nicht gestritten werden. 
Genausowenig über die Sinnhaftigkeit von Basic.

Würde mich über eine Erklärung freuen.

mfG

[Oliver (Gast)]

Tid schrieb:
> Eine komplett neue Sprache zu lernen fällt flach, wegen Zeitmangel.

Es dürfte ausreichen, nur das nachzuschlagen, was in dem Quelltext oben 
benutzt wurde. So viel ist das ja nicht.

Das hier sollte neben google dabei helfen:
http://openbook.galileocomputing.de/c_von_a_bis_z/


Die Schleife
>uint8_t mask = (1 << 6); // MSB first
>for(; mask != 0x00; mask = (mask >> 1))

startet mit mask = 01000000, und schiebt in jedem Umlauf die 1 eins nach 
rechts. Wenn mask dann gleich 0 ist, bricht die Schleife ab. Einen 
Durchlauf mit 0 gibt es dabei nicht mehr.

Oliver

[Karl H. (kbuchegg)]

for SChleifen in C


   for( Initialisierung;  Bedingung;  Aktion bei jedem Durchlauf )


Initialisierung: Also der Teil, der nur einmal ausgeführt wird, ehe die 
Schleife überhaupt beginnt

Bedingung: die Bedingung muss erfüllt sein, damit der Schleifenkörper 
betreten wird

Aktion: Diese Aktion wird am Ende des Schleifenkörpers ausgeführt, noch 
ehe as an den Anfang zurückgeht und die Bedingung erneut geprüft wird.


   for( Init; Bedingung; Aktion )
      ....

ist also gleichwertig zu


   Init
   while( Bedingung ) {
      .....
      Aktion
   }


Jeder der 3 Teile kann fehlen, lediglich die Strichpunkte bleiben dann 
als die Trenner erhalten. Fehlt der Init Teil, dann sieht das dann eben 
so aus

    for( ; Bedingung; Aktion )

fehlt die Bedingung, dann eben so

    for( Init; ; Aktion )

fehlt Init und Aktion, dann eben so

    for( ; Bedingung; )

bzw. dann sinngemäss für alle anderen Kombinationen

[Karl H. (kbuchegg)]

Tid schrieb:

> Habe ich das Schieben in meiner Schleife richtig nachgestellt?

ich würde sagen nein.
Du behandelst du Bits genau verkehrt rum.

Das original behandelt die Bits
    6, 5, 4, 3, 2, 1, 0
dein Code behandelt die Bits
    0, 1, 2, 3, 4, 5, 6

und zwar jeweils genau in dieser Reihenfolge. Ergo: Deine Bits sind 
genau gespiegelt ausgegeben.

[Tid (Gast)]

Also muss es in diese Reihe:

for i = 6 to 0 step -1
        if ByteToSend.i = 1 then
           TID_SDA_1()
        else
            TID_SDA_0()
        end if
        delay_us(45)
        TID_SCL_1()
        do
          NOP
        loop until TID_SCL = 1
        delay_us(50)
        TID_SCL_0()
        delay_us(5)
next i

[Durtl (Gast)]

Glaube nicht das das stimmt.
Deine MASK fehlt.

[Karl H. (kbuchegg)]

Durtl schrieb:
> Glaube nicht das das stimmt.
> Deine MASK fehlt.

Das macht nichts.
Funktional sind die beiden Versionen identisch. Also in dem Sinne, dass 
sie das gleiche machen.
Die C Version benutzt eine Maske um ein Bit nach dem anderen 
freizustellen und entsprechend den Ausgang zu schalten und im Basic 
Programm macht das eben das Zusammenspiel aus i und ByteToSend.i

D.h. der Effekt müsste der gleiche sein.