requiero de buestra asistenciosa asistencia

Iniciado por The_Bug, 11 Noviembre 2009, 01:00 AM

0 Miembros y 1 Visitante están viendo este tema.

The_Bug

aver dejenme ver si entendi..

lo q tamos haciendo es incluir una DLL, una API del SO a nuestro programa
y utilisamos una funcion de esa DLL para poder leer el teclado
¿me equivoco?
ARNOLDO SHARSENEGGEER!!!!

100% kissnerista!!! fuersa cristina!!!!!

el_aprendis0101@hotmail.com

BlackZeroX

#11
Cita de: pungados en 11 Noviembre 2009, 10:24 AM
Desde mi punto de vista, el módulo es un "formulario" sin la interfaz, que permite comunicar varios formularios. Al principio de la programación seguro lo uses para intercambiar variables entre formularios.
Yo lo usaba para eso, hasta que descubrí que desde el form1 (por ejemplo) se puede manipular el form2.
Ejemplo:
(formulario1)
form2.listadenombre.additem (lo que sea)

Saludos


No coincido con tigo se muy bien como se crean los formularios pero no creo que de ellos probengan de un modulo, ya que estos e visto que se pueden crear cientos de instancias de uno mismo, es decir actuan como modulos clase por ello no te apoyo en lo que has dicho.


@The_Bug

en ocasiones las APIS no son solo del SO, inclusive puedes crear las tuyas y generar tus dll o sencillamente jalar las APIS de otros programas, en la definicion de API no se define que sean obligatoriamente de un X punto. Aun que si lo que has dicho es correcto.

Cita de: determx en 11 Noviembre 2009, 13:25 PM
En programación estructurada, un módulo es un subprograma que resuelve un problema específico, aunque vb está basado en objetos no creo que pierda el sentido.

En cuanto a lo del timer, no es necesario, ya lo mencioné un poco más arriba : "RegisterHotKey"

http://msdn.microsoft.com/en-us/library/ms646309(VS.85).aspx

Un saludo!

Estas equivocado me puse a leer un pequeño libro de 8 mil y pico paginas ( obviamente no todo ) y se espesifica que:

Un Modulo: Es solo un lugar de almacenamiento donde se agrupa un conjunto de subprogramas ( funciones procesos bla bla bla por ejemplo el Main() ) estructuras y declaraciones de datos.
Dulces lunas!¡.
The Dark Shadow is my passion.

el_c0c0

desde mi punto de vista, en un modulo, agregar el api RegisterHotkey y el codigo para subclasificar. en el ejemplo del api-guide usan un do-loop lo cual te come el micro. pero de todas formas, busca el ejemplo de RegisterHotkey en el apiguide y tambien el ejemplo de subclasificar y los juntas a ambos.

saludos
'-     coco
"Te voy a romper el orto"- Las hemorroides

The_Bug

ARNOLDO SHARSENEGGEER!!!!

100% kissnerista!!! fuersa cristina!!!!!

el_aprendis0101@hotmail.com

The_Bug

#14
Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Global v(44)
Global tx1
Public Const VK_A = &H41
Public Const VK_Control = vbKeyControl


Public Function key()
If GetAsyncKeyState(&H41) * GetAsyncKeyState(vbKeyControl) <> 0 Then
MsgBox "apretaste A"
End If
End Function



hice esta "cosa" la funcion quey se repite en un lop dentro de un timer... aparentemente la chota esta anda pero... al precionar las teclas  "ctrl + a" me tira una ventana de error "Error 6 en tiempo de ejecucion: Desbordamiento"

agradecería q alguien me digera q significa y q causa el error

saludos
ARNOLDO SHARSENEGGEER!!!!

100% kissnerista!!! fuersa cristina!!!!!

el_aprendis0101@hotmail.com

agus0

Cita de: The_Bug en 11 Noviembre 2009, 22:58 PM
Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Global v(44)
Global tx1
Public Const VK_A = &H41
Public Const VK_Control = vbKeyControl


Public Function key()
If GetAsyncKeyState(&H41) * GetAsyncKeyState(vbKeyControl) <> 0 Then
MsgBox "apretaste A"
End If
End Function



hice esta "cosa" la funcion quey se repite en un lop dentro de un timer... aparentemente la chota esta anda pero... al precionar las teclas  "ctrl + a" me tira una ventana de error "Error 6 en tiempo de ejecucion: Desbordamiento"

agradecería q alguien me digera q significa y q causa el error

saludos

:¬¬ :¬¬ :¬¬

Como "la chota esta..." es verdad que no he prestado mucha atencion para hacerlo nu mucha dedicacion pero me llevo mi tiempo y te aseguro 100% que anda... por que obviamente antes de postiarlo lo probe... y ni siquiera unas gracias de tu parte recivi...

The_Bug

upss disculpa,no sabia que vos habias programado la api...

pero mas alla de eso... tu api falla por n "desbordamiento"

q nose que es todavia
ARNOLDO SHARSENEGGEER!!!!

100% kissnerista!!! fuersa cristina!!!!!

el_aprendis0101@hotmail.com

The_Bug

CitarDeclare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Global v(44)
Global tx1
Public Const VK_A = &H41
Public Const VK_Control = vbKeyControl


Public Function key()
If GetAsyncKeyState(&H41) Then
If GetAsyncKeyState(vbKeyControl) Then
MsgBox "apretaste ctrl+A"
End If
End If
End Function

listo ya  funciona gracias a todos por contestar
en especial a nuestro amigo agus0 de microsoft que programo la api q hizo ewsto posible
ARNOLDO SHARSENEGGEER!!!!

100% kissnerista!!! fuersa cristina!!!!!

el_aprendis0101@hotmail.com

agus0

me estas jodiendo yo no programe la api te mostre cual y como usarla si no te pondria el codigo fuente de la api :laugh: :laugh: :laugh:

Me alegro de que te alla servido

agus0

Cita de: The_Bug en 12 Noviembre 2009, 00:50 AM
CitarDeclare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Global v(44)
Global tx1
Public Const VK_A = &H41
Public Const VK_Control = vbKeyControl


Public Function key()
If GetAsyncKeyState(&H41) Then
If GetAsyncKeyState(vbKeyControl) Then
MsgBox "apretaste ctrl+A"
End If
End If
End Function

listo ya  funciona gracias a todos por contestar
en especial a nuestro amigo agus0 de microsoft que programo la api q hizo ewsto posible

P.D: Yo la parte del Condicional If.. lo haria asi

If GetAsyncKeyState(&H41) And GetAsyncKeyState(vbKeyControl) Then
MsgBox "apretaste ctrl+A"
End If

para escribir menos.

ademas borra las constantes total no las usas