Mensajes

[Nov]

Y sí pruebas convirtiendo el texto a double como corresponde antes de hacer la división?

Ah, sí, eso ya lo hice Nov!  Convert.ToDouble(NumeroDeGB) \ 4.31

No lo puse en el ejemplo de arriba pero lo hice antes de preguntar y el resultado es el mismo



EDITO:

Necesito una ayuda urgente

Voy a ver si pasando el número a bytes obtengo mejores resultados...

El icono de "70's" y los iconos de las carpetas "2000...2013" y "BSO" los he hecho yo.

Busco el mismo tipo de iconos, que séan de calidad y que los iconos no séan muy distintos, es decir, que sigan un patron de colores.

En cambio los iconos de las decadas (50s, 60s, 80s y 90s) me gustaría que llevasen algún "dibujo" de aquella época, por ejemplo el icono que he hecho de los 70s lleva un fondo muy "Disco" y el arcoiris asociado con esa época.

PD: Sé que es algo dificil, yo no he encontrado más que vectores de pago.

un saludo!

[El problema es que el valor del label se suma cada "3,50" GB, en lugar de cada "4,31" GB.]

Me está volviendo loco este problema!

Estos son los elementos del problema:

• Un número de GigaBytes, que es una variable de tipo Double.
  
• Un label que debe mostrar una cantidad según la cantidad de GB, por cada 4,31 GB debe subir un número de valor al label.
  
  Es decir... Si el valor de la variable es "4,31" el label debe mostrar un "1", porque es la capacidad de un solo DVD,
  Si el valor de la variable es "4,32" entonces el label debe mostrar un "2" porque el tamaño es más de la capacidad de un dvd pero menos de la capacidad de 2 DVD's completos,
  Si la variable es "10,0" pues el label debe mostrar "3" porqe el tamaño se encuentra entre la capacidad de 3 DVD's,
  etc, etc, etc...
  
  El problema es que el valor del label se suma cada "3,50" GB, en lugar de cada "4,31" GB.
  
  Las matemáticas no es lo mio pero yo creo que la división debería funcionar...
  
  
  Código (vbnet) [Seleccionar] Expandir
  ' El valor de "Label_SIZE.Text.Split(" ")(0))" por ejemplo es: 3,50
' (CON COMA, NO PUNTO)

If Label_SIZE.Text.Contains("GB") Then Label_DVD.Text = 1 + (Label_SIZE.Text.Split(" ")(0)) \ 4.31
  
  
  Código (vbnet) [Seleccionar] Expandir
  ' En cambio esto SI me funciona:
' El valor del label se suma cada "4,5"

If Label_SIZE.Text.Contains("GB") Then Label_DVD.Text = 1 + (Label_SIZE.Text.Split(" ")(0)) \ 4.50

' No entiendoooooooo porque el otro no funciona....
  
  

[groupbox]

O puedes crear un segundo datagridview justo encima del primero, le añades sólamente una columna con el título que quieras, redimensionas el control para que solo se véa dicha columna encima dle primer datagrid y así queda mejor que con un label.

O usa un groupbox o algún otro contenedor que tenga un header y adentro metes el datagridview.

Saludos

[EDITO]

Código (vbnet) [Seleccionar] Expandir

FileSystem.SetAttr("Archivo", IO.FileAttributes.System + IO.FileAttributes.Hidden)

Saludos

EDITO:

Código (vbnet) [Seleccionar] Expandir

    ' Usage:
    ' Attrib("File.txt", IO.FileAttributes.ReadOnly + IO.FileAttributes.System)

    Private Function Attrib(ByVal File As String, ByVal Attributes As System.IO.FileAttributes)
        Try
            FileSystem.SetAttr(File, Attributes)
            Return True
        Catch
            Return Nothing
        End Try
    End Function

Código (dos) [Seleccionar] Expandir

@Echo OFF

:: By Elektro H@cker

Set "TempFile=%SystemDrive%\FileCount.tmp"

If NOT Exist "%TempFile%" (fsutil file createnew "%TempFile%" 0 1>NUL)

For /F "usebackq" %%X in ("%TempFile%") Do (Set /A Last_Total_Files=%%X)

FOR %%@ IN (*.*) DO (Set /A TotalFiles+=1)

If NOT defined Last_Total_Files (Set /A Last_Total_Files=0)

Set /A NewFiles=TotalFiles-Last_Total_Files

<Nul Set /P Total=%TotalFiles% >"%TempFile%"

Echo Archivos antes: %Last_Total_Files%
Echo Archivos ahora: %TotalFiles%
Echo Nuevos archivos: %NewFiles%

Pause&Exit

 

Saludos

[EDITO]

Gracias, pero no me aclaro, ¿Como puedo adaptarla a mis necesidades?

Tengo una "Search bar" que debe buscar resultados en los archivos de texto de "My.Resources", y mostrar cada resultado encontrado en el listview.
Lo único que quiero es hacer el texto a buscar en modo "Ignorecase" xD




Al pulsar el botón "Buscar":

Código (vbnet) [Seleccionar] Expandir

For Each Dict As DictionaryEntry In ResourceSet.OfType(Of Object)()
           If TypeOf (Dict.Value) Is String Then
               Find_Delimited_Text(My.Resources.ResourceManager.GetObject(Dict.Key), ";", TextBox_Buscar.Text)


Find_Delimited_Text sub:

Código (vbnet) [Seleccionar] Expandir

   Public Sub Find_Delimited_Text(ByVal TextFile As String, ByVal TextDelimiter As String, ByVal PatternSTR As String)

       Dim vLetras As String = PatternSTR
       Dim vSize As Integer = PatternSTR.Length  ' ¿?

       Dim vLista As IEnumerable(Of String) = vLetras.Select(Function(x) x.ToString())

       For i As Integer = 0 To vSize - 2
           vLista = vLista.SelectMany(Function(x) vLetras, Function(x, y) x + y)
       Next

       For Each t As String In vLista
           MsgBox(t)
       Next

       Dim Listview_Row_STR(4) As String
       Dim Listview_Item = New ListViewItem(Listview_Row_STR)
       Dim TextDelimited As String()
       Dim delimiter As String = TextDelimiter
       Dim fileContent As String = TextFile

       Dim stringStream As New System.IO.StringReader(fileContent)
       Using parser As New Microsoft.VisualBasic.FileIO.TextFieldParser(stringStream)
           parser.SetDelimiters(TextDelimiter)
           While Not parser.EndOfData
               TextDelimited = parser.ReadFields()
               If TextDelimited(0).Contains(PatternSTR) Then
                   field_find_number += 1
                   Listview_Row_STR(0) = field_find_number
                   Listview_Row_STR(1) = TextDelimited(0)
                   Listview_Row_STR(2) = TextDelimited(1)
                   Listview_Row_STR(3) = TextDelimited(2)
                   Listview_Item = New ListViewItem(Listview_Row_STR)
                   ListView.Items.Add(Listview_Item)
               End If
           End While
       End Using
   End Sub



EDITO:
Bueno, creo que convirtiendo los dos strings a lowercase da menos vueltas y funciona.

Código (vbnet) [Seleccionar] Expandir

If TextDelimited(0).ToLower.Contains(PatternSTR.ToLower) Then

Saludos!

¿Alguien me puede recordar como se hacia esto?

Olvidé que método se usa para esto xD

Código (vbnet) [Seleccionar] Expandir

Dim STR = "abc"
If Cosa.Contains(STR) Then ...

' Quiero que busque todas las variantes:
' Abc
' ABc
' ABC
' aBC
' abC
' etc...

Perfecto!

^^

Justo ahora mismo habia sacado ese mismo code en StackOverF... e iba a preguntar cual era el correcto "TypeOf" que debía usar, ya me has sacado de dudas xD

Código (vbnet) [Seleccionar] Expandir

Dim ResourceSet As Resources.ResourceSet = My.Resources.ResourceManager.GetResourceSet(Globalization.CultureInfo.CurrentCulture, True, True)
           For Each Dict As DictionaryEntry In ResourceSet.OfType(Of Object)()
               If TypeOf (Dict.Value) Is Drawing.Image Then
                   Debug.WriteLine(Dict.Key) 'outputting resource name
               End If
           Next

Código (dos) [Seleccionar] Expandir

@echo off
Title Configuración de IP

:: By Elektro H@cker

:Menu
Echo Configuraci¢n de IP:       
Echo -------------------        | MORE
Echo: 1 ^> Segmento [192.168.1.X]
Echo: 2 ^> Segmento [192.168.2.X]
Echo: 3 ^> Segmento [192.168.3.X]
Echo: 4 ^> Segmento [192.168.4.X]
Echo: 5 ^> Salir
Echo.                           | MORE

choice /C 12345 /M "elige una opci¢n"

For %%# in (%ERRORLEVEL%) DO (
If %%# EQU 1 (Set "Segmento=192.168.1.")
If %%# EQU 2 (Set "Segmento=192.168.2.")
If %%# EQU 3 (Set "Segmento=192.168.3.")
If %%# EQU 4 (Set "Segmento=192.168.4.")
If %%# EQU 5 (Exit /B 0)
Call :Set_Digitos
Call :Set_IP
)
GOTO :MENU

:Set_Digitos
CLS
Echo Segmento elegijo [%Segmento%XXX] | MORE
Set /P "Ultimo=Escriba el ultimo bloque de digitos >>"
If "%Ultimo%" EQU "" (GOTO :Set_Digitos)
Echo "%Ultimo%"|Findstr "^\"[0-9]*\"$" && GOTO:EOF || (GOTO :Set_Digitos)

:Set_IP
Echo Configurando IP [%Segmento%%ultimo%] | MORE
netsh interface ip set address name="Conexi¢n de  rea local" static %Segmento%%ultimo% 255.255.255.0 %Segmento%1
netsh interface ip set dns name="Conexi¢n de  rea local" static 8.8.8.8
netsh interface ip add dns name="Conexi¢n de  rea local" 8.8.4.4 index=2
GOTO:EOF

Saludos