PASSAR DE JAVA SCRIPT PARA VB?

USUARIO.EXCLUIDOS 20/11/2006 23:11:52
#185475
Bom galera, achei um código num site, peguei ele, e queria uma ajudinha de quem manja pra transcrever ele para o VB.
vai o código de Java Script:


[c]function XPCalc()
		   { 
			var XP = 0;
		        var lvl;
			var x;
			var CurXP=0;
			lvl = window.document.XP.Level.value;
			CurXP=window.document.XP.CurXP.value;
     			x = ((50/3)*Math.pow(lvl,3))-(100*Math.pow(lvl,2))+((850/3)*lvl)-200-CurXP;
          			x = Math.floor(x);
        			XP =+x;
		    	window.document.XP.Display.value = XP;
      
      		}

o que eu quero é saber como fazer esse código em VB tendo um lugar que vc digita um nº (XP = experiência) e em outro campo de texto vc irá colocar o level desejado ex. 10, em outro campo de texto tem que retornar essa o valor feito por esse comando em Java Script ai, só que eu quero que seja feito em vb e nao sei como fazer...


gostaria muito de uma ajuda!
[/c]
ESLEYSANCHES 21/11/2006 00:41:09
#185480
Amigão, poderia passar o site para dar uma analizada ?
Porque assim o código abaixo:

lvl = window.document.XP.Level.value;

o XP e o level poderia ser qualquer coisa, sugiro que o XP seja um formulario nomeado como XP e o level algum textbox nomeado como level, mais teria que analizar o Código fonte do mesmo para saber mais ...

Se desejar posso analizá-lo para você, por isso pedi o site, ou então, poste todo o código da página !!

Abração cara !!!
USUARIO.EXCLUIDOS 21/11/2006 00:48:29
#185482
Esley meu maninho,
pega o site ai, vai no cantinho direito dele vai ter uma paradinha dizendo lá escrito como título "Experiência" e na coluna vai ter os campos correspondentes:
http://www.tibiabr.com

abraço mano
LIONHEART 21/11/2006 12:03:31
#185542 
private Sub XPCalc() 

	dim XP as double, X as double, CurXP as double, Lvl as double

	XP = 0
	var x

	lvl = txtLvl.Text
	CurXP= txtXPAtual.text

	x = ( ( 50 / 3 ) * (lvl ^ 3) ) - ( 100 * (lvl ^2 ) ) + ( ( 850 / 3 ) * lvl ) - 200 - CurXP
	x = Fix(x)
	XP = x
	txtXPCalculado.text = XP

End SUB



Mais ou menos isso.

Vc precisa ter uma caixa de

Level = txtLVL
XP desejado = txtXPAtual

XP obtido = txtXPCalculado
USUARIO.EXCLUIDOS 21/11/2006 12:17:48
#185546
Pessoal,

Só não esqueçam que o VB não trabalha com "blocos de informação" (são aquelas chaves ali, antes e depois do bloco).

Abraços!
LIONHEART 21/11/2006 12:21:19
#185548
Citação:

COLDBURN escreveu:
Pessoal,

Só não esqueçam que o VB não trabalha com [Ô]blocos de informação[Ô] (são aquelas chaves ali, antes e depois do bloco).

Abraços!



Bem lembrado!
Isso acontece quando se trabalha com mais de uma linguagem ao mesmo tempo rs....

Valeu!
USUARIO.EXCLUIDOS 21/11/2006 19:10:21
#185638
Puts e agora?

Quer dizer que não dá pra transcrever esse comando de JS pra VB?
USUARIO.EXCLUIDOS 21/11/2006 20:37:55
#185655 Resposta escolhida
Cara, dá sim:

Private Sub Command1_Click()
MsgBox "Experiência para o próximo level: " & XPCalc(txtCurXP, txtLevel)
End Sub

Private Function XPCalc(ByVal CurXP As Double, Level As Double)
XPCalc = Fix(((50 / 3) * (Level ^ 3)) - (100 * (Level ^ 2)) + ((850 / 3) * Level) - 200 - CurXP)
End Function


Veja o exemplo em anexo q já tá certim...flw
USUARIO.EXCLUIDOS 21/11/2006 21:03:40
#185660
Matioli!!!!!!!!!!!!!!!!!

Vc quebro um galho equivalente à  uma floresta mano
brigadoooooooooooooooooooooooooooooooooooooooooooooo!
Tópico encerrado , respostas não são mais permitidas
Voltar