• Viernes 29 de Marzo de 2024, 12:43

Mostrar Mensajes

Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.


Mensajes - martin campos quintero

Páginas: 1 2 [3] 4 5
51
C/C++ / [Código Fuente] Arboles binarios a la N
« en: Sábado 17 de Septiembre de 2005, 23:03 »
Este código lo subí en el foro de programación en C++ hace tiempo y lo descargaron 179 veces, ahora lo subo en esta parte para que les sea más fácil encontrarlo.

Como su nombre lo dice es un programa de árboles binarios a la "N", o sea, tantos nodos como se quieran.

El programa está en modo gráfico y se maneja por medio de teclado y ratón. Tiene un menú tipo windows, cajas de texto tipo windows, botones "+" tipo windows, botones de comando tipo windows, ventanas tipo windows.

Se ve y funciona de maravilla. Espero sus comentarios, y sé que serán muchas más descargas.

Autor: Martín Campos Quintero

http://www.sisadmic.tk

52
Visual Basic 6.0 e inferiores / Detectar, Cancelar Impresiones Desde Visual Basic
« en: Sábado 10 de Septiembre de 2005, 11:19 »
Pues como describí, si alguien tiene el código o sabe algunas funciones para detectar impresiones que mandan otros programas, desde visual basic. Le agradecería que me lo hiciera saber. Necesito ese código ya que estoy haciendo un sistema de control de acceso para mi escuela, en el cual ahora me pidieron que sea un tipo sistema de impresión tal vez, pero la verdad no tengo ni idea de donde encontrar código de ese tipo.

De antemano gracias

 :D

53
Visual Basic 6.0 e inferiores / Venta De Software
« en: Domingo 21 de Agosto de 2005, 23:36 »
Hola amigos programadores.

Miren yo he realizado tres sistemas importantes a lo largo de mi carrera de ing. en sistemas y otros no menos importantes y otros simples :P

- sistema para ver pc remota
- sistema para sinfonolas digitales (fonola mp3)
- sistema para administración de cyber (sisadmic v1)
- sistema de control de acceso del instituto tecnológico de lázaro cárdenas

Los sistemas están muy bien diseñados y funcionan realmente bien

El sistema que diseñé para el instituto tecnológico de lázaro cárdenas ( www.itlazarocardenas.edu.mx )  tiene:

- Apertura de páginas web remotamente
- Apagado y reiniciado de PC's remotamente
- Ver la pantalla de cualquier PC de la red (que hace el usuario)
- Mandar mensajes a las PC's
- Bloqueo y desbloqueo de PC's
- Y lo más importante hasta ahora. Registro automático de usuarios, donde ya no es necesario que una persona registre a los alumnos al entrar.

Bueno, a lo que voy es donde podría vender mi software o cursos sobre winsock en visual basic.

Actualmente estoy vendiendo en mercadolibre y deremate. Pero no hay alguna o algunas páginas exclusivas para que programadores vendan sus productos?.

De no ser así aconsejaría que aqui se abriera un foro para venta de software, cursos, entre otros. Traería economía a la página.

Espero hagan caso de mi comentario :)

Saludos

54
Visual Basic 6.0 e inferiores / Pantalla De Bloqueo De Pc
« en: Lunes 15 de Agosto de 2005, 01:19 »
Hola amigos pues miren, hice un sistema para cybers, y creé una pantalla de bloqueo para las pc's clientes, esta pantalla permanece activa y utilicé la función de que siempre apareciera al frente aunque hubiera carpetas o programas abiertos. El sistema que creé para un centro de cómputo funciona bien porque ahí se prohibe jugar, pero en el sistema para cybers hay problema con juegos como vice city, la pantalla no se bloquea, o sea, el juego permanece activo. Alguien sabe como corregir esto?. O sea que la pantalla de bloqueo aparezca siempre al frente aunque haya cualquier juego activo?

De antemano gracias por sus respuestas

55
Visual Basic 6.0 e inferiores / Re: Conexión En Red
« en: Lunes 15 de Agosto de 2005, 01:10 »
Gracias Diodo por tu respuesta, mañana voy a hacer la prueba en el centro de cómputo, y de ser que funcione, le diré al jefe que active el puerto 10112.

56
Visual Basic 6.0 e inferiores / Conexión En Red
« en: Domingo 14 de Agosto de 2005, 08:20 »
Hola amigos

Miren, ahora el problema que tengo es la conexión de mi aplicación en red.

Hice un sistema de control de acceso, y solo controlaba un laboratorio del centro de cómputo de mi escuela, que tenian las direcciones ip  148.208.196.x   ahora va a controlar 4 laboratorios y las ips de cada laboratorio varian.

El problema es que los clientes solo se conectan al servidor si su ip es semejante a la de él. por ejemplo ip del servidor: 148.208.196.2   ip del cliente: 148.208.196.4, si un cliente tiene la ip 10.1.126.36  entonces ya no se puede conectar con el servidor. Pero mando un ping desde la PC de la ip 10.1.126.36 a la ip de la pc servidor y si me responde.

Nota: para dividir los laboratorios se cuenta con un ruteador.
Nota2: El puerto que utilizo para la conexión cliente-servidor es el 10112


Lo que me imagino es que el ruteador bloquea unos puertos y por eso no puedo entrar por el puerto 10112 pero si puedo hacer ping.

Lo que pienso intentar sería tratar de hacer la conexión por el puerto 80, creen que afectaría a algún otro programa si hago esto?

Gracias por sus respuestas de antemano  :hola:

57
Visual Basic 6.0 e inferiores / Re: Imprimir Picturebox
« en: Lunes 11 de Julio de 2005, 09:40 »
Pues lo que yo te puedo sugerir es que imprimas todo el formulario.

1. Adecuas el tamaño del formulario al tamaño del picturebox
2. Imprimes formulario

Para imprimir el formulario es con esta instrucción: me.printform  :D

58
Visual Basic 6.0 e inferiores / Base De Datos
« en: Sábado 9 de Julio de 2005, 12:01 »
Hola a todos, miren pues el problema que tengo ahora es que quiero juntar dos bases de datos en una tercera base de datos.

Lo que pasa es que tengo un servidor donde se encuentra la base de datos y un servidor alterno donde se encuentra una copia de la base de datos, y este servidor está activo siempre, y cuando se cae algún servidor el otro queda funcionando, el problema es para actualizar la base de datos en el servidor que entra.

Supongamos


BD(Servidor primario) _________ BD(Servidor alterno)
n_ctrl.......nombre..hora_ent ____ n_ctrl.......nombre.hora_ent
01560154.Martín....10:00 _______ 01560154.Martín...10:00
01560123 José.......14:25 _______ 01560123.José.....14:25
01560253 Antonio...15:00 _______ 01560111.María...16:13

Como vemos las dos bases de datos estaban funcionando hasta las 14:25 porque los dos primeros registros concuerdan, pero el tercer registro es diferente, esto quiere decir que el servidor alterno se cayó entre las 14:26 y las 14:59 y el servidor primario siguió funcionando y registró a una persona con n_ctrol 01560253 a las 15:00 horas.

Pero luego vemos que el servidor primario se cayó entre las 15:01 y las 16:12 y unos minutos después entró el servidor alterno, entonces el servidor alterno registró a una persona con n_ctrl 01560111 a las 16:13 horas.

Ahora tenemos que el servidor primario se repone, y se conecta primeramente al servidor alterno para obtener su Base de datos, a lo que el servidor alterno le manda su base de datos. Entonces ahora el servidor primario tiene las dos bases de datos completas

BD(Servidor primario) _________ BD(primario)
n_ctrl.......nombre..hora_ent ____ n_ctrl.......nombre.hora_ent
01560154.Martín....10:00 _______ 01560154.Martín...10:00
01560123 José.......14:25 _______ 01560123.José.....14:25
01560253 Antonio...15:00 _______ 01560111.María...16:13

La pregunta es como juntar esas dos, para que solo queden en una tercera base de datos los registros necesarios, de la siguiente forma:

