Mensajes

carlosuc99,

Me he leido 2 veces tú último comentario pero por más vueltas que le doy, no le encuentro diferencia,

Porque dejando a un lado el "False", cada vez que el valor es "true", se debe agregar un "lights ON", ¿Correcto?, pues eso es lo que hacen los codes que te hemos proporcionado :-/


¿O quizás quieres esto?:

1. inicias la APP
2. haces: off, on, off. on.        (el valor sería "lights on   lights on")
3. luego haces por ejemplo:  off, on.      ¿y aquí entonces quieres que el contador reinicie y que el valor sólo séa "lights on" (una vez)?

¿Eso es lo que quieres?

EDITO: Bueno la verdad es que no le encuentro sentido si es eso, porque habría que marcar algún tipo de pauta, y pausas... es decir, marcar un margen de tiempo.

Si el texto del Rich siempre es el mismo y solo lo cambias para añadir más "lights ON", entonces es tán sencillo como AÑADIR el "landing lights ON" en lugar de REEMPLAZAR como estabas haciendo.

Ejemplo:

Código (vbnet) [Seleccionar] Expandir


   Private Sub FlighInfo_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
           Try : If lights.Value(LightType.Landing) = True Then Me.RichTextBox1.Text = Me.RichTextBox1.Text & " " & "Landing Lights ON" : Catch : End Try
   End Sub


Eso es la manera más sencilla, luego puedes tener un poco más de control sobre el asunto por ejemplo así:

Código (vbnet) [Seleccionar] Expandir



     Dim Lights_Count as int32 = 0 ' esto en las declaraciones, fuera de los subs

     Private Sub FlighInfo_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
          Try : If lights.Value(LightType.Landing) = True Then Lights_Count +=1 : Add_Lights_ON() : _
          Catch : End Try
      End Sub

   private sub Add_Lights_ON()
        Dim light_string as string = nothing
        for each num in Lights_Count : light_string = light_string & " " & "Landing Lights ON" : NEXT
        Me.RichTextBox1.Text = light_string
   end sub

Es lo mismo pero, la segunda manera te puede ayudar a añadir más cosas o en fín... tener más control sobre el string.

PD: Los codes los he hecho a mano, pero creo que no hay error de sintaxis.

Saludos.

[Para el textbox de la URL]

Para el textbox de la URL:

1. KeyPress Event (tecla ENTER)
2. Validar la URL introducida
3. Validar la conectividad a internet
4. Descargar la URL

(TIENES UN EJEMPLO DE TODO ESO EN MI APORTE DE SNIPPETS.)


Para el HTML:
Varias opciones:

* HTML Agility Pack.
* Regular expressions.
* Mi snippet delimitador de cadenas, o el snippet delimitador de texto.


No te doy ejemplos de uso porque los própios snippets ya són un ejemplo de uso, leelos un poco y si te atascas al usar alguno pues entonces ya...

PD: Es más, si has instalado mi pack de VS2012 como comentaste, tienes todos los snippets en el menú de snippets de la IDE...  "click derecho" > "insert snippet".

Saludos!

Perdona pero no se entiende muy bien la explicación que dás, y muestras muy poco código, el problema no debe estar en el IF sinó en el modo en que lo empleas en tú código... si la comprobación solo se ejecuta una vez, obviamente no va a volver a cambiar de valor una segunda vez después de haberse comprobado ya...

Quizás esto te sirva:

Código (vbnet) [Seleccionar] Expandir

If lights.Value(LightType.Landing) = true  Then Me.RichTextBox1.Text = "Landing Lights ON" else Me.RichTextBox1.Text = "Landing Lights OFF"

Código (vbnet) [Seleccionar] Expandir

while not 0 = 1
  If lights.Value(LightType.Landing) = true Then Me.RichTextBox1.Text = "Landing Lights ON" else Me.RichTextBox1.Text = "Landing Lights OFF"
end while

Saludos

Como hago para borrarlo porque no quiero que se me quede esa direccion xD

Borrar el que.

Código [Seleccionar] Expandir

my.settings.folder = nothing

[$Edu$]

$Edu$ no declaraste la variable "Folder" y aquí la intentas usar, seazoux lleva razón.

Código [Seleccionar] Expandir

FolderPrincipal = Folder ' SE GUARDA EL DIRECTORIO EN LA VARIABLE PUBLICA




@Seazoux
Te añado las modificaciones que quieres en el código que ya te modifiqué hace 2 páginas en este hilo...

FÍJATE EN LOS CAMBIOS Y VERÁS COMO ERA TODO MUY FÁCIL

PD: Antes de usar este código vacía el valor de la setting en la IDE

