Mensajes

buenas noches una pregunta



tengo que hacer este  programa que tenga 5 formularios:

1. Se debe Generar el Numero aleatorio del 1 al 25 en cada uno de los tres tableros

2. Se debe Llenar todo el Tablero para ganar

3. Debe haber la opción de manual y automático.

4. En cada tablero se debe llevar las cuentas de buenas y malas.

5 Realizar los 4 formularios pequeños de tal manera que se deben poder ver los 4 a la vez
Formulario 1

6. Desde este formulario se juega se debe poder jugar automático o manual.

tengo lo que me piden en un solo formulario.  los 15 números aleatorios y sin repetirse, el generador de la letra y el numero, el contador de buenas y malas , la parte de forma manual y automático

he visto una orden que es
Dim frm As New Form2()
frm.Show()

me abre los 5 cartones pero no logro. que se me generen los 15 números diferentes en cada cartón y el contador de buenas y malas en cada unos de ellos. y cuando uno de estos se llene me diga ganaste con el cartón ejemplo (cartón numero 2)

si alguien me brinda una ayuda los agradecería

Hola alguien me ayude en esta parte que tengo un error
no esta dando correctamente el resultado
ejemplo
ingreso esta frase
ella durmio al calor de las masas y se durmieron todos
y deseo buscar la palabra durmio y deberia mostrarme durmio ha sido encontrado 1 vez
pero me lo indica que esta dos veces
si alguien me ayuda lo agradecería

Código (cpp) [Seleccionar] Expandir



#include "conio.h"
#include "stdio.h"
#include "stdlib.h"
#include "string.h"
#include "windows.h"
#include "iostream"
#include "time.h"
using namespace std;
int contar(char texto[150], char buscar[150])
{
char *puntero;
int contador = 0;
puntero = strstr (texto, buscar);
while (puntero != NULL)
{
contador=contador+1;
puntero = strstr (puntero+strlen(buscar),buscar);
}
return contador;
}
int main()
{
char texto[150];
char palabra[150];
int contadorpalabra = 0;
cout<<"Suministre el texto de entrada:"<<endl;
gets(texto);
cout<<"Suministre la palabra a buscar:"<<endl;
gets(palabra);
contadorpalabra = contar(texto,palabra);
cout<<"\nLa palabra \""<<palabra<<"\" fue encontrada "<<contadorpalabra<<" veces"<<endl;
}


Buenas estoy haciendo el famoso juego de memoria
con 6 botones
tengo problemas en la parte de ocultar los números y que cuando estos no coincidan se vueltan a tapar
ya tengo la parte que estos solo se repitan 2 veces
1 2 3
3 2 1
es un ejemplo
y otra cosa mas como hago para que estos se roten en los cuadros
solo me logrado que se me cambien en 4 posiciones
si alguien me ayude o me facilite algún código de 6 cuadros para guiarme

gracias por la ayuda ya soluciones esa parte
pero al compilarlo no marca ningún error
pero me sale esto

L:\Estructura de datos\collect2.exe   [Error] ld returned 1 exit status

Ayuda en esta parte
debo hacer un programa en dev c++
que me cambie las letras de mayúsculas a minusculas
y que me cuente las palabras digitadas
ejemplo
No haBra NadA que Te puEda aSUStaR
deberia quedarme asi
no habra nada que te pueda asustar
contiene 7 palabras
ya tengo la primera parte de mayúscula a minúscula

Código (cpp) [Seleccionar] Expandir


#include "conio.h"
#include "stdio.h"
#include "stdlib.h"
#include "string.h"
#include "windows.h"
#include "iostream"
#include "time.h"
using namespace std;
void minusculas(char a[]);
int main (int argc, char** argv)
{
char p[50];
cout<<"escriba una cadena"<<endl;
gets(p);
minusculas(p);
puts(p);
return 0;
}
void minusculas(char a[])
{
int i=0;
for(i=0;a[i]!='\0';i++)
{
if(a[i]>='A'&&a[i]<='Z')
{
a[i]=a[i]+32;
}
}
}