BD(generada)
n_ctrl       nombre Hora_ent
01560154 Martín     10:00
01560123 José        14:25
01560253 Antonio   15:00
01560111 María       16:13

Existe alguna funcion en sql para hacer eso?, porque si lo hago registro por registro, esto es mediante un ciclo, tardaría mucho si son arriba de 3000 registros


Muchas gracias de antemano porque sé que me van a dar muy buenas respuestas
 ;)

59
Visual Basic 6.0 e inferiores / Re: Ejecutar Un Boton De Otra Aplicacion
« en: Sábado 9 de Julio de 2005, 08:05 »
Hola a todos, por cierto se puede también obtener el handle de el botón "INICIO" o del menú "INICIO"?. :unsure:

60
Visual Basic 6.0 e inferiores / Re: Tecla Windows Desactivarla O Cerrar
« en: Lunes 4 de Julio de 2005, 08:03 »
Hola radicaled muchas gracias.

Por cierto si funcionan los códigos en windows XP ?, la verdad no los he probado en XP y en W98 marcan errores, espero que en WXP si trabajen bien, porque necesito mucho bloquear la tecla windows

61
Visual Basic 6.0 e inferiores / Tecla Windows Desactivarla O Cerrar
« en: Sábado 2 de Julio de 2005, 20:36 »
Pues eso compañeros, estoy tratando de buscar código de activar y desactivar la tecla windows porque no quiero que ésta se pueda utilizar mientras está activa mi aplicación, pero que cuando no esté activa mi aplicación, la tecla windows si se pueda usar.

La verdad no he encontrado código pero pienso que se puede hacer que cuando esta se presione se haga una función que cierre el menú inicio pero no sé como hacer esa función.

Tal vez se pueda hacer capturando el handle. Pero necesito ayuda porque no sé si en verdad se pueda hacer eso que digo

PD. es en windows XP

Gracias de antemano  :lol:

62
Visual Basic 6.0 e inferiores / Bloquear Windows Xp
« en: Martes 21 de Junio de 2005, 08:09 »
Hola compañeros, pues tengo un pequeño problemón  :P

Hice un sistema de control de acceso para el centro de cómputo de mi escuela, que tiene computadoras con sistema operativo windows 98 y el sistema de control funciona bien.

Descripción:
Las máquinas cliente tienen bloqueada la pantalla y los usuarios no pueden hacer nada hasta registrarse en el servidor. La pantalla es como la que está adjunta

Hasta que metan el número de control que se registró en el servidor, se quita esa pantalla y el usuario puede usar la pc

La pantalla del cliente tapa toda la pantalla y no funcionan las teclas ctrl + alt + supr  ni alt+tab ni "inicio". el caso es que el cliente no se puede cerrar ni se puede hacer nada mientras la pantalla esté activa.

El servidor puede apagar, reiniciar las máquinas cliente, activar/desactivar las teclas ctrl+alt+supr  entre otras funciones.

 :whistling:  "EL PROBLEMA ES EL SIGUIENTE"  :whistling:

El centro de cómputo va a tener máquinas con windows XP

Y pues quiero hacer lo mismo

ya tengo la función de que el sistema no se pueda cerrar.

Pero me falta lo de que la pantalla cliente aparezca por sobre encima de todo y de que no se pueda usar ningún otro programa cuando la pantalla esté activa.

Además también me falta lo de apagar la PC cliente (Que en windows98 ya tengo), además de lo de reiniciarla.

Quisiera poder bloquear las teclas ctrl+alt+supr en XP pero creo que hasta ahora no se ha podido hacer eso en visual basic.

De antemano les doy las gracias porque sé que me van a poder responder  :smartass:

63
Visual Basic 6.0 e inferiores / Re: Apagar Equipo
« en: Martes 21 de Junio de 2005, 07:46 »
Hola, pues la forma más sencilla para apagar una pc remota, es que ella misma se apague no que la apague otra máquina, esto se consigue con aplicación cliente servidor


El servidor será el que mande la orden de apagar.

por ejemplo cuando la aplicación cliente esté conectada con la aplicación servidor, el servidor manda lo siguiente:

