[ACC] Ayudar a depuración!

[BaByRoDrI]

Bueno ando trabajando en un proyecto para la escuela, soy algo nuevo programando en visual basic, se usar algunas APIs(muy, pero muy pocas) y se las cosas basicas.

Introducción del Proyecto

El proyecto por nombre: Automatic Computer Center(ACC), bueno la idea es sencilla hay exactamente 50 PCs en red LAN, actualmente usar NetSupport School para controlar dicha red LAN. Los alumnos que quieran hacer tareas tienen acceso a esa sala, el problema es que a veces los encargados de dicha sala tienen que salir, dar clases o algun otro problema, lo que se planea con este software es simplificar y automatizar las cosas.

Cual será la función del software:

Constará de 3 partes: servidor, cliente y registrador.

Servidor:
El servidor, será una PC que solo personal autorizado tendrá acceso, desde donde se podrá observar lo que los alumnos hacen, así como poder conectarse a todas las compus para ayudar con problemas, instalar software y cosas de ese indole.

Cliente:
Será el que usaran las PCs de los alumnos para que se conecten al servidor, entre otras funciones menos importantes, desactivará el panel de controlo, registro del sistema, administrador de tareas, algunos comandos del simbolo de sistema y una pequeña utilidad que elimine los autorun con codigo malicioso de los pendrives de los alumnos. Ademas cuando la PC no este en uso estará bloqueada y solo se podrá desbloquear usando el registrador y cuando cada alumno termine de usar la PC pulsará un botón para que se vuelva a bloquear!

Registrador:
Este será una PC que se colocará a la entrada de la Sala de computo, este mostrara todas las PCs que estén disponibles, cuando esten disponibles daremos doble click sobre la que queramos usar, nos saldrá un formulario donde se colocará el nombre completo y el N° de cuenta del alumno, y al registrarse hará una comprobación de que ambos datos coincidan, para evitar pishing. Si es así registrará en una BD su N° de cuenta, máquina que ocupo, hora de entrada y cuando acabe de usarla a que hora salio.

Estado Actual:

A pesar de que voy a trabajar con unos ing.(yo soy alumno jojo), he iniciado el proyecto, pero comento soy muy nuevo programando =), y ya he montado una muy pequeña parte del registrador, a continuación les dejaré los codigos y la descarga del mismo! La idea es que creo que se pueden simplificar cosas mediante APIs y bucles, pero no se mucho al respecto.

Iré actualizando el post, con las actualizaciones en los codigos, y de ante mano mil gracias por su ayuda!!

[BaByRoDrI]

Registrador:

principal.frm(Form1):

Código vb:

Private Sub Form_Load()
Dim running As Integer
running = App.PrevInstance
If running <> 0 Then
MsgBox "El Programa ya se esta ejecutando", 0 + 48, "News"
End
End If
End Sub
Private Sub pc1_Click()
statuspc = 1
If Label1.Caption = "DISPONIBLE" Then
Unload principal
registro.Show
Else
MsgBox "Elige otra computadora, esta ya esta ocupada =(", vbCritical, "Error"
End If
End Sub
Private Sub pc2_Click()
statuspc = 2
If Label2.Caption = "DISPONIBLE" Then
Unload principal
registro.Show
Else
MsgBox "Elige otra computadora, esta ya esta ocupada =(", vbCritical, "Error"
End If
End Sub
Private Sub pc3_Click()
statuspc = 3
If Label3.Caption = "DISPONIBLE" Then
Unload principal
registro.Show
Else
MsgBox "Elige otra computadora, esta ya esta ocupada =(", vbCritical, "Error"
End If
End Sub
Private Sub pc4_Click()
statuspc = 4
If Label4.Caption = "DISPONIBLE" Then
Unload principal
registro.Show
Else
MsgBox "Elige otra computadora, esta ya esta ocupada =(", vbCritical, "Error"
End If
End Sub
Private Sub pc5_Click()
statuspc = 5
If Label5.Caption = "DISPONIBLE" Then
Unload principal
registro.Show
Else
MsgBox "Elige otra computadora, esta ya esta ocupada =(", vbCritical, "Error"
End If
End Sub
 

registro.frm(Form2):

Código vb:

Private Sub Form_Load()
Command1.Enabled = False
End Sub
Private Sub apellidop_Change()
If apellidop.Text <> "" And apellidom.Text <> "" And nombre.Text <> "" And cuenta.Text <> "" Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub
Private Sub apellidom_Change()
If apellidop.Text <> "" And apellidom.Text <> "" And nombre.Text <> "" And cuenta.Text <> "" Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub
Private Sub nombre_Change()
If apellidop.Text <> "" And apellidom.Text <> "" And nombre.Text <> "" And cuenta.Text <> "" Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub
Private Sub cuenta_Change()
If apellidop.Text <> "" And apellidom.Text <> "" And nombre.Text <> "" And cuenta.Text <> "" Then
Command1.Enabled = True
Else
Command1.Enabled = False
End If
End Sub
Private Sub Command1_Click()
MsgBox "Registrado. Disfruta tu estancia", vbInformation, "Registro exitoso"
Sleep 250
Call Ocuparpc
Sleep 250
'Registro BD
Sleep 250
apellidop.Text = ""
apellidom.Text = ""
nombre.Text = ""
cuenta.Text = ""
Sleep 250
Unload registro
principal.Show
End Sub
Private Sub Command2_Click()
apellidop.Text = ""
apellidom.Text = ""
nombre.Text = ""
cuenta.Text = ""
Sleep 250
Unload registro
principal.Show
End Sub
 

funciones.bas(Module1):

Código vb:

Function Limpiaregistro()
 
End Function
Function Bloquearpc()
 
End Function
Function Ocuparpc()
Select Case principal.statuspc
Case 1
principal.Label1.Caption = "NO DISPONIBLE"
Case 2
principal.Label2.Caption = "NO DISPONIBLE"
Case 3
principal.Label3.Caption = "NO DISPONIBLE"
Case 4
principal.Label4.Caption = "NO DISPONIBLE"
Case 5
principal.Label5.Caption = "NO DISPONIBLE"
End Select
End Function
 

Aquí les dejo el proyecto:
rapidshare.com/files/288825115/Centro_de_computo.rar

[BaByRoDrI]

Servidor:

Pendiente a desarrollar...

[BaByRoDrI]

Cliente:

Pendiente a desarrollar

De ante mano mil gracias a todos, por todo!!