CALCULAR RETA

GERARDA 29/04/2012 11:30:26
#400984
putzz preciso representar uma reta da seguinte maneira :

no ex. da imagem

o vermelho é definido por uma variavel (altura)
o azul é definido por uma variavel (largura)

daria pra dizer

altura largura
4 1 -4vezes
--------------------------------
3 1 -4vezes

mas para ser uma reta teria que ser

altura largura
4 1
3 1 -4vezes

nao sei se fui claro

nao estou conseguindo
GERARDA 29/04/2012 12:30:20
#400985
neste site faz o calculo que eu preciso

mas tem algumas situaçoes em que eu nao posso usar o site

ja tentei de varias formas
acho que a solução -e simples

mas num consigo

http://www.getknitting.com/ak_0603triangle.aspx
GANDA.NICK 01/05/2012 08:48:36
#401111 Resposta escolhida
boas,


não sei o que vc considera simples... mas fiz aqui uma rotina que lhe pode dar uma ajuda:

coloque uma picture box no seu form e este code:

Option Explicit

Private Sub CalcularRecta(ByVal vValor1 As Integer, ByVal vValor2 As Integer)
Dim vStsMenor As Integer, vStsMaior As Integer, vMod As Integer

Me.Picture1.Cls
If vValor1 >= vValor2 Then
    If vValor1 Mod vValor2 <> 0 Then
        vMod = vValor1 Mod vValor2
        vStsMenor = Int(vValor1 / vValor2)
        vStsMaior = vStsMenor + 1
        Me.Picture1.Print vStsMaior & [Ô] sts every row [Ô] & vMod & [Ô] times[Ô]
        Me.Picture1.Print vStsMenor & [Ô] sts every row [Ô] & ((vValor1 - (vStsMaior * vMod)) / vStsMenor) & [Ô] times[Ô]
    Else
        Me.Picture1.Print vValor1 / vValor2 & [Ô] sts every row [Ô] & vValor2 & [Ô] times[Ô]
    End If
End If

End Sub

Private Sub Command1_Click()
Call CalcularRecta(47, 34)
End Sub



vc vai ter de desenvolver o resto para quando o valor2 é maior que o valor1....

não sei se esta será a maneira mais simples de fazer o que deseja mas testei aqui e pareceu-me correcto..

qualquer duvida aí na linha de raciocínio diga qualquer coisa...

espero ter ajudado

té +
Tópico encerrado , respostas não são mais permitidas
Voltar