Controlsystem for compact sporting (clay shooting)

[Fredrick]

Sorry... but I don´t understand how to do the program with the lookup function.

Where comes the numbers [1,3,7,15,31] from and what does it do?

How to i use the lookup to point the program to the right loop that contains the right clay combination?

[Archangel]

Sorry... but I don´t understand how to do the program with the lookup function.

Where comes the numbers [1,3,7,15,31] from and what does it do?

How to i use the lookup to point the program to the right loop that contains the right clay combination?

What does it do . . . It tells your program how many shooters are there, from the input I was too lazy to code for you. You get that input from a key routine or waste 5 ports as inputs, either way you answer the question, how many shooters. I answered it by coding shooters = 2, you I expect will want to select 1 to 5 at will.
The numbers in the lookup table are decimal representations of their binary equivalent. Think of PortC as a 8 digit binary display, 1 would light just bit 0, 3 would light bits.0:1, 7 lights bits 1:3 . . . I urge you to try this code snippet and alter the numbers and see what it does. The lookup table just makes the counter count read differently, when it sees 1 it reports 1, 2 it reports 3, 3 it reports 7 . . . in binary. The -1 in the lookup just makes 0 invalid as you would never have 0 shooters.

[Fredrick]

Ok now I understand the function of LOOKUP but i don´t know how to use it to jump to the right loops when the number of shooter changes.

This is how the shooting sequence look like


When there are five shooters, one on each stand they shoot as in the diagram above. and then they move one steep right and the guy on stand 5 move to the stand 1 and the shooting sequence starts from STAND 1 again and so on.... until all shooters have shoot from all 5 stands.

But if there are 3 shooters the shooting sequence will look like this.
1st run
LOOP 1
LOOP 2
LOOP 3

LOOP 6
LOOP 7
LOOP 8

LOOP 11
LOOP 12
LOOP 13

2:e run

LOOP 2
LOOP 3
LOOP 4

LOOP 7
LOOP 8
LOOP 9

LOOP 12
LOOP 13
LOOP 14

3: run
LOOP 3
LOOP 4
LOOP 5

LOOP 8
LOOP 9
LOOP 10

LOOP 13
LOOP 14
LOOP 15

4:run
LOOP 4
LOOP 5
LOOP 1

LOOP 9
LOOP 10
LOOP 6

LOOP 14
LOOP 15
LOOP 11

5:e and last run
LOOP 5
LOOP 1
LOOP 2

LOOP 10
LOOP 6
LOOP 7

LOOP 15
LOOP 11
LOOP 12

[Fredrick]

The LOOKUP code will only work for the first 3 loops if there are 3 shooters.. or?

[mackrackit]

Can you post your whole code so we can see where you are at.

[Archangel]

Here try this:

'****************************************************************
'*  Name    : 16F690Shooter.BAS                                   *
'*  Author  : Joe S.                                                  *
'*  Notice  : Copyright (c) 2009 []                             *
'*          : No Rights Reserved                               *
'*  Date    : 7/29/09                                           *
'*  Version : 1.0                                               *
'*  Notes   :                                                   *
'*          :                                                   *
'****************************************************************
@MyConfig = _INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_ON  
@MyConfig = MyConfig & _MCLRE_ON & _BOR_OFF 
@ __config  MyConfig 
include "modedefs.bas"
    DEFINE OSC 4
    PortA = 0
    PortB = 0
    PortC = 0
    TRISA = 1
    TRISB = 0
    TRISC = %00000000
    i Var Word 'locks up @ 255 with byte
    ANSEL = 0
    ANSELH = 0
    CM1CON0 = 0
    CM2CON0 = 0
    shooters var byte
    total    var byte
    sub      var byte
    dummy    var byte
    serout PortA.2,t9600,["enter shooters"]
' too lazy to do input routine
start:
    shooters = 2


main:
    if portA.0 = 0 then goto main  

    select case shooters
        case  1
        gosub one
        case  2
        gosub two
        case  3
        gosub three
        case  4
        gosub four
        case  5
        gosub five
        case else
        goto start
    end select

goto main
end
one:
    for i = 0 to 4
      lookup i,[1,2,4,8,16],total
      portc = total
      pause 1000
    next i
return

two:
      for i = 0 to 4
      lookup i,[3,6,12,24,49],total
      portc = total
      pause 1000
    next i
return

three:
      for i = 0 to 4
      lookup i,[7,14,28,25,19],total
      portc = total
      pause 1000
    next i
return

four:
      for i = 0 to 4
      lookup i,[15,30,29,27,23],total
      portc = total
      pause 1000
    next i
return

five:
      portc = total
return

For now change the number of shooters and recompile, or put in a routine to select # of shooters, PortA.0 high will start cycle

[Fredrick]

Thanks Joe
No it works!


My code for 2 shooters

for i = 0 to 29
lookup i,[1,2,6,7,11,12,2,3,7,8,12,13,3,4,8,9,13,14,4,5,9,10,14,15,5,1,10,6,15,11],total
 
if total = 1 then gosub clay1 
if total = 2 then gosub clay2
if total = 3 then gosub clay3
if total = 4 then gosub clay4
if total = 5 then gosub clay5
if total = 6 then gosub clay6
if total = 7 then gosub clay7
if total = 8 then gosub clay8
if total = 9 then gosub clay9
if total = 10 then gosub clay10
if total = 11 then gosub clay11
if total = 12 then gosub clay12
if total = 13 then gosub clay13
if total = 14 then gosub clay14
if total = 15 then gosub clay15
pause 3000
next i