技術標籤：Turbo5151微控制器pascal微控制器

// 本程式使用 Trubo51( https://turbo51.com/ ) 微控制器 PASCAL 編譯器
// 此程式 電路圖 同接 例項1
// 留意 二進位制常數、十六進常數的表示方法
// 留意 SHL(左移位） 、按位取反NOT、按位與AND

// 主程式單元 Test2.pas
Program NewProgram;
uses
    Delay;

var
   Led:byte absolute P1  ;  
   i:byte;
   
begin
   while True do begin
         Led:=%11111111
 
  ;     //初始化全滅,也可以用16進製表示 $FF
         Delayms(1000);
         for i:=1 to 8 do begin 
           //  逐一連續點亮
           LED:=$FF SHL i  ;
           Delayms(1000);        
         end;  //end for

         Delayms(1000);
         for i:=0 to 7 do begin 
           //LED:= LED SHL 1 ;// 逐一輪流點亮
           LED:=Not(1 SHL i)
 
 AND $FF;
           Delayms(1000);       
         end;  //end for
   end;  //end while 
   
end.