Me estoy comiendo la cabeza con una estupidez que quería hacer.

<?php
 
/* Jose’ coin flipping
 
 If you get “Head”, that means you have to come,
 but if it’s “tail” you haven’t.
 
 Best of lucks!
 
 Development by Aitor
 */
 
function heads_tails($random){
 
	$heads_tails = array(
		1 => true, // head
		2 => false); // tail
 
	 return $heads_tails[$random];
}
 
$random = rand(1,2);
 
$heads_tails = heads_tails($random);
 
$kill_a_dog = 0;
 
	while($heads_tails == false){
		$kill_a_dog++;
		$heads_tails = heads_tails($random);
	}
 
echo "Número de perros muertos: ".$kill_a_dog;
 
?>

La idea es, a partir de un número aleatorio, 1 ó 2, genera un true o false, lo que sería cara, en caso de true, y cruz en caso de false.

En el caso de que saliese false, entrar en un while del que no salgas hasta que la función retorne un true, el problema está en que, al probar el código, genera el siguiente error.


¿Dónde está el fallo?

Edito:

Soy la cosa más idiota del mundo. Rand siempre tendría el mismo valor y por ello nunca saldría del bucle. Solucionado con meter un rand en el while tal que así:

	while($heads_tails == false){
		$random = rand(1,2);
		$kill_a_dog++;
		$heads_tails = heads_tails($random);
 
	}
 

Lamento el post tan ridículo. Saludos.

Mi problema es el siguiente, mi teclado (de un portatil), al escribir letras cómo C, F, N, X, A (Sólo esas que yo sepa) tienden en algún momento a repetirse. Como resultado, una palabra como "teclado", al escribir escribe algo cómo "tecclaado/teccclado"/teccclaaado", en ocasiones son 3 caracteres repetidos, 2 o a veces ninguno.

He probado a pasar el antivirus, pero sigue sin resultado alguno.

También probé configuraciones del teclado, cambiando la velocidad de repetición, y sigue sin resultado alguno.

Terminé probando un teclado externo, este escribe fenomenal, llegué a pensar que quizá alguien de mi familia cayó algún líquido (tuve problemas iguales en 2 ocasiones...) pero al parecer nadie cayó ningún líquido, lo que sí, mi gata tendía a subirse encima del teclado. Y pensándolo bien creo (no estoy seguro) empezó a pasar desde la última vez que la vi encima. (Creo, no sé si es autosugestión, así que no lo puedo garantizar).

Como curiosidad, el teclado funciona perfectamente siempre que el externo esté conectado, ahora mismo estoy escribiendo desde el teclado del portatil, mientras tengo enchufado un externo. Al quitarlo, es cuestión de tiempo que vuelva a repetirse los caracteres, e incluso teclas como Control+A (Seleccionar todo), o Shift + n no funcionan.

Así qué, tras pensar que quizá, era el hardware del teclado, me encuentro con que muy posiblemente sean los drivers... ¿Sino, por qué con el teclado externo enchufado, el del portatil funciona perfectamente? El problema es que los drivers están actualizados, y no me permite volver a actualizarlos.

¿Qué pensáis vosotros? ¿Alguna solución? No quisiera pasarme toda mi vida con un teclado externo enchufado al portatil xD

