Mensajes

que tipo de fuego? hay mucho, por que no pones una foto de como quieres el fuego hay muchas formas de hacerlo y de diferentes tipos =\

No importa la forma del fuego   
Si puedes ayudarme con un tuto o algo que me guie ?
gracias

Ayuda con un totorialQuisiera ponerle a una imagen un efecto de fuego me podria Ayudar Alguin
gracias 

Que foto?

sube la foto y que tipo de alas quiere ponerle? ya que hay muchos tipos de alas

Código [Seleccionar] Expandir

http://www.mercadolibre.com.mx/jm/img?s=MLM&f=19684348_8574.jpg&v=P
http://cuentosdeprincesas.blogia.com/upload/20080212050514-alas-de-hada.jpg
http://www.unitedmaskandparty.com/Halloween/images/adult_angel_wings.jpg
http://i226.photobucket.com/albums/dd144/SciTecWeb/quimera2.jpg
http://www.solociencia.com/biologia/07031604.jpg
http://www.casamerica.es/var/casamerica.es/storage/images/otras-miradas/impacto-visual/armando-reveron/alas-de-murcielago/65867-1-esl-ES/alas_de_murcielago_fullblock.jpg[/ode]

Lo primero es sacarle foto al gato de tal forma que puedas montar las alas, o sea, en la misma perspectiva que necesites o que tengas a las alas, o tambien pudieras ahcer el modelo en 3D de las alas con pespectiva como la foto del gato...

Y luego para exturizar podrias ver este post
[url=https://foro.elhacker.net/diseno_grafico/montajes_de_animales_con_photoshop-t209269.0.html][b]MONTAJES DE ANIMALES CON PHOTOSHOP[/b][/url] <click

:D

El problema con el tuto del montage de animales esque se nota el montaje
se parece a este mi mascota 
http://www.diset.com/admin/uploads/juegos/cas/8/gato050034.jpg

[gracias me sirvio de mucho la Pagina]

emmm busca en www.recursosvisualbasic.com.ar que hay mucho sobre ado, aunque esta desactualizada pero te va a servir de mucho


saludos

gracias me sirvio de mucho la Pagina 

Hola me podrian ayudar a darle el efecto que que mi gato se viera con alas o ponerle a las a una foto
gracias

El problema es este hice un programa en Access y lo enlace con un Ado y  las consultas ni la Relaciones funcionan al enlasarlo como puedo hacer consultas en Ado

 :huh:Hola alguien me podria hayudar a enlazar una base de datos con visual basic y en programa se visualise las tablas

Código [Seleccionar] Expandir

Option Explicit
Dim vx, vy, t, alto, ancho, xpos As Double
Private Sub cmd_lanzar_Click()
vx = Val(txt_v.Text) * Cos(Val(txt_a.Text) * 3.141592 / 180#)
vy = Val(txt_v.Text) * Cos(Val(txt_a.Text) * 3.141592 / 180#)
Me.Timer1.Interval = 50
Me.Timer1.Enabled = True
t = 0
Me.txt_v = ""
Me.txt_a = ""

End Sub

Private Sub cmd_salir_Click()
End
End Sub

Private Sub Form_Load()
frm_1.pct.Scale (0, 100)-(200, 0)
t = 0
Me.txt_v.Text = 35
Me.txt_a.Text = 50
'para la circunferenci
frm_1.pct.Circle (190, 10), 10, vbRed
'para dibujar el obstaculo
frm_1.pct.Line (100, 0)-(120, 50), vbRed, BF
'ALTO OBTACULO
alto = 50
vs_obstaculo.Value = 100 - alto
'ANCHO OBSTACULO
ancho = 20
hs_ancho.Value = ancho
'POSICION
xpos = 100
hs_posicion.Value = xpos

End Sub

Private Sub hs_ancho_Change()
ancho = hs_ancho.Value
frm_1.pct.Cls
frm_1.pct.Circle (190, 10), 10, vbRed
frm_1.pct.Line (xpos, 0)-(xpos + ancho, alto), vbRed, BF
End Sub

Private Sub hs_posicion_Change()
'posicion y borar pantalla
xpos = hs_posicion.Value
frm_1.pct.Cls
'circulo
frm_1.pct.Circle (190, 10), 10, vbRed
'linea
frm_1.pct.Line (xpos, 0)-(xpos + ancho, alto), vbRed, BF



End Sub

Private Sub Timer1_Timer()
Dim x, y, distancia As Double
frm_1.pct.Cls
frm_1.pct.Circle (190, 10), 10, vbRed
frm_1.pct.Line (xpos, 0)-(xpos + ancho, alto), vbRed, BF
t = t + 0.1
x = vx * t
y = vy * t - 9.87 / 2# * t * t
frm_1.pct.DrawWidth = 5
frm_1.pct.PSet (x, y), vbBlue
frm_1.pct.DrawWidth = 1
If (x > xpos) Then
    If (y > 0) Then
        If (x < xpos + ancho) Then
            If (y < alto) Then
                MsgBox ("PERDEDOR"), vbCritical
                Me.Timer1.Enabled = False
               
                Else
                End If
            End If
          End If
        End If
distancia = Sqr((x - 190) ^ 2 + (y - 10) ^ 2)
    If (distancia < 10) Then
    Beep
    MsgBox ("GANAS"), vbExclamation
    Timer1.Enabled = False
    End If
End Sub

Private Sub vs_obstaculo_Change()
alto = 100 - vs_obstaculo
frm_1.pct.Cls
frm_1.pct.Circle (190, 10), 10, vbRed
frm_1.pct.Line (xpos, 0)-(xpos + ancho, alto), vbRed, BF

End Sub


 
Aqui te dejo uno que te podria servir sirve para calcular diferentes angulos y con distintas velocidades