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:
Alles anzeigen
wiki.freepascal.org/AVR_Embedd…ry_Lazarus_and_Arduino/de
Ein kleines Beispiel um den Unterschied zu BASCOM erkennen zu können:
LAZARUS-Quellcode
- program Project1;
- {$mode objfpc}{$H-}
- {$goto on}
- const
- BP5 = 5; // Pin 13 des Arduino
- dl = 250000; // Ungefähr 1/2 Sek.
- procedure delay(t: int32);
- var
- i: Int32;
- begin
- for i := 0 to t do begin
- asm
- nop;
- end;
- end;
- end;
- begin
- DDRB := DDRB or (1 shl BP5); // Port auf Output schalten
- repeat
- PORTB := PORTB or (1 shl BP5); // Port auf High
- delay(dl); // warten
- PORTB := PORTB and not (1 shl BP5); // Port auf Low
- delay(dl); // warten
- until 1 = 2; // Endlosschleife
- end.
9.379 mal gelesen