LAZ 50.1 Lazarus mit Crosscompiler für AVR

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

Aufgrund technischer Veränderungen ist der Mailverkehr innerhalb des Forums (Private Nachrichten) nur noch eingeschränkt möglich. Die Einschränkung ist notwendig, um zusätzliche Betriebskosten für das Forum zu vermeiden. Näheres zu den Hintergründen im Thread "Aktuelles zum Forum".Wir bitten um Verständnis.

Hinweis kann nach Kenntnisnahme deaktiviert werden!

  • Mit Lazarus AVR Projekte erzeugen.
    Erzeugen einer Lazarus Version mit Crosscompiler
    wiki.freepascal.org/AVR_Embedd…ry_Lazarus_and_Arduino/de

    Ein kleines Beispiel um den Unterschied zu BASCOM erkennen zu können:

    LAZARUS-Quellcode

    1. program Project1;
    2. {$mode objfpc}{$H-}
    3. {$goto on}
    4. const
    5. BP5 = 5; // Pin 13 des Arduino
    6. dl = 250000; // Ungefähr 1/2 Sek.
    7. procedure delay(t: int32);
    8. var
    9. i: Int32;
    10. begin
    11. for i := 0 to t do begin
    12. asm
    13. nop;
    14. end;
    15. end;
    16. end;
    17. begin
    18. DDRB := DDRB or (1 shl BP5); // Port auf Output schalten
    19. repeat
    20. PORTB := PORTB or (1 shl BP5); // Port auf High
    21. delay(dl); // warten
    22. PORTB := PORTB and not (1 shl BP5); // Port auf Low
    23. delay(dl); // warten
    24. until 1 = 2; // Endlosschleife
    25. end.
    Alles anzeigen

    9.391 mal gelesen