LAZ 50.1 Lazarus mit Crosscompiler für AVR

This site uses cookies. By continuing to browse this site, you are agreeing to our Cookie Policy.

  • 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.
    Display All

    341 times viewed