KIKI

Boa tarde galerinha, estou aqui para mais um tutorial, vou ensinar a achar porcentagem no delphi, Mãos a obra!





Introdução:





Mas teóricamente falando, como iremos achar a porcentagem?




Digamos que você tem um valor (Exp: 250), e você quer achar o equivalente a 35% do valor, para achar no papel fariamos assim:




250 * 35 = 8750




8750 / 100 = 87,5;




Ou seja, 35% de 250 é equivalente a 87,5.




Ok já entendi, mas como vou usar isso no delphi?




Simplesmente assim:






Esses (v1, v2, v3) serão nossos códigos para realizar as operações matemáticas no delphi, integer significa que eles tem valor numérico. Vamos fazer uma conta no delphi que retorne para uma label, a porcentagem de certo valor. Para isso iremos adicionar 2 Edits, 1 Button, 4 Labels. E deixe seu form parecido com este:











Código:





No button coloque o seguinte código:










Entendendo o código:




StrToInt - Transforma o valor de String(Texto) para Integer(Numérico);




v1*v2 - Mutiplicação dos valores referente a v1 e v2;




v3 Div 100 - Divisão do valor gerado em v3 por 100.





E funcionou?











Claro que sim! Tudo funcionando, agora você já sabe trabalhar com mutiplicação e divisão, além de achar porcentagem pelo delphi 7.





Fonte:
http://balfprogramador.blogspot.com

Thanks, esqueci desse código HAEOAEHOAEHOAE rep +



Porcentagem é tão simples, ache o valor da porcentagem na sua tela usando regra de 3, e depois faça as multiplicações e divisões usando a porcentagem encontrada.

Por exemplo, temos essa seguinte função

function Somar(A, B: Integer): Integer; begin Result := A + B; end; A e B são os parametros da função, você vai ter que usar Somar(1,2) que vai retornar 3 ShowMessage(IntToStr(Somar(1,2)));

Cara, tu define a janela do Tibia, mas nunca usa ela u.u
Melhora essa lógica ae.

((playerx) + (',') + (playerY) + (',') + (playerZ))

Você definiu o h para a janela do Tibia, ok.
Mas você não usou ela,
Tente isso

var h: HWND; begin h := FindWindow('TibiaClient', nil); SendMessage(h, WM_CHAR, VK_RETURN, 0);

Acho que nao ;| pq se desse ngm ia fica pedindo as source =D

To usando isso
http://tibiaking.com...ado/#entry76741


Mas da erro ao declara as variaveis

Posição




Sem Vocação




Depois crie um NPC e mude a aparência dele pra da estatua
e que dê a vocation pro player




e que mande ele pro lugar desejado...