Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - seba123neo

#371
Cita de: El As del Club Paris en 25 Octubre 2012, 14:40 PM
Solo una cosa, en C# se usa using en lugar de Imports :P

responder una pregunta en .NET se puede responder con codigo en C# o VB, total es practicamente lo mismo y convertirlo de uno a otro es mas que facil.

saludos.
#372
hiba a preguntar lo mismo, como sabes que es la grafica, te recomiendo que lo mires con el programa Everest (ahora Aida64) para ver las temperaturas que te dice que tiene, capas que es otra cosa la que se calienta, con ese programa podes ver que es lo que esta hirviendo en calor.

PD: despues cai que era linux  :D, no se si esta el aida para ese sistema, abria que ver alguno que haga lo mismo, me imagino debe haber.

#373
Foro Libre / Re: Destruccion de Agujeros Negros?
24 Octubre 2012, 20:38 PM
Cita de: burbu_1 en 24 Octubre 2012, 20:24 PM
soy un auténtico ignorante en estos temas, pero me suena que los agujeros negros son "cuerpos" (seguramente no sea el término correcto) con supermasa y supergravedad....
así que si tiene masa inferior a la tierra sería un agujero negro?
y siguiendo tu genial explicación (hasta yo la he entendido).... los pares de partículas dejarían de separarse y caer al agujero no? pq la gravedad sería mínima....

me parece más comprensible lo que dice xafi.... que te espachurras  :xD

para que se genere un agujero negro la estrella que muere debe tener masa mucho mas grande que la del sol, nuestro sol no generara un agujero negro cuando se acabe su vida, pero si fuera el doble de masivo si lo haria cuando explote como supernova.

en el centro de nuestra galaxia hay un agujero negro supermasvio de millones de veces la masa del sol.

los agueros negros son simplemente regiones del espacio donde la materia se a agrupado de tal forma, y tanta cantidad de masa, que genera una gravedad tan grande que ni siquiera los fotones de luz pueden escapar.

me acuerdo el tema de los agujeros negros, en un libro de fisica de primer año que mi padre logro traer, ya que el trabaja en un lugar que podia pedir los libros de la escuela gratis (lo unico que me acuerdo que la editorial era de puerto de palos), planteaba un problema que me da risa...preguntaba cuantas personas hace falta poner dentro de un auto para que este se transforme en un agujero negro  si cada persona pesaba unos 70kg :xD. la cantidad era enorme mas de la que hay en la tierra hoy en dia.
#374
podes hacer un bucle For, algo asi:

Código (vbnet) [Seleccionar]
Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Call CrearTabModelo()
    End Sub

    Private Sub CrearTabModelo()
        Dim NewTab As New TabPage
        NewTab.Name = "Tab" & TabControl1.TabCount
        NewTab.Text = "Tab " & TabControl1.TabCount

        Me.TabControl1.Controls.Add(NewTab)

        For i As Integer = 1 To 10
            Dim NewButton As New Button
            NewButton.Name = "Button" & i
            NewButton.Text = "Boton " & i
            NewButton.Location = New Point(10, 25 * i)
            NewTab.Controls.Add(NewButton)

            AddHandler NewButton.Click, AddressOf ClickBotones
        Next
    End Sub

    Private Sub ClickBotones(ByVal sender As Object, ByVal e As EventArgs)
        Dim whichButton As Button
        Dim whichTabPage As Control

        If TypeOf sender Is Button Then

            whichButton = CType(sender, Button)
            whichTabPage = whichButton.Parent

            MessageBox.Show("Apretaste el " & whichButton.Name & " de la pestaña " & whichTabPage.Name)
        End If
    End Sub
End Class
#375
el tema es que usando Contains estas buscando en la palabra entera, y puede fallar facilmente si tengo esto por ejemplo, un archivo que se llame asi:

hola.mp3.mp4

si pregunto si es "mp3", me va a decir que SI simplemente porque la palabra contiene la palabra "mp3", pero en realidad es extension "mp4".

para traer realmente la extension real se usa esto:

Código (vbnet) [Seleccionar]
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox(IO.Path.GetExtension("miarchivomp3.mp4"))
    End Sub
End Class


saludos.
#376
eso debe ser la codificacion en la que estas guardando el archivo de texto, lo deberias guardar con UTF-8, pone el codigo de como guardas el txt

saludos.
#377
borren esto.
#378
los modulos comunes no soportan Overload, aparte fijate que te la subraya y te dice , tenes que hacerlo dentro de una clase.

saludos.
#379
bueno crear el TabPage es facil y meterle controles adentro tambien, aca un ejemplo simple que tambein maneja los eventos de cada control en cada tab.

Código (vbnet) [Seleccionar]
Public Class Form1

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Call CrearTab()
   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
       TabControl1.TabPages.Remove(TabControl1.SelectedTab)
   End Sub

   Private Sub CrearTab()
       Dim NewTab As New TabPage
       NewTab.Name = "Tab" & TabControl1.TabCount
       NewTab.Text = "Tab " & TabControl1.TabCount

       Me.TabControl1.Controls.Add(NewTab)

       Dim NewButton As New Button
       NewButton.Name = "Button1"
       NewButton.Top = 10
       NewButton.Text = "Boton 1"
       NewTab.Controls.Add(NewButton)

       AddHandler NewButton.Click, AddressOf ClickBotones

       Dim NewButton2 As New Button
       NewButton2.Name = "Button2"
       NewButton2.Top = 100
       NewButton2.Text = "Boton 2"
       NewTab.Controls.Add(NewButton2)

       AddHandler NewButton2.Click, AddressOf ClickBotones
   End Sub

   Private Sub ClickBotones(ByVal sender As Object, ByVal e As EventArgs)
       Dim whichButton As Button
       Dim whichTabPage As Control

       If TypeOf sender Is Button Then

           whichButton = CType(sender, Button)
           whichTabPage = whichButton.Parent

           MessageBox.Show("Apretaste el " & whichButton.Name & " de la pestaña " & whichTabPage.Name)
       End If
   End Sub
End Class


el primer boton añade un tab con 2 botones adentro y el otro elimina la tab seleccionada.

tambien se manejan los eventos click de cada boton y se sabe de que tab vino el click.

es un simple ejemplo, lo tenes que optimizar.

saludos.
#380
los labels son controles llamados "windowless" no son ventanas, solo se pintan, y si tratas de enumerarlos con alguna api tampoco lo hace ya que no tienen Hwnd.

pero me acuerdo que hace mucho habia publicado algo donde se podian ver, no me aucerdo, si lo encuentro lo pongo.

PD: aca esta:

Handle de un Label

saludos.