Foro de elhacker.net

Public statuspc As Integer
 
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
 

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
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
 

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
 

dim statuspc(48) as boolean
public sub Ocuparpc()
    For i = 0 To ubound(statuspc)
        If statuspc(48)  Then
            principal.Label(i).Caption = "DISPONIBLE"
        else
            principal.Label(i).Caption = "NO DISPONIBLE"
        End If
    Next i
End sub
 

dim statuspc(48) as boolean
public sub Ocuparpc()
    For i = 0 To ubound(statuspc)
        principal.Label(i).Caption = iif(statuspc(48),"DISPONIBLE","NO DISPONIBLE")
    Next i
End sub
 

dim statuspc(48) as boolean
public sub Ocuparpc()
    For i = 0 To ubound(statuspc)
        principal.Label(i).Caption = iif(statuspc(48),"DISPONIBLE","NO DISPONIBLE")
    Next i
End sub
 

 
Option Explicit
 
Dim StatusPC() As Boolean
 
Private Sub Command1_Click()
    Dim i As Integer
    For i = 0 To UBound(StatusPC)
        '   // Simulo las entradas de estado
        StatusPC(i) = Round(1 * Rnd())
        '   // Visualiso dichas entradas
        Label(i) = i & " " & IIf(StatusPC(i), "DISPONIBLE", "NO DISPONIBLE")
    Next i
End Sub
 
    '   // Esto solo lo hago por que no deseo estar dibujando _
    y posicionando cada label manualmente
Private Sub Form_Load()
    Dim i As Integer
    Dim SumaIzquierda As Long, TopLabel As long
    Const CantLabel = 80
    Const Filas = 10
    ReDim StatusPC(CantLabel - 1)
 
    BackColor = vbBlack
    With Command1
        .Top = 255
        .Left = 255
        .Caption = "Reiniciar Simulaciòn de Estados"
    End With
    With Label(0)
        .Left = 255
        .Top = Command1.Top + Command1.Height + 250
        .BackColor = vbBlack
        .ForeColor = vbWhite
    End With
    SumaIzquierda = 255
    For i = 1 To CantLabel - 1
        Load Label(i)
        SumaIzquierda = IIf(i Mod Filas = 0, Label(i).Left + Label(i).Width + 255 + SumaIzquierda, SumaIzquierda)
        TopLabel = IIf(i Mod Filas = 0, Label(0).Top, Label(i - 1).Top + Label(i - 1).Height + 25)
        With Label(i)
            .Top = TopLabel
            .Left = SumaIzquierda
            .Caption = ""
            .BackColor = vbBlack
            .ForeColor = vbWhite
            .Visible = True
        End With
    Next i
    Width = SumaIzquierda + Label(i - 1).Width + 255
    Height = Label(Filas - 1).Top + Label(Filas).Height * 4
End Sub