Página 1 de 1

Sortear um numero ou letra

Enviado: 08 Set 2005 14:23
por Pedro Junior
Pessoal é o seguinte:

Aquí na empresa (Usina de Açucar e Alcool) preciso fazer com que o sistema faça a escolha(sorteio) de quais posições serão feita as coletas de cana para a análise.

É mais ou menos assim : Tenho diversos procedimentos para a coleta de amostras de cana. São elas : as posições A, B, C, D , E, F, então preciso que o sistema escolha qual a Posicao(letra) de A até F.

Essas posições definem quais os locais devem ser perfurados para que a sonda faça a coleta. Mais depois preciso escolher também qual sonda vai ser usada para fazer o procedimento acima, as sondas são 4, então preciso que o sistema também escolha uma sonda(numero) de 1 até 4.


Resumindo o sistema tem que escolher uma letra de A até F e depois escolher um numero de 1 até 4.


Alguém pode me ajudar ?

Enviado: 09 Set 2005 08:52
por Clipper
Prezado Colega

Você pode fazer assim :

CLS
NPOSICAO=RANDOM(6)
POSICAO=CHR(64+NPOSICAO)
SONDA=RANDOM(4)

@ 02,00 SAY "Posicao = "+POSICAO
@ 03,00 SAY "Sonda = "+STR(SONDA,1)
RETURN

A função RANDOM() Você baixa em :

www.sistemabr.com.br/clipper/random.zip

Essa é simples, o bom mesmo é fazer os cálculos da ATR :(

Até logo.

Marcelo

Enviado: 09 Set 2005 10:38
por Visitante
Também existe a função Random() que faz parte da biblioteca Nantucket Tools II.

Essa biblioteca é boa, pois possuem diversas funções muito interessantes (com um ng que separa elas por tipo, ou seja, funções matemáticas, funções de disco, funções de manipulação de string, etc. etc. etc.)


Um Clip Abraço

Enviado: 10 Set 2005 23:47
por Pedro Junior
Valeu pessoal , muito obrigado. Eu estava fazendo alguns testes com a e_random da Libs Orbis. Agora posso usar estas dicas que vocês me deram.

Aí Marcelo, realmente o calculo de ATR é muito complicado, mas depois com o manuseio no dia a dia se torna bem mais simples.

Valeu pessoal, um abraço a todos e muito obrigado.