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: 5)
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 (569):    1 279 280 281 282 283 569   
Bienvenido, Invitado
Tienes que registrarte para poder participar en nuestro foro.
Recordarme?
Miembros: 300
Último miembro: Armando56
Temas del foro: 1,756
Mensajes del foro: 9,128
Últimos temas
Un interprete de basic en...
Foro: HTML, CSS, Javascript
Último mensaje por: guizans, 03-02-2026, 23:34
Respuestas: 5 - Vistas: 130
El ratón no hace click do...
Foro: Instalación
Último mensaje por: guizans, 30-01-2026, 20:41
Respuestas: 2 - Vistas: 146
Parámetro de clase y pará...
Foro: General
Último mensaje por: guizans, 30-01-2026, 20:40
Respuestas: 8 - Vistas: 296
Gmao-Factory: Aplicación ...
Foro: Python
Último mensaje por: jguardon, 25-01-2026, 15:53
Respuestas: 5 - Vistas: 227
SqetchDB, un proyecto re-...
Foro: General
Último mensaje por: guizans, 21-01-2026, 19:57
Respuestas: 8 - Vistas: 402
Powered By MyBB, © 2002-2026 MyBB Group.
Made with by Curves UI.