Динамическая Индикация + Proteus VSM 7, Совместимы ли, че не так делаю ? Опции

[dio]

Приветствую!

Илектронный циферблат с 4мя 7ми-сегментными цифрами (в будущем будет часами) реализую с помощью динамики в IAR следующим образом:

Код

#define byte unsigned char
#define dynIndexingTime 20000
#define MaxValue 50

#define CharCodeBusDDR DDRB
#define CharCodeBus    PORTB
#define kathodBusDDR   DDRD
#define kathodBus      PORTD


void my_putChar(byte ind);
byte charTable(byte ind);

byte N1,N10,N100,N1000;

int main( void )
{
  int counter,ind;
  CharCodeBusDDR=0xFF;
  kathodBusDDR=0x0F;

  kathodBus=0xFE;

N1=0;
N10=0;
N100=0;
N1000=0;

counter=0;
ind=0;

for(;;)
{
   counter++;

  if (counter > MaxValue)
  {
   counter=0;
   N1++;
   if (N1>9)   {  N1=0;    N10++;  }
   if (N10>9)  {  N10=0;   N100++;  }
   if (N100>9) {  N100=0;  N1000++;  }
   if (N1000>9){  N1000=0;   }
  }


  if (ind==4) ind=0;
     my_putChar(ind++);

     __delay_cycles(dynIndexingTime);  // Wait

     kathodBus=~((~kathodBus)<<1);
     if (kathodBus==0xEF) kathodBus=0xFE;

}


}


void my_putChar(byte ind) //ind->index "0" -> N1,singles   '1'->N10,decades  '2'->N100,hundreds  '3'->N1000,thousands
{
     if (ind==0) CharCodeBus =charTable(N1);
else if (ind==1) CharCodeBus =charTable(N10);
else if (ind==2) CharCodeBus =charTable(N100);
else if (ind==3) CharCodeBus =charTable(N1000);
}

byte charTable(byte ind)
{
  switch(ind)
    {
    case 0: return 0x3F;
    case 1: return 0x06;
    case 2: return 0x5B;
    case 3: return 0x4F;
    case 4: return 0x66;
    case 5: return 0x6D;
    case 6: return 0x7D;
    case 7: return 0x07;
    case 8: return 0x7F;
    case 9: return 0x6F;
    }
return 0x01;
}

Результаты в Proteusе не соответствуют ожидаемым. Подскажите пжста в чем проблема, может какие настройки специальные в Proteusе или напутал чего?

Благодарю зарание !

Hex File

Proteus 7 file

Извиняюсь за Rapidshare, не мог втыкнуть по другому.

Сообщение отредактировал dio - Jun 24 2007, 14:06

[SasaVitebsk]

Я не совсем правильно выразился или, если внимательно почитать Вы не совсем меня правильно поняли. Я не против Протеуса или любой другой программы. Я с уважением отношусь к людям имеющим значительный багаж знаний. Я просто против подхода когда человек знает 150 пакетов а на проверку - ни одного.

Если человек досконально знает протеус, то это, безусловно, ему поможет - в том или ином случае. Но у нас люди привыкли прихватом обходится. Там чуть-чуть - там чуть-чуть. Я против этого. На сегодняшний день я уже регулярно использую столько пакетов в своей повседневной работе, что меня уже клинит. Вся моя сущность уже протестует против изучения новых. Я отдаю себе отчёт, что нормально изучить пакет мне не удастся, по причине отсутствия времени и ... желания. Поэтому лучше досконально изучить те несколько пакетов, без которых абсолютно не возможно обходится.


Но это сугубо мой взгляд. Он обусловлен моими возможностями к обучению или свойствами моего организма. А человек уникален. Для некоторых, я уверен, всё будет с точностью наоборот. Поэтому здесь нет места рекомендациям. Я просто, обращаю внимание на свой подход. Надо попробовать и так и так - и выбрать свой путь.




А главное, я в этом убеждён, я уже написал. Самое дорогое - это Ваше личное время. Не тратьте его напрасно. В 20 лет кажется, что его очень много. Но мне, в мои 40, кажется, что его так мало осталось, и мне безумно жаль что кто-то его тратит легко и непренуждённо.