mikrocontroller.net

Forum: PC-Programmierung Delphi Programm nach VB.Net übersetzen


Autor: Rattr (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Hallo Leute

Möchte gerne ein Delphi Programm nach VB.Net übersetzen.
Dazu benötige ich eure Hilfe, weil ich kein Delphi kann.
Einige Paralellen sind ja vorhanden.

Wie übersetze ich zb.:

//###################################################################### 
########
procedure MRQ(Status: Boolean);  // Setzt die MRQ Leitung auf HIGH bzw 
LOW
begin                            // ARGUMENTE: Status: "High"/"Low"
  if Status = High then//Wenn Status LOW werden soll
    begin
      hPortStatus := hPortstatus or 4;
      asm
        mov dx, 378h
        mov al, hPortStatus
        out dx, al
      end;
    end
  else                //Wenn Status HIGH werden soll
    begin
      if hPortstatus and 4 = 4 then  //Nur wenn Ist-Zustand High...
        begin
          hPortstatus := hPortstatus - 4;  //...auf low setzen
          asm
            mov dx, 378h
            mov al, hPortStatus
            out dx, al
          end;
        end;
    end;
end;

Mir ist klar, das Inline Assembler nicht mehr funktioniert.
Darum soll es später über die InPout32.dll laufen.
Bin mir mit den END; und END  bzw begin nicht sicher :-(

Ist dies korrekt übersetzt??? :

Function MRQ(ByVal Status As Boolean)
'Setzt die MRQ Leitung auf HIGH bzw LOW
        If Status = High Then 'Wenn Status LOW werden soll
           hPortStatus = hPortstatus or 4;
            'asm()
            'mov dx, 378h
            'mov(al, hPortStatus)
            'out(dx, al)
        Else         'Wenn Status HIGH werden soll
            If hPortStatus And 4 = 4 Then  'Nur wenn Ist-Zustand High...
                       hPortstatus = hPortstatus - 4;  '...auf low 
setzen
                ' asm()
                'mov dx, 378h
                '   mov(al, hPortStatus)
                '  out(dx, al)
            End If
        End If
    End Function

Autor: Rattr (Gast)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Habe es ausprobiert. Wurde von mir richtig übersetzt. Danke für eure 
Nichthilfe.

Autor: Klaus Wachtler (mfgkw)
Datum:

Bewertung
0 lesenswert
nicht lesenswert
Bitte, immer wieder gerne!

Antwort schreiben

Die Angabe einer E-Mail-Adresse ist freiwillig. Wenn Sie automatisch per E-Mail über Antworten auf Ihren Beitrag informiert werden möchten, melden Sie sich bitte an.

Wichtige Regeln - erst lesen, dann posten!

  • Groß- und Kleinschreibung verwenden
  • Längeren Sourcecode nicht im Text einfügen, sondern als Dateianhang

Formatierung (mehr Informationen...)

  • [c]C-Code[/c]
  • [avrasm]AVR-Assembler-Code[/avrasm]
  • [code]Code in anderen Sprachen, ASCII-Zeichnungen[/code]
  • [math]Formel in LaTeX-Syntax[/math]
  • [[Titel]] - Link zu Artikel
  • Verweis auf anderen Beitrag einfügen: Rechtsklick auf Beitragstitel,
    "Adresse kopieren", und in den Text einfügen




Bild automatisch verkleinern, falls nötig
Bitte das JPG-Format nur für Fotos und Scans verwenden!
Zeichnungen und Screenshots im PNG- oder
GIF-Format hochladen. Siehe Bildformate.
Hinweis: der ursprüngliche Beitrag ist mehr als 6 Monate alt.
Bitte hier nur auf die ursprüngliche Frage antworten,
für neue Fragen einen neuen Beitrag erstellen.

Mit dem Abschicken bestätigst du, die Nutzungsbedingungen anzuerkennen.