PICTUREBOX

USUARIO.EXCLUIDOS 08/04/2004 10:28:07
#19374 Resposta escolhida

Como seria o intervalo de valores do seu gráfico

USUARIO.EXCLUIDOS 08/04/2004 11:15:18
#19399

Coloque um timer com interval de 100ms e enabled = true
atribua o valor desejado de 0 até 100 na variavel valor
coloque uma picture1 com autoredraw = true


Em general

Din Valor as integer

Sub Timer1_timer
static ux as integer
static vy as integer
dim valorp as integer
valorp = picture1.height * (valor/100)
ux = ux + 16
Picture1.Line (vx-16, vy)-(vx, valorp)
vy = valorp
if cx picture1.width then
picture1.cls
vx=0
end if
end sub

USUARIO.EXCLUIDOS 08/04/2004 12:00:41
#19429

No exemplo que te enviei faz isto mesmo.

Aumente o tempo do timer ou varie a variavel valor rapidamente

USUARIO.EXCLUIDOS 09/04/2004 15:34:23
#19656

ASSIM Dà

Em general

Din Valor as integer

Sub Timer1_timer
static ux as integer
static vy as integer
dim valorp as integer
VALOR = VALOR + 10
VALOR = VALOR * 5
valorp = picture1.height * (valor/100)
ux = ux + 16
Picture1.Line (vx-16, vy)-(vx, valorp)
vy = valorp
if cx picture1.width then
picture1.cls
vx=0
end if
end sub