Gracias de antemano.

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        '  Dim Año As Integer = Microsoft.VisualBasic.DateAndTime.Year(Now) '2015
 
        Dim Mes As Integer = Microsoft.VisualBasic.DateAndTime.Month(Now) ' Mes 9 
        Dim Dia As Integer = Microsoft.VisualBasic.DateAndTime.Day(Now)
        Dim Hora As Integer = Microsoft.VisualBasic.DateAndTime.Hour(Now)
        Dim Minuto As Integer = Microsoft.VisualBasic.DateAndTime.Minute(Now)
        Dim Segundo As Integer = Microsoft.VisualBasic.DateAndTime.Second(Now)
 
 
        Dim MesAni As Integer = 10
        Dim DiaAni As Integer = 5
        Dim HoraAni As Integer = 23
        Dim MinutoAni As Integer = 59
        Dim SegundoAni As Integer = 59
 
        Dim Mesrestante As Integer = MesAni - Mes
        Dim Diarestante As Integer = DiaAni - Dia
        Dim Horarestante As Integer = HoraAni - Hora
        Dim Minutorestante As Integer = MinutoAni - Minuto
        Dim Segundorestante As Integer = SegundoAni - Segundo
 
        Label1.Text = "Dias: " & Diarestante & " Horas: " & Horarestante & " Minutos " & Minutorestante & " Segundos: " & Segundorestante
        Label1.Show()
 
    End Sub

La idea es hacer una cuenta regresiva que este en una continua actualización, a partir de una fecha clave, y la fecha base del ordenador.

El problema aquí está en que el mes no es el mismo, y por lo tanto la variable Diarestante da un valor negativo. ¿Cómo solucionar eso? O en su defecto alguna forma mejor de hacerlo.

La idea principal es que no se muestre lo que contiene el programa hasta ese día, supongo que para saber si se ha pasado el día basta con comprobar que el díaActual sea mayor que el diaAni.


Edito:

Para arreglarlo de una forma cutre:

        Dim Mes As Integer = Microsoft.VisualBasic.DateAndTime.Month(Now) ' Mes 9 
        Dim Dia As Integer = Microsoft.VisualBasic.DateAndTime.Day(Now)
        Dim Hora As Integer = Microsoft.VisualBasic.DateAndTime.Hour(Now)
        Dim Minuto As Integer = Microsoft.VisualBasic.DateAndTime.Minute(Now)
        Dim Segundo As Integer = Microsoft.VisualBasic.DateAndTime.Second(Now)
 
 
        Dim MesAni As Integer = 10
        Dim DiaAni As Integer = 278
        Dim HoraAni As Integer = 23
        Dim MinutoAni As Integer = 59
        Dim SegundoAni As Integer = 59
 
        Select Case Dia
            Case 23
                Dia = 266
            Case 24
                Dia = 267
            Case 25
                Dia = 268
            Case 26
                Dia = 269
            Case 27
                Dia = 270
            Case 28
                Dia = 271
            Case 29
                Dia = 272
            Case 30
                Dia = 273
            Case 1
                Dia = 274
            Case 2
                Dia = 275
            Case 3
                Dia = 276
            Case 4
                Dia = 277
            Case 5
                Dia = 278
        End Select
 
        Dim Mesrestante As Integer = MesAni - Mes
        Dim Diarestante As Integer = DiaAni - Dia
        Dim Horarestante As Integer = HoraAni - Hora
        Dim Minutorestante As Integer = MinutoAni - Minuto
        Dim Segundorestante As Integer = SegundoAni - Segundo
 
 
        Label1.Text = "Dias: " & Diarestante & " Horas: " & Horarestante & " Minutos " & Minutorestante & " Segundos: " & Segundorestante
        Label1.Show()

De esta forma con los casos me aseguro de que tengan el dia correspondiente a su dia en base a los 365 dias posibles...

Pero claro, esto solo sirve como un apaño para solucionar mi problema suponiendo que la cuenta regresiva es de máximo 1 mes. Sigo sin saber como solucionar el problema en sí.

La idea es sencilla pero llevo toda la mañana rompiéndome la cabeza. A partir de un string generar todas combinaciones posibles de n elementos.

Ejemplo:

Siendo A string[0], y D string[3] resultados:


Principalmente intenté entender como funcionaba y como podría conseguir una pauta de sacar todas combinaciones, aquí ya hablare de todo el lío que se me pasó por la cabeza, al principio probé exclusivamente con 3 elementos, A, B, C la idea principal era sacar las 6 posibles combinaciones mediante una pauta a seguir, la idea era cambiar A dónde B, B dónde A generando una nueva palabra, después B dónde C, y C dónde B generando otra nueva palabra, y vuelta empezar hasta sacar las 6 combinaciones, el problema vino con elementos de cuatro, aquí empece a volverme loco al principió pensé que sería A dónde B, B dónde A. generando una nueva palabra, y después C dónde D y D dónde C generando otra nueva palabra y así sucesivamente, pero tras sacar 8 palabras nuevas, empezaban todas a repetirse, unas de las opciones que opté fue organizarlas por de menor a mayor

De la siguiente forma:


La idea ahora era que a la hora de programarlo, solo tuviese que tener en cuenta el código ASCII de los caracteres que componían la palabra e ir ordenándolos de menor a mayor, pero no vi como y me pareció una perdida de tiempo.

Finalmente me percaté (cielos, esto parece una novela xD) de qué la pauta que seguía independientemente de los elementos que cogiesen era A dónde B (Generando así nueva palabra) después B dónde C (Generando de nuevo otra nueva palabra) C dónde D (Generando, cómo no, una nueva palabra) y finalmente D dónde A y vuelta a empezar.

Si, efectivamente me encanta enrollarme pero quiero hacerme entender, llegados a este punto mi idea es la siguiente...

n! siendo n el tamaño del string, para después crear una tupla con el resultado de n! para recorrer un for n! veces y rellenar toda la tupla con las posibles combinaciones. El problema está en que no sé como narices puedo pasar String[0] por String[1] en la siguiente vuelta String[1] por String[2] y así sucesivamente hasta terminar con String[ejemplo.size-1] por String[ejemplo.size]

#include <iostream>
#include <string>
 
using namespace std;
 
int main(){
string palabra = "ABC";
 
int tam = palabra.size();
int i, n_fact = 1;
 
    for(i=1; i<=tam; i++){
 
        n_fact = n_fact * i;
    }
 
 
string tabla[n_fact];
    for (int it = 0; it < n_fact; it++){
 
    // Totalmente perdido en esta parte como indiqué...
    cout << tabla[it] << endl;
    }
 
}

Vale, estaba probando los temas que había en el foro, y les di click a la vista previa, cuando me apareció esto...



No sé si será algo común, o situacional (me pasó en todos los que intentaba probar la vista previa), escribo esto porque hace ya cosa de unos meses, un usuario escribió un tema sobre un problema que tenía con su página y entré yo a mirarla, y días después se me acusó de que yo hiciese algo a dicha página cuando fue atacada ;_; (Aunque todo terminó resolviéndose), asi que esta vez, me curo en sano >_<

Y ya que estamos... off topic: ¿Qué tema os gusta más? A mí personalmente ninguno, creo que me quedaré con el de defecto.

Saludos!

Siempre he tenido la duda de como Rand, genera números al azar...

int rand ( int $min , int $max )

$random = rand ( 0 , 10 );

Para este caso, la variable random tendría un valor al azar entre 0 y 10, (11 posibles combinaciones), la duda está en... de esos 11, cómo coge uno al azar?

Me imagino un while, recorriendo todos los números y rompiéndose en cualquier momento, pero cómo? Y dicho sea de paso, hay alguna forma de ver como está funcionando una función(valga la redundancia), por dentro?

Saludos!

Bueno, la idea es saber si hay alguna forma de obtener un valor que está variando continuamente, y almacenar dicho valor en una variable.

Dejo un ejemplo:



En este caso valor_variante tiene un 24F, pero ese valor está variando constantemente, la idea es almacenarlo en una nueva variable llamada Obtener.

A simples ojos la idea es algo cómo.

        Dim valor_variante As String = "24F"
        Dim ejemplo As String = "Esto sería un valor variante " & valor_variante
 
 
        'Obtener el valor variante (?)
        Dim obtener As String = valor_variante

Pero por desgracia los datos los estoy cogiendo de una página.

Me explico mejor