winsock1.senddata "apagate"

y el cliente al recibirlo:

dim datos as string
winsock1.getdata datos
if datos="apagate" then
  funcion de apagar()
endif

Busca información sobre el control winsock

64
Visual Basic 6.0 e inferiores / Re: Comonucacion Entre Maquinas
« en: Miércoles 8 de Junio de 2005, 07:26 »
Utiliza el control winsock, con éste puedes hacer una aplicación cliente/servidor

busca información sobre este control, que hay bastante aquí en el foro, por ejemplo ya establecida la conexión entre las dos máquinas

necesitas conectar las dos máquinas por medio de un cable utp cruzado si no tienes concentrador de red, si tienes concentrador de red, solo compra el cable utp normal, y ahora haces un programa servidor que esté a la espera de conexiones y un cliente que se conecte a el servidor.

Entonces puedes mandar un mensaje de esta forma desde el servidor:

winsock1.senddata "mensaje:NO HAY PAPEL"

y en el cliente este código:
dim datos a string
winsock1.getdata datos
if left(datos,8)="mensaje:" then
  x=len(datos)-8
  msgbox(right(datos,x))
endif

Una explicación un poco austera pk ya hay varios post en este foro donde se habla de winsock  :D

65
Visual Basic 6.0 e inferiores / Re: Winsock - Cliente/servidor
« en: Martes 3 de Mayo de 2005, 08:50 »
Hola pues observé tu código y podrías hacer esto:

En el botón escuchar del winsock del servidor coloca este código:

  Winsock1.LocalPort = 10100
  Winsock1.Listen

y automáticamente el servidor estará esperando por una petición de conexión

Y en el evento connectionrequest coloca esto:

  Winsock1.Close
  Winsock1.Accept (requestID)

Entonces ahora en el botón conectar del cliente coloca este código:

  Winsock1.Connect "10.1.129.36", 10100

Y ya estará establecida la conexión  ;)

66
Visual Basic 6.0 e inferiores / Ideas De Como Hacer Programa Detector De Huellas
« en: Sábado 26 de Marzo de 2005, 08:16 »
Pues bien, ahora necesito que me ayuden con un programa para detectar huellas por medio de un scanner normal. O sea que si yo doy de alta un registro y a este le asocio una huella (huella de la persona). Entonces que cuando la persona coloque su dedo en el scanner le sea tomada la huella y se busque en los registros, y si coincide entonces muestre el registro.

Necesito saber como hacer esto. O sea, como comparar imágenes de las huellas

De antemano gracias  ;)

67
Visual Basic 6.0 e inferiores / Re: Leer Archivo Binario
« en: Viernes 25 de Febrero de 2005, 07:15 »
Sip, es más fácil con FileCopy, pero yo lo que quiero es leer el archivo en una PC y escribirlo en otra PC, por eso necesito pasar byte por byte con el winsock  :D

68
Visual Basic 6.0 e inferiores / Leer Archivo Binario
« en: Jueves 24 de Febrero de 2005, 08:53 »
Hola amigos.

Ahora tengo otra duda  :D   y es que quiero copiar archivos en forma binaria porque los .exe, .com o similares solo se pueden copiar en forma binaria y quiero saber como hacerlo en visual basic. Espero me puedan proporcionar algo de código. De antemando gracias   :P

69
Sobre los Foros de SoloCodigo / Re: Cambiar Mi Nombre
« en: Domingo 6 de Febrero de 2005, 23:29 »
Hola Administradores :D, pues bien yo también quiero que me cambien mi nombre  :)   Pero no sé si se pueda que me pusieran este "martin campos quintero" o con guiones bajos, el chiste es que quiero que aparezca mi nombre  :P  Se los agradeceré mucho  ;)


Gracias  :D

70
Sobre los Foros de SoloCodigo / Cambiar Mi Nombre
« en: Domingo 6 de Febrero de 2005, 06:52 »
Hola pues quiero cambiar este nick que tengo "Zerocool" por mi nombre, y ps no quiero que mis mensajes se pierdan :D