Código (vbnet) [Seleccionar] Expandir

   Public Class Form2

   Dim Listita As New ListBox

   Private Sub Form2_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
       With Listita
           .BackColor = Color.White
           .ForeColor = Color.Black
           .Size = New Point(340, 251)
           .Location = New Point(12, 25)
           AddHandler .SelectedIndexChanged, AddressOf Listita_SelectedIndexChanged
       End With
       Me.Controls.Add(Listita)
       if My.Settings.Folder isnot nothing then LoadFolder(My.Settings.Folder) ' Aquí cargas el último directorio que se cargó al salir de la aplicación
   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
       Me.Hide()
   End Sub

   Private Sub Listita_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
       Dim Item As New IO.FileInfo(My.Settings.Folder & "\" & Listita.SelectedItem)
       MsgBox(Item.FullName)
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim FBD As New FolderBrowserDialog
       FBD.Description = " Seleccionar una carpeta "
       FBD.SelectedPath = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
       FBD.ShowNewFolderButton = True
       If FBD.ShowDialog = Windows.Forms.DialogResult.OK Then : My.Settings.Folder = FBD.SelectedPath : LoadFolder(My.Settings.Folder) : End If
       FBD.Dispose()
   End Sub

   Private Sub LoadFolder(ByVal Folder As String)
       Try
           Listita.Items.Clear()
           Dim Files As Array = IO.Directory.GetFiles(Folder, "*")
           Dim TotalRoms As Int32 = Files.Length
           For Each File In Files
               Dim File_Info As New IO.FileInfo(File)
               Listita.Items.Add(File_Info.Name)
           Next
           Label1.Text = "Roms encontrados (" & TotalRoms & ")"
       Catch ex As Exception : MsgBox(ex.Message)
       End Try
   End Sub

   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       MessageBox.Show(My.Settings.Folder, "", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
   End Sub

End Class

Saludos





EDITO:

Edu me recomiendas que me quite el NET 2.0 y 3.5?  

¿Como que quitartelos?

No te los tienes que quitar ni desinstalar ni nada, pero no debes hacer un proyecto en FW2.0 porqué está obsoleto, y tiene muy pocos métodos,
los debes hacer en FW3.X o FW4.X, yo hago aplicaciones en FW3.5 cuando puedo, pero prefiero usar FW4.0 por que véo methods más útiles que en FW3.5 no están, y por compatibilidad con algunos controles de terceros que uso que en FW3.X no corren.

Sincéramente depende de tus necesidades y de cúan compatible quieres que séa la APP para el público... casi todos los PC's llevan incorporados el FrameWork 3.X así que si haces el proyecto en FW4.5 muchos pc's necesitarán descargar el FW4.5 para correr tu APP.

saludos

[MÁS DATOS PORFAVOR.]

Respecto al MsgBox VB.net me está trolleando acabo de reinicar el PC y nada. xD

MÁS DATOS PORFAVOR.

Te salta una excepción? o te sale el valor vacío ? o que te sale?

Vale la has cagado un poco xD.

En el solution explorer dale a "show all files" y busca el "settings.designer.vb"
y comprueba el "mySettings" expandiendo el "settings.designer.vb" ahi mismo
¿Tienes uno, o dos? si tienes dos, borra el nuevo que te lo habrá creado el VS por un error (una vez me pasó eso).

Y comprueba que no tienes el "app.config" vacío.

No sorry, me sale solo 1, no se. 

Te recomiendo que te descargues el proyecto que me has pasado a mi, porque me funciona sin ningún error:
http://www.mediafire.com/?0waco6kynzgaovx

o al menos reemplaza el app.config del proyecto que me has mandado al tuyo y el settings.designer si no lo tienes igual

saludos

[_katze_]

si quieres algo rapido y optimo, usas apis, regular expresion,

Gracias, pero podrías indicarme (para buscar info) con que API y que función _katze_?

[-.-]

ahora me enseñaras a usar el MySettings.Save xD

No tiene ningún misterio,

Código (vbnet) [Seleccionar] Expandir

MySettings.Save()

Fín.

-.-

* Y así guardas todos los cambios de los valores de todas tus settings.

* Y puedes activar la opción de salvar automáticamente las settings al cerrar la APP.

Código (vbnet) [Seleccionar] Expandir

   Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
       MsgBox("Test:" & My.Settings.Folder)
   End Sub

Pues te aseguro que tál y como lo tienes funciona, no he tocaod nada, y muestra el valor "Aquí debería salir el Folder".

Prueba a limpiar el proyecto y vuelve a recounstruirlo.  (Clean, rebuild solution)

Una pregunta... tú estás usando settings para recordar la última ruta, cuando cierras y vuelves a abrir la aplicación? o lo estás usando como alternativa a usar variabls?

Porque en segundo caso, deberías intentarlo con variables como dice $Edu$, es que si no puedes con una maldita variable... no vas a poder hacer por tí mismo xD.

Saludos!