Me ayudarian a mejorar este codigo¿?

[seba123neo]

todavia no entiendo bien la logica del programa, pero bue ...entonces statuspc(48) deberia ser statuspc(49) si son 50 computadoras y la funcion la  deberias pasar del modulo y ponerla directamente en el formulario.y por favor indentar el codigo fuente.

Código (vb) [Seleccionar] Expandir


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


no deberia reemplazarse el 48 del iif por la "i", sino siempre chequearia el valor de (48) no?

saludos.

[seba123neo]

Pues mira que use varios codigos así pero siempre me da el mismo error =S "Method or data member not found" y me marca esta zona: .Label

creaste la matriz de controles de labels ??

[BlackZeroX]

todavia no entiendo bien la logica del programa, pero bue ...entonces statuspc(48) deberia ser statuspc(49) si son 50 computadoras y la funcion la  deberias pasar del modulo y ponerla directamente en el formulario.y por favor indentar el codigo fuente.

Código (vb) [Seleccionar] Expandir


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


no deberia reemplazarse el 48 del iif por la "i", sino siempre chequearia el valor de (48) no?

saludos.

jajaja se me paso xd, me ire a dormir ando muy desvelado ya jajaja.

Dulces Lunas!!¡.

[Murd3r3r 0f daT4]

Pues mira que use varios codigos así pero siempre me da el mismo error =S "Method or data member not found" y me marca esta zona: .Label

creaste la matriz de controles de labels ??

Claro la matriz la he definido =S, he allí lo raro de que me marque ese error!

[BlackZeroX]

Haber prueba con este Ejemplo

Se nesesita Dibujar en un Form

1 CommandButton con nombre =  Command1
1 Label Con Nombre = Label Propiedad index = 0

Código (vb) [Seleccionar] Expandir



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



P.D.: El codigo te generara los demàs Label segun se deseen.

Dulces Lunas!¡.

[Murd3r3r 0f daT4]

Haber prueba con este Ejemplo

Se nesesita Dibujar en un Form

1 CommandButton con nombre =  Command1
1 Label Con Nombre = Label Propiedad index = 0

Código (vb) [Seleccionar] Expandir



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



P.D.: El codigo te generara los demàs Label segun se deseen.

Dulces Lunas!¡.

Primero, muchisimas gracias por andar ayudando =D, y probe ese codigo y no me funciono al 100%, pero aun así muchas gracias sigo investigando y ya pase casi todos los controles a matrices =D