Azzlaer

No importa donde una pantalla LCD este ubicada, siempre va a necesitar una limpieza de vez en cuando. La limpieza de una pantalla LCD puede parecer una tarea difícil, pero hay algunas maneras simples para limpiarlas sin dañar o marcar la superficie. Existen muchas soluciones de limpieza para pantallas LCD en los comercios. Sin embargo, estas pueden ser un poco costosas y a veces inutiles. Solución de Alcohol Se recomienda usar una solución simple de alcohol para limpiar una pantalla LCD. Esta solución está compuesta de 1 parte de agua destilada y 1 parte alcohol isopropílico al 50%. Tenga cuidado que el alcohol isopropílico es inflamable. El alcohol isopropílico al 50% es muy común. Pero si usted encuentra una al 70%, 91%, o 99% de alcohol isopropílico, ajuste la fórmula para utilizar menos alcohol y más agua destilada. :::::::::::::::::::::::::::::.PRECAUCIONES:::::::::::::::::::::::::::::. Al mezclar estos dos componentes en un frasco, producirá una auténtica solución de limpieza de pantallas LCD. Recuerde no utilizar agua de la canilla, sólo agua destilada. NO utilice pañuelos desechables (tipo Kleenex) para limpiar la pantalla. Eso es tan ineficaz, que una vez que lo pase, dejará partes por toda la pantalla. Intente encontrar paños microfibras para limpiar la pantalla. Los paños que vienen junto con los anteojos son normalmente una buena opción. Nunca debe rociar ningún tipo de líquido directamente sobre la pantalla LCD. Limpie suavemente la pantalla de arriba hacia abajo y espere a que seque. Tenga cuidado de no dejar que el liquido caiga por los costados del monitor. Además asegúrese de no presionar fuerte en la pantalla del LCD. Puede dañar permanentemente una pantalla LCD presionando sobre ella demasiado fuerte. El Polvo Si sólo tiene polvo en la pantalla, no hay necesidad de limpiarla completamente. Para remover todo el polvo, lo que se debe hacer es a limpiarla a distancia con un paño de microfibras. Simplemente limpie la pantalla muy suavemente de punta la punta con el paño. Cómo limpiar correctamente monitores y televisores LCD Una las innovaciones más revolucionarias de los últimos tiempos en cuanto a prestaciones, comodidad, consumo eléctrico y funcionalidades que fue incorporada para el uso habitual de los usuarios de computadoras, es sin lugar a dudas la tecnología de LCD (Liquid Crystal Display). Como sabemos, los monitores y televisores que emplean las fabulosas pantallas de LCD, lentamente se han convertido en el reemplazo óptimo para todo el parque disponible de los antiguos monitores tecnología CRT, y esta nueva tecnología ha llegado para instalarse entre nosotros por largo tiempo. No obstante, además del confort de uso que brindan las pantallas de LCD, también su utilización acarrea ciertos problemas que eran de muy fácil solución en los viejos monitores de rayos catódicos. En este sentido, cabe destacar que debido a su naturaleza de construcción, las pantallas LCD son mucho más delicadas y sensibles a todo tipo de tratamientos inadecuados, y esta característica se hace notoria cuando nos encontramos frente a la necesidad de llevar a cabo una limpieza de la misma. Limpiar una pantalla LCD, tanto sea de un monitor de PC como la de un televisor, requiere de un cuidado especial, que no era necesario en el momento de limpiar aquel tradicional monitor de tecnología CRT. Tengamos en cuenta que las pantallas de rayos catódicos se fabricaban utilizando vidrio como componente primario. Si bien lo más aconsejable en estos casos es remitirse a la información brindada por el fabricante para su correcta limpieza, lo cierto es que muchas veces esta información brindada por la compañía que comercializa el monitor no suele acompañar al instructivo del mismo, y de esta manera los usuarios no pueden acceder a los datos necesarios que le indiquen un método efectivo de limpieza validado por el manufacturador de la pantalla. Para todos aquellos usuarios que se encuentran en esa situación, a lo largo de este informe especial les acercaremos algunas de las pautas más importantes para poder realizar correctamente y sin inconvenientes la tarea de limpieza de nuestro monitor o televisor con pantalla de LCD. Limpieza de la pantalla Normalmente para cualquier limpieza ligera de la pantalla bastará con un repaso de la misma, para lo cual debemos utilizar un paño suave ligeramente humedecido en agua. No obstante, existen casos en que por la suciedad depositada sobre el visor no es posible ejecutar una apropiada higienización, por lo tanto vamos a requerir de alguna solución o mezcla que nos permita la remoción total de la suciedad. En el mercado actual podemos encontrar completos kits de limpieza, que han sido especialmente formulados para estas actividades. Estos kits, además de incluir la mezcla propiamente dicha, cuentan con una serie de materiales aptos para la correcta limpieza de la pantalla, tales como paños o gamuzas, mediante los cuales podremos limpiar la superficie del equipo sin correr el riesgo de provocar ralladuras o daños. Sin embargo, a pesar de su excelente rendimiento, la mayoría de los usuarios consideran que el costo de estos elementos suele ser demasiado elevado para la función que cumplen. En este caso, podemos optar por otras alternativas, para lo cual será necesario fabricar nuestra propia solución limpiadora, que puede ser lograda mediante la cuidadosa mezcla de agua destilada y alcohol isopropílico. Es importante destacar que el alcohol isopropílico es una substancia cuyo uso se encuentra muy extendido en lo que respecta a la limpieza de lentes de objetivos fotográficos y en la limpieza de contactos de aparatos electrónicos, debido a que su utilización no deja marcas y es de muy rápida evaporación. En cuanto al agua utilizada, esta debe ser destilada, ya que la misma no presenta ninguna clase de contaminantes o impurezas abrasivas tales como minerales o sales, que pueden convertirse en elementos que influyan negativamente sobre la pantalla, rayándola o produciendo aún más suciedad. Si quieres conocer más información acerca del método correcto para limpiar tu pantalla, te recomendamos la lectura de la segunda parte de este informe especial. Cómo cuido el monitor LCD link: http://www.youtube.com/watch?v=0naDKjOVqtw Como Limpiar un Monitor LCD link: http://www.youtube.com/watch?v=_yqdQNSsMIQ limpieza de la pantalla de un monitor link: http://www.youtube.com/watch?v=9ZT88pKjy48 EL VIERNES COMPRE UN LCD DE 54' !!! Y MANDE A HACER EL MUEBLE , Y CON LOS PARLANTES TECHNICS QUE TENGO !! HOY ME LO TIENEN QUE TRAER ! APENAS ME TRAIGAN LOS VOY A PONER EN TARINGA LAS FOTOS PARA QUE EVAN UN PARTIDO DE LA PS2 Y PS3

