Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - 79137913

#1251
HOLA!!!

GENIAL!!!!!

ME SIRVE UN MONTON!!!!!

GRACIAS POR LEER!!!
#1252
HOLA!!!

Digo lo mismo que Black, el primero muy bueno =D

GRACIAS POR LEER!!!
#1253
HOLA!!!

Cita de: BlackZeroX▓▓▒▒░░ en 13 Diciembre 2010, 19:53 PM
Esta bonito, lo unico que veo es que salen disparos del enemigo de lugares donde no hay enemigos ¬¬"
P.D.: en México lo conocemos por Galaxy

Tenes razon :P ni me quise enroscar con que salgan disparos de las navecitas XD.

Y tambien es cierto Galaxy y Galaga eran competencia, tambien conozco el galaxy, son practicamente identicos.

GRACIAS POR LEER!!!
#1254
HOLA!!!

Hoy posteo un juego que arme recien estilo galaga.

No hay mucho que decir, mueven con las flechas y disparan con espacio.

La descarga la deje abajo.

Aca les dejo una captura de pantalla:



Aca el codigo:

Código (vb) [Seleccionar]
Private Declare Function GetAsyncKeyState _
    Lib "user32" ( _
        ByVal vKey As Long) As Integer
       
Dim CT As Integer

       
Private Sub ATAQUES_Timer()
Dim FLAG3 As Boolean
FLAG3 = False
Randomize
    For X = 4 To 7
        If BALA(X).Visible = False And FLAG3 = False Then
        FLAG3 = True
        BALA(X).Top = 0
        BALA(X).Left = 120 + Int(Rnd() * 7560)
        BALA(X).Visible = True
        End If
    Next
End Sub

Private Sub MOVER_BALAS_Timer()
    For X = 0 To 3
        'MUEVE LAS BALAS
        If BALA(X).Visible = True Then BALA(X).Top = BALA(X).Top - 120
        'SI SE VA DE LA PANTALLA LA OCULTA
        If BALA(X).Top < 0 Then BALA(X).Visible = False
        'VERIFICA GOLPES BAJOS
        If BALA(X).Top = 1680 Then
            For Y = 22 To 25
                If ENEMIGO(Y).Visible = True Then
                    If BALA(X).Left >= ENEMIGO(Y).Left And BALA(X).Left < ENEMIGO(Y).Left + ENEMIGO(Y).Width Then
                        ENEMIGO(Y).Visible = False
                        BALA(X).Visible = False
                        BALA(X).Top = -5
                    End If
                End If
            Next
        End If
        'VERIFICA GOLPES MEDIOS
        If BALA(X).Top = 1080 Then
            For Y = 11 To 21
                If ENEMIGO(Y).Visible = True Then
                    If BALA(X).Left >= ENEMIGO(Y).Left And BALA(X).Left < ENEMIGO(Y).Left + ENEMIGO(Y).Width Then
                        ENEMIGO(Y).Visible = False
                        BALA(X).Visible = False
                        BALA(X).Top = -5
                    End If
                End If
            Next
        End If
        'VERIFICA GOLPES ALTOS
        If BALA(X).Top = 480 Then
            For Y = 0 To 10
                If ENEMIGO(Y).Visible = True Then
                    If BALA(X).Left >= ENEMIGO(Y).Left And BALA(X).Left < ENEMIGO(Y).Left + ENEMIGO(Y).Width Then
                        ENEMIGO(Y).Visible = False
                        BALA(X).Visible = False
                        BALA(X).Top = -5
                    End If
                End If
            Next
        End If
    Next
    For X = 4 To 7
        'MUEVE LAS BALAS
        If BALA(X).Visible = True Then BALA(X).Top = BALA(X).Top + 120
        'OCULTA SI SE VA DE FOCO
        If BALA(X).Top > 5700 Then BALA(X).Visible = False
        'VERIFICA GOLPES CON LA NAVE
        If BALA(X).Top = 5280 Then
            If BALA(X).Left >= NAVE.Left And BALA(X).Left < NAVE.Left + NAVE.Width Then
                VIDAS.Caption = Str(Val(VIDAS.Caption) - 1)
                If Val(VIDAS.Caption) = 0 Then
                    MsgBox "PERDISTE"
                End
                End If
            End If
            BALA(X).Visible = False
            BALA(X).Top = -5
        End If
    Next
End Sub

Private Sub MOVER_NAVES_Timer()
Dim FLAG2 As Boolean
    CT = CT + 1
    If CT < 16 Then
        For X = 0 To 25
            ENEMIGO(X).Left = ENEMIGO(X).Left + 80
        Next
    ElseIf CT < 31 Then
        For X = 0 To 25
            ENEMIGO(X).Left = ENEMIGO(X).Left - 80
        Next
    ElseIf CT = 31 Then CT = 0
    End If
    FLAG2 = False
    For X = 0 To 25
        If ENEMIGO(X).Visible = True Then FLAG2 = True
    Next
    If FLAG2 = False Then
        MsgBox "GANASTE"
        End
    End If
End Sub

Private Sub TECLAS_Timer()
        If GetAsyncKeyState(32) = -32767 Then Call DISPARO 'BARRA ESPACIADORA
        If GetAsyncKeyState(37) = -32767 Then Call IZQUIERDA 'FLECHA IZ
        If GetAsyncKeyState(39) = -32767 Then Call DERECHA 'FLECHA DER
End Sub

Private Sub DISPARO()
Dim FLAG As Boolean
FLAG = False
    For X = 0 To 3
        If BALA(X).Visible = False And FLAG = False Then
            FLAG = True
            BALA(X).Left = NAVE.Left + 160
            BALA(X).Top = 5160
            BALA(X).Visible = True
        End If
    Next
End Sub

Private Sub IZQUIERDA()
If NAVE.Left >= 80 Then
    NAVE.Left = NAVE.Left - 80
End If
End Sub
Private Sub DERECHA()
If NAVE.Left <= 7320 Then
    NAVE.Left = NAVE.Left + 80
End If
End Sub


Para descargar el source y el exe:

Descargar URL:
http://www.gigasize.com/get.php?d=tcthckoql1f

Mirror:
http://hotfile.com/dl/89217931/902911e/JUEGO_DE_NAVES.rar.html

GRACIAS POR LEER!!!
#1255
Programación Visual Basic / [OFF TOPIC]
10 Diciembre 2010, 14:59 PM
HOLA!!!
[OFF TOPIC]

Cita de: raul338 en 10 Diciembre 2010, 14:10 PM
PsYkE1 (a.k.a Mr. Frog, cambio su nick para que el FBI no lo encuentre :xD :xD)

JAJAJA lol  ;-) ;-) ;-) ;-) ;-)

GRACIAS POR LEER!!!
#1256
HOLA!!!

No hay problema, perdon si querias llegar vos solo a verlo :P.

IGUAL... ¬¬ EL FINAL DE LOST DEJA MUCHO QUE DESEAR... TODO MAL CON LOS AUTORES.

GRACIAS POR LEER!!!
#1257
HOLA!!!

Código (vb) [Seleccionar]
Private Function RestaChrs(NUMERO As Variant, RESTAR As Integer)

   If Not RESTAR < Len(Str(NUMERO)) Then
       MsgBox "LOS CARACTERES A RESTAR NO PUEDEN SER MAYORES A LOS CARACTERES DE LA VARIABLE", , "ERROR"
       Exit Function
   End If
   
   RestaChrs = Mid(Str(NUMERO), 1, Len(Str(NUMERO)) - RESTAR)
End Function

Private Sub Form_Load()
    'AL NUMERO 1234567 LE RESTA 3 CIFRAS
    Debug.Print RestaChrs(1234567, 3)
End Sub


GRACIAS POR LEER!!!
#1258
HOLA!!!

Karcrack: La idea no es hacer un programa que haga filtros estilo photoshop la idea es reconocer a las personas por su cara.

Algo asi:


Perdon si no les agrada, solamente queria compartir.

Lo que estoy haciendo para que tengan una idea es:
Traducir el programa que arme en delphi que arme para detectar rostros que aparecen en la webcam, con esas dos funciones lo que hago es fijarme con la de contorno las formas que son parecidas a las caras, y con el filtro de color piel lo que hace es eliminar todas las cosas que tienen forma de cara pero no tienen color piel :P (perdonen la redundancia). Para que se den una idea en definitiva es un programa que muestra la webcam estilo la camara esa que reconoce rostros, osea muestra un cuadrado al rededor del mismo para luego reconocerlo (la parte de reconocer los rostros es lo que me falta osea quien es).

P.D: Vuelvo a decir gracias LeandroA, pensaba que el vb6 no me iba a dar la velocidad para procesar la imagen  :) .


GRACIAS POR LEER!!!


#1259
HOLA!!!

MOD: Agregado funcion para marcar piel.

GRACIAS POR LEER!!!
#1260
HOLA!!!

Digo, soy el unico loco :rolleyes: que usa DAO? :P

Igual odio las Bases de datos empaquetadas, uso texto plano. XD

GRACIAS POR LEER!!!