Comunidad Gambas-es

Impresora de inyección de tinta, uso de vez de en cuando.

Shell 08-01-2022, 14:10

Buenas!.

Tengo la impresora multifunción que no le doy el uso que le daba antes. Es una Epson SX 200. Es un aparato que encendemos cuando necesitamos,
es un trasto encima de la mesa.

Uso a veces más el escáner que la impresión. Lo cierto es que hace unos días necesitaba imprimir un documento y no se imprimía nada. Ahora había que comprobar
los cabezales, limpieza, con lo que conlleva gasto de tinta. Al final me quedé tirado y no pude imprimir. Tuvo otra persona que hacerlo por mi. En un lugar que
se le da uso a la impresora más a diario.

Dicen que las de inyección de tinta son las más populares frente a las de laser (que son más de uso más continuo, de más trabajo).
Como ya sabéis los cartuchos originales de Epson son caros. Si, están los compatibles, que le hace una gracia al testeador
de cartuchos que no veas. Tengo tres que ya no reconoce al estar vacíos. Si al menos indicase el bajo nivel.

Eso otra cosa, si quieres usar solo tinta negra, con poner solo este cartucho debería ser suficiente. A mi me valía así en una antigua hp. Pero no.

Al paso que voy. Voy a tener que cambiar los cartuchos cada vez que quiera imprimir algo, como lo hago muy de vez de en cuando. Que desastre.

Encontré esta web que son bastante económicos. Es que no llegan a un 1€, así serán. Confused

Tintas y Toner compatibles. Epson SX 200

Impresora Epson no imprime y tiene tinta. ¿Qué debo hacer?

Se entiende que hay tintas y tintas, calidades. Pero secarse se van a secar igual. Es que me paso meses sin usarla.

¿ Quito el cartucho y le pongo cinta adhesiva ?. Big Grin

Una multifunción me da más servicio que una impresora a secas.
En su día tenía un escáner que se conectaba por el puerto paralelo, que debe ser más lento que el caballo del malo.
Eso si, el software que traía no estaba mal.

Estamos apañados con las impresoras.

Saludos

A ver que os parecen estas:

Qué impresora elegir según el uso (2021): guía de compras con consejos y 22 modelos destacados desde 50 euros

Hardware & IoT Respuestas 2

Descomponer en factores primos

Shell 07-01-2022, 15:00

Buenas!.

Conociendo los caracteres Unicode adecuados para los exponentes (super indices) he podido crear este ejemplo.

Código:
Public Sub Main()

  MostrarDescompFact(100)

End

Public Sub MostrarDescompFact(numero As Integer)''Mostrar descomposición factorial

  Dim valor As String

  Dim cfactores As New Collection

  cfactores = Descomponer(numero)

  Print numero; " = ";

  For Each valor In cfactores

    Print cfactores.key; String.Chr(DevolverSuperIndice(valor)); "*";

  Next

  Print 1

End

Public Sub Descomponer(numero As Integer) As Collection ''Descomponer un números en factores

  Dim n As Integer

  Dim factores As New Collection

  n = 2

  While n <= numero

    If numero Mod n = 0 Then

      numero = numero / n

      If Not factores.Exist(n) Then

        factores.Add(1, n)

      Else

        factores[n] += 1

      Endif

    Else

      n += 1

    Endif

  Wend

  Return factores

End

Public Function DevolverSuperIndice(valor As Integer) As Integer ''Devuelve el carácter unicode de exponente

  Dim codigo As Integer

  'De esta forma se ve mejor que usando Choose

  'El valor 1 no es posible como exponente

  Select Case valor

    Case 2

      codigo = 178

    Case 3

      codigo = 179

    Case 4

      codigo = &2074

    Case 5

      codigo = &2075

    Case 6

      codigo = &2076

    Case 7

      codigo = &2077

    Case 8

      codigo = &2078

    Case 9

      codigo = &2079

  End Select

  Return codigo

End

' Public Sub DevolverSuperIndice2(valor As Integer) As Integer

'  'Esto no va a funcionar

'   Return Choose(valor, Null, 178, 179, &2074, &2075, &2076, &2077, &2078, &2079)

'

' End

Salida:

Cita:100 = 2²*5²*1

No existe un exponente "1", si fuera dos como único factor primo. Hubiera salido 21...mejor 2*1
Eso en el caso del Select, que como veis no he comprobado que el valor fuera 1. He comenzado desde valor 2 para exponente.

A ver si se puede mejorar. Sobre todo la función que usa Choose.

Tener en cuenta que después de esto, podemos optar por crear otras funciones que nos puedan devolver
el máximo común divisor, el mínimo común múltiplo, etc. Ya sería más de un número. Por eso opté por dividir en varias funciones independientes.
El uso de colecciones me parece interesante para el ejemplo.

Saludos

Archivos adjuntos