71
Visual Basic 6.0 e inferiores / Re: Visual Basic +access
« en: Lunes 31 de Enero de 2005, 09:37 »
Info :D

No necesitas tener instalado office 97. Desde Access puedes convertir la base de datos a formato de access 97 y ya la puedes conectar con visual basic desde un control data  :)    

Desde el menu Herramientas ->>>utilidades de la base de datos->>> convertir a formato de access 97

 :hola:

72
Visual Basic 6.0 e inferiores / Re: Procesos Paralelos
« en: Jueves 6 de Enero de 2005, 06:30 »
Me imagino que para sucederte eso al presionar el command1 lo que tienes dentro de el es un ciclo.

Bien pues lo que yo hago para hacer varias acciones es, pues simular el ciclo en un timer y asi podrias presionar el command2 para que haga sus instrucciones tambien.

O sea el chiste de todo es simular lo que hace el ciclo, pero con un timer.

Espero te sirva de algo esta opinion  ;)

73
Visual Basic 6.0 e inferiores / Re: ¿Donde esta el error?
« en: Viernes 31 de Diciembre de 2004, 06:54 »
Bueno FAP aquí subo el código, haciendo notar que en este los clientes solo pueden enviar mensajes al servidor y no a otros clientes, el servidor al enviar un mensaje lo envía a todos los clientes, esta característica la podrias usar para hacer una rutina que envíe un mensaje al servidor con la ip destino para poder enviar mensajes de cliente a cliente, o sea haciendo al servidor como si fuera un servidor de mensajes  :huh:

74
Visual Basic 6.0 e inferiores / Ver Escritorio Remoto
« en: Viernes 31 de Diciembre de 2004, 01:36 »
Hola amigos, pues como ya saben estoy haciendo un sistema para controlar las máquinas de la red del centro de cómputo de mi escuela, ya controlo el paso de alumnos asignandole una pc a cada que se registra, y llevo un control de las máquinas disponibles. Si no se registran los alumnos en el servidor, no pueden usar la máquina cliente, ya que la máquina cliente verifica si el número de control ingresado se registró en el servidor :D

Pero ahora lo que quiero es poder ver el escritorio remoto en tiempo real de cierta pc que yo elija.

Probé a hacer esto:
Mando una orden a la máquina cliente de que capture su escritorio y lo guarde en un bmp y me lo envíe, pero el envío del bmp tarda de 10 a 15 segundos y yo lo que quiero es ver en tiempo real.

Alguna recomendación?, que estoy a la espera de su ayuda  :P

Por cierto aún sigo esperando ayuda de como cancelar una impresión  :)

75
Visual Basic 6.0 e inferiores / Re: ¿Donde esta el error?
« en: Viernes 31 de Diciembre de 2004, 01:20 »
Aqui subo el código corregido bro

****PROGRAMA CLIENTE****

Private Sub Command1_Click()
  Winsock1.Connect "Pc8Compaq", 1145 'Se conecta al equipo llamado "Pc8Compaq" donde está el programa servidor por medio del puerto 1145 que es el que está escuchando el servidor
End Sub

Private Sub Command2_Click()
  Winsock1.SendData txtSend.Text
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim strdata As String
  Winsock1.GetData strdata
  txtOutPut.Text = strdata
End Sub


****PROGRAMA SERVIDOR****

Private Sub Command1_Click()
  Winsock1.SendData txtSendData.Text 'Envía datos del "txtSendData" al cliente
End Sub

Private Sub Form_Load()
  Winsock1.LocalPort = 1145 'Establece que el socket esperará conexiones por el puerto 1145
  Winsock1.Listen 'Pone el socket a la espera de conexiones
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
  If Winsock1.State <> sckClosed Then
    Winsock1.Close
    Winsock1.Accept requestID
  End If
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim strdata As String
  Winsock1.GetData strdata 'Almacena los datos recibidos en la variable strdata
  txtOutPut.Text = strdata
End Sub

Listo, ese chat ya es funcional  ;)

Ya si quieres hacer que al servidor se le conecten varios clientes, nadamás dime y te paso el código, suerte  :P

Páginas: 1 2 [3] 4 5