| |
 Mostrar Mensajes
|
|
Páginas: 1 2 [3] 4 5 6 7 8 9
|
|
22
|
Programación / Programación Visual Basic / Re: Programa "anti-touch" by Don_K
|
en: 23 Diciembre 2008, 18:01 pm
|
Me parece que es el tipico programa que hace uno cuando se inicia en VB... o me equivoco? Una de las cosas que le puedes agregar es que bloque las teclas de CTRL+ALT+SUP asi no podran abrir el administrador de tareas (busca en internet que esta este code) y evitar que entren en la parte de procesos y lo eliminen, seria muy sencillo. otra seria que pongas un timer que haga que el form este siempre visible. porque si apreta ALT+TAB te lo sacaria... y el toque final... el registro de windows..  PERO TENE CUIDADO !!! conozco UN AMIGO QUE LO EJECUTO DESPUES DE UN TIEMPO Y NO SE ACORDABA LA CLAVE Y CASI TIENE QUE FORMATEARPD: si te gustan esas cosas busca como ocultar el puntero, o la barra de inicio es muy sencillo... |
|
|
|
|
23
|
Programación / Programación Visual Basic / Pset en Picture
|
en: 23 Diciembre 2008, 17:51 pm
|
|
Hola a todos
Estoy haciendo una aplicacion CNC (Control Numerico por Computadora) que controla motores por el puero paralelo. En un picture tengo la opcion de mostrar lo que va grabando por el metodo Pset y las coordenadas.
El problema es que cuando muestro el picture en el momento que tiene que dibijar una linea se ponen mas lentos los motores (se pone mas lento el programa?)... el pset lo hago con un timer en interval 1, pero el problema esta cuando muestro el picture, no cuando enciendo o apago el timer...
Tambien en el momento que los motores estan en marcha, (no uso timer para enviar la orden porque es muy lento) al pasar el mouse por encima de algun boton o algun objeto los motores parecen hacer alguna minima pausita... esto me parece que se debe a que al pasar el mouse por encima de algo esto debe consultar al evento mousemove aunque no tenga nada y asi perder un minimo de tiempo que se nota porque el procesador esta trabajando casi al 100%
Alguna solucion??
saludos...
|
|
|
|
|
24
|
Programación / Programación Visual Basic / Re: Ayuda Matematicos!!!
|
en: 18 Diciembre 2008, 17:16 pm
|
|
hola jackl007 entendiste bien lo que queria decir, anque despues de eso hay que calcular solo una parte de toda la circunsferencia, pero ya lo estoy resolviendo gracias al eso de las coordenadas polares...
Gracias.. Saludos
|
|
|
|
|
27
|
Programación / Programación Visual Basic / Ayuda Matematicos!!!
|
en: 17 Diciembre 2008, 20:18 pm
|
Hola a todos... Estoy realizando un software CNC para una fresadora casera, y solo me faltan algunas cosas, una de ellas es... Como hacer para capturar las coordenadas de la circunferencia de un circulo sabiendo su Radio y su punto central... En mi soft leo coordenadas lineales x10 y20 ... x11 y22 Pero al querer realizar una Interpolacion Circular necesito poder "descomponer" las coordenadas del circulo para luego enviar la orden a los motores que se van a encargar de mover los ejes X e Y... Ejemplo de como tendria que descomponerse G00 X-5 Y0
G01 Z-0,25 F450
G01 X-4,95 Y-0,7 F500
G01 X-4,8 Y-1,39
G01 X-4,55 Y-2,07
G01 X-4,21 Y-2,69
G01 X-3,78 Y-3,26
G01 X-3,26 Y-3,78
G01 X-2,69 Y-4,21
G01 X-2,07 Y-4,55
G01 X-1,39 Y-4,8
G01 X-0,7 Y-4,95
G01 X0 Y-5
G01 X0,72 Y-4,95
G01 X1,42 Y-4,8
G01 X2,09 Y-4,55
G01 X2,71 Y-4,21
G01 X3,28 Y-3,78
G01 X3,78 Y-3,26
G01 X4,21 Y-2,69
G01 X4,55 Y-2,07
G01 X4,8 Y-1,39
G01 X4,95 Y-0,7
G01 X5 Y0
G01 X4,95 Y0,72
G01 X4,8 Y1,42
G01 X4,55 Y2,07
G01 X4,21 Y2,71
G01 X3,78 Y3,28
G01 X3,28 Y3,78
G01 X2,71 Y4,21
G01 X2,09 Y4,55
G01 X1,42 Y4,8
G01 X0,72 Y4,95
G01 X0 Y5
G01 X-0,7 Y4,95
G01 X-1,39 Y4,8
G01 X-2,07 Y4,55
G01 X-2,69 Y4,21
G01 X-3,26 Y3,78
G01 X-3,78 Y3,28
G01 X-4,21 Y2,71
G01 X-4,55 Y2,07
G01 X-4,8 Y1,42
G01 X-4,95 Y0,72
G01 X-5 Y0
Si alguien sabe como hacer por favor agradeceria cualquier ayuda... Saludos... |
|
|
|
|
29
|
Programación / Programación Visual Basic / Re: Necesito ayuda...
|
en: 17 Noviembre 2008, 22:26 pm
|
yo tambien tengo ese problema mira el code Private Sub Command2_Click()
Secuencia:
If Me.Caption <> 100 Then
Me.Caption = Me.Caption + 1
Sleep (0.5)
GoTo Secuencia
End If
End Sub si cambio el Sleep (0.6) ya va muchisimo mas lento, pruevenlo... Private Sub Command2_Click()
Secuencia:
If Me.Caption <> 100 Then
Me.Caption = Me.Caption + 1
Sleep (0.6)
GoTo Secuencia
End If
End Sub Lo que necesito es dar pocos milisegundos y con Sleep me parece que no se puede... |
|
|
|
|
|
| |
|
