Mensajes

bien!!
yo suelo usar photoshop para hacer todos los efectos sobre imagenes, ya que de ese modo no me preocupo por las fonts y todo eso...
y es muy pontente, eso es lo bueno...

mira debes tener una funcion que detecte si esta activado entonces la tecla shift, de ser asi cuando procedes con el reconocimiento de la tecla entonces deberias hacer una conversion si en caso esta activado... esto seria en el timer encargado de averiguar la tecla pulsada.
captas la idea?
lo mismo para el mayus...

que calidad de icos soporta?

Esto da la apariencia de ser una piramide que esta girando.... pruebenlo... en realidad es un cuadrado que gira solo que los vertices los uni conforme se traza cada lado del "cuadrado", asi que da una apariencia de una piramide...

Código (vb) [Seleccionar] Expandir

Const PI = 3.141592654
Public Inter As Integer 'Intervalo del Angulo

Function AngRad(ByVal a As Double) As Double
AngRad = (a * PI / 180)
End Function
Private Sub Form_Load()
Inter = 0
Me.AutoRedraw = True
Me.BackColor = vbBlack
Me.Height = 6180
Me.Width = 6180
Timer.Interval = 100

Scale (-50, 50)-(50, -50) 'Mi escala, en X y en Y normal

End Sub

Private Sub Timer_Timer()
Cls 'Colocarlo y quitarlo para probar distintos efectos

Line (0, 40)-(0, 15), vbRed: Line (0, 15)-(0, -15), vbGreen: Line (0, -15)-(0, -40), vbRed
Triangulo 25, 10, 0, -20, Inter
Inter = Inter + 10 'Incremento del Angulo

End Sub

Sub Triangulo(ByVal R1 As Double, ByVal R2 As Double, ByVal eX As Double, ByVal eY As Double, ByVal Ang As Double)

Dim a, i As Integer
a = Ang + 45
i = a
    For i = a To a + 360 Step 90
        If i = a Then
            CurrentX = R1 * Cos(AngRad(i)) + eX
            CurrentY = R2 * Sin(AngRad(i)) + eY
    Else
        Line -(R1 * Cos(AngRad(i)) + eX, R2 * Sin(AngRad(i)) + eY), &HE0E0E0
        Line (0, 20)-(R1 * Cos(AngRad(i)) + eX, R2 * Sin(AngRad(i)) + eY), &HE0E0E0
    End If
Next i

End Sub

y lograron la comunicacion con los puertos bluetooths?

las cosas se hacen del modo normal si usas a modo de administrador, tal ves se pueda hacer un hook para obtener privilegios...

Exacto, el code es enteriito mio, Todo lo escribi, no vi ningun ejemplo de esto (mire superficialmente el tuyo, pero no me dedicar a entender el razonamiento), solo aplique conocimientos que se adquiri en el primer semeestre de mi facultad.
lo de la deformacion es verdad, despues de mis examenes hare un estudio minucioso de las deformacionmes que presenta un verdadero cubo al girar con respecto a dos angulos. ya que se puede conocer la posicion en el espacio conociendo dos angulos y un radio... en DIC me pongo con esto cuando me libere un poco de mis estudios...

Pues ese "cubo" es una idea de hacer girar dos cuadrados en paralelo y unir los vertices de cada cuadrado.
Realmente es un cuadrado que gira sobre su eje, pero en este caso hay dos; Solo que un lado es mas largo que el otro para dar la apariencia de estar en 3D

Saludos

declaras  una variable global en tu proyecto: dim Contador as integer
en el evento load colocas: contador = 2 * 60 '2 minutos!

mira pones al timer el intervalo: 1000 y se ejecutara cada segundo.
y en su evento colocas:
contador = contador -1
if contador = 0 then
msgbox "Pasaron dos minutos"}
timer1.enabled= false
end if

facil no?

Gracias

b]AngRad[/b], 

que quisiste decir con que aparecio?, osea esa es la funcion que convierte los grados normales a radianes...
no comprendo a que te refieres con que aparecio?
(en un principio cuando postee el codigo, me habia olvidado de poner esa funcion, asi que modifiqe el post colocandola...
nose si lo dices por eso...)

quieres eliminarte a ti mismo? como lo hacen los troyanos: melt ?
es facil, mira te copias a una carpeta temporal recordando tu ruta, y ejecutas tu copia, y finalizas...
tu copia al ejecutarse debe verificar qe estan en el temporal, si es asi debe proceder a eliminar el archivo original.
mira hace un tiempo atras Mad posteo el codigo de esto que te hablo, pero podrias hacerlo tu mismo no tiene truco, ya te dije el truco...
propiamente...
saludos!