Mensajes

cuando tu querías renovar el pc porque se quedaba algo viejecete, pues puenteabas la fuente de alimentación del pc y le metias 220 v directamente a la placa base, comunicabas la incidencia a la empresa de mantenimiento, y se llevaban el pc para reparar, como te habias cargado la placa base, pues ordenador nuevo al canto  

eso no es... ¿ilegal?

menudo trampas estás hecho

pues que me ahorro 50 pavos si cojo un cable usb mondo y lirondo, lo pelo por el otro extremo y lo lo meto en los agujeritos de un enchufe de 220v.

muy buena la verdad,  tu lo has dicho.

Por esa razón he abierto el post. El bichito se ha vendido como rosquillas. No entiendo

Ha salido al mercado un pendrive que acumula energía y luego la devuelve de golpe al equipo destruyendo el equipo.




Los creadores lo vendían a fabricantes pero tras su fracaso decidieron venderlo a usuarios y lo justifican diciendo que está orientado a mejorar la seguridad.
Qué tomadura de pelo, ¿Quién va a probarlo en su equipo?


No creo que quien compre esos USB sea para probar seguridad de equipos.

Esto es como las armas de fuego. Venden armas para los servicios de seguridad, pero los malos también las usan...

Quien va a usar algo  que solo conectarlo al equipo en segundos te lo cargas. En fin, no se, ¿Qué opinas? ¿Para qué lo usarías tú?

Voy a hacer una pregunta que lo mismo es muy muy muy muy tonta

¿Tienes un altavoz interno?

Lo pregunto porque muchas placas no traen uno, sino un conector para enchufar uno externo, y la mayoría de las cajas ya no lo traen

El PC lo monté yo mismo desde cero y el altavoz lo puse yo mismo o sea que sí. 

¿Investigaste por esta zona?

Si lo toquee todo. Parece que es cosa de W7/8.1/W10, que anula el altavoz interno. Ya que he probado con en otro ordenador con W7 y pasa igual.

Quita los drivers de audio y así podrás escuchar tu dichoso altavoz interno...

Saludos.

hombre, tampoco es para ponerse así ¿no?

No estoy seguro, pero como comprenderás no los voy a quitar.

Es que pensaba que era algo de la configuración pero como digo arriba creo que es cosa de W7 para arriba. 

Me picaba la curiosidad que no se pudiera escuchar, eso es todo. Quería saber por qué.

hola
Tengo un PC con Windows 10 y no escucho el altavoz interno del PC. Windows reproduce a través de altavoces externos.



El servicio Beep está iniciado.
Desde Adminstrador de dispositivos el Plug and Play Beep está activo y lo inicia el sistema.
Cuando el PC arranca se escucha un Beep, luego el altavoz funciona.
Desde Linux si que funciona

He creado un programa que genera beeps de forma automática y veo los pulsos del sonido pero no se escucha nada.

Parece que Windows desvía el sonido a los externos, aunque no tenga ninguno conectado.

gracias por la ayuda

osea que la ayuda es que yo o cualquiera haga todo esto:

tengo todo lo que me piden en un solo cartón;  los 15 numero aleatorios, contador de buenas y malas, y el juego se para cuando lleno el cartón y no logro pasar todo eso a los demás cartones.

Que por cierto no somos adivinos y no sabemos como as implementado todo eso. Cada cual lo puede hacer de una manera distinta. Y luego que hagamos lo demás, o sea todo.

En resumen que te hagamos el programa.  

de nada

[Funcionamiento del RANDOM]

hombre compañero no querrás que te hagamos el programa entero.
Deberías añadir algo de código y digas donde te da el problema o falla.

¿Cómo generas los números aleatorios? dices que no te los crea, ¿Cómo lo haces? ¿Has usado RANDOM?

Esto generaría un número aleatorio de 1 al 15

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
Dim N As Integer
Randomize
Me.Show
N = Int((Rnd * 15) + 1)
Print N
End Sub


Funcionamiento del RANDOM

Código [Seleccionar] Expandir

Int(Rnd * (Límite_superior - límite_inferior + 1)  + límite_inferior)


Ejemplos:
==========================================
Si quieres números del 2 a 5:
Límite superior = 5
Límite inferior = 2

Queda:

Código [Seleccionar] Expandir


N = Int(Rnd * (5 - 2 + 1) + 2)

Resolviendo queda:

Código [Seleccionar] Expandir

N = Int((Rnd * 4) + 2)


==========================================
Si quieres números del 1 al 15:
Límite superior = 15
Límite inferior = 1