pero no logro hacer el contador de palabras
tengo esto otro código pero me marca un error en los espacios

Código (cpp) [Seleccionar] Expandir



#include "conio.h"
#include "stdio.h"
#include "stdlib.h"
#include "string.h"
#include "windows.h"
#include "iostream"
#include "time.h"

using namespace std;
int palabras(char a[]);
using namespace std;
void minusculas(char a[]);
int main (int argc, char** argv)
{
char p[50];
cout<<"escriba una cadena"<<endl;
gets(p);
minusculas(p);
puts(p);

return 0;
}

int palabras(char a[])
{
int i, cont=0;
bool pal=false;


for(i=0;a[i]!='\0';i++)
{
if ((pal==false&&(a[i]>='A'&&a[i]<='Z')||(a[i]>='a'&&a[i]<='z')))
{
cont ++;
pal=true;
}
else
{
if(a[i]==" ") // aqui el error
pal=true;
}
}
return(cont);
}




si alguien me explica como hacerlo le agredeceria

Buenas alguien me explique como
paso información de form1 a form2 en visual basic
es que me dejaron un tarea que debo hacer una maquina traga-monedas esa parte ya la tengo
pero me dicen que debo hacer una factura donde lleve  las jugadas acertadas y perdidas, cuanto dinero gane y perdí en un form2
esa parte no se como hacerlo

en form1 tengo todos los botones de jugar, acertadas, perdidas, dinero perdido y dinero ganado y
tengo un botón imprime factura esta parte debo pasar todo a form2 y imprimirlo.
si alguien me ayuda lo agradeceria

el problema es el siguiente debo hacer uan calculadora cientifica en visual basic
ya tengo casi todas las funciones pero no logro hacer bien las siguientes si alguien me ayude o explique

MS, M-, M+ MR

un ejemplo seria asi
supongamos ingreso  el numero 9. le doy el boton C. se borra el contenido e la pantalla, y al pulsar MR deberia volver a mostrar el 9

Código (vb) [Seleccionar] Expandir



