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?
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

[Imagen: hfl9EkC.png]

- 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

[Imagen: j9Qwp6Y.png]

Fijaros ademas como se queda el foco en ambos controles.

Más observaciones que podáis destacar.  Wink

Saludos
Archivos adjuntos
.gz
TabPanelTabStrip-0.0.1.tar.gz (Tamaño: 11.96 KB Descargas: 4)
tincho 02-09-2022, 10:43
Hola a todos.
Alguien podria decirme como ordenar una coleccion simple, donde el indice es un texto y el valor también.
Dejo un ejemplo con una coleccion similar, donde el indice es un año, y está ordenado de menor a mayor, luego el texto, que es lo que deseo ordenar de menor a mayor es un texto alfanumérico cualquiera.

Primer planteo de solucion
Código:
Public Function CSort(c As Collection) As Collection

  Dim aTmp As New String[]
  Dim cTemp As New Collection
  Dim sText As String

  For Each sText In c
    aTmp.Add(sText & "\t" & c.Key)
  Next

  aTmp.Sort(gb.Ascent)

  For Each sText In aTmp
    cTemp[Split(sText, "\t")[1]] = Split(sText, "\t")[0]
  Next

  Return cTemp

End

Pero la salida no contempla los caracteres diacríticos

...
1879: Uso de tarjetas perforadas para el senso
1938: Z1 - Computadora electromecánica
1941: Z3 - Primera máquina programable y completamente automática
1617: Ábaco neperiano
1854: Álgebra boleana
Archivos adjuntos
.gz
sample-sort-collection-0.0.1.tar.gz (Tamaño: 14.05 KB Descargas: 3)
Páginas (557):    1 267 268 269 270 271 557   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 286
Último miembro: Emilio Uribe
Temas del foro: 1,720
Mensajes del foro: 8,936
Últimos temas
Archivos .ods
Foro: General
Último mensaje por: tincho, 01-07-2025, 18:54
Respuestas: 8 - Vistas: 300
Publicidad
Foro: Sobre gambas-es.org
Último mensaje por: tincho, 01-07-2025, 18:48
Respuestas: 6 - Vistas: 360
Web con gambas, a ver si ...
Foro: WebApp/WebForms
Último mensaje por: tincho, 01-07-2025, 17:47
Respuestas: 41 - Vistas: 32,705
Un sistema de ayudas cont...
Foro: Videotutoriales
Último mensaje por: guizans, 22-06-2025, 19:55
Respuestas: 3 - Vistas: 324
Powered By MyBB, © 2002-2025 MyBB Group.
Made with by Curves UI.