<?php echo 'Esto seria un valor variante ' . rand(0, 100)  ?>

He mirado sobre comodines en Vb.net, pero no ha terminado de servirme porque con 'like' solo me devuelve un boleano (true or false) y mi intención no es comparar dos strings, si no que yo quiero que me devuelva el valor que se encuentra ahí.

Otra forma sería con arrays, pero yo no puedo saber cuántos digitos va a tener el número, en este caso es el azar y el ejemplo es con números. (0 a 9, un digito), (10 a 99, dos digitos), (100, tres digitos), al ser al azar no puedo asumir que la posición vaya a ser siempre de 2 posiciones (qué sería lo más normal).

Si alguien puede ayudarme, gracias.

Hola buenas, acostumbrado de PHP y su forma de parsear código.

preg_match_all('<b>Ejemplo de parsear, este numero es variante (.*) </b>', $ejemplo, $ejemplo1);

con el (.*) se obtenia el valor que se encontraba ahí. No encuentro una manera eficiente de hacerlo en VB.net

Mejor dicho no encuentro nada de información sobre cómo hacerlo en Vb.net, y la única solución que encuentro es haciéndolo de forma muy absurda.

Dim valor as integer = InStr(codigo_html.Text, "<b>Ejemplo de parsear, este numero es variante")

y a partir de ahí guardar la última posición en un entero (valor) y recorrer un for hasta que encuentre un "<" y salga de éste, como digo, me parece muy ineficiente y absurda.

¿Existe alguna 'mejor' forma, más cómoda de parsear?

Hola, estaba probando Mysql con Vb.net y en localhost funcionaba sin problema, el caso es que a la hora de usar una base de datos que tengo yo en internet alojada en un host, el programa no se conecta con la base de datos.

He estado leyendo y al parecer es debido a que el host no permite Mysql de forma remota, o de aplicaciones externas.

Entonces mi pregunta es, hay alguna alternativa?

Mi intención es crear un logeo que pueda administrar desde mi ordenador. Por ejemplo, dos personas tienen el programa y en mi base de datos desde mi pc añado dos usuarios para esas dos personas.

Hay algún host que permita el uso de aplicaciones externas?

Un saludo y gracias.

Muy buenas, estos días he estado practicando con c++, y me surgió un problema, mi intención es leer un string, y tranformar carácter por carácter a ASCII, si este es par, sumarle 1 y devolver el caracter, y si es impar, restarle uno y más de lo mismo.

#include <iostream>
 
using namespace std;
 
char transformar_caracter(char letra){
 
    int n = int(letra);
 
    if (n%2 == 0){
        n++;
    }else{
        n--;
    }
    return char(n);
}
 
int main(){
    if(argc < 2){
            return false;
    }
 
    string frase;
    getline(cin, frase);
 
    int tam = frase.size();
 
 
    for(int i=0; i<tam; i++){
    cout << transformar_caracter(frase[i]);
    }
}

Hasta aquí funciona a la perfección, pero mi intención es ejecutarlo desde la consola. Para eso cambie el código añadiendo los argumentos típicos del main.

#include <iostream>
 
using namespace std;
 
char transformar_caracter(char letra){
 
    int n = int(letra);
 
    if (n%2 == 0){
        n++;
    }else{
        n--;
    }
    return char(n);
}
 
int main(int argc, char *argv[]){
    if(argc < 2){
            return false;
    }
 
    string frase = argv[1];
    // getline(cin, frase);
 
    int tam = frase.size();
 
 
    for(int i=0; i<tam; i++){
    cout << transformar_caracter(frase[i]);
    }
}

El problema se encuentra en la linea 23, básicamente, antes usaba Getline para así leer toda la linea, y que el string no se parase al leer el espacio, ahora el problema está en que al ejecutarlo por consola,  únicamente lee hasta el espacio y no encuentro forma de usar el getline como argumento.

No sé si me explico...

Gracias de antemano!.