Dim Entrada As Integer
Dim Kb As Double
Dim resp As Double
Dim kbResp As Integer
Dim aux As String
Dim cargados As Byte
Private Sub cdmSalir_Click()
End
End Sub
Private Sub cmdAgregar_Click()
'llena los elementos con datos de entrada en las lista
Nombres.AddItem txtNom.Text & " - " & txtTam.Text
'AQUI LLENA A LOS CUADROS DE TEXTO
cargados = total / txtTam
For i% = 0 To cargados
Text1(i%) = txtNom
Next i%
'el contardor de datos de entrada
Entrada = Entrada + 1
txtEntrada = Entrada
'si entrada llega a su limite de elementos que se pueden agregar el botón se anula
If Entrada = 128 Then
cmdAgregar.Enabled = False
End If
'si al descargas la entrada se vuelve negativo el textbox se anula
If txtEntrada = -1 Then
txtEntrada.Enabled = False
End If
'si se ingresa de golpe los 655536+1 este nos marca que el espacio se ha sobrepasado
If txtTam.Text = 65537 Then
cmdAgregar.Enabled = False
mensaje = MsgBox("Limite de Tamaño Pasado", vbApplicationModal)
End If
'hacemos la suma de los kb cargados al ingresar los datos
Kb = Kb + txtTam
lblkb.Caption = Kb
'restamos los 65530 que es la multiplicación de 128*512 los kb ingresados para saber el espacio disponible
resp = resp - Kb
txtEspacio = resp
'marca si el tamaño se ha sobrepasado;nota no elimina el elmento que sobrepaso el limite
If resp <= 0 Then
cmdAgregar.Enabled = False
mensaje = MsgBox("Limite de Tamaño Pasado", vbApplicationModal)
End If
End Sub
Private Sub cmdCargar_Click()
Do While descarga.ListIndex >= 0
'se colocan antes de eliminar en un auxiliar los elementos de descarga
auxi = descarga.List(descarga.ListIndex)
'se eliminan los elementos de descargas, pero ya antes estos se guardaron en un auxiliar
descarga.RemoveItem descarga.ListIndex
'vuelve a llenar los textbox con la información supuestamente eliminada
For i% = 0 To 127
Text1(i%) = auxi
Next i%
'se llena "nombres" con los elementos auxiliares cuando estos se quieren volver a cargar
Nombres.AddItem auxi
Loop
'al hacer la carga vuelve a aumentar el crgador
Entrada = Entrada + 1
txtEntrada = Entrada
'si entrada llega al mámixo de elementos el botón de agregar se anula
If Entrada = 128 Then
cmdAgregar.Enabled = False
End If
End Sub
Private Sub cmdDescarga_Click()
'elimina los elementos de carga para enviarlos a descargas
Do While Nombres.ListIndex >= 0
aux = Nombres.List(Nombres.ListIndex)
Nombres.RemoveItem Nombres.ListIndex
'llena los textbox con espacios en blanco al eliminar
For i% = 0 To 127
Text1(i%) = " "
Next i%
descarga.AddItem aux
'resta los elementos cuando estos se descargab
Entrada = Entrada - 1
txtEntrada = Entrada
'borra las etiquetas de kb
Label5.Visible = False
lblkb.Visible = False
Loop
End Sub
Private Sub Form_Load()
resp = 65536#
total = 128
End Sub
Private Sub txtNom_KeyPress(KeyAscii As Integer)
'valida para solo admitir letras
cadena = "ZXCVBNMASDFGHJKLÑPOIUYTREWQzxcvbnmñlkjhgfdaqwertyuiop." + Chr(8) 'chr(8) = delete, es decir admitimos borrar
If InStr(cadena, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
If Not InStr(cadena, Chr(keyAcii)) Then
mensaje = MsgBox("Solo Caracteres Alfabeticos", vbApplicationModal)
End If
End If
End Sub
Private Sub txtTam_KeyPress(KeyAscii As Integer)
'valida el textbox de txtTam para solo admitir dato numéricos
If Not IsNumeric(Chr(KeyAscii)) Then
mensaje = MsgBox("Solo Datos Numéricos", vbApplicationModal)
KeyAscii = 0
End If
End Sub
