论坛首页 › 嵌入式OS › EKSTM32F LCD程序移植Protothreads

ATmega32 发表于 2008-3-27 15:48:30

EKSTM32F LCD程序移植Protothreads

EKSTM32F LCD程序移植Protothreads。

四个线程，
Thread1，LED4闪烁；
Thread2，LED5闪烁；
Thread3，LCD显示；
Thread4，LCD扫描；


#include "config.h"

THR_Create(Thread1);
THR_Create(Thread2);
THR_Create(Thread3);
THR_Create(Thread4);

TMR_Create(timer1);
TMR_Create(timer2);
TMR_Create(timer3);
TMR_Create(timer4);

uint8 Thread1(Tpt *pt)
{
PT_BEGIN(pt);
    while(1)
    {
      PT_TIMER_DELAY(&timer1,250);
      GPIO_SetBits(GPIOC, GPIO_Pin_4);
      PT_TIMER_DELAY(&timer1,250);
      GPIO_ResetBits(GPIOC, GPIO_Pin_4);
    }
   PT_END(pt);
}

uint8 Thread2(Tpt *pt)
{
   PT_BEGIN(pt);
    while(1)
    {
      PT_TIMER_DELAY(&timer2,500);
      GPIO_SetBits(GPIOC, GPIO_Pin_5);
      PT_TIMER_DELAY(&timer2,500);
      GPIO_ResetBits(GPIOC, GPIO_Pin_5);
    }
   PT_END(pt);
}

uint8 Thread3(Tpt *pt)
{
   PT_BEGIN(pt);
    while(1)
    {
      write_string("   S");
      PT_TIMER_DELAY(&timer3,500);
      write_string("ST");
      PT_TIMER_DELAY(&timer3,500);
      write_string(" STM");
      PT_TIMER_DELAY(&timer3,500);
      write_string("STM32");
      PT_TIMER_DELAY(&timer3,500);
      write_string("TM32");
      PT_TIMER_DELAY(&timer3,500);
      write_string("M32 ");
      PT_TIMER_DELAY(&timer3,500);
      write_string("32 L");
      PT_TIMER_DELAY(&timer3,500);
      write_string("2 LC");
      PT_TIMER_DELAY(&timer3,500);
      write_string(" LCD");
      PT_TIMER_DELAY(&timer3,500);
      write_string("LCD ");
      PT_TIMER_DELAY(&timer3,500);
      write_string("CD D");
      PT_TIMER_DELAY(&timer3,500);;
      write_string("D DE");
      PT_TIMER_DELAY(&timer3,500);
      write_string(" DEM");
      PT_TIMER_DELAY(&timer3,500);
      write_string("DEMO");
      PT_TIMER_DELAY(&timer3,500);
      write_string("EMO");
      PT_TIMER_DELAY(&timer3,500);
      write_string("MO");
      PT_TIMER_DELAY(&timer3,500);
      write_string("O");
      PT_TIMER_DELAY(&timer3,500);
      write_string("");
      PT_TIMER_DELAY(&timer3,500);
    }
   PT_END(pt);
}


uint8 Thread4(Tpt *pt)
{
   PT_BEGIN(pt);
    while(1)
    {
      LcdScan();
      PT_TIMER_DELAY(&timer4,1);
    }
   PT_END(pt);
}


int main()
{
cli();
RCC_Configuration();
NVIC_Configuration();
GPIO_Configuration();
SysTick_Config();
Led_Config();
sei();

while(1)
{
   pt_execute(PT(Thread1));
   pt_execute(PT(Thread2));
   pt_execute(PT(Thread3));
   pt_execute(PT(Thread4));
}
//return 0;
}

点击此处下载 ourdev_240736.rar(文件大小:660K) (原文件名:test_pt_stm32_iar.rar)


不知道对不对？

sourceForge 发表于 2008-3-28 10:14:17

終於攪明白Protothreads了, 感覺Protothreads是雞肋, 不過相對os 來說簡單多了.

ATmega32 发表于 2008-3-28 10:34:52

一般的OS在AVR上不好用，AVRX又不能移植。

Protothreads虽然不是OS，但也有类似协作式OS调度，移植性超好。
在小RAM的MCU上用非常合适。

sourceForge 发表于 2008-3-28 11:06:16

的確是這樣, 不過樓主是在arm上玩, 好像顯不了優勢!

查看完整版本: EKSTM32F LCD程序移植Protothreads