About The Author

Bienvenidos espero sea de su agrado esta page, contiene programas con seriales, descarga directa etc.

Get The Latest News

recibe las nuevas por email

jueves, noviembre 20, 2008

problema de ventas

Private Sub cantidad_lostfocus(Index As Integer)

If precio(Index) = "" Then
    importe(Index) = ""
   
    Else
   
    If cantidad(Index) <> "" Then
        importe(Index) = precio(Index) * cantidad(Index)
       
    End If
    End If
   


End Sub

Private Sub Command1_Click()

total = 0
For i = 0 To 7
If importe(i) = "" Then
total = total + 0
Else
total = total + importe(i)
End If
Next i
Text1.Text = total

End Sub

Private Sub Command2_Click()
End

End Sub

Private Sub List1_Click()

If List1.Selected(List1.ListIndex) Then
    Select Case List1.ListIndex
   
    Case 0
   
        precio(0).Caption = Format(5, "fixed")
       
    Case 1
   
        precio(1).Caption = Format(4, "fixed")
       
    Case 2
   
        precio(2).Caption = Format(0.5, "fixed")
       
    Case 3
   
        precio(3).Caption = Format(1.5, "fixed")
       
    Case 4
   
        precio(4).Caption = Format(1, "fixed")
       
    Case 5
   
        precio(5).Caption = Format(2, "fixed")
   
    Case 6
   
        precio(6).Caption = Format(2.5, "fixed")
       
    Case 7
   
        precio(7).Caption = Format(3, "fixed")
       
    End Select
   
    Else
        precio(List1.ListIndex) = ""
        cantidad(List1.ListIndex) = ""
        importe(List1.ListIndex) = ""
       
    End If
   
End Sub

Private Sub Option1_Click(Index As Integer)

If Option1(0).Value = True Then
Option1(1).Value = False

Text2.Text = Text1.Text
Else
Option1(0).Value = False
Text2.Text = Text1.Text * 1.1
End If

End Sub

»»  read more

programa suma de matrices

Private Sub Command1_Click()

Dim a() As Single, b() As Single, r As Integer, c As Integer
Dim suma() As Single

r = InputBox("CUANTOS RENGLONES?")
c = InputBox("CUANTAS COLUMNAS?")

ReDim a(r, c)
For k = 1 To r
    For l = 1 To c
        a(k, l) = InputBox("a(" & k & ", " & l & ") =")
    Next l
Next k
Picture1.Print "Matriz A"


For k = 1 To r
    For l = 1 To c
        Picture1.Print a(k, l),
    Next l
    Picture1.Print
Next k

ReDim b(r, c)
For k = 1 To r
    For l = 1 To c
        b(k, l) = InputBox("B(" & k & "," & l & ")=")
    Next l
Next k
Picture2.Print "Matriz B"

For k = 1 To r
    For l = 1 To c
        Picture2.Print b(k, l),
    Next l
    Picture2.Print
Next k

Picture3.Print "Suma de Matrices"


ReDim suma(r, c)
For k = 1 To r
    For l = 1 To c
        suma(k, l) = a(k, l) + b(k, l)
        Picture3.Print suma(k, l),
    Next l
    Picture3.Print
Next k

 


End Sub

Private Sub Command2_Click()
Picture1.Cls
Picture2.Cls
Picture3.Cls


End Sub

Private Sub Command3_Click()
End

End Sub

»»  read more

post7

»»  read more

viernes, noviembre 07, 2008

recuperar archivos borrados



Recuperación de archivos borrados



La causa más común de pérdida de archivos no son las averías físicas del disco duro, sino el borrado accidental de archivos por error, descuido, virus, etc.

El consejo más importante ante el borrado accidental de un fichero es que deje de utilizar el dispositivo que contenía el archivo borrado.Si el archivo estaba en el disco duro, deje de utilizarlo.

Si estaba en una memoria USB, retírela.Si sigue utilizando el dispositivo que contiene el archivo borrado, corre el riesgo de escribir nuevos datos sobre el archivo que quiere recuperar, provocando la pérdida definitiva de los datos.

Cómo es posible recuperar un archivo borrado?


Aunque el archivo se haya borrado, sus datos permanecen en el disco duro (o en la memoria USB, o el soporte que sea). Únicamente se ha eliminado su apunte en el "índice", pero el contenido permanece.Utilizando una aplicación de recuperación de archivos borrados, podrá encontrar los datos del archivo borrado y e incluirlo en el índice, consiguiendo así recuperar el archivo borrado.


¿Qué programas puedo usar para recuperar un archivo borrado del disco duro?


Existen multitud de aplicaciones comerciales, muy completas, para recuperar archivos borrados. Si el archivo que quiere recuperar es vital para usted o su empresa, debería utilizar una aplicación comercial. Algunas de estas aplicaciones puede probarlas gratuitamente, y comprobar si son capaces de recuperar su archivo borrado.


También existen programas gratuítos de recuperación de archivos borrados. Son algo más limitados que un programa comercial. Recomendamos File Recovery de PC Inspector.


En este enlace, encontrará una lista de programas de recuperación de archivos, tanto gratuitos (freeware) como limitados (shareware).


RECUERDE: Instale cualquier programa de recuperación de archivos sobre otro disco duro distinto al que contiene el archivo a recuperar (también puede instalar el programa en una memoria USB).Si instala el programa sobre el mismo disco duro que contiene el archivo borrado, corre el riesgo de escribir sobre los datos que quiere recuperar, perdiendo el archivo borrado definitivamente.


¿Qué programas puedo usar para recuperar un archivo dañado de un CD?


Existen multitud de aplicaciones comerciales, muy completas, para recuperar archivos dañados de un CD. Si el archivo que quiere recuperar es vital para usted o su empresa, debería utilizar una aplicación comercial. Algunas de estas aplicaciones puede probarlas gratuitamente, y comprobar si son capaces de recuperar su archivo dañado.
También existen programas gratuítos para recuperar archivos dañados de un CD. Recomendamos IsoBuster de Smart Projects


¿Qué programas puedo usar para recuperar un archivo borrado de una tarjeta de memoria?


Recomendamos el programa gratuíto Digital Image Recovery de ZAR.

»»  read more

recuperar disco duro

Recuperar disco duro. Reparar un disco duro averiado

De repente, su ordenador ya no reconoce el disco duro. El dispositivo ha desaparecido del sistema operativo y no hay forma de acceder a la información del disco duro.
Usted se pregunta ¿puedo recuperar los datos del disco duro?.La respuesta es que, casi siempre, SI.





¿Cómo reparar el disco duro, o al menos, recuperar los datos?

La opción con más posibilidades de éxito es acudir a alguna de las empresas especializadas en la recuperación de datos, puesto que cuentan con experiencia, repuestos, herramientas e instalaciones especializadas. En la mayoría de los casos, recuperarán los datos del disco duro sin problemas. Sólo en caso de accidentes catastróficos, como un incendio que haya fundido los platos con el material magnético, una empresa de recuperación de datos no será capaz de recuperar la información del disco duro. Pida presupuesto en varias empresas, y consulte sus servicios gratuítos.

Si no tiene presupuesto para encargar la reparación del disco duro a una empresa, siga la guía para recuperar un disco duro que le presentamos, elaborada con las experiencias de cientos de técnicos en hardware:

Guía para recuperar un disco duro

Paso 1: Determine si es un problema electrónico o mecánico

El disco duro tiene dos módulos diferenciados:1.- El módulo electrónico, que contiene toda la circuitería de control del disco2.- El módulo mecánico, que está encerrado en una carcasa metálica y contiene los platos con el material magnético y los cabezales de lectura/escritura del disco duro.

Determine si la avería está en el módulo electrónico o en el mecánico.Para ello, compruebe si el disco duro gira cuando arranca el PC. Suelte el disco duro de sus anclajes al ordenador, para tenerlo accesible, pero manténgalo conectado. Encienda el ordenador. Si el disco gira, lo notará al tocarlo, por la vibración y también escuchará el ruído del motor:1.- Si el disco duro gira normalmente, sin ruídos extraños, pero no es reconocido por el ordenador. Posible problema de electrónica.

2.- Si el disco duro no gira. Posible problema mecánico.

3.- Si el disco duro hace un ruído extraño. Problema mecánico con toda seguridad.

Recuperar un disco duro con problemas de electrónica

La única solución en este caso es conseguir un segundo disco duro, idéntico al averiado, y sustituir la parte electrónica del disco averiado por la del segundo disco. Lo difícil en este caso es conseguir un disco duro idéntico al averiado, porque separar la parte eléctrónica de la mecánica para hacer la sustitución es una tarea relativamente sencilla.

Si no puede encontrar un repuesto para la parte electrónica del disco duro, acuda a una empresa especialista en recuperación de datos, porque cuentan con infinidad de repuestos, originales o compatibles, para la mayoría de los discos del mercado. Pida presupuesto gratuito en varias de estas empresas.

Como último recurso, pruebe el método de la congelación que describimos más abajo, quizá pueda "resucitar" algún componente electrónico defectuoso.

Recuperar un disco duro con problemas mecánicos

Solución 1: congelar el disco duro

La solución con más posibilidades de éxito es, lo crea o no, congelar el disco duro.
¡No es ninguna broma!
Entre los problemas mecánicos más frecuentes se encuentran las deformaciones de los platos por sobrecalentamiento.

El plato deformado es incapaz de girar, o lo hace con dificultad, y provoca el mal funcionamiento del disco duro.Al congelar el disco duro, el elemento deformado recupera, temporalmente, su forma. El tiempo justo para volcar los datos sobre otro disco duro.

Para aplicar esta "técnica" correctamente, siga estos pasos:

1.- Envuelva el disco duro averiado en una bolsa de plástico, para que la humedad no le afecte, y meta el disco duro en un congelador durante, al menos, 4 horas.

2.- Prepare un segundo disco duro para recoger la información del disco duro averiado.

3.- Transcurridas las 4 horas, saque el disco duro del congelador.

No retire la bolsa para evitar que la condensación afecte a la parte electrónica. Saque únicamente los cables y conecte el disco duro, sin atornillarlo para no perder tiempo.

4.- Si ha tenido suerte, y el disco duro averiado arranca, copie los datos esenciales sobre el segundo disco duro.

5.- Si el disco duro averiado falla antes de haber rescatado todos los datos, pruebe a congelarlo de nuevo.

Solución 2: Cambiar la posición del disco duro


En ocasiones, cambiar la posición del disco puede resolver el problema. Si la posición original del disco duro era horizontal, pruebe a ponerlo vertical, o boca abajo.Arranque el ordenador y cruce los dedos...

Solución 3: golpear el disco duro o dejarlo caer


Otras veces, el disco duro no gira porque los cabezales han quedado pegados al plato. En estos casos, para recuperar el disco duro hay que dejarlo caer sobre una superficie firme desde una altura de unos 20 cm.

Si con una vez no basta, pruebe a dejarlo caer sobre los cuatro lados.También puede golpearlo en un lateral con la palma de la mano.
»»  read more

jueves, noviembre 06, 2008

pract07

»»  read more