Buenas  

Hoy tenía la intención de comprar una placa base Raspberry Pi 3 Modelo B. Primero fui al MediaMarkt la de "yo no soy tonto" que según su Web está disponible por un precio bastante elevado la verdad 44,99, o sea 45€ teniendo en cuenta que ya está la versión 4. Para empezar, no se si porque he ido solo, con ropa informal sin traje y zapatos caros pero no me atendió ni dios. Tras preguntar por placas base me envían a un pasillo si es que se puede llamar así pues dabas tres pasos y se acabó, no había absolutamente nada, no vi ni una placa base. No se que le ha pasado a esta tienda pero todo muy minimalista, sólo vi un simple panel frontal, un DVD que ya se ya empieza a estar obsoleto pero ¿sólo una marca? ¿un modelo?. No vi discos duros internos, solo externos WD, ordenadores gaming  carísimos, portátiles, cables, pantallas por todas partes, teclados y ratones, smartphones, todo packs, apenas un panel de componentes informáticos con cables y usbs y cosas así, altavoces. Parece como si ahora la tienda se centre en la venta Online y limiten los productos en la venta física. Las estanterías cortísimas, ponen mesas con PCs, portátiles, monitores, smpartphones y debajo las cajas con el producto. Ya está lejos de ser un supermercado de la electrónica. Aún con intención de comprar no encontré lo que buscaba y me fuí.

Luego fuí al Worten, aún peor, el sistema de venta muy similar, solo que sólo vi un mísero PC gaming, lo demás igual teclados, ratones, monitores, portátiles, teléfonos, tablets. Según su web 36,99€ (37€), total 8€ menos que los del "yo no soy tonto" y con toda la razón, tontos no son la verdad. En cuanto el trato, lo mismo sólo vi 4 empleados muy jóvenes, una cajera muy liada con un solo cliente, luego los otros 3 intentando embalar una TV plana como si un trabajo de ingeniería se tratara, mientras un grupo de personas esperaban mirando resignados ante tal pasividad por parte del personal. En un momento, que pude pido ayuda para encontrar el Raspberry pero me dice  la chica que espere.  Me di una vueltecita más sin éxito buscando entre tanta entantería minimalista, al no encontrarlo simplemente me fuí.

Casualmente el Carrefour estaba cerca y vi en Internet que vendían también la placa base Raspberry por 39,95 € (40€) en este caso 5€ menos que los del "yo no soy tonto". Igualmente, busque sin éxito, quizás solo lo vendan Online.

¿Qué está ocurriendo? Antes se te rompía algo o simplemente querías algo ¡ya! ibas y lo comprabas pero ahora según que cosas es tarea imposible encontrar algo si no es por Internet. En tiendas físicas noto que falta variedad de marcas y modelos, tanto de informática como de todo.

Finalmente lo compraré por Internet y la versión 4.

hola

Mi duda puede ser un poco rara, pero es que conozco varias personas que fuman petas y lejos de verles en plan relax parece que se han bebido 5 red bulls del tirón. No se que clase de petas fumarán, no se si hachís o marihuana, el caso es que los veo estupendos, superlúcidos, en cambio yo que no fumo, ni bebo y ya ni digamos tomar drogas y estoy hecho una *****.

En serio, que efectos pueden tener los petas porque no veo que les pase nada y llevan tiempo,¿pueden seguir así hasta que se hagan viejos?

Por cierto que triste que solo tenga tiempo para el foro libre y lo que es programar no lo veo ni de lejos, ya ni me molesto porque acabo dejando todo a medias tintas.  

hola, no se muy bien donde exponer la pregunta. En principio sería en juegos pero viendo el tipo de temas que se abren ahí no creo sea el sitio.

Lo que me gustaría saber es como editar archivos binarios protegidos, ya que al cambiar un valor de dinero pongamos en el juego el valor es 15236, esto en el archivo se vería en hexadecimal y su valor sería 3B 84, pero invertido 3B 84 --> 84 3B:

En el juego:
15236

En el guardado del juego se vería :
7650:  00 00 00 00 00 00 00 84 3B 00 00


Sin embargo en muchos juegos  esto no está permitido puesto que al hacerlo el juego interpreta que el archivo está corrupto y esto es porque estos juegos al final del archivo de guardado se guarda otro valor. Es este valor el que no se obtener, ya que es una especie de sistema para detectar cambios en el archivo. A ver si tengo suerte y alguien sabe algo sobre el tema. Creo que pudiera ser la suma total de bytes del archivo o algo así.


gracias de antemano

hola, puede parece extraño el problema pero así es.

Me he dado cuenta que al usar el cuadro de diálogo Abrir con...  no muestra los mismos programas que desde el directorio distinto de C:\\

Quise abrir un archivo de imagen con photoshop y le di a "Abrir con" y luego "Elegir programa predeterminado", entonces le di a Examinar ya que Photoshop no aparecía entre las opciones a elegir (si aparece desde C:\\) entonces fui a la carpeta de Photoshop y seleccioné el archivo EXE de photoshop, pero no se agrega.
No comprendo porqué y no se como solucionarlo.

gracias de antemano

---

he hecho una cosa y parece que viene a ser un parche pero bueno  

He ido al registro de windows a la clave:
HKEY_CLASSES_ROOT\.png

En (predeterminado) he quitado el dato "pngfile" y lo he reemplazado por "Photoshop.BMPFile.12" he dado a Abrir con... y aparecía Photoshop, luego he vuelto a poner "pngfile" y continúa apareciendo Photoshop al clicar en Abrir con..

así queda arreglado, pero debería poder añadirlo usando el cuadro y no teniendo que hacer estas chapuzas en el registro

nota:
Para quien no entienda porqué he hecho esto para solucionarlo. El truco consiste en asociar momentáneamente la extensión PNG con photoshop, ya que  Photoshop.BMPFile.12 es una clave que contiene el shell que asocia los archivos BMP con Photoshop para que estos al hacer doble clic sobre ellos se abra automáticamente con Photoshop. Igualmente podría haber usado Photoshop.PNGFile.12 cuyo shell es el mismo. Una vez asociado he vuelto a desasociarlo poniendo otra vez el dato "pngfile", que hacer referencia una clave que asocia el archivo con PhotoViewer.dll de Windows de modo que ahora al hacer doble clic sobre el se abre con el visor de Windows y a la vez aparece Photoshop cuando le doy a Abrir con...

---

jaaa ya lo averigüe  

fui a la clave de registro:
HKEY_CURRENT_USER\Software\Classes\Applications

Perdonen no ponga imagen pero no encontré ninguna aceptable en google, se ve algo similar a esto:

Applications
 > HexEditor.exe
 > ImgBurn.exe
 > mpc-hc.exe
 > Photoshop.exe
 > PsPad.exe
 > sublime_text.exe
 > UltraISO.exe
 > uTorrent.exe
 > WinRAR.exe


Ahí en Applications contiene unas claves que son las aplicaciones que aparecen en el cuadro Abrir con..


da el caso que en otra ocasión tuve Photoshop instalado en otro directorio que no era "C:\Program Files\Adobe\Adobe Photoshop CS5" entonces en esta clave estaba la dirección antigua:
HKEY_CURRENT_USER\Software\Classes\Applications\Photoshop.exe\shell\open\command
 
Por eso el cuadro de diálogo Abrir con... no podía mostrar Photoshop porque no lo encontraba.

Lo único que tuve que hacer es reemplazar la dirección antigua por la nueva.

Ahora ya aparece que bien  

diréis como es que desde C:\\ si aparecía. Porque aparecia en el menu y en la parte superior del cuadro Abrir con..  donde dice "Programas recomendados",  pero no en el cuadro inferior. Al hacer el primer truco el de la chapuza aparecía en programas recomendados pero hay veces no se porqué no aparece lo de programas recomendados solo la parte la parte inferior los Otros programas tal como se ve en la imagen de arriba y si esto ocurría no podía abrir con photoshop.

estoy intentado substraer el color de una imagen.

El objetivo es superponer un objeto PictureBox y hacer transparentar una parte de color verde de modo que se puedan ver objetos que hay debajo del PictureBox.

He intentado esto, pero lo único que consigo es un agujero en el formulario, ya que al transparentar el color verde de la imagen que está en el picture, también transparenta el formulario y se ve el escritorio, o cualquier cosa que haya debajo del formulario de la aplicación.

Imports System
Imports System.Runtime.InteropServices
Imports System.Security
Imports System.Drawing.Imaging
 
Public Class Form1
    <DllImport("User32.dll", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
    Private Shared Function SetLayeredWindowAttributes(ByVal HWND As IntPtr, ByVal crKey As Integer, ByVal bAlpha As Byte, ByVal dwFlags As Integer) As Integer
    End Function
    <DllImport("User32.dll", EntryPoint:="GetWindowLongA", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
    Private Shared Function GetWindowLong(ByVal HWND As IntPtr, ByVal nIndex As Integer) As Integer
    End Function
    <DllImport("User32.dll", EntryPoint:="SetWindowLongA", CharSet:=CharSet.Unicode), SuppressUnmanagedCodeSecurityAttribute>
    Private Shared Function SetWindowLong(ByVal HWND As IntPtr, ByVal nIndex As Integer, ByVal dwNewLong As Integer) As Integer
    End Function
 
    Const GWL_EXSTYLE = (-20)
    Const WS_EX_LAYERED = &H80000
    Const GreenColor = &HFF00
 
    Private Function SubstractColor(ByVal HWND As IntPtr, Color As Integer) As Integer
 
        SetWindowLong(HWND, GWL_EXSTYLE, GetWindowLong(HWND, GWL_EXSTYLE) Or WS_EX_LAYERED)
        SetLayeredWindowAttributes(HWND, Color, 0, &H1)
        Return Nothing
    End Function
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        SubstractColor(Me.Handle, GreenColor)
    End Sub
End Class

Mi Net no tiene la System.Windows.Media que creo serviría para esto.

https://docs.microsoft.com/en-us/dotnet/api/system.windows.media.color.subtract?view=netframework-4.8

Tampoco me funciona lo de backcolor = color. transparent, ni aún colocando imágenes con transparencia. Recuerdo que el objetivo es recortar o substraer una parte del PictureBox en la sección marcada por un determinado color.

Parece complicado

Tras leer este artículo LA FALACIA DEL COCHE ELÉCTRICO ya no me parece tan buena idea lo de cambiar el parque automovilístico de combustión de gasolina o gasoil a eléctrico.

No me cuadraba lo de que contaminarían menos ya que las baterías en sí ya contaminan. Sí, se pueden reciclar pero ya sabemos que no todo acaba reciclado, no todas las baterías de móviles acaban recicladas, ni las alcalinas, ni las de botón, ni las actuales para coche con plomo, ni todos los plásticos, ni todo lo demás.

Este artículo sugiere se contaminaría se emitiría igualmente el mismo CO2 a la atmósfera en la producción de estos vehículos que los vehículos actuales de combustión en total.

Por otro lado algo que ya sabía es el tiempo de vida de las baterías, que hay que cambiar según parece cada 5 años y cuestan como un coche de baja gama o uno de segunda mano.

Entonces si esto es cierto ¿no sería mejor usar vehículos de hidrógeno? ¿Por qué no se promocionan de igual manera? ¿No será cosa de las compañías eléctricas  para poder así explotar más su sector?

En este sentido me llama la atención la iniciativa del PSOE queriendo apostar por los coches eléctricos:
Los nuevos objetivos verdes del PSOE: energía 100% renovable y todos los coches eléctricos en 2050

Ahora, yo no se si es cosa de una mala interpretación de los periodistas de la propuesta del gobierno ya que dice en el mismo artículo "Asimismo, el Ejecutivo quiere que en 2050 el parque de turismos y vehículos comerciales ligeros esté exento de emisiones de CO2" pero no dice que deban ser eléctricos, dice "exento de emisiones de CO2. Pero si que las gasolineras instalen puntos de recarga eléctrica. ¿Y el hidrógeno?

En mi opinión creo que es mejor apostar por el  hidrógeno.

Mientras el mundo piensa en un futuro de coches eléctricos, Japón lo apuesta (casi) todo al coche de hidrógeno

¿Qué opinan?

Estoy creando un código html mediante xmlDocument. Me gustaría ver el código  en árbol pero se muestra lineal. Aquí dejo un código de ejemplo:

        'Crear un nuevo documento XML.
        Dim xmlDoc As XmlDocument = New XmlDocument
        'Crear la etiqueta html.
        Dim xmlRoot As XmlElement = xmlDoc.CreateElement("html")
        xmlDoc.AppendChild(xmlRoot)
 
        'Crea la etiqueta de encabezado y agrégala al elemento html.
        Dim xmlHead As XmlElement = xmlDoc.CreateElement("head")
        xmlRoot.AppendChild(xmlHead)
 
        'Crea la etiqueta del título, configura su texto como "Tabla de base de datos"
        'y anexarlo debajo del elemento cabeza.
 
        Dim xmlTitle As XmlElement = xmlDoc.CreateElement("title")
        xmlTitle.AppendChild(xmlDoc.CreateTextNode("tabla de prueba"))
        xmlHead.AppendChild(xmlTitle)
 
 
        Dim xmlCSSStyle As XmlElement = xmlDoc.CreateElement("style")
        xmlCSSStyle.AppendChild(xmlDoc.CreateTextNode("td{background-color: olive;}"))
        xmlHead.AppendChild(xmlCSSStyle)
 
        ' <html>
        '       <head>
        '           <title> Tabla de base de datos </title>
        '           <style>
        '               td{background-color: olive;}
        '           </style>
        '       </head>
        '</html>
 
        ' Create the body element and append it to the root.
        Dim xmlBody As XmlElement = xmlDoc.CreateElement("body")
        xmlRoot.AppendChild(xmlBody)
 
        ' Create the table and append it.
        Dim xmlTable As XmlElement = xmlDoc.CreateElement("table")
        xmlBody.AppendChild(xmlTable)
 
        '' Create the rows.
        For I = 1 To 2
            Dim xmlRow As XmlElement = xmlDoc.CreateElement("tr")
            xmlTable.AppendChild(xmlRow)
            Dim xmlCell As XmlElement = xmlDoc.CreateElement("td")
            xmlCell.AppendChild(xmlDoc.CreateTextNode("contenido"))
            xmlRow.AppendChild(xmlCell)
        Next
 
 
        WebBrowser1.DocumentText = xmlDoc.OuterXml
 

Así es como queda el código HTML

<html><head><title>tabla de prueba</title><style>td{background-color: olive;}</style></head><body><table><tr><td>contenido</td></tr><tr><td>contenido</td></tr></table></body></html>
 

Me ayudaría se visualizara así:

<!DOCTYPE html>
<html>
<head>
	<title>tabla de prueba</title>
	<style>td{background-color: olive;}</style>
</head>
<body>
	<table>
		<tr>
			<td>contenido</td>
		</tr>
		<tr>
			<td>contenido</td>
		</tr>
	</table>
</body>
</html>
 

gracias de antemano

---

Tras mucho buscar encontré la manera, usando XDocument  en lugar de XmlDocument. El código es muy flexible así que se puede hacer de muchas maneras, incluso a partir de un DataTable crear una tabla en HTML.

Aquí dejo un ejemplo sencillo de como lo voy a hacer:

      Dim docHTML As XDocument = New XDocument
        Dim docType As XDocumentType = New XDocumentType("html", Nothing, Nothing, Nothing)
        docHTML.Add(docType) '<!DOCTYPE html >
 
        Dim HTML As XElement = New XElement("html", New XElement("head", New XElement("title", "HTML de prueba")), New XElement("body"))
        Dim HEAD As XElement = HTML.Element("head")
        Dim BODY As XElement = HTML.Element("body")
 
        Dim etiquetaStyle As XElement = New XElement("style", vbCrLf,
                                                     "body{background-color: red;}", vbCrLf,
                                                     "h1{font-style: italic}", vbCrLf)
        Dim script As XElement = New XElement("script", "")
        HEAD.Add(New XElement(etiquetaStyle))
 
        Dim h1 As XElement = New XElement("h1", "Hola mundo")
        h1.SetAttributeValue("class", "titulo1")
        BODY.Add(New XElement(h1))
        docHTML.Add(HTML)
 
 
        TextBox1.Text = docHTML.ToString()
        WebBrowser1.DocumentText = docHTML.ToString()
 

Esto quedaría así:

<!DOCTYPE html >
<html>
  <head>
   <title>HTML de prueba</title>
    <style>
body{background-color: red;}
h1{font-style: italic}
</style>
  </head>
  <body>
    <h1>Hola mundo</h1>
  </body>
</html>
 

También se puede escribir concatenado tal como xElement("html", new xElement("head",new xElement...),  xElement("body", new xElement...), pero a la hora de modificar cosas cuando es muy largo se hace tedioso. Prefiero hacerlo por partes.

Para añadir atributos a una etiqueta basta usar SetAttributeValue:

h1.SetAttributeValue("class", "titulo1")
 

y el resultado sería :

 <h1 class="titulo1">Hola mundo</h1>
 

Espero le sirvan saludos

---

Acabo de averiguar que es posible crear las etiquetas de la siguiente manera:

    Dim TABLECLAS1 As XElement = New XElement(<table>
                                                      <tr>
                                                          <td>Mercurio</td>
                                                          <td>Venus</td>
                                                      </tr>
                                                      <tr>
                                                          <td>Mercurio</td>
                                                          <td>Venus</td>
                                                      </tr>
                                                  </table>)
 

Me ha parecido muy curioso así que posteo.

hola,  resulta que he recibido un mensaje de varios accesos fallidos a mi cuenta  y pensé que intentaron hackear mi cuenta. Pero resulta que al entrar en https://www.elhacker.net/geoip.html veo que la IP que recibe elhacker.net de mi conexión es la misma que muestra el mensaje de advertencia que me llegó al correo.

He mirado en detalles de conexión local y la IP no es igual que muestra elhacker.net. La verdad esto me asustó un poco porque ayer estuve haciendo cosas raras e instalando programas extraños y recibí varios intentos de intrusión, para colmo me han bloqueado una cuenta y al ver el mensaje de elhacker.net pensé que tenía malware en la compu y me estaban hackeando.

Resultante, mi  IP según https://www.elhacker.net/geoip.html es 185.*** mientras que la de mi red local es 192.** ¿eso por qué?


gracias

hola, mi duda es que adaptador wireless puedo comprar que tenga un alcance de al menos 300m con obstáculos. Es que se suelen anunciar añadiendo (sin obstáculos) pero nunca dice cuanto con obstáculos.

por ejemplo esto dice que alcanza 500 a 2000m  (sin obstáculos), sencillamente no me lo creo y si es así, ¿cuánto con obstáculos?

https://www.amazon.es/dp/B07C9RTSXQ/ref=sspa_dk_detail_2?psc=1&pd_rd_i=B07C9RTSXQ

La razón es que hay un wifi público a uno 300 metros de donde vivo y me gustaría poder pillar esa wifi, pero no se como. Entre yo y su router wifi hay edificios de por medio.

que hay, voy a comprar almohadillas térmicas para mi portátil además de pasta térmica. El caso es que buscando en tiendas online, resulta que la gente en Amazon valora siempre a la baja, tendencia en esta tienda, pero me hace dudar. Muchos se quejan que lo han aplicado a su CPU y alcanza los 90 ºC. Sin embargo en Aliexpress, mismas marcas las valoran muy positivamente. También es que veo precios muy dispares para aparentemente la misma marca y tipo, no se si es que habrán falsas de los chinos.



Para CPU yo usaría la que va en una jeringuilla, osea grasa térmica. En este caso entiendo que los que votan negativamente en Amazon es que han usado mal el producto colocando las almohadillas en el CPU. Pero culpa la tienen los fabricantes también porque lo anuncian como disipadores para CPU.  

Al desmontar el portátil y quitar la refrigeración he visto que usaron almohadillas para los chips pero en el CPU grasa calorífica, que ya estaba seca.

De todos modos me gustaría que me aconsejaran una marca en concreto o alguna especificación aconsejable ya que no entiendo muy bien los datos técnicos que aportan los vendedores.

gracias