SoloCodigo

si,la circunferencia tiene el centro en el origen de coordenadas y sería el tipico arquito que se utiliza para designar angulos.
Como debería dar la orden al programa para que pare en el corte con la recta??
Gracias

muchas gracias,ya se lo que me fallaba para escribir en las cajas de texto....es que no había desbloqueado una propiedad que se llama locked...y por eso no me dejaba escribir en ellas...


Muchas gracias por la ayuda!

Ohhhhhhhhhhhhhh!!!!!!!!!!!!!!!!si muchisimas gracias!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

PAra terminar.....para poder escribir en las cajas de texto...y que se me muevan las barras de desplazamientos???serías tan amable de explicarmelo....es que lo hice para otros trabajos,pero esta vez no se si es diferente por ir con matrices,pero no me funciona.....


De nuevo muchisimas gracias!

Estaba puesto arriba pero lo volveré a poner actualizado....


Option Explicit
Public Brojo As Integer
Public Bverde As Integer
Public Bazul As Variant
Public FRojo As Integer
Public Fverde As Integer
Public Fazul As Variant

Private Sub cmdColores_Click()
Me.CommonDialog1.ShowColor
If optColor(0).Value = True Then
    lblCuadro.BackColor = CommonDialog1.Color
Else
    If optColor(1).Value = True Then
        lblCuadro.ForeColor = CommonDialog1.Color
    End If
End If
End Sub

Private Sub cmdSalir_Click()
    End
End Sub

Private Sub Form_Load()
    Brojo = 0
    Bverde = 0
    Bazul = 0
    FRojo = 255
    Fverde = 255
    Fazul = 255
    lblCuadro.BackColor = RGB(Brojo, Bverde, Bazul)
    lblCuadro.ForeColor = RGB(FRojo, Fverde, Fazul)
End Sub

Private Sub hsbColor_Change(Index As Integer)
    If optColor(0).Value = True Then
        lblCuadro.BackColor = RGB(hsbColor(0).Value, hsbColor(1).Value, hsbColor(2).Value)
        Dim i As Integer
        For i = 0 To 2
            txtColor(Index).Text = hsbColor(Index).Value
        Next i
    Else
        lblCuadro.ForeColor = RGB(hsbColor(0).Value, hsbColor(1).Value, hsbColor(2).Value)
        For i = 0 To 2
            txtColor(Index).Text = hsbColor(Index).Value
        Next i
    End If
hsbColor(Index).Value = Val(txtColor(Index).Text)
End Sub

Private Sub optColor_Click(Index As Integer)
    If Index = 0 Then
        Brojo = hsbColor(0).Value
        Bverde = hsbColor(1).Value
        Bazul = hsbColor(2).Value
        hsbColor(0).Value = FRojo
        hsbColor(1).Value = Fverde
        hsbColor(2).Value = Fazul
    Else
        FRojo = hsbColor(0).Value
        Fverde = hsbColor(1).Value
        Fazul = hsbColor(2).Value
        hsbColor(0).Value = Brojo
        hsbColor(1).Value = Bverde
        hsbColor(2).Value = Bazul
    End If
End Sub

Private Sub txtColor_Change(Index As Integer)
    If Val(txtColor(Index).Text) > 255 Then
        hsbColor(Index).Value = 255
    End If
txtColor(Index).Text = Val(txtColor(Index).Text)
hsbColor(Index).Value = Val(txtColor(Index).Text)

End Sub

Muchas gracias!!!!!!!!!!!!la idea me quedo clara,como tambien tenía unas letras tenía que añadirle unas cosillas mas pero ya esta todo bien....o eso espero!!!!!!!
Muchisimas gracias!


Lo unico que se me esta resistiendo es lo de escribir los valores en las cajas de texto,en otras practicas lo logré pero en esta no se que pasa que no se me escriben.Podríais ayudarme en eso?



MUchas gracias

Hola mi siguiente practica tengo que hacer una paleta de colores y los colores señalados en ella tienen que aparecer en un fondo o en las letras segun elija....todo va con matrices.
Os paso los codigos para ver si sabeis orientarme como puedo hacer para seleccionar los colores y que se plasmen en el proyecto....espero haberme exxplicado bien...xDDD
Un saludo!


Option Explicit
Public Brojo As Integer
Public Bverde As Integer
Public Bazul As Variant
Public FRojo As Integer
Public Fverde As Integer
Public Fazul As Variant

Private Sub cmdColores_Click()
Me.CommonDialog1.ShowColor
End Sub

Private Sub cmdSalir_Click()
    End
End Sub

Private Sub Form_Load()
    Brojo = 0
    Bverde = 0
    Bazul = 0
    FRojo = 255
    Fverde = 255
    Fazul = 255
    lblCuadro.BackColor = RGB(Brojo, Bverde, Bazul)
    lblCuadro.ForeColor = RGB(FRojo, Fverde, Fazul)
End Sub

Private Sub hsbColor_Change(Index As Integer)
    If optColor(0).Value = True Then
        lblCuadro.BackColor = RGB(hsbColor(0).Value, hsbColor(1).Value, hsbColor(2).Value)
        Dim i As Integer
        For i = 0 To 2
            txtColor(Index).Text = hsbColor(Index).Value
        Next i
    Else
        lblCuadro.ForeColor = RGB(hsbColor(0).Value, hsbColor(1).Value, hsbColor(2).Value)
        For i = 0 To 2
            txtColor(Index).Text = hsbColor(Index).Value
        Next i
    End If
End Sub

Private Sub optColor_Click(Index As Integer)
    If Index = 0 Then
        Brojo = hsbColor(0).Value
        Bverde = hsbColor(1).Value
        Bazul = hsbColor(2).Value
        hsbColor(0).Value = FRojo
        hsbColor(1).Value = Fverde
        hsbColor(2).Value = Fazul
    Else
        FRojo = hsbColor(0).Value
        Fverde = hsbColor(1).Value
        Fazul = hsbColor(2).Value
        hsbColor(0).Value = Brojo
        hsbColor(1).Value = Bverde
        hsbColor(2).Value = Bazul
    End If
End Sub

Private Sub txtColor_Change(Index As Integer)
    If Val(txtColor(Index).Text) > 255 Then
        hsbColor(Index).Value = 255
    End If
hsbColor(Index).Value = Val(txtColor(Index).Text)
   
End Sub




Tambien tengo que poder escribir en las cajas de texto y que se muevan las barras segun el valor escrito...

Me ha ocurrido un incidente...tengo que hacer que los colores vayan gradualmente aparte de que en 100 sea rojo....cuando va bajando la cuenta tiene que ir clareandose hasta ser en 0 blanco y en los numeros negativos....ir llendo de blanco a azul....metí el siguiente codigo pero no se como hacerlo gradual....alguna idea??


Private Sub vsbTemp_Change()
    txtCent.Text = vsbTemp.Value
    txtFahr.Text = 32 + 1.8 * vsbTemp.Value
   
    lblColor.BackColor = RGB(rojo, verde, azul)
    If vsbTemp.Value = 100 Then
        lblColor.BackColor = RGB(255, 0, 0)
    End If
    If vsbTemp.Value = 0 Then
        lblColor.BackColor = RGB(255, 255, 255)
    End If
    If vsbTemp.Value = -100 Then
        lblColor.BackColor = RGB(0, 0, 255)
    End If

End Sub

muchas gracias!!eso como lo tendría que introducir en el codigo???en que parte y como?por que hay muchos casos de decimales...entonces no se como utilizarlo.


Muchas gracias!

No se a que os referis con el codigo.... no se,es un simple programa de visual basic,en el que tengo dos cajas de texto (una en la que escribo Celsius y otra fahrenheit...y con eso se me tiene que mover un scroll...a ver...os pongo lo que llevo hecho.Lo de "lblColor",esta mal tambien,es que se supone que cuando el termometro marca 100 grados celsius debe aparecer un label en rojo,cuando esta al minimo debe ser azul....pasando por todos los colores...y tp se me ocurre como hacerlo...asi que si me podeis ayudar a corregirlo os estaría muyyy agradecido!!


Private Sub cmdSalir_Click()
    Beep
    End
End Sub

Private Sub lblColor_Click()
    lblColor = vsbTemp.Value
        If vsbTemp.Value = 0 Then
            lblColor = RGB(255, 255, 255)
        End If
        If vsbTemp.Value = 100 Then
            lblColor = RGB(255, 0, 0)
        End If
        If vsbTemp.Value = -100 Then
            lblColor = RGB(0, 0, 255)
    Color = RGB(rojo, verde, azul)
    Color = azul * 256 ^ 2 + verde * 256 + rojo
End Sub

Private Sub mnuArchivoSalir_Click()
    End
End Sub

Private Sub txtCent_Change()
    txtCent.Text = Val(txtCent.Text)
    txtFahr.Text = 32 + 1.8 * Val(txtCent.Text)
    vsbTemp.Value = Val(txtCent.Text)
End Sub

Private Sub txtFahr_Change()
    txtFahr.Text = Val(txtFahr.Text)
    txtCent.Text = (Val(txtFahr.Text) - 32) * 5 / 9
End Sub

Private Sub vsbTemp_Change()
    txtCent.Text = vsbTemp.Value
    txtFahr.Text = 32 + 1.8 * vsbTemp.Value
End Sub