Queda:

Código [Seleccionar] Expandir

N = Int(Rnd * (15 - 1 + 1) + 1)

Resolviendo queda:

Código [Seleccionar] Expandir

N = Int((Rnd * 15) + 1)


Para evitar que se repitan:

Esto lo metes en un MÓDULO

Código (vb) [Seleccionar] Expandir


Option Explicit
Dim Contador As Integer
Const LimSuperior = 200
Dim lstNumAzar(1 To LimSuperior) As Integer
Public Function NumeroAleatorio(ByVal SizeBucle As Integer) As Integer
'On Error GoTo EvitarError
Dim i As Integer
Dim strNumAzar As Integer
Dim Repetido As Boolean


'reiniciar bucle
If Contador = SizeBucle Then
Contador = 0
strNumAzar = 0
NumeroAleatorio = 0
For i = 1 To LimSuperior
lstNumAzar(i) = 0
Next i
End If
'.................................................

Do
If Contador = SizeBucle Then Exit Do
Randomize
Repetido = False
   strNumAzar = Int(Int(SizeBucle) * Rnd) + 1
For i = 1 To SizeBucle
       If lstNumAzar(i) = strNumAzar Then Repetido = True
    Next i
If Repetido = False Then
Contador = Contador + 1
lstNumAzar(Contador) = strNumAzar
NumeroAleatorio = strNumAzar
Repetido = False
End If
DoEvents
Loop While Repetido = True
End Function



Desde de un FORM lo llamas así (como ejemplo):

Código (vb) [Seleccionar] Expandir


Dim I as integer
Text1.Text = ""
For I = 1 To 15
Text1.Text = Text1.Text & NumeroAleatorio(15) & vbCrLf
Next I


Cada vez que se llama a NumeroAleatorio devuelve un número del 1 al 15 distinto. Una vez se obtienen todos si se vuelve a llamar vuelve a empezar



Nota:
la variable SizeBucle antes lo llamé TamañoBucle, pero como el GesSHI de el hacker no acepta la Ñ lo he cambiado a SizeBucle.

El máximo permitido por la función es 200. pero se puede cambiar a otro valor cambiando la constante LimSuperior.




Otro ejemplo de uso:

Código (vb) [Seleccionar] Expandir


Option Explicit
Dim CuentaClicks As Integer
Private Sub Command2_Click()

If CuentaClicks <= 15 Then
   Text1.Text = ""
   CuentaClicks = CuentaClicks + 1
   Text1.Text = NumeroAleatorio(15)
   
   If CuentaClicks = 15 Then
      MsgBox ("ganaste con el cartón ejemplo cartón numero 1")
      CuentaClicks = 0
   End If
End If

End Sub


Creas un contador para saber cuando se han generado todo los números.

Suerte con el Bingo

Mira la respuesta anterior que hicistes .
creo haber respondido  esta también pero no se donde fue mi respuesta... en fin


Aquí el soporte de HP lo explica, para instalar Windows 7 en el Hp250

http://support.hp.com/us-en/document/c03736054

en español

http://support.hp.com/es-es/document/c03750145/

Código [Seleccionar] Expandir

Para iniciar el equipo desde un disco de arranque válido,
como un disco de recuperación de HP, desactive el Arranque seguro en el BIOS
y luego use el menú de Arranque para seleccionar la unidad de CD/DVD como
dispositivo de arranque. Siga los pasos de este documento para desactivar
el Arranque seguro e iniciar su equipo mediante discos de arranque...

lee las respuestas que le dieron a otro usuario con el mismo problema que tu y la misma compu

http://h30434.www3.hp.com/t5/Notebook-Operating-System-and-Recovery/active-ahci-hp-250-g3/td-p/4663394

según un usuario para poder detectar el USB, debes desactivar el 'Secure boot' y permitir el 'legacy mode'

puede ser similar esto (no igual)


mira esta página, si no sabes inglés y la abres con chrome y la traduces...
Se trata de un usuario que plantea el mismo problema que tu con la misma compu.

http://h30434.www3.hp.com/t5/Notebook-Operating-System-and-Recovery/active-ahci-hp-250-g3/td-p/4663394

según un usuario para poder detectar el USB, debes desactivar el 'Secure boot' y permitir el 'legacy mode'


Aquí el soporte de HP lo explica, para instalar Windows 7 en el Hp250

http://support.hp.com/us-en/document/c03736054

en español

http://support.hp.com/es-es/document/c03750145/