an easier way to do this 16 times!?!

General discussion on mikroPascal PRO for AVR.
Post Reply
Author
Message
corado
Posts: 401
Joined: 28 Mar 2009 11:03

an easier way to do this 16 times!?!

#1 Post by corado » 09 Apr 2012 12:24

Hallo,
do anybody knows an easier way to do this..because this is only vour time!!! I need it till 16!!!

Code: Select all

if cell_1 - cell_2 > 0.12 then
  IF cell_1 > cell_2 THEN PortD.4:=1 Else PortD.4:=0;
  if cell_1 - cell_3 > 0.12 then
  IF cell_1 > cell_3 THEN PortD.4:=1 Else PortD.4:=0;
  if cell_1 - cell_4 > 0.12 then
  IF cell_1 > cell_4 THEN PortD.4:=1 Else PortD.4:=0;
  if cell_1 - cell_5 > 0.12 then
  IF cell_1 > cell_5 THEN PortD.4:=1 Else PortD.4:=0;
  if cell_1 - cell_6 > 0.12 then
  IF cell_1 > cell_6 THEN PortD.4:=1 Else PortD.4:=0;
  if cell_1 - cell_7 > 0.12 then
  IF cell_1 > cell_7 THEN PortD.4:=1 Else PortD.4:=0;
  if cell_1 - cell_8 > 0.12 then
  IF cell_1 > cell_8 THEN PortD.4:=1 Else PortD.4:=0;
  if cell_1 - cell_9 > 0.12 then
  IF cell_1 > cell_9 THEN PortD.4:=1 Else PortD.4:=0;
  if cell_1 - cell_10 > 0.12 then
  IF cell_1 > cell_10 THEN PortD.4:=1 Else PortD.4:=0;
  if cell_1 - cell_11 > 0.12 then
  IF cell_1 > cell_11 THEN PortD.4:=1 Else PortD.4:=0;
  if cell_1 - cell_12 > 0.12 then
  IF cell_1 > cell_12 THEN PortD.4:=1 Else PortD.4:=0;
  if cell_1 - cell_13 > 0.12 then
  IF cell_1 > cell_13 THEN PortD.4:=1 Else PortD.4:=0;
  if cell_1 - cell_14 > 0.12 then
  IF cell_1 > cell_14 THEN PortD.4:=1 Else PortD.4:=0;
  if cell_1 - cell_15 > 0.12 then
  IF cell_1 > cell_15 THEN PortD.4:=1 Else PortD.4:=0;
  if cell_1 - cell_16 > 0.12 then
  IF cell_1 > cell_16 THEN PortD.4:=1 Else PortD.4:=0;

  if cell_2 - cell_1 > 0.12 then
  IF cell_2 > cell_1 THEN PortD.3:=1 Else PortD.3:=0;
  if cell_2 - cell_3 > 0.12 then
  IF cell_2 > cell_3 THEN PortD.3:=1 Else PortD.3:=0;
  if cell_2 - cell_4 > 0.12 then
  IF cell_2 > cell_4 THEN PortD.3:=1 Else PortD.3:=0;
  if cell_2 - cell_5 > 0.12 then
  IF cell_2 > cell_5 THEN PortD.3:=1 Else PortD.3:=0;
  if cell_2 - cell_6 > 0.12 then
  IF cell_2 > cell_6 THEN PortD.3:=1 Else PortD.3:=0;
  if cell_2 - cell_7 > 0.12 then
  IF cell_2 > cell_7 THEN PortD.3:=1 Else PortD.3:=0;
  if cell_2 - cell_8 > 0.12 then
  IF cell_2 > cell_8 THEN PortD.3:=1 Else PortD.3:=0;
  if cell_2 - cell_9 > 0.12 then
  IF cell_2 > cell_9 THEN PortD.3:=1 Else PortD.3:=0;
  if cell_2 - cell_10 > 0.12 then
  IF cell_2 > cell_10 THEN PortD.3:=1 Else PortD.3:=0;
  if cell_2 - cell_11 > 0.12 then
  IF cell_2 > cell_11 THEN PortD.3:=1 Else PortD.3:=0;
  if cell_2 - cell_12 > 0.12 then
  IF cell_2 > cell_12 THEN PortD.3:=1 Else PortD.3:=0;
  if cell_2 - cell_13 > 0.12 then
  IF cell_2 > cell_13 THEN PortD.3:=1 Else PortD.3:=0;
  if cell_2 - cell_14 > 0.12 then
  IF cell_2 > cell_14 THEN PortD.3:=1 Else PortD.3:=0;
  if cell_2 - cell_15 > 0.12 then
  IF cell_2 > cell_15 THEN PortD.3:=1 Else PortD.3:=0;
  if cell_2 - cell_16 > 0.12 then
  IF cell_2 > cell_16 THEN PortD.3:=1 Else PortD.3:=0;

  if cell_3 - cell_1 > 0.12 then
  IF cell_3 > cell_1 THEN PortD.2:=1 Else PortD.2:=0;
  if cell_3 - cell_2 > 0.12 then
  IF cell_3 > cell_2 THEN PortD.2:=1 Else PortD.2:=0;
  if cell_3 - cell_4 > 0.12 then
  IF cell_3 > cell_4 THEN PortD.2:=1 Else PortD.2:=0;
  if cell_3 - cell_5 > 0.12 then
  IF cell_3 > cell_5 THEN PortD.2:=1 Else PortD.2:=0;
  if cell_3 - cell_6 > 0.12 then
  IF cell_3 > cell_6 THEN PortD.2:=1 Else PortD.2:=0;
  if cell_3 - cell_7 > 0.12 then
  IF cell_3 > cell_7 THEN PortD.2:=1 Else PortD.2:=0;
  if cell_3 - cell_8 > 0.12 then
  IF cell_3 > cell_8 THEN PortD.2:=1 Else PortD.2:=0;
  if cell_3 - cell_9 > 0.12 then
  IF cell_3 > cell_9 THEN PortD.2:=1 Else PortD.2:=0;
  if cell_3 - cell_10 > 0.12 then
  IF cell_3 > cell_10 THEN PortD.2:=1 Else PortD.2:=0;
  if cell_3 - cell_11 > 0.12 then
  IF cell_3 > cell_11 THEN PortD.2:=1 Else PortD.2:=0;
  if cell_3 - cell_12 > 0.12 then
  IF cell_3 > cell_12 THEN PortD.2:=1 Else PortD.2:=0;
  if cell_3 - cell_13 > 0.12 then
  IF cell_3 > cell_13 THEN PortD.2:=1 Else PortD.2:=0;
  if cell_3 - cell_14 > 0.12 then
  IF cell_3 > cell_14 THEN PortD.2:=1 Else PortD.2:=0;
  if cell_3 - cell_15 > 0.12 then
  IF cell_3 > cell_15 THEN PortD.2:=1 Else PortD.2:=0;
  if cell_3 - cell_16 > 0.12 then
  IF cell_3 > cell_16 THEN PortD.2:=1 Else PortD.2:=0;

  if cell_4 - cell_1 > 0.12 then
  IF cell_4 > cell_1  THEN PortC.6:=1 Else PortC.6:=0;
  if cell_4 - cell_2 > 0.12 then
  IF cell_4 > cell_2  THEN PortC.6:=1 Else PortC.6:=0;
  if cell_4 - cell_3 > 0.12 then
  IF cell_4 > cell_3  THEN PortC.6:=1 Else PortC.6:=0;
  if cell_4 - cell_5 > 0.12 then
  IF cell_4 > cell_5  THEN PortC.6:=1 Else PortC.6:=0;
  if cell_4 - cell_6 > 0.12 then
  IF cell_4 > cell_6  THEN PortC.6:=1 Else PortC.6:=0;
  if cell_4 - cell_7 > 0.12 then
  IF cell_4 > cell_7  THEN PortC.6:=1 Else PortC.6:=0;
  if cell_4 - cell_8 > 0.12 then
  IF cell_4 > cell_8  THEN PortC.6:=1 Else PortC.6:=0;
  if cell_4 - cell_9 > 0.12 then
  IF cell_4 > cell_9  THEN PortC.6:=1 Else PortC.6:=0;
  if cell_4 - cell_10 > 0.12 then
  IF cell_4 > cell_10  THEN PortC.6:=1 Else PortC.6:=0;
  if cell_4 - cell_11 > 0.12 then
  IF cell_4 > cell_11  THEN PortC.6:=1 Else PortC.6:=0;
  if cell_4 - cell_12 > 0.12 then
  IF cell_4 > cell_12  THEN PortC.6:=1 Else PortC.6:=0;
  if cell_4 - cell_13 > 0.12 then
  IF cell_4 > cell_13  THEN PortC.6:=1 Else PortC.6:=0;
  if cell_4 - cell_14 > 0.12 then
  IF cell_4 > cell_14  THEN PortC.6:=1 Else PortC.6:=0;
  if cell_4 - cell_15 > 0.12 then
  IF cell_4 > cell_15  THEN PortC.6:=1 Else PortC.6:=0;
  if cell_4 - cell_16 > 0.12 then
  IF cell_4 > cell_16  THEN PortC.6:=1 Else PortC.6:=0;

corado
Posts: 401
Joined: 28 Mar 2009 11:03

Re: an easier way to do this 16 times!?!

#2 Post by corado » 09 Apr 2012 12:49

now I have the problem..he says.
"there is not enough ROM Space" to my Atmega32!!!!
And now?

User avatar
janko.kaljevic
Posts: 3565
Joined: 16 Jun 2011 13:48

Re: an easier way to do this 16 times!?!

#3 Post by janko.kaljevic » 10 Apr 2012 14:12

Hello,

I would really need to see the code in order to help you with this.
If you can post here your project.

Best regards.

Post Reply

Return to “mikroPascal PRO for AVR General”