Função com Vetor Harbour

[Nascimento]

Amigos eu tenho um vetor da seguinte forma:

Código: Selecionar todos

cCmd := {'1','2','3','4','5','6',; // 1
	      '1','2','3','4','5','6',; // 2
	      '1','2','3','4','5','6',; // 3
	      '1','2','3','4','5','6',; // 4
	      '1','2','3','4','5','6',; // 5
	      '1','2','3','4','5','6',; // 6
	      '1','2','3','4','5','6',; // 7
	      '1','2','3','4','5','6',; // 8
	       '1','2','3','4','5','6',; // 9
	       '1','2','3','4','5','6',; // 10
	       '1','2','3','4','5','6'}  // 11 

gero um numero de 1 a 30 "digamos que aleatorio"

e depois pego a posição no vetor

o que eu preciso é que se passar de 6 o randon ele volte pra um e continue a contagem por exemplo

se der 7 ele vai pegar o no vetor o 1, se der 8 pega o 2 , 9 o 3 10 o 4 , 11 o 5, 12 o 6, 13 o 1 novamente e começa tudo de novo

então digamos que o random pegue o numero 10, amotra-ra na tela , 10,4 se ficar dificil de entender me falem eu tento melhorar

[JoséQuintas]

Resto da divisão:

Código: Selecionar todos

n := Mod( n, 6 )
n := iif( n == 0, 6, n )

[Nascimento]

perfeito mestre quintas
isso se trata de uma serie de comandos em hexadecimais por isso tem esses valores repetidos de 1 a 6