elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


  Mostrar Mensajes
Páginas: 1 ... 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 [22] 23 24 25 26 27 28 29 30 31 32
211  Programación / .NET (C#, VB.NET, ASP) / Re: UTF8 A UNICODE en: 23 Febrero 2016, 14:52 pm
joder, ahora sí Elektro

Ese código lo encontré en google pero no se me ocurrió poner el código por separado yo lo ponía así

Código
  1. ... New Byte() {"C3A1"}

ya sí

Código
  1. ... New Byte() {"C3", "A1"}

lógico no funcionaba  :P


http://www.convertdatatypes.com/Convert-Byte-Array-to-String-in-VB.net.html

Según el cual quedaría así...

Código
  1. Dim vIn() As Byte = New Byte() {&HC3, &HA1}
  2.        Dim vOut As String = System.Text.Encoding.UTF8.GetString(vIn)
  3.        MsgBox(vOut)

212  Programación / .NET (C#, VB.NET, ASP) / Re: UTF8 A UNICODE en: 23 Febrero 2016, 14:19 pm
Hola Elektro

Gracias por responder pero lamentablemente no respondes a mi cuestión.

Antes de nada comentarte que as tenido errorcillo de escritura ya que á no es igual a 255 sino a 225.

Por otro lado decir que creo haber dejado bien clara la cuestión y es pasar código UTF-8 a Unicode, es decir de  C3A1 o bien 0xC3 0xA1   obtener "á".. Y no pasar un valor hexadecimal E1 o bien &HE1 y obtener á, porque para eso hago esto y listo:

Código
  1. msgbox(Convert.ToChar(Convert.ToInt32(&HE1)))


Gracias
213  Programación / .NET (C#, VB.NET, ASP) / UTF8 A UNICODE en: 23 Febrero 2016, 10:48 am
Hola

Este código se supone me debería devolver una "á" pero en cambio devuelve letras chinas

Código
  1.                Dim UTFString As String = Convert.ToChar(Convert.ToInt32("C3A1", 16))
  2.        Dim Result As String = Encoding.Unicode.GetString(Encoding.UTF8.GetBytes(UTFString))
  3.        TextBox1.Text = Result


¿Alguien sabe por qué?
Saludos


info:

UTF-8 encoding table and Unicode characters

214  Sistemas Operativos / Windows / Re: No me arranca en: 22 Febrero 2016, 19:32 pm
Código:
2.- me he metido en el diskpart y he puesto list disk y me sale solo 1 disco (normal) pero me sale que no tiene capacidad (como si esta pero no esta vamos ) tamaño 0 b disp 0 b

Esto me pasó a mí con una carpeta en disco externo. Al intentar acceder a una carpeta me decía que no se podía acceder a ella y su tamaño era 0 bytes.

Comprobé los errores del disco con windows y tardó 8 h (disco de 500 gb), con la opción de  recuperar sectores defectuosos activada. Recuperé la carpeta que por supuesto no estaba vacía a pesar que debido al error marcase 0 bytes.

Posiblemente algo similar se pueda hacer con tu disco como indica maryviento

215  Sistemas Operativos / Windows / Re: No me arranca en: 21 Febrero 2016, 10:12 am
Por favor, que manía con formatear. Cuando hay algún problema "...formatea el disco".  ¿y toda la información que hay en él que a tomar por saco?.

Si van a decir a alguien que formatee el disco, diganles que pueden recuperar la información antes de formatearlo, porque hay gente que no tiene ni idea y lo formatean sin más sin saber que pierden la información del disco.



216  Sistemas Operativos / Windows / Re: Notebook: internet lento en: 21 Febrero 2016, 10:02 am
Usa el FireWall (cortafuejos) de tu antivirus o en su defecto de tu SO, para bloquear programas que se conecten a Internet.

Si usas Windows, cambia la configuración de WindowsUpdate a "Buscar actualizaciones, pero permitirme elegir si deseo descargalas e instalarlas". Pero  de vez en cuando explora WindowsUpdate para ver si hay actualizaciones y si te interesa alguna la instalas.

Comprueba todo el software que tienes instalado y comprueba que no tengan updates (actualizaciones) automáticos. Si los tiene los desactivas y si no lo permite busca el EXE que usa para conectarse y actualizarse y le cambias la extensión a "update.exe.back". Normalmente los programas están en la propia carpeta del programa.

Revisa los programas de inicio con MSConfig, y desactiva aquellos que sean totalmente inútiles y que probablemente se conectan a internet.

Desactiva las actualizaciones automáticas de tu antivirus para actualizarlo manualmente. Pero recuerda actualizarlo con regularidad.

Limpia los historiales de navegación, sobre todo quita los cookies de tus navegadores; firefox, chrome, opera, InternetExplorer, etc

Limpia la carpeta temporal del sistema. Muchos programas alojan allí software que se conecta a internet, sobre todo troyanos.. Aunque estos últimos normalmente cuando los borras, automáticamente se vuelven a restaurar de forma automática.


217  Sistemas Operativos / Windows / Re: Windows 10 se queda congelado en: 21 Febrero 2016, 09:26 am
Quizás sea algún programa que usas o driver incorrecto. Cada ordenador (y usuario) es un mundo así que así de buenas y primeras es difícil saber que lo provoca.

Normalmente cuando se congela así es por algún tema de drivers con tarjetas gráficas o cualquier otro tipo. Eso a mi me pasaba con una vieja tarjeta de video y Windows Me. Prueba a usar tu compu sin tarjetas externas ya sea SCSI o por USB, a ver que pasa.

Yo tuve un problema con el disco duro en mi portatil. Cambié a uno de 500 y tenía uno de 250. Todo lo demás lo mismo y también el SO, pues no funcionaba WindowsUpdate ni Windows Live Mail. Actualicé el driver para que aceptara el de  500 (que se podía usar sin probemas) y ya todo funcionaba correcto. ¿Y que tiene que ver WindowsUpdate con el cambio de disco? pues ni idea, pero así son estas cosas.

Por cierto ese Windows10 no será pirata ¿no?. Seguramente no sea eso pero algunos hacker y crackers modifican cosas del sistema original y luego lo cuelgan en Internet para que la gente se los baje.

218  Programación / .NET (C#, VB.NET, ASP) / Re: Imitar ordenador de los cines de antes en cuanto al sonido en: 20 Febrero 2016, 16:40 pm
Hola

Interesante tu idea y buen aporte. Pero no me convence el sonido. Creo que solo debería hacer 'tic' cuando surja un carácter y no tan seguido. Similar a una máquina de escribir pero con sonido electrónico.

Usando tu código he hecho algún cambio (está en C#). A ver que te parece.


Código:
using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;


static class Module1
{



public static void Main()
{


Console.WindowWidth = 80;
Console.WindowHeight = 43;

Console.Title = "Título del programa en la ventana de la consola.";

Console.BackgroundColor = ConsoleColor.Black;
// Fondo pantalla blanco.
Console.Clear();
// Limpiar pantalla.
Console.ForegroundColor = ConsoleColor.Green;
// Color texto azul.


string Cadena = string.Format("{1}{0}{0}{2}{0}{0}{3}{0}{0}{4}", Environment.NewLine, "CÓDIGO DE ACCESO:_ 59898OP-NEI56", "***CÓDIGO DE ACCESO DENEGADO***", "█ POR FAVOR, INTRODUZCA DE NUEVO EL CÓDIGO DE ACCESO █", "CÓDIGO DE ACCESO:_ ");


Console.CursorVisible = true;

foreach (char Letra in Cadena) {
//Espera 5 segundos

System.Threading.Thread.Sleep(0.09 * 1000);
if (Letra == Convert.ToChar(Environment.NewLine)) {
System.Threading.Thread.Sleep(0.75 * 1000);
//Espera 0.75 segundos antes de hacer el salto de línea
Console.Beep(600, 100);
// beep de salto de línea
}
Console.Write(Letra);
// Hacer sonido solo cuando el caracter sea distinto de espacio
if (string.IsNullOrWhiteSpace(Letra) == false) {
Console.Beep(500, 9);
}
}
Console.ReadKey();
// Pulse cualquier tecla para salir.



}




}

//=======================================================
//Service provided by Telerik (www.telerik.com)
//Conversion powered by NRefactory.
//Twitter: @telerik
//Facebook: facebook.com/telerik
//=======================================================

Lo suyo sería también, poder cambiar el tipo de fuente.

Saludos



En vb.net

Código:
Module Module1

 

    Sub Main()
 

        Console.WindowWidth = 80
        Console.WindowHeight = 43

        Console.Title = "Título del programa en la ventana de la consola."

        Console.BackgroundColor = ConsoleColor.Black
        ' Fondo pantalla blanco.
        Console.Clear()
        ' Limpiar pantalla.
        Console.ForegroundColor = ConsoleColor.Green
        ' Color texto azul.


        Dim Cadena As String = String.Format("{1}{0}{0}{2}{0}{0}{3}{0}{0}{4}", Environment.NewLine,
                                              "CÓDIGO DE ACCESO:_ 59898OP-NEI56",
                                             "***CÓDIGO DE ACCESO DENEGADO***",
                                              "█ POR FAVOR, INTRODUZCA DE NUEVO EL CÓDIGO DE ACCESO █",
                                              "CÓDIGO DE ACCESO:_ ")

  
        Console.CursorVisible = True

        For Each Letra As Char In Cadena
            'Espera 5 segundos

            System.Threading.Thread.Sleep(0.09 * 1000)
            If Letra = CChar(Environment.NewLine) Then
                System.Threading.Thread.Sleep(0.75 * 1000) 'Espera 0.75 segundos antes de hacer el salto de línea
                Console.Beep(600, 100) ' beep de salto de línea
            End If
            Console.Write(Letra)
            If String.IsNullOrWhiteSpace(Letra) = False Then ' Hacer sonido solo cuando el caracter sea distinto de espacio
                Console.Beep(500, 9)
            End If
        Next
        Console.ReadKey()
        ' Pulse cualquier tecla para salir.



    End Sub




End Module

Por cierto la película a la que te refieres podría ser JUEGOS DE GUERRA (1983)

(ahora que recuerdo, creo que en esta película el ordenador hablaba  ;D)



Código de acceso denegado... jaja. Bueno, me aburría y quise hacer una versión funcional. Qué recuerdos...

C#
Código:
using Microsoft.VisualBasic;
using System;
using System.Collections;
using System.Collections.Generic;
using System.Data;
using System.Diagnostics;
static class Module1
{

public static void Main()
{
Console.WindowWidth = 80;
Console.WindowHeight = 43;
Console.Title = "Retro-Consola";
Console.BackgroundColor = ConsoleColor.Black;
// Fondo pantalla blanco.
Console.Clear();
// Limpiar pantalla.
Console.ForegroundColor = ConsoleColor.Green;
// Color texto azul.
Console.CursorVisible = false;
1:
string Cadena = string.Format("{0}{1}{0}{0}{2}", Environment.NewLine, "█ POR FAVOR, INTRODUZCA EL CÓDIGO DE ACCESO █", "CÓDIGO DE ACCESO:_ ");

Mecanografiar(Cadena);

string Entrada = Console.ReadLine;

if (Entrada == 12345) {
Cadena = string.Format("{0}{1}{0}{0}{2}{0}{3}{0}{4}", Environment.NewLine, "*** CÓDIGO DE ACCESO ACEPTADO ***", "████████████████████████████████████████", "█     BIENVENIDO DOCTOR FRANKESTEIN    █", "████████████████████████████████████████");
Mecanografiar(Cadena);
} else {
Cadena = string.Format("{0}{1}{0}", Environment.NewLine, "*** CÓDIGO DE ACCESO DENEGADO ***");
Mecanografiar(Cadena);
goto 1;
}
Console.ReadKey();
}
public static void Mecanografiar(string Cadena)
{
foreach (char Letra in Cadena) {
//Espera 5 segundos
if (Letra == Convert.ToChar(Environment.NewLine)) {
System.Threading.Thread.Sleep(0.75 * 1000);
//Espera 0.75 segundos antes de hacer el salto de línea
Console.Beep(600, 100);
// beep de salto de línea
} else {
System.Threading.Thread.Sleep(0.09 * 1000);
Console.Write(Letra);
// Hacer sonido solo cuando el caracter sea distinto de espacio
if (string.IsNullOrWhiteSpace(Letra) == false) {
Console.Beep(500, 9);
}
}

}
}
}

//=======================================================
//Service provided by Telerik (www.telerik.com)
//Conversion powered by NRefactory.
//Twitter: @telerik
//Facebook: facebook.com/telerik
//=======================================================


VBNET
Código:
Module Module1

    Sub Main()
        Console.WindowWidth = 80
        Console.WindowHeight = 43
        Console.Title = "Retro-Consola"
        Console.BackgroundColor = ConsoleColor.Black' Fondo pantalla blanco.
        Console.Clear()' Limpiar pantalla.
        Console.ForegroundColor = ConsoleColor.Green' Color texto azul.
        Console.CursorVisible = False
1:
        Dim Cadena As String = String.Format("{0}{1}{0}{0}{2}", Environment.NewLine,
                                            "█ POR FAVOR, INTRODUZCA EL CÓDIGO DE ACCESO █",
                                            "CÓDIGO DE ACCESO:_ ")

        Mecanografiar(Cadena)

        Dim Entrada As String = Console.ReadLine

        If Entrada = 12345 Then
            Cadena = String.Format("{0}{1}{0}{0}{2}{0}{3}{0}{4}", Environment.NewLine,
                                "*** CÓDIGO DE ACCESO ACEPTADO ***",
                                "████████████████████████████████████████",
                                "█     BIENVENIDO DOCTOR FRANKESTEIN    █",
                                "████████████████████████████████████████")
            Mecanografiar(Cadena)
        Else
            Cadena = String.Format("{0}{1}{0}", Environment.NewLine,
                     "*** CÓDIGO DE ACCESO DENEGADO ***")
            Mecanografiar(Cadena)
            GoTo 1
        End If
        Console.ReadKey()
    End Sub
    Sub Mecanografiar(ByVal Cadena As String)
        For Each Letra As Char In Cadena
            'Espera 5 segundos
            If Letra = CChar(Environment.NewLine) Then
                System.Threading.Thread.Sleep(0.75 * 1000) 'Espera 0.75 segundos antes de hacer el salto de línea
                Console.Beep(600, 100) ' beep de salto de línea
            Else
                System.Threading.Thread.Sleep(0.09 * 1000)
                Console.Write(Letra)
                If String.IsNullOrWhiteSpace(Letra) = False Then ' Hacer sonido solo cuando el caracter sea distinto de espacio
                    Console.Beep(500, 9)
                End If
            End If

        Next
    End Sub
End Module

219  Programación / Programación Visual Basic / Re: como repetir enumeracion 123 VB6 en: 20 Febrero 2016, 01:30 am
Código
  1. Private Sub Command1_Click()
  2.   Dim Lineas() As String
  3.    Dim i As Integer, NumLinea As Integer
  4.    Lineas = Split(Text1.Text, vbNewLine) 'obtiene un array (matriz). Tantos elementos como saltos de línea en Text1
  5.    Text1.Text = "" 'Limpia el Text1
  6.    NumLinea =0
  7.    'Bucle que repite tantas veces como líneas haya en Text1 (elementos de array Lineas)
  8.    For i = LBound(Lineas) To UBound(Lineas)
  9.    NumLinea = NumLinea + 1 'Obtiene el númer de línea empezando desde 1
  10.    If NumLinea = 4 Then NumLinea = 1 'Vuelve a empezar desde 1 si NumLinea = 4
  11.    'Reescribe cada línea en el Text1 añadiendo el número de línea
  12.        If Lineas(i) <> "" Then Text1.Text = Text1.Text & NumLinea & Lineas(i) & vbCrLf
  13.    Next
  14. End Sub
  15.  
  16. Private Sub Form_Load()
  17. Text1.Text = ""
  18. For N = 1 To 6
  19. Text1.Text = Text1.Text & "Texto" & vbCrLf
  20. Next N
  21. End Sub
220  Programación / .NET (C#, VB.NET, ASP) / Re: pero como le asigno un valor monetario a una hora en: 9 Febrero 2016, 08:50 am
funciona pero tiene un error si la entrada es  a las 12:00 y sale 14:15 $ 1250
deberia cobrar 1150


Entiendo el error pero antes de reparar el error déjame aclarar unos puntos.

Basándome en las condiciones que tú mismo establecistes...
1ª hora  = 500$
A partir de la hora cada cuarto de hora se cobran 150$

Las condiciones que tú realmente expones son:
Cada hora completa son 500$
Cada cuarto de hora extra son 150$


Por ejemplo si son 2 h y 15 minutos  son 500 + 500 +150 = 1150

Aclarado el asunto, vamos por faena...  ;D

Código
  1. Public Class Form1
  2.  
  3.    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  4.        Dim Entrada As DateTime
  5.        Dim Salida As DateTime
  6.  
  7.        DateTime.TryParse("12:00", Entrada)
  8.        DateTime.TryParse("14:15", Salida)
  9.  
  10.        'Obtiene el total de minutos
  11.        Dim TotalMinutos As Integer = CInt(Salida.Subtract(Entrada).TotalMinutes)
  12.  
  13.        Dim Horas As Integer = CInt(Math.Truncate(TotalMinutos / 60))
  14.        Dim Cuartos As Integer = CInt(Math.Truncate((TotalMinutos - (Horas * 60)) / 15))
  15.        Dim Precio As Integer = (Horas * 500) + (Cuartos * 150)
  16.        MsgBox(Precio)
  17.  
  18.        'Info: Math.Truncate elimna los decimales. De modo que:
  19.        'Si Cuartos = 0.7333 (11 min) devuelve 0
  20.        'Si Cuartos = 1.13 (17 min) devuelve 1
  21.        'Si Cuartos = 2 (30 min) devuleve 2
  22.    End Sub
  23. End Class

Y si lo prefieres, puedes poner la operación matemática todo en una línea:

Código
  1.         Dim TMin As Integer = CInt(Salida.Subtract(Entrada).TotalMinutes)
  2.        Dim Precio As Integer = (CInt(Math.Truncate(TMin / 60)) * 500) + (CInt(Math.Truncate((TMin - (CInt(TMin / 60) * 60)) / 15)) * 150)
  3.  

El sistema es simple.
Cuento las horas --> H=Minutos /60
Cuento los Cuartos --> C = (Minutos - H * 60) / 15  --( sin decimales)
Calculo el precio ---> Precio = (H * 500) + C * 150

Pero ¿Qué ocurre si es menos de una hora? entonces hay que establecer condiciones? Como se hizo anteriormente.

Código
  1. Public Class Form1
  2.  
  3.    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  4.        Dim Entrada As DateTime
  5.        Dim Salida As DateTime
  6.  
  7.        DateTime.TryParse("12:30", Entrada)
  8.        DateTime.TryParse("14:35", Salida)
  9.  
  10.        'Obtiene el total de minutos
  11.        Dim TotalMinutos As Integer = CInt(Salida.Subtract(Entrada).TotalMinutes)
  12.  
  13.        Dim Cuartos As Integer, Horas As Integer, Precio As Integer
  14.        If TotalMinutos < 60 Or TotalMinutos = 60 Then
  15.            Precio = 500
  16.        Else
  17.            Horas = CInt(Math.Truncate(TotalMinutos / 60))
  18.            Cuartos = CInt(Math.Truncate((TotalMinutos - (Horas * 60)) / 15))
  19.            Precio = (Horas * 500) + (Cuartos * 150)
  20.        End If
  21.        MsgBox(Precio)
  22.  
  23.    End Sub
  24. End Class

Sl2s


Páginas: 1 ... 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 [22] 23 24 25 26 27 28 29 30 31 32
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines