[Resolvido]Como trabalhar com coordenadas X e Y?

Boa tarde.
Precisava de uma orientação relativamente a coordenadas X e Y, não encontrei nada no forum.
Tenho 2 campos r/den (eixo X) e x/den (eixo Y), quando clicar num botão vai marcar um ponto no gráfico.
A imagem em anexo esta um pouco pequena mas dá para ter noção de que tipo de gráfico é.

Olá Anderson Catarino,

Veja no tópico abaixo:
https://www.maximoaccess.com/t26833-resolvidomodificar-paint-vba
Reencaminha para outro tópico que tem alguns Link quebrados, mas tem a essência.

Neste tópico, na mensagem  nº 3 tem link da expolicação:
www.maximoaccess.com/t31339-registo-grafico

Abraço

Olá ahteixeira. Estive a ver os exemplos e o artigo do Avelino mas não consegui implementar.
O eixo do x vai de 0 a 0.2
o eixo do y de 0.9 a 1.1
Faço um teste com 6 amostras e deste teste sai: média, x/den (y), amplitude e r/den (x).
O valor do campo x e y deve aparecer um ponto no gráfico, mas julgo que isso daria muito trabalho, então utilizei um pouco dos exemplos que me disseste, mas nem preciso guardar a coordenada, apenas o ponto no gráfico.
O que estou a fazer é o seguinte, coloco o valor das amostras, calculo o que tiver a calcular e depois arrasto um ponto (rótulo) para o gráfico, só que dá me erro ("Não é possível atribuir valor ao objecto") ao movimentar o rotulo.
O exemplo que tive a seguir foi o corpo delito do Avelino mas mesmo o dele que encontrei no forum não esta a funcionar a 100%.
Sugestões ?

Vou deixar aqui a minha bd caso alguém já tenha feito algo parecido.
Formulário CartaControlo.
Onde tem o numero de 1 a 8, cada campo tem uma cor correspondente, é um rotulo que deve ser movido consoante o valor de r/den e x/den
- Fazer Novo
- Preencher todos os campos até data 1 (Campo em cima da coluna 1)
- Preencher a coluna 1 com as 6 amostras ... (colocar por exemplo: 640 no campo denier ...  )
 EX: 640 - 590 -594 - 632 - 634 -646
- Carregar botão calcular 1 (Vai aparecer os valores calculados nos 4 campos enabled = False)
Preencher os outros campos da coluna e gravar.

Seguindo esse exemplo temos:
r/den = 0.09 (eixo x)
x/den =0.973 (eixo y)

Com esses valores vou na bola vermelha e coloco ela no gráfico, aqui que aparece o erro.

Olá Anderson Catarino,

Não vi o seu exemplo, mas veja exemplo abaixo, creio ser fácil adaptar no seu projeto.

Abraço

Bom dia ahteixeira desculpa não ter respondido antes, não tive tempo de trabalhar no meu "problema".
O exemplo que fizeste pode ser o caminho, mas estou com dificuldades em implementar.

No código colocaste:

Me.marca1.Left = 0
Me.marca1.Top = 0
Me.marca1.Visible = True

Me.marca2.Left = 1000
Me.marca2.Top = 0
Me.marca2.Visible = True

No meu coloquei:

Me.marca1.Left = Me.rden1.Value
Me.marca1.Top = Me.xden1.Value

A minha dificuldade agora é acertar a escala. O meu gráfico está localizado no form da seguinte maneira -> superior:1,217cm e esquerda:1,376cm

Olá, poste o form com o grafico para se testar.
Podemos fazer por tentativas para achar o valor mínimo e maximo.
Depois será ajustar os valores do tráfico dentro dos limites.

Abraço

Eu através de tentativas consegui encontrar o ponto (0;0) do gráfico, coloquei um botão no form para teste que ao clicar aparece a marca no ponto (0;0). (Me.marca1.Left = 660; Me.marca1.Top = 590).
Mas acho que isso vai ser muito complicado, o meu gráfico são varias linhas , a escala é pequena mas pode ser que me consigas ajudar.
O form é o frmCartaControlo.
Ao carregar em calcular 1 a marca teria que andar 660 + valor rden1 para a direita e 590 + valor xden1 para baixo.
Na msg 4 está a orientação de funcionamento do programa.

- Em anexo tem um exemplo que fiz, onde colocando os valores x e y (em 2 txt´s) aparece o ponto no gráfico.
- Cada 1 cm = 567 twips.
- Formulário 2

Exemplo:
X=1701 twips
Y=6237 twips

No gráfico irá aparecer a marca em x= 0.04 e y=1.
Queria escrever em x= 0.04 e y=1 e aparecer no gráfico.

Olá, não tive tempo de ver.
Mas vamos encontrar a fórmula matemática, para isso.
Pode postar uma foto com valores de exemplo e onde devem ficar os "pontos".
Amanhã vejo o que posso fazer.
Abraço

Bom dia.
A seguir esta umas considerações para conseguires entender melhor o funcionamento do programa.
Na foto esta um exemplo que fiz, a bd "testes" é útil para confirmar localizações dos pontos e "CartaControlo - Cópia" é onde estou a implementar o código

************ Dados exemplo ****************
Denier 1500
Amostra 1 - 1508
Amostra 2 - 1522
Amostra 3 - 1518
Amostra 4 - 1528
Amostra 5 - 1530
Amostra 6 - 1506
Média = 1519
x/den (eixo y) = 1.013 (média/denier)
Amplitude = 24
r/den (eixo x) = 0.02 (amplitude/denier)

****************************************
No código do botão calcular 1 coloquei:

Me.marca10.Left = 1110
Me.marca10.Top = 5525

Nota: No exemplo "testes" que fiz, por tentativa descobri a localização do ponto.
Nota: No exemplo "CartaControlo - Cópia" no fim do código do botão calcular 1 o código deve ser alterado para o que esta acima
****************************************
O que deveria estar:

Me.marca10.Left = me.rden1.value (0.02)
Me.marca10.Top = me.xden1.value (1.013)

****************************************
O problema é a nível matemático.
- 1 quadrado do formulário = 1cm = 567 twips
- Os valores "0.02" e "1.013" são a divisão da amplitude/denier e média/denier respectivamente.
- 0.02 = 1110 twips e 1.013 = 5525 twips
- A escala do eixo do x é diferente do eixo do y, ou seja, não da para usar uma regra de três simples pois:
Se 0.02 - 1100 twips
1.013 - x
Então x = 55715 (valor errado, o correcto deveria ser 5525)

Ola, vou pegar agora.
Coloque também valores para a segunda coluna, creio ser a rocha.
Onde ficaria o ponto, pode atualizar a imagem da mensagem anterior.
Aguardo.
Abraço

Na imagem não dá para ver mas a marca que aparece não é aquela que esta acima da coluna 1, é outra ela encontra se no topo do formulário mas como a imagem era muito grande tive que cortar.
Na imagem que estou a te mandar coloquei dados na coluna 2, mas acho que isso não faz diferença, pois o código das 8 colunas são iguais, para bater certo tive que mudar o código para mover a marca para:

Me.marca9.Left = 1110
Me.marca9.Top = 6580


(o ponto devia estar no linha 0.03 do eixo dos x, enganei me no valor não deveria ser 1110, mas sim 1417,5 +/-)

Olá Anderson,

Os quadrados aqui não estão certos, vai ser necessario ajustar, veja


Para já estou a trabalhar na horizontal, depois de achar o ponto de referencia veja como é simples

Código:

Me.marca1.Left = 680 + (me.rden1.value * 100) * 284

680 -> Ponto inicio da horizontal
*100  -> porque é decimais
284 - > tamanho de cada quadrado para avançar

Vou calcular a vertical.

Abraço

Eu já alterei o gráfico, já não estou a trabalhar nesse que tem as zonas (A,B e C ) mas de qualquer maneira posso aplicar no meu gráfico o mesmo raciocínio. Deves ter feito o download do ficheiro da msg 4.
Abraço.

Olá Anderson Catarino,

Sim, estive a trabalhar na base de exemplo da mensagem n.º 4.

Coloquei o seguinte código no Lista_DblClick, veja se é o que pretende.

Código:

Me.marca1.Left = 680 + (Me.rden1.Value * 100) * 284
Me.marca1.Top = 10350 - (((Me.xden1.Value - 0.9) * 100) * 489)

Segue o meu teste:
cld.pt/dl/download/7a44b73c-5a96-4142-9ef7-8011f617b09c/CartaControlo_PontosGrafico.zip
Copiar link e colar no browser

Nota: falta dar o tratamento caso tenha valores inferiores ou superiores do gráfico, exemplo 0.600 no XDEN ou 0.25 no RDEN.

Abraço

Obrigado ahteixeira.
Já adaptei no meu gráfico (estava em posição diferente), mas está a funcionar perfeitamente.
O código ainda não sei se (também) vou colocar no Lista_DblClick, o código vai ficar nos botões "Calcular".
De seguida farei o código caso os valores estejam fora dos limites do gráfico.
Vou colocar o tópico como resolvido
Obrigado pela ajuda!
Abraço

Olá Anderson Catarino, fico feliz por ter ajudado.

Obrigado pelo retorno, o fórum agradece.

Abraço