Mensajes

con visual basic??? 

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 FORMATEAR

PD: si te gustan esas cosas busca como ocultar el puntero, o la barra de inicio es muy sencillo...

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

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

A el sistema mecanico le llamo CNC casero   

estuve estudiando el sistema de coordenadas polares y era lo que necesitaba ya casi logro hacer lo que queria, muchas gracias !!!

Si pero de que manera puedo aplicar el sistema de coordenadas polres?

Gracias por responder...

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

Código [Seleccionar] Expandir


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

A mi me pasa lo mismo no puedo hacer menos de 16ms 

yo tambien tengo ese problema mira el code

Código [Seleccionar] Expandir

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

Código [Seleccionar] Expandir

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

Gracias por responder... ahora voy a probar bien con el Sleep y despues les cuento como me fue