51单片机的Pascal语言编程

Procedure Do_receive;

var

   number   : byte;

   checksum : byte;

begin

  if (RX_right = True) then

  begin

    if ((RX_Buffer[1] = Header) and (RX_Buffer[2] = Address)) then                  {判断是否合法} 

    begin 

      checksum := 0;

      for number := 1 to (RX_Length-1) do checksum:= checksum + RX_buffer[number];   {计算校验和}

      if (checksum = RX_buffer[RX_Length]) then                                      {校验通过}

      begin

        case  RX_buffer[3] of     {判断命令}

          $01:                    

              begin

                LED_green := False;     {亮绿色LED}

                LED_blue  := True;      {灭蓝色LED}

              end;

          $02:

              begin

                LED_green := True;     {灭绿色LED}

                LED_blue  := False;    {亮蓝色LED}

              end;  

          $03:

              begin

                LED_green := False;   {亮绿色LED}

                LED_blue  := False;   {亮蓝色LED}

              end;  

          $00:

              begin

                LED_green := True;     {灭绿色LED}

                LED_blue  := True;     {灭蓝色LED}

              end;        

        end;

        TX_Buffer[3] := RX_buffer[3];

        TX_Need := True;                           {发送应答}

        TX_Buffer[4] := (not Port_Get) and Port_Mask;    { 获取LED控制脚的状态}

      end;           

    end;



    RX_Count := 1;          

    RX_right := False;          

  end;  

end;

Procedure Do_send;

var

   number  : byte;

   checksum: byte;

begin

  if  (TX_Need = True) then

  begin

    checksum := 0;

    for number := 1 to (TX_Length -1) do checksum := checksum + TX_Buffer[number];    {计算校验和}

    TX_Buffer[TX_Length] := checksum; 

    TX_Count := 1;

    TX_right := False; 

    TX_Need  := False ;   

    TI       := True;                      {开启发送}

  end;

end;   

begin

  Init;          {初始化单片机，此处略}



  Repeat

    Do_receive;

    Do_send;

  until False; 

end.

const

   Header             = $7E;            // 起始字

   Address            = $01;           // 单片机地址

var

  green_light,blue_light:boolean;

  send_data:array [1..4] of byte;                      // 发送缓冲区，这里和通信协议对应

  receive_data:array of byte;                           // 接收缓冲区，这里定义为可变数组，通用性比较好

  green_light := not green_light;         // 改变绿色LED的亮灭  

 blue_light := not blue_light;              // 改变蓝 色LED的亮灭  

 send_data[1]:= Header;

  send_data[2]:= Address;

  send_data[3] := $00;                                            // 暂时借用，省掉一个变量而已

  if (green_light = true ) then send_data[3] := send_data[3] + $01;      // 绿色LED的状态

  if (blue_light = true )  then send_data[3] := send_data[3] + $02;       // 蓝色LED的状态

  send_data[4] := send_data[1] + send_data[2] + send_data[3];         // 计算校验和

  Comm1.WriteCommData(@send_data,4);                                         // 发送4个字节到串口  

procedure TForm1.Comm1ReceiveData(Sender: TObject; Buffer: Pointer;

  BufferLength: Word);

var

   checksum:byte;

   number:byte;

begin

  setlength(receive_data,BufferLength);                               // 根据接收的长度，设置数组大小

  receive_data := Buffer;                                                     //  取得数据

  checksum := 0;

  for number:=0 to (bufferlength -2) do checksum:=checksum + receive_data[number];    // 计算校验和

  if (checksum = receive_data[bufferlength -1]) then                                                            // 校验和合法，则进行接收后的处理

  begin

    case receive_data[3] of

     $00:

         begin

           BitBtn3.Glyph.LoadFromFile(green_dark_file);                      // 下一行的绿色LED 灭

           BitBtn4.Glyph.LoadFromFile(blue_dark_file);                        // 下一行的蓝色LED 灭

         end;

     $01:

         begin

           BitBtn3.Glyph.LoadFromFile(green_light_file);                     // 下一行的绿色LED亮

           BitBtn4.Glyph.LoadFromFile(blue_dark_file);                       // 下一行的蓝色LED 灭

         end;

     $02:

         begin

           BitBtn3.Glyph.LoadFromFile(green_dark_file);                   // 下一行的绿色LED 灭

           BitBtn4.Glyph.LoadFromFile(blue_light_file);                      // 下一行的蓝色LED 亮

         end;

     $03:

         begin

           BitBtn3.Glyph.LoadFromFile(green_light_file);                  // 下一行的绿色LED亮

           BitBtn4.Glyph.LoadFromFile(blue_light_file);                     // 下一行的蓝色LED 亮

         end;

    end;

  end;

  setlength(receive_data,0);                                                      // 释放资源

end;