Public Class Form1
    Dim b As Integer
    Dim c As Integer
    Dim num1 As Double
    Dim num2 As Double
    Dim resul As Integer








    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles B1.Click

        Tpantalla.Text = Tpantalla.Text & "1"

    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Bsuma.Click


        b = 1
        num1 = Tpantalla.Text
        Tpantalla.Text = ""

    End Sub

    Private Sub B0_Click(sender As Object, e As EventArgs) Handles B0.Click

        Tpantalla.Text = Tpantalla.Text & "0"
    End Sub

    Private Sub B2_Click(sender As Object, e As EventArgs) Handles B2.Click

        Tpantalla.Text = Tpantalla.Text & "2"
    End Sub

    Private Sub B3_Click(sender As Object, e As EventArgs) Handles B3.Click

        Tpantalla.Text = Tpantalla.Text & "3"
    End Sub

    Private Sub B4_Click(sender As Object, e As EventArgs) Handles B4.Click
        Tpantalla.Text = Tpantalla.Text & "4"
    End Sub

    Private Sub B5_Click(sender As Object, e As EventArgs) Handles B5.Click

        Tpantalla.Text = Tpantalla.Text & "5"
    End Sub

    Private Sub B6_Click(sender As Object, e As EventArgs) Handles B6.Click

        Tpantalla.Text = Tpantalla.Text & "6"
    End Sub

    Private Sub B7_Click(sender As Object, e As EventArgs) Handles B7.Click

        Tpantalla.Text = Tpantalla.Text & "7"
    End Sub

    Private Sub B8_Click(sender As Object, e As EventArgs) Handles B8.Click

        Tpantalla.Text = Tpantalla.Text & "8"
    End Sub

    Private Sub B9_Click(sender As Object, e As EventArgs) Handles B9.Click

        Tpantalla.Text = Tpantalla.Text & "9"
    End Sub

    Private Sub Bigual_Click(sender As Object, e As EventArgs) Handles Bigual.Click
        num2 = Tpantalla.Text
        If b = 1 Then
            Tpantalla.Text = num1 + num2

        End If
        If b = 2 Then
            Tpantalla.Text = num1 - num2

        End If
        If b = 3 Then
            Tpantalla.Text = num1 * num2

        End If
        If b = 4 Then
            If num2 <> 0 Then
                Tpantalla.Text = num1 / num2
            Else
                Tpantalla.Text = "No divisible"

            End If

           

           
        End If
        If b = 5 Then
            Tpantalla.Text = num1 ^ num2

        End If

       
    End Sub

    Private Sub Bresta_Click(sender As Object, e As EventArgs) Handles Bresta.Click
        b = 2
        Bcoma.Enabled = True
        num1 = Tpantalla.Text
        Tpantalla.Text = ""
    End Sub

    Private Sub Bmulti_Click(sender As Object, e As EventArgs) Handles Bmulti.Click
        b = 3
        Bcoma.Enabled = True
        num1 = Tpantalla.Text
        Tpantalla.Text = ""
    End Sub

    Private Sub Bdivi_Click(sender As Object, e As EventArgs) Handles Bdivi.Click
        b = 4
        Bcoma.Enabled = True
        num1 = Tpantalla.Text
        Tpantalla.Text = ""
    End Sub

    Private Sub Blim_Click(sender As Object, e As EventArgs) Handles Blim.Click
        Tpantalla.Text = ""
        Bcoma.Enabled = True
    End Sub

    Private Sub Bcoma_Click(sender As Object, e As EventArgs) Handles Bcoma.Click


        Tpantalla.Text = Tpantalla.Text & ","
        Bcoma.Enabled = False


    End Sub

    Private Sub Tpantalla_TextChanged(sender As Object, e As EventArgs) Handles Tpantalla.TextChanged

    End Sub

    Private Sub Buno_Click(sender As Object, e As EventArgs) Handles Buno.Click

        Try

            Dim lar As Integer
            If Tpantalla.Text <> "" Then
                lar = Tpantalla.Text.Length
                Tpantalla.Text = Mid(Tpantalla.Text, 1, lar - 1)
            End If
        Catch ex As Exception



        End Try
    End Sub

    Private Sub Bx_Click(sender As Object, e As EventArgs) Handles Bx.Click

        b = 5
        num1 = Tpantalla.Text
        Tpantalla.Text = ""

        If b = 5 Then
            Tpantalla.Text = num1 ^ 2

        End If


    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        b = 5
        num1 = Tpantalla.Text
        Tpantalla.Text = ""


    End Sub

    Private Sub Braiz_Click(sender As Object, e As EventArgs) Handles Braiz.Click
        b = 7
        num1 = Tpantalla.Text
        Tpantalla.Text = ""

        If b = 7 Then
            Tpantalla.Text = Math.Sqrt(num1)

        End If
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        b = 8
        num2 = Tpantalla.Text
        Tpantalla.Text = ""

        If b = 8 Then
            Tpantalla.Text = 1 / num2

        End If
    End Sub

    Private Sub Bmm_Click(sender As Object, e As EventArgs) Handles Bmm.Click
        b = 9
        num1 = Tpantalla.Text
        Tpantalla.Text = ""

        If b = 9 Then
            Tpantalla.Text = num1 * (-1)

        End If

    End Sub

    Private Sub Bfac_Click(sender As Object, e As EventArgs) Handles Bfac.Click
        Dim a, b, c As Integer

        a = (Tpantalla.Text)
        b = 1
        For c = 1 To a
            b = b * c
            Tpantalla.Text = (b)
        Next
    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub Bsen_Click(sender As Object, e As EventArgs) Handles Bsen.Click


        b = 10
        num1 = Tpantalla.Text
        Tpantalla.Text = ""

        If b = 10 Then
            Tpantalla.Text = Math.Sin(Val(num1) * Math.PI / 180)
        End If
    End Sub

    Private Sub Bcos_Click(sender As Object, e As EventArgs) Handles Bcos.Click
        b = 11
        num1 = Tpantalla.Text
        Tpantalla.Text = ""

        If b = 11 Then
            Tpantalla.Text = Math.Cos(Val(num1) * Math.PI / 180)
        End If
    End Sub

    Private Sub Btan_Click(sender As Object, e As EventArgs) Handles Btan.Click
        b = 12
        num1 = Tpantalla.Text
        Tpantalla.Text = ""

        If b = 12 Then
            Tpantalla.Text = Math.Tan(Val(num1) * Math.PI / 180)
        End If
    End Sub

    Private Sub Bmem_Click(sender As Object, e As EventArgs) Handles Bmem.Click

    End Sub
