DESENHO CIRCULO DE PONTOS
Alguém sabe como é o calculo de posição x e y de pontos para desenhar um cÃrculo, usando cálculo de angulos, seno, coseno etc... se pudesse me fazer um exemplo usando line desenhando pontos até formar um cÃrculo
valeu,
Klaus
valeu,
Klaus
Para desenhar um circulo use Crcle
- A sintaxe do método é : objeto.circle (XCenter, YCenter), Radius, Color
Se naum for isso Post
Te +[S56]
- A sintaxe do método é : objeto.circle (XCenter, YCenter), Radius, Color
Se naum for isso Post
Te +[S56]
Klaus,
Eu sabia que ja tinha visto algo parecido com isso e precisei dar uma revirada aqui pra encontrar, mas ai vai:
BeginY = (ScaleHeight - (ScaleHeight - Form1.Top)) / 2
Radian = 30
For Angle = 0 To 360
xAngle = Cos(Angle * (PI / 180))
yAngle = Sin(Angle * (PI / 180))
tmpx = BeginX + (xAngle * Radian)
tmpy = BeginY - (yAngle * Radian)
PSet (tmpx, tmpy), vbBlack
Next
Tem um Projeto aqui no VBMania chamado Trabalhando com angulos c/ umas sobre isso.
Te +[S56]
Eu sabia que ja tinha visto algo parecido com isso e precisei dar uma revirada aqui pra encontrar, mas ai vai:
BeginY = (ScaleHeight - (ScaleHeight - Form1.Top)) / 2
Radian = 30
For Angle = 0 To 360
xAngle = Cos(Angle * (PI / 180))
yAngle = Sin(Angle * (PI / 180))
tmpx = BeginX + (xAngle * Radian)
tmpy = BeginY - (yAngle * Radian)
PSet (tmpx, tmpy), vbBlack
Next
Tem um Projeto aqui no VBMania chamado Trabalhando com angulos c/ umas sobre isso.
Te +[S56]
Tópico encerrado , respostas não são mais permitidas