Despues de la actividad N°1 pasamos a otro ejemplo que siempre nos trae dudas a la hora de programar. Mediante codigos programaremos el formulario y sus botones para que nos deje usar la base de datos, y con el resultado obtenido le diremos al programa que nos haga un listado de los "Mejores Viajes" Proceseguimos a hacer el Formulario que quedaria asi. Si a esta altura con tu conocimiento basico de programacion no sabes lo que agregue... entonces no entiendo que haces en este post 11 Buttons 1 Combobox 2 Textbox 5 Label 1 Listbox Public Class Form1 Private Sub Cambiar(ByVal Cambio As Boolean) cmdAgregar.Enabled = Cambio cmdModificar.Enabled = Cambio cmdEliminar.Enabled = Cambio cmdPrimero.Enabled = Cambio cmdAnterior.Enabled = Cambio cmdSiguiente.Enabled = Cambio cmdUltimo.Enabled = Cambio cmdMostrar.Enabled = Cambio cmdSalir.Enabled = Cambio cmdAceptar.Enabled = Not Cambio cmdCancelar.Enabled = Not Cambio cboRemisero.Enabled = Not Cambio txtKms.Enabled = Not Cambio txtDestino.Enabled = Not Cambio lblValor.Enabled = Not Cambio lblRecaudacion.Enabled = Not Cambio End Sub Private Sub Iniciar() cboRemisero.Text = "" txtDestino.Text = "" txtKms.Text = "" lblValor.Text = "" lblRecaudacion.Text = "" End Sub Private Sub Cargar(ByVal nRegistro As Integer) With MiDataSet.Tables("dtRecaudacion".Rows(nRegistro) cboRemisero.Text = .Item("Remisero".ToString txtDestino.Text = .Item("Destino".ToString txtKms.Text = .Item("Kms".ToString lblRecaudacion.Text = .Item("Recaudacion".ToString End With End Sub Private Sub Calcular() Dim Costo As Double lblValor.Text = "3" Costo = Val(lblValor.Text) * Val(txtKms.Text) If Costo >= 8 Then lblRecaudacion.Text = Costo.ToString Else lblRecaudacion.Text = "8" End If End Sub Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Cambiar(True) MiConexion.ConnectionString = "provider=microsoft.jet.oledb.4.0;data source=" & CurDir() & "Remiseria.mdb" MiConexion.Open() MiAdapter = New OleDb.OleDbDataAdapter("select * from Recaudacion", MiConexion) MiAdapter.Fill(MiDataSet, "dtRecaudacion" MiComandoABM = New OleDb.OleDbCommandBuilder(MiAdapter) MiConexion.Close() If MiDataSet.Tables("dtRecaudacion".Rows.Count > 0 Then Posicion = 0 Cargar(Posicion) End If End Sub Private Sub cmdAgregar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAgregar.Click Cambiar(False) Flag = 1 Iniciar() txtDestino.Focus() End Sub Private Sub cmdModificar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdModificar.Click Cambiar(False) Flag = 2 txtDestino.Focus() End Sub Private Sub cmdAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAceptar.Click Cambiar(True) Dim Registro As DataRow If Flag = 1 Then Registro = MiDataSet.Tables("dtRecaudacion".NewRow Registro("Remisero" = cboRemisero.Text Registro("Destino" = txtDestino.Text Registro("Kms" = Val(txtKms.Text) Registro("Recaudacion" = Val(lblRecaudacion.Text) MiDataSet.Tables("dtRecaudacion".Rows.Add(Registro) 'Posicion = MiDataSet.Tables("dtRecaudacion".Rows.Count - 1 Else Registro = MiDataSet.Tables("dtRecaudacion".Rows(Posicion) Registro("Remisero" = cboRemisero.Text Registro("Destino" = txtDestino.Text Registro("Kms" = Val(txtKms.Text) Registro("Recaudacion" = Val(lblRecaudacion.Text) End If MiConexion.Open() MiAdapter.Update(MiDataSet.Tables("dtRecaudacion") MiConexion.Close() End Sub Private Sub txtKms_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtKms.TextChanged Calcular() End Sub Private Sub cmdCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancelar.Click Cambiar(True) Cargar(Posicion) End Sub Private Sub cmdPrimero_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPrimero.Click Posicion = 0 Cargar(Posicion) End Sub Private Sub cmdUltimo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUltimo.Click Posicion = MiDataSet.Tables("dtRecaudacion".Rows.Count - 1 Cargar(Posicion) End Sub Private Sub cmdAnterior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAnterior.Click If Posicion > 0 Then Posicion -= 1 Else Posicion = MiDataSet.Tables("dtRecaudacion".Rows.Count - 1 End If Cargar(Posicion) End Sub Private Sub cmdSiguiente_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSiguiente.Click If Posicion < MiDataSet.Tables("dtRecaudacion".Rows.Count - 1 Then Posicion += 1 Else Posicion = 0 End If Cargar(Posicion) End Sub Private Sub cmdSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSalir.Click End End Sub Private Sub cmdEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEliminar.Click If MessageBox.Show("Confirma la Eliminación", "Borrado de Registro", MessageBoxButtons.YesNo, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1) = Windows.Forms.DialogResult.Yes Then Dim Registro As DataRow Registro = MiDataSet.Tables("dtRecaudacion".Rows(Posicion) If Posicion = MiDataSet.Tables("dtRecaudacion".Rows.Count - 1 Then Registro.Delete() Posicion -= 1 Else Registro.Delete() End If MiConexion.Open() MiAdapter.Update(MiDataSet.Tables("dtRecaudacion") MiConexion.Close() Cargar(Posicion) Else MessageBox.Show("Eliminación cancelada", "Mensaje" End If End Sub Private Sub cmdMostrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMostrar.Click Dim UltimaPosicion As Integer, MenorRemisero As String, MenorDestino As String, _ MenorRecaudacion As Double, CantidadViajesLargos As Integer Dim Remisero As String, Destino As String, Recaudacion As Double, Kms As Double UltimaPosicion = Posicion Posicion = 0 MenorRecaudacion = 999999999999 Lista.Items.Add("Remisero" & vbTab & vbTab & "Destino" & vbTab & "Kms" & vbTab & "Recaudacion" Do While Posicion <= MiDataSet.Tables("dtRecaudacion".Rows.Count - 1 With MiDataSet.Tables("dtRecaudacion" Remisero = .Rows(Posicion).Item("Remisero".ToString Destino = .Rows(Posicion).Item("Destino".ToString Recaudacion = CDbl(.Rows(Posicion).Item("Recaudacion") Kms = CDbl(.Rows(Posicion).Item("Kms") If Recaudacion < MenorRecaudacion Then MenorRemisero = Remisero MenorDestino = Destino MenorRecaudacion = Recaudacion End If If Kms > 200 Then CantidadViajesLargos += 1 End If If Kms > 10 Then Lista.Items.Add(Remisero & vbTab & Destino & vbTab & Kms.ToString & vbTab & Recaudacion.ToString) End If End With Posicion += 1 Loop Posicion = UltimaPosicion lblMenorRemisero.Text = MenorRemisero lblMenorDestino.Text = MenorDestino lblMenorRecaudacion.Text = MenorRecaudacion.ToString lblCantViajesLargos.Text = CantidadViajesLargos.ToString End Sub End Class PD: COMO DESACTIVO LOS EMOTICONES DE TARINGA PARA MI POST?

Guia de Trabajo Practico Nº1 GUIA PARA EL ESTUDIANTE DE PROGRAMACION BASICO 1. Calcular el promedio de un estudiante, con tres notas parciales. 2. Ingresar dos números y calcular la suma 3. Ingresar dos números y calcular la resta 4. Diseñar un algoritmo que tome un número ingresado y muestre: a) La mitad b) La cuarta parte del punto a) c) La raiz cuadrada del punto a) d) la raíz cúbica del punto b) e) la potencia quinta del punto c) 5. Se lee un valor que representa el lado de un cuadrado. Debe construirse un algoritmo que calcule su superficie. (Recordar que Sup. del Cuadrado = L * L) 6. Una compañía de ventas de automóviles paga a su personal de la sección de ventas un salario de $ 300 y una comisión de $20 mas el 5% del valor de la venta. Diseñar un algoritmo para un vendedor dado, sabiendo que vendió 4 autos, dos F. Escort y 2 Renault 12. 7. Estando de vacaciones, se ha quedado sin dinero. Planea escribir una carta a su casa para que le envíen un refuerzo... pero resulta que todos sus compañeros están en la misma situación. Entonces deciden escribir un algoritmo que sirva para todos. El texto de la carta será el mismo, pero deberá contener algunos fragmentos de información que deberán ser suministrados por el “usuario” de la carta. Esos fragmentos de información (que pueden variar en cada caso), están subrayados: La carta es la siguiente: Queridos papá y mamá: Los $ 100 que me dieron para mis gastos se han agotado. La mayor parte en golosinas. ¿Pueden enviarme otros $ 50 adicionales? Los quiero mucho. Pablo 8. Suponga que un individuo desea invertir su capital en un banco y desea saber cuanto dinero ganara después de un mes si el banco paga a razón de 2% mensual, y se supone no cerrará ni quebrará en 2 meses. 9. Un vendedor recibe un sueldo base mas un 10% extra por comisión de sus ventas. El vendedor desea saber cuanto dinero obtendrá por concepto de comisiones por las tres ventas que realiza en el mes y el total que recibirá en el mes tomando en cuenta su sueldo base y comisiones. 10. Una tienda ofrece un descuento del 15% sobre el total de la compra y un cliente desea saber cuanto deberá pagar finalmente por su compra. 11. Dada un cantidad en pesos, obtener la equivalencia en dólares, asumiendo que la unidad cambiaria es un dato desconocido, que varía minuto a minuto. 12. Leer un número y escribir el valor absoluto del mismo. 13. Calcular el número de pulsaciones que una persona debe tener por cada 10 segundos de ejercicio, si la formula es: num. pulsaciones = (220 - edad)/10 14. En un hospital existen tres áreas: Ginecología, Pediatría, Traumatología. El presupuesto anual del hospital se reparte conforme a la sig. tabla: Área Porcentaje del presupuesto Ginecología 40% Traumatología 30% Pediatría 30% Obtener la cantidad de dinero que recibirá cada área, ingresando el presupuesto. 15. El dueño de una tienda compra un artículo a un precio determinado. Obtener el precio en que lo debe vender para obtener una ganancia del 30%. 16. Todos los lunes, miércoles y viernes, una persona corre la misma ruta y cronometra los tiempos obtenidos. Determinar el tiempo promedio que la persona tarda en recorrer la ruta en una semana cualquiera. 17. Para realizar una excursión nos cobran 5 pesos por persona más 89,30 de cargo fijo por el seguro. Conociendo la cantidad de personas que viajan, ¿Cuánto nos costará la excursión? ¿Cuánto deberá pagar cada persona? 18. El ejecutivo municipal de Sombrero Ladeado, decide la reforestación de sus parques después de un cacerolazo. Consultados expertos se decide reforestar de la siguiente manera, tomando porcentajes de la superficie del área a forestar: 30 % césped 20 % Arbustos ornamentales 10 % Cedros 20 % Álamos 10 % Pinos Por otra parte se sabe que se pueden plantar, por hectárea, 4 cedros o 16 álamos o 12 pinos. Construir un algoritmo que calcule cuántos árboles de cada clase habrá que encargar para una plaza (o parque) dado. 19. Se ingresa un valor por teclado y se pide que calcule cuotas según la siguiente tabla, la cual se mostrará por pantalla: 2 cuotas de $ …… total $ ……. (5%) 6 cuotas de $ …… total $ ……. (12 %) 12 cuotas de $ …… total $ ……. (20 %) 24 cuotas de $ …… total $ ……. (25 %)

Ejemplo NodosCOMO HACER TU PROPIO MENU DESPLEGABLE FACIL Y RAPIDO.PRIMERO CREAMOS EL FORMULARIO , PARA ESO DEBEMOS AGREGAR LOS SIGUIENTES COMPONENTES :COMPONENTE TREEVIEWIMAGELISTDESPUES MIRAMOS EL CODIGO Y VEMOS QUE ESTE CODIGO SOLO SIRVE PARA UN COMPONENTE CARGADO CON ICONOS PERSONALIZADOS, LA FORMA FACIL Y RAPIDA ES IR CREANDOLO CON EL VISUAL STUDIO UNO POR UNO PERO TE QUEDARIA COMO ESTA EN LA FOTO DE LA DERECHA POR LO TANTO SI QUERES UN PROGRAMA MEJOR CON ICONOS SERA MEJOR QUE TE PONGAS LAS PILAS PARA HACERLO.Esta Variable Nodopadre y Nodohijo es para identificar al Arbol de menu del Treeview y no andar poniendo treeview a cada rato y para diferenciar del desplegable con el otro. Dim nodopadre As TreeNode, nodohijo As TreeNode La variable Arbol en "Arbol.ExpandAll" hace referencia al treeview porque le cambie de nombre a este componente aca podrian ponerlo treeview1.expandall y lito pero yo preferi ponerle nombre asi no se confunden con el codigo y demas.en la primera linea despues del Add("" . . .) esas dos comillas hacen que agregue el nodo para que cargue uno nuevo. Despues "CLIENTES" seria el nombre del menu que deseamos que obtenga, luego "12,12" son los iconos del imagelist que cargamos previamente. El primer 12 es el el numero de imagen que tiene el imagelist el primer 12 y es para elegir el icono y el segundo seria para cuando se expande el Nodo y cambie de icono si queres el mismo pone los dos numeros iguales sino cambialos por el que mas te guste/i] nodopadre = Arbol.Nodes.Add("", "Clientes", 12, 12) ACA UN EJEMPLO DE COMO MIRARLUEGO VEMOS QUE DEBAJO EL PRIMERO NODO CREADO TENEMOS UNO QUE DICE NODOHIJO ESTO ES PARA QUE AGREGUE UN NODO DENTRO DEL NODO QUE CREAMOS EN ESTE CASO CLIENTES Y MAESTRO DE EMPLEADOS,ETC.luego de que hayas agregado los nodos y los subnodos tendrias que poner para cuando se seleccione dicho nodo abra un formulario o un programa,etc . por ejemplo Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim nodopadre As TreeNode, nodohijo As TreeNode nodopadre = Arbol.Nodes.Add("", "Clientes", 12, 12) nodohijo = nodopadre.Nodes.Add("", "Maestro de empleados", 5, 5) nodohijo = nodopadre.Nodes.Add("", "Listado de Clientes", 21, 21) nodopadre = Arbol.Nodes.Add("", "Articulos", 12, 12) nodohijo = nodopadre.Nodes.Add("", "Maestro de empleados", 19, 19) nodohijo = nodopadre.Nodes.Add("", "Lista de Precios", 21, 21) nodopadre = Arbol.Nodes.Add("", "Ventas", 12, 12) nodohijo = nodopadre.Nodes.Add("", "Facturas", 26, 26) nodohijo = nodopadre.Nodes.Add("", "Cobranzas", 28, 28) nodohijo = nodopadre.Nodes.Add("", "Anular Facturas", 7, 7) nodopadre = Arbol.Nodes.Add("", "Listado", 12, 12) nodohijo = nodopadre.Nodes.Add("", "Cuenta corriente", 22, 22) nodohijo = nodopadre.Nodes.Add("", "Facturacion", 23, 23) nodohijo = nodopadre.Nodes.Add("", "Cobranzas", 24, 24) Arbol.ExpandAll() End Sub Private Sub Arbol_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles Arbol.AfterSelect Select Case e.Node.FullPath Case "Clientes/Maestro de Clientes" Case "Clientes/Listado de Clientes" Case "Articulos/Maestro de empleados" End Select End SubEnd Class Y ESO ES TODO AMIGOS