End Class




Bueno la cosa es la siguiente suena un poco loca pero haber is me pueden ayudar
lo que quiero es hacer el juego del ahorcado pero a partir de un listado de palabras que deben estar dentro del programa la cosa es la siguiente como genero una palabras de estas dentro de un azar
y como le hago para poner dicho listado

Después de tanto hacer ya lo pude solucionar me llevo un poco de tiempo
estaba mal en las condiciones como decias

Código (cpp) [Seleccionar] Expandir


#include "stdio.h"
#include "conio.h"
#include "string.h"
#include "windows.h"
#include "stdlib.h"
#include "time.h"
#include "iostream"
#include "stdlib.h"

main ()
{
int i,j,ma[5][5];
int temp;
srand (time(NULL));

printf("\tEsta es la Matriz Original: \n");
for(i=0;i<5;i++)
{
for(j=0;j<5;j++)
{
ma[i][j]=1+rand()%(9);
}
}
for(i=0;i<5;i++)
{
for(j=0;j<5;j++)
{
printf("%d ",ma[i][j]);
}
printf("\n");
}
for(int i = 0; i < 5-1; i++)
for(int j = 0; j < 5; j++)

if(ma[j][2] >  ma[i+1][2])

{
temp = ma[j][2];
ma[j][2] = ma[i+1][2];
ma[i+1][2] = temp;
}
printf("\n Matriz Organizada por la columna central: \n");
for( int i = 0; i < 5; i++)
{
printf("\n");
for(int j = 0; j < 5; j++)
printf("% d",ma[i][j]);
}
}


lo que pasa es que no me muestra bien los resultados

Matriz original

1 7 9 6 4
9 3 3 7 1
8 2 6 9 2
5 5 5 9 5
6 4 2 5 4

deberia quedar asi

1 7 9 6 4
9 3 3 7 1
8 2 6 9 2
5 5 5 9 5
6 5 4 4 2

pero me los muestra así
ahí el error
1 7 9 6 4
9 3 3 7 1
8 2 6 9 2
5 5 5 9 5
6 6 6 6 4

Código (cpp) [Seleccionar] Expandir


#include "windows.h"
#include "stdlib.h"
#include "time.h"
#include "iostream"
#include "stdlib.h"

main ()
{
int i,j,ma[5][5];
int temp;
srand (time(NULL));

printf("\tEsta es la Matriz Original: \n");
for(i=0;i<5;i++)
{
for(j=0;j<5;j++)
{
ma[i][j]=1+rand()%(9);
}
}
for(i=0;i<5;i++)
{
for(j=0;j<5;j++)
{
printf("%d ",ma[i][j]);
}
printf("\n");
}
for(int i = 0; i < 5-1; i++)
for(int j = 0; j < 5; j++)

if(ma[4][j] < ma[4][i+1])

{
temp = ma[4][i];
ma[4][j] = ma[4][i+1];
ma[4][i+1] = temp;
}
printf("\n Matriz Organizada por la ultima fila: \n");
for(i=0;i<5;i++)
{
for(j=0;j<5;j++)
{
printf("%d ",ma[i][j]);
}
printf("\n");
}
}