Comunidad Gambas-es

Cómo ver binarios desde la línea de comandos de Linux

Shell 04-09-2022, 15:08

Buenas!.

Puede que os interese. Sobre todo cuando tenéis un archivo que no tenéis ni idea que es.
En otro mensaje haré referencia a este problema.

Cómo ver binarios desde la línea de comandos de Linux

Saludos

Mundo Linux Sin respuestas

Coincidencias con multiples elementos

tincho 02-09-2022, 14:38

Hola.
En el ejemplo de mas abajo hay una colección de recetas llamadas R1 y R2 pero imaginen que son miles.
Luego hay una lista String[] que en un loop va cambiando los integrantes y en cada pasada deseo saber si la lista "temporal" de ingredientes coincide con alguna "receta" de la colección, es decir si los ítemes de la lista String[] coinciden con los indices de la colección secundaria R1 R2 ... Rn.

Código:
cRecipes["R1"] = ["tomate": 400, "harina": 1000, "sal": 12, "levadura": 42, "agua": 400]

cRecipes["R2"] = ["harina": 5000, "sal": 12, "levadura": 42, "agua": 400]

  aRecipes = ["tomate", "harina", "sal", "levadura", "agua"]

...

  aRecipes = ["cebolla", "sal", "tomate", "aceite"]

  ...

  aRecipes = ["ingrediente-1", "ingrediente-2", "ingrediente-n"]

Deseo saber si existe coincidencia 100% o un porcentaje, por ejemplo la receta del "pan" coincidiría con la receta de la pizza en algunos de sus ingredientes (las cantidades de momento no me interesan).

¿Cómo lo harían?

Aplicaciones/Fragmentos de Código Respuestas 4

TabStrip y TabPanel

Shell 02-09-2022, 12:19

Buenas!.

Después de una respuesta de Shordi, que a el le gusta más TabPanel que TabStrip, estuve haciendo un ejemplo
con los dos controles y es que aunque son parecidos no funcionan igual y en algunas de sus propiedades difieren.

Por ejemplo:

- En TabStrip al usar la propiedad Count, le decimos cuantas pestañas queremos que contenga y ademas nos la puede mostrar al ejecutar.
- En TabPanel no las muestra directamente al ejecutar.

Código:
Const NUMP As Integer = 5

Public Sub Form_Open()

  TabPanel1.Count = NUMP

  TabStrip1.Count = NUMP

  'Rellenar(TabStrip1)

  'Rellenar(TabPanel1)  

End

Public Sub Rellenar(uncontrol As Object)

  Dim n As Integer

  For n = 0 To NUMP - 1    

    uncontrol[n].Text = n + 1    

  Next

End

- En TabStrip podemos usar para nombrar las pestaña, la propiedad Caption o Text
- En TabPanel solo podemos usar la propiedad Text.

En el caso de este ejemplo tuve que centrarme en la propiedad que ambos tienen. Text.

Código:
Const NUMP As Integer = 5

Public Sub Form_Open()

  TabPanel1.Count = NUMP

  TabStrip1.Count = NUMP

  Rellenar(TabStrip1)

  Rellenar(TabPanel1)  

End

Public Sub Rellenar(uncontrol As Object)

  Dim n As Integer

  For n = 0 To NUMP - 1    

    uncontrol[n].Text = n + 1    

  Next

End