SoloCodigo

hola amigo programador

de hecho el codigo que me diste y alo habia implementado pero como dices solo ocurre mientras el boton este down, lo que me interesa es como puedo hacerlo solo con el scroll del mouse, gracias de todas formas y si tienes algo te agradecere me lo enviaras a mi mail o aqui .

saludos

   

OYE PERO EN QUE TEMA BUSCO ESO DE LA WEBCAM???

TU AYUDA ME HA SERVIDO DE MUCHO

HOLA AMIGOS PROGRAMADORES

TENGO UN PEQUEÑO PROBLEMILLA:

TENGO UN PROGRAMA Y EN EL CUAL LE METI ALGUNOS SONIDOS, ALGO ASI COMO LOS QUE NOS DA WINDOWS POR DEFAULT A LOS MENSAJES DE ERROR, INFORMACION, ETC YO METI SONIDOS SIMILARES PARA DARLE UN ASPECTO MAS PERSONAL A MI PROGRAMA, AL  MOMENTO DE GENERAR EL EXE, ESTE NO ME GUARDA LOS SONIDOS, COMO LE PUEDO HACER,PARA QUE EL GENERAR EL EXE ESTE GUARDE TAMBIEN LOS SONIDOS...

TAMBIEN TENGO ALGUNOS PROBLEMAS CON LOS OCX, UTILICE EL WINSCK.OCX Y EL XPOCX.OCX Y CUANDO ABRO EL EXE EN UNA MAQUINA QUE NO TIENE ESOS OCX PUES LO QUE HAGO ES GUARDARLOS EN LA CARPETA C:\WINDOWS\SYSTEM32 (PARA XP) Y SYSTEM(PARA LAS OTRAS) BUENO PERO RESULTA QUE AL ABRIRLO ME SALE UNA VENTANA DE ERROR QUE PASA??

ALGUNO ME PODRIA AYUDAR ??

DE ANTEMANO GRACIAS Y FELIZ DIA

ATM OSCAR  

MUCHISIMAS GRACIAS SIRESPI

SOLO ME QUEDA UNA DUDA (UN POCO TONTA) SI KIERO ENVIAR EL BYTE COMO ME HABIAS DICHO ES DECIR: X= 00000011 = 3 DECIMAL Y X LA DECLARO COMO BYTE, PARA EL EJEMPLO QUE ME DISTE (MINIPRUEBA) PARA ENVIAR , LO HAGO EN CODIGO ASCII, Y SI YO KISIERA QUE EN EL TXTENVIAR PONER X QUE EN ESTE CASO ES = 3, LE PONGO :

Private Sub Mandar_Click()
Dim x As Integer
Dim Send(1) As Byte
x = Text1.Text
Send(0) = x
MSComm1.Output = Send
End Sub

Y EL TEXT1.TEXT LO LIMITO A QUE SOLO SE PUEDAN ESCRIBIR NUMEROS CON:

Private Sub text1_KeyPress(KeyAscii As Integer)
        If KeyAscii >= 48 And KeyAscii <= 57 Then
        Else
        KeyAscii = 0
        End If
End Sub

PODRIA PONER EL BYTE ?? Y ENTONCES PARA RECIBIRLO QUE PEX??
SERIA LO MISMO SOLO QUE LO RECIBA ??...

GRACIAS POR TU TIEMPO Y PASCIENCIA

SALUDOS DESDE EL DF    

HOLA A TODOS:

ME PODRIAN AYUDAR EN ESTE PROBLEMILLA?:

KIERO QUE DESDE LA PC PODER ENVIAR USANDO EL MSCOMM BYTES POR EL PUERTO SERIE, COMO LE HAGO NECESITO ENVIAR 8 BITS(1BYTE) A UN PIC16F84 PARA QUE ESTE REALICE CIERTA RUTINA Y AL TERMINAR LA RUTINA QUE EL PIC ENVIE UN DATO A LA PC INDICANDO QUE YA TERMINO, COMO LE PUEDO HACER, EL PIC TRABAJA A 4800 BAUDIOS Y OTRO A 9600 BAUDIOS, PERO LO QUE ME INTERESA ES ENVIAR BYTES, SUPONGO LOS TENGO QUE ENVIAR COMO UNA MATRIZ O ALGO ASI PERO COMO LE HAGO ME PUEDEN AYUDAR?

GRACIAS AMIGOS PROGRAMADORES Y LES ENVIO SALUDOS DESDE EL DF

ATM OSCAR_937

JE JE JE

ESO EXACTAMENTE TE KERIA PREGUNTAR, GRACIAS, Y YA PROBE AL ENVIARLOS PERO ME MANDA ERROR, COMO LOS MANDO UNO POR UNO?

 WINSOCK.SENDDATA SEND1
WINSOCK.SENDDATA SEND2
WINSOCK.SENDDATA SEND3
ASI?

O COMO ?

GRACIAS AMIGO PROGRAMADOR

HOLA AMIGO PROGRAMADOR

PUEDES PONER EL SIGUIENTE CODIGO EN EL FORM PARA LOGRAR LO QUE DESEAS :

SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE

Y  CREAS UN MODULO Y LE METES ESTE CODIGO:

Public Const WS_BORDER = &H800000
Public Const WS_CAPTION = &HC00000
Public Const WS_SYSMENU = &H80000
Public Const WS_CHILD = &H40000000
Public Const WS_VISIBLE = &H10000000
Public Const WS_OVERLAPPED = &H0&
Public Const WS_MINIMIZEBOX = &H20000
Public Const WS_MAXIMIZEBOX = &H10000
Public Const WS_THICKFRAME = &H40000
Public Const WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX)
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = 1
Public Const SWP_NOZORDER = &H4
Public Const HWND_BOTTOM = 1
Public Const HWND_TOPMOST = -1
Public Const HWND_NOTOPMOST = -2
Public Const SM_CYCAPTION = 4
Public Const SM_CXFRAME = 32
Public Const SM_CYFRAME = 33
Public Const WS_EX_TRANSPARENT = &H20&
Public Const GWL_STYLE = (-16)
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long}

ESPERO TE SIRVA

SALUDOS PROGRAMADORES

ATM: OSCAR

HOLA A TODOS  

YO TENGO ALGUNOS PROGRAMAS ACERCA DEL MANEJO DEL PUERTO PARALELO SI LOS KIERES MANDA UN CORREO A oscar_937@hotmail.com [/size] Y TE LOS PUEDO MANDAR, PORCIERTO TE AGREGUE AL MSN

CHAU

HOLA A TODOS

YO TAMBIEN KISIERA QUE ME AYUDARAN, TENGO EL MISMO PROBLEMA, KIERO PODER TRANSMITIR LO QUE CAPTA LA WEBCAM POR WINSOCK ME PODRIAN ENVIAR ALGUN CODIGO PARA HACER ESTO, SE LOS AGRADECERE ETERNAMENTE
MI CORREO ES EL SIGUIENTE:

oscar_937@hotmail.com

SALUDOS A TODOS Y GRACIAS