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

 

 


Tema destacado: Security Series.XSS. [Cross Site Scripting]


  Mostrar Mensajes
Páginas: 1 [2] 3 4 5
11  Programación / Programación Visual Basic / abrir varios formularios desde un solo formulario en: 12 Septiembre 2016, 04:43 am
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
12  Programación / Programación C/C++ / buscador de palabras con un error en: 10 Septiembre 2016, 22:45 pm
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
  1.  
  2. #include "conio.h"
  3. #include "stdio.h"
  4. #include "stdlib.h"
  5. #include "string.h"
  6. #include "windows.h"
  7. #include "iostream"
  8. #include "time.h"
  9. using namespace std;
  10. int contar(char texto[150], char buscar[150])
  11. {
  12. char *puntero;
  13. int contador = 0;
  14. puntero = strstr (texto, buscar);
  15. while (puntero != NULL)
  16. {
  17. contador=contador+1;
  18. puntero = strstr (puntero+strlen(buscar),buscar);
  19. }
  20. return contador;
  21. }
  22. int main()
  23. {
  24. char texto[150];
  25. char palabra[150];
  26. int contadorpalabra = 0;
  27. cout<<"Suministre el texto de entrada:"<<endl;
  28. gets(texto);
  29. cout<<"Suministre la palabra a buscar:"<<endl;
  30. gets(palabra);
  31. contadorpalabra = contar(texto,palabra);
  32. cout<<"\nLa palabra \""<<palabra<<"\" fue encontrada "<<contadorpalabra<<" veces"<<endl;
  33. }
  34.  
13  Programación / Programación Visual Basic / como ocultar números en un juego en: 4 Septiembre 2016, 04:11 am
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
14  Programación / Programación C/C++ / Re: contador de palabras (ayuda con el error) en: 2 Septiembre 2016, 23:18 pm
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
15  Programación / Programación C/C++ / contador de palabras (ayuda con el error) en: 2 Septiembre 2016, 22:47 pm
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
  1. #include "conio.h"
  2. #include "stdio.h"
  3. #include "stdlib.h"
  4. #include "string.h"
  5. #include "windows.h"
  6. #include "iostream"
  7. #include "time.h"
  8. using namespace std;
  9. void minusculas(char a[]);
  10. int main (int argc, char** argv)
  11. {
  12. char p[50];
  13. cout<<"escriba una cadena"<<endl;
  14. gets(p);
  15. minusculas(p);
  16. puts(p);
  17. return 0;
  18. }
  19. void minusculas(char a[])
  20. {
  21. int i=0;
  22. for(i=0;a[i]!='\0';i++)
  23. {
  24. if(a[i]>='A'&&a[i]<='Z')
  25. {
  26. a[i]=a[i]+32;
  27. }
  28. }
  29. }
  30.  

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

Código
  1.  
  2. #include "conio.h"
  3. #include "stdio.h"
  4. #include "stdlib.h"
  5. #include "string.h"
  6. #include "windows.h"
  7. #include "iostream"
  8. #include "time.h"
  9.  
  10. using namespace std;
  11. int palabras(char a[]);
  12. using namespace std;
  13. void minusculas(char a[]);
  14. int main (int argc, char** argv)
  15. {
  16. char p[50];
  17. cout<<"escriba una cadena"<<endl;
  18. gets(p);
  19. minusculas(p);
  20. puts(p);
  21.  
  22. return 0;
  23. }
  24.  
  25. int palabras(char a[])
  26. {
  27. int i, cont=0;
  28. bool pal=false;
  29.  
  30.  
  31. for(i=0;a[i]!='\0';i++)
  32. {
  33. if ((pal==false&&(a[i]>='A'&&a[i]<='Z')||(a[i]>='a'&&a[i]<='z')))
  34. {
  35. cont ++;
  36. pal=true;
  37. }
  38. else
  39. {
  40. if(a[i]==" ") // aqui el error
  41. pal=true;
  42. }
  43. }
  44. return(cont);
  45. }
  46.  
  47.  
  48.  

