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 - seba123neo

#1751
Foro Libre / Re: El juego del numero con imagenes
24 Febrero 2010, 02:30 AM
#1752
tambien se le podrian añadir subforos para las diferenmtes operaciones matematicas, uno para resta, otro para suma, otro para multplica y dividir  :xD, la verdad a mi me daba lo mismo si lo creaban o no, si bien me gusta la fisica y obvio esto lleva matematica, pero no hiba a ponerme a aportar mucho ahi.

si queres un foro real de matematica pasate por aca y aporten ahi seguro les van a entender  :xD:

Foros de matemática

#1753
si es el 100, abrilo si lo tenes cerrado y si tenes router, direccionalo a la maquina que ejecutas el programa.
#1754
mejor un .INI como dijeron antes...
#1755
Cita de: Nanoc en 24 Febrero 2010, 00:49 AM
En local funciona perfecto, pero no consigo hacerlo correr en remoto, sencillamente es que no conecta, alguna idea?

porque decis que no conecta ?? tenes router? abriste los puertos?
#1757
Programación Visual Basic / Re: SCRIPT ?
23 Febrero 2010, 02:37 AM
¿ esto es la tarea para la escuela ?  :xD
#1758
Programación Visual Basic / Re: capture cam web
21 Febrero 2010, 20:13 PM
proba algo asi:

Código (vb) [Seleccionar]
Option Explicit

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function SetPixelV Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal crColor As Long) As Long

Private Sub Command1_Click()

    Dim vEscalaForm As Integer, vPicEscala As Integer
    Dim X As Long, Y As Long, vAlto As Long, vAncho As Long
   
    vEscalaForm = Me.ScaleMode
    vPicEscala = Picture1.ScaleMode
   
    Me.ScaleMode = 3
    Picture1.ScaleMode = 3
   
    vAncho = Picture1.width
    vAlto = Picture1.height
   
    Me.Cls
   
    For X = 0 To vAncho
        For Y = 0 To vAlto
            If Picture1.Point(X, Y) = 6522062 Then
                SetPixelV Me.hdc, X, Y, GetPixel(Picture1.hdc, X, Y)
            End If
            DoEvents
        Next
        DoEvents
    Next
   
    Me.ScaleMode = vEscalaForm
    Picture1.ScaleMode = vPicEscala
End Sub

Private Sub Form_Load()
    With Picture1
        .AutoSize = True
        .Picture = LoadPicture(Environ("windir") & "\Santa Fe.bmp")
    End With
End Sub


esto hace como un escaneo de los pixeles de la imagen y va sacando el color de ese pixel escaneado, con un simple if podes sacar los colores que te interesen y volcarlos en otro lado, por ejemplo aca se saca un determinado color y vuelca "solo ese color" en el formulario...

saludos. 
#1759
primero renombra el archivo .frm por el nombre que quieras y despues debes abrir el archivo del proyecto .vbp y ahi edita tambien donde este el nombre del formulario y guarda los cambios.
#1760
Programación Visual Basic / Re: capture cam web
21 Febrero 2010, 19:15 PM
que queres hacer?