Criar ranking para clientes.


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: Criar ranking para clientes.

Jefrey
não registrado

Postada em 14/11/2005 22:51 hs

Quero fazer o seguinte:

Se no text1.tex contiver numeros entre 0 e 20 apareça no text2.tex o numero 0.

Se no text1.tex contiver numeros entre 21 e 40 apareça no text2.tex o numero 1.

Se no text1.tex contiver numeros entre 41 e 60 apareça no text2.tex o numero 2.

Se no text1.tex contiver numeros entre 61 e 80 apareça no text2.tex o numero 3.

Se no text1.tex contiver numeros entre 81 e 100 apareça no text2.tex o numero 4.

Se no text1.tex contiver numeros entre 101 em diante apareça no text2.tex o numero 5.

Estou querendo com isso, criar um ranking para os clientes onde cada numero no text2.text representa uma estrela.

Se algum puder me ajudar ou, tiver uma ideia melhor, agradeço desde ja.

Shel

GOIÂNIA
GO - BRASIL

Postada em 15/11/2005 08:42 hs

Jefrey,

tenta o código abaixo.

Marcelo

dim opcao

if text1.tex > = 0 and text1.tex < = 20 then

opcao = 1

elseif text1.tex > = 21 and text1.tex < = 40 then

opcao = 2

elseif text1.tex > = 41 and text1.tex < = 60 then

opcao = 3

elseif text1.tex > = 61 and text1.tex < = 80 then

opcao = 4

elseif text1.tex > = 81 and text1.tex < = 100 then

opcao = 5

elseif text1.tex > = 101 then

opcao = 6

end if

select case opcao

case 1

text2.tex = 0

case 2

text2.tex = 1

case 3

text2.tex = 2

case 4

text2.tex = 3

case 5

text2.tex = 4

case 6

text2.tex = 5

end select

Jefrey
não registrado

Postada em 15/11/2005 14:48 hs

Shel,

Funcionou certinho, inclusive fiz um adaptação para aparecer imagens de estrelas conforme se vai aumentando os pontos.

Valeu véio.

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR