用pascal开发microbit

micro:bit编程、教学、展示
STEM
回复
头像
shaoziyang
帖子: 3917
注册时间: 2019年 10月 21日 13:48

用pascal开发microbit

#1

帖子 shaoziyang »

随着microbit的推广,越来越多的开发工具开始支持micobit了。例如我们现在可以用freepascal编写microbit的程序

代码: 全选

 const
   GPIO_PIN_CNF_INPUT_Disconnect = 1;
   GPIO_PIN_CNF_DIR_Output = 1;
   microbit_led_col1 = 4;
   microbit_led_row1 = 13;
 var
   i : longint;
 begin
   GPIO.PIN_CNF[microbit_led_col1]:=(GPIO_PIN_CNF_INPUT_Disconnect shl 1) or GPIO_PIN_CNF_DIR_Output;
   GPIO.PIN_CNF[microbit_led_row1]:=(GPIO_PIN_CNF_INPUT_Disconnect shl 1) or GPIO_PIN_CNF_DIR_Output;
   while true do
     begin
       GPIO.OUTSET:=1 shl microbit_led_row1;
       GPIO.OUTCLR:=1 shl microbit_led_col1;
       for i:=1 to 500000 do
         asm
           nop
         end;
       GPIO.OUTCLR:=1 shl microbit_led_row1;
       for i:=1 to 500000 do
         asm
           nop
         end;
     end;
 end.
图片

完整的说明请参考下面链接:
http://wiki.freepascal.org/micro:bit
 

回复

  • 随机主题
    回复总数
    阅读次数
    最新文章