si alguien me explica como hacerlo le agredeceria
16  Programación / Programación Visual Basic / pasar información de un archivo a otro visual basic 2015 en: 2 Septiembre 2016, 02:45 am
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
17  Programación / .NET (C#, VB.NET, ASP) / guardar un numero y mostrarlo de nuevo programa calculadora en: 24 Agosto 2016, 20:45 pm
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
  1.  
  2. Public Class Form1
  3.    Dim b As Integer
  4.    Dim c As Integer
  5.    Dim num1 As Double
  6.    Dim num2 As Double
  7.    Dim resul As Integer
  8.  
  9.  
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles B1.Click
  17.  
  18.        Tpantalla.Text = Tpantalla.Text & "1"
  19.  
  20.    End Sub
  21.  
  22.    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Bsuma.Click
  23.  
  24.  
  25.        b = 1
  26.        num1 = Tpantalla.Text
  27.        Tpantalla.Text = ""
  28.  
  29.    End Sub
  30.  
  31.    Private Sub B0_Click(sender As Object, e As EventArgs) Handles B0.Click
  32.  
  33.        Tpantalla.Text = Tpantalla.Text & "0"
  34.    End Sub
  35.  
  36.    Private Sub B2_Click(sender As Object, e As EventArgs) Handles B2.Click
  37.  
  38.        Tpantalla.Text = Tpantalla.Text & "2"
  39.    End Sub
  40.  
  41.    Private Sub B3_Click(sender As Object, e As EventArgs) Handles B3.Click
  42.  
  43.        Tpantalla.Text = Tpantalla.Text & "3"
  44.    End Sub
  45.  
  46.    Private Sub B4_Click(sender As Object, e As EventArgs) Handles B4.Click
  47.        Tpantalla.Text = Tpantalla.Text & "4"
  48.    End Sub
  49.  
  50.    Private Sub B5_Click(sender As Object, e As EventArgs) Handles B5.Click
  51.  
  52.        Tpantalla.Text = Tpantalla.Text & "5"
  53.    End Sub
  54.  
  55.    Private Sub B6_Click(sender As Object, e As EventArgs) Handles B6.Click
  56.  
  57.        Tpantalla.Text = Tpantalla.Text & "6"
  58.    End Sub
  59.  
  60.    Private Sub B7_Click(sender As Object, e As EventArgs) Handles B7.Click
  61.  
  62.        Tpantalla.Text = Tpantalla.Text & "7"
  63.    End Sub
  64.  
  65.    Private Sub B8_Click(sender As Object, e As EventArgs) Handles B8.Click
  66.  
  67.        Tpantalla.Text = Tpantalla.Text & "8"
  68.    End Sub
  69.  
  70.    Private Sub B9_Click(sender As Object, e As EventArgs) Handles B9.Click
  71.  
  72.        Tpantalla.Text = Tpantalla.Text & "9"
  73.    End Sub
  74.  
  75.    Private Sub Bigual_Click(sender As Object, e As EventArgs) Handles Bigual.Click
  76.        num2 = Tpantalla.Text
  77.        If b = 1 Then
  78.            Tpantalla.Text = num1 + num2
  79.  
  80.        End If
  81.        If b = 2 Then
  82.            Tpantalla.Text = num1 - num2
  83.  
  84.        End If
  85.        If b = 3 Then
  86.            Tpantalla.Text = num1 * num2
  87.  
  88.        End If
  89.        If b = 4 Then
  90.            If num2 <> 0 Then
  91.                Tpantalla.Text = num1 / num2
  92.            Else
  93.                Tpantalla.Text = "No divisible"
  94.  
  95.            End If
  96.  
  97.  
  98.  
  99.  
  100.        End If
  101.        If b = 5 Then
  102.            Tpantalla.Text = num1 ^ num2
  103.  
  104.        End If
  105.  
  106.  
  107.    End Sub
  108.  
  109.    Private Sub Bresta_Click(sender As Object, e As EventArgs) Handles Bresta.Click
  110.        b = 2
  111.        Bcoma.Enabled = True
  112.        num1 = Tpantalla.Text
  113.        Tpantalla.Text = ""
  114.    End Sub
  115.  
  116.    Private Sub Bmulti_Click(sender As Object, e As EventArgs) Handles Bmulti.Click
  117.        b = 3
  118.        Bcoma.Enabled = True
  119.        num1 = Tpantalla.Text
  120.        Tpantalla.Text = ""
  121.    End Sub
  122.  
  123.    Private Sub Bdivi_Click(sender As Object, e As EventArgs) Handles Bdivi.Click
  124.        b = 4
  125.        Bcoma.Enabled = True
  126.        num1 = Tpantalla.Text
  127.        Tpantalla.Text = ""
  128.    End Sub
  129.  
  130.    Private Sub Blim_Click(sender As Object, e As EventArgs) Handles Blim.Click
  131.        Tpantalla.Text = ""
  132.        Bcoma.Enabled = True
  133.    End Sub
  134.  
  135.    Private Sub Bcoma_Click(sender As Object, e As EventArgs) Handles Bcoma.Click
  136.  
  137.  
  138.        Tpantalla.Text = Tpantalla.Text & ","
  139.        Bcoma.Enabled = False
  140.  
  141.  
  142.    End Sub
  143.  
  144.    Private Sub Tpantalla_TextChanged(sender As Object, e As EventArgs) Handles Tpantalla.TextChanged
  145.  
  146.    End Sub
  147.  
  148.    Private Sub Buno_Click(sender As Object, e As EventArgs) Handles Buno.Click
  149.  
  150.        Try
  151.  
  152.            Dim lar As Integer
  153.            If Tpantalla.Text <> "" Then
  154.                lar = Tpantalla.Text.Length
  155.                Tpantalla.Text = Mid(Tpantalla.Text, 1, lar - 1)
  156.            End If
  157.        Catch ex As Exception
  158.  
  159.  
  160.  
  161.        End Try
  162.    End Sub
  163.  
  164.    Private Sub Bx_Click(sender As Object, e As EventArgs) Handles Bx.Click
  165.  
  166.        b = 5
  167.        num1 = Tpantalla.Text
  168.        Tpantalla.Text = ""
  169.  
  170.        If b = 5 Then
  171.            Tpantalla.Text = num1 ^ 2
  172.  
  173.        End If
  174.  
  175.  
  176.    End Sub
  177.  
  178.    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
  179.        b = 5
  180.        num1 = Tpantalla.Text
  181.        Tpantalla.Text = ""
  182.  
  183.  
  184.    End Sub
  185.  
  186.    Private Sub Braiz_Click(sender As Object, e As EventArgs) Handles Braiz.Click
  187.        b = 7
  188.        num1 = Tpantalla.Text
  189.        Tpantalla.Text = ""
  190.  
  191.        If b = 7 Then
  192.            Tpantalla.Text = Math.Sqrt(num1)
  193.  
  194.        End If
  195.    End Sub
  196.  
  197.    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
  198.        b = 8
  199.        num2 = Tpantalla.Text
  200.        Tpantalla.Text = ""
  201.  
  202.        If b = 8 Then
  203.            Tpantalla.Text = 1 / num2
  204.  
  205.        End If
  206.    End Sub
  207.  
  208.    Private Sub Bmm_Click(sender As Object, e As EventArgs) Handles Bmm.Click
  209.        b = 9
  210.        num1 = Tpantalla.Text
  211.        Tpantalla.Text = ""
  212.  
  213.        If b = 9 Then
  214.            Tpantalla.Text = num1 * (-1)
  215.  
  216.        End If
  217.  
  218.    End Sub
  219.  
  220.    Private Sub Bfac_Click(sender As Object, e As EventArgs) Handles Bfac.Click
  221.        Dim a, b, c As Integer
  222.  
  223.        a = (Tpantalla.Text)
  224.        b = 1
  225.        For c = 1 To a
  226.            b = b * c
  227.            Tpantalla.Text = (b)
  228.        Next
  229.    End Sub
  230.  
  231.    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
  232.  
  233.    End Sub
  234.  
  235.    Private Sub Bsen_Click(sender As Object, e As EventArgs) Handles Bsen.Click
  236.  
  237.  
  238.        b = 10
  239.        num1 = Tpantalla.Text
  240.        Tpantalla.Text = ""
  241.  
  242.        If b = 10 Then
  243.            Tpantalla.Text = Math.Sin(Val(num1) * Math.PI / 180)
  244.        End If
  245.    End Sub
  246.  
  247.    Private Sub Bcos_Click(sender As Object, e As EventArgs) Handles Bcos.Click
  248.        b = 11
  249.        num1 = Tpantalla.Text
  250.        Tpantalla.Text = ""
  251.  
  252.        If b = 11 Then
  253.            Tpantalla.Text = Math.Cos(Val(num1) * Math.PI / 180)
  254.        End If
  255.    End Sub
  256.  
  257.    Private Sub Btan_Click(sender As Object, e As EventArgs) Handles Btan.Click
  258.        b = 12
  259.        num1 = Tpantalla.Text
  260.        Tpantalla.Text = ""
  261.  
  262.        If b = 12 Then
  263.            Tpantalla.Text = Math.Tan(Val(num1) * Math.PI / 180)
  264.        End If
  265.    End Sub
  266.  
  267.    Private Sub Bmem_Click(sender As Object, e As EventArgs) Handles Bmem.Click
  268.  
  269.    End Sub
  270. End Class
  271.  
  272.  
  273.  
18  Programación / Programación C/C++ / Generar palabras al azar en dev c++ a partir de un listado en: 17 Junio 2016, 07:49 am
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
19  Programación / Programación C/C++ / Re: hacer matriz 5 *5 y ordenar los numero de la última fila de mayor a menor en: 15 Junio 2016, 22:33 pm
Después de tanto hacer ya lo pude solucionar me llevo un poco de tiempo
estaba mal en las condiciones como decias

Código
  1. #include "stdio.h"
  2. #include "conio.h"
  3. #include "string.h"
  4. #include "windows.h"
  5. #include "stdlib.h"
  6. #include "time.h"
  7. #include "iostream"
  8. #include "stdlib.h"
  9.  
  10. main ()
  11. {
  12. int i,j,ma[5][5];
  13. int temp;
  14. srand (time(NULL));
  15.  
  16. printf("\tEsta es la Matriz Original: \n");
  17. for(i=0;i<5;i++)
  18. {
  19. for(j=0;j<5;j++)
  20. {
  21. ma[i][j]=1+rand()%(9);
  22. }
  23. }
  24. for(i=0;i<5;i++)
  25. {
  26. for(j=0;j<5;j++)
  27. {
  28. printf("%d ",ma[i][j]);
  29. }
  30. printf("\n");
  31. }
  32. for(int i = 0; i < 5-1; i++)
  33. for(int j = 0; j < 5; j++)
  34.  
  35. if(ma[j][2] >  ma[i+1][2])
  36.  
  37. {
  38. temp = ma[j][2];
  39. ma[j][2] = ma[i+1][2];
  40. ma[i+1][2] = temp;
  41. }
  42. printf("\n Matriz Organizada por la columna central: \n");
  43. for( int i = 0; i < 5; i++)
  44. {
  45. printf("\n");
  46. for(int j = 0; j < 5; j++)
  47. printf("% d",ma[i][j]);
  48. }
  49. }
  50.  
20  Programación / Programación C/C++ / Re: hacer matriz 5 *5 y ordenar los numero de la última fila de mayor a menor en: 15 Junio 2016, 16:13 pm
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
  1. #include "windows.h"
  2. #include "stdlib.h"
  3. #include "time.h"
  4. #include "iostream"
  5. #include "stdlib.h"
  6.  
  7. main ()
  8. {
  9. int i,j,ma[5][5];
  10. int temp;
  11. srand (time(NULL));
  12.  
  13. printf("\tEsta es la Matriz Original: \n");
  14. for(i=0;i<5;i++)
  15. {
  16. for(j=0;j<5;j++)
  17. {
  18. ma[i][j]=1+rand()%(9);
  19. }
  20. }
  21. for(i=0;i<5;i++)
  22. {
  23. for(j=0;j<5;j++)
  24. {
  25. printf("%d ",ma[i][j]);
  26. }
  27. printf("\n");
  28. }
  29. for(int i = 0; i < 5-1; i++)
  30. for(int j = 0; j < 5; j++)
  31.  
  32. if(ma[4][j] < ma[4][i+1])
  33.  
  34. {
  35. temp = ma[4][i];
  36. ma[4][j] = ma[4][i+1];
  37. ma[4][i+1] = temp;
  38. }
  39. printf("\n Matriz Organizada por la ultima fila: \n");
  40. for(i=0;i<5;i++)
  41. {
  42. for(j=0;j<5;j++)
  43. {
  44. printf("%d ",ma[i][j]);
  45. }
  46. printf("\n");
  47. }
  48. }
  49.  
  50.  
Páginas: 1 [2] 3 4 5
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines